Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

moje ... oprogramowanie

2018-03-24 (14:53)

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

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

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

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

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

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

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

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

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

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

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

2047
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 Zauważyłem już, że obróbka systemów z 30 liczbami na pokładzie sprawia mu problemy. Oto wygenerowany przez WG system :

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)

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

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

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

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

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

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

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

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

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

2047
wpis nr 1 157 159
[ CZCIONKA MONOSPACE ]

fair_play, mój entuzjazm był nieco przedwczesny makro wywoływało cmd.exe ale w "okienku" pojawiał się komunikat, że plik .bat "is not recognized as an internal command" To chyba jakiś błąd związany z moim systemem operacyjnym, albo jakimś konflikcie z wersją excela. Dałem sobie spokój. Pojedyńczo wygenerowane pliki .txt generatorem Amadeusa mogę bez problemu wczytywac do arkusza makrem i to mi wystarcza. Randomizer excelowski, choć zapewnie gorszy zapewnia mi szybsze wczytywanie wyników do arkusza w pętli. Na tą chwilę mi to wystarcza.
2018-03-25 (20:34)

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

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

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

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

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

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

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

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

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

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

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

2047
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ć Makro nie uruchamia GenUniwStart.bat. Kiedy uruchomię ten plik ręcznie, w katalogu mam nowy plik .txt z zestawami. Wczytanie tego pliku doarkusza nie jest żadnym problemem

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1

itd.

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

2018-03-25 (21:39)

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

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

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

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

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

14865
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 lottoStrona: 1 2 ... 196 197 198 ... 554 555
Wyślij wiadomość do admina