Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 11 12 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Temat leo777ch |
2012-10-11 (12:39) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 513 [ CZCIONKA SPECJALNA ] Witam wszystkich ,ale przede wszystkim Tych z Was którzy się posługują arkuszem Excela Mam nadzieję że Janus ,Trebor i inni koledzy zaimplementują sobie to małe moje makro ...być może [nie obiecuję] rozwiniemy ten algorytm kiedyś o coś węcej --------------------------------------------------------- 1. baza losowań w arkuszu nr 2 w ten sposób zapisana: 2. komórka [k1] w arkusz1. z pokrętłem do ustawiania cofnięcia w czasie obliczeń ============================ U |
2012-10-11 (12:52) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 519 [ CZCIONKA SPECJALNA ] Sorki,kliknęło mi sie w enter ,i temat poszedł w .eter A więc ustawcie sobie w arkuszu nr.1 w komórce [k1] jakies cofnięcie obliczeń na przykład 60 ,czyli 30 dni ,bo losują 2-losowania ,i ogladajcie skuteczność. Nie chodzi o to by była powalająca na kolana,chodzi o to aby sobie układ jeden wybrać jako prowadzacy rozpis ,jesli ktoś wysyła więcej jak jeden zakład ,tak aby np. w przypadku Multi Multi ten rozpis zawierał 4 liczby z 5-ki danego układu w każdym zakładzie albo całą piatkę + własne liczby . Trochę opisałem makro ,więc Ci co cokolwiek rozumieją ,to .zrozumieją. Dawno nie udzielam się ,więc ten temacik jako Ciekawostka . Tu podaję gotowy algorytm,prosty w budowie,bo zbyt dużo filtrów psuje zabawę. No i uwaga , przełączcie sobie obliczenia na manual ,bo tu nie ma formułek Oto algorytm i .... już mnie nie ma =================================================================================================================== Sub czaspomiar5liczb() ' ' takie sobie Makro dla 5 liczb ' Makro zarejestrowane 2012-10-11, autor Leo777ch Dim tab2() As Integer Dim tab3() As Integer Dim tab5czas() As Variant Dim tabprog3() As Variant Dim tabtrafieńfutures() As Variant Dim tab5() As Long Dim fs, A Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(ThisWorkbook.Path & "/" & "Piątki.txt", True) 'uwaga w przypadku windows7 musimy zmienić ścieżkę Dim LICZB_LOSOWANYCH As Integer Dim LICZB_GRY As Integer Dim vlos As Long Dim los As Long Dim wymaganetrafienie As Byte Dim liczba As Integer Dim tabwyn() As Variant Dim tabgps() As Long Dim stoper As Date, czas As String Arkusz1.Activate cofka = Arkusz1.Cells(1, 11).Value 'umożliwi nam zmiana liczby w tej komórkce obliczenia z cofnięciem w czasie vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka vreal = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) 'realna aktualna baza losowań arkusz2 !!! LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1")) 'baza losowań informacja ile jest max liczb w grze [np 49] LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000")) 'baza losowań informacja ile losowanych jest liczb np[7 {49s}] tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vreal, 100)).Value Liczba_STARTOWA = 1 Liczba_KOŃCOWA = LICZB_GRY If LICZB_GRY = 49 Then norm3 = 75 'czas oczekiwania dla 2z3 minimum If LICZB_GRY = 49 Then norm2 = 100 'czas oczekiwania dla 2z2 minimum If LICZB_GRY = 80 Then norm3 = 110 'czas oczekiwania dla 3z3 minimum If LICZB_GRY = 80 Then norm2 = 7 'czas oczekiwania dla 2z2 minimum If LICZB_GRY = 80 Then wymaganetrafienie = 4 If LICZB_GRY = 49 Then wymaganetrafienie = 3 stoper = Timer 'czyscimy colorki i dane w arkuszu Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(65536, 256)) = "" Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(65536, 256)).Interior.ColorIndex = none ReDim tabgps(vreal, LICZB_GRY) For los = vreal 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 'tablica wyników gotowa 'teraz parki czas oczekiwania na 2/2 [ont2] ReDim tab2(7980, 1) For lp1 = 1 To Liczba_KOŃCOWA - 1 For lp2 = lp1 + 1 To Liczba_KOŃCOWA s = 0 For spr2 = vlos To 1 Step -1 s = tabgps(spr2, lp1) + tabgps(spr2, lp2) If s >= 2 Then tab2(lp1 & lp2, 1) = vlos - spr2 If s >= 2 Then Exit For Next spr2 Next lp2 Next lp1 'teraz sprawdzimy ont2/3 ReDim tab3(787980, 1) For lt1 = 1 To Liczba_KOŃCOWA - 2 For lt2 = lt1 + 1 To Liczba_KOŃCOWA - 1 For lt3 = lt2 + 1 To Liczba_KOŃCOWA s = 0 For spr3 = vlos To 1 Step -1 s = tabgps(spr3, lt1) + tabgps(spr3, lt2) + tabgps(spr3, lt3) If s >= wymaganetrafienie - 1 Then tab3(lt1 & lt2 & lt3, 1) = vlos - spr3 If s >= wymaganetrafienie - 1 Then Exit For Next spr3 Next lt3 Next lt2 Next lt1 'teraz liczydło dla układów 5-liczbowych z odwołaniem do 'norm oczekiwania dla 2/2 oraz 2/3 oraz czasu zsumowanego ont2/2+ont2/3 'tworzymy tablicę kombinacji i tablicę czasów do zapisu ReDim tab5(65000, 4) ReDim tab5czas(65000, 2) ReDim tabtrafieńfutures(65000, 0) k = 0 For l1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 4 For l2 = l1 + 1 To Liczba_KOŃCOWA - 3 For l3 = l2 + 1 To Liczba_KOŃCOWA - 2 For l4 = l3 + 1 To Liczba_KOŃCOWA - 1 For l5 = l4 + 1 To Liczba_KOŃCOWA czas_suma_oczekiwania_na_2traf_pary = tab2(l1 & l2, 1) + tab2(l1 & l3, 1) + tab2(l1 & l4, 1) + tab2(l1 & l5, 1) + _ tab2(l2 & l3, 1) + tab2(l2 & l4, 1) + tab2(l2 & l5, 1) + tab2(l3 & l4, 1) + tab2(l3 & l5, 1) + tab2(l4 & l5, 1) czas_suma_oczekiwania_na_2traf_trójki = tab3(l1 & l2 & l3, 1) _ + tab3(l1 & l2 & l4, 1) + tab3(l1 & l3 & l4, 1) + tab3(l2 & l3 & l4, 1) + _ tab3(l1 & l2 & l5, 1) + tab3(l1 & l3 & l5, 1) + tab3(l1 & l4 & l5, 1) + _ tab3(l2 & l3 & l5, 1) + tab3(l2 & l4 & l5, 1) + tab3(l3 & l4 & l5, 1) czaswspólny = czas_suma_oczekiwania_na_2traf_pary + czas_suma_oczekiwania_na_2traf_trójki If tab2(l1 & l2, 1) < norm2 Then GoTo 2 If tab2(l1 & l3, 1) < norm2 Then GoTo 3 If tab2(l1 & l4, 1) < norm2 Then GoTo 4 If tab2(l1 & l5, 1) < norm2 Then GoTo 5 If tab2(l2 & l3, 1) < norm2 Then GoTo 3 If tab2(l2 & l4, 1) < norm2 Then GoTo 4 If tab2(l2 & l5, 1) < norm2 Then GoTo 5 If tab2(l3 & l4, 1) < norm2 Then GoTo 4 If tab2(l3 & l5, 1) < norm2 Then GoTo 5 If tab2(l4 & l5, 1) < norm2 Then GoTo 5 If tab3(l1 & l2 & l3, 1) < norm3 Then GoTo 3 If tab3(l1 & l2 & l4, 1) < norm3 Then GoTo 4 If tab3(l1 & l3 & l4, 1) < norm3 Then GoTo 4 If tab3(l2 & l3 & l4, 1) < norm3 Then GoTo 4 If tab3(l1 & l2 & l5, 1) < norm3 Then GoTo 5 If tab3(l1 & l3 & l5, 1) < norm3 Then GoTo 5 If tab3(l1 & l4 & l5, 1) < norm3 Then GoTo 5 If tab3(l2 & l3 & l5, 1) < norm3 Then GoTo 5 If tab3(l2 & l4 & l5, 1) < norm3 Then GoTo 5 If tab3(l3 & l4 & l5, 1) < norm3 Then GoTo 5 'zapisujemy dane aby je potem wczytać od razu z tablicy do arkusza tab5(k, 0) = l1 tab5(k, 1) = l2 tab5(k, 2) = l3 tab5(k, 3) = l4 tab5(k, 4) = l5 tab5czas(k, 0) = czaswspólny tab5czas(k, 1) = czas_suma_oczekiwania_na_2traf_pary tab5czas(k, 2) = czas_suma_oczekiwania_na_2traf_trójki 'zapisujemy równiezsame kombinacje do pliku w celu archiwizacji,do późniejszego ew. sprawdzenia With A .WriteLine (l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5) End With k = k + 1 'tworzymy warunek,jesli kombinacji jest więcej niż 65000 to przerwiemy dalsze liczenie If k = 65000 Then MsgBox "Jest już 65000-kombinacji ,przerywamy" If k = 65000 Then GoTo 777 5 Next l5 4 Next l4 3 Next l3 2 Next l2 Next l1 777 If k = 0 Then GoTo 1000 'jesli nie ma danych to do podsumowania 'zabawimy się ,sprawdzamy co i w której grze weszło później ReDim tabprog3(k - 1, 0) For Typ = 1 To k tabprog3(Typ - 1, 0) = "brak trafienia >=" & wymaganetrafienie & "/5" 'wpiszemy na początku żemy nie bawić się w ify tabtrafieńfutures(Typ - 1, 0) = 0 wyn = 0 ODL = 0 For spr5 = vlos + 1 To vreal Step 1 ODL = ODL + 1 wyn = tabgps(spr5, tab5(Typ - 1, 0)) + tabgps(spr5, tab5(Typ - 1, 1)) + tabgps(spr5, tab5(Typ - 1, 2)) _ + tabgps(spr5, tab5(Typ - 1, 3)) + tabgps(spr5, tab5(Typ - 1, 4)) 'sprawdzamy na którym progu weszło przynajmniej 3z5 If wyn >= wymaganetrafienie Then tabprog3(Typ - 1, 0) = "Wynik >=3/5 w grze nr. [" & ODL & "] " & wyn & "/5" If wyn >= wymaganetrafienie - 1 Then tabtrafieńfutures(Typ - 1, 0) = wyn If wyn >= wymaganetrafienie Then Exit For Next spr5 If Typ = k + 1 Then Exit For Next Typ 'wczytamy tablice do arkusza Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(k + 1, 5)) = tab5 Range(Arkusz1.Cells(2, 28), Arkusz1.Cells(k + 1, 30)) = tab5czas 'i wpiszemy co i kiedy weszło jeśli cofneliśmy obliczenia ale sprawdzimy tylko przypadki wyst 3z5 Range(Arkusz1.Cells(2, 42), Arkusz1.Cells(k + 1, 42)) = tabprog3 'wpiszemy same trafienia przyszłe do osobnej kolumny do posortowania i obejrzenia Range(Arkusz1.Cells(2, 27), Arkusz1.Cells(k + 1, 27)) = tabtrafieńfutures 888 'podsumowanie obliczeń czas = Format(Timer - stoper, " 00:00:00.00") & " sec." MsgBox "Zakończono obliczenia 5 liczb " & Chr(13) & _ "czas obliczeń = " & czas & Chr(13) & _ Chr(13) & _ "ustawione warunki spełniło " & k & " - kombinacji " & Chr(13) & _ Chr(13) & _ "kombinacje zapisane zostały do pliku : Piątki.txt " Arkusz1.Cells(2, 1).Select ' wchodzimy do miejsca zapisu pierwszej kombinacji 1000 If k = 0 Then Cells(2, 42) = "Nie znalazł zadnej kombinacji o żądanym oczekiwaniu" End Sub |
2012-10-11 (13:12) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 525 [ CZCIONKA SPECJALNA ] .....przykład,jakie dane otrzymacie dla bazy Multi z wynikami do teraz |
2012-10-11 (13:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 535 [ CZCIONKA SPECJALNA ] dla 49s ustawiłam w makrze If LICZB_GRY = 49 Then norm3 = 70 'czas oczekiwania dla 2z3 minimum If LICZB_GRY = 49 Then norm2 = 7 'czas oczekiwania dla 2z2 minimum wynik przy cofnięciu 60 losowań: celem założenia tego tematu było tylko udostepnienie algorytmu, nic poza tym[....wyjasnienie na wypadek jeśli ktoś coś sobie w głowie niepoukładał ] pozdrawiam |
2012-10-11 (13:55) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 549 [ CZCIONKA SPECJALNA ] Jeśli komuś się uda uruchomić makro ,albo coś w nim przerobić ,to .niech się .....pochwali. To są piątki ,więc zostaje miejsce na dodatkowe liczby jeśli ktoś chce trafić więcej. |
2012-10-11 (15:16) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | wpis nr 563 563 [ CZCIONKA SPECJALNA ] A sprawdź czy zadziała coś takiego: Utwórz 100 losowych piątek. Mają być losowe aby nie generować "piątek" tworzących jakieś skrajności. Wystarczy funkcja random albo podobna. Zobacz na 30 losowaniach czy jest możliwe uzyskanie trafień ok.90 trójek. Jeżeli zwiększysz cofkę do 90 losowań to zobacz czy jest możliwe uzyskanie conajmniej 50 trafień w czwórkach. Pozdrawiam |
2012-10-11 (15:20) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 564 [ CZCIONKA SPECJALNA ] Ken> witaj ,ale przy jakiej grze ,przy 49s ,lotto czy Multi bo to różnica jest . pozdrawiam |
2012-10-11 (15:32) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 565 [ CZCIONKA SPECJALNA ] Ken> bo jak spojrzysz na rycine przykładu dla Multilotka ,to układy a było ich osiem do 14 losowań zanotowały 4/5 i 5/5 .... bo trójki w Multi to zbyt mało jest, a dla 49s rycina pokazuje 12 kombinacji z uzyskanym minimum 3/5 na 16-które wyłonił algorytm ale co do random,włącznie z isaakiem kolegi Amadeusa ,to wielka loteria jest. |
2012-10-11 (15:37) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 563 567 [ CZCIONKA SPECJALNA ] Leszek ... dałeś 60 losowań następujących po sobie a co by było gdyby te losowania były jeszcze odróżnione od siebie pod względem wychodzenia liczb w losowaniu ..... mam na myśli masz jakiś zestaw liczb np od 1 do 40 ( np. dla MM ) i w przedziale 60 losowań tylko wybrane są te losowania w których wyszły liczby z naszego przedziału liczb ..... powstaje wtedy zestaw liczb "chodzących" z sobą i właśnie z tych liczb sprawdzić jak wychodzą w kolejnych losowaniach np. w losowaniu zostały wylosowane liczby 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20 te liczby losowania bierzemy do dalszej analizy są z przedziału naszych liczb w losowaniu zostały wylosowane liczby 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.41 tych liczb z losowania nie bierzemy do analizy liczba 41 nie jest z naszego przedziału liczb |
2012-10-11 (15:46) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 570 [ CZCIONKA SPECJALNA ] Sławek > napisałeś " liczby losowania bierzemy do dalszej analizy są z przedziału naszych liczb "......za leniwy jestem na takie "piesze" rozwiązania. Ja nie chcę nic analizować ,to ma zrobić algorytm czyli komputer,a wiadomo że nie zawsze uzyskamy od razu....dlatego cofnięcie ,aby zobaczyć aby forumowicz sobie zobaczył......jak to wygląda w .....praniu, oczywiście trochę bardziej zaawansowany algorytm,bez wypisu danych do arkusza, wszystko sam cofnie ,i poda wyniki skuteczności algorytmu w postaci ......podsumowania. |
2012-10-11 (16:04) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850 | wpis nr 563 575 [ CZCIONKA SPECJALNA ] 777ch, fantastyczne makro! Uruchomiłem,działa bez żadnych problemów. Domyślam się,że czasy oczekiwania dla gier ustaliłeś na podstawie własnych doświadczeń. Wyniki są obiecujące. Tutaj też widzę największe pole do zabawy z tym makrem (zawsze można pokombinować z własnymi nastawami) 777ch mam prośbę.O ile to nie tajemnica, czy możesz podać makro do automatycznego pobierania wyników dla gry 49`s ? (przypuszczam,że jest jakiś sposób) Znacznie ułatwiło by to pracę z Twoim makrem. Za wszelką pomoc, wielkie dzięki! |
2012-10-11 (16:36) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 576 [ CZCIONKA SPECJALNA ] witaj kleszek > sa dwa makra które współdziałają ,ale ja mam w programie sporo arkuszy dlatego taki rozrzut danych ,makro pobierze wyniki i porówna z tym co masz w bazie ,ale tylko 60 ostatnich losowań,czyli jak do 60 losowań nie zaktualizujesz to .....musisz ręcznie. pozdrawiam napisz czy sobie poradziłeś,nie wpisuje daty i numeru losowania ,bo to robi z kolei inny algorytm ================================================== uruchamiasz makro które ma nazwę > zztablicawyn49s wklejam obydwa ================================================= Sub zztablicawyn49s() ' ' zztablicawyn49s Makro ' Makro zarejestrowane 2011-04-28, autor Leszek Dim tabL() As Integer Dim x As Integer Dim tablos() As Variant Arkusz4.Activate Arkusz4.Cells.ClearContents scrOF Cells(1, 1).Select v = Application.WorksheetFunction.CountA(Arkusz2.Range("a:a")) Cells.Select Selection.ClearContents 'Selection.QueryTable.Delete Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://webmon9.betfred.com/numbers/results/index.asp?slng=SIS49", _ Destination:=Range("A1")) .Name = "index.asp?slng=SIS49_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Rows("1:41").Select Selection.Delete Shift:=xlUp Rows("97:600").Select Selection.Delete Shift:=xlUp Range("A1").Select For i = 1 To 100 If Arkusz4.Cells(i, = "Booster" Then Arkusz4.Rows(i).Delete Next i N = 1 ReDim tabL(100, 1) For I2 = 1 To 62 If Cells(I2, 1) = "Draw 02" Then N = N + 1 If tabL(N, 1) = N Then N = N + 1 If Cells(I2, 1) = "Draw 02" Then Cells(I2, 1) = N If Cells(I2, 1) = "Draw 01" Then Cells(I2, 1) = N - 2 tabL(N, 1) = N Next I2 Range("a61:iv65536") = "" 'Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(0, 255)).Sort Key1:=Range("a1"), Order1:=xlDescending, Header:=xlNo, _ 'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Columns("B:H").Select 'Selection.ColumnWidth = 2 Selection.NumberFormat = "0" Columns("A:A").Select 'Selection.ColumnWidth = 4 max = Application.WorksheetFunction.CountA(Range("A1:A65536")) Range("A1").Select analiza_losowań_wczytanych End Sub Sub analiza_losowań_wczytanych() Dim l1, l2, l3, l4, l5, l6, pp As Integer Dim s As Integer, z As Long 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 TABTR() As Variant Dim TR As Integer Dim zakres_sprawdzenia As Integer Dim SKREŚLEŃ As Byte SKREŚLEŃ = Application.WorksheetFunction.CountA(Range("A2:T2")) cofka = Arkusz1.Cells(1, 11).Value vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) ZEST = Application.WorksheetFunction.CountA(Range("A1:A65536")) If ZEST = 0 Then MsgBox " Nie ma żadnych danych losowań " If ZEST = 0 Then Exit Sub LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1")) LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V5000")) pp = 0 tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, 100)).Value tabkomb = Range(Cells(1, 2), Cells(ZEST, ).Value If ZEST > 1 Then TABTR = Range(Cells(1, 31), Cells(ZEST, 31)).Value If ZEST = 1 Then TABTR = Range(Cells(1, 31), Cells(ZEST, 31)).Value 1 'gps losowań 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 For z = ZEST To 1 Step -1 TR = 0 l1 = tabkomb(z, 1) l2 = tabkomb(z, 2) l3 = tabkomb(z, 3) l4 = tabkomb(z, 4) l5 = tabkomb(z, 5) l6 = tabkomb(z, 6) l7 = tabkomb(z, 7) For SPR = vlos To 1 Step -1 s = 0 s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) + tabgps(SPR, l5) + tabgps(SPR, l6) _ + tabgps(SPR, l7) If s = 7 Then TR = TR + 1 Next SPR TABTR(z, 1) = TR nex = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) + pp If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, 3) = tabkomb(z, 1) If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, 4) = tabkomb(z, 2) If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, 5) = tabkomb(z, 3) If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, 6) = tabkomb(z, 4) If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, 7) = tabkomb(z, 5) If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, = tabkomb(z, 6) If TABTR(z, 1) = 0 Then Arkusz2.Cells(nex + 1, 9) = tabkomb(z, 7) If TABTR(z, 1) = 0 Then pp = pp + 1 Next z scrON Arkusz2.Select End Sub ----------------------------------------------------------------------- na marginesie,można sobie dla norm przyjąć zmienne oparte o jakieś okienka w arkuszu ,które sobie nastawimy......w celu poszukiwania własnych ustawień, wszystko się da ,albo prawie wszystko |
2012-10-11 (16:38) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 578 [ CZCIONKA SPECJALNA ] chyba sa potrzebna jeszcze dwa Public Sub scrOF() Application.ScreenUpdating = False End Sub Public Sub scrON() Application.ScreenUpdating = True End Sub |
2012-10-11 (16:42) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 580 [ CZCIONKA SPECJALNA ] Czasami w makrach są zmienne które nie są potrzebne,nie chce mi się wszystkiego dokładnie sprawdzać,jak przerabiam ,to zazwyczaj czasem coś zostanie ,ale to nie przeszkadza niestety aktualizacja dla 49s jest możliwa tylko jak dane są dostępne,zazwyczaj około 19.30,nigdy nie ma ich po południowym losowaniu. |
2012-10-11 (17:05) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850 | wpis nr 563 587 [ CZCIONKA SPECJALNA ] Dziękuję 777ch, makro kopiuje dane do arkusza ze strony betfred. Właśnie o to mi chodziło. Z resztą sobie poradzę. Pozdrawiam! |
2012-10-11 (17:14) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 596 [ CZCIONKA SPECJALNA ] kleszek> użycie [czaspomiar5liczb]makra dla 49s jest o tyle kłopotliwe,że jeśli warunki bedą ustawione ,jak ja podałem czyli: If LICZB_GRY = 49 Then norm3 = 75 'czas oczekiwania dla 2z3 minimum If LICZB_GRY = 49 Then norm2 = 100 'czas oczekiwania dla 2z2 minimum to nie zawsze coś.....wypluje ------------------------------------------------------------------------------------ przy ustawieniu obydwu norm na 77 dostaniemy dla 49s to : 3 11 16 20 40 10 27 36 42 45 12 20 25 28 42 12 20 28 40 42 25 27 28 42 45 27 28 36 42 45 a więc 6 układów |
2012-10-11 (17:17) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | wpis nr 563 600 [ CZCIONKA SPECJALNA ] Witaj 777ch, Chodziło mi o Multi z której fragment bazy losowań zamieściłeś na początku. Czy nie uważasz że gdy tworzy się jakieś algorytmy typujące, tworzące jakieś zakłady, kombinacje to ich skuteczność zawsze je trzeba porównywać z skutecznością zakładów tworzonymi losowo, aby się nie okazało że skuteczność losowa jest taka sama, a przy specyficznych algorytmach typujących nawet większa ? |
2012-10-11 (17:21) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 602 [ CZCIONKA SPECJALNA ] Ken> masz 100% rację ,wobec tego zrobię jakieś porównanie dla 15 losowo układanych 5-ek multi i wklejke wkleje,to nie problem, nie interesuje mnie Multi ,ale jestem ciekaw. |
2012-10-11 (17:22) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | wpis nr 563 603 [ CZCIONKA SPECJALNA ] Sławek 001, Czy chodziło o automatyczne wyróżnianie kolorem liczb z dowolnego zestawu w każdym losowaniu ? |
2012-10-11 (17:52) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 563 608 [ CZCIONKA SPECJALNA ] to już na razie wszystko,bo mam co innego do roboty,pozdrawiam ten mały test ......porównanie wyników makra do randomize dla Multi |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 11 12 Wyślij wiadomość do admina |