Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 210 211 212 ... 503 504
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-04-15 (23:31)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20462

3794
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



Print



End

--- wpis edytowano 2018-04-16 22:08 ---

2018-04-17 (10:46)

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

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

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

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

status vidmo
Data rejestracji: 2004-11-03
Ilość postów: 9272

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

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

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

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

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

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

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

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

2623
wpis nr 1 163 058
[ CZCIONKA SPECJALNA ]

OK
2018-04-20 (13:56)

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

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

status Robin Hood
Data rejestracji: 2009-07-12
Ilość postów: 7786

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

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

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

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

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

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

2623
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 lottoStrona: 1 2 ... 210 211 212 ... 503 504
Wyślij wiadomość do admina