Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 31 32 33 ... 45 46
Wyślij wiadomość do admina

Przewiń wpisy ↓

Zestawy piątek nigdy nie wylosowanych

2013-12-22 (08:58)

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

1386
wpis nr 731 076
[ CZCIONKA MONOSPACE ]

Talizman

ja policzyłem to już nie raz, do dzis wpadło 1294x 6/6 na 5412-losowań ,

jesli określisz prawidłowo układ P-N to .... będzie blisko

sugestia.....jeden z poniżej

ukł.18{nnppnp} oczekuje 279

ukł.52{npnnnn} oczekuje 181

ukł.25{pnnnnp} oczekuje 161

ukł.59{pppnpp} oczekuje 156

ukł.2{ppnpnn} oczekuje 126

ukł.33{nnnppn} oczekuje 124

ukł.10{pnnnpp} oczekuje 117

ukł.64{nnnnnn} oczekuje 116

ukł.63{pppppp} oczekuje 111

ukł.61{pnpppp} oczekuje 110

2013-12-22 (09:08)

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

1386
wpis nr 731 084
[ CZCIONKA MONOSPACE ]

LottoTest



Plik textowy nie musi być wpisany do arkusza , a może być czytany w locie..zapewne to wiesz....

np dla excela:



Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ") ' bo ja wstawiam spację pomiędzy liczbami

i = i + 1



l1 = arrLine(0)

l2 = arrLine(1)

l3 = arrLine(2)

l4 = arrLine(3)

l5 = arrLine(4)

l6 = arrLine(5)



itd

a więc np do arkusza mogą być wczytane te dane które zawierają liczby jakie

chce mieć uzytkownik,o ile ustali warunki w procedurze ,jaki to liczby mają być ,

albo jakie nie
2013-12-22 (09:22)

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

1386
wpis nr 731 090
[ CZCIONKA MONOSPACE ]

Pęsko



oczywiscie dane z plików mogą być dowolnie przetwarzane

oto przykład dla zerowych z liczba 1

bez powtórek pary ,uprzednio posortowane wedłu ont4/5



1 8 55 60 63

1 6 25 40 61

1 44 54 69 78

1 37 52 71 74

1 14 28 31 62

1 21 27 32 56

1 12 50 57 68

1 20 48 73 80

1 19 26 51 58

1 3 11 18 75

1 9 29 35 38

1 24 41 49 77

1 7 46 64 70

1 2 16 36 43

1 30 45 65 66

1 5 23 47 53

1 13 22 76 79

1 10 34 42 59



a poniżej tylko zerowe z jedynką ale zawierajaca wskazana parę



1 2 14 37 78

1 5 14 40 78

1 5 14 56 78

1 7 14 55 78

1 8 14 37 78

1 12 14 20 78

1 12 14 24 78

1 12 14 31 78

1 12 14 42 78

1 14 16 59 78

1 14 20 51 78

1 14 21 46 78

1 14 23 44 78

1 14 24 71 78

1 14 31 35 78

1 14 32 55 78

1 14 37 56 78

1 14 41 70 78

1 14 44 46 78

1 14 44 48 78

1 14 44 54 78

1 14 48 71 78

1 14 55 63 78

1 14 55 76 78

1 14 63 77 78

1 14 73 77 78

bo wskazuje 14+78



to tyle odpowiedzi

pozdrawiam



2013-12-22 (10:26)

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

2047
wpis nr 731 105
[ CZCIONKA MONOSPACE ]

777ch, oczywiście procedurę wczytywania danych do obliczeń znam.



Set objFile = objFSO.OpenTextFile("E:\Piątki.txt", ForReading)

Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ")

i = i + 1

l1 = arrLine(0)

l2 = arrLine(1)

l3 = arrLine(2)

l4 = arrLine(3)

l5 = arrLine(4)

Widziałem ją w którymś w Twoich poprzednich makr. Natomiast nie wiem jak wymusić sprawdzanie ONT tylko tych wczytywanych zestawów do obliczeń. W Twoich makrach, dla wszystkich kolejnych zestawów liczb wygląda to tak:

For l1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 4 itd. dla kolejnych l. Ponieważ muszę sprawdzić tylko te zestawy, które są zapisane w pliku txt, więc muszę zastosować jakąś inną procedurę sprawdzenia. Niestety nie wiem jak to zrobić. Dalsze warunki sprawdzania zestawów ( czyli instrukcje np. If tab3(l1 & l2, 1) < norm3 Then GoTo 3) itd. nie są już żadnym problemem. Jeśli możesz pomóc, to proszę o instrukcję. Próbowałem też samodzielnie przerobić makro aby szukało nie wypadniętych piątek. Niestety, utknąłem na instrukcji tworzenia tablicy ReDim tab5. Makro wywala się komunikatem Out of Subscript. Domyśam się, że wpis wszystkich 24040016 kombinacji piątek do tablic przekracza pojemość tablicy i musi być jakiś inny sposób wykonania tego zadania. Pisałeś ,że możesz udostępnić to makro do liczenia piątek. Bardzo bym o to prosił jeśli można. Twoje makra to fantastyczne materiały do samodzielnej nauki , analizy i próby napisania swoich własnych makr. Według Twoich wzorów napisałem np. makro do szukania 4 z 5 z zadanym parametrem czasu oczekiwania. Wprawdzie wczytywanie wszystkich zestawów czwórek do tablic trwa około 2 i pół minuty, ale ile frajdy daje mi fakt, że udało mi z pomocą innych osób (Twoich makr) stworzyć coś swojego. Pozdrawiam!
2013-12-22 (12:06)

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

1386
wpis nr 731 148
[ CZCIONKA MONOSPACE ]

kleszek> prosisz i masz

zwróc uwagę na to że w makrze są odwołania do nr. arkusza ,ja mam w swoim programie cos około 1000 procedur, więc zmieniajac cos to tu to tam ,tworzę czasem niezły bałagan w procedurach...ale przypuszczam ze sobie poradzisz doskonale,jak nie to pros o pomoc.



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

Sub zerowe5_superspeed()

'

' Makro1 Makro

' Makro zarejestrowane 2013-08-03, autor Admin

'

Dim tab5() As Long

Dim zerowa As Variant

Dim ok As Integer

Dim zer As Long

Dim totalzer As Long

Dim li1, li2, li3, li4, li5

Dim n As Byte

' DANE WYNIKÓW LOSOWAŃ

Dim tabwyn() As Variant

Dim dł As Byte

Dim vlos As Long

Dim stoper As Date, czas, czastotal As String

Dim tim1 As Date

Dim n1, n2, n3, n4, n5 As Byte

Dim los1, liczba, vlos1

Dim tabgps As Variant

Dim fs, A, ab

Dim cofka As Long

Set fs = CreateObject("Scripting.FileSystemObject")

Set A = fs.CreateTextFile(ThisWorkbook.Path & "/" & "zerowe.txt", True)



dł = Application.WorksheetFunction.CountA(Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(1, 22)))

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

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

tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, dł + 2)).value

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

tim1 = Timer



ReDim tabgps(vlos - 1, dł - 1)

With Application

.Calculation = xlManual

.MaxChange = 0.001

End With

'ActiveWorkbook.PrecisionAsDisplayed = False



czastotal = 0



totalzer = 0





n1 = 0



987

ok = 0





'Application.ScreenUpdating = False

'Application.DisplayAlerts = False

stoper = Timer

n1 = n1 + 1

Set ab = fs.CreateTextFile(ThisWorkbook.Path & "/" & "zerowe_L" & n1 & ".txt", True)



For los1 = vlos To 1 Step -1

frg = Application.CountIf(Range(Arkusz2.Cells(los1, 3), Arkusz2.Cells(los1, 22)), n1)

If frg = 0 Then GoTo 88



For liczba = 1 To dł







tabgps(ok, liczba - 1) = tabwyn(los1, liczba)







Next liczba

ok = ok + 1

88

Next los1





zer = 0











ReDim tab5(0, 77787980)



'For lk1 = n1 To n - 3

'For lk2 = lk1 + 1 To n - 2

'For lk3 = lk2 + 1 To n - 1

'For lk4 = lk3 + 1 To n

'tab5(0, lk2 & lk3 & lk4 & lk5) = 0



'Next lk4

'Next lk3

'Next lk2

'Next lk1









Arkusz39.Cells(1, 9) = n1

For los = ok To 1 Step -1



Arkusz39.Cells(1, 10) = los



For jj = 1 To dł - 4

For n2 = 1 To dł - 3

For n3 = n2 + 1 To dł - 2

For n4 = n3 + 1 To dł - 1

For n5 = n4 + 1 To dł



li1 = tabgps(los - 1, jj - 1)

If li1 <> n1 Then GoTo 3



li2 = tabgps(los - 1, n2 - 1)

If li2 = n1 Then GoTo 33

li3 = tabgps(los - 1, n3 - 1)

If li3 = n1 Then GoTo 33

li4 = tabgps(los - 1, n4 - 1)

If li4 = n1 Then GoTo 33

li5 = tabgps(los - 1, n5 - 1)

If li5 = n1 Then GoTo 33





tab5(0, li2 & li3 & li4 & li5) = 1







33

Next n5

Next n4

Next n3

Next n2

3

Next jj

99

Next los











lp = 0

lw1 = n1

For lw2 = lw1 + 1 To n - 3

For lw3 = lw2 + 1 To n - 2

For lw4 = lw3 + 1 To n - 1

For lw5 = lw4 + 1 To n

lp = lp + 1

If tab5(0, lw2 & lw3 & lw4 & lw5) = 1 Then GoTo 11



If tab5(0, lw2 & lw3 & lw4 & lw5) = lw2 & lw3 & lw4 & lw5 Then GoTo 11





With A

.WriteLine (lw1 & " " & lw2 & " " & lw3 & " " & lw4 & " " & lw5)

End With



With ab

.WriteLine (lw1 & " " & lw2 & " " & lw3 & " " & lw4 & " " & lw5)

End With



zer = zer + 1

11

Next lw5

Next lw4

Next lw3

Next lw2





totalzer = totalzer + zer

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

Application.ScreenUpdating = True

Application.DisplayAlerts = True

Arkusz39.Cells(n1 + 3, 1) = "5-zerowych z l.początk. = " & n1

Arkusz39.Cells(n1 + 3, 2) = " {" & zer & "}"

Arkusz39.Cells(n1 + 3, 3) = "czas obliczeń = " & czas & " sec."

Arkusz39.Cells(n1 + 3, 1).Select



'------------zerowe z kolejnymi liczbami----------------

If n1 < n - 4 Then GoTo 987 Else: GoTo 789

'-------------------------------------------------------



789

czastotal = Format(Timer - tim1, " 00:00:00.00")



MsgBox "Zakończono obliczenia 5-ZEROWE " & Chr(13) & _

"czas obliczeń = " & czastotal & " sec." & Chr(13) & _

Chr(13) & _

"Aktualnie niewylos. zerowych " & totalzer & " - kombinacji "

Arkusz39.Cells(2, 22) = "Aktualnie niewylos 5-ek. zerowych " & totalzer & " - kombinacji "

Arkusz39.Cells(n1 + 5, 2) = "Aktualnie niewylos 5-ek. zerowych " & totalzer & " - kombinacji "

Arkusz39.Cells(n1 + 6, 2) = "Obliczenia wykonał w czasie: " & czastotal & " sec."







End Sub

2013-12-22 (12:11)

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

1386
wpis nr 731 150
[ CZCIONKA MONOSPACE ]

Klezek> napisałeś' Widziałem ją w którymś w Twoich poprzednich makr. Natomiast nie wiem jak wymusić sprawdzanie ONT tylko tych wczytywanych zestawów do obliczeń. W Twoich makrach, dla wszystkich kolejnych zestawów liczb wygląda to tak:

For l1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 4 itd. dla kolejnych l. Ponieważ muszę sprawdzić tylko te zestawy, które są zapisane w pliku txt, więc muszę zastosować jakąś inną procedurę sprawdzenia. Niestety nie wiem jak to zrobić"



Po prostu napisz co ma makro robić w podpunktach ,to jak znajde chwilę to go napiszę.
2013-12-22 (13:17)

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

2047
wpis nr 731 189
[ CZCIONKA MONOSPACE ]

777ch, dziękuję!. Uruchomiłem makro bez większych problemów. Tak jak przypuszczałeś, musiałem tylko pozmieniać nazwy arkuszy biorących udział w działaniu makra. Całośc obliczeń trwała około 15 minut ( czas obliczeń dla np. dla zestawów z liczbą początkową 1 wyniósł 24,11 sec. ). Jeśli chodzi o moją drugą prośbę to juz wyjaśniam co chciałbym uzyskać. Mając plik .txt np. "zerowe_L1" z Twojego makra "zerowe5_superspeed() " sprawdzam go za jakiś czas. (np. za miesiąc).Chciałbym aby makro wypisało mi do arkusza tylko te zestawy liczb z pliku .txt, które w dalszym ciągu są zerowe (makro usuwa z zestawu te zerowe piątki, które zaliczyły trafienie)

Oczywiście mógłbym wgrać ten plik do arkusza, sprawdzić ONT5 i usunąć wypadnięte zestawy ręcznie ale właśnie chodzi mi o takie makro, które wykona całą operację w locie i wypisze tylko te zestawy, które spełniają mój warunek. Jeśli znajdziesz chwilę wolnego czasu, to bardzo proszę o takie makro. Sądzę, że przyda się nie tylko mi. Pozdrawiam!
2013-12-22 (13:50)

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

1386
wpis nr 731 211
[ CZCIONKA MONOSPACE ]

kleszek tylko zapytam czy ma być to makro które otworzy wszystkie te pliki po kolei ,usuwajac te zestawy ,które już zaliczyły ,czy tylko plik wskazany nazwą, czy okienkiem dialogowym,abyś sam podał nazwę........



Tak apro po ,czyli taka szybka aktualizacja,bez ponownych obliczeń ?
2013-12-22 (13:57)

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

2047
wpis nr 731 215
[ CZCIONKA MONOSPACE ]

777ch, nie, nie wszystkie po kolei. Chciałbym aby makro sprawdziło 1 wybrany plik wskazany nazwą lub jeszcze lepiej okienkiem dialogowym. Tak, szybka aktualizacja pliku bez ponownych obliczeń. Dziękuję za zainteresowanie się tematem
2013-12-22 (14:06)

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

1386
wpis nr 731 218
[ CZCIONKA MONOSPACE ]

ok,jak napiszę to wstawię tu w temacie,

a na razie życzę Tobie

i innym forumowiczom

Spokojnych Świąt .
2013-12-22 (14:18)

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

1386
wpis nr 731 228
[ CZCIONKA MONOSPACE ]

Kleszek ,tak przy okazji ,to jest takie makro w maim programie,które aktualizuje plik zerowe ,oraz plik z kodami csn ,do którego to pliku czasem odwoływały się inne makra,sprawdzajace liczbę zerowych piątek np. w dziesiatkach,po to był potrzebny plik csn5.txt



------------udostępniam,sprawdź czy ci działa ,nie zapomnij o funkcjach poniżej makra



w makrze tym jest trochę niepotrzebnych stałych,których mogło być mniej,ale nie potrzeba przerabiać ,nie przeszkadza to,aczkolwiek nie jest to kosmetycznie doskonałe





'==================================================

Sub AKTUALIZACJA_zerowe5ki()

'

' Makro2 Makro

' Makro zarejestrowane 2013-02-11, autor Admin



' DANE WYNIKÓW LOSOWAŃ

Dim tabwyn() As Variant

Dim dł As Byte

Dim vlos As Long

Dim stoper As Date, czas As String

Dim n1, n2, n3, n4, n5 As Byte

Dim los1, liczba, vlos1

Dim csn As Long

Dim tabcsn() As Variant



dł = Application.WorksheetFunction.CountA(Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(1, 22)))



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

tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, dł + 2)).value



stoper = Timer











Dim lp

Dim los As Long

Dim n As Byte

Dim k As Byte

Dim lw1, lw2, lw3, lw4, lw5

Dim csnmax As Long

Dim kombmax As Long

Dim pozycja As Long

Dim ka

Dim en

Dim xx As Long

Dim csnpusty As Long

Dim tabliczb As Variant

Dim ma As Long

n = 80



k = 5



Dim Lba As Byte

Dim Elem As Byte

Lba = k

Elem = n

csnmax = SILNIA(n) / (SILNIA(k) * SILNIA(n - k))

kombmax = Round(SILNIA(Elem) / (SILNIA(Lba) * SILNIA(Elem - Lba)))

ka = k

en = n



ReDim tabcsn(csnmax - 1, 0)





For csnpusty = 1 To csnmax

tabcsn(csnpusty - 1, 0) = 0

Next csnpusty



'IMPORTUJEMY CSN-y piątek zerowych



Const ForReading = 1

i = 0

max = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")

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



Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ")

i = i + 1





csn = arrLine(0)



tabcsn(csn - 1, 0) = csn



Loop



2

Close



For los = vlos To vlos - 9 Step -1 'aktualizujemy 10 losowan

ma = 0



For n1 = 1 To dł - 4

For n2 = n1 + 1 To dł - 3

For n3 = n2 + 1 To dł - 2

For n4 = n3 + 1 To dł - 1

For n5 = n4 + 1 To dł





ReDim tabliczb(0, 4)

tabliczb(0, 0) = tabwyn(los, n1)

tabliczb(0, 1) = tabwyn(los, n2)

tabliczb(0, 2) = tabwyn(los, n3)

tabliczb(0, 3) = tabwyn(los, n4)

tabliczb(0, 4) = tabwyn(los, n5)







pozycja = kombmax

For xx = k To 1 Step -1

If (en - tabliczb(0, xx - 1)) > (ka - xx) Then pozycja = pozycja - KOMBINACJE((ka + 1) - xx, en - tabliczb(0, xx - 1))



Next xx





If tabcsn(pozycja - 1, 0) = pozycja Then tabcsn(pozycja - 1, 0) = 0



Next n5

Next n4

Next n3

Next n2

Next n1





Next los

'teraz zapiszemy pozostałe csny

Dim t, zer As Long

Dim fs, ab

Set fs = CreateObject("Scripting.FileSystemObject")

Set ab = fs.CreateTextFile(ThisWorkbook.Path & "/" & "csn5.txt", True)

zer = 0

For t = 1 To csnmax

If tabcsn(t - 1, 0) = 0 Then GoTo 333

zer = zer + 1

With ab

.WriteLine (t)

End With





333

Next t



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

MsgBox "Zakończono aktualizację ost 10-losowan 5-ZEROWE " & Chr(13) & _

"czas obliczeń = " & czas & Chr(13) & _

Chr(13) & _

"Aktualnie niewylos. zerowych " & zer & " - kombinacji "

End Sub







Function SILNIA(n As Byte)



SILNIA = 1

If n < 2 Then SILNIA = 1 Else: SILNIA = SILNIA(n - 1) * n



End Function







Function KOMBINACJE(Lba As Byte, Elem As Byte)





KOMBINACJE = Round(SILNIA(Elem) / (SILNIA(Lba) * SILNIA(Elem - Lba)))

End Function



2013-12-22 (17:20)

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

2047
wpis nr 731 292
[ CZCIONKA MONOSPACE ]

777ch, dziękuję i za to makro. Przyda się do swoich analiz i dalszej nauki. Do poprawnego działania makro te potrzebuje pliku "csn5.txt" a więc kombinacje piątek zerowych, trzeba najpierw zapisać do pliku w postaci kodu CSN. W Twoim arkuszu po wyszukaniu zerowych piątek, zapewnie wszystko odbywa się w locie (kodowanie, zapis do pliku, sprawdzenie zestawów w ostatnich 10 losowaniach, dekodowanie CSN i wypis zerowych zestawów do arkusza). Sądzę, że zamianą piątek na kody CSN sobie poradzę. Nie zrobię tego co prawda w locie (nie ten stopień opanowania pisania makr) ale dam sobie radę. Potem już powinno już pójść z górki. Dziękując za poświęcony mi czas i pomoc, życzę Ci również radosnych i spokojnych świąt Bożego Narodzenia. Pozdrawiam!
2013-12-22 (17:56)

status LottoTest
Data rejestracji: 2010-11-12
Ilość postów: 721

12730
wpis nr 731 299
[ CZCIONKA MONOSPACE ]

@777ch,

dziekuję za odpowiedź,

zapewne wiem, że txt może być w locie,

z tym, że i tak nie używam excela, a więc wiele spraw, jakie podajesz przechodzi mi koło nosa,

np to co podałeś we wpisie nr 731 076, o zestawach p-n-p-...

chociaż to w odniesieniu do lotto od TSa,



Leo, ale w zastosowaniu do 49s? gdzie da sie takie zakłady pozawierać i z dobrym kursem (1:53) troche nawet poczekać.



Jak by to powiedzieć?

Leo, podaj prosze, w wolnej chwili, ileś tam (64), tych oczekujących zestawów dla 49s, z tą tzw "bieżącą przerwą", czyli ONT.

Muszę sie nad tym zastanowić powtórnie, a przede wszystkim odnieść rzeczywistą ilość oczekujacych do ilości "wzorcowej", teoretycznej.

Dawno sie nie zastanawiałem, nad tymi układami p-n-p..., kiedyś Kogucik zaproponował taka grę, brałem to bardziej grupowo, np do dwóch parzystych, albo 3 parzyste, itp, potem sie zaniedbało, i skończyło, a może trzeba wrócić do jakiejś szansy "odchudzania" ogona oczekujących na trafienie.

W każdym razie policzyć coś zawsze warto,

ale bazę zestawów możesz mieć Ty, bo masz narzędzia, o wiedzy nie wspominam.



Pozdrawiam serdecznie

wraz z życzeniami - zdrowych, spokojnych, owocnych Świąt!
2013-12-23 (01:58)

status LottoTest
Data rejestracji: 2010-11-12
Ilość postów: 721

12730
wpis nr 731 496
[ CZCIONKA MONOSPACE ]

Leo,

ciekawość, nie zna granic, nie czekałem na Twoją wolną chwilę,

zaprzągłem MultiPairs'a, po dostosowaniu bazy wyników niesortowanych i przygotowaniu pliku testowego 64 kombinacji PNP



Wycinek z analizy nr 20 MultiPairs2004



W liczbach z zestawu cyfry oznaczają

1. cyfra - pozycję wylosowanej, np 1 to pierwsza wylosowana, a 5 to piąta

2. cyfra - 1 - Nieparzysta, 2 - Parzysta



Lp. Zestaw liczb Max przerwa Bieżąca przerwa



01 12,22,32,41,51,61 243 307

02 12,21,32,42,51,62 232 227

03 11,22,31,42,52,62 288 188

04 12,22,31,41,51,61 273 186

05 12,21,32,41,51,62 240 159

06 12,22,31,42,51,62 308 149

07 12,22,31,42,52,61 287 124

08 11,21,32,41,52,61 339 115

09 11,22,31,41,52,61 256 112

10 11,21,32,41,51,62 322 110

11 12,22,32,42,51,62 276 109

12 12,21,31,42,52,62 235 108

13 11,22,32,42,51,61 260 107

14 12,22,31,41,52,61 447 101

15 11,22,32,42,52,61 308 95

16 12,21,31,42,51,62 231 93

17 11,21,31,41,51,61 410 90

18 12,22,31,42,51,61 255 81

19 12,22,31,42,52,62 281 76

20 12,21,32,41,52,62 282 71

21 12,22,32,41,52,62 442 67

22 11,21,32,42,51,61 226 66

23 12,21,31,41,51,62 216 62

24 12,21,32,41,52,61 334 61

25 12,21,32,42,51,61 331 60

26 12,22,32,41,52,61 277 59

27 11,22,31,42,51,62 281 57

28 11,22,31,42,52,61 273 55

29 11,22,32,41,52,61 292 54

30 11,22,31,41,51,61 337 50

31 12,22,31,41,52,62 251 47

32 11,22,32,42,52,62 265 44

33 11,21,32,42,51,62 452 42

34 12,22,31,41,51,62 318 41

35 12,21,32,41,51,61 305 38

36 11,21,32,42,52,61 259 37

37 12,22,32,42,52,61 392 36

38 11,22,32,41,52,62 240 31

39 11,22,31,42,51,61 263 29

40 11,21,31,42,52,62 221 28

41 11,21,31,41,51,62 215 27

42 11,21,31,41,52,62 359 25

43 11,21,32,41,52,62 269 24

44 12,22,32,41,51,62 337 22

45 11,22,31,41,52,62 262 21

46 12,21,32,42,52,62 376 20

47 11,22,32,41,51,61 351 19

48 12,22,32,42,51,61 315 18

49 11,21,32,42,52,62 282 17

50 11,21,32,41,51,61 237 16

51 11,21,31,42,52,61 408 15

52 12,21,31,41,51,61 285 14

53 12,21,31,41,52,62 266 13

54 11,21,31,42,51,61 330 11

55 12,21,31,41,52,61 332 10

56 12,22,32,42,52,62 539 9

57 11,21,31,42,51,62 398 7

58 12,21,31,42,52,61 199 6

59 11,22,31,41,51,62 312 5

60 12,21,32,42,52,61 335 4

61 11,22,32,42,51,62 333 3

62 11,21,31,41,52,61 373 2

63 11,22,32,41,51,62 323 1

64 12,21,31,42,51,61 300 0



Powered by © MultiPairs 2004



Z tego widać, że najdłużej oczekuje układ PPPNNN bo 307 losowań

Rekordowe czekanie przekracza okres 500 losowań - same parzyste

/ badanie wykonano od losowania nr 5001 do dzisiaj 9693 /



Inne wnioski ?

Zostawiam sobie na później.



Pozdrawiam

i jeszcze raz - Wesołych Świąt!

2013-12-23 (18:15)

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

1386
wpis nr 731 774
[ CZCIONKA MONOSPACE ]

LottoTest> witaj ,nie amm za bardzo ochoty studiować lotto w tej chwili,

sęk w zaleznościach p-n dotyczyć miał tylko filtrów jakimi dysponuje kolega Talizman ,

który jest expertem od lotto , moze to Cię zdziwi ,ale kolega Talizman wie o co biega,

jednakże wypowiada się we własny sposób,czasem dla ogółu niezrozumiany,a ja w odpowiedzi dla Talizmana ,tylko dodać chciałem że jego skuteczne filtry należy ustawić z dodatkiem sugerowanego ..jednego, powtarzam,jednego układu z 64 możliwych ustawień,

bo to znacznie zmniejszy liczbę zakładów ....... ot co .



Co do gry w 49s to kiedyś mojej uwadze nie umknął Twój wpis ,jakoby jakaś kwota

około 350 zł poszła w tym kierunku ,bez wyników, .tak mi sie przynajmniej wydaje ,jeśli tak nie jest w istocie,to mnie popraw.

Moje trafienia w tej grze w roku 2013 to 5/7 i 4/7 ...... to tak na marginesie.

Nie gram codziennie ,ale czasem gram.

Uważam że nie warto bawić się w czatowanie na drobne,czy grę progresją,ale nalezy celować w ok 6do 7 liczb obstawiajac 4-trafienia,najlepiej z liczb sasiednich,po dłuższym przestoju,w momencie gdy jest aktywnych przynajmniej 6 liczb z przedziału 10-tki.



przykład 1,2,4,5,7,8,9 .....7 liczb .....nie sprawdzam aktywności tylko podaję schemat jakiego typu układ nalezy skresllać.



POZDRAWIAM

leszek
2013-12-23 (18:20)

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

1386
wpis nr 731 780
[ CZCIONKA MONOSPACE ]

co do Multiparsa to nie znam sie, stosuje to co sam wymyślę ,albo ewentualnie rozwiązania kogoś, ktos kto jest dobry w te klocki..... np Sindbad......

Wesołych I Spokojnych
2013-12-23 (19:20)

status LottoTest
Data rejestracji: 2010-11-12
Ilość postów: 721

12730
wpis nr 731 807
[ CZCIONKA MONOSPACE ]

Witaj Leo, jeszcze przedświątecznie.



Czytasz uważnie, tak było, potwierdzam fakt, w grze stosuję granicę budżetową, za wcześnie wszedłem w progresję na układ 2/5 i tyle. Wyszło za kilka losowań, W Klubie u TeOdora można było to odegrać, w realu nie.



Tak na marginesie. Jest co gratulować za wynik 5/7 czy 4/7. Fakt.

Ja jestem bardziej sceptyczny, i na więcej niż 2/5 mnie nie stać w analizach,

ale przy okazji, jak mam taki typ to dorzucam 5/5, tylko za 1 zł. A nóż, widelec.



Wiem, że wiele potraficie, myślę także o Sindbadzie, podziwiam, trochę zazdroszczę, ale ja jednocześnie minimalizuję swoje potrzeby i jakoś wychodzę na swoje. Te ponad trzysta już odrobione, tak na marginesie.



Pozdrawiam

i ponawiam Życzenia!

Częściej 5/7 lub 4/7! A najlepiej 5/5 - kilka razy w roku.



Zdrowych i Wesołych
2013-12-23 (19:58)

status eMeL
Data rejestracji: 2008-11-24
Ilość postów: 12080

3906
wpis nr 731 814
[ CZCIONKA MONOSPACE ]

Witam



Układy P/NP przeciwstawne lubią wypadać w krótkim odstępie. Przykład tego, co mam na myśli to dzisiejsze losowanie TT - 6 liczb NP. A kiedy był układ 6 liczb P? 10 losowań wstecz.



Jeśli o grę 49's chodzi, to można wytypować ok. 10 parek(bazą 1 liczba pewniak) na 10 losowań. Jak pewniak wyjdzie 3, 4 razy w ciągu tych 10 losowań, to i parek kilka trafimy. Parki trzeba grać grubo, mniejsze koszty to trójki. Tylko problem, jak dobierać trzecią liczbę do parek.



Pozdrawiam
2013-12-26 (21:12)

status mysliwy
Data rejestracji: 2010-11-05
Ilość postów: 818

12717
wpis nr 732 949
[ CZCIONKA MONOSPACE ]

witaj 777ch. mam problem takiej natury,że nie moge pobrać aktualnych zerowych piątek. podany adres 21.12.2013 nie odpowiada. pomóż. dzięki
2013-12-26 (21:32)

status LottoTest
Data rejestracji: 2010-11-12
Ilość postów: 721

12730
wpis nr 732 954
[ CZCIONKA MONOSPACE ]

@mysliwy,



adres, który podał Leo, nadal działa - sprawdź poprawność

http://speedy.sh/QjVQZ/zerowe-multimulti-stan-na-21-12-2013.zip



sprawdzałem

pozdr
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 31 32 33 ... 45 46
Wyślij wiadomość do admina