Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 6 7 8 9 10 11 12 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Temat leo777ch |
2013-01-04 (12:58)![]() Data rejestracji: 2010-08-02 Ilość postów: 706 ![]() | wpis nr 589 809 [ CZCIONKA MONOSPACE ] Cześć Leo, sorry że z innej beczki. Ale chciałem żebyś dokończył myśl, która zacząłeś kiedyś (a raczej pomysł) w moim starym temacie "Pytanie o model gry losowej...". Tutaj link: http://forum.multipasko.pl/n_viewtopic.php?id=3660&page=6 Chodzi mi konkretnie o jedno zdanie: ----------------------------------------------------- "arkady202> to Cię pewnie zdziwi ,zamiast wykresu weź metr albo mniej i ..tnij , a potem stosuj się do tych.. zasad o których pisałeś." ----------------------------------------------------- Jak mam ciąć ten ten metr?:) I dlaczego akurat metr, chodzi o jakiś odcinek? Będe wdzięczny za rozwinięcie. Pozdrawiam |
2013-01-04 (14:17)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 589 836 [ CZCIONKA MONOSPACE ] Arkady>sorry ,to reguła jednego z moich lepszych algorytmów,nie chcę o tym pisać. |
2013-01-04 (15:17)![]() Data rejestracji: 2010-08-02 Ilość postów: 706 ![]() | wpis nr 589 851 [ CZCIONKA MONOSPACE ] Rozumiem Leo. A ew. na maila mógłbyś napisać? arkady203@yahoo.co.uk Chodzi mi jedynie o ten "metr" nic więcej. Reszta - to wiesz sam jaką taktyką gram, taka jaką opisałem w tamtym temacie. Pozdrawiam |
2013-01-04 (15:32)![]() Data rejestracji: 2010-08-02 Ilość postów: 706 ![]() | wpis nr 589 853 [ CZCIONKA MONOSPACE ] Jeśli zamiast wykresu wezmę linię prostą ("metr") i będę ciąć w miejscach wypadnięć to wyjdzie mi poprzecinana linia ![]() |
2013-01-04 (16:35)![]() Data rejestracji: 2010-08-02 Ilość postów: 706 ![]() | wpis nr 589 865 [ CZCIONKA MONOSPACE ] Leo, jak masz ochotę to zajrzyj do mojego tematu: http://forum.multipasko.pl/n_viewtopic.php?id=3879&page=1 MOJA METODA GRY W 49's - OBSERWACJA CZASÓW OCZEKIWANIA Twoje uwagi i pomysły mile widziane:) Oczywiście możesz pisać na maila jeśli nie chcesz na forum. |
2013-01-05 (23:02)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 590 326 [ CZCIONKA MONOSPACE ] 777ch, nie chcę nadużywać Twojej uprzejmości ( i tak już mi bardzo dużo pomogłeś) ale mam pytanie. W 2 poście tego tematu zamieściłeś makro czaspomiar5liczb (). Makro wypisuje zestawy liczb spełniające warunki min. czas oczekiwania zestawów. Próbowałem przerobić te makro w taki sposób aby były podawane zestawy spełniające warunek: min. czas oczekiwania norm2 = 100 ale nie większy niż 120. Mówiąc inaczej, chciałem mieć wypisane tylko te zestawy,które oczekują na 2 z 2 od 100 do 120 losowań. Przypuszczam, że nalezy w odpowiedni sposób zmienić instrukcje zaczynające się od : If tab2(l1 & l2, 1) < norm2 Then GoTo 2 Próbowałem, ale niestety moje próby były zupełnie nieudane. W jaki sposób nalezy przerobić te makro? |
2013-01-06 (14:39)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 462 [ CZCIONKA MONOSPACE ] kleszek ......aby były podawane zestawy spełniające warunek: min. czas oczekiwania norm2 = 100 ale nie większy niż 120. Mówiąc inaczej, chciałem mieć wypisane tylko te zestawy,które oczekują na 2 z 2 od 100 do 120 .... otóż Twój warunek jest niewykonalny dl 5-ki z 49 liczb,ani dla 5-ki z 80 liczb przetestuj to makro poniżej to się przekonasz Sub SPEED_oczek2w5tkach() ' ' aaaseven3 Makro ' Makro zarejestrowane 2010-01-25, autor LEO Arkusz1.Activate Range("a2:iv65536") = "" Range("a2:iv65536").Interior.ColorIndex = None Dim tabpar() As Long Dim fs, A Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(ThisWorkbook.Path & "/" & "Piątki.txt", True) Dim LICZB_LOSOWANYCH As Integer Dim LICZB_GRY As Integer Dim vlos As Long Dim los As Long Dim datalos As String Dim l1, l2, l3, l4, l5, l6, l7, l8, l9, l10, l11, l12 As Byte Dim liczba As Integer Dim tabwyn() As Variant Dim tabgps() As Long Dim norminoczpar As Long Dim stoper As Date, czas As String cofka = Arkusz1.Cells(1, 11).value 'umozliwiamy sobie cofnięcie w czasie prognozy vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka datalos = Arkusz2.Cells(vlos, 2) LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1")) LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000")) tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, 100)).value ' wynik los wpisane do arkusza2. Liczba_STARTOWA = 1 Liczba_KOŃCOWA = LICZB_GRY If LICZB_GRY = 49 Then norminoczpar = CInt(InputBox("Wpisz Min ont2/5 ", "49s +-25 ")) 'norma eliminująca If LICZB_GRY = 49 Then normaxoczpar = CInt(InputBox("Wpisz Max ont2/5 ", "49s +-55 ")) 'norma eliminująca If LICZB_GRY = 80 Then norminoczpar = 25 If LICZB_GRY = 80 Then normaxoczpar = 100 stoper = Timer scrON 'tworzymy tablicę zeo-jedynkową 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 'tablica wyników gotowa '========================================================================== 'teraz pary oczekiwanie odl.na 2 traf ReDim tabpar(7980, 1) For l1 = 1 To Liczba_KOŃCOWA - 1 For l2 = l1 + 1 To Liczba_KOŃCOWA For SPR = vlos To 1 Step -1 s = 0 s = tabgps(SPR, l1) + tabgps(SPR, l2) If s >= 2 Then tabpar(l1 & l2, 1) = vlos - SPR If s >= 2 Then Exit For Next SPR Next l2 Next l1 'teraz sprawdzimy odl oczek. 10- par w5-ce 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 If tabpar(l1 & l2, 1) < norminoczpar Then GoTo 2 If tabpar(l1 & l2, 1) > normaxoczpar Then GoTo 2 If tabpar(l2 & l3, 1) < norminoczpar Then GoTo 3 If tabpar(l2 & l3, 1) > normaxoczpar Then GoTo 3 If tabpar(l1 & l3, 1) < norminoczpar Then GoTo 3 If tabpar(l1 & l3, 1) > normaxoczpar Then GoTo 3 If tabpar(l3 & l4, 1) < norminoczpar Then GoTo 4 If tabpar(l3 & l4, 1) > normaxoczpar Then GoTo 4 If tabpar(l2 & l4, 1) < norminoczpar Then GoTo 4 If tabpar(l2 & l4, 1) > normaxoczpar Then GoTo 4 If tabpar(l1 & l4, 1) < norminoczpar Then GoTo 4 If tabpar(l1 & l4, 1) > normaxoczpar Then GoTo 4 If tabpar(l4 & l5, 1) < norminoczpar Then GoTo 5 If tabpar(l4 & l5, 1) > normaxoczpar Then GoTo 5 If tabpar(l3 & l5, 1) < norminoczpar Then GoTo 5 If tabpar(l3 & l5, 1) > normaxoczpar Then GoTo 5 If tabpar(l2 & l5, 1) < norminoczpar Then GoTo 5 If tabpar(l2 & l5, 1) > normaxoczpar Then GoTo 5 If tabpar(l1 & l5, 1) < norminoczpar Then GoTo 5 If tabpar(l1 & l5, 1) > normaxoczpar Then GoTo 5 With A .WriteLine (l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5) End With k = k + 1 5 Next l5 4 Next l4 3 Next l3 2 Next l2 Next l1 czas = Format(Timer - stoper, " 00:00:00.00") & " sec." MsgBox "Zakończono obliczenia dla 5 liczb " & Chr(13) & _ "Czas obliczeń = " & czas & Chr(13) & _ "Minimalne oczek 2/5 = [" & norminoczpar & "]" & Chr(13) & _ "Maxymalne oczek 2/5 = [" & normaxoczpar & "]" & Chr(13) & _ Chr(13) & _ "Cofn.obliczeń= [" & cofka & "]" & Chr(13) & _ "Ost.los. brane do obliczeń [" & vlos - cof & "] {" & datalos & "}" & Chr(13) & _ Chr(13) & _ "ustawione warunki spełniło " & k & " - kombinacji " & Chr(13) & _ Chr(13) & _ "kombinacje zapisane zostały do Piątki.txt " End Sub |
2013-01-06 (14:46)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 464 [ CZCIONKA MONOSPACE ] no własciwie jest wykonalny........ale to rzadki przyopadek,wiec np mielismy jedna kombinację która odpowiadała twoim warunkom przed dzisiejszym losowaniem o 14 dla 49s 9 39 45 47 48[101] aktualnie dla 49s w kwesti 2z5 ranking 4 15 27 31 44 70 15 19 27 31 44 70 3 5 11 26 39 72 2 26 43 45 46 73 9 10 27 39 45 77 9 27 39 45 49 77 8 15 28 40 43 79 13 30 40 43 45 81 26 30 40 43 45 81 30 40 43 45 47 81 2 23 28 43 45 85 2 23 26 43 45 89 2 23 27 43 45 89 9 39 45 47 48 102 |
2013-01-06 (15:42)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 590 480 [ CZCIONKA MONOSPACE ] 777ch, dzięki za to makro, ale zastanawiam się czy nie posiada ono błędów. Pokaże Ci na przykładzie 49`s dla bazy 8991 losowań ( do dnia 05.01.2013). Uruchomiłem makro liczące Ont2 dla "piątek" z min. czasem oczekiwania 70. Program wyliczył mi 23 "piątki" z biężącym ONT2 od 70 do 101 dla 2 z 5. 11 18 26 45 48 11 26 39 45 48 18 26 43 45 48 3 5 11 26 39 18 26 43 45 46 18 43 45 47 48 2 26 43 45 46 5 11 27 39 45 9 10 27 39 45 9 27 39 45 49 11 27 39 45 49 5 11 26 39 45 8 15 28 40 43 13 30 40 43 45 26 30 40 43 45 30 40 43 45 47 2 23 28 43 45 2 23 26 43 45 2 23 27 43 45 11 26 30 45 49 5 11 21 27 45 11 26 39 45 49 9 39 45 47 48 Tymczasem Twoje makro SPEED_oczek2w5tkach() dla min = 70 i max = 120 nie generuje ani jednej piątki. Proszę sprawdź to u siebie. Być może w moim arkuszu są jakies błędy. |
2013-01-06 (16:34)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 492 [ CZCIONKA MONOSPACE ] kleszek> ja Ci pokaże na obrazku gdzie leży problem,minimum jest okreslone jako 70 i to nie ma problemu ....... natomiast maximum to ......tu jest problem bo to makro sprawdza ont każdej pary !!!w piątce a nie tylko ont2/5 i teraz jesli minimum określisz na 70 to masz ont2/5 w piątkach takie ........jak ustawiłeś czyli minimalny czas wypadniecia jednej z par w piątce jest równy przynajmniej 70 losowań.........ale pozostałe 9 par ma różne okresy oczekiwania .......znacznie większe niż 70 ale równiez znacznie większe niz 120 ........bo makro sprawdza każde ont dla każdej pary ........ i dlatego .......warunek max=120 jest za niski masz tu na obrazku jak to wygląda dla tych 23 par ![]() |
2013-01-06 (16:38)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 497 [ CZCIONKA MONOSPACE ] zobaczysz wszystko jak uruchomisz to makro --------------------------------------------------------------- Sub Forumpasko_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") Dim s1, s As Byte 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 Dim norm2, norm3, norMAXIMUM As Integer 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 = 0 'czas oczekiwania dla 2z3 minimum 'uwaga norma dla oczekiwania dla 2z3 jest inna niż dla 2z2, zazwyczaj mniejsza ![]() '--------------------------------------------------------------------------------- If LICZB_GRY = 49 Then norm2 = 70 'czas oczekiwania dla wszystkich składowych par 2z2 minimum norMAXIMUM = 120 ' TU wstawiam Twój warunek Kleszek 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, 0) For lp1 = 1 To Liczba_KOŃCOWA - 1 For lp2 = lp1 + 1 To Liczba_KOŃCOWA B = 0 ts = 0 For spr2 = vlos To 1 Step -1 ts = tabgps(spr2, lp1) + tabgps(spr2, lp2) B = vlos - spr2 If ts = 2 Then tab2(lp1 & lp2, 0) = B If ts = 2 Then Exit For Next spr2 Next lp2 Next lp1 'teraz sprawdzimy trójki 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 s1 = 0 For spr3 = vlos To 1 Step -1 s1 = tabgps(spr3, lt1) + tabgps(spr3, lt2) + tabgps(spr3, lt3) If s1 >= wymaganetrafienie - 1 Then tab3(lt1 & lt2 & lt3, 1) = vlos - spr3 If s1 >= 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, 0) & "|" & tab2(l1 & l3, 0) & "|" & tab2(l1 & l4, 0) & "|" _ & tab2(l1 & l5, 0) & "|" & _ tab2(l2 & l3, 0) & "|" & tab2(l2 & l4, 0) & "|" & tab2(l2 & l5, 0) & "|" & tab2(l3 & l4, 0) & "|" _ & tab2(l3 & l5, 0) & "|" & tab2(l4 & l5, 0) 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, 0) < norm2 Then GoTo 2 'If tab2(l1 & l2, 0) > norMAXIMUM Then GoTo 2 If tab2(l1 & l3, 0) < norm2 Then GoTo 3 'If tab2(l1 & l3, 1) > norm2MAXIMUM Then GoTo 3 If tab2(l1 & l4, 0) < norm2 Then GoTo 4 'If tab2(l1 & l4, 1) > norm2MAXIMUM Then GoTo 4 If tab2(l1 & l5, 0) < norm2 Then GoTo 5 'If tab2(l1 & l5, 1) > norm2MAXIMUM Then GoTo 5 If tab2(l2 & l3, 0) < norm2 Then GoTo 3 'If tab2(l2 & l3, 1) > norm2MAXIMUM Then GoTo 3 If tab2(l2 & l4, 0) < norm2 Then GoTo 4 'If tab2(l2 & l4, 1) > norm2MAXIMUM Then GoTo 4 If tab2(l2 & l5, 0) < norm2 Then GoTo 5 'If tab2(l2 & l5, 1) > norm2MAXIMUM Then GoTo 5 If tab2(l3 & l4, 0) < norm2 Then GoTo 4 'If tab2(l3 & l4, 1) > norm2MAXIMUM Then GoTo 4 If tab2(l3 & l5, 0) < norm2 Then GoTo 5 'If tab2(l3 & l5, 1) > norm2MAXIMUM Then GoTo 5 If tab2(l4 & l5, 0) < norm2 Then GoTo 5 'If tab2(l4 & l5, 1) > norm2MAXIMUM 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 |
2013-01-06 (16:40)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 500 [ CZCIONKA MONOSPACE ] celowo wyłączyłem maximum .bo nic byś nie dostał przy warunku 120 .ale jak 1200 ustawisz warunek .to dane się pokryją ![]() sprawdź i napisz czy zrozumiałe to jest pozdrawiam |
2013-01-06 (17:16)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 506 [ CZCIONKA MONOSPACE ] tu masz przykład obrazkowy.nie szukałem .wyrafinowanego wyniku ![]() ![]() a poniżej to makro jeszcze poprawiłem trochę ......... ------------------------------------------------------------------- Sub Forumpasko_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 tab5czaspar() As Variant Dim tabtrafieńfutures() As Variant Dim tab5() As Long Dim fs, A Set fs = CreateObject("Scripting.FileSystemObject") Dim s1, s As Byte 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 Dim norm2, norm3, norMAXIMUM As Integer 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 = 70 'czas oczekiwania dla 2z3 minimum 'uwaga norma dla oczekiwania dla 2z3 jest inna niż dla 2z2, zazwyczaj mniejsza ![]() '--------------------------------------------------------------------------------- If LICZB_GRY = 49 Then norm2 = 70 'czas oczekiwania dla wszystkich składowych par 2z2 minimum norMAXIMUM = 250 ' TU wstawiam Twój warunek Kleszek ale ustawiam 150 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, 0) For lp1 = 1 To Liczba_KOŃCOWA - 1 For lp2 = lp1 + 1 To Liczba_KOŃCOWA B = 0 ts = 0 For spr2 = vlos To 1 Step -1 ts = tabgps(spr2, lp1) + tabgps(spr2, lp2) B = vlos - spr2 If ts = 2 Then tab2(lp1 & lp2, 0) = B If ts = 2 Then Exit For Next spr2 Next lp2 Next lp1 'teraz sprawdzimy trójki 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 s1 = 0 For spr3 = vlos To 1 Step -1 s1 = tabgps(spr3, lt1) + tabgps(spr3, lt2) + tabgps(spr3, lt3) If s1 >= wymaganetrafienie - 1 Then tab3(lt1 & lt2 & lt3, 1) = vlos - spr3 If s1 >= 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 tab5czaspar(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, 0) + tab2(l1 & l3, 0) + tab2(l1 & l4, 0) + _ tab2(l1 & l5, 0) + tab2(l2 & l3, 0) + tab2(l2 & l4, 0) + tab2(l2 & l5, 0) _ + tab2(l3 & l4, 0) + tab2(l3 & l5, 0) + tab2(l4 & l5, 0) czas_oczekiwania_na_2traf_par = tab2(l1 & l2, 0) & "|" & tab2(l1 & l3, 0) & "|" & tab2(l1 & l4, 0) & "|" _ & tab2(l1 & l5, 0) & "|" & _ tab2(l2 & l3, 0) & "|" & tab2(l2 & l4, 0) & "|" & tab2(l2 & l5, 0) & "|" & tab2(l3 & l4, 0) & "|" _ & tab2(l3 & l5, 0) & "|" & tab2(l4 & l5, 0) 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, 0) < norm2 Then GoTo 2 If tab2(l1 & l2, 0) > norMAXIMUM Then GoTo 2 If tab2(l1 & l3, 0) < norm2 Then GoTo 3 If tab2(l1 & l3, 0) > norMAXIMUM Then GoTo 3 If tab2(l1 & l4, 0) < norm2 Then GoTo 4 If tab2(l1 & l4, 0) > norMAXIMUM Then GoTo 4 If tab2(l1 & l5, 0) < norm2 Then GoTo 5 If tab2(l1 & l5, 0) > norMAXIMUM Then GoTo 5 If tab2(l2 & l3, 0) < norm2 Then GoTo 3 If tab2(l2 & l3, 0) > norMAXIMUM Then GoTo 3 If tab2(l2 & l4, 0) < norm2 Then GoTo 4 If tab2(l2 & l4, 0) > norMAXIMUM Then GoTo 4 If tab2(l2 & l5, 0) < norm2 Then GoTo 5 If tab2(l2 & l5, 0) > norMAXIMUM Then GoTo 5 If tab2(l3 & l4, 0) < norm2 Then GoTo 4 If tab2(l3 & l4, 0) > norMAXIMUM Then GoTo 4 If tab2(l3 & l5, 0) < norm2 Then GoTo 5 If tab2(l3 & l5, 0) > norMAXIMUM Then GoTo 5 If tab2(l4 & l5, 0) < norm2 Then GoTo 5 If tab2(l4 & l5, 0) > norMAXIMUM 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 tab5czaspar(k, 0) = czas_oczekiwania_na_2traf_par 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 Range(Arkusz1.Cells(2, 32), Arkusz1.Cells(k + 1, 32)) = tab5czaspar '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 |
2013-01-06 (17:31)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 512 [ CZCIONKA MONOSPACE ] makro random.....z odwołaniem do frekwencji liczb...tutaj mozna ustawić frekwencje dowolne,i dowolną ich liczbę..ale nie wstawiłem duzo odwołań,tylko przykładowe......... bez uwzględnienia powtórek i ect....chodzi również o przypadkowe ustawienie się liczb na pozycjach ciekawostka dla łowców[moich] ![]() Sub losowe_nnn_kombinacji_nnn() ' ' gra_wg_tabeli Makro ' Makro zarejestrowane 2012-03-28, autor leo Dim LICZB_LOSOWANYCH As Integer Dim LICZB_GRY As Integer Dim vlos As Long Dim tabprog3() As Variant Dim tabprog4() As Variant Dim los As Long Dim liczba As Integer Dim tabwyn() As Variant Dim tabgps() As Long Dim stoper As Date, czas Dim tab3() As Long Dim tab6() As Long Arkusz1.Activate vreal = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) cofnięcie_obliczeń = Arkusz1.Cells(1, 11).value vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofnięcie_obliczeń LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1")) LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000")) tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vreal, 100)).value 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 'PODCZYSZCZAMY....wyłączyłem chwilowo 'Arkusz1.Range("A2:iv31") = "" 'Arkusz1.Range("A2:T31").Interior.ColorIndex = None 'losujemy układ NN liczb LICZB_GRY = 49 ''''''''ustalona ilość czyli dla multi nie nadaje się liczbwkombinacji = 7 'oczywiscie tą wartość mozesz modyfikować ilezestawów = 30 'oczywiscie tą wartość mozesz modyfikować ReDim tab6(ilezestawów - 1, liczbwkombinacji - 1) For losowanie = 1 To ilezestawów ReDim tab3lo(LICZB_GRY, 0) ReDim tab2lo(0, LICZB_GRY) For wlo = 1 To liczbwkombinacji 2 Randomize alo = Int(Rnd * LICZB_GRY) + 1 frg0 = Application.CountIf(Range(Arkusz2.Cells(vlos, 3), _ Arkusz2.Cells(vlos - 8, 22)), alo) frg1 = Application.CountIf(Range(Arkusz2.Cells(vlos, 3), _ Arkusz2.Cells(vlos - 69, 22)), alo) frg2 = Application.CountIf(Range(Arkusz2.Cells(vlos, 3), _ Arkusz2.Cells(vlos - 139, 22)), alo) If frg0 > 3 Then GoTo 2 If frg0 < 1 Then GoTo 2 If frg1 < 12 Then GoTo 2 If frg2 < 20 Then GoTo 2 If tab3lo(alo, 0) = alo Then GoTo 2 tab3lo(alo, 0) = alo tab2lo(0, wlo - 1) = alo tab6(losowanie - 1, wlo - 1) = alo Next wlo 'Range(Arkusz1.Cells(losowanie + 1, 1), Arkusz1.Cells(losowanie + 1, liczbwkombinacji)) = tab2lo Next losowanie Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(ilezestawów + 1, liczbwkombinacji)) = tab6 'tablice dla progów powyżej 3 i powyżej 4 trafień ReDim tabprog3(ilezestawów - 1, 0) ReDim tabprog4(ilezestawów - 1, 0) ''''co padło potem >=3TRAFNE For Typ = 1 To ilezestawów wyn = 0 ODL = 0 For spr2 = vlos + 1 To vreal ODL = ODL + 1 wyn = tabgps(spr2, tab6(Typ - 1, 0)) + tabgps(spr2, tab6(Typ - 1, 1)) + tabgps(spr2, tab6(Typ - 1, 2)) _ + tabgps(spr2, tab6(Typ - 1, 3)) + tabgps(spr2, tab6(Typ - 1, 4)) + tabgps(spr2, tab6(Typ - 1, 5)) + tabgps(spr2, tab6(Typ - 1, 6)) If wyn >= 3 Then tabprog3(Typ - 1, 0) = "Wynik >=3/7 w grze nr. [" & ODL & "] " & wyn & "/7" If wyn >= 3 And max1 < ODL Then max1 = ODL If wyn >= 3 And max2 < ODL And ODL < max1 Then max2 = ODL If wyn >= 3 Then Exit For Next spr2 If Typ = ilezestawów + 1 Then Exit For Next Typ ''''co padło potem >=4TRAFNE For Typ2 = 1 To ilezestawów wyn = 0 ODL = 0 For spr22 = vlos + 1 To vreal ODL = ODL + 1 wyn = tabgps(spr22, tab6(Typ2 - 1, 0)) + tabgps(spr22, tab6(Typ2 - 1, 1)) + tabgps(spr22, tab6(Typ2 - 1, 2)) _ + tabgps(spr22, tab6(Typ2 - 1, 3)) + tabgps(spr22, tab6(Typ2 - 1, 4)) + tabgps(spr22, tab6(Typ2 - 1, 5)) + tabgps(spr22, tab6(Typ2 - 1, 6)) If wyn >= 4 Then tabprog4(Typ2 - 1, 0) = "Wynik >=4/7 w grze nr. [" & ODL & "] " & wyn & "/7" If wyn >= 4 And max1 < ODL Then max1 = ODL If wyn >= 4 And max2 < ODL And ODL < max1 Then max2 = ODL If wyn >= 4 Then Exit For Next spr22 If Typ2 = ilezestawów + 1 Then Exit For Next Typ2 Range(Arkusz1.Cells(2, 42), Arkusz1.Cells(ilezestawów + 1, 42)) = tabprog3 Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 30)) = tabprog4 End Sub |
2013-01-06 (17:42)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 590 515 [ CZCIONKA MONOSPACE ] "warunek max=120 jest za niski" . Ok, teraz już rozumiem. Wypisane zestawy muszą mieć max ont. mniejsze niż mój warunek. Mówiąc prościej jeżeli ont którejś parki w zestawie będzie większy niż 120 makro tego zestawu nie wpisze do arkusza. Dziękuję za wyjaśnienie i pomoc. Pozdrawiam! |
2013-01-06 (17:53)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 590 519 [ CZCIONKA MONOSPACE ] kleszek> ja Ci chętnie pomagam bo ....kumasz ,więc ......nie tracę czasu na próżno ![]() Dobry,logiczny >pomysł< na ....efektywny wynik......to jest to ..... czego ja szukam . Bo makro realizujące ten pomysł....nie problem napisać pozdrawiam |
2013-01-06 (19:41)![]() Data rejestracji: 2010-11-05 Ilość postów: 818 ![]() | wpis nr 590 555 [ CZCIONKA MONOSPACE ] Leo dziękuje. Powodzenia |
2013-01-08 (12:06)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 591 029 [ CZCIONKA MONOSPACE ] mysliwy> nie ma sprawy -------------------------------- Sindbadzie,jest sposób,aczkolwiek nie wiem jak ten pomysł widzisz, mianowicie należy wykonać te "wielkie obliczenia" na sklonowanych aplikacjach ,dzieląc zakresy obliczeń dla każdego klonu ,a zapis do jednego pliku,czyli wszystkie klony nadpisują wyniki do jednego pliku....co zresztą nie jest konieczne,na razie widzę ze lecą 4-klony,każdy inny zakres ,a do pliku txt nadpisują się dane aktualnie sprawdzam jak to obliczy dla[ max hist 2w8 ]dla 49s. Nie wiem czy to dobre dla procesora ..ale mam 4 rdzenie i sporo Ram-u ![]() tak nadpisuje: Nr.1 --- 10,11,14,26,27,28,33,39 --hist max = 13 Nr.2 --- 10,11,16,17,22,24,31,39 --hist max = 13 Nr.3 --- 10,11,16,20,26,29,40,47 --hist max = 13 Nr.1 --- 1,2,3,9,12,37,42,49 --hist max = 13 Nr.2 --- 1,2,3,10,34,37,39,42 --hist max = 13 Nr.4 --- 10,11,18,30,32,35,39,44 --hist max = 13 Nr.5 --- 10,13,14,18,23,27,44,47 --hist max = 13 Nr.3 --- 1,2,5,18,19,34,36,39 --hist max = 13 Nr.4 --- 1,2,5,19,29,36,38,44 --hist max = 13 Nr.5 --- 1,2,6,7,17,34,39,42 --hist max = 13 Nr.6 --- 10,13,18,23,31,32,37,40 --hist max = 13 Nr.7 --- 10,13,19,23,25,27,28,38 --hist max = 13 Nr.8 --- 10,13,23,28,31,34,37,44 --hist max = 13 Nr.9 --- 10,13,24,30,32,36,37,40 --hist max = 13 Nr.6 --- 1,2,7,9,22,23,26,30 --hist max = 13 Nr.10 --- 10,14,16,19,29,37,42,44 --hist max = 13 Nr.7 --- 1,2,7,19,26,27,33,48 --hist max = 13 Nr.8 --- 1,2,7,19,27,30,35,41 --hist max = 13 Nr.9 --- 1,2,7,23,36,37,42,47 --hist max = 13 Nr.10 --- 1,2,7,25,32,35,39,42 --hist max = 13 Nr.11 --- 10,14,17,34,35,37,41,44 --hist max = 13 Nr.12 --- 10,14,23,24,27,34,39,41 --hist max = 13 Nr.13 --- 10,14,30,32,37,38,42,44 --hist max = 13 Nr.14 --- 10,15,16,21,22,27,31,38 --hist max = 13 Nr.15 --- 10,15,16,22,25,30,34,39 --hist max = 13 Nr.11 --- 1,2,9,11,23,36,41,49 --hist max = 13 Nr.12 --- 1,2,9,11,26,28,43,47 --hist max = 13 Nr.13 --- 1,2,9,12,13,17,30,48 --hist max = 13 Nr.16 --- 10,15,17,27,36,39,42,46 --hist max = 13 Nr.17 --- 10,15,19,22,27,31,39,49 --hist max = 13 Nr.18 --- 10,15,22,41,46,47,48,49 --hist max = 13 Nr.14 --- 1,2,11,17,23,36,42,43 --hist max = 13 Nr.19 --- 10,16,19,27,31,39,40,45 --hist max = 13 Nr.15 --- 1,2,11,19,20,28,42,47 --hist max = 13 Nr.16 --- 1,2,11,20,28,33,37,47 --hist max = 13 Nr.17 --- 1,2,11,22,26,30,33,37 --hist max = 13 Nr.20 --- 10,16,20,32,34,37,40,47 --hist max = 13 Nr.18 --- 1,2,12,31,34,37,39,41 --hist max = 13 Nr.19 --- 1,2,13,21,24,34,35,47 --hist max = 13 Nr.20 --- 1,2,13,23,29,34,41,47 --hist max = 13 Nr.21 --- 1,2,13,23,34,41,46,47 --hist max = 13 Nr.22 --- 1,2,13,24,28,29,35,47 --hist max = 13 Nr.21 --- 10,18,19,31,35,37,39,43 --hist max = 13 Nr.23 --- 1,2,16,23,26,34,39,46 --hist max = 13 Nr.24 --- 1,2,17,19,23,29,34,42 --hist max = 13 Nr.22 --- 10,18,26,30,32,33,40,48 --hist max = 13 Nr.25 --- 1,2,17,20,26,31,37,40 --hist max = 13 Nr.26 --- 1,2,18,19,34,37,40,44 --hist max = 13 Nr.27 --- 1,2,18,20,22,23,26,34 --hist max = 13 Nr.28 --- 1,2,19,23,34,37,39,42 --hist max = 13 Nr.29 --- 1,2,19,36,38,41,43,47 --hist max = 13 Nr.23 --- 10,19,29,30,33,37,42,44 --hist max = 13 Nr.24 --- 10,19,34,37,39,42,47,49 --hist max = 13 Nr.1 --- 4,5,13,15,24,40,44,48 --hist max = 13 Nr.30 --- 1,2,24,31,34,35,37,40 --hist max = 13 Nr.31 --- 1,2,24,34,35,37,40,49 --hist max = 13 Nr.32 --- 1,2,27,36,37,39,43,47 --hist max = 13 Nr.1 --- 7,8,14,25,29,37,39,47 --hist max = 13 Nr.25 --- 10,24,26,28,30,31,32,33 --hist max = 13 Nr.33 --- 1,3,4,15,17,26,44,48 --hist max = 13 Nr.26 --- 10,26,30,32,33,37,47,48 --hist max = 13 Nr.27 --- 10,26,31,33,34,35,37,38 --hist max = 13 Nr.28 --- 10,28,29,31,34,37,42,44 --hist max = 13 Nr.29 --- 10,31,34,36,37,39,42,44 --hist max = 13 Nr.2 --- 4,5,33,40,42,44,46,49 --hist max = 13 Nr.30 --- 11,12,15,18,25,34,37,47 --hist max = 13 Nr.34 --- 1,3,5,13,20,35,39,47 --hist max = 13 Nr.2 --- 7,9,10,18,23,24,25,27 --hist max = 13 Nr.35 --- 1,3,5,34,35,39,42,49 --hist max = 13 Nr.3 --- 7,9,10,22,25,27,39,43 --hist max = 13 Nr.4 --- 7,9,11,13,19,28,39,47 --hist max = 13 Nr.5 --- 7,9,11,18,19,26,39,40 --hist max = 13 Nr.31 --- 11,12,19,33,39,46,47,49 --hist max = 13 Nr.6 --- 7,9,12,15,26,36,44,48 --hist max = 13 Nr.3 --- 4,6,8,22,30,40,44,47 --hist max = 13 Nr.7 --- 7,9,13,19,20,25,26,47 --hist max = 13 Nr.36 --- 1,3,7,13,14,25,26,47 --hist max = 13 Nr.32 --- 11,13,15,26,27,29,31,34 --hist max = 13 Nr.33 --- 11,13,15,30,31,32,36,39 --hist max = 13 Nr.34 --- 11,13,26,27,32,35,37,40 --hist max = 13 Nr.8 --- 7,10,11,21,26,27,31,47 --hist max = 13 Nr.4 --- 4,6,16,18,19,24,25,47 --hist max = 13 Nr.37 --- 1,3,10,26,28,30,32,48 --hist max = 13 Nr.5 --- 4,6,18,24,27,28,40,49 --hist max = 13 Nr.35 --- 11,15,18,19,22,26,34,37 --hist max = 13 Nr.9 --- 7,10,15,19,23,26,33,45 --hist max = 13 Nr.6 --- 4,6,19,28,30,37,42,45 --hist max = 13 Nr.7 --- 4,6,24,26,28,30,38,40 --hist max = 13 Nr.38 --- 1,3,13,16,21,37,44,45 --hist max = 13 Nr.36 --- 11,15,26,27,30,37,43,44 --hist max = 13 Nr.10 --- 7,10,22,23,34,36,46,49 --hist max = 13 Nr.39 --- 1,3,16,26,31,35,39,42 --hist max = 13 pozdrawiam |
2013-01-08 (18:48)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 591 134 [ CZCIONKA MONOSPACE ] Witam Myślę, że to dla procesora nawet wskazane, bo czemu ma leniuchować taki osiłek. Można dać śmiało 4 wątki i procesor będzie się jeszcze nudził. To jest dobry pomysł dla zaoszczędzenia czasu obliczeń. Powodzenia. |
2013-01-08 (20:24)![]() Data rejestracji: 2009-06-21 Ilość postów: 441 ![]() | wpis nr 591 164 [ CZCIONKA MONOSPACE ] Witam No jak widzę to ja cienias jestem bo konkurencja ma już komp armaty sterowne czteroma procesorami i dużą pamięciom. Tak więc musze zmienić swoje badziwie duo na nowsze. Leo777 jak masz coś nowego do cyrku ustawianych kulek to proszę podeślij min na adres wasdas@op.pl. Ja na razie składam kasę może kiedyś się zdecyduje grubo zagrać .Jak na razie to jeżdżę samochodem za bukmachera Totolotek kasę. Pzdr. talizman4 |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 6 7 8 9 10 11 12 Wyślij wiadomość do admina |