Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 18 19 20 ... 37 38
Wyślij wiadomość do admina

Przewiń wpisy ↓

Unikatowe KOMBINACJE.. od wielu los. oczekujące na min. wypłacalne

2022-07-03 (18:57)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 425 225
[ CZCIONKA MONOSPACE ]


Jacek, jak na razie nikt nie potwierdził tych moich obliczeń, więc musimy poczekać.
W każdym bądź razie faktem jest, że mamy 39 zakładów z zerowym trafieniem 7/10.

--- wpis edytowano 2022-07-03 18:57 ---

2022-07-03 (19:41)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 228
[ CZCIONKA MONOSPACE ]

Jak dla mnie trochę dziwne, że nie ma 80-ek, 90-ek, 100-ek i takich, które padły mniej razy.

--- wpis edytowano 2022-07-03 19:47 ---

2022-07-03 (20:33)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 425 233
[ CZCIONKA MONOSPACE ]

Prawdopodobieństwo zdarzenia 6/10 to jak 1 do 87,1
13956 : 87,1 = 160 średnio dla dychy.

To może się przydać
https://www.multipasko.pl/gry-liczbowe/multi-lotek/#prw

--- wpis edytowano 2022-07-03 20:35 ---

2022-07-04 (11:49)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 425 302
[ CZCIONKA MONOSPACE ]

Jacek_K1961

"w konsoli niestety wyskakukuje błąd..."


W konsoli nie używa nie uzywa sie inputbox tylko read;
ani
msgbox
odpowiednio używa się tego
'Console.WriteLine($"{wiersz} - {s}")
' Console.ReadKey()

Skąd Ci sie wzięlo że string jest pamięciożerny ?
Zobacz ile zajmuje 1 znak ale ile liczba.

A jesli już martwisz się o pamięć
to co w kodzie robi ta pętla ?
...
Do
filtr = InputBox("wpisz nr wiersza", 999, , )
MsgBox(t1(filtr), , )
Loop
...
2022-07-04 (13:00)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 318
[ CZCIONKA MONOSPACE ]

Pętla była z czasów kiedy sprawdzałem zawartość tablicy, np. wpisywałem nr 5657765 i pojawiał się układ 6 liczb to z tej wczesnej wersji szukania 6w10z80. ... a te InputBox i MsgBox to z próby uruchomienia w okienku. ... a co do błędu z konsoli to wklejałem umieszczony kod na stronie i na samym początku pojawiał się błąd kompilacji, nie wiem czemu, bo raz mi się uruchomiła, dlatego w notatniku dałem komentarz przy rozkazach konsoli i użyłem tych Box-ów.

--- wpis edytowano 2022-07-04 13:13 ---

2022-07-04 (13:19)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 322
[ CZCIONKA MONOSPACE ]

MultiTest
... a wielkość pliku brałem z :

zdjęcie

a tam co znalazłem o znakach string.

--- wpis edytowano 2022-07-04 13:21 ---

2022-07-04 (14:11)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 332
[ CZCIONKA MONOSPACE ]

MultiTest
Czy mógłbyś dla porównania obliczyć czas trwania tej malutkiej pętli w mojej wersji poniżej i Swojej tego typu: wpis nr 1 420 129 z 13 strony, pętle z 3 zmiennych, TYLKO obie w TYM samym języku -VBasic, czy innym, obojętnie, podkreślam - byle OBIE w tym samym. Czyli w tych samych warunkach, na tym samym komputerze.
W VBasic, kod bez żadnych okienek, zlicza tylko licznik, ale jego wartość nie jest ważna. Tylko zmienić wartość zmiennej x1 zgodnie z uwagą i wstawić jakiś zegar, tam gdzie dałem taki komentarz ' .......................
Sam to tylko znam polecenie Data = Now, z dokładnością ~ 1 sekunda, a jak znam siebie, to jak sam wkleję te funkcje podane czasowe to nic nie wyjdzie.

kod:
Dim A1, B2, C3, x1, x2, x3, licznik as Integer
A1 = 1
B2 = 2
C3 = 3
x1=1 ' *** UWAGA zmienić na jakąś dużą, aby pętle chodziła chociaż z 10 sekund
x2=x1+1
X3=x2+1
'dalej sama pętla zliczająca zmienną licznik
' ..................................... najlepiej tu wstawić początek mierzenia czasu
do
C3 += 1
If C3 > x3 Then
B2 += 1
If B2 > x2 Then
A1 += 1
If A1 > x1 Then
' ...................................... najlepiej tu wstawić koniec mierzenia czasu.
Exit Do 'koniec pętli
Else
B2 = A1 + 1 : C3 = B2 + 1
End If
Else
C3 = B2 + 1
End If
End If
licznik +=1
loop

Jeżeli by Ci się chciało, to wielkie dzięki. Bardzo ciekawi mnie różnica w czasie.

--- wpis edytowano 2022-07-04 14:25 ---

2022-07-04 (14:30)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 338
[ CZCIONKA MONOSPACE ]

c.d. wartość startowa zmiennej C3 poprawić na 2. Już nie zdążyłem poprawić powyżej. Sorki!
Pętla w czystej postaci, nie wypełnia żadnych tablic i nic nie zapisuje w plikach. Mam nadzieję, że te 10 sekund nie przekroczy wartości licznika zadeklarowanej jako zmienna Integer

--- wpis edytowano 2022-07-04 14:36 ---

2022-07-04 (21:58)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 390
[ CZCIONKA MONOSPACE ]

Sindbad
Dzięki za automat z prawdopodobieństwami.
Myślę nad automatem do tablic pomocniczych. Może cosik jutro uskrobie na klawiaturze, bo się ma pogoda zepsuć, czyli dla mnie znaczy poprawić, bo ledwo dycham.
2022-07-06 (19:55)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 644
[ CZCIONKA MONOSPACE ]

Macie jakiś patent na to, aby się chciało, prawie tak bardzo, jak się bardzo nie chce?
2022-07-06 (23:23)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 425 678
[ CZCIONKA MONOSPACE ]

Nic na siłę.
2022-07-07 (19:26)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 794
[ CZCIONKA MONOSPACE ]

Sindbad
Do wpis nr 1 425 225 sprawdziłem do 1,2.7............ kombinację 7na10z80 i się zgadza, ale dalej nie mam sumienia męczyć kompa, bo zwykłą metodą sprawdzał do tego początku 2 godziny.
Pozdrawiam
P.S. A ten Lazarus w Pascalu nie ma ograniczeń tablic liczbowych? Jak zacząłem wertować wiadomości o tym języku, to też ma ograniczenia w ich długości?

--- wpis edytowano 2022-07-07 19:30 ---

2022-07-07 (21:24)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 425 812
[ CZCIONKA MONOSPACE ]

Jacek
„dalej nie mam sumienia męczyć kompa”

Dopiero przy aplikacji wielowątkowej wszystkie procesory biegają na 100%
To dopiero jest wycisk.

Ograniczenia zawsze się znajdą, ale po co komu taka tablica?
x: array[0..18446744073709551615] of Qword;

Przede wszystkim 64 bit

Spokojnej nocki

--- wpis edytowano 2022-07-07 21:30 ---

2022-07-08 (17:48)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 425 914
[ CZCIONKA MONOSPACE ]

Heyka Sindbad
... a czy ta tablica (x: array[0..18446744073709551615] of Qword) to jak nazwa by wskazywała jest tekstowa i trzeba przekonwertować jej dane na liczby?
Pozdrawiam
2022-07-08 (20:54)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 425 933
[ CZCIONKA MONOSPACE ]

Jest to typ liczb całkowitych od zera do 18446744073709551615

To samo dotyczy:
Ulong
UInt64
Ulongint
Unsigned long long
2022-07-09 (21:57)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 426 084
[ CZCIONKA MONOSPACE ]

2,33,41,62,67

Taki mały unikat 144 los.
2022-07-09 (22:05)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 426 089
[ CZCIONKA MONOSPACE ]

"sam wkleję te funkcje podane czasowe to nic nie wyjdzie"

Tylko zadeklarować
Private Declare Function GetTickCount Lib "kernel32" () As Long

i wstawić

Start = GetTickCount() 'Poczatek mierzenia czasu
stop1 = GetTickCount() 'Koniec mierzenia czasu
czas = stop1 - Start


2022-07-09 (22:28)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 426 094
[ CZCIONKA MONOSPACE ]

MultiTest
Dzięki, spróbuję. Mam "doła" i jakąś niechęć do pisania. Myślałem, że dokupienie pamięci coś zmieni, ale nic z tego, zero zmotywowania. Jak dojdę do normy to się pochwalę. Ten wynik 19 minut z 6na10z80 powinien mnie zmotywować do dokończenie 4na10 i 5na10z80, a tu nic. Glapię się bezmyślnie w ekran i zero entuzjazmu. Chyba dobiła mnie próba przeliczenia historii tych rekordów powyżej, że chyba nie do wykonania w jakimś przedziale czasowym będącym do zaakceptowania.
Pozdrawiam
2022-07-09 (23:33)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 426 106
[ CZCIONKA MONOSPACE ]

A sprawdzileś w losowaniach te 10-tki ze swojego rekordu, czy na pewno każda jest bez szóstek ?


Co do pamięci ?
chodzi bez problemu w VBA.



--- wpis edytowano 2022-07-09 23:37 ---

2022-07-09 (23:57)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 9377

15220
wpis nr 1 426 107
[ CZCIONKA MONOSPACE ]

Sprawdzałem z bazą w Excelu, kilka się nie zgadzało, bo w programie korzystałem z nieaktualnej bazy w pliku txt, bo to miała być tylko próba, czy w ogóle szybkość jest do zaakceptowania.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 18 19 20 ... 37 38
Wyślij wiadomość do admina