Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 618 619 620 ... 780 781 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | 49's |
2014-01-29 (19:37)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | 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)![]() Data rejestracji: 2008-11-24 Ilość postów: 12080 ![]() | wpis nr 749 394 [ CZCIONKA MONOSPACE ] Dokładnie tak robię, zestawy wychodzą inne. Mamy inną bazę losowań, czy co? |
2014-01-29 (20:30)![]() Data rejestracji: 2008-11-24 Ilość postów: 12080 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 749 426 [ CZCIONKA MONOSPACE ] eMEL > Nie wiem czy to masz ,ale szukaj jak na obrazku ![]() |
2014-01-29 (23:26)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 749 552 [ CZCIONKA MONOSPACE ] Czwartek LT BB 9 + - 1 |
2014-01-30 (09:38)![]() Data rejestracji: 2013-03-05 Ilość postów: 693 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | 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)![]() Data rejestracji: 2013-03-05 Ilość postów: 693 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 749 652 [ CZCIONKA MONOSPACE ] gdy zapyta o kontnuowanie coveru to No |
2014-01-30 (11:50)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 749 656 [ CZCIONKA MONOSPACE ] W excelu można wiele , w Delphi znacznie więcej,ale lubię excela. |
2014-01-30 (12:05)![]() Data rejestracji: 2013-03-05 Ilość postów: 693 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | 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)![]() Data rejestracji: 2013-03-05 Ilość postów: 693 ![]() | wpis nr 749 692 [ CZCIONKA MONOSPACE ] zrobi sie, jakby co to bede pytal ![]() |
2014-01-30 (14:21)![]() Data rejestracji: 2008-11-24 Ilość postów: 12080 ![]() | 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. |
2014-01-30 (14:26)![]() Data rejestracji: 2008-06-25 Ilość postów: 7715 ![]() | wpis nr 749 791 [ CZCIONKA MONOSPACE ] Bliźniaki to nic ![]() Parka 23-32 szaleje ![]() Nie grane - szkoda ![]() |
2014-01-30 (14:32)![]() Data rejestracji: 2013-03-05 Ilość postów: 693 ![]() | wpis nr 749 796 [ CZCIONKA MONOSPACE ] tomcio, nic tam u ciebie ostatnio nie wpada? |
2014-01-30 (14:36)![]() Data rejestracji: 2008-06-25 Ilość postów: 7715 ![]() | wpis nr 749 803 [ CZCIONKA MONOSPACE ] Na razie nic. Dwie gry bez wygranej. Nie pomyślałem dziś aby dorzucić do gry sześć parek odwróconych ![]() |
2014-01-30 (14:47)![]() Data rejestracji: 2013-03-05 Ilość postów: 693 ![]() | wpis nr 749 815 [ CZCIONKA MONOSPACE ] no zauwazylem, ze na wielu twoich typach takie parki wystepuja, chyba warto im sie blizej przyjzec, bo jak widac na zalaczonych przez ciebie obrazkach, licza sie |
2014-01-30 (14:48)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 749 817 [ CZCIONKA MONOSPACE ] o 14-tej cienko ----- Zestawienie trafień 433 kombinacji z pliku LEO.txt ----- Analiza traf.w zakresie losowań 9768 ~ 9768 [1 ] los. los. z dnia 2014-01-30 Trafień 0|6 = 123 Trafień 1|6= 214 Trafień 2|6 = 89 Trafień 3|6= 7 Trafień 4|6 = 0 Trafień 5|6 = 0 Trafień 6|6 = 0 |
2014-01-30 (16:20)![]() Data rejestracji: 2008-11-24 Ilość postów: 12080 ![]() | wpis nr 749 868 [ CZCIONKA MONOSPACE ] 777ch - jakim obrazku? Chyba mamy różnice w bazie losowań. Zapuściłem to dzisiejsze makro i wypluło mi 420 zestawów. Są różnice w ilości par, które nie wystąpiły w ost. 22 los. Ja mam 422, na Twoim screenie jest 418. U mnie nie ma też 5/6. |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 618 619 620 ... 780 781 Wyślij wiadomość do admina |