Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 513 514 515
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2024-11-13 (20:53)

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

16235
wpis nr 1 539 197
[ CZCIONKA MONOSPACE ]

Jacek

Może jednak prosty kod i prosto i krotko podany przez fair_play lepiej się jednak sprawi.

Niezależnie dodam jeszcze taki przykład który może jeszcze bardziej, lepiej, pokazuje do czego ten CSN .

Na przykład została wylosowana kombinacja 1,2,3,4,5
na początku jest wartość inicjująca: 850668
potem:
1 krok 101270
2 krok 741
3 krok 38
4 krok 1

jak widać do ustalenia indeksu dla kombinacji 1,2,3,4,6 algorytm wykonał 4 kroki
aby dojść od kombinacji 850668 do kombinacji 1
stąd taki powstaje taki zapis w tabeli Wylosowane

Wylosowane[1]=true
Wylosowane[2]=false
Wylosowane[3]=false

Wylosowane[850668]=false


I dla podanego wcześniej przykładu:

została wylosowana kombinacja 12,20,33,34,40
na początku jest wartość inicjująca: 850668
potem:
1 krok 708162
2 krok 700847
3 krok 700763
4 krok 700735

znowu algorytm wykonał 4 kroki.

a w tabeli Wylosowane :
...
tabela[700731]=false
tabela[700732]=false
tabela[700733]=false
tabela[700734]=false
tabela[700735]=true
tabela[700736]=false
...
tabela[700736]=false
...
Wylosowane[850667]=false
Wylosowane[850668]=false

--- wpis edytowano 2024-11-13 20:59 ---

2024-11-13 (21:00)

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

15220
wpis nr 1 539 199
[ CZCIONKA MONOSPACE ]

Fair_play
Ale to były tylko przypadkowe liczby zobacz kolejność:
3000000
400000
50000
6000
700
80

Multitest
Jest mały haczyk, nieistotny, dla mnie takie uproszczenie w patrzeniu . Ale, poza tym wszystko się zgadza 12,20, tak te liczby odpowiadają za numery kolumn i numery wierszy.
Tabelki i wartości są ustalone na początku raz, po wyborze z jakiego zakresu np. do 42 dla mini, a zakres dowolny i oczywiście wpisuje do tych tabelek pomocniczych komputer. Przecież to można wyliczyć. Tzn. kiedy nastąpią zmiany 1-szej liczby, czy drugiej. Zależne to jest od liczby maksymalnej.
Np. jeżeli szukamy układów 5-kowych pokrywających 4-ki, to piątki przecież rozkładamy na czwórki:
1,2,3,4, a to 1,2 2,3 3,4 - czyli 3 tabelki pomocnicze w wskazanymi kolumnami i wierszami.
1,2,3,5
1,2,4,5
1,3,4,5
2,3,4,5
Piątka, która padła np. 1,2,3,4,5 pokrywa te czwórki powyżej. Analogicznie trójki i dwójki.
Z założenia, bo to ma być rdzeń na starcie. Po wybraniu gry np. mini w tabeli głównej po pobraniu wyników losowań z pliku txt wypełnione zostają na starcie wynikami ONT i 1/0 wszystkie tabele : 2-ki, 3-ki, 4-ki, 5-ki. Co będę potrzebował to już mam.

--- wpis edytowano 2024-11-13 21:15 ---

2024-11-13 (21:02)

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

16235
wpis nr 1 539 200
[ CZCIONKA MONOSPACE ]

Po co te tabele pomocnicze
żeby tylko ustalić indeks ?
Przecież można bez.

--- wpis edytowano 2024-11-13 21:05 ---

2024-11-13 (21:03)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21727

1386
wpis nr 1 539 201
[ CZCIONKA MONOSPACE ]

Co jeśli będziemy chcieli
—> liczyć dla v= 99
😂
2024-11-13 (21:11)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21727

1386
wpis nr 1 539 203
[ CZCIONKA MONOSPACE ]

Można bez indeksu
ale wtedy tablice wielowymiarowe…🏋️‍♂️
Tak też leci błyskawicznie

A do tego Jacek ciągnie na integer
więc… „nie pociągnie [V] za daleko..”

--- wpis edytowano 2024-11-13 21:18 ---

2024-11-13 (21:21)

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

15220
wpis nr 1 539 207
[ CZCIONKA MONOSPACE ]

Multitest
Od Fair_playa dostałem taki sposób:
adres = kombinuj(liczb, gwar)
If liczb - l1 > 4 Then adres = adres - kombinuj(liczb - l1, 5)
If liczb - l2 > 3 Then adres = adres - kombinuj(liczb - l2, 4)
If liczb - l3 > 2 Then adres = adres - kombinuj(liczb - l3, 3)
If liczb - l4 > 1 Then adres = adres - kombinuj(liczb - l4, 2)
adres = adres - (liczb - l5)

To jak określisz miejsce gdzie jest wynik ONT, lub 1/0 trafiony, dla tej piątki:
12,20,38,40, 42

Powyżej widzę sprawdzany warunek IF >4 jeżeli nie to następny IF>3 . Potem kombinuj to znaczy Kombinacja(liczb z zakresu)?
777ch
To ja ustaliłem v=80 mając na uwadze grę multi. Można rozszerzać do zakresu Integer.
Zakres nie ma wpływu na ilość tablic zawsze dla szukanej opcji jest o 1 mniej. Dla 6 to 5 tablic pomocniczych.

--- wpis edytowano 2024-11-13 21:34 ---

2024-11-13 (21:31)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21727

1386
wpis nr 1 539 210
[ CZCIONKA MONOSPACE ]

Ten kod określa tylko
czy w danym zbiorze jest
czy nie ma tego indeksu

Jak masz już właściwy zbiór
który „nie wszedł”
to policzyć ile czeka dokładnie
to już….”krótka piłka”


———————
To ja ustaliłem v=80
na uwadze grę multi.



To ustal na 99
i dam Ci do sprawdzenia zbiór
dla szóstek
A ty mi powiesz ile to trwało 😁🤔

--- wpis edytowano 2024-11-13 21:33 ---

2024-11-13 (21:38)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21727

1386
wpis nr 1 539 212
[ CZCIONKA MONOSPACE ]

7505 ≤ C(99,25,6) ≤ 29748

Created by: LJCR

Method of Construction: Dynamic programming construction

Policz bez pierwszych 100 linii
i podaj czas przeliczeń
oraz ile 6-ek brakuje po odcięciu
tych 100 linijek

Czyli sprawdzasz 29648 😂
2024-11-13 (21:45)

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

15220
wpis nr 1 539 215
[ CZCIONKA MONOSPACE ]

Tabelkę mam skróconą na 80, ale ilość kombinacji na 5 ze 170 to "dopiero" 1.115.034.284
Jak na razie muszę się zmusić do uzupełnienia tabelki pomocniczej dla 4-ek. W planie mam dla lotka także i 6-ki.
O kurcze się prawie zagapiłem ostatnia chwila na wysłanie zakładów.

777ch
Dam znać jak wpiszę kod do tabelek dla 6-ek.

--- wpis edytowano 2024-11-13 21:55 ---

2024-11-13 (21:55)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7920

14865
wpis nr 1 539 224
[ CZCIONKA MONOSPACE ]


Jacku>

Rozmawiamy na poważnie czy żartujemy?
Bo jeśli to drugie to przenieśmy naszą rozmowę do wątku "Coś na rozluźnienie i poprawę humoru".
Zapytałeś jak obliczam kod CSN (adres) zadanego układu liczb.
Przedstawiłem Ci uniwersalną procedurę dla wyliczenia adresu dla 6 liczb w zbiorze "liczb="
Skrytykowałeś ją, że tyle warunków, tyle kombinacji promując swoją tabelaryczną metodę.
Później podajesz 12 liczb i podajesz adres dla pierwszej siódemki. Ale nie rzeczywisty tylko przypadkowy. To jakiś żart? Tak trudno było Ci znaleźć w swych tabelach odpowiednie liczby do zsumowania aby dały w sumie poprawny adres 354 048 593?
Poza tym moja procedura jest na tyle uniwersalna, że znajduje odpowiedni adres w dowolnym zbiorze liczb.
Twoja siódemka:
2, 7, 12, 39, 41, 43, 47
w zbiorze Dużego Lotka ma kod 17 327 120
w EuroJackpot: 19 656 495
w Keno:156 767 687
w Multi: 354 048 593
a w zbiorze 99 liczb: 1 290 252 465
Wszystko wyliczone w mgnieniu oka.
Ile tabel musiałbyś stworzyć aby obsłużyć dowolną wielkość zbioru liczb?
2024-11-13 (22:02)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21727

1386
wpis nr 1 539 225
[ CZCIONKA MONOSPACE ]


Mogłem skorzystać z Waszych gotowych sposobów, a ja podjąłem "ambitne" wyzwanie dojścia do tego samego celu swoimi drogami.
Jacek_K1961


777ch
Dam znać jak wpiszę kod do tabelek dla 6-ek.

no to ......... czekamy

--- wpis edytowano 2024-11-13 22:03 ---

2024-11-13 (22:12)

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

15220
wpis nr 1 539 232
[ CZCIONKA MONOSPACE ]

Wynik z obrazka wynik433 to 4-ka i 2x3 i ile takich jest, wynik440 to 2x4 i mniej niż 3 i ilość itd.

Wynik433 >>> to pierwszy układ z trzech =4, drugi z trzech to 3, trzeci z trzech to 3

--- wpis edytowano 2024-11-13 22:17 ---

2024-11-13 (22:30)

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

15220
wpis nr 1 539 242
[ CZCIONKA MONOSPACE ]

Fair_play
7-kę będę mógł podać po dorobieniu tablic dla 7-ek, a wtedy także z numerami ograniczonymi do lotto.
Sorrki, bez obrazy ja tylko zwróciłem uwagę na ilość tych warunków i zaniepokoiła mnie formuła jeżeli dobrze zgadłem 4 razy Kombinacja(liczb ze zbioru) :
If liczb - l1 > 4 Then adres = adres - kombinuj(liczb - l1, 5)
If liczb - l2 > 3 Then adres = adres - kombinuj(liczb - l2, 4)
If liczb - l3 > 2 Then adres = adres - kombinuj(liczb - l3, 3)
If liczb - l4 > 1 Then adres = adres - kombinuj(liczb - l4, 2)
Na to zwróciłem uwagę, czy dodawanie nie może być szybsze.
Czy kombinacja nie jest liczona z takim fragmentem z silniami 1x2x3x4x5 itd. ?

Ja nie promuję swoich tabel, ja się tylko zapytałem, czy nie może być to szybsze, bo dodanie 4 liczb wydaje mi się, że teoretycznie powinno być. Każdy się może mylić.

--- wpis edytowano 2024-11-13 22:44 ---

2024-11-13 (22:51)

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

15220
wpis nr 1 539 246
[ CZCIONKA MONOSPACE ]

Ja nie robię żadnego programu na sprzedaż, abym go promował. Jeżeli bym tego chciał to bym nie pokazał pomysłu. Pomysł powiązania czegoś z czymś o którym pisałem to jest to, co jest moją tajemnicą. Nie te tabelki. Robocza tabelka zrobiona wyglądała bardzo prowizorycznie, więc nie chciałem się nią chwalić, bo nie ma czym.

zdjęcie

--- wpis edytowano 2024-11-13 22:56 ---

2024-11-13 (23:06)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7920

14865
wpis nr 1 539 247
[ CZCIONKA MONOSPACE ]


Jacku>

Funkcja "kombinuj" wygląda tak:

Function kombinuj(n, k)

licznik = 1
mianownik = 1

For I = 1 To k
licznik = licznik * (n + 1 - I)
mianownik = mianownik * I
Next
kombinuj = licznik / mianownik

End Function

Zauważ także że jest ona wywoływana dopiero po spełnieniu warunku IF.
2024-11-13 (23:13)

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

15220
wpis nr 1 539 248
[ CZCIONKA MONOSPACE ]

Fair_play
Wiem, że po spełnieniu warunku, tylko czy pętla nie będzie działać dłużej niż dodawanie? O to mi chodziło, plus sprawdzenie spełnienia któregoś warunku.
Ja tak obliczałem silnie, złożyłem gorzej, bo pierw jedną silnię składową, później drugą. Potrzebna była mi do poznania rozmiaru tablicy do deklaracji dim() Zrobiłem to w jednym bloku pętli do ... loop

zdjęcie

--- wpis edytowano 2024-11-13 23:24 ---

2024-11-14 (18:56)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7920

14865
wpis nr 1 539 320
[ CZCIONKA MONOSPACE ]

777ch>

A możesz zamieścić obrazek z analizy bloku z wpisu 1 539 304?
Chcę porównać z moją Vba procedurą
2024-11-14 (19:08)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7920

14865
wpis nr 1 539 324
[ CZCIONKA MONOSPACE ]

wszystko się zgadza z wyjątkiem ...
Time calculated : 301,894 ms
Oczywiście w Twojej aplikacji na moim mule
Bo w VBA trwa "troszeczkę" dłużej, ze względu na excelowską edycję.
2024-11-14 (19:31)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21727

1386
wpis nr 1 539 327
[ CZCIONKA MONOSPACE ]

Time calculated : 491,059 ms

To czas zapełnienia tablic 7-ek
Wszystkich 62 linii

Dalej to już wypis dziesiątek
bo ta procedura wypisuje 10-ki
z brakiem 7/10
Czyli sprawdzanie wszystkich indeksów 7-ek
w danej kolejnej 10-ce.

--- wpis edytowano 2024-11-14 19:32 ---

2024-11-14 (19:32)

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

15220
wpis nr 1 539 328
[ CZCIONKA MONOSPACE ]

777ch
Wierzę Ci na słowo, że to jest tylko nadgorliwość tych 9 antywirusów, ale mam zasadę, że nie instaluję niczego spoza Microsoft Store i także z niego żadnych nowości. Moje próby też mi chciał blokować Norton, bo tylko jeden człowiek na Ziemi używa tego programu, a tu zablokował dodatkowo jeszcze system. Ale dzięki za dobre chęci.
Pozdrawiam

--- wpis edytowano 2024-11-14 19:36 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 513 514 515
Wyślij wiadomość do admina