Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 176 177 178 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-01-09 (16:12)

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

14865
wpis nr 1 137 737
[ CZCIONKA MONOSPACE ]

OK, z góry dziękuję
2018-01-09 (16:14)

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

1386
wpis nr 1 137 738
[ CZCIONKA MONOSPACE ]

Już mam



Nie wiem co Ci spasuje



to rozwiazania z arkusza dostępnego w sieci

Algorytmy Sortujące w VBA.xls <<<<<<< nazwa pliku



https://pl.scribd.com/document/62894106/Algorytmy-sortuj%C4%85ce-Artyku%C5%82



ale nie pliki chyba na excel forum



nie mogę Ci tego pliku podesłać ,bo ten co mam jest pozmieniany

ale może znajdziesz to szybciej.....





Sub SortowaniePrzezWybieranie(tabl, ile As Long)

Dim i As Long

Dim j As Long

Dim Amin

Dim Imin As Long

For i = 1 To ile - 1

Amin = tabl(i, 1)

Imin = i

For j = i + 1 To ile

If tabl(j, 1) < Amin Then

Amin = tabl(j, 1)

Imin = j

End If

Next

tabl(Imin, 1) = tabl(i, 1)

tabl(i, 1) = Amin

Next

End Sub



Sub SortowaniePrzezWstawianie(tabl, ile As Long)

Dim i As Long

Dim j As Long

Dim Ai



For i = 1 To ile

Ai = tabl(i, 1)

tabl(i, 1) = Ai

j = i - 1

While tabl(j + 1, 1) > Ai

tabl(j + 1, 1) = tabl(j, 1)

j = j - 1

Wend

tabl(j + 1, 1) = Ai

Next

End Sub



Sub SortowanieBabelkowe(tabl, ile As Long)

Dim i As Long

Dim j As Long

Dim Temp

For i = 2 To ile

For j = ile To 2 Step -1

If tabl(j - 1, 1) > tabl(j, 1) Then

Temp = tabl(j - 1, 1)

tabl(j - 1, 1) = tabl(j, 1)

tabl(j, 1) = Temp

End If

Next

Next

End Sub



Sub SortowanieSzybkie(tabl, lewy, prawy)

Dim l As Long

Dim p As Long

Dim med

Dim Temp



If lewy < prawy Then

l = lewy

p = prawy

med = tabl(l, 1)

Do

While tabl(l, 1) < med

l = l + 1

Wend

While tabl(p, 1) > med

p = p - 1

Wend

If l <= p Then

Temp = tabl(l, 1)

tabl(l, 1) = tabl(p, 1)

tabl(p, 1) = Temp

l = l + 1

p = p - 1

End If

Loop Until l >= p

Call SortowanieSzybkie(tabl, lewy, p)

Call SortowanieSzybkie(tabl, l, prawy)

End If

End Sub



Sub SortowanieArkuszowe(tabl, ile)

Dim Ark As Worksheet

Dim zakres As Range

Dim i As Long

Dim TblTmp As Variant



Application.ScreenUpdating = False

Set Ark = ThisWorkbook.Worksheets.Add

Set zakres = Ark.Range("A1:A" & ile)

zakres = tabl

zakres.Sort Key1:=zakres(1), _

Order1:=xlAscending, _

Orientation:=xlTopToBottom, _

Header:=xlNo

TblTmp = zakres

tabl = TblTmp



With Application

.DisplayAlerts = False

Ark.Delete

.DisplayAlerts = True

.ScreenUpdating = True

End With



Set zakres = Nothing

Set Ark = Nothing



End Sub



Sub SortowaniePrzezZliczanie(list)

Dim counts()

Dim i As Long, j As Long

Dim next_index As Long

Dim min, max

Dim min_value As Variant, max_value As Variant



min_value = Minimum(list)

max_value = Maximum(list)

min = LBound(list)

max = UBound(list)

ReDim counts(min_value To max_value)



For i = min To max

counts(list(i, 1)) = counts(list(i, 1)) + 1

Next i



next_index = min

For i = min_value To max_value

For j = 1 To counts(i)

list(next_index, 1) = i

next_index = next_index + 1

Next j

Next i

End Sub



Private Function Maximum(l)

Dim s1, s2, i

s1 = LBound(l)

s2 = UBound(l)

Maximum = l(s1, 1)

For i = s1 To s2

If l(i, 1) > Maximum Then Maximum = l(i, 1)

Next i

End Function



Private Function Minimum(l)

Dim s1, s2, i

s1 = LBound(l)

s2 = UBound(l)

Minimum = l(s1, 1)

For i = s1 To s2

If l(i, 1) < Minimum Then Minimum = l(i, 1)

Next i

End Function



--- wpis edytowano 2018-01-09 16:24 ---

2018-01-09 (16:42)

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

2623
wpis nr 1 137 742
[ CZCIONKA MONOSPACE ]

Jeden z najbardziej znanych speców od systemów Włoch Giovanni Acerbi (często zamieszczający wpisy pod nickiem Krypta) który jest m.in. autorem rekordowego rozpisu C(20,10,7,10)=30 który zbudował na bazie 2 podsystemów po 15 zakładów:



30 colonne copertura 100%

(speculare 2x 15 colonne)

.......... By KRYPTA...................

01 02 04 05 06 08 09 16 17 18

01 02 04 05 06 11 12 14 18 19

01 02 04 05 07 08 12 13 17 19

01 02 04 05 07 09 11 13 14 16

01 02 06 07 08 10 11 13 15 18

01 02 06 09 10 12 13 15 16 19

01 02 07 09 10 14 15 17 18 19

01 02 08 10 11 12 14 15 16 17

01 03 04 05 06 10 13 14 17 20

01 03 04 05 07 10 12 16 18 20

01 03 04 05 08 09 10 11 19 20

01 03 06 07 08 14 15 16 19 20

01 03 06 07 09 11 12 15 17 20

01 03 08 09 12 13 14 15 18 20

01 03 11 13 15 16 17 18 19 20

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

02 04 05 06 07 08 09 10 12 14

02 04 05 06 07 10 11 16 17 19

02 04 05 08 10 13 14 16 18 19

02 04 05 09 10 11 12 13 17 18

02 06 07 12 13 14 15 16 17 18

02 06 08 09 11 13 14 15 17 19

02 07 08 09 11 12 15 16 18 19

03 04 05 06 07 09 13 18 19 20

03 04 05 06 08 11 12 13 16 20

03 04 05 07 08 11 14 17 18 20

03 04 05 09 12 14 16 17 19 20

03 06 08 10 12 15 17 18 19 20

03 06 09 10 11 14 15 16 18 20

03 07 08 09 10 13 15 16 17 20

03 07 10 11 12 13 14 15 19 20

.............................



dziś zamieścił optymalizację tego swojego rekordowego rozpisu C(20,10,7,10)=30



01 02 03 04 05 06 07 08 09 10

01 02 03 04 05 06 11 12 14 19

01 02 04 05 07 08 12 13 17 19

01 02 04 05 09 10 11 13 14 17

01 02 03 06 08 11 13 15 16 17

01 02 06 09 10 12 13 15 16 19

01 02 03 07 09 14 15 16 17 19

01 02 07 08 10 11 12 14 15 16

01 04 05 06 07 13 14 16 18 20

01 03 04 05 10 12 16 17 18 20

01 04 05 08 09 11 16 18 19 20

01 06 08 10 14 15 17 18 19 20

01 06 07 09 11 12 15 17 18 20

01 03 08 09 12 13 14 15 18 20

01 03 07 10 11 13 15 18 19 20

02 04 05 06 08 09 12 14 16 17

02 04 05 06 07 10 11 16 17 19

02 03 04 05 08 10 13 14 16 19

02 03 04 05 07 09 11 12 13 16

02 03 06 07 10 12 13 14 15 17

02 06 07 08 09 11 13 14 15 19

02 03 08 09 10 11 12 15 17 19

03 04 05 06 09 13 17 18 19 20

04 05 06 08 10 11 12 13 18 20

03 04 05 07 08 11 14 17 18 20

04 05 07 09 10 12 14 18 19 20

03 06 07 08 12 15 16 18 19 20

03 06 09 10 11 14 15 16 18 20

07 08 09 10 13 15 16 17 18 20

11 12 13 14 15 16 17 18 19 20

................



co w odniesieniu do naszej gry MULTI MULTI podnosi teraz minimalną gwarantowaną wygraną przy trafieniu 10z20 liczb z poprzednich 296zł i zysku 221zł, do obecnych w nowej wersji 318zł a zatem dających zysk 243zł

--- wpis edytowano 2018-01-09 16:45 ---

2018-01-09 (17:14)

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

2623
wpis nr 1 137 746
[ CZCIONKA MONOSPACE ]

fair_play>>

jeżeli problem z jakim zwróciłeś się do 777ch wynika z tego, że rozpisy przekształcane w programie Inverso mają taką nieuporządkowaną postać, to mogę zwrócić się z tym do autora, czyli stef72 aby ten program nieco podrasował i dodał do niego funkcję prezentacji tych nowych rozpisów tylko jako rosnące...

--- wpis edytowano 2018-01-09 17:17 ---

2018-01-09 (17:54)

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

14865
wpis nr 1 137 757
[ CZCIONKA MONOSPACE ]

777ch>



Dziękuję, ale na pierwszy rzut oka wydaje mi się, że te przykłady sortują tylko poszczególne kolumny, a nie jednocześnie cały wiersz tej tabeli wraz z tą kolumną.



Wpadłem na pewien pomysł, ale podzielę się nim jak się sprawdzi



Z innej beczki



Dlaczego procedura:

słowo1="Ala"

słowo2="ma"

słowo3="kota"

napis=słowo1+słowo2+słowo3

Cells(x,y)=napis

daje w efekcie "Alamakota",



a przy

słowo1=str(11)

słowo2=str(22)

słowo3=str(33)

napis=słowo1+słowo2+słowo3

Cells(x,y)=napis

daje w efekcie "11 22 33"

czyli dlaczego pojawiają się spacje ?



edi8>



Nie nie chodzi mi o program tworzący Inverso (stworzyłem sobie do tego własny ). Chodzi mi o posortowanie jako rosnących (w kodzie VBA nie w arkuszu Excelowskim) np takich tablic jak te we wpisie nr 1 134 975 na 45 stronie tematu "Vidmo - wizje gry Dyletanta... "
2018-01-09 (18:04)

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

1386
wpis nr 1 137 760
[ CZCIONKA MONOSPACE ]

fair_play



Jeśli do tablicy wpiszesz liczby

nie jako kolejne ,lecz na pozycję



np





tab1(lp,liczba-1)=liczba





to wypis z tablic posortowany

zrobisz dopiero na końcu

po wrzuceniu tego co masz w tab1

do tablicy wypisowej >tab2



po prostu

redim tab2(ilezak-1,ileskr-1)

i jedziesz

for lp=1 do ilezak

kol=0

for n=1 do ileskr

if tab1(lp-1,n-1)>= 1 then kol=kol+1

tab2(lp-1,kol-1)=n

end if



next n

next ilezak



i można potem wczytać do arkusza ,a w arkuszu posortować

albo uzyć sortowania po uzypełnieniu tab2



no tak na szybko,mam nadzieje że to proste....
2018-01-09 (18:36)

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

1386
wpis nr 1 137 770
[ CZCIONKA MONOSPACE ]

http://www.mielk.pl/pl/kursy/kurs_vba/kurs_07_funkcje_wbudowane.php



Sub alasuma()

Dim napis2, napis3 As String

Dim napis As Integer

Dim słowo1, słowo2, słowo3 As Integer

Dim sł11, sł22, sł33 As String

słowo1 = Str(11)

słowo2 = Str(22)

słowo3 = Str(33)

sł11 = CStr(11) 'Konwersja do typu tekstowego

sł22 = CStr(22) 'Konwersja do typu tekstowego

sł33 = CStr(33) 'Konwersja do typu tekstowego

napis = słowo1 + słowo2 + słowo3 'suma

napis2 = sł11 + sł22 + sł33 'dodanejakalamakota Konwersja do typu tekstowego

Cells(2, 1) = napis

Cells(3, 1) = napis2

End Sub
2018-01-09 (19:32)

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

1386
wpis nr 1 137 784
[ CZCIONKA MONOSPACE ]

Nie nie chodzi mi o program tworzący Inverso (stworzyłem sobie do tego własny ).



fair_play



wklej mi samą procedurę

tylko zamiany informacji np:



C(24,19,14,14) to możliwy C(24,5,5,10)



coś takiego by mi sie przydało,



bo nie chce mi się myśleć nad tym .......
2018-01-09 (21:03)

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

14865
wpis nr 1 137 804
[ CZCIONKA MONOSPACE ]

777ch>



Proszę bardzo



Sub konwertuj()

Dim org, conv As Variant



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

zak = Application.WorksheetFunction.CountA(Range("A1:A65536"))

liczb = Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(zak, 20)))



org = Range(Cells(1, 1), Cells(zak, skr))

ReDim conv(zak, liczb)



For y = 1 To zak

For x = 1 To liczb

conv(y - 1, x - 1) = x

Next x

Next y



For y = 1 To zak

For x = 1 To skr

conv(y - 1, org(y, x) - 1) = 999

Next x

Next y



For y = 0 To zak

For x = 0 To liczb - 1

For xx = 0 To liczb - 1

If conv(y, x) < conv(y, xx) Then

tmp = conv(y, x)

conv(y, x) = conv(y, xx)

conv(y, xx) = tmp

End If

Next xx

Next x

Next y



Range(Cells(1, skr + 2), Cells(zak, liczb + 1)) = conv



End Sub

--- wpis edytowano 2018-01-09 21:03 ---

2018-01-10 (12:00)

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

1386
wpis nr 1 137 909
[ CZCIONKA MONOSPACE ]

Gratuluję fair_play

Sprawdzenie wypadło pomyślnie



Wszystkich 14-ek = 1961256 dla V=24

Pokrytych 14-ek = 192673

Czas obliczeń wyniósł 00:00:17,72 sec.

Brak [1768583]-kombinacji z {1961256}

Gwarancja 14 if t=14 : 9,82395974824296 <<

Min. Teor. [b] = 168 pokr. x {11628}

C (24,19,14,14) = 21

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

inversja by fair_play C(24,5,5,10)



-- Gwarancje przy 10-trafnie wytypowanych --

Gw.[2]= 100 %

Gw.[3]= 99,6653674991944 %

Gw.[4]= 68,7519120400396 %

Gw.[5]= 9,82395974824296 % <<

BRAK {6563}.. 3/5 w systemie

BRAK {612855}.. 4/5 w systemie

BRAK {1768583}.. 5/5 w systemie

Sprawdzono zbiór = 1961256 kombinacji

Time calculated : 2802,06193503686 ms







oczywiście z C(24,5,5,10) zrobiłem inversję do postaci startowej C (24,19,14,14)



wszystko się zgadza



pozdrawiam





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

oczywiście sam zbiór sprawdzany to był twój losowy

bez specjalnych gwarancji

--- wpis edytowano 2018-01-10 12:02 ---

2018-01-10 (12:23)

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

1386
wpis nr 1 137 911
[ CZCIONKA MONOSPACE ]

fair_play



Masz może przekształcanie samego opisu > C( v,k,t,m)

czyli C(7,4,2,2) = 5

na invers C(7,3,3,5) = 5



bo o to głownie mi chodziło.



2018-01-10 (12:44)

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

14865
wpis nr 1 137 918
[ CZCIONKA MONOSPACE ]

777ch>



Cieszę się, że się przydało.

Inwersja to w sumie bardzo prosta sprawa.

Po prostu w pliku inwersji każdą linię oryginału uzupełniasz brakującymi liczbami z ogółu liczb w systemie.

Np. jeśli liczb jest 15, a linia oryginału wyglada: 1,3,6,9,11,14 to linia inwersji powstaje tak:



1,2,3,4,5,6,7,8,9,10,11,12,13,14,15



_,2,_,4,5,_,7,8,_,10,__,12,13,__,15



2,4,5,7,8,10,12,13,15



Pozdrawiam

--- wpis edytowano 2018-01-10 12:50 ---

2018-01-10 (13:05)

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

14865
wpis nr 1 137 926
[ CZCIONKA MONOSPACE ]

777ch>



nie miałem C(7,4,2,2)=5

ale z WG uzyskałem:



01 02 03 04

01 02 04 07

01 04 05 06

02 03 05 06

03 05 06 07



co po inversji daje:



05 06 07

03 05 06

02 03 07

01 04 07

01 02 04



P.S.

Nie wiem jak korzystasz z mojej procedury, ale jak wczytasz oryginał do arkusza excela od komórki "A1" i uruchomisz procedurę jako makro to obok oryginału otrzymasz inwersję.

--- wpis edytowano 2018-01-10 13:10 ---

2018-01-10 (13:12)

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

1386
wpis nr 1 137 931
[ CZCIONKA MONOSPACE ]

Masz może przekształcanie samego opisu > C( v,k,t,m)

czyli C(7,4,2,2) = 5

na invers C(7,3,3,5) = 5



bo o to głownie mi chodziło.



sam nagłówek> bez inversji coveru <<





















fair_play

inversja wpada mi do innego arkusza ,

ale chodzi mi o sposób inversji samego nagłówka

bez inversji liczb.......

--- wpis edytowano 2018-01-10 13:15 ---

2018-01-10 (13:16)

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

1386
wpis nr 1 137 932
[ CZCIONKA MONOSPACE ]

2018-01-09 (16:42)



statusedi8



wpis nr 1 137 742





co w odniesieniu do naszej gry MULTI MULTI podnosi teraz minimalną gwarantowaną wygraną przy trafieniu 10z20 liczb z poprzednich 296zł i zysku 221zł, do obecnych w nowej wersji 318zł a zatem dających zysk 243zł





Sprawdzone 10-skr. liczb [20] zbiór =184756-kombinacji

Minimum gwarantowane: 318-pln , 1x 7|10,11x 6|10,6x 5|10,11x 4|10,1x 3|10,..np..[8,9,10,11,12,13,14,16,19,20]

Równorzędnych [7056]





318-pln {7056} ..co stanowi : 3,82 %

324-pln {3024} ..co stanowi : 1,637 %

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

426-pln {28224} ..co stanowi : 15,277 %

432-pln {36624} ..co stanowi : 19,823 %

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

534-pln {2352} ..co stanowi : 1,274 %

540-pln {9072} ..co stanowi : 4,911 %

582-pln {1344} ..co stanowi : 0,728 %

588-pln {112} ..co stanowi : 0,061 %

648-pln {784} ..co stanowi : 0,425 %

668-pln {4410} ..co stanowi : 2,387 %

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

674-pln {8704} ..co stanowi : 4,712 %

690-pln {17920} ..co stanowi : 9,7 %

696-pln {11424} ..co stanowi : 6,184 %

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

716-pln {652} ..co stanowi : 0,353 %

798-pln {1344} ..co stanowi : 0,728 %

804-pln {3696} ..co stanowi : 2,001 %

824-pln {4704} ..co stanowi : 2,547 %

830-pln {1680} ..co stanowi : 0,91 %

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

932-pln {12096} ..co stanowi : 6,548 %

938-pln {12768} ..co stanowi : 6,911 %

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

954-pln {672} ..co stanowi : 0,364 %

960-pln {336} ..co stanowi : 0,182 %

1040-pln {672} ..co stanowi : 0,364 %

1046-pln {1680} ..co stanowi : 0,91 %

1068-pln {336} ..co stanowi : 0,182 %

1088-pln {336} ..co stanowi : 0,182 %

1176-pln {16} ..co stanowi : 0,009 %

1196-pln {2576} ..co stanowi : 1,395 %

1202-pln {2912} ..co stanowi : 1,577 %

1304-pln {336} ..co stanowi : 0,182 %

1310-pln {672} ..co stanowi : 0,364 %

1330-pln {672} ..co stanowi : 0,364 %

1336-pln {336} ..co stanowi : 0,182 %

1438-pln {672} ..co stanowi : 0,364 %

1444-pln {1344} ..co stanowi : 0,728 %

1680-pln {56} ..co stanowi : 0,031 %

1686-pln {112} ..co stanowi : 0,061 %

10112-pln {136} ..co stanowi : 0,074 %

10154-pln {736} ..co stanowi : 0,399 %

10160-pln {672} ..co stanowi : 0,364 %

10418-pln {672} ..co stanowi : 0,364 %

10424-pln {672} ..co stanowi : 0,364 %

10640-pln {112} ..co stanowi : 0,061 %

250148-pln {14} ..co stanowi : 0,008 %

250154-pln {16} ..co stanowi : 0,009 %







ciekawe rozkłady...... ale trafienie 10|20 to nie bułka z masłem
2018-01-10 (14:10)

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

2623
wpis nr 1 137 958
[ CZCIONKA MONOSPACE ]

2018-01-10 (13:05)



status fair_play

Data rejestracji: 2016-05-12

Ilość postów: 1393



14865

wpis nr 1 137 926



777ch>



nie miałem C(7,4,2,2)=5

ale z WG uzyskałem:



01 02 03 04

01 02 04 07

01 04 05 06

02 03 05 06

03 05 06 07

....................

fair_play>>

miałeś ten rozpis C(7,4,2,2)=5 na LJCR

https://www.ccrwest.org/cover/table.html

https://www.ccrwest.org/cover/show_cover.php?v=7&k=4&t=2



1 2 3 4

1 4 5 6

1 5 6 7

2 3 4 7

2 3 5 6

..................
2018-01-10 (15:35)

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

14865
wpis nr 1 137 973
[ CZCIONKA MONOSPACE ]

777ch>



oryginał:

Vo, Ko, To, Mo



inversja:

Vi = Vo

Ki = Vo - Ko

Ti = Vo + To - (Ko + Mo)

Mi = Vo - Mo
2018-01-10 (19:23)

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

1386
wpis nr 1 138 031
[ CZCIONKA MONOSPACE ]

O to szło .

Dzięki,nie wiem po co ,

ale może się przydać.
2018-01-10 (19:55)

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

2623
wpis nr 1 138 053
[ CZCIONKA MONOSPACE ]



Wracając do niedawnych rozważań nad systemami do MM, dającymi w sposób gwarantowany min. 300% zysku przy wejściu 50% liczb granego zbioru - to system pełny* 3z13=286*2.5=715zł ma następujące gwarancje:



a/ przy 5z13 (38.46%) wygrana to 10x 3;80x 2 dające 700zł a zatem stratę 15zł czyli odzyskanie 97.90% kosztu gry

b/ przy 6z13 (46.15%) wygrana to 20x 3; 105x 2 dające 1290zł, czyli zysk 575zł

c/ przy 7z13 (53.84%) wygrana to 35x 3; 126x 2 dające 2142zł, czyli zysk 1427zł



*generator>> http://www.wynikilotto.net.pl/narzedzia/systemy-pelne/

2018-01-10 (21:20)

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

14865
wpis nr 1 138 082
[ CZCIONKA MONOSPACE ]

777ch>



Coś w tym allmoglich z wydrukami jest nie tak, bo jak przy tym samym systemie raz sprawdzam "if hit=6" dostaję wydruk:



Sprawdzone 6-skr. liczb [22] zbiór =74613-kombinacji

Minimum gwarantowane: 40-pln , 3x 4|6,8x 3|6,33x 2|6,24x 1|6,



a przy "if hit=7" dostaję wydruk:



Sprawdzone 7-skr. liczb [22] zbiór =170544-kombinacji

Minimum gwarantowane: 1-pln , 7x 4|6,7x 3|6,42x 2|6,14x 1|6,..np..[16,17,18,19,20,21,22]



Przecież skreśleń jest tyle samo a na wydrukach jest: Sprawdzone 6-skr. i Sprawdzone 7-skr.

oraz

Minimum gwarantowane: 40-pln przy 6 trafionych i

Minimum gwarantowane: 1-pln przy 7 trafionych.

--- wpis edytowano 2018-01-10 21:22 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 176 177 178 ... 554 555
Wyślij wiadomość do admina