Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 187 188 189 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-01-30 (23:20)

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

14865
wpis nr 1 143 340
[ CZCIONKA MONOSPACE ]

777ch>

szansa to tylko szansa....... a minimum gwarantowane to pewnik ...



pewnik przy trafieniu

absolutnie się nie stresuję

2018-01-30 (23:27)

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

2047
wpis nr 1 143 342
[ CZCIONKA MONOSPACE ]

>>> ale dalej najważniejszy... jest wybór liczb.... <<<

To jest poza wszelka dyskusją. Ale my staramy się w jakiś sposób uszeregować systemy pod kątem optymalnego wyboru. Problem polega na tym, że w zależności od tego co przyjmiemy za priorytet przy wyborze systemu do gry, parametry systemu będą wyglądały różnie przy takiej samej ilości zakładów. Chyba nie da się jednoznacznie powiedzieć, że system o mniejszej gwarancji minimalnej wypłaty za trafienie, będzie gorszy od systemu, który gwarantuje większą prawdopobną wypłatę za trafienie. Teoretycznie różnice w testach nie powinny być zbyt duże. Można przeprowadzić symulacje, generując losowe trafienia i porównując bilans różnych systemów, na przykładzie np. 100 doświadczeń. Można, tylko chyba nie warto to robić, bo i tak <<< dalej najważniejszy... jest wybór liczb.... <<<
2018-01-31 (12:10)

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

1386
wpis nr 1 143 425
[ CZCIONKA MONOSPACE ]

Rozpis 15-liczb ,10-skreśleń = 27-zakładów <> koszt = 67,5-pln

-----Najgorsze możliwe minima gwarantowane-----

________Analiza gwarancji przy trafieniu 5-liczb _______

22-pln {50} ..co stanowi : 1,666 %

________Analiza gwarancji przy trafieniu 6-liczb _______

50-pln {2} ..co stanowi : 0,04 %

________Analiza gwarancji przy trafieniu 7-liczb _______

104-pln {7} ..co stanowi : 0,109 %

________Analiza gwarancji przy trafieniu 8-liczb _______

308-pln {1} ..co stanowi : 0,016 %

________Analiza gwarancji przy trafieniu 9-liczb _______

1036-pln {1} ..co stanowi : 0,02 %

________Analiza gwarancji przy trafieniu 10-liczb _______

3124-pln {1} ..co stanowi : 0,034 %

________Analiza gwarancji przy trafieniu 11-liczb _______

7828-pln {2} ..co stanowi : 0,147 %

________Analiza gwarancji przy trafieniu 12-liczb _______

59160-pln {1} ..co stanowi : 0,22 %





ten rozpis poddany testowi 106920 prób pokazał

15,43 pln minimalnego zwrotu

na losowanie

a więc strata 52 pln na 1-grę



tr12: 0

tr11: 0

tr10: 16

tr9: 147

tr8: 775

tr7: 3104

tr6: 9286

tr5: 19175



nie bawiłem się w podstawienie losowych pod matrycę

tylko mnożyłem trafienia przez minimalne gwarantowane sumy

to wystarczy dla oceny rozpisu.

a więc 22,85 % zwrotu na grę ....... tyle mu przyznaję



proponuję wycenić inne rozpisy dla 15-liczb..... w ten sam sposób

106920 prób to przypadkowo

to ...99*1080

a dokładnie (36 losowych 15-ek .. sprawdzanych 30 losowań )*99-prób

przy czym każda kolejna próba nowe 36 losowych 15-ek





2018-01-31 (12:43)

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

1386
wpis nr 1 143 438
[ CZCIONKA MONOSPACE ]

1 2 3 4 5 7 9 10 13 14

1 2 3 7 8 10 11 12 14 15

1 2 4 5 6 8 12 13 14 15

1 3 4 6 8 9 10 11 13 15

1 5 7 8 9 11 12 13 14 15

2 3 4 6 7 8 9 11 12 14

2 3 5 6 7 8 10 11 12 13

2 4 5 6 7 9 10 11 12 15







Rozpis 15-liczb ,10-skreśleń = 8-zakładów <> koszt = 20-pln

-----Najgorsze możliwe minima gwarantowane-----

________Analiza gwarancji przy trafieniu 5-liczb _______

2-pln {1} ..co stanowi : 0,034 %

________Analiza gwarancji przy trafieniu 6-liczb _______

12-pln {36} ..co stanowi : 0,72 %

________Analiza gwarancji przy trafieniu 7-liczb _______

22-pln {9} ..co stanowi : 0,14 %

________Analiza gwarancji przy trafieniu 8-liczb _______

40-pln {4} ..co stanowi : 0,063 %

________Analiza gwarancji przy trafieniu 9-liczb _______

80-pln {2} ..co stanowi : 0,04 %

________Analiza gwarancji przy trafieniu 10-liczb _______

600-pln {3} ..co stanowi : 0,1 %

________Analiza gwarancji przy trafieniu 11-liczb _______

1752-pln {17} ..co stanowi : 1,246 %

________Analiza gwarancji przy trafieniu 12-liczb _______

3780-pln {4} ..co stanowi : 0,88 %





ten rozpis poddany testowi 106920 prób pokazał

2,56 pln minimalnego zwrotu

na losowanie

a więc strata 17,44 pln na 1-grę



tr12: 0

tr11: 0

tr10: 16

tr9: 131

tr8: 815

tr7: 3317

tr6: 9238

tr5: 18836



a więc 12,8 % zwrotu na grę ....... tyle mu przyznaję





myślę ,że jakimś wzorem w oparciu o prawdopodobieństwa dla 5,6,7,8,9,10,11,12|15

można by te .......... przyznania lepiej ..... oszacować



2018-01-31 (13:56)

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

2623
wpis nr 1 143 449
[ CZCIONKA MONOSPACE ]

777ch>>

system C(15,10,7,9)=8



01 02 03 04 05 07 08 09 14 15

01 02 03 04 05 07 09 11 12 13

01 02 04 06 07 08 09 10 12 14

01 02 04 06 07 09 10 11 13 15

01 03 05 06 07 08 09 10 12 15

01 03 05 07 09 11 12 13 14 15

02 03 04 05 06 08 10 11 13 14

02 04 06 08 10 11 12 13 14 15



ma następujące minimalne wygrane, wyższe niż w tym powyższym rozpisie który zamieściłeś:



przy 5 - min. 4zł

przy 6 - min. 14zł

przy 7 - min. 24zł

przy 8 - min. 48zł

przy 9 - min. 208zł

przy 10 - min. 608zł

przy 11 - min. 1880zł

przy 12 - min. 4160zł

--- wpis edytowano 2018-01-31 14:00 ---

2018-01-31 (13:58)

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

14865
wpis nr 1 143 450
[ CZCIONKA MONOSPACE ]

777ch>



A spróbuj przetestować ten ostatni rozpis po maksymalnej szansie przy poszczególnych trafieniach, a nie po minimalnej wygranej.

Jak wtedy go oszacujesz ?
2018-01-31 (14:05)

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

1386
wpis nr 1 143 452
[ CZCIONKA MONOSPACE ]

fair_play



pomyślę wieczorem ,

trudno jednoznacznie przypiąć etykietkę ,

a było by ciekawie,

.... jakiś logiczny ranking ułożyć.
2018-01-31 (14:34)

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

14865
wpis nr 1 143 467
[ CZCIONKA MONOSPACE ]

edi8>



Twój rozpis ma minimalne gwarancje:



________Analiza gwarancji przy trafieniu 5-liczb _______

4-pln {60} ..co stanowi : 1,998 %

________Analiza gwarancji przy trafieniu 6-liczb _______

12-pln {16} ..co stanowi : 0,320 %

________Analiza gwarancji przy trafieniu 7-liczb _______

24-pln {112} ..co stanowi : 1,740%

________Analiza gwarancji przy trafieniu 8-liczb _______

48-pln {108} ..co stanowi : 1,678%

________Analiza gwarancji przy trafieniu 9-liczb _______

208-pln {216} ..co stanowi : 4,316%

________Analiza gwarancji przy trafieniu 10-liczb _______

608-pln {12} ..co stanowi : 0,400 %

________Analiza gwarancji przy trafieniu 11-liczb _______

1 880-pln {42} ..co stanowi : 3,077 %

________Analiza gwarancji przy trafieniu 12-liczb _______

4 160-pln {6} ..co stanowi : 1,319%

________Analiza gwarancji przy trafieniu 13-liczb _______

42 080-pln {6} ..co stanowi : 5,714%

________Analiza gwarancji przy trafieniu 14-liczb _______

560 000-pln {5} ..co stanowi : 33,333%



Przy trafieniu 15 liczb nie będę liczył

--- wpis edytowano 2018-01-31 14:49 ---

2018-01-31 (14:43)

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

1386
wpis nr 1 143 471
[ CZCIONKA MONOSPACE ]



edi8

system C(15,10,7,9)=8



01 02 03 04 05 07 08 09 14 15

01 02 03 04 05 07 09 11 12 13

01 02 04 06 07 08 09 10 12 14

01 02 04 06 07 09 10 11 13 15

01 03 05 06 07 08 09 10 12 15

01 03 05 07 09 11 12 13 14 15

02 03 04 05 06 08 10 11 13 14

02 04 06 08 10 11 12 13 14 15



Rozpis 15-liczb ,10-skreśleń = 8-zakładów <> koszt = 20-pln

-----Najgorsze możliwe minima gwarantowane-----

________Analiza gwarancji przy trafieniu 5-liczb _______

4-pln {60} ..co stanowi : 1,999 %

________Analiza gwarancji przy trafieniu 6-liczb _______

12-pln {16} ..co stanowi : 0,32 %

________Analiza gwarancji przy trafieniu 7-liczb _______

24-pln {112} ..co stanowi : 1,741 %

________Analiza gwarancji przy trafieniu 8-liczb _______

48-pln {108} ..co stanowi : 1,679 %

________Analiza gwarancji przy trafieniu 9-liczb _______

208-pln {216} ..co stanowi : 4,316 %

________Analiza gwarancji przy trafieniu 10-liczb _______

608-pln {12} ..co stanowi : 0,4 %

________Analiza gwarancji przy trafieniu 11-liczb _______

1880-pln {42} ..co stanowi : 3,077 %

________Analiza gwarancji przy trafieniu 12-liczb _______

4160-pln {6} ..co stanowi : 1,319 %







----------------------------------------------------------

15,7 % zwrotu na grę ....... tyle mu przyznaję
2018-01-31 (14:46)

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

1386
wpis nr 1 143 474
[ CZCIONKA MONOSPACE ]

To oczywiście tylko w oparciu o trafienia

mnożone tylko i wyłącznie przez minimalne wygrane,

na bazie losowych 106920 prób.

---------------------------------------------------------------------

nr. 1 edi8



Rozpis 15-liczb ,10-skreśleń = 8-zakładów <> koszt = 20-pln



15,7 % zwrotu na bazie minimalnych wygranych

w teście 106920 prób

----------------------------------------------------------------------

--- wpis edytowano 2018-01-31 14:50 ---

2018-01-31 (15:34)

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

14865
wpis nr 1 143 490
[ CZCIONKA MONOSPACE ]

777ch>



Czy możesz opisać w jaki sposób przeprowadzasz te testy na bazie losowych 106920 prób ?



Co stanowi te 106920 prób, a co stanowi podstawę testów ?

--- wpis edytowano 2018-01-31 15:36 ---

2018-01-31 (16:30)

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

1386
wpis nr 1 143 506
[ CZCIONKA MONOSPACE ]

passa =99

bcov=36



106920 to iloczyn 30*36*99

30 -zakres sprawdzania trafień

36 -liczba kombinacji losowych [15-ki,albo 14-ki liczb albo inna długość)

99 to kolejna próba dla 36-losowo wygenerowanych np 15 liczb

sprawdzanych 30-losowań





trafienia w5,w6,w7 itd sumowane



na końcu mnożę np t5* minimum gwarantowane [dla rozpisu v=15-liczb]

na końcu mnożę np t6* minimum gwarantowane [dla rozpisu v=15-liczb]



itd





gw5 to np minimalna wygrana dla rozpisu =4

wygranamin = ((w5 * gw5) + (w6 * gw6) + (w7 * gw7) + (w8 * gw8) _

+ (w9 * gw9) + (w10 * gw10) + (w11 * gw11) + (w12 * gw12))





zakłgry = ilezakładów * 2.5 * passa * 30 * bcov



Cells(3, 28) = "przyznaję " & (wygranamin * 100 / zakłgry) & " %"

Cells(2, 28) = "Wykonano :" & passa * 30 * bcov & "-prób"
2018-01-31 (19:28)

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

2047
wpis nr 1 143 550
[ CZCIONKA MONOSPACE ]

777ch, możesz sprawdzić wypłaty dla trafienia 8 liczb w tym systemie ? Próbuję stworzyć system w myśl starego przerobionego hasła "1000 szkół na 1000 lecie" Zamieniając to na język lotto, hasło brzmi "15 liczb na 15 zakładów" z 300% zwrotu wkładu przy trafieniu 8 liczb. Na razie mi się to nie udało, ale nie w tym problem. Sprawdzałem rozkład wypłat makrem, które przerobiłem z Twojego 'Sub all_6zysk()' i chyba gdzieś mam błąd, bo rozkład nie pokrywa się z tym co uzyskuję z arkusza fair_play. W arkuszu fair_play, największą wypłatę mam równą 862zł, natomiast w Twoim arkuszu mam 902zł. Prawdopodobnie coś namieszałem, ale proszę, sprawdź to w Twoim arkuszu.



01 02 03 04 05 07 09 11 12 14

01 02 03 04 05 08 10 11 14 15

01 02 03 04 06 07 09 10 13 15

01 02 03 06 07 08 11 12 13 14

01 02 04 05 06 10 11 12 13 14

01 02 05 06 08 09 12 13 14 15

01 03 04 05 06 07 08 09 10 14

01 03 04 05 07 08 10 12 13 15

01 03 05 07 09 10 11 13 14 15

01 04 06 07 08 09 10 11 12 15

02 03 05 06 07 10 11 12 14 15

02 03 05 06 08 09 10 11 12 13

02 04 05 06 07 08 09 11 13 15

02 04 07 08 09 10 12 13 14 15

03 04 06 08 09 11 12 13 14 15



112-pln {60} ..co stanowi : 0,933 %

118-pln {225} ..co stanowi : 3,497 %

124-pln {75} ..co stanowi : 1,166 %

226-pln {30} ..co stanowi : 0,467 %

232-pln {525} ..co stanowi : 8,159 %

238-pln {1440} ..co stanowi : 22,378 %

244-pln {480} ..co stanowi : 7,46 %

250-pln {75} ..co stanowi : 1,166 %

346-pln {15} ..co stanowi : 0,234 %

352-pln {645} ..co stanowi : 10,024 %

358-pln {1200} ..co stanowi : 18,649 %

364-pln {480} ..co stanowi : 7,46 %

370-pln {60} ..co stanowi : 0,933 %

472-pln {60} ..co stanowi : 0,933 %

478-pln {150} ..co stanowi : 2,332 %

484-pln {150} ..co stanowi : 2,332 %

490-pln {45} ..co stanowi : 0,7 %

496-pln {15} ..co stanowi : 0,234 %

604-pln {15} ..co stanowi : 0,234 %

616-pln {15} ..co stanowi : 0,234 %

638-pln {90} ..co stanowi : 1,399 %

644-pln {165} ..co stanowi : 2,565 %

650-pln {150} ..co stanowi : 2,332 %

656-pln {15} ..co stanowi : 0,234 %

662-pln {30} ..co stanowi : 0,467 %

764-pln {45} ..co stanowi : 0,7 %

770-pln {105} ..co stanowi : 1,632 %

776-pln {15} ..co stanowi : 0,234 %

782-pln {15} ..co stanowi : 0,234 %

890-pln {15} ..co stanowi : 0,234 %

896-pln {15} ..co stanowi : 0,234 %

902-pln {15} ..co stanowi : 0,234 %

2018-01-31 (21:10)

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

1386
wpis nr 1 143 569
[ CZCIONKA MONOSPACE ]

________Analiza gwarancji przy trafieniu 8-liczb _______

Gw.trf. [1w10] przy trf. 8-liczb = 100 %,brak traf.[1w10] w 0-komb.

Gw.trf. [2w10] przy trf. 8-liczb = 100 %,brak traf.[2w10] w 0-komb.

Gw.trf. [3w10] przy trf. 8-liczb = 100 %,brak traf.[3w10] w 0-komb.

Gw.trf. [4w10] przy trf. 8-liczb = 100 %,brak traf.[4w10] w 0-komb.

Gw.trf. [5w10] przy trf. 8-liczb = 100 %,brak traf.[5w10] w 0-komb.

Gw.trf. [6w10] przy trf. 8-liczb = 100 %,brak traf.[6w10] w 0-komb.

Gw.trf. [7w10] przy trf. 8-liczb = 94,4055944055944 %,brak traf.[7w10] w 360-komb.

Gw.trf. [8w10] przy trf. 8-liczb = 10,4895104895105 %,brak traf.[8w10] w 5760-komb.







Sprawdzone 8-skr. liczb [15] zbiór =6435-kombinacji

Minimum gwarantowane: 112-pln , 7x 6|10,7x 5|10,1x 3|10,..np..[6,7,8,10,11,13,14,15]

Równorzędnych [60]

112-pln {60} ..co stanowi : 0,933 %

118-pln {225} ..co stanowi : 3,497 %

124-pln {75} ..co stanowi : 1,166 %

226-pln {30} ..co stanowi : 0,467 %

232-pln {525} ..co stanowi : 8,159 %

238-pln {1440} ..co stanowi : 22,378 %

244-pln {480} ..co stanowi : 7,46 %

250-pln {75} ..co stanowi : 1,166 %

346-pln {15} ..co stanowi : 0,234 %

352-pln {645} ..co stanowi : 10,024 %

358-pln {1200} ..co stanowi : 18,649 %

364-pln {480} ..co stanowi : 7,46 %

370-pln {60} ..co stanowi : 0,933 %

472-pln {60} ..co stanowi : 0,933 %

478-pln {150} ..co stanowi : 2,332 %

484-pln {150} ..co stanowi : 2,332 %

490-pln {45} ..co stanowi : 0,7 %

496-pln {15} ..co stanowi : 0,234 %

598-pln {90} ..co stanowi : 1,399 %

604-pln {180} ..co stanowi : 2,798 %

610-pln {150} ..co stanowi : 2,332 %

616-pln {30} ..co stanowi : 0,467 %

622-pln {30} ..co stanowi : 0,467 %

724-pln {45} ..co stanowi : 0,7 %

730-pln {105} ..co stanowi : 1,632 %

736-pln {15} ..co stanowi : 0,234 %

742-pln {15} ..co stanowi : 0,234 %

850-pln {15} ..co stanowi : 0,234 %

856-pln {15} ..co stanowi : 0,234 %

862-pln {15} ..co stanowi : 0,234 %



tak mi wyszło...

może ja mam błąd?





[112,5-pln ],gwarant. w {6375} zakładów z 6435-kombinacji ..co stanowi : 99,068 %



--- wpis edytowano 2018-01-31 21:11 ---

2018-01-31 (21:25)

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

1386
wpis nr 1 143 571
[ CZCIONKA MONOSPACE ]

Wykonano :119400-prób

przyznaję 5,48%



trochę zmieniłem ilość prób

tak oceniło ten 15-zakładów dla 15 liczb .....
2018-01-31 (21:40)

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

1386
wpis nr 1 143 579
[ CZCIONKA MONOSPACE ]

Sub all_8zysk_PEŁNY()



Dim all, TR3, TR2, TR4, TR5, TR6, TR1, tr0, s, t, tr7, tr8, tr9, tr10, l8, l9, l10

Dim l1, l2, l3, l4, l5, l6, l7, n, BR0, BR1, BR2, br3, br4, br5, br6, br7, br8, br9, br10, skr

Dim btr1, btr2, btr3, btr4, btr5, btr6, btr7, btr8, btr9, btr10

Dim hit5, hit4, hit3, hit2, hit1, hit6, hit7, hit8 As Variant

Dim ilerównych, koszt, utarg, maxzysk As Long

Dim wsk, lpwsk As Variant

Dim tabdubel() As Long

Dim dubel, MAXdubli, hitdubel, komb As Long

Dim paskuda As Variant

Dim hitmin, actstan, dodszans As Long

Dim hit2alltr As Variant

Dim tabhit() As Integer

Range(Arkusz1.Cells(20, 28), Arkusz1.Cells(4000, 30)) = ""

Range(Arkusz1.Cells(20, 28), Arkusz1.Cells(4000, 30)).Interior.ColorIndex = none

v = Application.WorksheetFunction.CountA(Arkusz1.Range("A:A"))

If v <> Cells(8, 28) Then Cells(8, 28) = v





all = Application.WorksheetFunction.Max(Arkusz1.Range("a:r"))

If all <> Cells(9, 28) Then Cells(9, 28) = all

If all < 8 Then Arkusz1.Cells(20, 28) = "________Analiza 8-liczb niemożliwa..max mniejszy od 8 _______"

If all < 8 Then Exit Sub

skr = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(1, 1), Arkusz1.Cells(1, 18)))

If skr <> Cells(8, 29) Then Cells(8, 29) = skr

komb = 20000000 'Application.WorksheetFunction.Combin(all, skr)

koszt = v * 2.5

utarg = 3 '300%

maxzysk = 0

lkomb = Application.WorksheetFunction.Combin(all, skr) * 0.02

ReDim tabhit(0, 10)

BR1 = 0

BR2 = 0

br3 = 0

br4 = 0

br5 = 0

br6 = 0

br7 = 0

br8 = 0

wsk = 0

lpwsk = 0

hitdubel = 10000

ReDim tabdubel(komb, 0)

For f = 0 To komb

tabdubel(f, 0) = 0

Next f



hit2alltr = ""

hitmin = 1000000

actstan = 1



brak1 = 0

brak2 = 0

brak3 = 0

brak4 = 0

brak5 = 0

brak6 = 0

brak7 = 0

brak8 = 0







ReDim tabgps(v, all)

For j = 1 To v

For l = 1 To skr

c = Arkusz1.Cells(j, l)

tabgps(j, c) = 1

Next l

Next j



For l1 = 1 To all - 7

For l2 = l1 + 1 To all - 6

For l3 = l2 + 1 To all - 5

For l4 = l3 + 1 To all - 4

For l5 = l4 + 1 To all - 3

For l6 = l5 + 1 To all - 2

For l7 = l6 + 1 To all - 1

For l8 = l7 + 1 To all







TR1 = 0

TR2 = 0

TR3 = 0

TR4 = 0

TR5 = 0

TR6 = 0

tr7 = 0

tr8 = 0







btr1 = 0

btr2 = 0

btr3 = 0

btr4 = 0

btr5 = 0

btr6 = 0

btr7 = 0

btr8 = 0













For t = 1 To v

s = tabgps(t, l1) + tabgps(t, l2) + tabgps(t, l3) + tabgps(t, l4) + tabgps(t, l5) + tabgps(t, l6) _

+ tabgps(t, l7) + tabgps(t, l8)



If s >= 1 Then TR1 = TR1 + 1

If s >= 2 Then TR2 = TR2 + 1

If s >= 3 Then TR3 = TR3 + 1

If s >= 4 Then TR4 = TR4 + 1

If s >= 5 Then TR5 = TR5 + 1

If s >= 6 Then TR6 = TR6 + 1

If s >= 7 Then tr7 = tr7 + 1

If s >= 8 Then tr8 = tr8 + 1



If s = 8 Then btr8 = btr8 + 1

If s = 7 Then btr7 = btr7 + 1

If s = 6 Then btr6 = btr6 + 1

If s = 5 Then btr5 = btr5 + 1

If s = 4 Then btr4 = btr4 + 1

If s = 3 Then btr3 = btr3 + 1

If s = 2 Then btr2 = btr2 + 1

If s = 1 Then btr1 = btr1 + 1

If t = v Then Exit For

Next t

dubel = 0

dubel = (btr8 * 28) + (btr7 * 21) + (btr6 * 15) + (btr5 * 10) + (btr4 * 6) + (btr3 * 3) + btr2

If hitdubel > dubel Then

paskuda = "Minimalna liczba dubli [" & dubel & "] np: [" & l1 & "," & l2 & "," & l3 & "," & l4 & "," & l5 & "," & l6 & "," & l7 & "," & l8 & "]"

hitdubel = dubel

End If



If TR1 > 0 Then BR1 = BR1 + 1

If TR2 > 0 Then BR2 = BR2 + 1

If TR3 > 0 Then br3 = br3 + 1

If TR4 > 0 Then br4 = br4 + 1

If TR5 > 0 Then br5 = br5 + 1

If TR6 > 0 Then br6 = br6 + 1

If tr7 > 0 Then br7 = br7 + 1

If tr8 > 0 Then br8 = br8 + 1







If TR1 = 0 Then brak1 = brak1 + 1

If TR2 = 0 Then brak2 = brak2 + 1

If TR3 = 0 Then brak3 = brak3 + 1

If TR4 = 0 Then brak4 = brak4 + 1

If TR5 = 0 Then brak5 = brak5 + 1

If TR6 = 0 Then brak6 = brak6 + 1

If tr7 = 0 Then brak7 = brak7 + 1

If tr8 = 0 Then brak8 = brak8 + 1





If skr = 10 Then actstan = (btr8 * 520) + (btr7 * 140) + (btr6 * 12) + (btr5 * 4) + (btr4 * 2)

If skr = 9 Then actstan = (btr8 * 2000) + (btr7 * 300) + (btr6 * 42) + (btr5 * + (btr4 * 2)

If skr = 8 Then actstan = (btr8 * 22000) + (btr7 * 600) + (btr6 * 60) + (btr5 * 20) + (btr4 * 4)

If skr = 7 Then actstan = (btr7 * 6000) + (btr6 * 200) + (btr5 * 20) + (btr4 * 4) + (btr3 * 2)

If skr = 6 Then actstan = (btr6 * 1300) + (btr5 * 120) + (btr4 * + (btr3 * 2)

If skr = 5 Then actstan = (btr5 * 700) + (btr4 * 20) + (btr3 * 4)

If skr = 4 Then actstan = (btr4 * 84) + (btr3 * + (btr2 * 2)

If skr = 3 Then actstan = (btr3 * 54) + (btr2 * 2)

If skr = 2 Then actstan = (btr2 * 16)

tabdubel(actstan, 0) = tabdubel(actstan, 0) + 1

If hitmin > actstan Then ilerównych = 0

If hitmin > actstan Then hitmin = actstan

If hitmin = actstan Then ilerównych = ilerównych + 1

If hitmin = actstan Then

If btr8 > 0 Then hit8 = btr8 & "x 8|" & skr & "," Else hit8 = ""

If btr7 > 0 Then hit7 = btr7 & "x 7|" & skr & "," Else hit7 = ""

If btr6 > 0 Then hit6 = btr6 & "x 6|" & skr & "," Else hit6 = ""

If btr5 > 0 Then hit5 = btr5 & "x 5|" & skr & "," Else hit5 = ""

If btr4 > 0 Then hit4 = btr4 & "x 4|" & skr & "," Else hit4 = ""

If btr3 > 0 Then hit3 = btr3 & "x 3|" & skr & "," Else hit3 = ""

If btr2 > 0 Then hit2 = btr2 & "x 2|" & skr & "," Else hit2 = ""

If btr1 > 0 Then hit1 = btr1 & "x 1|" & skr & "," Else hit1 = ""



hit2alltr = "Minimum gwarantowane: " & hitmin & "-pln , " & hit8 & hit7 & hit6 & hit5 & hit4 & hit3 & hit2 & hit1 & "..np..[" _

& l1 & "," & l2 & "," & l3 & "," & l4 & "," & l5 & "," & l6 & "," & l7 & "," & l8 & "]"



tabhit(0, 0) = l1

tabhit(0, 1) = l2

tabhit(0, 2) = l3

tabhit(0, 3) = l4

tabhit(0, 4) = l5

tabhit(0, 5) = l6

tabhit(0, 6) = l7

tabhit(0, 7) = l8

End If







n = n + 1





Next l8

Next l7

Next l6

Next l5

Next l4

Next l3

Next l2

Next l1

MAXdubli = n * 28

stanowi = Application.WorksheetFunction.RoundUp(((((tabdubel(hitdubel, 0) * 100)) / MAXdubli) * 28), 3)





Arkusz1.Cells(20, 28) = "________Analiza gwarancji przy trafieniu 8-liczb _______"

If skr >= 1 Then Arkusz1.Cells(21, 28) = "Gw.trf. [1w" & skr & "] przy trf." & " 8-liczb = " & ((BR1 * 100)) / n & " %" & ",brak traf.[1w" & skr & "] w " & brak1 & "-komb."

If skr >= 2 Then Arkusz1.Cells(22, 28) = "Gw.trf. [2w" & skr & "] przy trf." & " 8-liczb = " & ((BR2 * 100)) / n & " %" & ",brak traf.[2w" & skr & "] w " & brak2 & "-komb."

If skr >= 3 Then Arkusz1.Cells(23, 28) = "Gw.trf. [3w" & skr & "] przy trf." & " 8-liczb = " & ((br3 * 100)) / n & " %" & ",brak traf.[3w" & skr & "] w " & brak3 & "-komb."

If skr >= 4 Then Arkusz1.Cells(24, 28) = "Gw.trf. [4w" & skr & "] przy trf." & " 8-liczb = " & ((br4 * 100)) / n & " %" & ",brak traf.[4w" & skr & "] w " & brak4 & "-komb."

If skr >= 5 Then Arkusz1.Cells(25, 28) = "Gw.trf. [5w" & skr & "] przy trf." & " 8-liczb = " & ((br5 * 100)) / n & " %" & ",brak traf.[5w" & skr & "] w " & brak5 & "-komb."

If skr >= 6 Then Arkusz1.Cells(26, 28) = "Gw.trf. [6w" & skr & "] przy trf." & " 8-liczb = " & ((br6 * 100)) / n & " %" & ",brak traf.[6w" & skr & "] w " & brak6 & "-komb."

If skr >= 7 Then Arkusz1.Cells(27, 28) = "Gw.trf. [7w" & skr & "] przy trf." & " 8-liczb = " & ((br7 * 100)) / n & " %" & ",brak traf.[7w" & skr & "] w " & brak7 & "-komb."

If skr >= 8 Then Arkusz1.Cells(28, 28) = "Gw.trf. [8w" & skr & "] przy trf." & " 8-liczb = " & ((br8 * 100)) / n & " %" & ",brak traf.[8w" & skr & "] w " & brak8 & "-komb."

'If skr >= 8 Then Arkusz1.Cells(29, 28) = "Gwarancja minimum dubli [" & hitdubel & "] " & stanowi & " % zbioru =" & n

'If skr >= 8 Then Arkusz1.Cells(30, 28) = paskuda









Arkusz1.Cells(32, 28) = "Sprawdzone 8-skr." & " liczb [" & all & "] zbiór =" & n & "-kombinacji"

Arkusz1.Cells(33, 28) = hit2alltr

Arkusz1.Cells(34, 28) = "Równorzędnych [" & ilerównych & "]"

'Arkusz1.Cells(5, 29) = hitmin

'--------wypiszemy tablicę dubli-----------------------------

k = 0

dodszans = 0

For f = 0 To komb

If tabdubel(f, 0) > 0 Then

If tabdubel(f, 0) >= lkomb Then

lpwsk = lpwsk + 1

wsk = wsk + tabdubel(f, 0)

End If

k = k + 1

If f >= (koszt * utarg) Then dodszans = dodszans + tabdubel(f, 0)

Arkusz1.Cells(34 + k, 28) = f & "-pln {" & tabdubel(f, 0) & "}" & " ..co stanowi : " & Application.WorksheetFunction.RoundUp(((((tabdubel(f, 0) * 100)) / MAXdubli) * 28), 3) & " %"

If f >= (koszt * utarg) Then Arkusz1.Cells(34 + k, 28).Interior.ColorIndex = 4

If maxzysk < f Then maxzysk = f

End If

Next f



'-------koniec wypisu z tablicy dubli---

'If Arkusz1.cells(13, 34) > brak3 Then

'Range(Arkusz1.Cells(1, 71), Arkusz1.Cells(v, 70 + skr)) = Range(Arkusz1.Cells(1, 1), Arkusz1.Cells(v, skr)).Value

'Arkusz1.cells(13, 34) = brak3

'End If



'If Cells(5, 29).Value = 0 Then GoTo 1000

v = Application.WorksheetFunction.CountA(Arkusz1.Range("A:A"))

'Cells(4, 28) = (v * 2.5) / Cells(6, 29).Value

'Cells(31, 28) = "Zakładów = [" & v & "] minimalny zwrot na 1 zakład = " & hitmin / v & "-pln"



'Arkusz1.Cells(5, 29) = dodszans

1000

'-------dodajemy nowy zakład ten minimum gwarantowany----

'For g = 1 To skr

'Cells(v + 1, g) = tabhit(0, g - 1)

'Next g

'---end----dodajemy nowy zakład ten minimum gwarantowany--end--

'Cells(29, 28) = "Szansa na zwrot " & utarg * 100 & "% kosztów gry = " & " [" & koszt * utarg & "-pln ],jest w {" & dodszans & "} zakładów z " & n & "-kombinacji ..co stanowi : " & Application.WorksheetFunction.RoundUp(((((dodszans * 100)) / MAXdubli) * 28), 3) & " %"



'Cells(29, 28) = "Szansa na zwrot " & utarg * 100 & "% kosztów gry = " & " [" & koszt * utarg & "-pln ],jest w {" & dodszans & "} zakładów z " & n & "-kombinacji ..co stanowi : " & Application.WorksheetFunction.RoundUp(((((dodszans * 100)) / MAXdubli) * 28), 3) & " %"

Cells(15, 28) = " [" & koszt * utarg & "-pln ],gwarant. w {" & dodszans & "} zakładów z " & n & "-kombinacji ..co stanowi : " & Application.WorksheetFunction.RoundUp(((((dodszans * 100)) / MAXdubli) * 28), 3) & " %"

Cells(16, 28) = hitmin

'Cells(16, 28) = "'" & Application.WorksheetFunction.RoundUp(((((dodszans * 100)) / MAXdubli) * 21), 3) & " %"

Cells(16, 29) = " < aktualny "

Cells(14, 28) = " Max Win = " & maxzysk & "-pln"

Cells(14, 30) = "Min gwar. " & hitmin & "-pln czysty zysk " & (hitmin - koszt) * 100 / koszt & " %"

'If Cells(5, 29) = "" Or Cells(5, 29) < dodszans Then Cells(5, 29) = dodszans

End Sub

2018-01-31 (21:42)

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

2047
wpis nr 1 143 580
[ CZCIONKA MONOSPACE ]

777ch, dziękuję. Błąd musi byc gdzieś u mnie. Twoje wyniki są takie same jak w arkuszu fair_play.

edit:

Po zastosowaniu Twojego makra wszystko jest ok.

Spróbuję w 15 zakładach uzyskać te 300% wkładu. Może się uda ?

--- wpis edytowano 2018-01-31 21:49 ---

2018-01-31 (21:56)

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

14865
wpis nr 1 143 592
[ CZCIONKA MONOSPACE ]

kleszek>



Brakuje Ci 50 groszy, warto się bić ?



Może chcesz bardziej rozbudowany arkusz ?

--- wpis edytowano 2018-01-31 21:57 ---

2018-01-31 (21:57)

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

2047
wpis nr 1 143 593
[ CZCIONKA MONOSPACE ]

Warto, dla zasady Bo kto, jak nie ja?



>>>> Może chcesz bardziej rozbudowany arkusz ? <<<



Pewnie, że chcę

--- wpis edytowano 2018-01-31 21:58 ---

2018-01-31 (22:11)

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

2047
wpis nr 1 143 609
[ CZCIONKA MONOSPACE ]

>>> przyznaję 5,48% <<<

Jak rozumieć ten wpis ? Czy jak będę grał tym systemem i będę ciągle trafiał najniższe wypłaty za trafienia, to będę miał bilans gry na poziomie 5,48% wkładu ?
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 187 188 189 ... 554 555
Wyślij wiadomość do admina