Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 12 13 14 ... 24 25
Wyślij wiadomość do admina

Przewiń wpisy ↓

Analiza MINI

2017-09-04 (13:30)

status kleszek
Data rejestracji: 2006-05-27 00:00:00
Ilość postów: 4962

2047
wpis nr 1 108 427
[ CZCIONKA MONOSPACE ]

Ponieważ sumi nie podała swoich 35 liczb, to z ciekawości wygenerowałem sobie wszystkie piątki, które padły z zakresu liczb 1-35. Takich losowań, w których piąta liczba była < 36, było do losowania 4144, --- 1573. Teraz wystarczy z bazy wszystkich 5 z 35 (324632 kombinacje) usunąć te 1573 losowania ... i sprawa rozwiązana

--- wpis edytowano 2017-09-04 13:31 ---

2017-09-04 (14:27)

status jomat
Data rejestracji: 2017-04-09 00:00:00
Ilość postów: 101

15234
wpis nr 1 108 442
[ CZCIONKA MONOSPACE ]

Czy jest na sali praktyk sieci neuronowych?



Zanim zaczniecie mnie linczować przedstwię bardzo ogólnie swój zamysł.

Sieć może zadziałać tylko wtedy gdy istnieje jakaś zależność,

może być niewidoczna dla ludzkiego umysłu ale musi istnieć.

Podobno każde losowanie jest niezależne od poprzedniego

więc teoretycznie sieć nie będzie miała nic ciekawego do powiedzenia.

Wszystko ok ale jakimś cudem nie jest tak, że np. w mini liczba 7 wypadła 3000 razy

a liczba 9 tylko 30 razy.

Powstaje pytanie: czy entropia może być zależnością wyłapywaną przez sieć?

I nie chodzi o wytypowanie 5 liczb ale np. o 20 liczb (tak jak napisał MLRandom).

Wiem co chciałbym uzyskać na wyjściu,

wiem jakie dane bym wprowadził na wejścia (ponad 10 wejść dla każdej liczby)

ale każdą liczbę można przepuszczać osobnym procesem

i ewentualne modyfikacje danych wejściowych dla sprawdzenia co lepsze.

Mogę przygotować dane wejściowe w dowolnym formacie.

Teoretycznie mogę w mękach ogarnąć nntool z MATLAB-a

ale jeśli jest ktoś kto już w tym siedzi i implementacja nie zajmuje mu dużo czasu

oraz ma chęć sprawdzić czy entropia może być wystarczającą zależnością dla sieci

to proszę o podniesienie ręki.
2017-09-04 (17:41)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 108 463
[ CZCIONKA MONOSPACE ]

Jak pokazują wyniki losowań, prawie w 90% losowań "zbędne" są 2 grupy po 7 liczb, tzn. wystarczy 28 liczb, by "obstawić" pulę liczb "rodzącą" wygrywającą piątkę

Problemem jest wskazać, które to 2 grupy należy odrzucić. Na warsztat wziąłem więc mniej ambitne zadanie, tj. spróbować wytypować 35 liczb (5 grup po 7 liczb), które w 100% przypadków "płodzą" wygrywającą piątkę. W tym celu należy odrzucić jedną z sześciu grup (po 7 liczb każda). Sprawdziłem, jakby to wyglądało, gdybym zdał się na los - skorzystałem z generatora liczb losowych (nie pseudolosowych) ze strony random.org. Ponieważ losowań ML w arkuszu mam 4014, wygenerowałem 4014 liczb z zakresu od 1 do 6. Każda liczba ma wskazywać jedną grupę liczb (np. 1-7 lub 22-28), którą należy odrzucić. Czyli jeśli wylosowałem liczbę 5 to odrzucałem piątą grupę liczb (czyli 29-35) i sprawdzałem, czy w danym losowaniu była jakaś liczba z tego (odrzuconego) zakresu. Jeśli nie było, to znaczyło że "los trafił w dziesiątkę" i wskazał właściwą grupę do odrzucenia.

Zrobiłem 5 prób i uzyskałem następujące wyniki (trafienia na 4014 ostatnich losowań):

1555

1554

1554

1566

1531

Czyli los trafiał ze skutecznością ok 38%-39%.

Taki wynik (skuteczność) powinniśmy więc uzyskać, gdybyśmy przed każdym losowaniem losowo odrzucali jedną grupę 7 liczb. Mniej więcej co 3. raz byśmy trafili

Korona dla tego, kto wskaże na skuteczny (i powtarzalny) sposób eliminacji "zbędnej siódemki" z większą skutecznością.

Będę wdzięczny za pochwalenie się sukcesem

2017-09-04 (17:59)

status jac11
Data rejestracji: 2011-06-23 00:00:00
Ilość postów: 8208

13094
wpis nr 1 108 464
[ CZCIONKA MONOSPACE ]

Powiedz jeszcze dlaczego liczby w grupy to 1,2,3,4,5,6,7,czyli jedna po drugiej a czy może być 1,13,22,24,27,34 jako grupa np nr 1
2017-09-04 (18:16)

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

1386
wpis nr 1 108 466
[ CZCIONKA MONOSPACE ]

Bardzo komplikujecie ,w ostatnim wpisie podałem wam nie skojarzone liczby

czyli 5 liczb z brakiem 2 ,od razu weszło 3|5

jak zresztą poprzednio z 7 dniowym poślizgiem.



Musi być bazowy układ + kilkanaście wskazanych ,i trzeba czekać ,

inaczej nikt nie zagra, a chaos nigdy nie nałoży się na jakiś porządek, tylko będzie

wszędzie chaos i przypadek.Mniej zmian a więcej cierpliwości.



Upraszczać nie komplikować,tam gdzie nie ma musi wejść,

a ile wejdzie to przypadek ,czyli również kilka razy 2|5 równoważy jakaś pustkę

jaka istnieje gdy liczby się nie spotykają a cyklicznie muszą ... ,no ale do tego trzeba dojść.

2017-09-04 (18:40)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 108 467
[ CZCIONKA MONOSPACE ]

Jako że to zabawa, to z ciekawości dokonałem innego podziału na 6 grup (co 6 liczba):



A: 1, 7, 13, 19, 25, 31, 37

B: 2, 8, 14, 20, 26, 32, 38

C: 3, 9, 15, 21, 27, 33, 39

D: 4, 10, 16, 22, 28, 34, 40

E: 5, 11, 17, 23, 29, 35, 41

F: 6, 12, 18, 24, 30, 36, 42



I co? I nico, statystyki podobne



Na 4014 badanych losowań ML uzyskałem wyniki:



>> 12 % (462) to 5 x 1, czyli każda kulka z innej grupy



>> 50% (2024) to 3 x 1 plus 1 x 2, czyli 3 kulki z różnych grup, a 2 z jednej grupy, łącznie z czterech (czyli 4 x 7=28 liczb)



>> 22% (880) to układ 2 x 2 plus 1 x 1, czyli łącznie 5 kulek z 3 grup.



>> 13% (510) to układ 2 x 1 plus 1 x 3, czyli łącznie 5 kulek z 3 grup



>> 3% (104) to układ 1 x 2 plus 1 x 3, czyli 5 kulek z 2 grup (2 x 7 = 14 liczb)



>> 1% (32) to układ 1 x 1 plus 1 x 4, czyli 5 kulek z 2 grup



i 2 przypadki 2 x 5, czyli wszystkie kulki z jednej grupy 7 liczb.





Czyli wygląda na to, że jakby nie mieszał 88% losowań kończy się wyciągnięciem 5 kul z puli max 4 x 7 = 28 liczb.



--- wpis edytowano 2017-09-04 18:43 ---

2017-09-04 (18:48)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 108 468
[ CZCIONKA MONOSPACE ]

@777ch, czy stosujesz kompilator do kodu VBA? Jakoś szybko wychodzą Ci obliczenia, a u mnie miele godzinami, choć i5 ułomkiem nie jest.

Możesz np. wygenerować wszystkie kombinacje ML, odrzucić wylosowane, i ustalić jaka kombinacja 6-8 liczb trafi najwięcej piątek w pozostałym zbiorze?
2017-09-04 (19:22)

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

1386
wpis nr 1 108 478
[ CZCIONKA MONOSPACE ]

Wszystko zależy od kodu ,im mniej linni i prostszy

im mniej if ,itd itd

bez odwołań do cells tylko do tablic ,najlepiej całość obliczeń w tablicach a później tylko zrzut do obszaru ,albo do txt ...... wszystko zależy od kodu,od procka i wersji excela

używam tylko i wyłącznie 2003 ,inne mulą.



-----------------------------------------------------------------------

Możesz np. wygenerować wszystkie kombinacje ML,

odrzucić wylosowane, i ustalić jaka kombinacja 6-8 liczb trafi najwięcej piątek w pozostałym zbiorze?



Po co generować wszystkie,obróbka musi być w locie .

Mimo iż mam 16 rdzeniowy procek,nie przeciążam go niepotrzebnie.





--- wpis edytowano 2017-09-04 19:25 ---

2017-09-05 (06:24)

status sumi
Data rejestracji: 2016-04-20 00:00:00
Ilość postów: 93

14829
wpis nr 1 108 558
[ CZCIONKA MONOSPACE ]

kleszczek podałam 6x35 liczb na 10 stronie pewniak 5 zawsze
2017-09-05 (10:15)

status kleszek
Data rejestracji: 2006-05-27 00:00:00
Ilość postów: 4962

2047
wpis nr 1 108 568
[ CZCIONKA MONOSPACE ]

Pod warunkiem, że wybierzesz trafnie 1 zestaw. Nawet jak wybierzesz ten właściwy zestaw, to jak masz zamiar trafić z zestawu plus-minus 323000 kombinacji (po odrzuceniu tych, które już wypadły) tą właściwą ?

I tak z ciekawości, dlaczego przekręcasz mój nick ?
2017-09-05 (12:06)

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

1386
wpis nr 1 108 584
[ CZCIONKA MONOSPACE ]

witam

Nie chcę ale muszę



Napisałem poprzednio że łatwym sposobem ograniczenia zbiorów jest

brak trafienia 2|5



Każdy kto potrafi wypisać układy jakie odstają ,może spokojnie

zaczynając od np 34-losowań brak 2|5 ,zapisać je w arkuszu

ale ...... właściwie nie jest to potrzebne ,bo można spokojnie je sobie aktualne wyliczyć

na bieżące losowanie.

Zaleta jest jeszcze jedna,takich kombinacji nie ma 300000 czy więcej ,

tylko znacznie mniej ,a pokaże wypis poniżej dla kombinacji wyliczonych z

cofnięciem się wstecz o 9 losowań,czyli obliczonych jakby 9 losowań nie było jeszcze,

oczywiście one są ,ale program ich nie widzi,natomiast sprawdzanie trafień już tak.....



no to jazda.......



Obliczenia Lotto 5 z 42 od los. nr.= 4136

Ustawione cofnięcie obliczeń = 9

Ustawiona minimum wartość oczekiwania na 2z5 = 34

Ustawiona maximum wartość oczekiwania na 2z5 = 200



jak widać sa dwa warunki

min. oczekiwanie i maxymalne

celowo wpisałem 200 aby nie ograniczać tych najdłuzej oczekujacych,

czyli dopuściłem wszystkie od 34 wzwyż



pierwsza

Nr.1 --- 1,3,7,15,24, --- Brak 2w5 od 37

ostatnia w zbiorze

Nr.32215 --- 33,34,37,39,41, --- Brak 2w5 od 35





-----Zestawienie trafień 32215 zestawów wygenerowanych wstecz [9]-losowań ----

Trafienie = 2/5 zanotowano w 34047 x

Trafienie = 3/5 zanotowano w 3675 x

Trafienie = 4/5 zanotowano w 123 x

Trafienie = 5/5 zanotowano w 1 x

---------------------------------------------------------------------------



a więc wśród tych 32215 kombinacji w kolejnych 9 losowaniach

mamy takie trafienia jak wyżej w zestawieniu



poniżej tylko te ,które zaliczyły minimum 4|5 czyli coś co już jest warte ...uwagi







Obliczenia Lotto 5 z 42 od los. nr.= 4136

Obliczenia w/g ONT 2/5 Multi od los. nr.= 4136

Ustawione cofnięcie obliczeń = 9

Ustawiona minimum wartośc oczekiwania na 2z5 = 34

Ustawiona maximum wartośc oczekiwania na 2z5 = 200



-------Zestawienie układów trafionych-------



Nr.850 -- 1,16,17,19,39, czekała na 2/5{72]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.1175 -- 2,4,5,17,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.1885 -- 2,5,6,17,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.1963 -- 2,5,7,17,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2051 -- 2,5,8,17,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2188 -- 2,5,14,17,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2203 -- 2,5,16,17,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2210 -- 2,5,16,17,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2227 -- 2,5,16,23,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2261 -- 2,5,17,18,23, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2268 -- 2,5,17,23,24, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2269 -- 2,5,17,23,28, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2270 -- 2,5,17,23,30, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2271 -- 2,5,17,23,31, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2272 -- 2,5,17,23,32, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2273 -- 2,5,17,23,37, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2274 -- 2,5,17,23,39, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2275 -- 2,5,17,23,40, czekała na 2/5{34]-los. Traf.: [5/5] próg{0} los.Nr: 4137

Nr.2286 -- 2,5,17,28,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2292 -- 2,5,17,31,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2295 -- 2,5,17,32,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2347 -- 2,5,23,25,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2354 -- 2,5,23,28,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2365 -- 2,5,23,31,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2370 -- 2,5,23,32,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2373 -- 2,5,23,34,40, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2377 -- 2,5,23,40,42, czekała na 2/5{34]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.2535 -- 2,6,8,12,17, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.2555 -- 2,6,8,17,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.3943 -- 2,14,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.3960 -- 2,16,17,19,39, czekała na 2/5{72]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.3968 -- 2,16,17,23,40, czekała na 2/5{36]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.4187 -- 2,17,19,23,40, czekała na 2/5{36]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.4214 -- 2,17,21,23,40, czekała na 2/5{36]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.4236 -- 2,17,23,28,40, czekała na 2/5{36]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.4242 -- 2,17,23,31,40, czekała na 2/5{36]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.4245 -- 2,17,23,32,40, czekała na 2/5{36]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.4847 -- 3,4,23,31,32, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.4989 -- 3,6,23,31,32, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5092 -- 3,7,23,31,32, czekała na 2/5{37]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5167 -- 3,8,23,31,32, czekała na 2/5{36]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5239 -- 3,11,23,31,32, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5275 -- 3,14,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.5303 -- 3,15,23,31,32, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5338 -- 3,23,24,31,32, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5350 -- 3,23,26,31,32, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5359 -- 3,23,31,32,37, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.5360 -- 3,23,31,32,40, czekała na 2/5{41]-los. Traf.: [4/5] próg{2} los.Nr: 4139

Nr.9231 -- 4,14,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.9478 -- 4,16,17,19,39, czekała na 2/5{44]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.10330 -- 4,18,24,38,41, czekała na 2/5{44]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.10975 -- 4,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.11530 -- 5,6,8,12,17, czekała na 2/5{39]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.11554 -- 5,6,8,17,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.15003 -- 5,14,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.15120 -- 5,15,17,23,40, czekała na 2/5{51]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15320 -- 5,16,17,23,40, czekała na 2/5{39]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15703 -- 5,17,20,23,40, czekała na 2/5{41]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15759 -- 5,17,22,23,40, czekała na 2/5{41]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15796 -- 5,17,23,26,40, czekała na 2/5{51]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15801 -- 5,17,23,28,40, czekała na 2/5{51]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15807 -- 5,17,23,31,40, czekała na 2/5{51]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.15810 -- 5,17,23,32,40, czekała na 2/5{41]-los. Traf.: [4/5] próg{0} los.Nr: 4137

Nr.16017 -- 5,18,24,38,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.16454 -- 5,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.17561 -- 6,8,10,17,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17589 -- 6,8,12,17,19, czekała na 2/5{42]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17590 -- 6,8,12,17,20, czekała na 2/5{71]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17591 -- 6,8,12,17,22, czekała na 2/5{54]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17592 -- 6,8,12,17,26, czekała na 2/5{47]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17593 -- 6,8,12,17,28, czekała na 2/5{71]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17594 -- 6,8,12,17,32, czekała na 2/5{47]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17595 -- 6,8,12,17,37, czekała na 2/5{65]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17628 -- 6,8,16,17,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17696 -- 6,8,17,18,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17706 -- 6,8,17,19,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17716 -- 6,8,17,20,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17725 -- 6,8,17,21,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17733 -- 6,8,17,22,23, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17740 -- 6,8,17,23,26, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17741 -- 6,8,17,23,28, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17742 -- 6,8,17,23,30, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17743 -- 6,8,17,23,31, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17744 -- 6,8,17,23,32, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.17745 -- 6,8,17,23,37, czekała na 2/5{36]-los. Traf.: [4/5] próg{7} los.Nr: 4144

Nr.18696 -- 6,16,17,19,39, czekała na 2/5{54]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.19862 -- 6,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.21043 -- 7,14,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.22209 -- 7,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.23188 -- 8,14,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.24636 -- 8,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.25296 -- 9,16,17,19,39, czekała na 2/5{38]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.26206 -- 11,16,17,19,39, czekała na 2/5{61]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.26729 -- 11,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27175 -- 13,18,24,38,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.27414 -- 14,15,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27517 -- 14,16,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27624 -- 14,17,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27685 -- 14,19,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27725 -- 14,20,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27763 -- 14,21,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27786 -- 14,23,26,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.27790 -- 14,23,28,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.28283 -- 16,17,19,20,39, czekała na 2/5{72]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28292 -- 16,17,19,23,39, czekała na 2/5{42]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28299 -- 16,17,19,24,39, czekała na 2/5{38]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28305 -- 16,17,19,26,39, czekała na 2/5{38]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28313 -- 16,17,19,30,39, czekała na 2/5{44]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28315 -- 16,17,19,32,39, czekała na 2/5{60]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28318 -- 16,17,19,37,39, czekała na 2/5{70]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28320 -- 16,17,19,39,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{5} los.Nr: 4142

Nr.28531 -- 16,18,24,38,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.29341 -- 17,18,24,38,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.29776 -- 17,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.30113 -- 18,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.30247 -- 18,24,26,38,41, czekała na 2/5{38]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.30297 -- 18,24,31,38,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.30309 -- 18,24,34,38,41, czekała na 2/5{46]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.30311 -- 18,24,37,38,41, czekała na 2/5{35]-los. Traf.: [4/5] próg{6} los.Nr: 4143

Nr.31086 -- 20,22,23,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.31708 -- 22,23,24,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.31717 -- 22,23,26,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.31722 -- 22,23,31,32,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145

Nr.31724 -- 22,23,32,35,37, czekała na 2/5{35]-los. Traf.: [4/5] próg{8} los.Nr: 4145



-----Zestawienie trafień 32215 zestawów wygenerowanych wstecz [9]-losowań ----

Trafienie = 2/5 zanotowano w 34047 x

Trafienie = 3/5 zanotowano w 3675 x

Trafienie = 4/5 zanotowano w 123 x

Trafienie = 5/5 zanotowano w 1 x







czy warto ograniczać w ten sposób

no to trzeba by prześledzić z jakim ont 2|5 wchodzą wylosowane kombinacje



mniej więcej jest to 4~5 %



przykłady

14,18,22,30,32,,,,,,,,,,,,,,,,,68 ,,,,,,,,,,,,,,,,,,,,3160,2014-10-28

6,20,21,23,31,,,,,,,,,,,,,,,,,56,,,,,,,,,,,,,,,,,,,,3218,2015-01-03

3,5,9,28,37,,,,,,,,,,,,,,,,,50,,,,,,,,,,,,,,,,,,,,3457,2015-10-09

2,11,24,35,38,,,,,,,,,,,,,,,,,46,,,,,,,,,,,,,,,,,,,,3855,2016-11-18

1,6,22,32,37,,,,,,,,,,,,,,,,,46,,,,,,,,,,,,,,,,,,,,3414,2015-08-20

6,7,16,21,30,,,,,,,,,,,,,,,,,44,,,,,,,,,,,,,,,,,,,,3263,2015-02-25

3,6,16,26,27,,,,,,,,,,,,,,,,,43,,,,,,,,,,,,,,,,,,,,3404,2015-08-08

1,18,23,27,31,,,,,,,,,,,,,,,,,41,,,,,,,,,,,,,,,,,,,,3161,2014-10-29

1,8,19,33,42,,,,,,,,,,,,,,,,,40,,,,,,,,,,,,,,,,,,,,3818,2016-10-12

14,27,34,40,41,,,,,,,,,,,,,,,,,40,,,,,,,,,,,,,,,,,,,,3508,2015-12-07

1,6,7,36,41,,,,,,,,,,,,,,,,,39,,,,,,,,,,,,,,,,,,,,3939,2017-02-10

6,10,31,33,37,,,,,,,,,,,,,,,,,39,,,,,,,,,,,,,,,,,,,,3812,2016-10-06

7,8,12,17,32,,,,,,,,,,,,,,,,,39,,,,,,,,,,,,,,,,,,,,3343,2015-05-29

4,7,13,29,42,,,,,,,,,,,,,,,,,38,,,,,,,,,,,,,,,,,,,,3488,2015-11-14

4,13,29,31,41,,,,,,,,,,,,,,,,,38,,,,,,,,,,,,,,,,,,,,3284,2015-03-21

4,10,12,17,41,,,,,,,,,,,,,,,,,37,,,,,,,,,,,,,,,,,,,,3490,2015-11-17

6,10,22,34,39,,,,,,,,,,,,,,,,,37,,,,,,,,,,,,,,,,,,,,3470,2015-10-24

11,18,20,37,39,,,,,,,,,,,,,,,,,37,,,,,,,,,,,,,,,,,,,,3236,2015-01-24

6,14,20,29,32,,,,,,,,,,,,,,,,,36,,,,,,,,,,,,,,,,,,,,3650,2016-04-27

10,11,20,29,33,,,,,,,,,,,,,,,,,36,,,,,,,,,,,,,,,,,,,,3613,2016-03-21

4,5,11,21,28,,,,,,,,,,,,,,,,,36,,,,,,,,,,,,,,,,,,,,3289,2015-03-27

4,18,26,28,42,,,,,,,,,,,,,,,,,35,,,,,,,,,,,,,,,,,,,,3399,2015-08-03

2,5,17,23,40,,,,,,,,,,,,,,,,,34,,,,,,,,,,,,,,,,,,,,4137,2017-08-27

11,15,18,19,30,,,,,,,,,,,,,,,,,34,,,,,,,,,,,,,,,,,,,,4075,2017-06-26

10,12,24,31,40,,,,,,,,,,,,,,,,,34,,,,,,,,,,,,,,,,,,,,4054,2017-06-05

12,28,29,30,39,,,,,,,,,,,,,,,,,34,,,,,,,,,,,,,,,,,,,,3829,2016-10-23

11,21,28,38,41,,,,,,,,,,,,,,,,,34,,,,,,,,,,,,,,,,,,,,3563,2016-01-31

16,20,29,34,40,,,,,,,,,,,,,,,,,34,,,,,,,,,,,,,,,,,,,,3217,2015-01-02

2,6,17,33,38,,,,,,,,,,,,,,,,,33,,,,,,,,,,,,,,,,,,,,3936,2017-02-07

7,13,25,26,31,,,,,,,,,,,,,,,,,33,,,,,,,,,,,,,,,,,,,,3927,2017-01-29

3,4,35,36,39,,,,,,,,,,,,,,,,,33,,,,,,,,,,,,,,,,,,,,3861,2016-11-24

1,10,13,37,40,,,,,,,,,,,,,,,,,32,,,,,,,,,,,,,,,,,,,,4103,2017-07-24

4,12,19,21,25,,,,,,,,,,,,,,,,,32,,,,,,,,,,,,,,,,,,,,4041,2017-05-23

4,13,15,17,42,,,,,,,,,,,,,,,,,32,,,,,,,,,,,,,,,,,,,,3940,2017-02-11

1,2,4,17,35,,,,,,,,,,,,,,,,,32,,,,,,,,,,,,,,,,,,,,3808,2016-10-02

1,6,8,17,22,,,,,,,,,,,,,,,,,32,,,,,,,,,,,,,,,,,,,,3729,2016-07-15

18,22,32,37,40,,,,,,,,,,,,,,,,,32,,,,,,,,,,,,,,,,,,,,3727,2016-07-13

2,9,15,25,37,,,,,,,,,,,,,,,,,31,,,,,,,,,,,,,,,,,,,,4088,2017-07-09

5,10,17,26,35,,,,,,,,,,,,,,,,,31,,,,,,,,,,,,,,,,,,,,4020,2017-05-02

5,16,26,35,40,,,,,,,,,,,,,,,,,31,,,,,,,,,,,,,,,,,,,,3653,2016-04-30

2,21,24,30,36,,,,,,,,,,,,,,,,,31,,,,,,,,,,,,,,,,,,,,3506,2015-12-05

8,9,11,16,23,,,,,,,,,,,,,,,,,31,,,,,,,,,,,,,,,,,,,,3413,2015-08-19

14,15,16,17,28,,,,,,,,,,,,,,,,,30,,,,,,,,,,,,,,,,,,,,3549,2016-01-17

7,14,17,26,30,,,,,,,,,,,,,,,,,30,,,,,,,,,,,,,,,,,,,,3450,2015-10-01

2,13,20,23,29,,,,,,,,,,,,,,,,,30,,,,,,,,,,,,,,,,,,,,3424,2015-09-01





dodam że dla ont 68 ,jakie oznaczyłem buźką to

ograniczenie od 68 dało 1006 zestawów

----Zestawienie trafień 1006 zestawów wygenerowanych wstecz [986]-losowań ----

Trafienie = 2/5 zanotowano w 78806 x

Trafienie = 3/5 zanotowano w 6994 x

Trafienie = 4/5 zanotowano w 211 x

Trafienie = 5/5 zanotowano w 3 x



redukcja nie musi przynieść 5|5

bo układ taki jest tylko jeden ,

ale jak widać 211 trafień na 1006 ......... to już depnąć można

oczywiście można przecież dołożyć warunek własny

np tylko zestawy z liczbą czy parą taka a taką



tyle......
2017-09-05 (12:56)

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

1386
wpis nr 1 108 589
[ CZCIONKA MONOSPACE ]

Takie obliczenie oczekiwanych 2|5 dla mini to na słabym sprzęcie jakieś

max 2 sekundy

teraz >27529-kombinacji



kto potrafi niech spróbuje



arkusz2



kolumna A numer porzadkowy

kolumna b data

kolumny od c do v liczby



arkusz1 to arkusz do obliczeń i sortowań w/g róznych kryteriów







makro dokonujące przeliczeń



Sub SPEED_oczek2w5tkach()

'

' aaaseven3 Makro

' Makro zarejestrowane 2010-01-25, autor LEO

Arkusz1.Activate

'Range("a2:iv65536") = ""

'Range("a2:iv65536").Interior.ColorIndex = none



Dim TAB3() As Long

Dim fs, a

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile(ThisWorkbook.Path & "/" & "leo5.txt", True)

Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long

Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabgps() As Long

Dim stoper As Date, czas As String

cofka = Arkusz1.Cells(1, 11).value

vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka

LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1"))

LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000"))



tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, 100)).value



Liczba_STARTOWA = 1

Liczba_KOnCOWA = LICZB_GRY

norm3 = CInt(InputBox("Wpisz min ont ", "MiniLotto +- 70 "))

stoper = Timer

scrON







ReDim tabgps(vlos, LICZB_GRY)



For los = vlos To 1 Step -1

For liczba = 1 To LICZB_GRY







tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba)

If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1







Next liczba



Next los

'tablica wyników gotowa



'teraz pary

ReDim TAB3(7980, 1)



For l1 = 1 To Liczba_KOnCOWA - 1

For l2 = l1 + 1 To Liczba_KOnCOWA



s = 0

'zapiszemy ont par

For spr = vlos To vlos - 1000 Step -1

s = tabgps(spr, l1) + tabgps(spr, l2)

If s > 1 Then TAB3(l1 & l2, 1) = vlos - spr

If s > 1 Then Exit For



Next spr





Next l2

Next l1





'teraz sprawdzimy ont2/5



k = 0

For l1 = Liczba_STARTOWA To Liczba_KOnCOWA - 4

For l2 = l1 + 1 To Liczba_KOnCOWA - 3

For l3 = l2 + 1 To Liczba_KOnCOWA - 2

For l4 = l3 + 1 To Liczba_KOnCOWA - 1

For l5 = l4 + 1 To Liczba_KOnCOWA



If TAB3(l1 & l2, 1) < norm3 Then GoTo 2

If TAB3(l1 & l3, 1) < norm3 Then GoTo 3



If TAB3(l2 & l3, 1) < norm3 Then GoTo 3

If TAB3(l1 & l4, 1) < norm3 Then GoTo 4



If TAB3(l2 & l4, 1) < norm3 Then GoTo 4

If TAB3(l3 & l4, 1) < norm3 Then GoTo 4

If TAB3(l2 & l5, 1) < norm3 Then GoTo 5





If TAB3(l1 & l5, 1) < norm3 Then GoTo 5

If TAB3(l3 & l5, 1) < norm3 Then GoTo 5

If TAB3(l4 & l5, 1) < norm3 Then GoTo 5









With a

.WriteLine (l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5)

End With

k = k + 1





5

Next l5

4

Next l4

3

Next l3

2

Next l2

Next l1

czas = Format(Timer - stoper, " 00:00:00.00") & " sec."

MsgBox "Zakonczono obliczenia 5 liczb " & Chr(13) & _

"czas obliczen = " & czas & Chr(13) & _

"Ont 2/5 w ust. zakresie min." & norm3 & Chr(13) & _

Chr(13) & _

"ustawione warunki spelnilo " & k & " - kombinacji " & Chr(13) & _

Chr(13) & _

"kombinacje zapisane zostaly do leo5.txt "



'dodatkowe makra pobierające wyliczone dane i sprawdzające zgodnosc

'i co dalej padło

'pobierz_Piątki

'GPSONT2

'sortONT2_ROSNĄCO

'SPEED_co_dalej_do20skreslen

End Sub





makro pobierające dane





Sub pobierz_Piątki()

'

' wlasne4 Makro

' Makro zarejestrowane 2009-03-27, autor leo777ch

'

Dim nn As Long

Dim maxliczB As Long

Dim TABDANE() As Variant

Arkusz1.Activate



Range("A2:IV65536") = ""

Range("A2:IV65536").Interior.ColorIndex = none

nn = Application.WorksheetFunction.CountA(Range("a:a"))

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1







i = 0

ReDim TABDANE(65536, 4)



Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "leo5.txt", ForReading)



Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ")





TABDANE(i, 0) = arrLine(0)

TABDANE(i, 1) = arrLine(1)

TABDANE(i, 2) = arrLine(2)

TABDANE(i, 3) = arrLine(3)

TABDANE(i, 4) = arrLine(4)

i = i + 1

If i = 65000 Then MsgBox "Ilosc kombinacji piątek wynosi aktualnie 65000,przerywam dalsze pobieranie z pliku"

If i = 65000 Then GoTo 1



Loop

1

Range(Cells(2, 1), Cells(i + 1, 5)) = TABDANE

objFile.Close



'MsgBox " Wczytano " & i & " kombinacji 5-ek"



Cells(2, 1).Select

End Sub







makro wpisujące ont2 czyli ile czeka



Sub GPSONT2()



'

Dim l1, l2, l3, l4, l5, l6 As Integer

Dim t0, T1, T2, t3, t4, t5, t6 As Integer

Dim s As Integer, z As Long

Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long

Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabgps() As Long

Dim tabtr0() As Variant

Dim tabok() As Variant

Dim TABONT() As Variant

Dim SKREsLEn As Byte

SKREsLEn = Application.WorksheetFunction.CountA(Range("A2:T2"))

cofka = Arkusz1.Cells(1, 11).value

vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka



zest = Application.WorksheetFunction.CountA(Range("A2:A65536"))

If zest = 0 Then MsgBox " Nie ma żadnych danych do obliczen ,w kolumnach A~F"

If zest = 0 Then Exit Sub

LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1"))

LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V5000"))

dlzakladu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(2, 20)))

If LICZB_GRY = 80 Then histdozw = 20

If (LICZB_GRY = 49) And (dlzakladu = 6) Then histdozw = 100

If (LICZB_GRY = 49) And (dlzakladu = 4) Then histdozw = 40

If (LICZB_GRY = 49) And (dlzakladu = 3) Then histdozw = 70



If LICZB_GRY = 80 Then maxdozw = 18

If LICZB_GRY = 80 Then mindozw = 16

If (LICZB_GRY = 49) And (dlzakladu = 6) Then maxdozw = 98

If (LICZB_GRY = 49) And (dlzakladu = 6) Then mindozw = 86

If (LICZB_GRY = 49) And (dlzakladu = 4) Then maxdozw = 399

If (LICZB_GRY = 49) And (dlzakladu = 4) Then mindozw = 350

If (LICZB_GRY = 49) And (dlzakladu = 3) Then maxdozw = 55

If (LICZB_GRY = 49) And (dlzakladu = 3) Then mindozw = 40

tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, 100)).value

tabkomb = Range(Cells(2, 1), Cells(zest + 1, SKREsLEn)).value

If zest > 1 Then TABONT = Range(Cells(2, 23), Cells(zest + 1, 23)).value

If zest = 1 Then TABONT = Range(Cells(2, 23), Cells(zest, 23)).value

1







'gps losowan

ReDim tabgps(vlos, LICZB_GRY)

'Range("W2:W65536") = ""

Range("V2:V65536") = ""

For los = vlos To 1 Step -1

For liczba = 1 To LICZB_GRY







tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba)

If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1







Next liczba



Next los



ReDim tabok(65536, 0)

'obliczenie oczek na 4trafne

For z = 1 To zest

If SKREsLEn >= 1 Then l1 = tabkomb(z, 1)

If SKREsLEn >= 2 Then l2 = tabkomb(z, 2)

If SKREsLEn >= 3 Then l3 = tabkomb(z, 3)

If SKREsLEn >= 4 Then l4 = tabkomb(z, 4)

If SKREsLEn >= 5 Then l5 = tabkomb(z, 5)

If SKREsLEn >= 6 Then l6 = tabkomb(z, 6)

If SKREsLEn >= 7 Then l7 = tabkomb(z, 7)

If SKREsLEn >= 8 Then l8 = tabkomb(z,

If SKREsLEn >= 9 Then l9 = tabkomb(z, 9)

If SKREsLEn >= 10 Then l10 = tabkomb(z, 10)

If SKREsLEn >= 11 Then l11 = tabkomb(z, 11)

If SKREsLEn >= 12 Then l12 = tabkomb(z, 12)

If SKREsLEn >= 13 Then l13 = tabkomb(z, 13)

If SKREsLEn >= 14 Then l14 = tabkomb(z, 14)

If SKREsLEn >= 15 Then l15 = tabkomb(z, 15)

If SKREsLEn >= 16 Then l16 = tabkomb(z, 16)

If SKREsLEn >= 17 Then l17 = tabkomb(z, 17)

If SKREsLEn >= 18 Then l18 = tabkomb(z, 18)

If SKREsLEn >= 19 Then l19 = tabkomb(z, 19)

If SKREsLEn >= 20 Then l20 = tabkomb(z, 20)





For spr = vlos To 1 Step -1



s = 0

s = tabgps(spr, l1) + tabgps(spr, l2) + tabgps(spr, l3) + tabgps(spr, l4) + tabgps(spr, l5) + tabgps(spr, l6) _

+ tabgps(spr, l7) + tabgps(spr, l8) + tabgps(spr, l9) + tabgps(spr, l10) + tabgps(spr, l11) + tabgps(spr, l12) _

+ tabgps(spr, l13) + tabgps(spr, l14) + tabgps(spr, l15) + tabgps(spr, l16) + tabgps(spr, l17) + tabgps(spr, l18) _

+ tabgps(spr, l19) + tabgps(spr, l20)









If s >= 2 Then TABONT(z, 1) = vlos - spr 'obliczenie oczek na 2trafne

If (s >= 2) And (TABONT(z, 1) <= maxdozw) And (TABONT(z, 1) >= mindozw) Then tabok(z - 1, 0) = histdozw - TABONT(z, 1)

If s >= 2 Then Exit For



If spr = vlos Then TABONT(z, 1) = "Brak"

Next spr

Next z

Range(Cells(2, 22), Cells(zest + 1, 22)) = TABONT 'wypis ont

'Range(Cells(2, 23), Cells(zest + 1, 23)) = tabok

'sortONT3_MALEJĄCO



End Sub





makra dla sortowań maximum minimum



Sub sortONT2_ROSNĄCO()

Range("A2", Cells(Rows.Count, 1).End(xlUp).Offset(0, 255)).Sort Key1:=Range("V2"), Order1:=xlDescending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Sub sortONT3_MALEJĄCO()

Range("A2", Cells(Rows.Count, 1).End(xlUp).Offset(0, 255)).Sort Key1:=Range("W2"), Order1:=xlAscending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub





MLRandom



no ciekawym czy to zaimplementujesz i odpalisz



podaj czas przeliczeń .......przy okazji





no to tyle







--- wpis edytowano 2017-09-05 12:58 ---

2017-09-05 (13:21)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 108 591
[ CZCIONKA MONOSPACE ]

@777ch, wielkie dzięki

Kod wkleił się w edytor VBA, ale widzę jakieś "krzaczki" edycyjne. Chyba trochę mi zajmie sprawienie by to ruszyło. Ale spoko, damy radę

Nie daje mi spokoju redukcja zakresu z 42 do 35 liczb, a najlepiej do 28. Tak sobie pomyślałem, czy nie dałoby się wykorzystać sposobu wyznaczania nietrafionych 2/5 do badania nasycenia nimi poszczególnych 6 grup 7-mio liczbowych (1-7, 8-15 itd). Jeśliby udało się znaleźć jakąś korelacje między ilością i "jakością" (czas oczekiwania?) "2/5" w poszczególnych grupach, co pozwoliłoby skuteczniej niż los (tj. lepiej niż 40%) typować grupę 7mioliczbową do wyrzucenia, to byłoby .... super Potem wróciłoby się do analizy "2/5" tylko w oparciu o 35 liczb (a być może 28). To by zredukowało pulę piątek "do obserwacji"

Byłby kłopot dla Ciebie, zbadanie tej zależności (2/5 w grupach 7-mio liczbowych)?
2017-09-05 (13:30)

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

1386
wpis nr 1 108 592
[ CZCIONKA MONOSPACE ]

a dodam jeszcze



Losowań z {ont2z5} =[0]...[103]-przypadków

Losowań z {ont2z5} =[1]...[89]-przypadków

Losowań z {ont2z5} =[2]...[85]-przypadków

Losowań z {ont2z5} =[3]...[74]-przypadków

Losowań z {ont2z5} =[4]...[66]-przypadków

Losowań z {ont2z5} =[5]...[52]-przypadków

Losowań z {ont2z5} =[6]...[49]-przypadków

Losowań z {ont2z5} =[7]...[55]-przypadków

Losowań z {ont2z5} =[8]...[45]-przypadków

Losowań z {ont2z5} =[9]...[32]-przypadków

Losowań z {ont2z5} =[10]...[41]-przypadków

Losowań z {ont2z5} =[11]...[28]-przypadków

Losowań z {ont2z5} =[12]...[23]-przypadków

Losowań z {ont2z5} =[13]...[26]-przypadków

Losowań z {ont2z5} =[14]...[26]-przypadków

Losowań z {ont2z5} =[15]...[19]-przypadków

Losowań z {ont2z5} =[16]...[18]-przypadków

Losowań z {ont2z5} =[17]...[12]-przypadków

Losowań z {ont2z5} =[18]...[14]-przypadków

Losowań z {ont2z5} =[19]...[14]-przypadków

Losowań z {ont2z5} =[20]...[14]-przypadków

Losowań z {ont2z5} =[21]...[12]-przypadków

Losowań z {ont2z5} =[22]...[13]-przypadków

Losowań z {ont2z5} =[23]...[5]-przypadków

Losowań z {ont2z5} =[24]...[11]-przypadków

Losowań z {ont2z5} =[25]...[6]-przypadków

Losowań z {ont2z5} =[26]...[6]-przypadków

Losowań z {ont2z5} =[27]...[9]-przypadków

Losowań z {ont2z5} =[28]...[2]-przypadków

Losowań z {ont2z5} =[29]...[6]-przypadków

Losowań z {ont2z5} =[30]...[3]-przypadków

Losowań z {ont2z5} =[31]...[5]-przypadków

Losowań z {ont2z5} =[32]...[6]-przypadków

Losowań z {ont2z5} =[33]...[3]-przypadków

Losowań z {ont2z5} =[34]...[6]-przypadków

Losowań z {ont2z5} =[35]...[1]-przypadków

Losowań z {ont2z5} =[36]...[3]-przypadków

Losowań z {ont2z5} =[37]...[3]-przypadków

Losowań z {ont2z5} =[38]...[2]-przypadków

Losowań z {ont2z5} =[39]...[3]-przypadków

Losowań z {ont2z5} =[40]...[2]-przypadków

Losowań z {ont2z5} =[41]...[1]-przypadków

Losowań z {ont2z5} =[43]...[1]-przypadków

Losowań z {ont2z5} =[44]...[1]-przypadków

Losowań z {ont2z5} =[46]...[2]-przypadków

Losowań z {ont2z5} =[50]...[1]-przypadków

Losowań z {ont2z5} =[56]...[1]-przypadków

Losowań z {ont2z5} =[68]...[1]-przypadków



oczywiście im wyższe oczekiwanie tym mniejszy zbiór



mimo iż 103x na 1000 zwycięża Ont2=0

czyli co najmniej 2 liczby były w poprzednim

losowaniu,to jednak......największy zbiór

46800 kombinacji jeśli dokładnie 2 w zbiorze
2017-09-05 (13:33)

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

1386
wpis nr 1 108 593
[ CZCIONKA MONOSPACE ]

MLRandom



Dla mnie nie ma żadnego kłopotu z niczym ,ale .....

muszę mieć czarno na białym dokładnie

czyli bardzo precyzyjnie opisane o co chodzi

i co należy zbadać......

jedynie problem mały to czas.
2017-09-05 (13:41)

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

1386
wpis nr 1 108 595
[ CZCIONKA MONOSPACE ]

makra maja odwołanie do cofnięcia obliczeń w czasie



cofka = Arkusz1.Cells(1, 11).value



Baza losowań arkusz2





2017-09-05 (13:52)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 108 597
[ CZCIONKA MONOSPACE ]

@777ch, generalnie sam trochę poruszam się po omacku

Widzę 6 worków, z których co najmniej jeden co losowanie jest odrzucany. Chciałbym za pomocą jakiegoś "narzędzia" zbadać te worki, by sprawdzić, czy odrzucane worki coś łączy (częściej niż 40% przypadków), bądź sprawdzić, czy jest jakiś element łączący worki, które pozostają w grze.

Mam ogólny pomysł, by wrzucać do worków "jakieś rzeczy" i sprawdzać, czy pojawi się jakaś wyraźna korelacja. Podsunąłeś mi pomysł z parkami, ale to mogą trójki, czwórki czy cokolwiek innego, co można wykorzystać jako "barwnik" w badaniu

Chciałbym po prostu sprawdzić, czy istnieje "coś", co wrzucone do sześciu worków pozwoli minimum jeden z worków odrzucić z losowania i zrobić to ze skutecznością większą niż ok 40% losowej eliminacji.

Na początek wrzuciłbym do 6 worków parki, z których minim 1 liczba zawiera się w worku (np. 1-7), potem wyjmowałbym te parki z worków i badał je np. pod kątem ilości, oczekiwania na wystąpienie, sum, parzystości itd. I szukałbym jakiś uchwytnych korelacji

Zadanie w sam raz dla sztucznej inteligencji (sieci neuronowej)
2017-09-05 (13:54)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 108 598
[ CZCIONKA MONOSPACE ]

o, dzięki za podpowiedź odnośnie arkusza
2017-09-05 (14:34)

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

1386
wpis nr 1 108 605
[ CZCIONKA MONOSPACE ]

MLRandom



Nic niestety nie doradzę , sam dojdziesz do własnych wniosków.

I co ci po 28 liczbach ,kupon tego nie przyjmie.

Chyba że chcesz wygrywać "wirtualnie".



2017-09-05 (16:50)

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

1386
wpis nr 1 108 626
[ CZCIONKA MONOSPACE ]

MLRandom

te makra są sprzed wielu lat ,to były takie ..... pierwsze kroki

jak sobie poradzisz to napisz.....
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 12 13 14 ... 24 25
Wyślij wiadomość do admina