Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 6 7 8 9 10 11 12
Wyślij wiadomość do admina

Przewiń wpisy ↓

Temat leo777ch

2013-01-04 (12:58)

status arkady202
Data rejestracji: 2010-08-02
Ilość postów: 706

12603
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)

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

1386
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)

status arkady202
Data rejestracji: 2010-08-02
Ilość postów: 706

12603
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)

status arkady202
Data rejestracji: 2010-08-02
Ilość postów: 706

12603
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)

status arkady202
Data rejestracji: 2010-08-02
Ilość postów: 706

12603
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)

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

2047
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)

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

1386
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)

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

1386
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)

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

2047
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)

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

1386
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)

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

1386
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)

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

1386
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)

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

1386
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)

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

1386
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] makr Excela do lotto



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)

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

2047
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)

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

1386
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)

status mysliwy
Data rejestracji: 2010-11-05
Ilość postów: 818

12717
wpis nr 590 555
[ CZCIONKA MONOSPACE ]

Leo dziękuje. Powodzenia
2013-01-08 (12:06)

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

1386
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 więc nie spodziewam się problemów.



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)

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

3794
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)

status Talizman4
Data rejestracji: 2009-06-21
Ilość postów: 441

4782
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 lottoStrona: 1 2 ... 6 7 8 9 10 11 12
Wyślij wiadomość do admina