Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 197 198 199 ... 554 555 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2018-03-25 (21:53)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 199 [ CZCIONKA MONOSPACE ] fair_play, jesteś cudotwórcą ![]() ![]() |
2018-03-25 (21:58)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 216 [ CZCIONKA MONOSPACE ] Działa bez większego problemu ![]() |
2018-03-25 (22:11)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | 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)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 246 [ CZCIONKA MONOSPACE ] fair_play, tylko czytaj uważnie ![]() ![]() |
2018-03-25 (22:32)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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, ![]() TABDANE(i, 9) = arrLine(9) itd. ![]() --- wpis edytowano 2018-03-25 22:35 --- |
2018-03-25 (22:32)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 157 252 [ CZCIONKA MONOSPACE ] Co Ty kleszek kombinujesz, sam randomizer nie ułoży.. nic .. specjalnego ![]() |
2018-03-25 (22:42)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | 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)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | 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)![]() Data rejestracji: 2016-01-16 Ilość postów: 553 ![]() | 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)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | 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)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | 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)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | 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)![]() Data rejestracji: 2016-05-12 Ilość postów: 8708 ![]() | 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 lotto | Strona: 1 2 ... 197 198 199 ... 554 555 Wyślij wiadomość do admina |