Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 11 12
Wyślij wiadomość do admina

Przewiń wpisy ↓

Temat leo777ch

2012-10-11 (12:39)

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

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

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

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

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

1386
wpis nr 563 525
[ CZCIONKA SPECJALNA ]

.....przykład,jakie dane otrzymacie dla bazy Multi z wynikami do teraz

2012-10-11 (13:28)

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

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

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

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

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

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

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

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

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

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

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

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

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

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

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

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

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

1386
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 lottoStrona: 1 2 ... 11 12
Wyślij wiadomość do admina