Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 200 201 202 ... 1069 1070
Wyślij wiadomość do admina

Przewiń wpisy ↓

trafienie 50% zbioru liczb do gry

2017-08-21 (23:46)

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

1386
wpis nr 1 105 295
[ CZCIONKA MONOSPACE ]

tylko pytam

co się zmieni jak trafisz 5z5

bo u mnie nic .....

jak grać to o konkretna kasę.....

2017-08-21 (23:48)

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

2047
wpis nr 1 105 296
[ CZCIONKA MONOSPACE ]

777ch, próbowałem przerobić Twoje makro tak dla "sportu" , a nie z jakiejś potrzeby. W każdym razie będę wiedział do kogo się zwrócić, kiedy będzie mi potrzebna pomoc.

Xawery, na pewno to zwiększy ilość zakładów w systemie. To była taka luźna propozycja. Wystarczy przejrzeć systemy na weefs-lottosysteme.de i coś sobie wybrać. Np. gw.4 przy trafieniu 9 liczb, przy 6 w zakładzie to 42 zakłady. Tylko trzeba sprawdzić jakie są największe procentowe wypłaty przy trafieniu 7 z 26.
2017-08-22 (00:00)

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

2047
wpis nr 1 105 300
[ CZCIONKA MONOSPACE ]

777ch, napisał cyt. "jak grać to o konkretna kasę....."

Żeby grać o konkretną kasę, to trzeba grać za konkretną kasę

Grając na piątki, masz większą szanse na sukces, a grając za większą stawkę na piątki, możesz wygrać konkretną kasę. I znowu wracamy do pytania, (które już wcześniej padło) o pozycjonowanie róznych systemów. Ja nic konkretnego nie wymyśliłem. Na pewno trzeba wziąść pod uwagę prawdopodobieństwo trafienia w opozycji do kosztów gry i wypłaty za wygranej. Ale dalej nie wiem jak te wskazniki połączyć, aby mieć wskaznik pozwalający porównywać ze sobą różne systemy.

--- wpis edytowano 2017-08-22 00:04 ---

2017-08-22 (00:05)

status Xawery
Data rejestracji: 2013-01-20
Ilość postów: 10902

13701
wpis nr 1 105 301
[ CZCIONKA MONOSPACE ]

konkretna kasa......

to może na dziesięć skreśleń z czterdziestu liczb?

przy piętnastu trafionych?



a z tymi piątkami to kleszek może i dobrze radzi?
2017-08-22 (00:10)

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

1386
wpis nr 1 105 302
[ CZCIONKA MONOSPACE ]

Sub all_moglich7()

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 As Variant

Dim ilerównych As Long

Dim hitmin, actstan As Long

Dim hit2alltr As Variant

Dim tabdubel() As Long



Dim tabwyp() As Variant



Dim dubel, MAXdubli, hitdubel, komb, lkomb, li As Long

Dim paskuda As Variant

Dim wsk, lpwsk As Variant

Range(Arkusz1.Cells(20, 28), Arkusz1.Cells(400, 28)) = ""

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

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

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

If all < 7 Then Exit Sub

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

li = 0

komb = Application.WorksheetFunction.Combin(all, skr) * 20

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

ReDim tabwyp(1000, 7)

BR1 = 0

BR2 = 0

br3 = 0

br4 = 0

br5 = 0

br6 = 0

br7 = 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

hitmin2 = 1000000

actstan = 1



brak1 = 0

brak2 = 0

brak3 = 0

brak4 = 0

brak5 = 0

brak6 = 0

brak7 = 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 - 6

For l2 = l1 + 1 To all - 5

For l3 = l2 + 1 To all - 4

For l4 = l3 + 1 To all - 3

For l5 = l4 + 1 To all - 2

For l6 = l5 + 1 To all - 1

For L7 = l6 + 1 To all









TR1 = 0

TR2 = 0

TR3 = 0

TR4 = 0

TR5 = 0

TR6 = 0

tr7 = 0









btr1 = 0

btr2 = 0

btr3 = 0

btr4 = 0

btr5 = 0

btr6 = 0

btr7 = 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)



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 = 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 = (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 & "]"

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 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 skr = 10 Then actstan = (btr8 * 560) + (btr7 * 140) + (btr6 * 12) + (btr5 * 4) + (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)

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

If actstan = 8 Then '8-pln chcę zobaczyć te kombinacje

li = li + 1

tabwyp(li - 1, 0) = l1

tabwyp(li - 1, 1) = l2

tabwyp(li - 1, 2) = l3

tabwyp(li - 1, 3) = l4

tabwyp(li - 1, 4) = l5

tabwyp(li - 1, 5) = l6

tabwyp(li - 1, 6) = L7

tabwyp(li - 1, 7) = l8

End If



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 hitmin2 = (btr7 * 140) + (btr6 * 12) + (btr5 * 4)

If hitmin = actstan Then



If btr9 > 0 Then hit9 = btr9 & "x 9|" & skr & "," Else hit9 = ""

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 , " & hit7 & hit6 & hit5 & hit4 & hit3 & hit2 & hit1 & "..np..[" _

& l1 & "," & l2 & "," & l3 & "," & l4 & "," & l5 & "," & l6 & "," & L7 & "]"

End If

n = n + 1







Next L7

Next l6

Next l5

Next l4

Next l3

Next l2

Next l1

MAXdubli = n * 21

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



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

If skr >= 1 Then Arkusz1.Cells(21, 28) = "Gw.trf. [1w" & skr & "] przy trf." & " 7-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." & " 7-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." & " 7-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." & " 7-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." & " 7-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." & " 7-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." & " 7-liczb = " & ((br7 * 100)) / n & " %" & ",brak traf.[7w" & skr & "] w " & brak7 & "-komb."



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

If skr >= 7 Then Arkusz1.Cells(29, 28) = paskuda

Arkusz1.Cells(5, 29) = hitmin

'Arkusz1.Cells(3, 28) = hitmin2



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

Arkusz1.Cells(33, 28) = hit2alltr

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



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

k = 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



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

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(5, 29).Value

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

Cells(v, 20) = hitmin

Cells(30, 28) = wsk

Cells(30, 29) = lpwsk

Cells(30, 30) = lkomb

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

'Range(Arkusz17.Cells(1, 1), Arkusz17.Cells(li, ) = tabwyp' wypis kombinacji dla konkretnej sumy tak celem zobaczenia jakie to są

End Sub





dla rozpisu Jurkowicza 42 zakłady 6-skresleń +- 30-pln przy 7z26



Zakładów = [42] minimalny zwrot na 1 zakład = 0,19047619047619

Sprawdzone 7-skr. liczb [26] zbiór =657800-kombinacji

Minimum gwarantowane: 8-pln , 1x 4|6,26x 2|6,9x 1|6,..np..[13,16,18,19,20,21,23]

Równorzędnych [872]

8-pln {872} ..co stanowi : 0,177 %

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

10-pln {36656} ..co stanowi : 7,431 %

12-pln {95476} ..co stanowi : 19,353 %

14-pln {104408} ..co stanowi : 21,164 %

16-pln {72696} ..co stanowi : 14,736 %

18-pln {63264} ..co stanowi : 12,824 %

20-pln {35764} ..co stanowi : 7,25 %

22-pln {13536} ..co stanowi : 2,744 %

24-pln {30144} ..co stanowi : 6,111 %

26-pln {21216} ..co stanowi : 4,301 %

28-pln {21528} ..co stanowi : 4,364 %

30-pln {26208} ..co stanowi : 5,313 %

32-pln {37752} ..co stanowi : 7,653 %

34-pln {24336} ..co stanowi : 4,933 %

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

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

36-pln {5616} ..co stanowi : 1,139 %

38-pln {624} ..co stanowi : 0,127 %

44-pln {1404} ..co stanowi : 0,285 %

46-pln {1456} ..co stanowi : 0,296 %

48-pln {312} ..co stanowi : 0,064 %

50-pln {3744} ..co stanowi : 0,759 %

52-pln {936} ..co stanowi : 0,19 %

54-pln {624} ..co stanowi : 0,127 %

56-pln {4134} ..co stanowi : 0,838 %

58-pln {2496} ..co stanowi : 0,506 %

60-pln {1872} ..co stanowi : 0,38 %

62-pln {2808} ..co stanowi : 0,57 %

64-pln {1352} ..co stanowi : 0,275 %

66-pln {624} ..co stanowi : 0,127 %

82-pln {88} ..co stanowi : 0,018 %

88-pln {40} ..co stanowi : 0,009 %

94-pln {32} ..co stanowi : 0,007 %

98-pln {48} ..co stanowi : 0,01 %

100-pln {16} ..co stanowi : 0,004 %

104-pln {48} ..co stanowi : 0,01 %

112-pln {8} ..co stanowi : 0,002 %

120-pln {156} ..co stanowi : 0,032 %

132-pln {6396} ..co stanowi : 1,297 %

134-pln {6552} ..co stanowi : 1,329 %

136-pln {2808} ..co stanowi : 0,57 %

140-pln {3926} ..co stanowi : 0,796 %

154-pln {1560} ..co stanowi : 0,317 %

156-pln {1872} ..co stanowi : 0,38 %

158-pln {1352} ..co stanowi : 0,275 %

160-pln {2912} ..co stanowi : 0,591 %

162-pln {5980} ..co stanowi : 1,213 %

164-pln {4056} ..co stanowi : 0,823 %

166-pln {1248} ..co stanowi : 0,253 %

168-pln {2522} ..co stanowi : 0,512 %

176-pln {36} ..co stanowi : 0,008 %

184-pln {6} ..co stanowi : 0,002 %

186-pln {120} ..co stanowi : 0,025 %

190-pln {48} ..co stanowi : 0,01 %

192-pln {120} ..co stanowi : 0,025 %

194-pln {48} ..co stanowi : 0,01 %

196-pln {48} ..co stanowi : 0,01 %

200-pln {72} ..co stanowi : 0,015 %

202-pln {120} ..co stanowi : 0,025 %

206-pln {96} ..co stanowi : 0,02 %

272-pln {312} ..co stanowi : 0,064 %

274-pln {312} ..co stanowi : 0,064 %

294-pln {48} ..co stanowi : 0,01 %

296-pln {30} ..co stanowi : 0,007 %

298-pln {72} ..co stanowi : 0,015 %

300-pln {336} ..co stanowi : 0,069 %

302-pln {144} ..co stanowi : 0,03 %

304-pln {216} ..co stanowi : 0,044 %

306-pln {552} ..co stanowi : 0,112 %

308-pln {288} ..co stanowi : 0,059 %

310-pln {72} ..co stanowi : 0,015 %

312-pln {144} ..co stanowi : 0,03 %

408-pln {18} ..co stanowi : 0,004 %

414-pln {72} ..co stanowi : 0,015 %

416-pln {120} ..co stanowi : 0,025 %

418-pln {32} ..co stanowi : 0,007 %

1320-pln {26} ..co stanowi : 0,006 %

1324-pln {104} ..co stanowi : 0,022 %

1326-pln {104} ..co stanowi : 0,022 %

1332-pln {156} ..co stanowi : 0,032 %

1334-pln {156} ..co stanowi : 0,032 %

1356-pln {12} ..co stanowi : 0,003 %

1358-pln {24} ..co stanowi : 0,005 %

1364-pln {26} ..co stanowi : 0,006 %

1366-pln {12} ..co stanowi : 0,003 %

1368-pln {24} ..co stanowi : 0,005 %

1370-pln {40} ..co stanowi : 0,009 %

1372-pln {12} ..co stanowi : 0,003 %

1374-pln {36} ..co stanowi : 0,008 %

1376-pln {60} ..co stanowi : 0,013 %

1474-pln {24} ..co stanowi : 0,005 %

1480-pln {24} ..co stanowi : 0,005 %





2017-08-22 (00:11)

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

1386
wpis nr 1 105 303
[ CZCIONKA MONOSPACE ]

konkretna kasa...... to 10 z 15



kleszek>



Grając na piątki, masz większą szanse na sukces,



na jaki rozpis....... to sprawdzę od ręki

--- wpis edytowano 2017-08-22 00:13 ---

2017-08-22 (00:19)

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

1386
wpis nr 1 105 304
[ CZCIONKA MONOSPACE ]

ale już jutro

na razie
2017-08-22 (00:28)

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

2047
wpis nr 1 105 307
[ CZCIONKA MONOSPACE ]

777ch, nie wiem To tylko takie moje nocne przemyślenia , oparte o fakt, że łatwiej jest trafić 5, niż np. 7 Niestety, pisałem już, że przy takich wypłatach jakie są w polskich grach, obojętnie w co byś nie zagrał i tak w dłuższej perspektywie będziesz na minusie. Dlatego myślałem, że grając na mniejszą ilość liczb w zakładzie mniej stracę. Twoje makro ( za które dziękuję ) pokazuje jednak, że trafienie 7 z 26 nie zagwarantuje mi zysku w przypadku najbardziej prawdopodobnego rozkładu. Trzeba szukać jakiegoś innego rozpisu, albo liczyć na łut szczęścia.
2017-08-22 (00:33)

status Xawery
Data rejestracji: 2013-01-20
Ilość postów: 10902

13701
wpis nr 1 105 308
[ CZCIONKA MONOSPACE ]

Ło matko

jestem pod wrażeniem,do takich wynalazków to trza dobrego programisty

Panowie liczyć ,..układać i rozpisywać,...słowem szukać rozwiązania

Kleszek to mistrz przeróbek i obcinania zakładów

może przerobić jakiś system od zagranicznych miszczów ,tak na piątki?
2017-08-22 (10:20)

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

2047
wpis nr 1 105 345
[ CZCIONKA MONOSPACE ]

777ch, Twoje makro uruchomiłem bez większego problemu, trzeba tylko było zamienić "mordkę" w linii

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

na 8.

Czy żeby sprawdzić makro dla rozpisów pięcio liczbowych wystarczy dodać linię :

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

czy trzeba jeszcze coś zmienić ?

Z rozpisu Tampakisa na 42 zakłady wynika, że najbardziej prawdopodobną wypłatą za trafienie 7 liczb będzie kwota 14 zł

14-pln {104408} ..co stanowi : 21,164 %

Zastanawia mnie ile trzeba mieć trafień w tym z tych 26, aby dla tego systemu najbardziej prawdopodobna wypłata za trafienia, pokryła koszt nadania systemu ( 42 * 2,5 = 105 pln) ?

Możesz to sprawdzić ?
2017-08-22 (12:36)

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

1386
wpis nr 1 105 365
[ CZCIONKA MONOSPACE ]

'If actstan = 8 Then '8-pln chcę zobaczyć te kombinacje

'li = li + 1

'tabwyp(li - 1, 0) = l1

'tabwyp(li - 1, 1) = l2

'tabwyp(li - 1, 2) = l3

'tabwyp(li - 1, 3) = l4

'tabwyp(li - 1, 4) = l5

'tabwyp(li - 1, 5) = l6

'tabwyp(li - 1, 6) = L7

'tabwyp(li - 1, 7) = l8

'End If



to odznacz..... to zapis kolejnych kombinacji dających ten sam zysk

w tym wypadku 8 pln



gdybyś to przy piatkach uruchomił to ci braknie miejsca w tablicy

albo miejsca w arkuszu....ale wypis wcześniej odznaczyłem





wstawię makro moglich4



to pewnie zrozumiesz zasadę obliczeń



i dostosujesz sobie dla np moglich11



==============================

Sub all_moglich4()

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 As Variant

Dim tabdubel() As Long

Dim dubel, MAXdubli, hitdubel, komb As Long

Dim paskuda As Variant

Dim ilerównych As Long

Dim hitmin, actstan As Long

Dim hit2alltr As Variant

Range(Arkusz1.Cells(20, 28), Arkusz1.Cells(400, 28)) = ""

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

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

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

If all < 5 Then Exit Sub

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

komb = 1000 'Application.WorksheetFunction.Combin(skr, 2) * 20

BR1 = 0

BR2 = 0

br3 = 0

br4 = 0













hit2alltr = ""

hitmin = 1000000

actstan = 1



brak1 = 0

brak2 = 0

brak3 = 0

brak4 = 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

hitdubel = 10000



ReDim tabdubel(komb, 0)

For f = 0 To komb

tabdubel(f, 0) = 0

Next f

















For l1 = 1 To all - 3

For l2 = l1 + 1 To all - 2

For l3 = l2 + 1 To all - 1

For l4 = l3 + 1 To all















TR1 = 0

TR2 = 0

TR3 = 0

TR4 = 0













btr1 = 0

btr2 = 0

btr3 = 0

btr4 = 0

























For t = 1 To v

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



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 = 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 = (btr4 * 6) + (btr3 * 3) + btr2

If hitdubel > dubel Then

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

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 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 skr = 10 Then actstan = (btr8 * 560) + (btr7 * 140) + (btr6 * 12) + (btr5 * 4) + (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)





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 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 , " & hit4 & hit3 & hit2 & hit1 '& "..np..[" _

'& l1 & "," & l2 & "," & l3 & "," & l4 & "]" & " ... Dubli minimum= [" & btr2 + (btr3 * 3) + (btr4 * 6) & "]"

End If







35

n = n + 1













Next l4

Next l3

Next l2

Next l1

MAXdubli = n

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

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

If skr >= 1 Then Arkusz1.Cells(21, 28) = "Gw.trf. [1w" & skr & "] przy trf." & " 4-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." & " 4-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." & " 4-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." & " 4-liczb = " & ((br4 * 100)) / n & " %" & ",brak traf.[4w" & skr & "] w " & brak4 & "-komb."



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

If skr >= 4 Then Arkusz1.Cells(26, 28) = paskuda





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

Arkusz1.Cells(33, 28) = hit2alltr

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





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

k = 0



For f = 0 To komb

If tabdubel(f, 0) > 0 Then



k = k + 1



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

End If

Next f

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





'If arkusz1.cells(13, 34) > brak5 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) = brak5

'End If

End Sub

2017-08-22 (12:41)

status Xawery
Data rejestracji: 2013-01-20
Ilość postów: 10902

13701
wpis nr 1 105 367
[ CZCIONKA MONOSPACE ]

Osiemnasta gra

na 14:00

w kasie było 656 pln

koszt gry to 160 zeta

w kasie pozostało

496 pln



2,4,5,7,11,12,16,26,27,29,31,32,35,37,39,40,41,43,47,51,54,57,64,69,76,78
2017-08-22 (12:53)

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

1386
wpis nr 1 105 372
[ CZCIONKA MONOSPACE ]

kleszek>

Zastanawia mnie ile trzeba mieć trafień w tym z tych 26, aby dla tego systemu najbardziej prawdopodobna wypłata za trafienia, pokryła koszt nadania systemu ( 42 * 2,5 = 105 pln) ?

Możesz to sprawdzić ?



mogę ,tylko nie sprawdze tego teraz ,

bo mam robotę ,tylko tak wpadłem na chwilę,





chodzi o to że przy takim samym trafieniu czyli np 10z26

będą inne trafienia ,ale oczywiście dla określenia minimów

należy zastosować do sprawdzenia matrycy makro moglich10 albo moglich11

albo wyższe ......



ale to nie tak działa,przy duzym trafieniu nap 12z26

moze wejść a nie musi

jesli chcesz zeby miało wiecej szans.......to rób system nadmiarowy

do takiej ilości zakładów ..... aż pokaże wskaźniki do przyjęcia



ale i tak na końcu liczą się tylko liczby

======================================

ja się zastanawiam ,co takie 26-liczb złapie w najbliższej przyszłości....

ze średnią 5 ,sumą 245

liczoną z 49 losowań czyli suma trafień przez 49

ale najwyższym trafieniem =6|26 w zakresie ost.49 losowań.

======================================





pozdrawiam





2017-08-22 (13:14)

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

2047
wpis nr 1 105 376
[ CZCIONKA MONOSPACE ]

Dziękuję za to makro moglich4. Myślę, że stosując analizę porównawczą uda mi się napisać (przerobić) te makra aby pasowaly do innych trafień. Właściwie już to próbowałem to robić rano dla 8 trafień ale makro wywalało się na linii

tabwyp(li - 1, 0) = l1

Po odznaczeniu tej linii i kolejnych wszystko już działa tak jak trzeba.



Napisałeś :

======================================

ja się zastanawiam ,co takie 26-liczb złapie w najbliższej przyszłości....

ze średnią 5 ,sumą 245

liczoną z 49 losowań czyli suma trafień przez 49

ale najwyższym trafieniem =6|26 w zakresie ost.49 losowań.

======================================

To zawsze można sprawdzić na losowaniach przeszłych. Cofając się np. o 100 losowań, wyznaczasz taką paskudę 26- liczbową i sprawdzasz jak wypadały trafienia na rzeczywistych losowaniach. To najlepszy sposób na weryfikację wszelkich teorii. Takie sprawdzanie zestawów z użyciem "cofki", pozwoli ustalić ile trzeba czekać na taki dobry strzał wygenerowanego zestawu.
2017-08-22 (13:34)

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

1386
wpis nr 1 105 379
[ CZCIONKA MONOSPACE ]

kleszek



wyznaczasz taką paskudę 26- liczbową



na to trzeba najwięcej czasu ........
2017-08-22 (13:40)

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

2047
wpis nr 1 105 380
[ CZCIONKA MONOSPACE ]

Domyślam się, że "trochę" to musi trwać. Może warto dla tej procedury napisać program w delphi ? To chyba by przyśpieszyło proces szukania ?

Jakbyś potrzebował ochotników do eksperymentów, to możesz na mnie liczyć. Problem może być z wolnym czasem, mój grafik pracy w tym tygodniu wygląda nieco przerażająco, ale w końcu nigdzie nie jest powiedziane, że to trzeba obliczyć i sprawdzić " na wczoraj".

--- wpis edytowano 2017-08-22 13:45 ---

2017-08-22 (13:54)

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

4895
wpis nr 1 105 383
[ CZCIONKA MONOSPACE ]

Na 14:00 już nie zdążę ,dopiero wróciłem

a brak mi w bazie ostatniego losowania.

Co nagle to po diable

Zarządzam przerwę do 21:40

--- wpis edytowano 2017-08-22 13:55 ---

2017-08-22 (14:05)

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

1386
wpis nr 1 105 385
[ CZCIONKA MONOSPACE ]

Mam niestety zaległości ,i nie znajdę na razie czasu na nowe pomysły,

ale mogę opisać proces ,o ile ktoś to potrafi w paskalu zrobić ,z czytających

ten wątek.



To proste odwołanie do dwóch tablic

tablica 1 to robocza

tablica druga to best



przy pierwszym uruchomieniu należy randomizerem wywołać łańcuch liczb,

należy to zrobić tak aby ustawialne było ilośc liczb oraz trafienie max dopuszczone,

oraz zakres losowań dla sprawdzania.



teraz tylko ślimak podmieniający w roboczej dwie liczby

oczywiście bez powtórek liczb już istniejacych w tablicy,

sprawdzanie po podmiance ,,jeśli układ jest gorszy to w miejsce podmienionej wpada

liczba best z tablicy best,do której trafia zawsze liczba lepsza,czyli dająca gorszy układ trafień,



i tak ma krecić do przerwania,

stop as bolean

jak kliknę w stop to if stop=true then koniec=0

until(koniec=0)





należy wczytywać do memo albo w cokolwiek

nowe best z podaniem sumy trafień oraz liczby trafień >=wartośc dopuszcona





proste jak cep

ale nie mam tego w paskalu.....
2017-08-22 (14:17)

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

1386
wpis nr 1 105 390
[ CZCIONKA MONOSPACE ]

Pozwoliłem sobie dwie wygenerowane wczoraj 26-ki

liczb dostawić do sprawdzarki

pierwsza i druga to żałosne układy od 48~49 losowań







koszt gry [8-ek] =160-pln || wygrane= 72-pln Wynik: 8/26 , los. z dnia 2017-08-22, [10404] [Xawery 2,4,5,7,11,12,16,26,27,29,31,32,35,37,39,40,41,43,47,51,54,57,64,69,76,78]



koszt gry [8-ek] =160-pln || wygrane= 88-pln Wynik: 8/26 , los. z dnia 2017-08-22, [10404] [emel last>4,16,21,24,25,27,31,32,35,40,42,45,48,49,51,52,53,54,60,63,65,67,71,74,78,79]



koszt gry [8-ek] =160-pln || wygrane= 4-pln Wynik: 5/26 , los. z dnia 2017-08-22, [10404] [tomson last>5,7,8,9,19,27,39,48,69,75,71,73,41,59,23,77,45,62,61,28,2,3,15,74,64,40]

=======================================================================

koszt gry [8-ek] =160-pln || wygrane= 140-pln Wynik: 9/26 , los. z dnia 2017-08-22, [10404]

[test1 suma= 231, zakres 48 >10,17,58,22,33,40,59,18,54,3,65,69,13,20,14,60,29,72,68,21,62,70,45,34,37,44]

koszt gry [8-ek] =160-pln || wygrane= 40-pln Wynik: 7/26 , los. z dnia 2017-08-22, [10404]

[test2 max t=6 zakres 48>17,33,40,58,60,69,18,59,13,20,22,29,54,65,3,34,37,62,68,10,53,2,14,52,57,46]

--- wpis edytowano 2017-08-22 14:18 ---

2017-08-22 (14:21)

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

1386
wpis nr 1 105 391
[ CZCIONKA MONOSPACE ]

a gdyby raptem 4 zakłady dla 26 liczb

a 26-ek 10x ,lub 26 poprzestawiana 10-krotnie

czyli gra za 100-pln
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 200 201 202 ... 1069 1070
Wyślij wiadomość do admina