Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 199 200 201 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-03-27 (13:06)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 586
[ CZCIONKA MONOSPACE ]

kleszek>



Którego z licznych rozpisów 777ch użyłeś w teście, w wyniku którego ogłosiłeś jego zwycięstwo ?
2018-03-27 (13:17)

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

2047
wpis nr 1 157 588
[ CZCIONKA MONOSPACE ]

Tego z wpisu 'wpis nr 1 157 551' Prz okazji sprawdziłem czas obliczeń jednej bitwy. U mnie ona wyniosła dla pojedynku 777ch vs kleszek 87,83s.

Jak oceniasz wiarygodność tego typu testów porównawczych 2 systemów ?

edit:

Dla porównania, ten sam test robiony generatorem Amadeusa trwał 2 min 6s.

--- wpis edytowano 2018-03-27 13:25 ---

2018-03-27 (13:46)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 594
[ CZCIONKA MONOSPACE ]

kleszek>



Test 5 bitew po 1000 cykli po 1000 pojedynków z tym rozpisem 777ch dał takie wyniki:



kleszek---remis----777ch

--423------12-------565

--427------14-------559

--413------16-------571

--410------10-------580

--421------22-------557



Więc rzeczywiście "The winner is... "



Podobne wyniki testów świadczą moim zdaniem o tym, że cuś jest w tej metodzie porównawczej.



Kwestia gradacji punktacji do przemyślenia oczywiscie w wersji jednemu dodane drugiemu odjete.



Kwestia czasu...

Właśnie zmodyfikowałem nieco procedury nie wyświetlając poszczególnych wylosowani i testów cyklu, bo one przecież natychmiast są zamieniane kolejnymi i w efekcie pozostaje tylko ostatni. To skraca istotnie czas testu.



"Dla porównania, ten sam test robiony generatorem Amadeusa trwał 2 min 6s. "

To oczywiste bo w bitwie 1 000 000 razy uruchamiasz zewnętrzny program.

--- wpis edytowano 2018-03-27 13:55 ---

2018-03-27 (14:38)

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

2047
wpis nr 1 157 614
[ CZCIONKA MONOSPACE ]

Teraz, jeszcze tylko trzeba odpowiedzieć na pytanie dlaczego system 777ch jest lepszy od innych .... i będziemy w domu
2018-03-27 (15:00)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 619
[ CZCIONKA MONOSPACE ]

kleszek>



Może dlatego, że największe szanse przy 8 trafieniach Waszych rozpisów wyglądają:



777ch --> 1x6 + 2x5 + 4x4 --> 12,76567%

kleszek--> 1x6 + 2x5 + 4x4 --> 12,12350%



777ch --> 1x6 + 3x5 + 2x4 --> 7,79743%

kleszek--> 1x6 + 3x5 + 2x4 --> 7,24896%



Różnice niby niewielkie, ale przy 1000 pojedynków mogą mieć znaczenie, nie mówiąc o bitwie gdzie jest ich milion.









--- wpis edytowano 2018-03-27 15:02 ---

2018-03-27 (15:33)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 627
[ CZCIONKA MONOSPACE ]

kleszek>



1 bitwa z 5000 cykli po 1000 pojedynków w cyklu w rozbiciu na kolejne 1000 cykli daje taki efekt:



kleszek---remis----777ch

--428------18-------554

--422------17-------561

--438------14-------548

--410------15-------575

--436------13-------551



Moją próbę odpowiedzi na pytanie dlaczego rozpis 777ch jest najlepszy mogą potwierdzać gwarancje mojego rozpisu:



1x6 + 2x5 + 4x4 --> 9,98903%

1x6 + 3x5 + 2x4 --> 6,80561%



które sprawiają, że jest on zdecydowanie najgorszy.



P.S.

W kwestii randomizera Amadeusa.

Może od razu wczytaj milion losowań, skopiuj je z pliku txt do tablicy, a podczas testu wybieraj z niej kolejne tysiące. To powinno przyspieszyć.

--- wpis edytowano 2018-03-27 15:40 ---

2018-03-27 (15:55)

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

2047
wpis nr 1 157 629
[ CZCIONKA MONOSPACE ]

Sugerujesz więc, że decydującem czynnikiem o lepszym wyniku w teście 2 porównywalnych systemów, nie jest gwarancja minimalnej wypłaty, ani kwota maksymalnej wypłaty, tylko fakt, który z porównywanych systemów ma większą, największą szansę na trafienie. To jest jakiś trop. Być może masz rację. Dla przypomnienia, taki sposób porównywania systemów "sprowokowałeś" swoim wpisem 'wpis nr 1 156 871', gdzie podałeś różne systemy o dokładnie takich samych gwarancjach i szansach na wypłatę. Taki test powinien nosic nazwę "testu fair_play'a", a więc z angielskiego "sprawiedliwa gra" Przy okazji możesz sprawdzić jak u Ciebie wygląda ten test 5 bitew tych systemów.

>>> W kwestii randomizera Amadeusa.

Może od razu wczytaj milion losowań, skopiuj je z pliku txt do tablicy, a podczas testu wybieraj z niej kolejne tysiące. To powinno przyspieszyć. <<<

Pomysł bardzo dobry, tylko ten, tego ..... za wysokie progi jak na moje nogi Z VBA mam kontakt sporadyczny, a w związku z brakiem treningu, po prostu to co kiedyś umiałem, idzie w niepamięc. Pisząc prościej ,po prostu nie poradzę sobie.
2018-03-27 (17:03)

status MLRandom
Data rejestracji: 2016-01-16
Ilość postów: 553

14699
wpis nr 1 157 635
[ CZCIONKA MONOSPACE ]

kleszek, podrzucam procedurkę wczytywania 1 mln zakładów z mojego makra:



Sub STARTML()

Dim Losowe(1000000, 6) As Integer

Dim bb As Long



Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")



Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1





Set objFile = objFSO.OpenTextFile(ThisWorkbook.Path & "/" & "minilotto.txt", ForReading)

bb = 0

Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ")

bb = bb + 1

Losowe(bb, 1) = arrLine(0)

Losowe(bb, 2) = arrLine(1)

Losowe(bb, 3) = arrLine(2)

Losowe(bb, 4) = arrLine(3)

Losowe(bb, 5) = arrLine(4)

Losowe(bb, 6) = Losowe(bb, 1) + Losowe(bb, 2) + Losowe(bb, 3) + Losowe(bb, 4) + Losowe(bb, 5) 'to jest suma liczb w piątce



Loop



objFile.Close



End Sub



Stanąłem przed tym samym problemem i musiałem go rozwiązać Pewnie inspirowałem się kodem 777ch (dzięki Leo!) Co byśmy bez niego zrobili

--- wpis edytowano 2018-03-27 17:09 ---

2018-03-27 (17:23)

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

2047
wpis nr 1 157 641
[ CZCIONKA MONOSPACE ]

MLRandom, jak pobrać z txt do tablicy czy arkusza to wiem. Natomiast nie wiem jak z zrobić pobieranie z tego miliona z tablicy, paczek po 1000 rekordów ( czy jak to się tam fachowo nazywa ) do arkusza. Ideałem pewnie było by "obrabianie" takich paczek bez wpisywania do arkusza ( o ile da się to zrobić) ale to już pewnie kosmos
2018-03-27 (18:12)

status MLRandom
Data rejestracji: 2016-01-16
Ilość postów: 553

14699
wpis nr 1 157 654
[ CZCIONKA MONOSPACE ]

Ja bym pewnie zrobił pętelkę, ładował po tysiaku (czy ile tam potrzeba) w jednym przebiegu do drugiej tablicy i tą dopiero wklejał w arkusz (jako całość, nie komórka po komórce).

O to chodziło?

Zakładam, że wszystkie obróbki robisz w tablicach, nie w arkuszu? Transfer do arkusza mocno spowalnia proces (tego też nauczyłem się od Leo ).

2018-03-27 (18:39)

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

2047
wpis nr 1 157 670
[ CZCIONKA MONOSPACE ]

>>> Zakładam, że wszystkie obróbki robisz w tablicach <<<

Nie, z tablicy tylko wczytuję do arkusza. Resztę obliczeń robię ... na funkcjach Inaczej nie umiem. Ale zostawmy to. Trochę ponad 2 minuty do wykonania 1 miliona operacji, nie jest problemem. Jeżeli wyniki wg. tej metody będą wiarygodne, mogę liczyć nawet 5 minut. To nie problem.
2018-03-27 (19:03)

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

1386
wpis nr 1 157 674
[ CZCIONKA MONOSPACE ]

Witam

Na tę chwilę nie pomogę,bo mi się oczy zamykają.

Co do obróbki danych,to najlepiej wszystko w tablicach

a tylko wypis ,jeśli mamy hit

można z tablic pobranych ,tworzyć tablicę 1000 elementów



i liczyć wszystko w tablicach....



dacie radę



co do tego rozpisu,

to po prostu popsułem swój roboczy

odwołując się nie do gwarancji a do pln=66

licząc liczbę kombinacji dającą max =66



to może być przypadek,

wrócę do formy ,to dołączę do dyskusji.....
2018-03-27 (19:06)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 675
[ CZCIONKA MONOSPACE ]

kleszek>



cyt:

Makro Autotest wywołuje w pętli 1000 razy makro Makro_główne, które wygląda tak

Sub Makro_główne_los()

losuj

sprawdź

testCopy

End Sub .



Możesz wrzucić jak wygląda makro "losuj" w przypadku Amadeusa bo chyba trochę inaczej niż w moim oryginale, oraz ten fragment procedury "sprawdź", w którym wczytujesz losowania do arkusza ?

--- wpis edytowano 2018-03-27 19:07 ---

2018-03-27 (19:23)

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

2047
wpis nr 1 157 678
[ CZCIONKA MONOSPACE ]

Sub Makro_główne()

Amadeus_Gen

sprawdź

testCopy

End Sub

------------------

Sub Amadeus_Gen()

wywołaj

Dim TABDANE() As Variant

Arkusz1.Activate



Range("Z1:AP95536") = ""



Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1







i = 0

ReDim TABDANE(95536,



Set objFile = objFSO.OpenTextFile("G:\genUniweralny\test11.txt", ForReading)



Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

arrLine = Split(strLine, " ")





TABDANE(i, 0) = arrLine(0)

TABDANE(i, 1) = arrLine(1)

TABDANE(i, 2) = arrLine(2)

TABDANE(i, 3) = arrLine(3)

TABDANE(i, 4) = arrLine(4)

TABDANE(i, 5) = arrLine(5)

TABDANE(i, 6) = arrLine(6)

TABDANE(i, 7) = arrLine(7)



i = i + 1



Loop

1

Range(Cells(1, 26), Cells(i + 1, 33)) = TABDANE

objFile.Close

sprawdź



End Sub





Zmienia sie tylko pobieranie danych. Dane pobierane są z Amadeusa, makrem 'wywołaj' Twojego autorstwa fair_play

No i wróciłem do pobierania danych z dysku G. Może to błąd, bo czasmi makro się wywala. Tak jakby zapis z Amadeusa do .txt nie nadążał za makrem
2018-03-27 (19:42)

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

2047
wpis nr 1 157 690
[ CZCIONKA MONOSPACE ]

No i znalazłem błąd w makrze Amadeus_Gen. 2 razy było wywoływane makro 'sprawdź'. Po wywaleniu 1 makra 'sprawdź' czas obliczeń zminił się z 2,20 min do 1,20 min I to jest to !!! To prawie tyle samo co excelowym randomizerem. I o dziwo, makro przestało się wysypywać. Pewnie 777ch, zrobił by z tego rakietę liczącą kilka sekund ale nie przesadzajmy, jest dobrze.

--- wpis edytowano 2018-03-27 19:44 ---

2018-03-27 (20:18)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 695
[ CZCIONKA MONOSPACE ]

kleszek>



Arkusz od czasu wysłania go Tobie uległ znacznym i istotnym modyfikacjom i w tej chwili jest na etapie eksperymentowania więc już nie pamiętam jak wyglądał oryginał

Możesz mi podesłać na maila wersję jaką aktualnie używasz to "bitew" to znajdę interesujące fragmenty kodu.



Rakieta 777ch w znacznej części zależy od paliwa, czyli Jego procesora, nieporównywalnego z moim.

--- wpis edytowano 2018-03-27 20:21 ---

2018-03-27 (20:36)

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

2047
wpis nr 1 157 704
[ CZCIONKA MONOSPACE ]

Pisząc rakieta, miałem na myśli optymalizacje kodu. Arkusz poleciał.
2018-03-28 (10:44)

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

1386
wpis nr 1 157 803
[ CZCIONKA MONOSPACE ]

1 2 3 5 7 9 11 15 16

1 2 8 11 12 14 16 17 18

1 3 4 6 7 12 14 16 18

1 4 8 9 10 11 13 14 15

1 5 6 7 8 10 12 15 17

2 3 9 10 12 13 14 15 18

2 4 5 6 8 9 10 16 18

2 4 6 7 9 11 12 13 17

3 4 5 7 8 13 15 17 18

3 5 6 10 11 13 14 16 17





w moim Compare.xls by Fairplay

ten przegrywa z rozpisem kleszka



================================================

Gw.trf. [4w9] przy trf. 8-liczb = 100 %,brak traf.[4w9] w 0-komb.

Gw.trf. [5w9] przy trf. 8-liczb = 99,9862882215823 %,brak traf.[5w9] w 6-komb.

Gw.trf. [6w9] przy trf. 8-liczb = 65,88509529686 %,brak traf.[6w9] w 14928-komb.

Gw.trf. [7w9] przy trf. 8-liczb = 7,61003702180173 %,brak traf.[7w9] w 40428-komb.

Gw.trf. [8w9] przy trf. 8-liczb = 0,205676676264912 %,brak traf.[8w9] w 43668-komb.







Sprawdzone 8-skr. liczb [18] zbiór =43758-kombinacji

Minimum gwarantowane: 20-pln , 10x 4|9,..np..[5,7,8,9,12,13,14,16]

Równorzędnych [6]

-------------------------------------

20-pln {6} ..co stanowi : 0,014 %

24-pln {150} ..co stanowi : 0,343 %

--------------------------------------

28-pln {1608} ..co stanowi : 3,675 %

30-pln {292} ..co stanowi : 0,668 %

32-pln {3030} ..co stanowi : 6,925 %

34-pln {2308} ..co stanowi : 5,275 %

36-pln {1572} ..co stanowi : 3,593 %

38-pln {3188} ..co stanowi : 7,286 %

40-pln {1112} ..co stanowi : 2,542 %

42-pln {699} ..co stanowi : 1,598 %

44-pln {849} ..co stanowi : 1,941 %

46-pln {34} ..co stanowi : 0,078 %

48-pln {53} ..co stanowi : 0,122 %

50-pln {27} ..co stanowi : 0,062 %

56-pln {298} ..co stanowi : 0,682 %

58-pln {41} ..co stanowi : 0,094 %

60-pln {2303} ..co stanowi : 5,264 %

62-pln {1345} ..co stanowi : 3,074 %

64-pln {3244} ..co stanowi : 7,414 %

66-pln {5472} ..co stanowi : 12,506 %





jak widać tu postawiłem na minimum ilościowo poniżej 28-pln

powinien się bronić a ........ wygrywa kleszek





Pojedynek piłkarski

rozpis1 777ch _ vs _ kleszek rozpis 2

Rozpis1 [477] - [513] Rozpis2

Winner is Rozpis 2

--------------------------------------

Pojedynek piłkarski

rozpis1 777ch _ vs _ kleszek rozpis 2

Rozpis1 [462] - [527] Rozpis2

Winner is Rozpis 2





uzywam do pojedynku takiego podliczenia



Sub test100()

Dim tabpoj() As Variant

Dim wyn1, wyn2 As Variant

Dim pojedynek As Integer

pojedynek = 1

ReDim tabpoj(0, 1)





1

testuj

For licz = 1 To 10

wyn1 = Cells(9 + licz, 24).Value

wyn2 = Cells(9 + licz, 25).Value

If wyn1 > wyn2 Then tabpoj(0, 0) = tabpoj(0, 0) + 1

If wyn2 > wyn1 Then tabpoj(0, 1) = tabpoj(0, 1) + 1

Next licz

pojedynek = pojedynek + 1

Cells(1, 25) = "Test nr: " & pojedynek

If pojedynek < 100 Then GoTo 1

Cells(22, 23) = "Pojedynek piłkarski"

Cells(23, 23) = "rozpis1 " & Cells(2, 25) & " _ vs _ " & Cells(3, 25) & " rozpis 2"

Cells(24, 23) = "Rozpis1 [" & tabpoj(0, 0) & "] - [" & tabpoj(0, 1) & "] Rozpis2 "

If tabpoj(0, 0) > tabpoj(0, 1) Then Cells(25, 23) = "Winner is " & "Rozpis 1"

If tabpoj(0, 0) < tabpoj(0, 1) Then Cells(25, 23) = "Winner is " & "Rozpis 2"

If tabpoj(0, 0) = tabpoj(0, 1) Then Cells(25, 23) = "Pat " & " Rozpis1 | Rozpis2 > Równoważne"

End Sub













a jak tam wasze porównania

".cuś jest w tej metodzie porównawczej"

--- wpis edytowano 2018-03-28 10:55 ---

2018-03-28 (12:31)

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

2047
wpis nr 1 157 830
[ CZCIONKA MONOSPACE ]

>> a jak tam wasze porównania

".cuś jest w tej metodzie porównawczej" <<

Mało czasu, cholera Świąteczne porządki, a jeszcze na 16 do pracy, więc tak ... z doskoku

Metoda, którą testujesz systemy , jest oparta na porównaniu pozycji "zysk", po każdym teście. Ja używam podobnej, choć jednak trochę innej metody. Jest bardziej czasochłonna, ale moim zdaniem daje (chyba) dokładniejsze wyniki.

Wczoraj napisałem " the winner is 777ch". Udało mi się znaleźć system, który w moich testach daje lepsze wyniki. Oto mój rozpis:

01 02 03 04 05 08 12 17 18

01 02 03 06 10 13 15 16 18

01 02 05 08 09 10 11 13 14

01 02 07 11 12 14 15 16 17

01 04 06 07 09 13 14 17 18

02 03 04 06 07 09 10 11 12

03 04 08 09 10 14 15 16 17

03 05 06 07 08 12 13 14 16

04 05 09 11 12 13 15 16 18

05 06 07 08 10 11 15 17 18

A tu wyniki 3 bitew między systemem 777ch i kleszka ( 3 bitwy, bo brak czasu )

777ch--vs--kleszek

429--14--557

437--13--550

421--17--562 (Amadeus)

Przy okazji sprawdziłem, że sugestia fair_play`a, że większa gwarancja rozpisu największej szansy daje przewagę w pojedynkach, jednak się nie sprawdza.



Mój winner system ma taką :

1x6 + 2x5 + 4x4 --> 12,94392%

System2

01 02 03 08 09 12 13 15 17

01 02 05 06 12 13 14 16 18

01 03 04 05 07 10 12 14 17

01 03 08 10 11 14 15 16 18

01 05 06 07 09 11 15 16 17

02 03 04 06 07 08 16 17 18

02 03 06 07 09 10 11 13 14

02 04 05 06 08 10 11 12 15

04 05 07 08 09 13 14 15 18

04 09 10 11 12 13 16 17 18

ma:

1x6 + 2x5 + 4x4 --> 13,21815%

A wyniki bitew wyglądają tak :

system2 vs kleszek

488--09--503

478--11--511

465--08--527 (Amadeus)



I pytanie techniczne na koniec :

W cells(1,55) mam wpisaną formułę : =JEŻELI(BE1>BF1;1;0)

Jak zrobić makrem aby w cells(1,55) pojawił się sam wynik formuły ?

To tyle. Idę sprzątać chałupę dalej

Pozdrawiam!





--- wpis edytowano 2018-03-28 12:42 ---

2018-03-28 (13:20)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8710

14865
wpis nr 1 157 844
[ CZCIONKA MONOSPACE ]

kleszek>



Cells(1,55) to komórka "BC1" a chyba masz na myśli komórkę "BH1" czyli cells(1,60) ?



dla całej kolumny "BH":



for y=1 to 1000

if cells(y,57)>cells(y,58) then

cells(y,60)=1

else

cells(y,60)=0

end if

if cells(y,57)=cells(y,58) then cells(y,61)=2 ' to możesz dodać

next y

--- wpis edytowano 2018-03-28 13:29 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 199 200 201 ... 554 555
Wyślij wiadomość do admina