Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 196 197 198 ... 554 555 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2018-03-24 (14:53)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 156 875 [ CZCIONKA MONOSPACE ] kleszek W komputerze na dysku G w katalogu Generator mam generator Amadeusa. ale zmień dane do ścieżki w formule z poziomu excela o ile po uruchomieniu isaac tworzy plik to zrobisz to jedną komendą ale zmień dane do ścieżki w formule Sub wywołaj() Call Shell("cmd.exe /C:\Users\leszek\Desktop\777ch\leov1.exe", vbNormalFocus) End Sub |
2018-03-24 (15:12)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 156 878 [ CZCIONKA MONOSPACE ] Dobre pytanie, fair_play. Oba systemy pod względem gwarancji i rozkładu wypłat są identyczne. A jednak kwoty wypłat za trafienia są różne. >> Jak uwzględnisz te różnice w swoich poszukiwaniach najlepszego rozpisu ? << Ten paradoks pokazał, że kwoty wypłat za trafienia w testach, nie są (chyba) wyznacznikiem jakości systemu. Bardziej trzeba się skupić na pojedynkach piłkarskich między systemami. Teoretycznie po XXX testach wynik powinien wynosić 50% -50%. Pewnie raz będzie większy od 50, raz mniejszy, ale będzie oscylował w tych granicach. Jeżeli będzie inaczej, to albo to będzie źle świadczyło o excelowym randomizerze, albo będzie to znaczyć, że całą tą koncepcję próby wartościowania systemów można o kant d..y rozbić ![]() Edit: >>>ale zmień dane do ścieżki w formule <<<< Spróbuję to zrobić. Dziękuje za poradę. Pozdrawiam! Edit2: Super!!! Działa. Dzięki 777ch ![]() --- wpis edytowano 2018-03-24 15:22 --- |
2018-03-24 (15:23)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 156 880 [ CZCIONKA MONOSPACE ] To działa na bank,bo ja tak wywoływałem randomizer Isaac a potem porównywałem rozkłady trafień losowych z tymi realnymi i wyszło mi że nie ma kantów...... |
2018-03-24 (17:09)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 156 901 [ CZCIONKA MONOSPACE ] kleszek> W wątku "Rekordy świata z WeEf - Wilfrieda Fromme z naszych archiwów" jest prośba użytkownika o kilka rekordowych rozpisów. Z wiekszością sobie poradziłem jednak przy dwóch moja wersja free mieli i mieli. Myślę, że dla Ciebie to żaden problem z wygenerowaniem rekordów: C(30,5,2,4)=18 i C(30,5,2,5)=14. |
2018-03-24 (18:14)![]() Data rejestracji: 2007-04-03 Ilość postów: 41774 ![]() | wpis nr 1 156 906 [ CZCIONKA MONOSPACE ] fair_play>> te 2 rozpisy są w zbiorze systemów liczącym ponad 4k na stronie http://www.theluckygene.com/LotteryWheels.aspx?gid=AtlanticKeno |
2018-03-24 (18:32)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 156 911 [ CZCIONKA MONOSPACE ] fair_play, dla systemu C(30,5,2,4)=18, WG bez problemu znalazł rekordowy system, jednak dla systemu C(30,5,2,5)=14 mój trochę archaiczny już komputer dostał zadyszki ![]() C(30,5,2,4)=18 01 03 11 18 26 01 11 12 21 27 02 04 09 14 15 02 06 10 13 14 02 14 17 22 23 03 12 18 21 27 04 06 09 10 23 04 09 13 17 22 05 07 16 29 30 05 07 20 28 29 05 08 19 24 25 06 10 15 17 22 07 08 19 28 30 07 16 24 25 28 08 16 19 20 29 09 12 26 27 29 13 15 21 23 26 20 24 25 29 30 |
2018-03-24 (19:21)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 156 929 [ CZCIONKA MONOSPACE ] kleszek> Dziękuję. Odpuść sobie ten drugi, bo kolega edi8 już je oba wrzucił ![]() |
2018-03-25 (15:47)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 114 [ CZCIONKA MONOSPACE ] fair play napisał (wpis nr 1 156 871) cyt. "Oba rozpisy są identyczne z punktu widzenia gwarancji. Teraz zapuść porównywarkę i...... Jak uwzględnisz te różnice w swoich poszukiwaniach najlepszego rozpisu ? Przecież kwestia podstawienia liczb pod matrycę to sprawa losowa" fair_play, wszystko jest w porządku. Nie ma żadnych anomalii, a mój sposób wartościowania systemów nie pokazuje (chyba) błędów. Zacznijmy od początku. Wziąłem do porównania 2 systemy, które podałeś. Tak jak piszesz, oba rozpisy są identyczne z punktu widzenia gwarancji. W swoich badaniach definitywnie odpuściłem porównywanie wypłat za trafiena. Trafienie liczb w matrycy to jak piszesz sprawa losowa, a dysproporcje w różnicy wypłat wynikają z różnicy między poszczególnymi stopniami płatności za trafienie. Na to jako gracz nie mam żadnego wpływu. W badaniach porównawczych między tymi dwoma identycznymi pod wzgłędem gwarancji systemami skupiłem się na "pojedynkach piłkarskich", gdzie zwycięstwem była większa wygrana za trafienie danej linii. Jedna badana próbka zawierała 1000 losowań po 8 trafień. Jeden cykl składał się z 1000 próbek. Przkładowa pojedyńcza próbka 1000 losowań dawała takie wyniki : system1 remis system2 228 548 224 Najwięcej jest remisów, ale to oczywiste, gdyż oba te systemy są bardzo zbliżone do siebie. Teoretycznie system 1 powinien mieć tyle samo zdarzeń co system2, ale to rzadki przypadek. Zresztą rzucając monetą 1000 razy rzadko kiedy będzie wynik 500 do 500. Zrobiłem 10 badań takich cykli. Oto wyniki : 485 20 495 "-----------" 1,020408163 480 15 505 "-----------" 2,538071066 480 16 504 "-----------" 2,43902439 494 17 489 "-----------" 0,508646999 483 14 503 "-----------" 2,028397566 499 17 484 "-----------" 1,525940997 481 19 500 "-----------" 1,936799185 490 16 494 "-----------" 0,406504065 492 19 489 "-----------" 0,305810398 498 19 483 "-----------" 1,529051988 Kolumna1 zwycięstwa systemu1 Kolumna2 remisy w pojedynkach Kolumna3 zwycięstwa systemu2 Ostatnie kolumna to procentowa różnica niezgodności miedzy winikiem systemu 1 i systemu2. Ideałem byłoby gdyby wynosiła ona 0. W tych 10 testach największa różnica wynosi 2,54%. Mieści się to chyba w jakimś parametrze matematycznej zgodności dla wielkości 1000 próbek, gdzie prawdopodobieństwo wypadnięcia zdarzenia wynosi 50%. Zaprezentowana przeze mnie metoda porównawcza 2 systemów, w tym przypadku pokazała, że oba systemy są faktycznie bardzo zbliżone do siebie. Badając rozpisy tą metodą o różnym rozkładzie szans, pozwoli ( chyba )z dużym prawdopodobieństwem stwierdzić, że system 1 jest lepszy od systemu 2. Będzie to wymagało kolejnych testów, ale mając narzędzie w postaci arkusza autorstwa fair_play, da się to zrobić. |
2018-03-25 (19:42)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 157 144 [ CZCIONKA MONOSPACE ] kleszek> Postanowiłeś skorzystać z generatora Amadeusa i w odpowiedzi na podpowiedź kolegi 777ch odpisałeś: "Super!!! Działa. Dzięki 777ch ![]() To mam pytanie czy to działa Ci w pętli czy pojedyńczo ? Bo u mnie jeśli próbuję skorzystać z generatora w pętli to występuje błąd "Program GenUniv.exe przestał działać" . Ja zaimplementowałem to tak: Sub pętla() For x = 1 To 20 losuj import Next x End Sub Sub losuj() Call Shell("e:UsersJaDesktopGeneratorUniwersalnyGenUniw.exe 1000 18 8 0 e:UsersJaDesktopGeneratorUniwersalnylos.csv") End Sub Sub import() Range("M:V").Cells.ClearContents With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;e:UsersJaDesktopGeneratorUniwersalnylos.csv", Destination:=Range("$M$1")) .Name = "los_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 Przy czym procedura import () powstała w wyniku rejestracji makra. Nie mogę znaleźć błędu ![]() Jak po przerwaniu makra podejrzę je to błąd występuje w ostatniej linii procedury import(): .Refresh BackgroundQuery:=False Może Ty lub kolega 777ch podpowie w czym rzecz ? --- wpis edytowano 2018-03-25 19:45 --- |
2018-03-25 (20:17)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 157 154 [ CZCIONKA MONOSPACE ] kleszek> Nie wiem dlaczego po edycji wpisu znikają z tekstu znaki backslash "\" Call Shell("e:\Users\Ja\Desktop\GeneratorUniwersalny\GenUniw.exe 1000 18 8 0 e:\Users\Ja\Desktop\GeneratorUniwersalny\test.csv") With ActiveSheet.QueryTables.Add(Connection:="TEXT;e:\Users\Ja\Desktop\GeneratorUniwersalny\test.csv", Destination:=Range("$M$1")) |
2018-03-25 (20:26)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 159 [ CZCIONKA MONOSPACE ] fair_play, mój entuzjazm był nieco przedwczesny ![]() |
2018-03-25 (20:34)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 157 161 [ CZCIONKA MONOSPACE ] kleszek> Może zamiast bat-a użyj bezpośrednio Call Shell("c:\Users\....\GenUniw.exe 1000 18 8 0 .... c:\........\wylosowane.csv) csv lub txt jak wolisz. --- wpis edytowano 2018-03-25 20:37 --- |
2018-03-25 (21:03)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 170 [ CZCIONKA MONOSPACE ] Wywołanie makrem komendy Call Shell("cmd.exe /k C:\Users\Kleszek\Desktop\777ch\GenUniwStart.exe 1000 18 8 0", vbNormalFocus) powoduje otwarcie pustego okienka cmd Wywołanie komendy teoretycznie uruchamiające plik .bat Call Shell("cmd.exe /k C:\Users\Kleszek\Desktop\777ch\GenUniwStart.bat ", vbNormalFocus) kończy się komendą GenUniw.exe is not recognized as an internal or external command operable program or batch file Trudno, to nie problem. Musi mi wystarczyć randomizer. Wolę zajmować się badaniami systemów, niż dociekaniem dlaczego to nie działa ![]() |
2018-03-25 (21:07)![]() Data rejestracji: 2016-01-16 Ilość postów: 553 ![]() | wpis nr 1 157 171 [ CZCIONKA MONOSPACE ] Ja z poziomu makra odpalam generator Amadeusa poleceniem: Dim RetVal RetVal = Shell("T:\Moje dokumenty\Lotto i losowość\Generator losowy\GenUniwStartML.bat", 1) Oczywiście należy zmienić ścieżkę dostępu na tą, gdzie jest generator. U mnie są też pozmieniane nazwy plików wsadowych, więc trzeba i na to zwrócić uwagę. Dane do generatora zmienia się wcześniej poprzez edycje pliku wsadowego .bat, który wywołuje ww. polecenie. --- wpis edytowano 2018-03-25 21:15 --- |
2018-03-25 (21:23)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 176 [ CZCIONKA MONOSPACE ] MLRandom, metodę z dim RedVal znalazłem wczoraj w sieci, kiedy próbowałem ustalic dlaczego wyskkuje mi ten błąd. Ta metoda też nie działa. Próbowałem naprawiać ten błąd wg. wskazówek wyświetlanych na YouTube, ale to też nie działa. Być może jest wina wersji excela ( mam 2016 64-bit ), nie wiem. Ale na tą chwile to nie problem. Nie działa, to nie działa ![]() |
2018-03-25 (21:30)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 157 182 [ CZCIONKA MONOSPACE ] kleszek> spróbuj tak: Call Shell("C:\Users\Kleszek\Desktop\777ch\GenUniw.exe 1000 18 8 0 C:\Users\Kleszek\Desktop\777ch\wylosowane.txt") bez cmd.exe, bez vbNormalFocus i chyba GenUniw.exe a nie GenUniwStart.exe. Jesteś pewien, że generator ma nazwę GenUniwStart.exe, a nie GenUniw.exe ? Bat ma nazwę GenUniwStart, ale sam generator chyba tylko GenUniw (u mnie na pewno bez Start). Wtedy w folderze ...777ch powinien powstać plik z wylosowanym zestawem "wylosowane.txt" do wczytania do excela. I tutaj pytanie jakim makrem wczytujesz go do excela w odpowiednie komórki? |
2018-03-25 (21:32)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 183 [ CZCIONKA MONOSPACE ] >>> Wtedy w folderze ...777ch powinien powstać plik z wylosowanym zestawem "wylosowane.txt" do wczytania do excela. <<< Wiem w jaki sposób tworzy się pliki generatorem Amadeusa Plik . bat ma nazwę GenUniwStart.bat W katalogu 777ch na desktopie mam 4 pliki : GenUniwOpis.txt GenUniwStart.bat GenUniw.exe typy.txt Plik .bat jest prawidłowo wyedytowany, gdyż kliknięcie na niego myszką generuje plik .txt z zestawami. Brak automatyzacji generowania .txt nie z poziomu makra, nie jest wielkim problem, aby zawracać sobie tym głowę. Nie działa, to nie działa. Tak widocznie ma być edit. >> I tutaj pytanie jakim makrem wczytujesz go do excela w odpowiednie komórki? Żeby coś wczytać, to trzeba najpierw wygenerować ![]() Set objFSO = CreateObject("Scripting.FileSystemObject") Const ForReading = 1 itd. --- wpis edytowano 2018-03-25 21:35 --- |
2018-03-25 (21:39)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 157 189 [ CZCIONKA MONOSPACE ] kleszek> Nie chcesz skorzystać z podpowiedzi trudno, Twój wybór, ale sam widzisz że popełniłeś błąd pisząc: "Wywołanie makrem komendy Call Shell("cmd.exe /k C:\Users\Kleszek\Desktop\777ch\GenUniwStart.exe 1000 18 8 0", vbNormalFocus) powoduje otwarcie pustego okienka cmd ", bo użyłeś nazwy "GenUniwStart.exe" zamiast "GenUniw.exe" |
2018-03-25 (21:45)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 157 193 [ CZCIONKA MONOSPACE ] fair_play, uwierz mi, używałem chyba wszystkich możliwych kombinacji, jakie przyszły mi do głowy ![]() Wpisanie komendy : Call Shell("cmd.exe /k C:\Users\Kleszek\Desktop\777ch\GenUniw.exe 1000 18 8 0", vbNormalFocus) wywołuje .cmd C:\Users\Kleszek\Documents> i wszystko. |
2018-03-25 (21:47)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 157 195 [ CZCIONKA MONOSPACE ] kleszek> Czytasz co piszę ??? spróbuj tak: Call Shell("C:\Users\Kleszek\Desktop\777ch\GenUniw.exe 1000 18 8 0 C:\Users\Kleszek\Desktop\777ch\wylosowane.txt") bez cmd.exe, bez vbNormalFocus !!! |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 196 197 198 ... 554 555 Wyślij wiadomość do admina |