Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 207 208 209 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-04-12 (19:32)

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

14865
wpis nr 1 161 367
[ CZCIONKA MONOSPACE ]

qbam>



"Losowanie Lotto mogłoby wyglądać tak:

W urnie mamy 13983816 ponumerowanych kartoników.

Dziecko losuje 1. "



Ty to nie masz litości.

Wyobrażasz sobie pracę komisji sprawdzającej czy w urnie znajdują się kartoniki z wszystkimi możliwymi układami numerków ?

2018-04-12 (19:36)

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

13094
wpis nr 1 161 369
[ CZCIONKA MONOSPACE ]

Jednoreki bandyta i 13 milionow mozliwych kombinacji zatrzymania maszyny,,, i po co tu dzieci?
2018-04-12 (19:55)

status Robin Hood
Data rejestracji: 2009-07-12
Ilość postów: 7786

4895
wpis nr 1 161 380
[ CZCIONKA MONOSPACE ]

>>> Temat nieco przygotowałem już wcześniej lecz napisze to jutro.

Myślę że warto gdyż da częściowo odpowiedź na to co napisał kleszek. <<<

Robin



>>Odpowiedź to się daje na pytanie, a ja nie przypominam sobie abym o coś sie pytał. Z postem można się nie zgadzać, ale wtedy podejmuje się polemikę. <<



Niekoniecznie.

Od dwóch lat toczy się dyskusja kto wygra przyszłe wybory,

są prowadzone odpowiednie sondaże ,

jedni twierdza to a drudzy owo.

Jedni pytają samych siebie a drudzy publicznie się wypowiadają.

Tak czy siak ostateczną odpowiedź uzyskamy po podliczeniu głosów wyborców

bez względu jakie były sondaże czy też kto głośniej publicznie polemizował z przeciwnikiem.



Nie musiałeś pytać jak piszesz ,napisałeś publicznie swoją wypowiedź a ja być może

znam na to częściowo odpowiedź.



Czy całe to forum to przypadkiem "nie kończąca się polemika ?"





>>Dzień już się zbliża ku końcowi. Z zapartym tchem czekam na ... właściwie to nie wiem na co Może się doczekam <<



Dziś już na pewno nie ,mam pilne sprawy i nie zbiorę tego materiału w jedną całość.



P.S

Przejrzyj sobie w międzyczasie temat Mariusza

niemal 15 lat prowadził polemikę

o wyższości świętowania sieci neuronowych nad świętowaniem losowości



2018-04-12 (20:34)

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

1386
wpis nr 1 161 396
[ CZCIONKA MONOSPACE ]

qbam

Jak dotknąć we właściwy sposób stopnia skoligacenia się kombinacji?



To jest pytanie dobre.... które ma również wiele ,albo bardzo wiele odpowiedzi,

może kiedyś coś o tym napiszę,

bo to jest problem,

który jest jednocześnie kluczem do tworzenia rozpisów.

Może kiedyś.....



2018-04-12 (20:44)

status Robin Hood
Data rejestracji: 2009-07-12
Ilość postów: 7786

4895
wpis nr 1 161 407
[ CZCIONKA MONOSPACE ]

>>Siła rozpisu ,zależy głównie od pokrycia ,ale sam testuję ,

bo nie mam jakiejś specjalnej tajemnej wiedzy ,

oprócz tego co wyskoczy jako wynik obliczeń,czyli gwarancje.....

nie zastanawiałem się nigdy nad tym<<

777ch ....10.04.18



>>Jak dotknąć we właściwy sposób stopnia skoligacenia się kombinacji?

może kiedyś coś o tym napiszę,

bo to jest problem,

który jest jednocześnie kluczem do tworzenia rozpisów.

Może kiedyś..... <<

777ch ... 12.04.18





Widzę postępy .

Zaczynasz wreszcie się zastanawiać.

Już nie wystarczają wyniki jakie wyskakują po wyliczeniu gwarancji?
2018-04-13 (09:21)

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

2047
wpis nr 1 161 533
[ CZCIONKA MONOSPACE ]

Robin Hood napisał cyt. "Nie musiałeś pytać jak piszesz ,napisałeś publicznie swoją wypowiedź a ja być może

znam na to częściowo odpowiedź. "

Masz ewidentne problemy ze zrozumieniem języka polskiego. Skoro jak piszesz moja "wypowiedź jest publiczna", to możesz ją komentować, polemizować z nią, ale na pewno nie odpowiadać na pytanie, którego nie było. Twoje jakieś idiotyczne analogie do sondaży, wyborów zupełnie nia mają żadnego odniesienia do mojej wypowiedzi

>>Odpowiedź to się daje na pytanie, a ja nie przypominam sobie abym o coś sie pytał. Z postem można się nie zgadzać, ale wtedy podejmuje się polemikę. <<

na którą się powołujesz. Kończąc ten off-topic, znając Twoje posty, zarówno z poprzedniego wcielena pisane pod nickiem pistolecika kaliber 007, jak też aktualnym, byłbyś ostatnią osobą na tym forum od której oczekiwałbym jakiejś odpowiedzi na moje ewentualne pytanie.
2018-04-13 (10:21)

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

1386
wpis nr 1 161 547
[ CZCIONKA MONOSPACE ]

Robin rozumie po prostu"po swojemu"



niby siła rozpisu ma coś wspólnego z skoligaceniem ..

Ma i nie ma ...... pozornie ma...

a przykład prosty podam



dwa rozpisy



jeden rekordowy

7584 ≤ C(80,10,4) ≤ 15633

Created by: Pio Leonardi



https://www.ccrwest.org/cover/show_cover.php?v=80&k=10&t=4



----- Zestawienie Trafień 15633 kombinacji z pliku

7584 ≤ C(80,10,4) ≤ 15633 = 100% pokrycia 4-ek

Created by: Pio Leonardi -----

Trafienia w zakresie los. 10864 ~ 10765

[100 ]-los. 2018-04-09 ~ 2018-02-18



Trafień 0|10 = 71331

Trafień 1|10 = 280569

Trafień 2|10 = 461667

Trafień 3|10 = 418877

Trafień 4|10 = 230334

Trafień 5|10 = 80102

Trafień 6|10 = 17852

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

Trafień 7|10 = 2344

Trafień 8|10 = 213

Trafień 9|10 = 11

Trafień 10|10 = 0



======================================================================



drugi to moja układanka........

----- Zestawienie Trafień 850 kombinacji z pliku leo10.txt -----

Trafienia w zakresie los. 10869 ~ 10770

[100 ]-los. 2018-04-11 ~ 2018-02-21



Trafień 0|10 = 3960

Trafień 1|10 = 15075

Trafień 2|10 = 25275

Trafień 3|10 = 22693

Trafień 4|10 = 12494

Trafień 5|10 = 4374

Trafień 6|10 = 984

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

Trafień 7|10 = 122

Trafień 8|10 = 23

Trafień 9|10 = 0

Trafień 10|10 = 0

======================================================================



No i w którym jest większa ....siła rozpisu

W tym rekordowym,który pokrywa wszystkie czwórki z 80 liczb

i daje gwarancję [4] if trafione 4-liczby

czy w tym mniejszym,

którego gwarancja wynosiła o ile dobrze pamiętam 11,28 %



Teraz padnie pytanie ....co to jest siła rozpisu
2018-04-13 (10:35)

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

1386
wpis nr 1 161 551
[ CZCIONKA MONOSPACE ]

Kleszek



Myślę w takim kierunku,aby stały zbiór ,poddać weryfikacji na "przed grą"

tu jest jednak duże spektrum,no bo jakie zastosować kryterium weryfikacji,

czy sumy wygranych,czy sumy oczekiwań ,czy frekwencje wystąpień liczb ,

a może stopień skoligacenia z np 2~3-ma ostatnimi losowaniami

no i wybrać załogę,czyli np 20-zakładów ,

coś w tym jest ,

zwłaszcza gdy zbiór zawiera wszystkie 80-liczb.



A przecież zbiór można poddać takiej manipulacji ,

aby był historycznie wypasiony,albo odwrotnie.....



Zatem badania .... trwają
2018-04-13 (10:50)

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

2047
wpis nr 1 161 555
[ CZCIONKA MONOSPACE ]

>>> Teraz padnie pytanie ....co to jest siła rozpisu <<<



Moja odpowiedź na to pytanie jest taka : o sile rozpisu moim zdaniem świadczy porównanie ilości trafień, w stosunku do teoretycznego wyliczonego wzorem modelu wypadnięć trafień w określonym przedziale losowań. Rozpisy można sprawdzać na rzeczywistej bazie losowań, jak też tej wygenerowanej losowo. Ma to oczywiście sens tylko w przypadku, gdy rozpis zawiera wszystkie liczby biorące udział w grze. W każdym innm przypadku to jest tylko matryca służąca do podstawiania swoich własnych liczb. Oczywiście matrycę też można potraktować jako gotowy rozpis liczbowy składający się np. z liczb 1-18 i sprawdzić rozpis z bazą losowań. Jeżeli w testach system wykaże jakiś nadmiar trafień w stosunku do modelu teoretycznego, to mamy dobry system dla określonej ilości trafień liczb w systemie. Możesz oczywiście nie zgadzać się z moją wypowiedzią i podjąć polemikę

Oczywiście żeby sprawdzać takie rzeczy, to trzeba mieć odpowiednie narzędzia. Stąd pytanie, czy taka maszynka licząca takie rzeczy jak :

Zestawienie Trafień 850 kombinacji z pliku leo10.txt -----

Trafienia w zakresie los. 10869 ~ 10770

[100 ]-los. 2018-04-11 ~ 2018-02-21



Trafień 0|10 = 3960 itd. to narzędzie "no public" ?, czy coś co możesz udostępnić ?
2018-04-13 (10:57)

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

1386
wpis nr 1 161 557
[ CZCIONKA MONOSPACE ]

Stąd pytanie, czy taka maszynka licząca takie rzeczy jak :

Zestawienie Trafień 850 kombinacji z pliku leo10.txt -----

Trafienia w zakresie los. 10869 ~ 10770

[100 ]-los. 2018-04-11 ~ 2018-02-21



Trafień 0|10 = 3960 itd. to narzędzie "no public" ?, czy coś co możesz udostępnić ?



=========================================================



no to ma już 8 lat,ale nie chciało mi się poprawiać

bo działa w miarę ......

jak chcesz sie pobawić,i zmodyfikować albo poprawić czy ulepszyć to

nie mam nic przeciwko

wstawiam to makro......wiekowe





Sub sprawdzanieTrafieńwwięcejlosowanpliku()



Dim stoper As Date, czas As String

Dim ile_sprawdzam As Integer

Dim data, nrlos, vlos, zestawów, vspr, max6, TRAF6, nn As Long

Dim l1, l2, l3, l4, l5, l6, l7, l8, l9, l10 As Byte

Dim fs, ab

Dim skresl As Byte

Dim tabbest6() As String

Dim cofnięcie_obliczen As Integer

Dim s As Byte

Dim v As Integer

Dim wygr, koszty As Long

'Arkusz20.Activate



Dim AWW

Set fs = CreateObject("Scripting.FileSystemObject")

'Set AWW = fs.CreateTextFile(ThisWorkbook.Path & "/" & "TrafieńIA.txt", True)



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

vspr = Arkusz20.Cells(1, 1).value

nn = 0

skresl = Arkusz20.Cells(1, 3).value

cofnięcie_obliczen = Arkusz20.Cells(1, 4).value

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

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

vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofnięcie_obliczen

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

ile_sprawdzam = Arkusz20.Cells(1, 9).value - 1

If skresl = 18 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Leo18.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 16 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Leo16.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 12 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Leo12.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 10 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w leo10.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 7 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Siódemki.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 6 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Leo6.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 5 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Piątki.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 4 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Czwórki.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 3 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Trójki.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"

If skresl = 2 Then Arkusz20.Cells(8, 3) = "--- Obliczam traf.w Pary.txt zakresie losowan " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ] los. ---"



stoper = Timer





'DANE LOSOWAn GPS







ReDim tabgps(vlos, LICZB_GRY)



For LOS = vlos To vlos - ile_sprawdzam 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



'WPISANO DANE do tablicy losowan GPS



ReDim tabbest6(1000000, 1)





tr20 = 0

tr19 = 0

tr18 = 0

tr17 = 0

tr16 = 0

tr15 = 0

tr14 = 0

tr13 = 0

tr12 = 0

tr11 = 0

tr10 = 0

tr9 = 0

tr8 = 0

tr7 = 0

tr6 = 0

tr5 = 0

tr4 = 0

tr3 = 0

tr2 = 0

tr1 = 0

tr0 = 0

max6 = 0

stoper = Timer







Const ForReading = 1



Set objFSO = CreateObject("Scripting.FileSystemObject")

If skresl = 35 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "leo35.txt", ForReading)

If skresl = 20 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo20.txt", ForReading)

If skresl = 19 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo19.txt", ForReading)

If skresl = 18 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo18.txt", ForReading)

If skresl = 16 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo16.txt", ForReading)

If skresl = 14 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo14.txt", ForReading)

If skresl = 13 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo13.txt", ForReading)

If skresl = 12 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo12.txt", ForReading)

If skresl = 11 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo11.txt", ForReading)

If skresl = 10 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo10.txt", ForReading)

If skresl = 9 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo9.txt", ForReading)

If skresl = 8 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo8.txt", ForReading)

If skresl = 7 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo7.txt", ForReading)

If skresl = 6 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Leo6.txt", ForReading)

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

If skresl = 4 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "leo4.txt", ForReading)

If skresl = 3 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "leo3.txt", ForReading)

If skresl = 2 Then Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "Pary.txt", ForReading)

Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ")

i = i + 1



s = 0

l1 = arrLine(0)

l2 = arrLine(1)

If skresl >= 3 Then l3 = arrLine(2)

If skresl >= 4 Then l4 = arrLine(3)

If skresl >= 5 Then l5 = arrLine(4)

If skresl >= 6 Then l6 = arrLine(5)

If skresl >= 7 Then l7 = arrLine(6)

If skresl >= 8 Then l8 = arrLine(7)

If skresl >= 9 Then l9 = arrLine(8)

If skresl >= 10 Then l10 = arrLine(9)

If skresl >= 11 Then l11 = arrLine(10)

If skresl >= 12 Then l12 = arrLine(11)

If skresl >= 13 Then l13 = arrLine(12)

If skresl >= 14 Then l14 = arrLine(13)

If skresl >= 15 Then l15 = arrLine(14)

If skresl >= 16 Then l16 = arrLine(15)

If skresl >= 17 Then l17 = arrLine(16)

If skresl >= 18 Then l18 = arrLine(17)

If skresl >= 19 Then l19 = arrLine(18)

If skresl >= 20 Then l20 = arrLine(19)

If skresl >= 21 Then l21 = arrLine(20)

If skresl >= 22 Then l22 = arrLine(21)

If skresl >= 23 Then l23 = arrLine(22)

If skresl >= 24 Then l24 = arrLine(23)

If skresl >= 25 Then l25 = arrLine(24)

If skresl >= 26 Then l26 = arrLine(25)

If skresl >= 27 Then l27 = arrLine(26)

If skresl >= 28 Then l28 = arrLine(27)

If skresl >= 29 Then l29 = arrLine(28)

If skresl >= 30 Then l30 = arrLine(29)

If skresl >= 31 Then l31 = arrLine(30)

If skresl >= 32 Then l32 = arrLine(31)

If skresl >= 33 Then l33 = arrLine(32)

If skresl >= 34 Then l34 = arrLine(33)

If skresl >= 35 Then l35 = arrLine(34)

If skresl >= 36 Then l36 = arrLine(35)

If skresl >= 37 Then l37 = arrLine(36)

If skresl >= 38 Then l38 = arrLine(37)

If skresl >= 39 Then l39 = arrLine(38)

If skresl >= 40 Then l40 = arrLine(39)

If skresl >= 41 Then l41 = arrLine(40)

If skresl >= 42 Then l42 = arrLine(41)











TRAF6 = 0

tr20 = 0

For nlos = vlos To vlos - ile_sprawdzam Step -1



s = 0









If skresl = 42 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14) _

+ tabgps(nlos, l15) + tabgps(nlos, l16) + tabgps(nlos, l17) + tabgps(nlos, l18) _

+ tabgps(nlos, l19) + tabgps(nlos, l20) + tabgps(nlos, l21) + tabgps(nlos, l22) _

+ tabgps(nlos, l23) + tabgps(nlos, l24) + tabgps(nlos, l25) + tabgps(nlos, l26) _

+ tabgps(nlos, l27) + tabgps(nlos, l28) + tabgps(nlos, l29) + tabgps(nlos, l30) _

+ tabgps(nlos, l31) + tabgps(nlos, l32) + tabgps(nlos, l33) + tabgps(nlos, l34) _

+ tabgps(nlos, l35) + tabgps(nlos, l36) + tabgps(nlos, l37) + tabgps(nlos, l38) _

+ tabgps(nlos, l39) + tabgps(nlos, l40) + tabgps(nlos, l41) + tabgps(nlos, l42)



If skresl = 35 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14) _

+ tabgps(nlos, l15) + tabgps(nlos, l16) + tabgps(nlos, l17) + tabgps(nlos, l18) _

+ tabgps(nlos, l19) + tabgps(nlos, l20) + tabgps(nlos, l21) + tabgps(nlos, l22) _

+ tabgps(nlos, l23) + tabgps(nlos, l24) + tabgps(nlos, l25) + tabgps(nlos, l26) _

+ tabgps(nlos, l27) + tabgps(nlos, l28) + tabgps(nlos, l29) + tabgps(nlos, l30) _

+ tabgps(nlos, l31) + tabgps(nlos, l32) + tabgps(nlos, l33) + tabgps(nlos, l34) _

+ tabgps(nlos, l35)











If skresl = 20 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14) _

+ tabgps(nlos, l15) + tabgps(nlos, l16) + tabgps(nlos, l17) + tabgps(nlos, l18) + tabgps(nlos, l19) + tabgps(nlos, l20) _



If skresl = 19 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14) _

+ tabgps(nlos, l15) + tabgps(nlos, l16) + tabgps(nlos, l17) + tabgps(nlos, l18) + tabgps(nlos, l19)



If skresl = 18 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14) _

+ tabgps(nlos, l15) + tabgps(nlos, l16) + tabgps(nlos, l17) + tabgps(nlos, l18)



If skresl = 16 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14) _

+ tabgps(nlos, l15) + tabgps(nlos, l16)





If skresl = 14 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13) + tabgps(nlos, l14)



If skresl = 13 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12) + tabgps(nlos, l13)









If skresl = 12 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10) _

+ tabgps(nlos, l11) + tabgps(nlos, l12)













If skresl = 10 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9) + tabgps(nlos, l10)





If skresl = 9 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8) + tabgps(nlos, l9)





If skresl = 8 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7) + tabgps(nlos, l8)



If skresl = 7 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6) + tabgps(nlos, l7)



If skresl = 6 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5) + tabgps(nlos, l6)



If skresl = 5 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4) _

+ tabgps(nlos, l5)



If skresl = 4 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3) + tabgps(nlos, l4)



If skresl = 3 Then s = tabgps(nlos, l1) + tabgps(nlos, l2) + tabgps(nlos, l3)



If skresl = 2 Then s = tabgps(nlos, l1) + tabgps(nlos, l2)







If s = 0 Then tr0 = tr0 + 1

If s = 1 Then tr1 = tr1 + 1

If s = 2 Then tr2 = tr2 + 1

If s = 3 Then tr3 = tr3 + 1

If s = 4 Then tr4 = tr4 + 1

If s = 5 Then tr5 = tr5 + 1

If s = 6 Then tr6 = tr6 + 1

If s = 9 Then TRAF6 = TRAF6 + 1

If s = 7 Then tr7 = tr7 + 1

If s = 8 Then tr8 = tr8 + 1

If s = 9 Then tr9 = tr9 + 1

If s = 10 Then tr10 = tr10 + 1

If s = 11 Then tr11 = tr11 + 1

If s = 12 Then tr12 = tr12 + 1

If s = 13 Then tr13 = tr13 + 1

If s = 14 Then tr14 = tr14 + 1

If s = 15 Then tr15 = tr15 + 1

If s = 16 Then tr16 = tr16 + 1

If s = 17 Then tr17 = tr17 + 1

If s = 18 Then tr18 = tr18 + 1

If s = 19 Then tr19 = tr19 + 1

If s >= 8 Then tr20 = tr20 + 1

















Next nlos

GoTo 333

If tr20 = 0 Then

nn = nn + 1

Cells(3, 1) = nn

Cells(3, 2) = i

If nn < 65000 Then

Arkusz1.Cells(1 + nn, 1) = l1

Arkusz1.Cells(1 + nn, 2) = l2

Arkusz1.Cells(1 + nn, 3) = l3

Arkusz1.Cells(1 + nn, 4) = l4

Arkusz1.Cells(1 + nn, 5) = l5

Arkusz1.Cells(1 + nn, 6) = l6

Arkusz1.Cells(1 + nn, 7) = l7

Arkusz1.Cells(1 + nn, = l8

Arkusz1.Cells(1 + nn, 9) = l9

Arkusz1.Cells(1 + nn, 10) = l10

Arkusz1.Cells(1 + nn, 11) = l11

Arkusz1.Cells(1 + nn, 12) = l12

Arkusz1.Cells(1 + nn, 13) = l13

Arkusz1.Cells(1 + nn, 14) = l14

Arkusz1.Cells(1 + nn, 15) = l15

Arkusz1.Cells(1 + nn, 16) = l16



End If

End If

'If TRAF6 < 1 Then GoTo 333

'GoTo 333

'With AWW

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

' End With



333

'TRAF6 = 0

Loop

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

If skresl = 35 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku leo35.txt. --- zakonczone "

If skresl = 18 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo18.txt. --- zakonczone "

If skresl = 16 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo16.txt. --- zakonczone "

If skresl = 12 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo12.txt. --- zakonczone "

If skresl = 10 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku leo10.txt. --- zakonczone "

If skresl = 9 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo9.txt. --- zakonczone "

If skresl = 8 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo8.txt. --- zakonczone "

If skresl = 7 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo7.txt. --- zakonczone "

If skresl = 6 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Leo6.txt. --- zakonczone "

If skresl = 5 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku leo5.txt. --- zakonczone "

If skresl = 4 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Czwórki.txt. --- zakonczone "

If skresl = 3 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku leo3.txt. --- zakonczone "

If skresl = 2 Then Arkusz20.Cells(8, 3) = " Obliczanie Trafień " & i & " zestawów z pliku Pary.txt. --- zakonczone "



If skresl = 35 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku leo35.txt -----"

If skresl = 18 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo18.txt -----"

If skresl = 16 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo16.txt -----"

If skresl = 12 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo12.txt -----"

If skresl = 11 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku leo11.txt -----"

If skresl = 10 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku leo10.txt -----"

If skresl = 9 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo9.txt -----"

If skresl = 8 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo8.txt -----"

If skresl = 7 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo7.txt -----"

If skresl = 6 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Leo6.txt -----"

If skresl = 5 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Piątki.txt -----"

If skresl = 4 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Czwórki.txt -----"

If skresl = 3 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku leo3.txt -----"

If skresl = 2 Then Arkusz20.Cells(13, 3) = " ----- Zestawienie Trafień " & i & " kombinacji z pliku Pary.txt -----"





Arkusz20.Cells(14, 3) = " Trafienia w zakresie los. " & vlos & " ~ " & vlos - ile_sprawdzam & " [" & ile_sprawdzam + 1 & " ]-los. " _

& " " & Arkusz2.Cells(vlos, 2).value & " ~ " & Arkusz2.Cells(vlos - ile_sprawdzam, 2).value '& " [ Spr.wstecz = " & cofnięcie_obliczen & " ]"



Arkusz20.Cells(16, 3) = " Trafień 0|" & skresl & " = " & tr0

Arkusz20.Cells(17, 3) = " Trafień 1|" & skresl & " = " & tr1

Arkusz20.Cells(18, 3) = " Trafień 2|" & skresl & " = " & tr2

Arkusz20.Cells(18, 4) = tr2

Arkusz20.Cells(19, 4) = tr3

Arkusz20.Cells(20, 4) = tr4

Arkusz20.Cells(21, 4) = tr5

Arkusz20.Cells(22, 4) = tr6

Arkusz20.Cells(23, 4) = tr7

Arkusz20.Cells(24, 4) = tr8

If skresl >= 3 Then Arkusz20.Cells(19, 3) = " Trafień 3|" & skresl & " = " & tr3

If skresl >= 4 Then Arkusz20.Cells(20, 3) = " Trafień 4|" & skresl & " = " & tr4

If skresl >= 5 Then Arkusz20.Cells(21, 3) = " Trafień 5|" & skresl & " = " & tr5

If skresl >= 6 Then Arkusz20.Cells(22, 3) = " Trafień 6|" & skresl & " = " & tr6

If skresl >= 7 Then Arkusz20.Cells(23, 3) = " Trafień 7|" & skresl & " = " & tr7

If skresl >= 8 Then Arkusz20.Cells(24, 3) = " Trafień 8|" & skresl & " = " & tr8

If skresl >= 9 Then Arkusz20.Cells(25, 3) = " Trafień 9|" & skresl & " = " & tr9

If skresl >= 10 Then Arkusz20.Cells(26, 3) = " Trafień 10|" & skresl & " = " & tr10

'If skresl >= 11 Then Arkusz20.Cells(27, 3) = " Trafień 11|" & skresl & " = " & tr11

'If skresl >= 12 Then Arkusz20.Cells(28, 3) = " Trafień 12|" & skresl & " = " & tr12

'If skresl >= 13 Then Arkusz20.Cells(21, 3) = Cells(21, 3) & " ... Trafień 13|" & skresl & " = " & tr13

'If skresl >= 14 Then Arkusz20.Cells(22, 3) = Cells(22, 3) & " ... Trafień 14|" & skresl & " = " & tr14

'If skresl >= 15 Then Arkusz20.Cells(23, 3) = Cells(23, 3) & " ... Trafień 15|" & skresl & " = " & tr15

'If skresl >= 16 Then Arkusz20.Cells(24, 3) = Cells(24, 3) & " ... Trafień 16|" & skresl & " = " & tr16

'If skresl >= 17 Then Arkusz20.Cells(25, 3) = Cells(25, 3) & " ... Trafień 17|" & skresl & " = " & tr17

'If skresl >= 18 Then Arkusz20.Cells(26, 3) = Cells(26, 3) & " ... Trafień 18|" & skresl & " = " & tr18

'If skresl >= 19 Then Arkusz20.Cells(27, 3) = Cells(27, 3) & " ... Trafień 19|" & skresl & " = " & tr19

'If skresl >= 20 Then Arkusz20.Cells(28, 3) = Cells(28, 3) & " ... Trafień 20|" & skresl & " = " & tr20

Arkusz20.Cells(28, 3) = "Koszt nadania " & i & " zestawów = [" & i * 2.5 * (ile_sprawdzam + 1) & "]-pln"



If skresl = 10 Then Arkusz20.Cells(29, 3) = "Wygrana = [" & tr4 * 2 + tr5 * 4 + tr6 * 12 + tr7 * 140 + tr8 * 520 + tr9 * 10000 + tr10 * 250000 & "]-pln"

If skresl = 9 Then Arkusz20.Cells(29, 3) = "Wygrana = [" & tr4 * 2 + tr5 * 8 + tr6 * 42 + tr7 * 300 + tr8 * 2000 + tr9 * 70000 & "]-pln"

If skresl = 8 Then Arkusz20.Cells(29, 3) = "Wygrana = [" & tr8 * 22000 + tr7 * 600 + tr6 * 60 + tr5 * 20 + tr4 * 4 & "]-pln"

If skresl = 6 Then Arkusz20.Cells(29, 3) = "Wygrana = [" & tr3 * 2 + tr4 * 8 + tr5 * 120 + tr6 * 1300 & "]-pln"

If skresl = 7 Then Arkusz20.Cells(29, 3) = "Wygrana = [" & tr7 * 6000 + tr6 * 200 + tr5 * 20 + tr4 * 4 + tr3 * 2 & "]-pln"





Arkusz20.Cells(30, 3) = " Calkowity czas obliczen = " & czas

'Range(Arkusz20.Cells(50, 1), Arkusz20.Cells(50 + nn, 1)) = tabbest6

Arkusz20.Cells(32, 3) = "Koszt calkowity gry " & ile_sprawdzam + 1 & " -losowan dla " & i & " kombinacji wyniósl: " & i * (ile_sprawdzam + 1) & " -jednostek"

If skresl = 7 Then wyg = tr7 * 6000 + tr6 * 200 + tr5 * 20 + tr4 * 4 + tr3 * 2

If skresl = 8 Then wyg = tr4 * 4 + tr5 * 20 + tr6 * 60 + tr7 * 600 + tr8 * 22000

Arkusz20.Cells(25, 4) = wyg

koszty = (ile_sprawdzam + 1) * i



End Sub

2018-04-13 (11:00)

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

1386
wpis nr 1 161 558
[ CZCIONKA MONOSPACE ]

To w pierwszej fazie było tylko do 49s ..... liczyło tylko jednostki przegrane i wygrane

dla par i trójek...... ale potem podostawiałem......no i pogmatwałem

bo to można czytelniej ......zrobić,czyli poprawić.
2018-04-13 (11:06)

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

1386
wpis nr 1 161 559
[ CZCIONKA MONOSPACE ]

GwReal.[4]= 12,1625210232805 %

x0: {1389220}

x1: [192360]

x2: [0]

x3: [0]

x4: [0]

x5: [0]

x6: [0]

x7>=7: [0]



x1: [192360] oznacza > liczba wystąpień czwórek

w tym zbiorze każda występuje zatem 1x

czyli żadna [4-ka]się nie powtarza.



to mój plik[916-kombinacji],który jednak powiększę



01 08 17 27 28 36 60 67 69 72

02 10 20 27 28 53 55 57 70 78

03 12 31 32 33 35 36 47 60 75

06 11 13 15 28 36 40 53 58 80

09 14 17 22 23 35 36 45 59 72

13 18 34 35 47 60 62 68 69 71

03 07 11 22 34 40 52 68 72 75

07 08 25 32 33 38 54 55 56 60

01 02 03 08 21 26 38 61 67 80

04 25 28 29 47 52 57 59 65 68

04 06 09 15 38 45 48 50 70 78

04 26 47 55 60 61 65 66 67 73

07 15 18 48 53 59 63 70 73 79

01 02 04 09 13 24 28 34 41 78

08 13 37 38 40 42 44 62 66 67

03 04 07 19 45 50 52 59 60 69

07 15 22 31 32 35 37 44 59 71

08 11 17 18 20 32 42 60 71 73

06 26 31 33 34 40 46 51 71 80

04 10 13 28 37 46 57 63 77 79

03 04 18 21 51 58 63 64 65 72

01 02 05 14 15 24 38 43 63 72

01 05 07 08 09 12 39 44 65 67

02 20 32 37 38 45 49 68 69 71

02 09 16 19 22 33 41 64 76 77

02 07 09 20 31 34 36 44 50 68

06 10 11 49 50 51 54 57 65 78

02 04 07 08 16 18 19 61 71 72

02 05 06 18 19 32 34 40 44 64

03 05 17 25 26 33 60 66 69 70

08 12 17 25 41 42 43 44 50 77

01 03 27 34 39 40 48 50 58 78

03 21 28 36 52 64 68 76 78 79

03 07 22 28 31 49 56 58 60 64

09 27 28 33 46 58 59 64 73 74

05 07 15 18 25 37 46 67 72 80

06 19 24 26 31 36 41 53 55 76

06 09 22 31 57 60 63 70 71 75

03 05 07 08 25 27 30 36 40 62

03 15 29 32 34 42 56 60 69 80

13 27 33 36 38 46 56 62 65 78

01 07 08 11 13 27 38 50 68 77

02 03 06 13 14 27 37 41 44 60

05 12 38 51 53 58 61 67 70 73

01 15 28 29 35 43 47 54 58 74

01 10 16 19 31 35 44 51 53 64

04 15 29 31 35 53 62 66 70 72

03 09 11 15 25 28 41 63 64 71

08 09 17 27 31 40 49 51 53 63

14 20 21 23 31 37 57 66 76 80

09 11 12 15 17 30 33 37 44 75

10 22 23 36 42 53 62 63 64 73

04 06 08 29 32 43 63 64 66 74

02 11 18 20 23 25 30 35 44 63

05 10 11 16 18 30 33 38 56 71

08 13 14 15 35 42 64 70 71 79

02 03 06 19 24 28 56 61 63 74

02 03 06 21 34 35 42 55 58 77

10 14 31 44 46 48 54 56 74 79

03 07 13 32 36 42 53 55 61 72

04 15 23 28 46 49 64 75 78 80

18 22 26 29 31 34 42 44 49 72

02 15 27 45 54 57 61 66 68 80

01 11 19 29 36 40 66 68 69 73

02 14 27 31 39 42 50 54 64 72

03 06 17 30 45 51 58 67 69 76

01 03 24 33 61 64 69 71 73 75

02 03 08 13 39 49 52 57 65 77

03 08 09 21 22 27 37 55 68 69

02 07 10 34 38 47 48 61 65 76

07 16 29 36 53 59 60 65 67 71

02 06 36 42 60 65 72 75 78 80

04 06 07 36 38 44 46 54 61 63

03 12 18 19 20 50 56 66 67 70

07 34 40 49 53 54 57 58 59 74

08 09 10 18 25 26 28 35 53 67

02 04 23 26 28 43 50 62 72 76

02 06 22 25 29 60 62 69 74 77

03 14 15 17 41 45 53 73 74 80

07 25 37 40 56 64 69 70 74 76

05 10 14 23 46 58 60 61 62 65

01 02 07 25 27 29 33 34 35 75

03 06 23 25 27 38 43 64 70 80

06 08 11 21 24 30 40 47 64 77

06 07 20 23 24 46 48 59 60 78

06 20 30 56 58 65 66 71 74 78

05 23 26 27 31 40 45 50 67 70

01 16 40 43 64 72 73 74 77 80

08 10 19 44 45 55 61 65 69 80

09 28 34 36 39 48 53 71 72 74

04 07 20 21 26 33 38 58 70 75

09 29 37 47 53 61 62 71 79 80

05 10 31 32 43 48 53 55 67 71

01 05 07 13 19 24 40 42 52 56

06 07 09 12 18 34 47 51 52 58

08 15 19 20 33 37 42 46 51 69

11 27 29 31 32 55 62 64 75 76

02 13 21 31 40 45 56 69 72 78

01 07 15 26 35 48 51 52 67 68

02 23 26 29 44 45 47 58 60 80

10 33 53 57 63 68 69 72 76 80

27 29 34 45 48 51 56 64 71 73

16 22 23 50 52 53 57 68 74 77

01 05 20 21 33 35 44 45 72 80

03 07 09 11 14 21 35 48 74 78

03 11 18 38 42 47 50 61 64 79

01 16 21 25 29 30 36 51 78 80

05 11 20 40 50 54 61 63 71 76

05 19 22 42 47 57 64 69 74 80

07 12 13 15 21 25 33 49 57 69

01 18 22 32 57 59 64 66 77 78

01 13 23 24 26 43 48 49 54 69

04 18 19 25 26 42 46 50 55 78

01 04 32 41 44 54 56 68 72 75

03 09 19 23 31 35 46 52 61 76

02 18 21 29 41 47 50 51 53 76

14 28 29 33 35 39 51 56 57 72

03 05 20 30 31 42 45 48 52 75

07 23 32 37 39 50 60 61 75 77

10 46 49 51 52 55 56 67 69 75

12 18 33 36 41 44 55 63 71 74

01 07 12 16 22 23 25 28 66 70

02 11 14 18 31 34 45 52 60 79

04 07 09 35 37 40 42 50 58 72

04 09 16 19 23 29 49 55 60 70

06 16 27 32 46 49 52 59 65 80

08 12 27 34 41 45 46 70 78 80

08 19 23 31 36 45 47 57 62 68

10 22 25 32 34 36 46 71 76 78

06 09 17 22 26 27 29 41 67 78

09 10 16 26 32 43 44 47 54 63

02 08 14 23 30 33 57 58 73 78

10 13 21 32 39 40 51 53 65 70

10 15 22 33 48 49 64 68 71 74

02 08 32 42 48 62 63 68 77 78

03 19 29 35 43 49 53 65 68 80

06 07 25 30 41 43 47 60 66 75

04 08 12 13 30 32 44 69 71 76

04 07 10 12 27 46 60 68 73 75

01 02 03 10 12 22 35 41 46 74

16 18 29 41 42 52 57 58 64 70

01 05 16 17 18 20 24 25 53 59

02 16 46 47 64 65 67 70 78 79

05 30 38 44 47 53 54 62 64 65

05 06 11 21 26 48 52 58 59 76

04 05 11 17 19 23 27 30 76 77

03 21 36 41 43 46 62 67 75 77

19 24 34 44 50 57 69 70 76 77

19 33 39 40 43 45 59 63 65 77

06 11 22 40 44 45 49 63 73 74

06 14 15 16 27 33 51 53 77 78

15 22 36 37 40 47 54 57 60 72

06 07 14 24 25 31 35 42 63 65

19 23 29 35 38 41 48 50 59 62

08 23 34 38 42 43 55 69 73 76

01 09 10 38 42 47 51 60 62 75

04 06 18 23 28 38 40 42 59 77

02 06 15 41 46 49 50 58 63 68

01 10 18 40 44 50 52 59 61 72

18 21 23 27 47 52 54 71 75 78

07 12 25 35 44 45 58 62 64 78

01 13 16 35 37 48 63 66 71 72

02 08 15 16 24 25 32 47 76 80

03 07 09 10 19 20 24 30 33 55

09 14 15 24 39 41 47 66 68 77

07 25 35 39 41 49 52 56 61 71

07 09 27 30 39 45 61 73 76 78

04 13 27 29 49 50 61 67 74 80

01 14 25 33 37 50 65 68 70 79

06 08 12 19 23 28 37 43 60 65

08 11 27 41 47 49 54 58 62 73

02 04 14 20 45 50 63 74 75 77

05 12 16 19 24 43 46 49 58 64

03 04 10 17 31 37 38 41 50 71

02 11 22 30 39 41 67 71 72 80

06 16 18 31 34 35 73 74 75 78

11 15 23 30 32 36 39 43 46 52

02 05 11 13 29 46 49 60 72 73

07 14 28 35 45 46 47 55 69 76

04 05 14 27 40 52 53 64 69 79

13 21 38 54 65 71 72 73 79 80

04 19 40 42 45 57 61 70 73 79

01 12 18 34 48 53 57 62 65 80

07 31 33 41 45 65 67 72 74 75

02 03 10 29 31 32 45 59 65 66

02 03 13 16 17 58 62 64 66 73

03 05 13 34 51 54 55 64 70 76

03 12 14 25 40 46 48 55 59 65

06 11 14 18 20 41 49 53 61 67

11 14 23 34 37 44 53 70 71 78

01 06 09 11 31 34 37 49 62 77

07 24 35 50 53 61 64 66 68 76

23 36 41 45 48 49 55 66 67 78

04 05 13 15 31 32 34 58 65 73

01 09 13 46 52 58 66 69 70 80

10 25 26 27 37 42 54 58 61 69

13 16 23 24 27 40 41 65 68 76

18 22 24 28 43 45 50 63 78 80

04 26 30 35 39 40 53 55 71 75

02 23 25 33 40 43 49 53 60 61

11 12 18 19 28 53 54 59 64 72

06 07 08 20 30 42 50 53 70 80

01 04 12 20 25 26 36 43 61 68

02 07 11 39 43 44 47 62 70 77

03 06 13 16 29 38 49 63 76 78

04 07 09 13 38 53 57 60 64 80

04 07 16 27 28 34 37 39 55 65

05 09 18 23 28 44 57 60 66 72

06 07 16 20 25 54 57 64 71 77

05 06 09 12 16 21 29 50 72 75

01 11 17 20 22 45 46 54 64 68

01 08 20 22 29 37 44 48 61 70

02 18 38 47 55 57 72 73 75 77

05 07 09 26 28 48 49 55 61 63

09 19 21 30 46 48 50 65 68 71

05 13 17 18 21 33 34 36 37 61

05 18 30 37 41 48 62 70 74 77

01 07 18 21 24 38 39 55 62 78

01 07 21 33 41 46 56 63 64 66

01 13 20 33 37 38 39 41 54 74

01 19 23 27 32 35 55 72 73 78

03 06 15 18 23 46 57 65 71 73

03 08 22 29 35 45 52 63 67 71

04 18 22 41 48 60 69 75 78 79

06 09 12 19 20 32 38 46 74 77

06 16 18 21 44 45 59 66 68 70

02 05 12 23 26 34 41 49 57 75

24 26 29 36 37 46 63 68 74 75

10 13 29 30 37 43 48 52 60 76

09 12 14 15 20 27 49 50 52 60

01 05 11 15 19 39 45 60 74 75

01 08 45 53 55 60 62 64 77 79

03 14 20 29 36 44 52 66 72 74

05 07 18 19 20 41 54 65 68 78

02 06 12 18 26 30 31 54 61 70

02 03 17 18 24 29 48 68 72 79

12 20 24 26 37 40 51 55 72 73

07 11 17 28 32 34 50 62 67 79

05 13 19 20 23 33 47 53 66 73

01 03 07 33 37 44 51 57 58 77

01 07 10 17 34 42 44 66 71 74

03 17 23 29 43 46 50 54 56 78

06 08 23 31 44 52 58 64 67 75

09 11 13 29 32 44 48 56 59 67

09 12 13 18 21 24 26 44 46 79

12 13 19 20 26 29 63 64 65 69

07 08 16 20 44 47 49 69 74 75

04 18 19 39 43 48 49 52 73 74

07 19 26 27 36 43 44 56 66 80

12 27 28 33 35 42 43 48 52 53

11 14 17 21 22 38 49 51 77 79

03 06 11 33 44 46 55 70 72 79

05 09 16 35 36 42 54 67 73 77

03 04 08 11 24 25 45 56 75 78

01 02 04 08 31 37 43 47 52 69

01 04 05 09 26 27 32 33 37 71

01 13 27 29 42 44 53 54 78 79

01 21 24 29 41 45 49 58 59 71

05 08 12 15 17 20 36 48 56 78

07 11 18 19 26 33 47 57 67 76

08 12 15 25 31 34 54 63 68 72

09 20 24 53 63 64 67 70 72 77

10 14 17 24 43 54 59 61 64 77

22 23 27 32 33 42 44 45 57 65

09 16 20 38 39 45 52 56 67 80

02 32 33 44 49 51 52 66 70 76

02 12 14 17 19 25 52 70 72 80

01 05 08 16 21 40 54 57 69 70

01 08 17 19 24 30 35 37 39 80

02 11 12 20 21 27 33 47 65 68

10 15 16 33 34 36 45 55 60 73

04 19 20 24 42 58 59 62 68 80

04 06 10 16 19 25 40 48 63 67

03 05 18 31 36 39 46 59 63 69

09 15 19 39 43 50 53 54 67 69

05 11 47 52 56 62 63 67 72 74

05 14 37 39 51 65 69 73 75 76

09 12 14 34 40 66 67 72 76 79

02 04 15 17 33 35 60 71 76 78

03 13 14 20 30 39 58 59 61 79

04 05 08 10 25 54 59 71 73 74

04 12 24 27 29 31 38 39 56 69

07 17 18 31 32 51 69 70 75 80

08 11 15 28 34 45 48 57 59 69

01 02 04 12 39 40 54 62 63 73

03 04 05 12 13 26 38 47 48 74

09 26 32 35 58 62 70 76 77 79

03 20 25 35 41 48 57 60 68 73

01 15 21 27 31 32 38 41 42 70

16 28 30 31 32 33 43 66 69 77

01 22 23 34 36 39 47 49 61 80

02 04 13 20 40 43 44 48 65 79

07 22 24 26 34 43 58 71 73 77

03 16 25 33 39 43 58 67 68 72

02 09 18 36 39 54 56 57 58 76

10 21 35 45 51 57 61 71 74 77

01 09 22 24 36 38 40 44 58 64

01 12 17 29 51 61 65 71 72 76

01 06 12 13 32 41 48 51 64 79

05 06 15 29 36 45 52 61 64 65

03 22 33 47 48 54 56 61 67 77

10 15 20 23 27 34 37 43 62 74

16 21 26 27 33 48 57 60 62 79

01 02 25 48 53 56 66 67 69 79

04 07 18 24 29 49 65 66 75 77

01 02 04 18 27 56 59 60 70 80

03 04 09 12 16 17 39 77 78 79

01 09 11 36 56 60 61 63 78 79

02 15 26 37 39 53 56 61 65 72

01 04 08 12 22 33 38 49 72 78

05 12 17 18 27 35 38 55 65 66

01 04 05 08 23 34 35 46 48 79

05 08 09 15 37 38 57 61 76 77

01 02 14 17 26 32 39 44 55 69

01 15 25 31 33 40 52 58 62 76

12 21 26 31 39 45 49 55 64 80

03 41 44 50 52 55 56 58 76 80

04 05 11 26 29 41 43 70 79 80

05 12 16 32 45 53 54 60 76 78

08 09 17 50 59 64 65 76 78 80

08 09 13 18 27 33 39 47 70 72

07 21 28 39 40 41 44 45 48 54

01 04 09 21 44 48 53 73 76 77

05 20 34 40 48 49 67 69 73 80

06 07 09 14 26 54 60 68 69 79

09 12 15 21 28 51 54 56 70 80

04 06 07 14 27 30 48 49 57 72

08 13 19 23 32 34 51 67 77 80

01 03 05 10 32 49 63 70 73 77

03 11 12 19 30 32 34 48 61 73

05 08 21 24 39 49 61 68 73 79

17 21 25 34 42 53 64 67 68 75

02 04 15 16 21 38 54 55 64 74

04 07 08 14 31 55 59 67 70 77

12 15 16 39 42 46 48 61 62 71

01 02 06 10 21 24 32 36 57 68

02 03 06 16 22 26 36 43 45 48

02 03 11 23 24 47 55 59 67 69

01 07 34 43 45 49 51 60 70 72

02 07 13 14 24 51 53 54 62 75

09 17 23 24 25 55 56 62 71 77

12 21 22 38 43 60 61 64 66 71

03 07 16 20 32 38 43 50 51 65

01 02 03 17 25 36 37 42 63 76

01 03 04 14 19 28 38 46 53 70

01 08 20 41 47 57 65 66 72 79

02 04 05 09 19 31 51 67 75 79

05 14 18 27 42 44 47 48 68 73

05 16 19 26 28 39 40 62 66 78

07 13 16 23 34 42 45 47 50 63

07 14 17 21 28 57 59 71 73 75

10 15 16 22 26 65 70 75 77 80

01 02 12 16 24 27 37 45 67 77

02 07 09 21 25 30 32 52 59 79

03 05 12 28 40 44 61 68 77 80

04 06 08 15 18 39 44 51 79 80

08 16 25 30 45 46 53 65 72 73

02 07 11 16 17 26 27 40 42 59

06 10 14 18 21 28 48 50 64 69

06 08 34 41 42 59 61 65 68 71

06 17 38 51 52 56 59 60 73 74

02 03 19 22 44 51 54 59 73 78

09 10 16 24 38 49 57 59 66 73

01 02 03 04 05 06 07 11 20 66

08 11 19 28 35 41 51 68 70 75

14 21 22 27 30 43 54 58 70 76

01 04 06 21 37 59 61 74 75 79

02 08 14 20 22 24 35 49 55 66

04 10 20 24 27 32 47 48 52 77

07 09 11 23 27 29 37 54 57 63

07 10 21 27 28 29 42 56 67 77

01 05 26 29 34 38 54 56 59 77

15 16 21 26 28 37 49 67 71 76

03 12 23 36 38 42 49 51 54 68

05 09 11 20 25 32 36 57 65 70

03 27 42 49 53 59 66 71 76 77

06 19 21 32 33 41 58 61 78 80

01 20 21 31 36 40 48 55 60 74

03 05 08 16 24 29 31 51 74 77

04 10 17 18 27 29 40 45 58 62

06 09 13 20 21 39 43 62 71 76

01 02 28 31 35 42 49 73 79 80

01 29 38 39 45 46 50 66 76 79

04 08 09 22 30 34 52 54 60 62

02 14 30 35 46 53 56 64 77 80

03 05 15 37 40 43 49 56 66 79

04 20 21 24 28 51 53 60 61 69

02 05 34 37 43 45 46 50 55 59

13 14 25 28 40 60 70 73 77 78

02 13 26 36 50 55 66 71 77 79

01 06 18 24 28 37 58 70 72 76

02 04 05 10 30 40 47 68 70 72

02 09 23 24 37 38 46 51 65 80

03 13 22 30 31 40 53 57 73 76

04 13 21 22 25 26 30 37 41 65

05 10 16 23 29 37 64 66 67 69

05 14 28 32 36 42 46 50 66 80

07 15 16 24 30 31 39 40 49 70

07 19 29 30 46 58 62 63 72 76

08 14 28 33 34 40 41 50 53 55

09 20 25 29 41 42 59 69 75 76

10 12 20 23 25 33 39 46 50 80

01 05 10 18 21 22 47 58 67 79

04 16 40 41 51 56 58 60 66 77

03 16 28 37 41 42 59 72 74 78

03 11 13 14 26 31 63 66 67 68

05 13 17 25 35 39 42 46 51 74

14 19 21 24 30 45 60 62 67 73

09 20 26 30 40 46 47 57 62 69

04 28 32 47 50 55 58 64 70 71

01 12 13 18 29 36 38 52 67 75

02 09 11 28 29 35 50 61 65 77

03 06 15 24 34 36 50 51 59 72

03 07 14 15 25 26 29 50 76 77

04 29 30 32 33 46 50 51 59 75

05 09 10 17 19 21 26 56 64 73

07 10 16 21 22 30 35 60 69 72

09 11 13 30 31 35 38 47 55 58

18 25 37 43 48 51 58 59 71 75

02 08 11 19 37 53 58 74 76 79

01 06 20 29 40 43 45 53 57 75

04 05 31 39 41 44 47 57 61 78

02 13 20 24 31 52 59 64 71 74

08 12 14 37 45 47 49 59 61 63

04 06 17 20 29 42 48 51 54 55

01 02 06 09 17 18 33 43 50 73

01 03 05 26 41 42 50 53 62 68

01 07 09 10 28 37 45 59 68 80

01 12 15 34 35 37 38 50 64 73

02 07 08 12 36 51 57 60 63 66

02 24 27 40 44 50 53 71 73 80

03 15 19 23 26 28 42 48 58 79

03 16 21 31 55 56 61 65 70 71

07 21 24 27 37 51 66 70 71 79

11 25 27 32 47 50 51 66 69 72

20 25 39 49 62 63 72 75 78 79

04 15 30 33 34 42 72 74 77 79

10 38 39 44 60 64 67 74 77 78

02 09 10 15 16 20 48 51 58 72

10 17 25 34 41 56 58 59 63 70

01 20 30 49 55 65 67 68 76 77

01 02 03 52 53 54 58 60 71 72

01 03 04 13 18 23 31 44 45 55

01 04 11 14 30 35 41 52 59 73

01 05 12 14 31 58 59 74 78 80

01 08 10 28 30 33 51 54 61 79

02 06 26 35 47 49 52 53 62 78

03 11 17 37 40 46 60 61 67 74

05 19 35 37 42 53 61 63 75 78

08 10 15 41 51 62 63 65 67 76

03 14 15 32 38 57 67 75 78 79

22 26 28 41 46 53 59 61 66 79

01 03 08 14 16 18 35 56 62 76

08 10 12 24 36 43 62 69 70 79

15 25 28 31 36 38 50 56 61 75

02 04 10 15 42 44 45 46 52 53

04 07 11 22 46 47 48 51 53 71

05 22 25 32 35 54 61 64 72 79

01 04 17 23 24 47 51 63 70 74

18 19 30 38 40 49 60 75 76 80

24 34 37 44 49 52 54 63 64 80

03 14 15 19 30 31 43 47 51 71

01 03 07 08 29 42 46 47 59 73

04 13 17 53 55 59 62 63 69 78

05 06 26 27 39 43 54 55 57 73

06 09 36 44 47 67 70 74 76 80

06 20 21 25 26 32 34 45 50 60

08 11 17 33 35 46 59 62 66 77

10 15 28 39 40 52 56 60 63 68

03 05 23 30 50 55 60 73 74 79

01 16 19 20 34 43 52 55 71 79

03 07 19 27 35 41 47 63 77 79

03 07 29 32 39 54 68 70 71 74

04 11 12 23 31 49 59 65 71 79

05 10 17 22 24 28 32 40 74 75

09 14 42 43 55 61 66 70 74 75

12 23 26 31 51 56 63 76 77 78

07 16 23 24 26 38 56 64 72 79

09 13 15 19 27 34 40 59 61 75

08 14 21 23 32 40 62 71 72 74

01 03 04 15 16 29 33 41 48 65

01 06 07 17 21 23 35 40 49 76

03 04 12 14 33 37 62 64 67 80

08 28 39 57 64 66 67 70 73 80

10 15 17 19 35 43 46 72 75 79

07 11 29 33 52 55 73 77 78 80

03 09 18 26 37 42 45 60 65 77

04 06 08 13 17 40 41 46 52 72

04 14 40 43 46 56 57 67 68 71

04 15 17 22 28 41 42 56 57 62

05 06 10 11 12 15 41 42 69 73

09 20 35 37 52 62 65 66 68 75

04 08 26 33 35 50 56 63 69 73

06 20 27 30 31 36 37 67 73 79

08 11 31 35 43 48 60 61 72 80

21 24 25 55 59 60 63 66 72 76

05 06 08 20 28 29 33 62 67 68

01 02 05 21 23 25 31 64 65 77

02 06 23 27 34 39 46 53 67 76

06 08 09 14 19 25 50 51 61 62

01 05 17 37 46 52 57 62 73 78

02 13 16 25 26 34 46 52 56 68

04 09 18 23 30 32 61 64 67 68

11 13 16 20 22 23 43 60 67 75

06 10 20 35 36 43 51 52 63 80

04 16 18 32 35 36 49 50 53 79

02 04 10 11 26 34 51 64 69 77

06 09 35 41 43 49 55 64 69 72

01 14 26 34 41 60 61 64 74 76

01 10 11 12 21 28 34 63 75 76

01 06 27 28 30 44 59 62 63 71

06 13 17 26 42 47 56 75 76 79

08 24 35 38 41 46 53 54 57 71

05 07 16 17 23 33 48 54 58 80

05 21 24 26 33 43 53 65 74 78

14 16 17 19 49 56 61 68 69 78

04 11 22 30 31 36 64 70 74 78

13 16 22 25 39 49 50 54 55 59

04 05 14 15 20 22 26 44 54 67

06 28 37 42 44 50 55 57 68 75

15 19 30 32 37 45 55 56 63 70

09 14 19 33 35 44 49 58 67 71

10 17 36 49 50 58 72 73 74 76

02 04 07 17 23 37 44 56 67 73

02 05 12 15 25 28 30 39 55 58

05 13 22 31 38 43 52 62 77 80

07 19 23 39 40 46 51 55 57 64

02 05 08 18 22 25 38 42 45 70

07 17 30 38 43 57 61 62 68 74

06 19 23 24 27 33 49 50 75 79

10 12 17 35 37 42 47 57 67 70

03 07 13 17 28 30 35 44 65 70

08 19 22 25 26 39 44 60 68 76

05 07 12 20 22 34 37 42 60 79

17 36 39 50 55 60 62 68 70 80

09 25 31 33 37 48 54 64 66 78

01 03 06 09 28 32 40 52 55 67

02 05 06 10 17 23 45 63 78 79

02 06 08 10 20 44 56 59 76 77

04 07 10 19 32 51 56 62 74 78

08 12 22 30 50 56 57 64 75 79

04 05 38 56 66 68 73 76 78 80

06 15 18 22 24 26 32 38 52 69

02 08 10 22 26 27 52 72 73 79

03 09 24 31 32 39 42 44 62 73

10 11 19 34 36 42 43 49 59 67

11 13 14 36 43 44 50 57 64 73

06 17 34 39 61 63 66 72 73 77

05 27 29 30 35 49 59 69 70 78

01 02 29 37 55 56 58 64 68 78

02 10 24 26 58 66 67 75 76 78

04 07 22 32 39 42 49 63 67 69

04 10 11 21 23 53 54 58 66 68

02 14 18 28 36 40 51 65 67 74

02 15 20 23 41 54 69 70 77 79

01 20 21 42 50 51 57 59 63 67

07 29 31 55 57 58 61 66 69 79

08 38 40 47 55 59 68 74 78 79

07 13 17 24 32 37 47 49 58 78

04 14 25 34 36 38 41 47 67 69

10 13 18 23 24 35 56 61 73 80

01 02 05 13 22 59 61 68 69 76

03 06 13 35 45 50 57 62 79 80

03 08 23 26 30 59 63 70 72 75

03 12 14 18 27 34 54 69 74 77

04 06 16 17 24 26 28 30 68 73

05 07 20 27 28 31 43 47 59 72

08 11 17 19 21 44 57 63 72 78

10 18 21 25 37 44 49 56 60 62

09 24 28 45 54 55 58 65 75 79

11 21 38 41 44 46 52 60 65 69

02 15 17 18 31 38 49 59 62 67

04 36 40 47 48 49 56 59 62 64

01 02 07 15 22 30 45 50 62 65

01 06 19 22 23 30 38 54 57 67

01 11 17 24 26 31 50 52 65 75

04 12 15 19 22 24 25 35 51 77

08 15 16 43 50 52 59 62 73 75

09 16 21 23 34 58 59 62 67 78

01 05 08 13 25 41 55 63 75 80

02 03 09 33 34 38 45 53 62 63

03 44 48 50 53 60 63 65 66 75

04 06 11 16 23 33 39 45 62 69

04 17 24 33 36 52 53 57 66 67

05 24 35 44 52 59 60 75 77 79

02 03 05 08 09 14 17 28 47 54

02 05 14 16 25 41 48 50 71 78

02 06 11 15 34 43 54 56 71 75

03 05 16 27 47 53 56 57 58 75

03 06 08 09 12 24 48 49 71 80

03 09 10 17 27 36 44 48 57 61

08 09 11 18 23 31 41 50 56 74

01 04 10 30 39 42 43 56 64 65

02 23 33 39 56 59 66 68 74 75

06 12 35 54 59 66 67 69 75 80

08 12 23 25 29 48 57 67 74 76

03 16 22 25 40 42 44 69 71 79

06 10 19 24 39 42 45 47 71 72

08 11 16 39 42 52 54 63 66 79

08 15 26 46 49 56 57 60 70 74

16 17 28 34 46 47 48 49 60 77

01 04 05 36 39 51 52 55 72 77

01 08 20 26 32 46 52 53 63 76

01 09 16 18 46 49 51 54 71 74

03 06 09 10 13 23 53 69 74 75

05 06 21 37 56 63 69 71 77 80

09 15 22 25 36 42 48 52 55 80

10 12 13 40 41 49 54 60 67 71

12 22 30 40 42 52 61 65 67 78

24 31 43 52 53 54 56 68 70 73

01 10 11 26 37 40 41 48 56 57

02 03 04 09 15 30 36 49 69 73

03 05 07 15 21 22 23 41 51 61

05 09 14 18 33 40 45 46 75 78

07 10 16 17 25 51 55 68 76 79

02 11 21 24 42 48 49 50 56 70

02 06 07 13 19 35 38 39 69 73

06 10 14 19 29 30 66 70 77 79

06 15 20 25 33 35 47 55 59 61

02 04 21 22 28 31 33 48 59 63

03 04 14 17 34 43 44 49 75 76

03 06 18 30 33 35 39 52 64 66

05 15 38 46 47 59 66 70 71 75

28 33 42 46 54 60 63 67 70 76

01 05 23 28 36 41 43 56 71 73

02 03 07 18 23 42 52 62 74 80

04 10 20 31 33 34 49 56 61 66

01 02 16 30 44 46 57 60 61 75

01 02 17 19 20 40 47 58 61 77

01 03 10 11 13 19 25 62 65 72

01 03 11 32 33 43 54 59 76 80

01 03 12 24 26 28 39 57 59 60

01 03 19 21 34 37 45 47 54 66

01 04 10 13 14 15 27 36 66 76

01 04 25 32 35 38 40 45 65 74

01 05 21 28 30 38 49 52 66 74

01 05 24 30 33 36 47 48 50 76

01 06 08 14 36 48 54 58 65 77

01 06 08 22 24 27 43 46 51 56

01 06 11 12 39 47 50 53 55 56

01 06 14 23 26 42 45 51 66 73

01 06 14 29 35 38 55 60 71 80

01 06 17 25 31 38 44 47 48 72

01 06 25 28 39 46 61 65 69 78

01 07 09 14 15 23 32 53 56 58

01 07 15 40 41 47 69 71 78 80

01 07 16 31 42 43 48 57 76 78

01 08 10 14 20 31 39 68 71 75

01 08 11 12 18 30 43 45 58 66

01 09 12 16 30 38 41 63 68 69

01 09 13 25 45 47 49 64 67 73

01 10 22 26 29 33 43 55 62 66

01 10 26 35 36 39 45 54 70 78

01 11 15 17 25 43 55 67 70 78

01 11 16 24 33 35 42 55 68 74

01 11 22 27 35 53 58 63 65 69

01 11 24 41 44 51 61 62 66 80

01 12 31 42 46 53 69 72 75 77

01 13 14 18 19 22 33 51 60 63

01 13 16 19 26 30 32 50 58 74

01 13 20 30 34 56 62 70 73 75

01 14 15 21 29 34 44 46 62 68

01 14 21 25 27 45 52 55 56 57

01 15 20 22 24 73 74 76 78 79

01 17 26 57 58 63 64 71 79 80

01 22 23 31 32 40 43 63 68 79

01 25 26 30 42 47 52 70 71 77

02 03 10 19 37 39 48 64 70 75

02 03 28 38 40 41 43 57 58 69

02 04 11 12 14 16 22 29 32 57

02 04 27 30 41 43 51 55 61 63

02 05 11 21 22 36 44 53 55 75

02 05 12 24 29 33 42 54 66 71

02 05 17 21 29 39 40 43 52 67

02 05 20 26 28 35 36 38 60 64

02 05 24 32 35 41 56 62 65 69

02 06 12 17 22 37 40 53 66 68

02 07 08 10 17 29 30 41 49 64

02 07 13 18 22 27 48 55 64 67

02 07 14 31 32 40 41 46 61 73

02 08 12 13 29 40 50 58 59 70

02 08 15 19 29 34 38 52 66 78

02 08 16 20 21 34 37 41 63 73

02 09 12 13 17 23 31 42 48 60

02 09 14 52 55 63 68 71 73 76

02 09 27 32 34 47 49 55 56 74

02 10 13 14 16 21 33 42 43 80

02 10 13 25 28 29 38 44 51 71

02 10 16 28 31 36 41 52 54 62

02 10 18 33 35 37 40 55 69 79

02 10 19 22 23 50 56 58 69 71

02 11 24 32 33 39 58 60 63 64

02 11 34 40 55 63 65 66 70 80

02 12 28 32 50 52 69 73 74 78

02 12 35 38 43 45 47 51 56 79

02 13 15 18 20 21 28 32 66 75

02 13 17 19 27 32 46 54 63 71

02 14 19 26 38 42 57 62 65 71

02 16 23 27 35 36 58 61 70 74

02 18 22 43 46 54 65 66 69 72

02 19 25 31 35 43 50 57 66 74

02 30 38 40 48 50 51 52 54 77

02 33 36 37 59 62 70 71 72 73

03 04 08 16 20 36 46 55 57 80

03 04 13 21 24 29 35 36 40 54

03 04 15 19 20 32 39 40 72 76

03 04 25 34 39 51 57 62 66 71

03 05 19 24 27 34 38 67 68 71

03 06 10 18 43 55 60 61 68 78

03 06 12 22 38 39 58 62 65 75

03 06 15 17 19 52 54 62 68 77

03 07 11 24 36 38 60 70 73 76

03 07 12 21 30 37 39 43 53 63

03 08 10 15 27 35 38 58 59 60

03 08 10 18 23 40 47 48 51 66

03 08 17 19 22 31 33 34 65 79

03 08 21 33 36 39 42 45 50 74

03 09 22 26 40 50 54 66 74 80

03 10 11 16 20 26 29 39 53 73

03 10 15 28 33 44 47 50 62 78

03 11 13 16 21 27 28 45 46 51

03 11 17 22 28 39 48 55 66 76

03 12 15 47 52 53 65 69 70 76

03 12 17 20 21 23 32 44 59 64

03 12 29 30 41 45 54 55 57 72

03 13 20 25 37 51 52 53 67 78

03 14 20 23 28 34 45 56 65 68

03 14 21 26 33 46 49 52 54 73

03 17 18 19 25 28 32 45 49 57

03 18 26 32 40 56 58 59 68 73

03 20 22 24 29 34 41 47 62 64

03 22 32 37 46 48 49 50 62 72

03 24 27 30 42 46 57 63 64 78

03 26 29 30 51 52 56 62 65 79

04 05 09 43 44 45 56 58 69 74

04 05 11 15 16 37 51 59 63 68

04 05 21 30 36 42 57 58 60 71

04 06 10 22 29 34 35 39 50 68

04 07 21 25 31 47 50 54 62 80

04 08 12 19 21 48 55 62 66 75

04 08 17 25 32 39 48 53 58 61

04 08 22 28 32 36 37 45 51 73

04 09 22 27 36 43 47 50 65 75

04 11 27 35 37 45 49 60 64 66

04 12 16 24 44 60 62 65 72 74

04 12 18 24 34 36 42 45 64 76

04 12 20 28 31 35 41 58 67 76

04 13 20 23 29 68 71 72 77 78

04 14 18 20 29 37 39 46 47 60

04 14 23 24 32 37 41 42 55 79

04 16 17 21 22 45 47 52 61 76

04 16 20 22 27 35 38 62 71 73

04 17 18 31 46 53 65 68 74 76

04 18 32 34 37 38 43 54 57 70

04 19 22 34 45 53 55 58 67 72

04 19 33 36 37 38 48 60 68 77

04 27 48 54 62 65 67 68 69 70

05 06 07 12 14 33 43 56 61 76

05 06 07 31 39 45 53 58 68 77

05 06 13 22 23 48 56 65 70 72

05 06 13 25 30 34 49 53 71 79

05 06 16 17 32 36 47 51 62 71

05 07 08 10 13 14 26 32 45 57

05 08 18 46 50 51 52 60 64 68

05 09 10 24 27 54 62 72 78 80

05 09 14 22 25 29 30 31 56 68

05 09 31 33 38 42 49 50 65 69

05 10 19 20 22 29 45 49 51 76

05 11 23 24 25 28 33 34 51 52

05 12 22 27 32 36 41 52 58 68

05 13 15 16 19 36 38 41 44 79

05 13 15 17 29 30 50 57 63 66

05 14 20 32 34 35 39 43 77 78

05 15 27 35 39 41 48 64 76 80

05 16 25 27 31 52 60 61 63 73

05 16 29 35 40 44 46 55 56 63

05 18 27 32 51 57 63 74 76 79

05 20 22 25 46 48 58 63 66 77

05 22 27 28 51 54 60 65 71 77

05 33 42 51 53 55 56 59 79 80

06 08 10 21 29 31 37 46 53 78

06 08 27 28 31 38 45 54 74 76

06 09 23 25 29 39 40 58 73 79

06 10 11 14 25 32 37 38 39 59

06 10 13 15 26 30 46 59 64 67

06 11 13 33 38 48 57 61 66 75

06 12 13 37 45 46 54 56 58 73

06 12 15 24 29 47 60 63 67 79

06 13 27 51 55 58 62 68 72 74

06 13 30 39 47 48 54 63 68 80

06 14 16 31 40 47 50 59 60 76

06 14 26 27 28 34 36 52 70 75

06 18 25 27 29 36 53 56 63 72

06 19 22 37 41 47 50 52 70 73

06 23 26 35 37 44 54 72 74 77

06 24 25 32 40 46 54 62 66 70

06 29 30 34 37 38 40 65 69 72

06 32 38 42 43 44 49 58 60 79

07 08 13 35 36 41 43 59 74 76

07 08 14 16 22 37 38 46 52 58

07 08 15 23 24 28 29 36 44 55

07 08 33 40 48 71 75 76 77 79

07 09 17 36 52 63 65 69 74 77

07 10 11 12 18 25 31 36 48 77

07 11 15 25 27 44 61 65 74 79

07 11 20 30 36 51 54 56 59 69

07 11 28 38 42 45 53 65 66 78

07 14 29 38 43 48 54 66 67 73

07 15 20 36 42 47 58 64 66 67

07 17 18 26 30 34 53 56 60 78

07 17 20 27 33 41 44 53 62 76

07 19 31 50 63 64 67 71 73 78

07 20 21 48 52 61 62 64 72 73

07 22 44 49 57 68 70 78 79 80

07 26 32 42 46 48 54 64 65 75

08 09 12 16 23 26 33 36 40 52

08 09 26 38 39 51 58 69 71 78

08 11 14 26 27 29 30 46 61 71

08 12 21 34 44 52 53 56 61 74

08 13 30 31 36 46 49 54 66 75

08 16 18 24 30 44 48 54 67 78

08 16 20 27 28 32 40 56 61 64

08 17 26 28 44 48 51 62 64 74

08 18 20 26 33 43 49 59 64 79

08 23 25 42 49 56 58 66 72 80

09 10 11 15 22 24 31 45 61 67

09 10 19 32 34 39 41 57 60 79

09 10 28 29 31 34 40 43 64 70

09 10 30 36 40 41 53 59 77 78

09 11 13 18 25 40 42 43 54 68

09 11 16 37 43 46 48 69 73 79

09 11 21 25 27 58 60 75 77 80

09 12 31 33 41 43 51 57 59 62

09 13 19 29 33 45 52 68 74 79

09 15 18 21 22 29 39 59 65 74

09 15 26 34 35 44 55 57 65 78

09 17 30 32 41 51 54 65 66 73

09 19 28 43 52 56 57 75 77 78

10 11 12 23 38 45 52 55 70 74

10 11 14 17 29 36 47 56 65 80

10 12 13 16 34 57 61 64 72 78

10 12 14 24 30 44 50 51 58 63

10 12 30 31 39 47 62 66 74 76

10 13 38 43 45 58 63 64 68 75

10 17 29 32 33 38 42 52 61 63

10 20 28 30 35 40 45 50 66 73

10 22 27 30 34 38 51 53 66 80

10 23 25 43 44 52 65 66 73 78

10 23 28 32 38 41 47 49 53 72

10 23 31 35 39 48 49 57 58 63

11 12 18 24 37 52 57 61 68 71

11 12 27 35 40 56 70 71 72 77

11 13 14 41 42 45 48 72 76 77

11 14 15 18 37 50 54 55 62 66

11 14 15 20 23 29 33 38 40 64

11 14 16 24 31 36 58 69 71 72

11 14 25 28 49 62 68 74 76 80

11 15 21 26 35 42 43 45 62 63

11 19 20 26 27 31 38 48 49 78

11 20 34 38 39 42 46 57 58 72

12 14 20 22 31 33 45 69 70 73

12 15 24 32 49 53 55 59 68 75

12 16 19 29 37 42 44 73 76 80

12 17 22 30 43 46 47 55 73 80

12 28 34 36 44 49 58 65 66 69

12 37 39 44 47 64 68 69 72 79

13 14 32 35 47 50 52 54 65 67

13 15 16 18 31 37 47 56 64 77

13 15 18 23 25 26 36 51 62 70

13 15 24 41 48 55 58 60 61 70

13 16 25 29 32 41 43 45 61 62

13 17 19 21 28 41 47 55 67 74

13 17 25 27 30 31 33 45 59 80

13 19 28 30 42 49 61 62 64 77

13 24 41 45 51 52 57 63 69 73

14 15 17 23 25 27 48 63 69 75

14 16 24 29 34 39 48 59 75 80

14 16 33 49 55 57 63 64 65 75

14 17 19 29 31 41 54 58 60 75

14 21 26 47 50 57 58 61 68 72

14 22 24 27 33 39 52 61 62 74

14 22 30 32 42 48 53 59 60 74

14 33 36 43 46 47 53 58 63 79

15 17 18 28 44 54 61 69 73 76

15 20 21 22 43 50 55 56 72 77

15 21 40 42 44 51 58 74 75 78

16 17 36 40 41 45 50 64 69 75

16 19 35 37 54 56 57 59 65 79

16 23 32 38 40 44 48 70 73 75

16 26 37 44 45 50 51 61 78 79

16 28 30 53 63 67 74 75 79 80

17 20 21 30 40 41 56 68 79 80

17 20 25 35 38 50 52 58 69 79

17 23 31 33 37 49 52 55 68 72

17 24 25 27 34 40 43 47 57 79

17 29 31 36 44 45 46 70 71 77

18 19 21 25 43 47 61 63 69 70

18 22 34 39 40 46 56 62 77 79

18 25 27 30 39 50 57 60 65 67

19 24 37 54 55 60 69 71 74 78

19 32 45 52 53 64 66 71 75 80

20 23 26 27 39 41 60 63 66 71

20 23 27 44 46 49 51 61 73 77

21 22 35 36 42 51 56 65 66 76

21 23 28 35 39 43 55 59 70 79

21 23 35 38 46 47 63 67 68 73

21 26 27 36 38 45 53 59 69 73

21 29 30 31 42 54 63 69 73 74

21 32 37 43 47 51 60 68 74 80

22 27 37 38 56 59 63 67 75 76

22 28 29 33 37 49 53 54 69 75

23 24 30 34 45 46 61 66 69 74

24 28 31 32 46 51 67 68 72 78

26 41 50 51 55 59 65 69 70 74

29 33 34 43 44 51 63 67 69 78

35 39 47 50 51 58 59 73 77 80





2018-04-13 (11:09)

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

2047
wpis nr 1 161 562
[ CZCIONKA MONOSPACE ]

777ch, dziękuję. Ufffff, od samego patrzenia na makro głowa się rozbolała Zobaczę czy uda mi się to uruchomić. Arkusz z bazą losowań to arkusz 2, a arkusz z liczbami do sprawdzenia, to arkusz 20 ? Po uruchomieniu makra, makro samo tworzy plik .txt i z niego robi gotowy raport. Dobrze rozumuję ?
2018-04-13 (11:26)

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

1386
wpis nr 1 161 567
[ CZCIONKA MONOSPACE ]

kleszek

raport wpada do arkusza 20

w arkuszu 20 wpisz w komurkę[I1] =100 ....arkusz20. cells(1,9)=100

cofniecie obliczeń to w arkuszu20.cells(1,4)

rodzaj pliku sprawdzanego to arkusz20.cells(1,3) =10 'czyli sprawdzam leo10.txt

w arkusz20.cells(1,1) wpisz 10864



raport kiedyś był....ale jest wyłączony



'Set AWW = fs.CreateTextFile(ThisWorkbook.Path & "/" & "TrafieńIA.txt", True)



jak widać



próbuj ,niestety w moim programie jest 61 arkuszy ,1550 makr

stąd .....arkusz20
2018-04-13 (11:31)

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

1386
wpis nr 1 161 569
[ CZCIONKA MONOSPACE ]

To makro tylko tak groźnie wygląda,to pobierak plików do sprawdzenia,w zależności od komórki c1 w arkuszu 20

po prostu kiedyś sprawdzałem kilka rozpisów jeden po drugim
2018-04-13 (12:08)

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

2047
wpis nr 1 161 582
[ CZCIONKA MONOSPACE ]

777ch, po Twoich wskazówkach udało mi sie uruchomić makro. Moim błędem było to, że założyłem, że makro sam utworzy plik .txt z systemu wpisanego do arkusza20 i z niego wygeneruje raport. Teraz wiem, że sam muszę taki plik .txt utworzyć, aby makro wygenerowało raport. Jeszcze raz dziękuję.

--- wpis edytowano 2018-04-13 12:10 ---

2018-04-13 (12:11)

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

1386
wpis nr 1 161 584
[ CZCIONKA MONOSPACE ]

do usług

ale tylko tym co potrafią skorzystać
2018-04-13 (12:13)

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

1386
wpis nr 1 161 585
[ CZCIONKA MONOSPACE ]

kleszek> masz jakieś narzędzie ,którym sprawdzisz pokrycie 4-ek

w takim rozpisie jak podałem,czyli v=80 ?

jak masz to sprawdź...

--- wpis edytowano 2018-04-13 12:13 ---

2018-04-13 (12:58)

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

2047
wpis nr 1 161 596
[ CZCIONKA MONOSPACE ]

777ch, chodzi Ci o gwarancje 4z80 przy trafieniu 20 liczb w Twoim rozpisie ? Chyba program Multilotto ma taką możliwość, ale pewnie obliczenia zajęły by dużo czasu.
2018-04-13 (13:22)

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

1386
wpis nr 1 161 597
[ CZCIONKA MONOSPACE ]

kleszek, chodzi o gwarancje 4 if 4 przy trafieniu 4



ja podałem już to:

GwReal.[4]= 12,1625210232805 %



ale chciałem żebyś sobie sprawdził....
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 207 208 209 ... 554 555
Wyślij wiadomość do admina