Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 618 619 620 ... 781 782
Wyślij wiadomość do admina
🎱 MultiPairs 2027 – zapisz się na listę beta BETA

Przewiń wpisy ↓

49's

2014-01-29 (18:21)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 332
[ CZCIONKA MONOSPACE ]

wow, ale czworek sypnelo, nie gralem dokladnie 7 na 4/6
2014-01-29 (18:34)

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

3906
wpis nr 749 344
[ CZCIONKA MONOSPACE ]

777ch - przeniosłem pliki na inną partycję i makra działają(coś mam skopane z uprawnieniami). Natomiast wychodzą mi inne wyniki tzn zestawy. Chyba, że to inne makro. U mnie nastawia się 2/2(ustawiłem na 22) i 2/3(na 167).
2014-01-29 (18:47)

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

3906
wpis nr 749 357
[ CZCIONKA MONOSPACE ]

Ja tam widzę jedno 5/6 i zero 4/6. Razem zysk, jakby grał 3/6 i 4/6 ponad 46 000 z 4 losowań.
2014-01-29 (18:57)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 365
[ CZCIONKA MONOSPACE ]

tak, eMel masz racje - jak zwykle kliknalem nie tam, gdzie trzeba na moim kombajnie



1x 5/6 i 1 x 4/6 - u ciebie tej 4/6 nie widac, bo juz jest w tej 5/6

to samo ma sie z innymi: ty masz 25x 3/6, ja 26x; 91x 2/6, ja 117x; 196x 1/6, ja 313x
2014-01-29 (19:33)

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

1386
wpis nr 749 371
[ CZCIONKA MONOSPACE ]

----- Zestawienie trafień 433 kombinacji z pliku LEO.txt -----

Analiza traf.w zakresie losowań 9767 ~ 9767 [1 ] los. los. z dnia 2014-01-29



Trafień 0|6 = 120

Trafień 1|6= 196

Trafień 2|6 = 91

Trafień 3|6= 25

Trafień 4|6 = 0

Trafień 5|6 = 1

Trafień 6|6 = 0





1-na piątka jest ,podejrzewam że wejdą jeszcze dwie .

2014-01-29 (19:34)

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

3906
wpis nr 749 372
[ CZCIONKA MONOSPACE ]

Gramy np. 4/6, trafiamy 5/6 to mamy 5x4/6, przy 3/6 trafiając 5/6 mamy 10 x3/6.



Przy takich wynikach to i byłoby czym się podzielić grając nawet w 10 osób.
2014-01-29 (19:37)

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

1386
wpis nr 749 373
[ CZCIONKA MONOSPACE ]

eMeL> baza musi być posortowana to primo,zawsze niezależnie od startu obliczeń ,czy to dziś liczysz ,czy za dwa tygodnie cofniesz obliczenia o dwa tygodnie,zestawy są takie same .

2014-01-29 (20:15)

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

3906
wpis nr 749 394
[ CZCIONKA MONOSPACE ]

Dokładnie tak robię, zestawy wychodzą inne. Mamy inną bazę losowań, czy co?
2014-01-29 (20:30)

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

3906
wpis nr 749 413
[ CZCIONKA MONOSPACE ]

Czwartek LT



FB i BB próg 10 - 23

BB próg 8 - 8 18 28 38 48

FB i BB próg 3 - 16 17 18
2014-01-29 (20:50)

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

1386
wpis nr 749 426
[ CZCIONKA MONOSPACE ]

eMEL > Nie wiem czy to masz ,ale szukaj jak na obrazku

2014-01-29 (23:26)

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

3794
wpis nr 749 552
[ CZCIONKA MONOSPACE ]

Czwartek LT

BB 9 + - 1
2014-01-30 (09:38)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 603
[ CZCIONKA MONOSPACE ]

@777ch



czy moglbys tutaj wrzucic kod funkcji do tej eliminacji 2/2 i tego drugiego parametru 2/3, co te zestawy tworzy?
2014-01-30 (11:16)

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

1386
wpis nr 749 647
[ CZCIONKA MONOSPACE ]

engee30> to było napisane dawno temu a ja nie mam ochoty na przeróbki,bo

nie mam na to czasu,nie miałem wtedy jeszcze takiej wiedzy jaką mam dziś

Boję się że mnie Sindbad wyśmieje

No ale wstawiam ,tu nie ma żadnych 2z3 ,bo to o czym pisze emel to co innego.



---------------baza arkusz 2-- nr,data,liczby----------------------------------------------------------------------------Sub Cover_superspeed6()





' Makro zarejestrowane 2010-01-01, autor LEO



MsgBox "Jeden ze sposobów uzyskania wielu trafień 4/6 ,czasem lepiej" & Chr(13) & _

Chr(13) & _

"Budowanie Coveru ZATRZYMUJESZ klawiszem [ESC], następnie wybierz[END]"

Dim stoper As Date, czas As String

Dim stoper1 As Date, czas1 As String

Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long

Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabgps() As Long











Dim Liczba_STARTOWA As Byte

Dim tab5() As Long

Dim tab4() As Long

Dim TAB3() As Long

Dim tab2() As Long

Dim fs, A

Dim powt2 As Integer

Dim powt3 As Integer

Dim powt4 As Integer

Dim powt5 As Integer

Set fs = CreateObject("Scripting.FileSystemObject")

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

k = 0

zapis = 0

Liczba_STARTOWA = 1

ReDim tab5(300000, 80)





ReDim tab4(787980, 77)

ReDim TAB3(787980, 1)

ReDim tab2(7980, 1)

Liczba_KOŃCOWA = Int(InputBox("Wpisz [Max. Liczbę] dla LICZNIKA ", " od 6 do 80 "))

komb = Application.WorksheetFunction.Combin(Liczba_KOŃCOWA, 6)

MsgBox "Zaraz dostaniesz pytanie o [zakres los.]Brak 2/2 dla Par " & Chr(13) & _

Chr(13) & _

"---jeśli chcesz ten warunek pominąć ,to WPISZ [0]---" & Chr(13) & _

Chr(13) & _

"$$$ dla Multi Multi wpisz zakres = 20 .....moja sugestia $$$"

limittrpar = Int(InputBox(" Podaj ZAKRES > [ile LOSOWAŃ BRAK 2/2 dla par] ", "Pary z trf. 2/2 wyeliminuję "))

If limittrpar = 0 Then GoTo 333





stoper1 = Timer



cofka = Int(InputBox("Wpisz cofnięcie obliczeń w czasie ", " np. 0~100 losowań "))

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







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

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



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

ReDim tabgps(vlos, LICZB_GRY)







For los = vlos To 1 Step -1

For liczba = 1 To LICZB_GRY







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

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







Next liczba



Next los

















'teraz PARY

padły = 0

niepadły = 0

For lc1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 1

For lc2 = lc1 + 1 To Liczba_KOŃCOWA



For SPR = vlos To vlos - limittrpar - 1 Step -1



sc = tabgps(SPR, lc1) + tabgps(SPR, lc2)

If sc = 2 Then tab2(lc1 & lc2, 1) = 777

If sc < 2 And SPR = vlos - limittrpar Then tab2(lc1 & lc2, 1) = 0

If sc = 2 Then padły = padły + 1

If sc = 2 Then Exit For

Next SPR

If sc < 2 Then niepadły = niepadły + 1



Next lc2

Next lc1

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



MsgBox "Eliminacja Par które padły w ost." & limittrpar & "-los . " & padły & " takich par wystąpiło" & Chr(13) & _

"Par które nie wystapiły w ost. " & limittrpar & "-los = " & niepadły & Chr(13) & _

"Cover nie bedzie zawierał " & padły & " par które zanotowały 2/2" & Chr(13) & _

"W ZAKRESIE jaki ustawiłeś ,czyli [ " & vlos - limittrpar - 1 & "~" & vlos & " ]" & Chr(13) & _

"Ustawiony zakres brak 2/2 wynosił " & limittrpar & "-losowań"



333



przybyło = 0

777

If k > 0 And przybyło = 0 Then MsgBox " Musisz zwiększyć LIMITY POWTÓREK aby contynuować COVER"



If k > 0 And przybyło = 0 Then odp3 = MsgBox("naciśnij Tak jeśli chcesz kontynuować COVER " & Chr(13) _

& " jeśli chcesz zalończyć " & Chr(13) _

& "To wybierz nie Nie ", vbYesNo)

If k > 0 And przybyło = 0 And odp3 = vbNo Then GoTo 779 Else: GoTo 778



778

powt2 = Int(InputBox("ile par może się powt.w coverze ", " kolejno 0,1,2,3 itd. "))

powt3 = Int(InputBox("ile trójek może się powt.w coverze ", " kolejno 0,1,2,3 itd. "))

powt4 = Int(InputBox("ile czwórek może się powt.w coverze ", " kolejno 0,1,2,3 itd. "))

1

stoper = Timer

If przybyło > 0 Then powt2 = powt2 + 1

If przybyło = 0 And k > 1 Then powt3 = powt3 + 1

przybyło = 0



For l1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 5

For l2 = l1 + 1 To Liczba_KOŃCOWA - 4

For l3 = l2 + 1 To Liczba_KOŃCOWA - 3

For l4 = l3 + 1 To Liczba_KOŃCOWA - 2

For l5 = l4 + 1 To Liczba_KOŃCOWA - 1

For l6 = l5 + 1 To Liczba_KOŃCOWA





If tab2(l1 & l2, 1) = 777 Then GoTo 2

If tab2(l1 & l3, 1) = 777 Then GoTo 3

If tab2(l2 & l3, 1) = 777 Then GoTo 3

If tab2(l1 & l4, 1) = 777 Then GoTo 4

If tab2(l2 & l4, 1) = 777 Then GoTo 4

If tab2(l3 & l4, 1) = 777 Then GoTo 4

If tab2(l1 & l5, 1) = 777 Then GoTo 5

If tab2(l2 & l5, 1) = 777 Then GoTo 5

If tab2(l3 & l5, 1) = 777 Then GoTo 5

If tab2(l4 & l5, 1) = 777 Then GoTo 5

If tab2(l1 & l6, 1) = 777 Then GoTo 6

If tab2(l2 & l6, 1) = 777 Then GoTo 6

If tab2(l3 & l6, 1) = 777 Then GoTo 6

If tab2(l4 & l6, 1) = 777 Then GoTo 6

If tab2(l5 & l6, 1) = 777 Then GoTo 6



If tab2(l1 & l2, 1) > powt2 Then GoTo 2

If tab2(l1 & l3, 1) > powt2 Then GoTo 3

If tab2(l2 & l3, 1) > powt2 Then GoTo 3

If tab2(l1 & l4, 1) > powt2 Then GoTo 4

If tab2(l2 & l4, 1) > powt2 Then GoTo 4

If tab2(l3 & l4, 1) > powt2 Then GoTo 4

If tab2(l1 & l5, 1) > powt2 Then GoTo 5

If tab2(l2 & l5, 1) > powt2 Then GoTo 5

If tab2(l3 & l5, 1) > powt2 Then GoTo 5

If tab2(l4 & l5, 1) > powt2 Then GoTo 5

If tab2(l1 & l6, 1) > powt2 Then GoTo 6

If tab2(l2 & l6, 1) > powt2 Then GoTo 6

If tab2(l3 & l6, 1) > powt2 Then GoTo 6

If tab2(l4 & l6, 1) > powt2 Then GoTo 6

If tab2(l5 & l6, 1) > powt2 Then GoTo 6



If TAB3(l1 & l2 & l3, 1) > powt3 Then GoTo 3

If TAB3(l1 & l2 & l4, 1) > powt3 Then GoTo 4

If TAB3(l1 & l3 & l4, 1) > powt3 Then GoTo 4

If TAB3(l2 & l3 & l4, 1) > powt3 Then GoTo 4

If TAB3(l1 & l2 & l5, 1) > powt3 Then GoTo 5

If TAB3(l1 & l3 & l5, 1) > powt3 Then GoTo 5

If TAB3(l1 & l4 & l5, 1) > powt3 Then GoTo 5

If TAB3(l2 & l3 & l5, 1) > powt3 Then GoTo 5

If TAB3(l2 & l4 & l5, 1) > powt3 Then GoTo 5

If TAB3(l3 & l4 & l5, 1) > powt3 Then GoTo 5



If tab4(l2 & l3 & l4, l1) > powt4 Then GoTo 4

If tab4(l2 & l3 & l5, l1) > powt4 Then GoTo 5

If tab4(l2 & l4 & l5, l1) > powt4 Then GoTo 5

If tab4(l3 & l4 & l5, l1) > powt4 Then GoTo 5

If tab4(l3 & l4 & l5, l2) > powt4 Then GoTo 5

If tab4(l2 & l3 & l6, l1) > powt4 Then GoTo 6

If tab4(l2 & l4 & l6, l1) > powt4 Then GoTo 6

If tab4(l2 & l5 & l6, l1) > powt4 Then GoTo 6

If tab4(l3 & l4 & l6, l1) > powt4 Then GoTo 6

If tab4(l3 & l5 & l6, l1) > powt4 Then GoTo 6

If tab4(l4 & l5 & l6, l1) > powt4 Then GoTo 6

If tab4(l3 & l4 & l6, l2) > powt4 Then GoTo 6

If tab4(l3 & l5 & l6, l2) > powt4 Then GoTo 6

If tab4(l4 & l5 & l6, l2) > powt4 Then GoTo 6

If tab4(l4 & l5 & l6, l3) > powt4 Then GoTo 6



If powt4 < 1 Then GoTo 22

For SPR5 = 1 To k

TR5 = tab5(SPR5, l1) + tab5(SPR5, l2) + tab5(SPR5, l3) _

+ tab5(SPR5, l4) + tab5(SPR5, l5) + tab5(SPR5, l6)

If TR5 >= 5 Then GoTo 6

Next SPR5

22

k = k + 1

przybyło = przybyło + 1



With A

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

End With



tab2(l1 & l2, 1) = tab2(l1 & l2, 1) + 1

tab2(l1 & l3, 1) = tab2(l1 & l3, 1) + 1

tab2(l2 & l3, 1) = tab2(l2 & l3, 1) + 1

tab2(l1 & l4, 1) = tab2(l1 & l4, 1) + 1

tab2(l2 & l4, 1) = tab2(l2 & l4, 1) + 1

tab2(l3 & l4, 1) = tab2(l3 & l4, 1) + 1

tab2(l1 & l5, 1) = tab2(l1 & l5, 1) + 1

tab2(l2 & l5, 1) = tab2(l2 & l5, 1) + 1

tab2(l3 & l5, 1) = tab2(l3 & l5, 1) + 1

tab2(l4 & l5, 1) = tab2(l4 & l5, 1) + 1

tab2(l1 & l6, 1) = tab2(l1 & l6, 1) + 1

tab2(l2 & l6, 1) = tab2(l2 & l6, 1) + 1

tab2(l3 & l6, 1) = tab2(l3 & l6, 1) + 1

tab2(l4 & l6, 1) = tab2(l4 & l6, 1) + 1

tab2(l5 & l6, 1) = tab2(l5 & l6, 1) + 1







TAB3(l1 & l2 & l3, 1) = TAB3(l1 & l2 & l3, 1) + 1

TAB3(l1 & l2 & l4, 1) = TAB3(l1 & l2 & l4, 1) + 1

TAB3(l1 & l3 & l4, 1) = TAB3(l1 & l3 & l4, 1) + 1

TAB3(l2 & l3 & l4, 1) = TAB3(l2 & l3 & l4, 1) + 1

TAB3(l1 & l2 & l5, 1) = TAB3(l1 & l2 & l5, 1) + 1

TAB3(l1 & l3 & l5, 1) = TAB3(l1 & l3 & l5, 1) + 1

TAB3(l1 & l4 & l5, 1) = TAB3(l1 & l4 & l5, 1) + 1

TAB3(l2 & l3 & l5, 1) = TAB3(l2 & l3 & l5, 1) + 1

TAB3(l2 & l4 & l5, 1) = TAB3(l2 & l4 & l5, 1) + 1

TAB3(l3 & l4 & l5, 1) = TAB3(l3 & l4 & l5, 1) + 1



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

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

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

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

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

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

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

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

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

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

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

tab5(k, l1) = 1

tab5(k, l2) = 1

tab5(k, l3) = 1

tab5(k, l4) = 1

tab5(k, l5) = 1

tab5(k, l6) = 1

6

Next l6

5

Next l5

4

Next l4

3

Next l3

2

Next l2

Next l1

zapis = zapis + 1

n = 1

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

czas1 = Format(Timer - stoper1, " 00:00:00.00") & " sec."



'' MsgBox "Zakończono obliczenia 6 liczb z " & Liczba_KOŃCOWA & Chr(13) & _

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

''"zapisano kombincje bez powtórek 4/6" & Chr(13) & _

'' Chr(13) & _

''" aktualnie ustawione warunki spełniło " & k & " - kombinacji " & Chr(13) & _

'' Chr(13) & _

''" teraz przybyło nowych kombinacji = " & przybyło & Chr(13) & _

''" aktualnie powtórek par = " & powt2 & Chr(13) & _

''" aktualnie powtórek trójek = " & powt3 & Chr(13) & _

'' Chr(13) & _

''"kombinacje zapisane zostały do C:\Leo.txt "

Cells(n + 1, 1) = "Cover nr." & zapis

Cells(n + 2, 1) = "Cover zbioru = " & komb & "-kombinacji"

Cells(n + 3, 1) = "Max ilość powtórek par = " & powt2

Cells(n + 4, 1) = "Max ilość powtórek trójek = " & powt3

Cells(n + 5, 1) = "Max ilość powtórek czwórek = " & powt4

Cells(n + 6, 1) = "Warunki spełnił zbiór = " & k & " kombinacji 6z" & Liczba_KOŃCOWA

Cells(n + 7, 1) = "-nowych dopisał teraz = " & przybyło

Cells(n + 8, 1) = "czas wykonania " & czas & " TOTAL TIME procedury = " & czas1

Cells(n + 9, 1) = "########################################################################"



If przybyło = 0 Then ILZERO = ILZERO + 1

If przybyło > 0 Then ILZERO = 0

If przybyło = 0 And ILZERO >= 3 Then GoTo 777

GoTo 1

779



End Sub

2014-01-30 (11:32)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 649
[ CZCIONKA MONOSPACE ]

dzieki Leo za kodzik - idealnie, ze Excel uzywa VBA, co w praktyce rowna sie VB, z ktorego to ja korzystam na codzien
2014-01-30 (11:36)

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

1386
wpis nr 749 652
[ CZCIONKA MONOSPACE ]

gdy zapyta o kontnuowanie coveru to

No
2014-01-30 (11:50)

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

1386
wpis nr 749 656
[ CZCIONKA MONOSPACE ]

W excelu można wiele , w Delphi znacznie więcej,ale lubię excela.

2014-01-30 (12:05)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 676
[ CZCIONKA MONOSPACE ]

ja tez preferuje Excela do dzialan liczbowych

Delphi znam tylko z nazwy, ale przypuszczam, ze kodowanie jest podobne, jak w przypadku wiekszosci jezykow programowania
2014-01-30 (12:10)

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

1386
wpis nr 749 681
[ CZCIONKA MONOSPACE ]

engee30 > tylko się pochwal jak Ci wypluje te 433 z cofnięciem 4losowania

oczywiście zmienne możesz na stałe wpisać ,i wywalić nadpisywanie informacji do excela,to przyspieszy,ale zapewnie wiesz co robić
2014-01-30 (12:27)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 692
[ CZCIONKA MONOSPACE ]

zrobi sie, jakby co to bede pytal
2014-01-30 (14:21)

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

3906
wpis nr 749 786
[ CZCIONKA MONOSPACE ]

Czwartek LT



FB i BB próg 10 - [23]



Czwartek TT



BB próg 9 - 8 18 28 38 48

FB i BB próg 4 - 16 17 18



Ale bliźniaki grasują jako FB lub BB.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 618 619 620 ... 781 782
Wyślij wiadomość do admina
🎱 MultiPairs 2027 – zapisz się na listę beta BETA