Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 210 211 212 ... 503 504 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2018-04-15 (23:31) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 162 198 [ CZCIONKA SPECJALNA ] Robin Hood > jeszcze dalej "na haju" Oczywiście ja już wytrzeźwiałem, sprawdzanie matryc rozpisów ,przez 200-tys prób losowych powoduje,że .. każda matryca z bliźniaczym v,b,k daje zwrot na poziomie "mniej więcej" tożsamym.. a przecież nie o to chodziło... wiadomo ,wszystko się zrówna , swoje zrobią średnia wygranych i stały koszt na takim 200-km odcinku Wtedy czy to rozpis ala Robin czy ala kleszek ...... wsio ryba a tak w rzeczywistości nie jest No .... ale po kilku drinkach ,i postach Robina..... to można stracić "ostrość widzenia " --- wpis edytowano 2018-04-15 23:31 --- |
2018-04-16 (00:31) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 162 203 [ CZCIONKA SPECJALNA ] kleszek i porównałem go w "moim teście" z jednym z moich systemów : GwReal.[4]= 39,7058823529412 % 01 02 03 04 07 13 14 16 17 01 02 06 07 08 11 15 16 18 01 03 04 05 06 08 10 11 13 01 03 09 10 12 13 15 16 18 01 04 05 08 12 14 15 17 18 02 03 05 08 09 11 12 16 17 02 04 05 06 09 10 14 16 18 02 05 06 07 10 12 13 15 17 03 04 06 07 09 11 12 14 15 07 08 09 10 11 13 14 17 18 Sprawdzone: 43758-komb. [8]-ek Traf. 0/9 : 1822696 Traf. 1/9 : 1591567 Traf. 2/9 : 1611421 Traf. 3/9 : 1422887 Traf. 4/9 : 940990 Traf. 5/9 : 393111 Traf. 6/9 : 85787 Traf. 7/9 : 7787 Traf. 8/9 : 194 Suma pln: 56.000.448-pln Obliczenia dla Hit gwarancji: 39,70588 ======================================== na random.org losowy zestaw: GwReal.[4]= 33,8562091503268 % 01 02 03 05 10 12 13 14 15 01 02 05 10 11 13 16 17 18 01 02 08 09 10 11 12 17 18 02 03 04 06 09 10 11 16 17 02 04 07 08 09 13 15 16 17 02 04 07 08 10 12 14 15 16 03 04 05 07 10 12 13 14 16 03 04 07 10 11 12 13 16 17 04 06 07 10 11 12 15 17 18 05 06 09 10 11 15 16 17 18 Sprawdzone: 43758-komb. [8]-ek Traf. 0/9 : 2014776 Traf. 1/9 : 1640456 Traf. 2/9 : 1593556 Traf. 3/9 : 1313340 Traf. 4/9 : 866237 Traf. 5/9 : 361972 Traf. 6/9 : 78746 Traf. 7/9 : 7176 Traf. 8/9 : 181 Suma pln: 53.482.090-pln Obliczenia dla Hit gwarancji: 33,85620 Obliczenia dla Hit gwarancji: 33,85620 ========================================== Jak widzisz kleszek jednoznacznie przegrywa losowy zestaw Porównanie polegało na sprawdzeniu matrycy przez dodanie sum wygranych kolejnych 8-ek tak jakby wylosowano po kolei te ósemki... --- wpis edytowano 2018-04-16 00:32 --- |
2018-04-16 (01:20) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 162 209 [ CZCIONKA SPECJALNA ] To jednak ... również nie jest dobry sposób porównania bo użyte w rozpisie "zdublowane" np ósemki liczb zafałszują wynik sumy. dobrej nocki już mamy poniedziałek |
2018-04-16 (11:34) fair_play Data rejestracji: 2016-05-12 Ilość postów: 7284 | wpis nr 1 162 261 [ CZCIONKA SPECJALNA ] 777ch> Mam pewien problem. Wywołuję po sobie dwie procedury: losuj() i wczytaj() Procedura losuj() uruchamia generator Amadeusa i wynik zapisuje do pliku txt. Procedura wczytaj() wczytuje dane z pliku txt. Jednak procedura wczytaj() startuje za szybko, gdy plik txt nie jest jeszcze kompletnie zapisany i pojawia się bląd odczytu. Można pomiędzy te procedury wstawić sleep(milisekund), ale raz plik txt ma 10 linii innym razem 1000 linii, więc ta minimalna potrzebna zwłoka jest różna. Jak stwierdzić, że plik txt został kompletnie zapisany i dopiero wtedy wywołać procedurę wczytaj() ? |
2018-04-16 (11:52) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850 | wpis nr 1 162 267 [ CZCIONKA SPECJALNA ] >>> sprawdzanie matryc rozpisów ,przez 200-tys prób losowych powoduje,że .. każda matryca z bliźniaczym v,b,k daje zwrot na poziomie "mniej więcej" tożsamym.. <<< Dlatego też, po raz kolejny napiszę, że porównywanie "siły" systemu, pod kątem wypłat za trafienie nie jest (moim zdaniem) metodą wiarygodną. Im więcej będzie prób, to cyt. "wszystko się zrówna , swoje zrobią średnia wygranych i stały koszt na takim 200-km odcinku Wtedy czy to rozpis ala Robin czy ala kleszek ...... wsio ryba a tak w rzeczywistości nie jest" No, nie jest, co udowodniłem w poście 'wpis nr 1 161 855' str.210, testując system losowy z moim, gdzie wynik "siły" systemu jednoznacznie wskazał na zwycięzcę. Wszystko zależy od metody przyjętej do testowania rozpisów. Ale można też, jak twierdzi Robin Hood, wziąśc 10 losowań, coś tam posprawdzać i twierdzić, że cyt. " Nie ma rozpisów lepszych i gorszych przy sprawdzaniu", bo żaden z "rozpisów nie obronił się trafieniem". A więc cyt. "Temat wyczerpany" >>> Rozpisy..systemy......trochę to zaczyna być nudne.... <<< a ja cyt. " po cichutku, na paluszkach wycofuję się z tych "nudności" Ja już znalazłem swój sposób na testowanie rozpisów. Dzięki wielkiej pracy kolegi fair_play ( za którą jeszcze raz dziękuję), mam świetne narzędzie, dzięki któremu mogę porównywać systemy wg. swojego pomysłu. Na moje potrzeby ten arkusz w zupełności wystarcza. |
2018-04-16 (12:04) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 162 270 [ CZCIONKA SPECJALNA ] kleszek> no to jest ok. fair_play można sprawdzać czy plik przyrasta ,[ file size ] ale to juz wiesz to może spróbuj If FileInUse(sPath & sFileName) Then 'read / write file in use ,nie można wywołać makra wywołaj 'zrób coś ..... np. goto xx Else 'nie w użyciu 'wywołaj'uruchom makro End If ======================= paskal function IsFileInUse(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; ============================================= excel Function FileInUse(sFileName As String) As Boolean On Error Resume Next Open sFileName For Binary Access Read Lock Read As #1 Close #1 FileInUse = IIf(Err.Number > 0, True, False) On Error GoTo 0 End Function test Private Sub TestFileInUse() Dim sPath As String Dim sFileName As String 'change as required sPath = "S:\MyFolder\MyFolder2\" sFileName = "FileName.xlsx" If FileInUse(sPath & sFileName) Then 'read / write file in use 'do something Else 'all ok 'do something else End If End Sub |
2018-04-16 (12:45) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 162 276 [ CZCIONKA SPECJALNA ] Jak stwierdzić, że plik txt został kompletnie zapisany i dopiero wtedy wywołać procedurę wczytaj() ? Jeśli Amadeusz zastosował nadpisywanie linni to będzie trudno , bo proces assignFile(plik, 'Plik.txt'); append(plik); writeln(plik, 'kolejna linia rozpisu'); CloseFile(plik); trwa tak szybko , że funkcja w excelu tego nie wykryje......... |
2018-04-16 (22:08) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462 | wpis nr 1 162 413 [ CZCIONKA SPECJALNA ] Czemu nie piszecie w Pascalu. Według mnie generator MT jest lepszy w arkuszu. Free Basic ' Generator Mersenne Twister ' Data : 16.04.2008 ' (C)2012 mgr Jerzy WaĹ‚aszek '--------------------------- Dim Shared MT(623) As Uinteger Dim Shared mti As Integer = 0 ' Inicjuje MT[] '-------------- Sub InicjujMT(Byval x0 As Uinteger) Dim i As Integer, x As Ulongint MT(0) = x0 For i = 1 To 623 x = MT(i-1) x = (23023 * x) And &HFFFFFFFF x = ( 3 * x) And &HFFFFFFFF MT(i) = x Next End Sub ' Inicjuje MT wartoĹ›ciami losowymi '--------------------------------- Sub UprzypadkowijMT() InicjujMT(Timer * 1000) End Sub ' Generator Mersenne Twister '-------------------------- Function MersenneTwister() As Uinteger Dim MA(1) As Uinteger => {0,&H9908B0DF} Dim y As Uinteger Dim As Integer i1,i397 i1 = mti + 1: If i1 > 623 Then i1 = 0 i397 = mti + 397: If i397 > 623 Then i397 -= 624 y = (MT(mti) And &H80000000) Or (MT(i1) And &H7FFFFFFF) MT(mti) = MT(i397) Xor (y Shr 1) Xor MA(y And 1) y = MT(mti) y = y Xor ( y Shr 11) y = y Xor ((y Shl 7) And &H9D2C5680) y = y Xor ((y Shl 15) And &HEFC60000) y = y Xor ( y Shr 18) mti = i1 MersenneTwister = y End Function Dim As Integer a,b,i,n UprzypadkowijMT() Open Cons For Input As #1 Input #1,a,b,n Close #1 For i = 1 To n Print a + (MersenneTwister() Mod (b - a + 1)); Next End --- wpis edytowano 2018-04-16 22:08 --- |
2018-04-17 (10:46) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 162 481 [ CZCIONKA SPECJALNA ] sindbad Ja aktualnie rzadko coś piszę w vb a koledzy farplay i kleszek testują rozpisy w excelu , ale na bazie danych losowych z generatora ISAAC{Boba Jenkinsa} |
2018-04-17 (11:22) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850 | wpis nr 1 162 492 [ CZCIONKA SPECJALNA ] Jest tak jak pisze 777ch, testujemy zestawy na bazie danych z generatora ISAAC. Nie sądzę, aby wygenerowane wyniki z Mersenne Twister były inne niż te z ISAAC-a, choć swoją drogą myślę, że takie prównanie byłoby ciekawym doświadczeniem. Z drugiej strony, już wyniki z excelowego randomizera są zbliżone do ISAAc-a. Przykładowy wynik bitew 2 systemów w moim arkuszu: 349--15--360 331--12--381 -------------------------- 347--10--367 329--09--386 Pierwsze dwa wyniki są z wykorzystania randomizera excelowskiego, dwa pod kreską z ISAAC-a. Ja tu nie widzę żadnej różnicy w wynikach. Sądzę, że z Twistera wyniki byłyby podobne. Nawet tego nie sprawdzę. Sam kod podany przez sindbada niewiele mi mówi. Pewnie trzeba go jakoś skompilować, ale to juz poza moim zasięgiem. Jest dobrze jak jest, a jak mówi przysłowie, lepsze jest wrogiem dobrego --- wpis edytowano 2018-04-17 11:23 --- |
2018-04-18 (14:55) vidmo Data rejestracji: 2004-11-03 Ilość postów: 9272 | wpis nr 1 162 776 [ CZCIONKA SPECJALNA ] Lepsze jest wrogiem dobrego, bo dobre już przeczuwa, że oto nadchodzi kres jego panowania. Tako rzecze Zarathustra --- wpis edytowano 2018-04-18 14:57 --- |
2018-04-19 (10:01) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 162 998 [ CZCIONKA SPECJALNA ] Jako wspomaganie grających w nową grę MILLIONDAY, gdzie typuje się spośród 55 liczb skreślając w zakładzie 5 - na włoskim forum user C-64 zamieścił program o tej samej nazwie co gra czyli MILLIONDAY i jest on do ściągnięcia z 1. wpisu w tym wątku: http://wheels.forumcommunity.net/?t=60563164 zaś podgląd tego programu oraz jego licznych funkcji - w tym generowanie systemów strefowych, wybór rodzaju rozpisu jako system pełny lub skrócony z gwarancją N-1, N-2 czy N-3 oraz wielu innych możliwości - mamy tu: https://postimg.cc/image/jvvpqrr3r/ UWAGA: sam tego programu jeszcze nie testowałem, tak więc na ten moment nie mogę nic powiedzieć np. o tym jak w nim wygenerowane systemy mają się do znanych aktualnych rekordów, we wszystkich ich kategoriach od LJCR, poprzez WEEF a na strefowych zgromadzonych w wątku "Systemy strefowe by 777ch" kończąc... --- wpis edytowano 2018-04-19 10:16 --- |
2018-04-19 (10:25) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 163 010 [ CZCIONKA SPECJALNA ] Jako wspomaganie grających w nową grę MILLIONDAY, gdzie typuje się spośród 55 liczb skreślając w zakładzie 5 - na włoskim forum user C-64 zamieścił program o tej samej nazwie co gra czyli MILLIONDAY i jest on do ściągnięcia z 1. wpisu w tym wątku: http://wheels.forumcommunity.net/?t=60563164 download: Scarica allegata zaś podgląd tego programu oraz jego licznych funkcji - w tym generowanie systemów strefowych, wybór rodzaju rozpisu jako system pełny lub skrócony z gwarancją N-1, N-2 czy N-3 oraz wielu innych możliwości - mamy tu: https://postimg.cc/image/jvvpqrr3r/ UWAGA: sam tego programu jeszcze nie testowałem, tak więc na ten moment nie mogę nic powiedzieć np. o tym jak w nim wygenerowane systemy mają się do znanych aktualnych rekordów, we wszystkich ich kategoriach od LJCR, poprzez WeEf a na strefowych zgromadzonych w wątku "Systemy strefowe by 777ch" kończąc... |
2018-04-19 (11:51) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 163 056 [ CZCIONKA SPECJALNA ] Edi8 wybacz,skasowałem kilka postów ,bo nic nie wnosiły do tematu a ponieważ 7. NIE KRADNIJ. a dla mnie to kradzież , a skoro zen kradzież toleruje. .....więc zablokowałem zena. |
2018-04-19 (11:52) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 163 058 [ CZCIONKA SPECJALNA ] OK |
2018-04-20 (13:56) fair_play Data rejestracji: 2016-05-12 Ilość postów: 7284 | wpis nr 1 163 323 [ CZCIONKA SPECJALNA ] Koledzy Przypomniało mi się takie żartobliwe powiedzonko jednego ze znajomych "na pochyłe drzewo...to i Salomon nie naleje" . I spowodowało taką refleksję. My tutaj gadu-gadu o gwarancjach, systemach (rozpisach, matrycach), które lepsze, które gorsze; czy lepiej "18 po 9" czy "20 po 10". Ale wszystkie te rozważania psu na budę, jeśli pod te matryce nie podstawimy właściwych liczb. I chyba należałoby wrócić do sposobu "znalezienia" tych liczb. Z pewnością zaraz odezwą się qbam czy Robin Hood z teorią, że rachunku prawdopodobieństwa nie da się przeskoczyć. Wg. teorii rzucając montą 100 razy powinniśmy 50 razy otrzymać orzełka i 50 razy reszkę. To przy rzutach na stole. A co z rzutami na piasku na plaży ? Jakie jest prawdopodobieństwo że moneta stanie "na sztorc" ? Tak więc teoria sobie, a praktyka sobie. Np. czy teoria prawdopodobieństwa uwzględniała, że za czasów wielokolorowych kul w Multilotku, srebrny kolor kul był przez maszynę losującą dyskryminowany. Wróćmy więc do "poszukiwania" liczb, a znalazłszy dopiero podstawiajmy Pozdrawiam |
2018-04-20 (14:12) Robin Hood Data rejestracji: 2009-07-12 Ilość postów: 7786 | wpis nr 1 163 332 [ CZCIONKA SPECJALNA ] Mam pilne teraz prace lecz zajrzałem. Ponieważ jak zapowiedziałem pisać tu już nie będę ( co nie oznacza że definitywnie jak miał nadzieję kleszek ) więc zacytuje : >>Z pewnością zaraz odezwą się qbam czy Robin Hood z teorią, że rachunku prawdopodobieństwa nie da się przeskoczyć. << Fair _play było czytać mnie uważnie. Wszędzie dawałem wpisy o poszukiwaniach i dowodach jak i o ile można przeskoczyć prawdopodobieństwo. Bo przeskoczyć można lecz na krótkim dystansie ,potem zadyszka , znowu przeskoczenie i na całej bazie wychodzi niemal średnia prezesowska Ten zacytowany wpis mój inteligentny translator przetłumaczył: "jak groch o ścianę" |
2018-04-20 (14:32) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 163 337 [ CZCIONKA SPECJALNA ] Robin Bo przeskoczyć można lecz na krótkim dystansie -------------------------------------------------------- to wystarczy ,jeśli wpadnie zaliczenie XXL-plus jeśli tylko XXL to zazwyczaj prezes górą . Mnie zawsze najlepiej wychodziła gra na best grupę z której brałem marudera ale ostatnio coś spadły mi zaliczenia ilości wysokich trafień wysokie liczę od 70% wzwyż. Pomysłów nowych brak. pozdrawiam |
2018-04-26 (14:00) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 1 164 600 [ CZCIONKA SPECJALNA ] Robin Bo przeskoczyć można lecz na krótkim dystansie ----------------------------------------------------- Mając takie dane...... Czyli rozkłady trafień 150,300,450,600-losowań , można by teoretyzować.....>wskazując trend zwyżkowy. Ten trend,będzie jakby naturalny ,bo ..... przykładowe 30-zakładów Mini Lotto jest "komputerowo złożone" . czyli jakby to Robin podsumował > "zmanipulowane" wrócę do tej układanki po kilku czy kilkunastu losowaniach, niech wyjdzie najpierw ..... co ma wyjść .... a post jakby ,będzie służył jako archiwalia by było łatwo wrócić do tych danych ..... ----- Zestawienie Trafień 30 kombinacji z pliku Piątki.txt ----- Trafienia w zakresie los. 4378 ~ 3779 [600 ]-los. 2018-04-25 ~ 2016-09-03 Trafień 0|5 = 9177 Trafień 1|5 = 7085 Trafień 2|5 = 1630 Trafień 3|5 = 103 <<< Trafień 4|5 = 5 Trafień 5|5 = 0 ================================================================================== ----- Zestawienie Trafień 30 kombinacji z pliku Piątki.txt ----- Trafienia w zakresie los. 4378 ~ 3929 [450 ]-los. 2018-04-25 ~ 2017-01-31 Trafień 0|5 = 6873 Trafień 1|5 = 5321 Trafień 2|5 = 1234 Trafień 3|5 = 67 <<< Trafień 4|5 = 5 Trafień 5|5 = 0 ================================================================================== ----- Zestawienie Trafień 30 kombinacji z pliku Piątki.txt ----- Trafienia w zakresie los. 4378 ~ 4079 [300 ]-los. 2018-04-25 ~ 2017-06-30 Trafień 0|5 = 4559 Trafień 1|5 = 3575 Trafień 2|5 = 824 Trafień 3|5 = 40 <<< Trafień 4|5 = 2 Trafień 5|5 = 0 ================================================================================== ----- Zestawienie Trafień 30 kombinacji z pliku Piątki.txt ----- Trafienia w zakresie los. 4378 ~ 4229 [150 ]-los. 2018-04-25 ~ 2017-11-27 Trafień 0|5 = 2264 Trafień 1|5 = 1801 Trafień 2|5 = 431 Trafień 3|5 = 4 <<< Trafień 4|5 = 0 Trafień 5|5 = 0 ================================================================================== 1 3 9 18 38 1 4 17 23 36 1 13 15 27 36 2 7 10 11 25 2 9 29 32 42 2 11 16 21 32 3 5 16 35 41 3 6 19 39 42 3 10 17 30 33 4 8 17 31 34 4 15 20 29 33 4 19 28 29 36 5 6 20 30 33 5 9 12 32 34 5 14 31 35 37 6 9 13 15 40 7 12 23 24 34 7 19 23 39 40 8 20 22 25 42 8 21 22 24 40 10 11 12 26 28 13 14 28 35 38 14 16 18 21 33 16 18 27 36 37 17 20 30 37 41 17 26 38 40 41 18 22 24 25 41 18 27 33 39 41 21 22 35 37 38 23 26 29 31 41 c d n |
2018-05-05 (22:24) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 166 386 [ CZCIONKA SPECJALNA ] 777ch>> czy posiadanymi programami jesteś w stanie wygenerować (lub nawet jedynie podać ilość zakładów) w takim systemie jak: C(49,6,6,35)=? lub w jego przekształceniu w system C(49,43,14,14)=? Pozdrawiam |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 210 211 212 ... 503 504 Wyślij wiadomość do admina |