Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 133 134 135 ... 503 504
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2017-06-27 (17:31)

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

2047
wpis nr 1 092 342
[ CZCIONKA SPECJALNA ]

Te copre=20 można pociągnąć jeszcze przez dwie linie dokładając do rozpisu

08 17 18 19 20 29

03 17 19 24 26 30

Fajnie to wygląda choć to tylko sztuka dla sztuki
2017-06-27 (18:01)

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

1386
wpis nr 1 092 346
[ CZCIONKA SPECJALNA ]

Fajnie to wygląda choć to tylko sztuka dla sztuki

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



raczej tak



ja zaczynam od kilku random

potem leci algorytm kolejnych,tylko trójki zerowe,

więc czasem wyjdzie więcej czasem mniej tych z pokryciem max



sztuka dla sztuki

ale warto by sprawdzać rozpisy genialne ,jak ten 51-zakładów dla 3z4 od Jurkowicza

jak trafienia w realnej grze się rozkładają.



2017-06-27 (21:28)

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

1386
wpis nr 1 092 399
[ CZCIONKA SPECJALNA ]

Jeśli chcesz mogę zobaczyć, czy Twój rozpis dla 416 zakładów da się ulepszyć w Wheel Generator, musiałbyś jednak wstawić ten rozpis na forum

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





--Gwarancja Hit ROZPISU --

Gw. T=3 if M=3 = 99,7637652189715 %

Brak[13]

Posssibility = -1193 For ticket:416

27-06-2017 21:26:41



kleszek

na razie liczy ...............
2017-06-27 (21:53)

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

2047
wpis nr 1 092 425
[ CZCIONKA SPECJALNA ]

Może te brakujące 13 zakładów do pełnego pokrycia uda Ci się uzyskać w kolejnych 3 zakładach? Jeśli tak, to i tak byłby nowy rekord.
2017-07-02 (21:27)

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

1386
wpis nr 1 093 615
[ CZCIONKA SPECJALNA ]

kleszek

nic nie piszę ,bo zmieniam i dodaję opcje



program może już operować dla k=max=20 przy v=80

ale jeszcze nie wdrozyłem wszystkiego ...... co zamierzam.

na razie testuję sam

--- wpis edytowano 2017-07-02 21:28 ---

2017-07-03 (09:16)

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

2047
wpis nr 1 093 671
[ CZCIONKA SPECJALNA ]

777ch, ja też nic nic nie piszę Właśnie wróciłem o 2 w nocy z pierwszego urlpowego wyjazdu. Za chwilę mam drugi wyjazd. Pozdrawiam!
2017-07-03 (10:54)

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

1386
wpis nr 1 093 694
[ CZCIONKA SPECJALNA ]

kleszek> ja 19-go ...... rozstaję się z komputerem
2017-07-03 (10:58)

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

2623
wpis nr 1 093 699
[ CZCIONKA SPECJALNA ]

777ch>>

ale nie zapomnij przewiercić HD przed tym rozstaniem się z nim!

Pozdrawiam i miłego "nicnierobienia"
2017-07-03 (11:08)

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

1386
wpis nr 1 093 704
[ CZCIONKA SPECJALNA ]

edi8> dzięki......

to nic nie robienie bywa czasem męczace,

szczególnie w skwarze po kilku głębszych.......
2017-07-07 (15:40)

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

1386
wpis nr 1 094 700
[ CZCIONKA SPECJALNA ]

kleszek> nie zapomniałem>ale nie zrobiłem jeszcze nic w tym kierunku.

pozdrawiam
2017-07-27 (20:04)

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

2623
wpis nr 1 099 712
[ CZCIONKA SPECJALNA ]



W związku z prośbą z jaką zwrócił się do mnie jeden z użytkowników, mam takie pytanie czy komukolwiek znany jest program do generowania rozpisów systemów, a który to program miał ponoć żółtą ikonkę z cyrklem i kątomierzem i był swego czasu tu na forum dostępny?



Jestem na forum od 10 lat, ale nie spotkałem się z takim programem a jest on potrzebny tamtemu koledze.
2017-07-27 (20:07)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 1 099 713
[ CZCIONKA SPECJALNA ]

Żółta ikona to był program Eureki ale ja też się z takim nie spotkałem. Może ma obrazek tej ikony?
2017-07-27 (20:19)

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

3794
wpis nr 1 099 714
[ CZCIONKA SPECJALNA ]

Lotto CAD 1.1





2017-07-27 (20:39)

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

2623
wpis nr 1 099 717
[ CZCIONKA SPECJALNA ]

Dzięki @sindbad!

Intuicja mówiła mi, że właśnie Ty będziesz wiedział

Serdecznie pozdrawiam
2017-07-27 (21:06)

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

2623
wpis nr 1 099 723
[ CZCIONKA SPECJALNA ]



A zatem ta żółta ikonka z cyrklem i kątomierzem, odnosi się do starej wersji 1.1 programu LottoCAD Wojtka Jarzęckiego (Andrzeja Kmicica)

http://www.lottocad.pl/articles/browse/24
2017-07-28 (22:45)

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

2623
wpis nr 1 099 962
[ CZCIONKA SPECJALNA ]

Double Covering Designs



http://abel.math.umu.se/~klasm/Data/hypergraphs/coveringdesign-2.html



2017-07-29 (12:15)

status Pasko
Data rejestracji: 2003-08-03
Ilość postów: 4319
ADMIN
1
wpis nr 1 100 045
[ CZCIONKA SPECJALNA ]

A co to się stało z avatarami?
2017-07-29 (13:17)

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

2623
wpis nr 1 100 057
[ CZCIONKA SPECJALNA ]

Adminie, już widzę Twój zacny konterfekt

(proszę nie mylić konterfektu z kontrafałdą!)

zatem to od Ciebie oczekuję kilku słów, dlaczego

była ta kilkudniowa przerwa w widoczności pewnej

części avatarów, w tym i tego z #1



Dzięki i pozdrawiam

--- wpis edytowano 2017-07-29 13:24 ---

2017-08-12 (23:44)

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

1386
wpis nr 1 103 175
[ CZCIONKA SPECJALNA ]



Sub all_moglich8()

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

Dim tabdubel() As Long

Dim dubel, MAXdubli, hitdubel, komb As Long

Dim paskuda As Variant

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

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



BR1 = 0

BR2 = 0

br3 = 0

br4 = 0

br5 = 0

br6 = 0

br7 = 0

br8 = 0



hitdubel = 10000

ReDim tabdubel(komb * 100, 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 * 560) + (btr7 * 140) + (btr6 * 12) + (btr5 * 4) + (btr4 * 2)

If skr = 8 Then actstan = (btr8 * 22000) + (btr7 * 600) + (btr6 * 60) + (btr5 * 20) + (btr4 * 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 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 , " & hit8 & hit7 & hit6 & hit5 & hit4 & hit3 & hit2 & hit1 '& "..np..[" _

'& l1 & "," & l2 & "," & l3 & "," & l4 & "," & l5 & "," & l6 & "," & L7 & "," & 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



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

End Sub
2017-08-13 (20:25)

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

2047
wpis nr 1 103 336
[ CZCIONKA SPECJALNA ]

777ch, sprawdziłem zgodność Twojego makra z Wheel Generator. Właściwie mogłem porównać tylko gwarantowane minimum, gdyż makro pokazuje rozkład wygranych, a nie rozkład trafień. Wheel Generator dla 8 trafień znalazł najniższe trafienie takie jak : 7x4; 31x3; 10x2; 14x1;2x0. To trochę inny najgorszy rozkład niż rozkład pokazany przez makro, choć w obu przypadkach wypłata za trafienie 8 wynosi 28 pln. Można więc uznać, że makro spełnia swoje zadanie i pokazuje najniższą możliwą wypłatę za trafienie 8liczb z 26. Świetna robota !!!!
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 133 134 135 ... 503 504
Wyślij wiadomość do admina