Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

moje ... oprogramowanie

2018-03-25 (21:53)

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

2047
wpis nr 1 157 199
[ CZCIONKA MONOSPACE ]

fair_play, jesteś cudotwórcą Działa. Wielkie dzięki !!!! Obiecuję, że w przyszłości z większą uwagą będę śledził Twoje posty Jeszcze raz dziękuję !!!!
2018-03-25 (21:58)

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

14865
wpis nr 1 157 205
[ CZCIONKA MONOSPACE ]

kleszek>



Cieszy mnie to



To teraz odpowiedz czy zadziała Ci to w pętli:



for x=1 to n

losuj

wczytaj

sprawdź

next n

--- wpis edytowano 2018-03-25 21:59 ---

2018-03-25 (22:06)

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

2047
wpis nr 1 157 216
[ CZCIONKA MONOSPACE ]

Działa bez większego problemu
2018-03-25 (22:11)

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

14865
wpis nr 1 157 230
[ CZCIONKA MONOSPACE ]

widocznie moja procedura importu stworzona na podstawie zarejestrowanego makra ma jakiś feler



Sub import()

Range("M:V").Cells.ClearContents



With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;e:\Users\Ja\Desktop\GeneratorUniwersalny\wylosowane.csv", Destination:=Range("$M$1"))

.Name = "wylosowane_1"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 852

.TextFileStartRow = 1

.TextFileParseType = xlFixedWidth

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)

.TextFileFixedColumnWidths = Array(2, 3, 3, 3, 3, 3, 3)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

End Sub

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

2018-03-25 (22:16)

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

2047
wpis nr 1 157 239
[ CZCIONKA MONOSPACE ]

Ja wczytuję do arkusza z pliku .txt makrem autorstwa 777ch

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("C:\Users\Kleszek\Desktop\777ch\wylosowane.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

End Sub

2018-03-25 (22:25)

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

14865
wpis nr 1 157 242
[ CZCIONKA MONOSPACE ]

kleszek>



Dziekuję, spróbuję wykorzystać procedurę jak nie znajdę błędu w mojej

--- wpis edytowano 2018-03-25 22:26 ---

2018-03-25 (22:30)

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

2047
wpis nr 1 157 246
[ CZCIONKA MONOSPACE ]

fair_play, tylko czytaj uważnie
2018-03-25 (22:32)

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

14865
wpis nr 1 157 248
[ CZCIONKA MONOSPACE ]

kleszek>



Czytam uważnie i widzę że musisz tę procedurę modyfikować przy każdej zmianie ilości trafień



Np.

ReDim TABDANE(95536, 9)

ReDim TABDANE(95536, 10)



TABDANE(i, = arrLine(8)

TABDANE(i, 9) = arrLine(9)



itd.

--- wpis edytowano 2018-03-25 22:35 ---

2018-03-25 (22:32)

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

1386
wpis nr 1 157 249
[ CZCIONKA MONOSPACE ]

widzę że pracowita niedziela była



niestety dziś ja miałem przerwę od netu,zaglądam tylko co wylosowali

ale widzę że nie tym razem



pozdrawiam
2018-03-25 (22:38)

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

1386
wpis nr 1 157 252
[ CZCIONKA MONOSPACE ]

Co Ty kleszek kombinujesz,

sam randomizer nie ułoży.. nic

.. specjalnego

2018-03-25 (22:42)

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

2047
wpis nr 1 157 253
[ CZCIONKA MONOSPACE ]

>>> Czytam uważnie i widzę że musisz tę procedurę modyfikować przy każdej zmianie ilości trafień <<<



fair_play, potrzebne procedury zmodyfikujesz wg. potrzeb tylko raz, będziesz miał wstawione do modułu i używał w miarę potrzeb. Podejrzewam, że wczytywanie pliku .csv trwa dłużej niz .txt. Szybko to docenisz, kiedy zrobisz sobie pętle z dodatkowymi procedurami dla np 1000 losowań w pojedyńczym [i]

For i = 1 To 1000

Potestuję trochę Amadeusa i jeżeli wyniki będą zbliżone do excelowego randomizera, to nie ma sensu tracić czasu. Excelowy randomizer jest, co oczywiste po prostu najszybszy.





2018-03-25 (22:46)

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

14865
wpis nr 1 157 254
[ CZCIONKA MONOSPACE ]

kleszek>



Zaprezentowana moja procedura z plikiem csv działa błyskawicznie, tyle że... wysypuje się w pętli
2018-03-25 (22:46)

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

2047
wpis nr 1 157 255
[ CZCIONKA MONOSPACE ]

>>> Co Ty kleszek kombinujesz, <<<

Zobacz mój post wpis nr 1 157 114. Po prostu próbuję wartościować systemy testując je w pętli

For i = 1 To 1000

dla jednorazowej próbki i = 1000 losowań. Może odniesiecie sie do tego postu. Wyniki są chyba miarodajne ( moim zdaniem )
2018-03-25 (22:50)

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

1386
wpis nr 1 157 256
[ CZCIONKA MONOSPACE ]

kleszek



Takie rzeczy można od razu zrobić w paskalu,

no może nie od razu ,ale...... prawie



Jak znajdę czas w przyszłym tygodniu i melodię

to może coś zmajstruję.



uciekam

2018-03-26 (10:56)

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

14699
wpis nr 1 157 295
[ CZCIONKA MONOSPACE ]

777ch, a'propos Twoich paskud ("zestaw negatywny"):



03 ,06, 11, 34, 35, 49, 51 ,70, 72

03, 06, 11, 34 ,35 ,50 ,51, 68 ,80

03, 06 ,11 ,34, 35, 50, 70, 72, 80

03 ,06 ,11 ,34, 49, 50 ,51, 70, 80

03 ,06 ,11, 34, 49 ,50, 68, 70 ,72

03 ,06 ,11 ,35 ,49 ,51, 68 ,70, 80

03,,06, 11 ,49, 50 ,51, 68, 72, 80

03 ,06, 34 ,35 ,49,,50, 51, 72, 80

03 ,06 ,34 ,35, 50, 51, 68, 70, 72

03 ,06 ,34, 49 ,51 ,68, 70, 72 ,80

03 ,06, 35, 49, 50, 68 ,70 ,72, 80

03 ,11 ,34 ,35 ,49 ,50 ,68 ,70 ,80

03, 11, 34 ,35 ,49 ,51, 68, 72, 80

03, 11, 34 ,50 ,51 ,68, 70, 72, 80

03 ,11 ,35 ,49 ,50, 51, 68, 70, 72

06, 11, 34, 35 ,49, 50 ,51, 68, 72

06 ,11 ,34, 35 ,49 ,68, 70, 72, 80

06 ,11, 35, 50, 51 ,68, 70 ,72, 80

06, 34, 35, 49, 50, 51, 68, 70, 80

11, 34, 35 ,49, 50 ,51 ,70 ,72, 80



Dalej lipa. Od 1 III wyłapałem tylko 4 losowania równe lub wyższe (max 210 zł) od kosztów (100 zł za Plusa). Najprawdziwsze paskudy

2018-03-26 (11:55)

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

1386
wpis nr 1 157 315
[ CZCIONKA MONOSPACE ]

MLRandom

Z tego negatywnego ,to faktycznie paskuda :

dobrze że skreślam tylko 2 z tych liczb



może to jedna z "czarnych dziur" maszyny

czyli > takich ułożeń liczb nie "produkuje"



gdyby znaleźć takich znacznie więcej

to jakiś można by filtr założyć .

o ile tak będzie dalej......

--- wpis edytowano 2018-03-26 11:58 ---

2018-03-26 (13:00)

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

2047
wpis nr 1 157 323
[ CZCIONKA MONOSPACE ]

Wykorzystując ostatnie wolne chwile przed przedświąteczną gorączką zarówno w pracy jak i w domu postanowiłem przetestować mój pomysł na wartościowanie systemów na trzech zestawach liczb podanych w tym temacie przez kleszka, 777ch i fair_play. Zestawy 10-zakładowe, 9-śkreśleniowe z bazy 18 liczb. Systemy były sprawdzane (co może być ważne ) TYLKO dla trafień 8z18. Jakby nie patrzeć trafienie 8z18, o i tak mniej niż 50% wszystkich liczb w bazie. Rozpis kleszka :

01 02 07 08 09 10 14 16 17

01 03 04 07 12 13 14 17 18

01 03 05 06 07 08 10 12 15

01 04 06 08 09 11 15 17 18

01 05 10 11 13 14 15 16 18

02 03 04 05 06 10 14 15 17

02 03 04 05 08 09 11 13 16

02 03 06 09 11 12 14 16 18

02 04 06 07 08 12 13 15 16

05 07 09 10 11 12 13 17 18

Rozkład szans (początek i koniec)

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

Minimum gwarantowane: 20-pln , 10x 4|9,..np..[3,6,8,10,13,16,17,18]

Równorzędnych [2]

20-pln {2} ..co stanowi : 0,005 %

24-pln {210} ..co stanowi : 0,48 %

28-pln {1682} ..co stanowi : 3,844 %

.....

2016-pln {22} ..co stanowi : 0,051 %

2018-pln {5} ..co stanowi : 0,012 %

2020-pln {1} ..co stanowi : 0,003 %

Rozpis 777ch:

01 02 03 05 10 11 16 17 18

01 02 04 06 12 13 15 17 18

01 02 09 10 11 12 13 15 16

01 03 05 07 09 10 11 14 15

01 04 07 08 09 12 13 14 18

02 04 05 06 07 08 09 17 18

02 04 05 06 07 12 13 14 16

03 04 06 07 08 10 11 15 16

03 05 08 10 11 12 13 14 17

03 06 08 09 14 15 16 17 18

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

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

Równorzędnych [2]

20-pln {2} ..co stanowi : 0,005 %

24-pln {251} ..co stanowi : 0,574 %

28-pln {2256} ..co stanowi : 5,156 %

----------

2024-pln {3} ..co stanowi : 0,007 %

2026-pln {5} ..co stanowi : 0,012 %

2028-pln {3} ..co stanowi : 0,007 %

Rozpis fair_play

01 02 03 04 05 06 12 14 16

01 02 03 08 09 10 11 17 18

01 02 06 07 08 11 13 15 17

01 05 07 10 12 13 14 15 18

01 05 08 09 10 11 14 16 17

02 03 04 07 08 09 13 14 15

02 04 06 07 10 12 15 16 17

03 04 05 06 09 10 12 14 18

03 06 08 09 11 13 15 16 18

04 05 07 11 12 13 16 17 18

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

Minimum gwarantowane: 24-pln , 1x 5|9,8x 4|9,1x 3|9,..np..[6,7,8,9,12,14,17,18]

Równorzędnych [252]

24-pln {252} ..co stanowi : 0,576 %

28-pln {2319} ..co stanowi : 5,3 %

30-pln {384} ..co stanowi : 0,878 %

----------

2050-pln {3} ..co stanowi : 0,007 %

2052-pln {1} ..co stanowi : 0,003 %

2054-pln {4} ..co stanowi : 0,01 %



Badania robiłem metodą pojedynków piłkarskich, czyli 2 systemy były sprawdzane pod kątem kwoty wypłaty za trafienie 8 tej samej próbki. Ten, który wygrywał dostawał 1 punkt. 1 badana próbka liczyła 1000 ósemek z zakresu liczb 1-18. W jednym cyklu badałem 1000 takich próbek, a więc jak z tego wynika, 1 cykl składał się z 1 miliona pojedynków. Sądzę, że to wystarczająca ilość do porównań 2 systemów. Do badania robiłem 5 "bitew" między systemami. Oto wyniki :

777ch vs fair_play

Kolumna1 zwycięstwa systemu1

Kolumna2 remisy w pojedynkach

Kolumna3 zwycięstwa systemu2



527--13--460

532--16--452

496--15--489

520--33--447

523--09--468

Jak widać system 777ch wygrał 5:0, choć przewaga między systemami nie jest zbyt duża.



777ch vs kleszek



168--07--825

172--14--814

161--11--828

169--07--824

183--07--810

Tu już przewaga systemu kleszka nie podlega dyskusji



fair_play vs kleszek



135--01--864

124 09--867

129--05--866

131--06--863

127--11--862

Tu jest podobnie jak w poprzednim pojedynku. Przewaga jest wyraźna. Zastanawia mnie to. Dlaczego mimo tego, że rozpisy w niewielkim stopniu różnią sie między sobą, to jeden z systemów jest wyraźnie lepszy. Jaki czynnik to powoduje ? Rozkład szans ? Nie rozumiem tego. A może ta metoda sprawdzania systemów jest błędna ? Co o tym sądzicie ?









2018-03-26 (14:18)

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

14865
wpis nr 1 157 353
[ CZCIONKA MONOSPACE ]

kleszek>



Myślę, że znajdziesz jeszcze przedświąteczną chwilę żeby odpowiedzieć



"1 badana próbka liczyła 1000 ósemek z zakresu liczb 1-18. W jednym cyklu badałem 1000 takich próbek, a więc jak z tego wynika, 1 cykl składał się z 1 miliona pojedynków...Do badania robiłem 5 "bitew" między systemami."



Czy "cykl" to to samo co "bitwa" ?



Nie bardzo rozumiem jak z 1 miliona pojedynków w "bitwie" otrzymujesz wynik z sumą tylko 1000 punktów.



Jeśli swoje próby przeprowadzałeś w oparciu o mój arkusz to możesz podać jakie wartości testów i losowań ustawiałeś dla jednej "bitwy"?



Jakiego randomizera używałeś bo ja dla excelowskiego w pojedynku 777ch-fair_play otrzymałem takie wyniki (dla tysiąca, a nie miliona pojedynków)?



777ch--remis---fair ---odchylenie

-478-----43----479---0,10449321%

-498-----39----463---3,64203954%

-478-----33----489---1,13753878%

-477-----48----475---0,21008403%

-441-----50----509---7,15789474%



--- wpis edytowano 2018-03-26 14:24 ---

2018-03-26 (14:46)

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

2047
wpis nr 1 157 359
[ CZCIONKA MONOSPACE ]

fair _play, do pracy ide dzisiaj na 17, więc jeszcze trochę czasu mam. Wiem, że moje wyjaśnienia mogą wyglądać na "trochę" skomplikowane, ale spróbuję. Zerknij na obrazek



Tak to wygląda. Losowań 1000. Komórki W19 i Y19 pokazują zwycięstwa w 1000 pojedynków (zliczają jedynki z kolumny BH)

Zerknij na makra



Sub Autotest()

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 1000

Call Makro_główne

Next i

Application.ScreenUpdating = True

Worksheets("Arkusz2").Select

Cells(2, 1).Select

End Sub

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



Makro testCopy, kopiuje każdorazowy wynik z komórek (W19:Y19) do arkusza2. Wygląda to tak:



Wynik z komórek (H1:J1) To jest wynik 1 bitwy. Jeśli cos będzie jeszcze niezrozumiałe, to pytaj. Postaram się wytłumaczyć.
2018-03-26 (16:06)

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

14865
wpis nr 1 157 372
[ CZCIONKA MONOSPACE ]

kleszek>



Wszystko jasne poza tym jakiego randomizera używasz



Trochę zaskoczyła mnie tak duża liczba remisów, ale widzę, że system2 to żaden z omawianych poprzednio



Jedna kwestia pod rozwagę.

Kiedyś w polskiej ekstraklasie premiowano zwycięstwo różnicą większą niż 2 bramkami dodatkowym punktem.

Czy nie należałoby rozważyć gradacji punktacji w kolumnach E, G Arkusza 2 ?

Bo inaczej wygląda zwycięstwo różnicą o 1 (wiersz 15), a inaczej różnicą ponad 30 (wiersz 2).

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