Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 8 9 10 ... 24 25
Wyślij wiadomość do admina

Przewiń wpisy ↓

Mini Lotto

2015-10-24 (23:17)

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

3794
wpis nr 939 186
[ CZCIONKA MONOSPACE ]

Słabo



0001. 24.10.2015 2/15

0002. 23.10.2015 3/15

0003. 22.10.2015 3/15

0004. 21.10.2015 2/15

0005. 20.10.2015 3/15

0006. 19.10.2015 2/15

0007. 17.10.2015 2/15

0008. 16.10.2015 3/15

0009. 15.10.2015 2/15

0010. 14.10.2015 2/15

0011. 13.10.2015 1/15

0012. 12.10.2015 1/15

0013. 10.10.2015 1/15

2016-02-18 (20:15)

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

1386
wpis nr 968 108
[ CZCIONKA MONOSPACE ]

witka

Pamiętasz Sindbadzie projekt 6z 49 bez powtórek piątek ?



Aktualnie w Mini Lotku jest coś około 349 tys z haczykiem takich piątek,które nie zanotowały 4z5

od początku......licząc również te losowania w których było 49 liczb.



Jak sprawdzisz ostatnie 100-losowań to 47 z 100 wylosowanych piątek,nigdy nie zanotowało wcześniej czwórki.



Ale ....te 349 tys ....to za dużo do analiz pod różnymi kryteriami....ale spróbuj

wygenerować 6-ki ,bez powtórek piątek,ale .....odrzucaj te szóstki .....jakie zanotowały już 4z6



>otrzymasz zbiór 41043 kombinacji szóstek ,też sporo,ale tu będą padały 5-ki w mini .

To się da spokojnie obrabiać ..pod różnymi warunkami,ja korzystam z excelka 2003 ,mi taki zbiór

bardzo leży ....... to taka .koleżeńska porada,o ile grasz w te grę.



A...tak wyglądają trafienia w tym zbiorze szóstek,bez powtórek 5-ek do teraz.



----- Zestawienie Trafień 41043 kombinacji z pliku 6MiniLotto.txt -----

Trafienia w zakresie los. 3580 ~ 1 [3580 ]-los. 2016-02-17 ~ 1976-03-31



Trafień 0|6 = 65366056

Trafień 1|6 = 60971826

Trafień 2|6 = 18358333

Trafień 3|6 = 2237725

Trafień 4|6 = 0

Trafień 5|6 = 0









2016-02-18 (20:23)

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

1386
wpis nr 968 111
[ CZCIONKA MONOSPACE ]

dokładnie te losowania ,z brakiem 4z5.....wczesniej ....

3580 2016-02-17

3578 2016-02-15

3576 2016-02-13

3570 2016-02-07

3568 2016-02-05

3566 2016-02-03

3564 2016-02-01

3562 2016-01-30

3561 2016-01-29

3557 2016-01-25

3553 2016-01-21

3551 2016-01-19

3548 2016-01-16

3547 2016-01-15

3545 2016-01-13

3543 2016-01-11

3542 2016-01-10

3541 2016-01-09

3539 2016-01-07

3538 2016-01-06

3534 2016-01-02

3533 2016-01-01

3528 2015-12-27

3527 2015-12-26

3526 2015-12-25

3524 2015-12-23

3523 2015-12-22

3518 2015-12-17

3511 2015-12-10

3509 2015-12-08

3507 2015-12-06

3506 2015-12-05

3505 2015-12-04

3503 2015-12-02

3502 2015-12-01

3501 2015-11-30

3495 2015-11-23

3494 2015-11-21

3492 2015-11-19

3491 2015-11-18

3488 2015-11-14

3487 2015-11-13

3486 2015-11-12

3485 2015-11-11

3484 2015-11-10

3483 2015-11-09

3482 2015-11-07

2016-02-18 (21:09)

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

1386
wpis nr 968 122
[ CZCIONKA MONOSPACE ]

Może np ....Kleszek sobie zainplementuje,może ktoś inny....jesli potrafi odczytać dane codu makra....... wklejam czym to obliczyłem





Sub AAAABRAK_HIST5NA6()

'

' TABLICA_ELIMINATOR Makro





Dim Liczba_STARTOWA As Byte, Liczba_KOnCOWA As Byte

Dim kombi As Long



Dim fs, a

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

Dim tab4() As Variant

Dim kn As Long



Dim tabwyl() As Long

Dim v As Byte

Dim k As Byte

Dim tabkomb() As Long

Dim HH As Byte

Set fs = CreateObject("Scripting.FileSystemObject")

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

'WPISANO DANE do tablicy losowan GPS













'DANE GLOBALNE

Dim dl As Byte

Dim vlos As Long

Dim los As Long

Dim tabcsn() As Long







Dim byla, n As Long

Dim nk As Long





k = 5

Dim c(80)

Dim num(80)









' DANE WYNIKÓW LOSOWAn

Dim tabwyn() As Variant

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

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

vlos = Application.WorksheetFunction.CountA(Range(Arkusz2.Cells(1, 1), Arkusz2.Cells(65536, 1)))

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

v = Application.WorksheetFunction.max(Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(65536, 22)))

ReDim tab4(v - 3 & v - 2 & v - 1, v) 'również dla v=49

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



For lt1 = 1 To v - 4

For lt2 = lt1 + 1 To v - 3

For lt3 = lt2 + 1 To v - 2

For lt4 = lt3 + 1 To v - 1

For lt5 = lt4 + 1 To v

tab4(lt1 & lt2 & lt3, lt4) = 0

tab4(lt1 & lt2 & lt3, lt5) = 0

tab4(lt1 & lt2 & lt4, lt5) = 0

tab4(lt1 & lt3 & lt4, lt5) = 0

tab4(lt2 & lt3 & lt4, lt5) = 0

Next lt5

Next lt4

Next lt3

Next lt2

Next lt1

If v = 49 And LICZB_LOSOWANYCH = 5 Then v = 42



'TERAZ CSNY WYLOSOWANYCH PIATEK W SZÓSTKACH

ReDim tabkomb(6, 5)

ReDim tabcsn(25000000, 1)

For los = vlos To 1 Step -1

KOL = 0

For n1 = 1 To dl - 4

For n2 = n1 + 1 To dl - 3

For n3 = n2 + 1 To dl - 2

For n4 = n3 + 1 To dl - 1

For n5 = n4 + 1 To dl













'KOLEJNA PIĄTKA WYLOSOWANA

l1 = tabwyn(los, n1)

l2 = tabwyn(los, n2)

l3 = tabwyn(los, n3)

l4 = tabwyn(los, n4)

l5 = tabwyn(los, n5)

tab4(l2 & l3 & l4, l1) = 1

tab4(l2 & l3 & l5, l1) = 1

tab4(l2 & l4 & l5, l1) = 1

tab4(l3 & l4 & l5, l1) = 1

tab4(l3 & l4 & l5, l2) = 1

If l1 > v Or l2 > v Or l3 > v Or l4 > v Or l5 > v Then GoTo 1234

tabkomb(1, 1) = l1

tabkomb(1, 2) = l2

tabkomb(1, 3) = l3

tabkomb(1, 4) = l4

tabkomb(1, 5) = l5

'TERAZ PRZYDZIELIMY CSN DLA 6-CIU PIATEKI



'pierwsza piątka csn1 =============================================

For i = 1 To 5

num(i) = tabkomb(1, i)

Next i



li = 0

csn1 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

111: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 111

li = li - r





Next i

csn1 = li + num(k) - num(p1)





'zapiszemy do tablicy numery wylosowanych piatek z kolejnych szóstek

' przy okazji wypiszemy piątki do arkusza które sie powtórzyly



tabcsn(csn1, 1) = csn1



'kol = kol + 1 'kolejna piatka nr porządkowy

'Cells(2, 42) = csn1 'kolejny csn piatki









Next n5

Next n4

Next n3

Next n2

Next n1

Cells(1, 42) = los

'Cells(3, 42) = kol 'wpis kolejnego nr porządkowego piątki

1234

Next los











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



'If v = 49 Then v = 42



'DANE LOSOWAn GPS

Liczba_STARTOWA = 1 'CInt(InputBox(" Wpisz liczbę startową ", "min liczba"))

Liczba_KOnCOWA = v ' CInt(InputBox(" Wpisz liczbę koncową ", "max liczba"))



kombi = 0

kn = 0

kombino = 0





''ReDim tabgps(100000, 80)









For l1 = Liczba_STARTOWA To Liczba_KOnCOWA - 5

For l2 = l1 + 1 To Liczba_KOnCOWA - 4

For l3 = l2 + 1 To Liczba_KOnCOWA - 3

For l4 = l3 + 1 To Liczba_KOnCOWA - 2

For l5 = l4 + 1 To Liczba_KOnCOWA - 1

For l6 = l5 + 1 To Liczba_KOnCOWA

kombi = kombi + 1

If tab4(l2 & l3 & l4, l1) = 1 Then GoTo 4

If tab4(l2 & l3 & l5, l1) = 1 Then GoTo 5

If tab4(l2 & l4 & l5, l1) = 1 Then GoTo 5

If tab4(l3 & l4 & l5, l1) = 1 Then GoTo 5

If tab4(l3 & l4 & l5, l2) = 1 Then GoTo 5

If tab4(l2 & l3 & l6, l1) = 1 Then GoTo 6

If tab4(l2 & l4 & l6, l1) = 1 Then GoTo 6

If tab4(l2 & l5 & l6, l1) = 1 Then GoTo 6

If tab4(l3 & l4 & l6, l1) = 1 Then GoTo 6

If tab4(l3 & l5 & l6, l1) = 1 Then GoTo 6

If tab4(l4 & l5 & l6, l1) = 1 Then GoTo 6

If tab4(l3 & l4 & l6, l2) = 1 Then GoTo 6

If tab4(l3 & l5 & l6, l2) = 1 Then GoTo 6

If tab4(l4 & l5 & l6, l2) = 1 Then GoTo 6

If tab4(l4 & l5 & l6, l3) = 1 Then GoTo 6





tabkomb(1, 1) = l1 'liczba pierwsza

tabkomb(1, 2) = l2 'liczba druga

tabkomb(1, 3) = l3 'liczba trzecia

tabkomb(1, 4) = l4 'liczba czwarta

tabkomb(1, 5) = l5 'liczba piąta



tabkomb(2, 1) = l1 'liczba pierwsza

tabkomb(2, 2) = l2 'liczba druga

tabkomb(2, 3) = l3 'liczba trzecia

tabkomb(2, 4) = l4 'liczba czwarta

tabkomb(2, 5) = l6 'liczba piąta



tabkomb(3, 1) = l1 'liczba pierwsza

tabkomb(3, 2) = l2 'liczba druga

tabkomb(3, 3) = l3 'liczba trzecia

tabkomb(3, 4) = l5 'liczba czwarta

tabkomb(3, 5) = l6 'liczba piąta



tabkomb(4, 1) = l1 'liczba pierwsza

tabkomb(4, 2) = l2 'liczba druga

tabkomb(4, 3) = l4 'liczba trzecia

tabkomb(4, 4) = l5 'liczba czwarta

tabkomb(4, 5) = l6 'liczba piąta



tabkomb(5, 1) = l1 'liczba pierwsza

tabkomb(5, 2) = l3 'liczba druga

tabkomb(5, 3) = l4 'liczba trzecia

tabkomb(5, 4) = l5 'liczba czwarta

tabkomb(5, 5) = l6 'liczba piąta



tabkomb(6, 1) = l2 'liczba pierwsza

tabkomb(6, 2) = l3 'liczba druga

tabkomb(6, 3) = l4 'liczba trzecia

tabkomb(6, 4) = l5 'liczba czwarta

tabkomb(6, 5) = l6 'liczba piąta













HH = 1

For i = 1 To 5

num(i) = tabkomb(HH, i)

Next i



li = 0

csn1 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

7777: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 7777

li = li - r





Next i

csn1 = li + num(k) - num(p1)

'If csn > 0 And TABCSN(csn, 1) = csn Then GoTo 10

kombino = kombino + 1

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 1) = tabkomb(HH, 1)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 2) = tabkomb(HH, 2)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 3) = tabkomb(HH, 3)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 4) = tabkomb(HH, 4)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 5) = tabkomb(HH, 5)



'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 21) = csn











'wynik pokaże ci msgbox,ale moze po prostu zostac w tablicy

''MsgBox " Csn kombinacji dla kombinacji [" & TABKOMB(1, 1) & "," & TABKOMB(1, 2) & "," & TABKOMB(1, 3) & "," & _

''TABKOMB(1, 4) & "," & TABKOMB(1, 5) & "," & TABKOMB(1, 6) & " ]" & Chr(13) & _

''" masz tu > " & csn & Chr(13)











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

HH = 2

For i = 1 To 5

num(i) = tabkomb(HH, i)

Next i



li = 0

csn2 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

8888: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 8888

li = li - r





Next i

csn2 = li + num(k) - num(p1)



kombino = kombino + 1

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 1) = tabkomb(HH, 1)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 2) = tabkomb(HH, 2)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 3) = tabkomb(HH, 3)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 4) = tabkomb(HH, 4)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 5) = tabkomb(HH, 5)



'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 21) = csn











'wynik pokaże ci msgbox,ale moze po prostu zostac w tablicy

''MsgBox " Csn kombinacji dla kombinacji [" & TABKOMB(1, 1) & "," & TABKOMB(1, 2) & "," & TABKOMB(1, 3) & "," & _

''TABKOMB(1, 4) & "," & TABKOMB(1, 5) & "," & TABKOMB(1, 6) & " ]" & Chr(13) & _

''" masz tu > " & csn & Chr(13)





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

HH = 3

For i = 1 To 5

num(i) = tabkomb(HH, i)

Next i



li = 0

csn3 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

9999: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 9999

li = li - r





Next i

csn3 = li + num(k) - num(p1)



kombino = kombino + 1

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 1) = tabkomb(HH, 1)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 2) = tabkomb(HH, 2)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 3) = tabkomb(HH, 3)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 4) = tabkomb(HH, 4)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 5) = tabkomb(HH, 5)



'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 21) = csn











'wynik pokaże ci msgbox,ale moze po prostu zostac w tablicy

''MsgBox " Csn kombinacji dla kombinacji [" & TABKOMB(1, 1) & "," & TABKOMB(1, 2) & "," & TABKOMB(1, 3) & "," & _

''TABKOMB(1, 4) & "," & TABKOMB(1, 5) & "," & TABKOMB(1, 6) & " ]" & Chr(13) & _

''" masz tu > " & csn & Chr(13)









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

HH = 4

For i = 1 To 5

num(i) = tabkomb(HH, i)

Next i



li = 0

csn4 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

6666: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 6666

li = li - r





Next i

csn4 = li + num(k) - num(p1)



kombino = kombino + 1

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 1) = tabkomb(HH, 1)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 2) = tabkomb(HH, 2)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 3) = tabkomb(HH, 3)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 4) = tabkomb(HH, 4)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 5) = tabkomb(HH, 5)



'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 21) = csn











'wynik pokaże ci msgbox,ale moze po prostu zostac w tablicy

''MsgBox " Csn kombinacji dla kombinacji [" & TABKOMB(1, 1) & "," & TABKOMB(1, 2) & "," & TABKOMB(1, 3) & "," & _

''TABKOMB(1, 4) & "," & TABKOMB(1, 5) & "," & TABKOMB(1, 6) & " ]" & Chr(13) & _

''" masz tu > " & csn & Chr(13)









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

HH = 5

For i = 1 To 5

num(i) = tabkomb(HH, i)

Next i



li = 0

csn5 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

5555: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 5555

li = li - r





Next i

csn5 = li + num(k) - num(p1)



kombino = kombino + 1

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 1) = tabkomb(HH, 1)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 2) = tabkomb(HH, 2)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 3) = tabkomb(HH, 3)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 4) = tabkomb(HH, 4)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 5) = tabkomb(HH, 5)



'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 21) = csn











'wynik pokaże ci msgbox,ale moze po prostu zostac w tablicy

''MsgBox " Csn kombinacji dla kombinacji [" & TABKOMB(1, 1) & "," & TABKOMB(1, 2) & "," & TABKOMB(1, 3) & "," & _

''TABKOMB(1, 4) & "," & TABKOMB(1, 5) & "," & TABKOMB(1, 6) & " ]" & Chr(13) & _

''" masz tu > " & csn & Chr(13)









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

HH = 6

For i = 1 To 5

num(i) = tabkomb(HH, i)

Next i



li = 0

csn6 = 0

p1 = k - 1



For i = 1 To p1



c(i) = 0

If i <> 1 Then c(i) = c(i - 1)

4444: c(i) = c(i) + 1



r = Combine(v - c(i), k - i)

li = li + r

If c(i) < num(i) Then GoTo 4444

li = li - r





Next i

csn6 = li + num(k) - num(p1)



kombino = kombino + 1

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 1) = tabkomb(HH, 1)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 2) = tabkomb(HH, 2)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 3) = tabkomb(HH, 3)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 4) = tabkomb(HH, 4)

'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 5) = tabkomb(HH, 5)



'If csn > 0 And TABCSN(csn, 1) <> csn Then Cells(kombino + 1, 21) = csn











'wynik pokaże ci msgbox,ale moze po prostu zostac w tablicy

''MsgBox " Csn kombinacji dla kombinacji [" & TABKOMB(1, 1) & "," & TABKOMB(1, 2) & "," & TABKOMB(1, 3) & "," & _

''TABKOMB(1, 4) & "," & TABKOMB(1, 5) & "," & TABKOMB(1, 6) & " ]" & Chr(13) & _

''" masz tu > " & csn & Chr(13)





If tabcsn(csn1, 1) = csn1 Then GoTo 9

If tabcsn(csn2, 1) = csn2 Then GoTo 10

If tabcsn(csn3, 1) = csn3 Then GoTo 10

If tabcsn(csn4, 1) = csn4 Then GoTo 10

If tabcsn(csn5, 1) = csn5 Then GoTo 10

If tabcsn(csn6, 1) = csn6 Then GoTo 10





kn = kn + 1

With a

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

End With

Cells(2, 26) = " AKTUALNIE bez powt. 5/6 = " & kn & " " _

& l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5 & " " & l6

tabcsn(csn1, 1) = csn1

tabcsn(csn2, 1) = csn2

tabcsn(csn3, 1) = csn3

tabcsn(csn4, 1) = csn4

tabcsn(csn5, 1) = csn5

tabcsn(csn6, 1) = csn6



10

6

Next l6

9

5

Next l5

4

Next l4

Next l3

Next l2

Next l1











Cells(2, 26) = " Liczba komb bez powt. 5/6 = " & kn

Cells(3, 26) = " obliczenia zakonczone "

End Sub

Function Combine(n, m)



FA = 1

For i = 1 To m: FA = FA * i: Next i

vA = 1

For j = (n - m + 1) To n: vA = vA * j: Next j

Combine = vA / FA



End Function



2016-02-18 (21:29)

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

3794
wpis nr 968 126
[ CZCIONKA MONOSPACE ]

Witaj

Już od dawna nie gram.

Czekam na to, co będzie się działo w grze przez Internet.



Pozdrawiam



2016-02-18 (22:21)

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

1386
wpis nr 968 157
[ CZCIONKA MONOSPACE ]

no to Sindbadzie ...trza się przygotować

ja gram ...

dziś w "tym"pliku brak 5-ki



----- Zestawienie Trafień 41043 kombinacji z pliku Leo6.txt -----

Analiza traf.w zakresie losowan 3581 ~ 3581 [1 ] los. los. z dnia 2016-02-18



Trafień 0|6 = 17750

Trafień 1|6= 17420

Trafień 2|6 = 5294

Trafień 3|6= 560

Trafień 4|6 = 19

Trafień 5|6 = 0



czyli dalej 41043...kombinacje



edituję bo 6z6..to lotto .......

--- wpis edytowano 2016-02-18 22:22 ---

2016-02-18 (22:26)

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

1386
wpis nr 968 160
[ CZCIONKA MONOSPACE ]

3581 2016-02-18 5 11 14 30 38



ta miala już 1x 4z5..........wcześniej.....
2016-02-18 (22:40)

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

1386
wpis nr 968 165
[ CZCIONKA MONOSPACE ]

Sindbad

Liczba komb bez powt. 5/6 = 41057



po dzisiejszym,według układanki z mojego makra



dziwne .jest więcej niż mniej ale to wynik układanki 5-ek w 6-kach po odjęciu 4-ek z dziś

--- wpis edytowano 2016-02-18 22:42 ---

2016-02-18 (22:51)

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

1386
wpis nr 968 168
[ CZCIONKA MONOSPACE ]

no i

mam kilka więcej w pliku



----- Zestawienie Trafień 41057 kombinacji z pliku 6Mini.txt -----

Trafienia w zakresie los. 3581 ~ 1 [3581 ]-los. 2016-02-18 ~ 1976-03-31



Trafień 0|6 = 65407164

Trafień 1|6 = 61009204

Trafień 2|6 = 18369790

Trafień 3|6 = 2238959

Trafień 4|6 = 0

Trafień 5|6 = 0

Trafień 6|6 = 0



gdyby ktoś chciał zerknąć

http://speedy.sh/4nMam/Leo6.txt
2016-02-18 (23:30)

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

1386
wpis nr 968 177
[ CZCIONKA MONOSPACE ]

Sindbad > jak chęć bedziesz miał,to zrób w delphi dla mnilotto 6-ki bez powtórek 5-ki baz trafień 4z6 ......porównamy dane.

pa

pozdrawiam mistrza



edytowałem ,bo po paru setkach i kilku piwach ......się mi literówka ..wkradła

--- wpis edytowano 2016-02-18 23:32 ---

2016-02-18 (23:41)

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

2047
wpis nr 968 181
[ CZCIONKA MONOSPACE ]

cyt. "Może np ....Kleszek sobie zainplementuje " 777ch, próbowałem, ale u mnie makro zatrzymuje sie na instrukcji



tab4(l3 & l4 & l5, l1) = 1

subscript out of range i nie wiem co jest tego przyczyną.

Wyniki losowań mini mam w arkuszu2

Nie wiem na czym polega ten problem.
2016-02-19 (08:28)

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

1386
wpis nr 968 203
[ CZCIONKA MONOSPACE ]

ReDim tab4(v - 3 & v - 2 & v - 1, v) 'również dla v=49



ta linnia powyzej to index ,v to wartość u mnie =49





ale ponieważ od niedawna nie losują 49-liczb ,to zmniejszam v do 42

jak poniżej



If v = 49 And LICZB_LOSOWANYCH = 5 Then v = 42







to co u Ciebie

tab4(l3 & l4 & l5, l1) = 1

to przypisanie dla indeksu czwórek wartości =1 ,czyli ze wystapiła,po

to by nie trafiła później piątka z ta 4-ką do zbioru np:

czyli np:

40 & 41 & 42,1

to

czwórka 1,40,41,42





jeżeli tu wykrzacza ,to w bazie losowań masz wartość nieodpowiednią

za wysoką liczbę,albo komórka nie jest wartością liczbową
2016-02-19 (08:31)

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

1386
wpis nr 968 204
[ CZCIONKA MONOSPACE ]

to moja baza Mini,pobierz ,wczytaj,testuj

http://speedy.sh/gWaVV/GRA-5-Z-49.TXT
2016-02-19 (09:03)

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

1386
wpis nr 968 207
[ CZCIONKA MONOSPACE ]

kleszek



Ja mniemam.....że sobie sprawdzałeś na bazie dla Lotto



zmnień zatem jedną linię :

na

ReDim tab4(v & v & v, v) 'również dla v=49



wtedy poleci



narka



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

dla mini otrzymasz

Liczba komb bez powt. 5/6 = 41057



dla lotto

Liczba komb bez powt. 5/6 = 14553
2016-02-19 (09:18)

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

1386
wpis nr 968 208
[ CZCIONKA MONOSPACE ]

kleszek>

jeśli by ci do głowy przyszło sprawdzać również dla 49s



to muszisz zmienić tu

For los = vlos To vlos - 5000 Step -1



wtedy dostaniesz 165 kombinacji

i sprawdź je potem,czyli ......jaki maja ont 4,5,6.....
2016-02-19 (11:47)

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

2047
wpis nr 968 232
[ CZCIONKA MONOSPACE ]

777ch, dziękuję za wyjaśnienia. Teraz jest juz wszystko ok. Wystarczyło tylko zmienić tak jak sugerowałeś linię kodu, na

ReDim tab4(v & v & v, v) 'również dla v=49

Wyniki są ( bo muszą być ) takie same jak u Ciebie. Sprawdziłem tak jak sugerowałeś to makro na grze 49`s. Otrzymałem 165 kombinacji. Najniższy ONT4 z zestawów wynosi 5006, najwyższy 7992. Z tych zestawów, 123 zestawy nie miały jak dotąd trafienia 5 z 6. Zmieniłem linię makra

For los = vlos To vlos - 5000 Step -1 na

For los = vlos To vlos - 6000 Step -1

Makro wygenerowało 20 zestawów. Myślę, że warto się skoncentrować na obserwacji tych zestawów. Z tej mąki może być chleb

Dziękuję za makro i pozdrawiam!

2016-02-19 (15:22)

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

1386
wpis nr 968 286
[ CZCIONKA MONOSPACE ]

witka

no i o to chodzi



Kiedyś sindbad zrobił liczydło bez powtórek 5,

ja to miałem w excelu,a tu jest tylko dołatane takie

dodatkowe eliminowanie zestawów,aby były zerowe czwórki ,no a wyżej to wiadomo,skoro 4-ek brak.....



pozdrawiam
2016-04-03 (20:59)

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

3794
wpis nr 980 452
[ CZCIONKA MONOSPACE ]

Hej!

Mam 80 zakładów na chybił-trafił z soboty, ale nie chce mi się tego sprawdzać.

Może jutro się zmuszę tak przed południem.

2016-04-03 (22:24)

status vidmo
Data rejestracji: 2004-11-03 00:00:00
Ilość postów: 11017

449
wpis nr 980 496
[ CZCIONKA MONOSPACE ]

Jutro przed południem, to znaczy w pracy;). Jak jest czas w pracy na rozwijanie swojego hobby - to ideał... Życie jak w Madrycie, jak mawiała moja babcia. He, he...
2016-04-04 (10:52)

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

3794
wpis nr 980 587
[ CZCIONKA MONOSPACE ]

Witam!

Wygraną w wysokości 18.10 PLN przeznaczam na parę MM 20,22 x7.

Niestety nie mam okazji wysłać tej pary, więc gra będzie wirtualna.



Powodzenia!

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 8 9 10 ... 24 25
Wyślij wiadomość do admina