Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 43 44 45 ... 195 196
Wyślij wiadomość do admina

Przewiń wpisy ↓

GRA PRECYZYJNA-DUŻY LOTEK-WIĘKSZE SZANSE NA GŁÓWNĄ WYGRANĄ

2009-01-20 (22:32)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 175 238
[ CZCIONKA MONOSPACE ]

oj,oj,oj,duzo nie brakowało, ale gramy dalej, powodzenia
2009-01-21 (09:24)

status Friend
Data rejestracji: 2008-05-04
Ilość postów: 570

3463
wpis nr 175 278
[ CZCIONKA MONOSPACE ]

Dajcie jakieś cyferki to wykresik walnę, jakąś konstelację czy cuś.



Waldi realizuje marzenie, jest doskonałym analitykiem i ma wyczucie.

Mroźny Mario, dziękuję za wsparcie.



Ja dokładam cegiełki bo wierzę że tak jest lepiej, lepiej komuś dać szczęście niż sobie i zostać jak ten kołek z dobrobytem.
2009-01-21 (09:46)

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

1386
wpis nr 175 281
[ CZCIONKA MONOSPACE ]

wylosowane szóstki w 2009 .z rozbiciem na ont trójek-przed losowaniem



4642 2009-01-20 1,7,12,17,20,38, ont3/3 trójek , 5,40,189,237,250,253,311,598,687,699,811,813,820,1000,1209,1245,1594,1863,2090,4341

4641 2009-01-17 1,8,22,33,35,45, ont3/3 trójek , 36,36,36,36,90,304,350,363,448,511,622,647,736,881,917,1048,1340,1356,2604,3481

4640 2009-01-15 10,11,15,24,28,37, ont3/3 trójek , 84,144,194,226,238,345,372,602,626,634,701,1023,1294,1700,1773,1961,2019,2023,2098,2273

4639 2009-01-13 2,3,9,14,30,34, ont3/3 trójek , 41,107,128,179,332,386,441,638,670,699,860,982,1189,1254,1478,1522,1979,2306,2598,4638 wyst.trójka zerowa

4638 2009-01-10 31,35,39,40,43,45, ont3/3 trójek , 211,213,295,415,415,415,471,520,793,802,1014,1129,1760,1800,2087,2087,2090,2900,3085,4110

4637 2009-01-08 8,17,31,38,42,46, ont3/3 trójek , 6,37,96,155,280,502,512,573,675,1118,1157,1210,1249,1512,1765,1821,1948,2564,2760,3154

4636 2009-01-06 12,20,36,38,39,45, ont3/3 trójek , 15,164,181,213,317,317,317,358,423,432,647,765,793,793,910,1086,1086,1793,2412,2762

4635 2009-01-03 3,15,17,25,27,33, ont3/3 trójek , 22,254,256,366,414,501,501,501,634,754,833,837,984,1023,1372,1421,1989,2136,2385,3234

4634 2009-01-01 3,13,16,31,46,49, ont3/3 trójek , 75,126,195,252,277,366,491,521,532,541,541,541,955,1081,1466,1466,1569,2208,2884,3834



wylosowane szóstki w 2009 .z rozbiciem na ont >=4 -przed losowaniem



4642 2009-01-20 1,7,12,17,20,38,,,,,,,,,,,,,, wcześniej, 4-4------------------ , 1799 2239

4641 2009-01-17 1,8,22,33,35,45,,,,,,,,,,,,,, wcześniej, 4-4-4-4-4-4-------------- , 36 3481 3681 4034 4111 4391

4640 2009-01-15 10,11,15,24,28,37,,,,,,,,,,,,,, wcześniej, 5-4------------------ , 2492 3927

4639 2009-01-13 2,3,9,14,30,34,,,,,,,,,,,,,, wcześniej, 4-4------------------ , 1254 3115

4638 2009-01-10 31,35,39,40,43,45,,,,,,,,,,,,,, wcześniej, 4-4-4-4---------------- , 415 967 2087 4636

4637 2009-01-08 8,17,31,38,42,46,,,,,,,,,,,,,, wcześniej, 4-4------------------ , 2580 4177

4636 2009-01-06 12,20,36,38,39,45,,,,,,,,,,,,,, wcześniej, 4-4-4-4-4-4-------------- , 317 793 1086 1206 2155 2762

4635 2009-01-03 3,15,17,25,27,33,,,,,,,,,,,,,, wcześniej, 4-4-4-4-4-4-4-4------------ , 501 837 984 2385 2538 3234 3613 3950

4634 2009-01-01 3,13,16,31,46,49,,,,,,,,,,,,,, wcześniej, 4-4-4-4-4--------------- , 541 967 1466 2208 4463
2009-01-21 (10:27)

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

1386
wpis nr 175 286
[ CZCIONKA MONOSPACE ]

przy trafieniu 1/6 w wybranej szóstce,w zbiorze 246820 kombinacji uzyskamy 3900x3/6 oraz 101x4/6



przy trafieniu 2/6 w wybranej szóstce,w zbiorze 246820 kombinacji uzyskamy 14680x3/6 oraz 984x4/6 oraz 16x5/6







oto trafione 5/6 .....niestety te kombinacjie nie znalazły sie w naszych zakładach

1 7 11 12 17 38

1 7 11 12 20 38

1 7 11 17 20 38

1 7 12 17 26 38

1 7 12 17 33 38

1 7 12 17 34 38

1 7 12 20 26 38

1 7 12 20 33 38

1 7 12 20 34 38

1 7 17 20 26 38

1 7 17 20 33 38

1 7 17 20 34 38

7 11 12 17 20 38

7 12 17 20 26 38

7 12 17 20 33 38

7 12 17 20 34 38

2009-01-21 (10:29)

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

1386
wpis nr 175 287
[ CZCIONKA MONOSPACE ]

Icemario>jak sprawdzisz plik który ci wysłałem to właśnie :

14680x3/6 oraz 984x4/6 oraz 16x5/6 takie wyniki w nim uzyskałeś .
2009-01-21 (11:05)

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

1386
wpis nr 175 289
[ CZCIONKA MONOSPACE ]

excel potrzebuje 92sekundy na:

znalezienie 246820 kombinacji z trójkami wybranej 6-ki,

łącznie z zapisaniem wszystkich 246820 układów do pliku.txt,

z równoczesnym sprawdzeniem wyników w każdej kombinacji,

oraz wypisaniem wyników zbiorczych,i kombinacji w których weszło >=3

do arkusza....dlatego takie podsumowania.....są możliwe.



4639 2009-01-13

tr.3/6= 3900

tr.4/6= 100

tr.5/6= 0

tr.6/6= 0



4640 2009-01-15

tr.3/6= 3900

tr.4/6= 100

tr.5/6= 0

tr.6/6= 0



4641 2009-01-17

tr.3/6= 3900

tr.4/6= 100

tr.5/6= 0

tr.6/6= 0



4642 2009-01-20

tr.3/6= 14680

tr.4/6= 984

tr.5/6= 16

tr.6/6= 0



2009-01-21 (11:19)

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

1386
wpis nr 175 291
[ CZCIONKA MONOSPACE ]

jeszcze na koniec podam co będzie ......

jeśli wejdzie 3/6 w wskazanej szóstce

oto podsumowanie,zawsze uzyskamy taki wynik w 246820 ZESTAWACH:



tr.3/6= 32021

tr.4/6= 3429

tr.5/6= 129

tr.6/6= 1



2009-01-21 (11:25)

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

1386
wpis nr 175 292
[ CZCIONKA MONOSPACE ]

SZANSE przy trafieniu 3/6 z wybranej

1x 3/6 DL na 7,7 zestawów

1x >=4/6 DL na 69 zestawów

1x >=5/6 DL na 1890 zestawów
2009-01-21 (12:31)

status PARTNER
Data rejestracji: 2008-03-10
Ilość postów: 747

3260
wpis nr 175 304
[ CZCIONKA MONOSPACE ]

Jutro tj. 22.01.2009 (czwartek) zgodnie z regulaminem pauzujemy.

W sobotę jak dobrze pójdzie będzie nasze kolejne rozdanie.



Wspólna Precyzyjna Gra w Dużego Lotka

Szczegóły i regulamin na podanej niżej stronie.



* http://www.6-49.witryna.info/ *



2009-01-21 (12:33)

status icemario
Data rejestracji: 2005-01-07
Ilość postów: 6391

561
wpis nr 175 305
[ CZCIONKA MONOSPACE ]

...no szkoda tych 5/6...jest mozliwosc zeby przeanalizowac w jaki sposob wybrac zaklady tego tyu zeby weszly u nas?

pzdr.nara:)
2009-01-21 (16:24)

status chippi
Data rejestracji: 2008-05-19
Ilość postów: 614

3495
wpis nr 175 338
[ CZCIONKA MONOSPACE ]

jak ogladałem losowanie to \"serce miałem w gardle\"...jednakże do wytrwałych świat należy...
2009-01-21 (18:59)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 175 364
[ CZCIONKA MONOSPACE ]

no i tak trzymac,
2009-01-21 (21:06)

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

1386
wpis nr 175 401
[ CZCIONKA MONOSPACE ]

witam



Wiele osób z tego forum co nieco kombinuje w excelu,

więc może się komuś przyda ....

a przy okazji zrozumie....zobaczy.

jak tworzy się rozpis warunkowy,w tym przypadku

losowo ze wskazanego zbioru.

________________________________________________________

Sub kombinacje_z_wskazanej6()



Dim taball() As Long

Dim typ1 As Byte, typ2 As Byte, typ3 As Byte, typ4 As Byte, typ5 As Byte, typ6 As Byte

Dim t1 As Byte, t2 As Byte, t3 As Byte, t4 As Byte, t5 As Byte, t6 As Byte, TALL As Byte

Dim k As Long, zakładów As Long, Q As Long

Dim RL1 As Byte, RL2 As Byte, RL3 As Byte, RL4 As Byte, RL5 As Byte, RL6 As Byte, POWT4 As Byte

Dim SPR As Integer





\'usuwamy poprzednie dane

Cells.ClearContents

\'wstawiłem wartosci dla wskazanej

typ1 = 7 \'CInt(InputBox(\"Wpisz liczbę nr 1. szóstki wybranej \", \"dane\"))

typ2 = 11 \'CInt(InputBox(\"Wpisz liczbę nr 2. szóstki wybranej \", \"dane\"))

typ3 = 26 \'CInt(InputBox(\"Wpisz liczbę nr 3. szóstki wybranej \", \"dane\"))

typ4 = 33 \'CInt(InputBox(\"Wpisz liczbę nr 4. szóstki wybranej \", \"dane\"))

typ5 = 34 \'CInt(InputBox(\"Wpisz liczbę nr 5. szóstki wybranej \", \"dane\"))

typ6 = 38 \'CInt(InputBox(\"Wpisz liczbę nr 6. szóstki wybranej \", \"dane\"))



k = 0 \'zaczynamy od ilosci kombinacji = 0







ReDim taball(246820, 6) \'budujemy tablicę,wiemy że kombinacji będzie tylko 246820 więc nie potrzeba long ale niech zostanie





\'odpalamy kolejne kombinacje

For l1 = 1 To 44

For l2 = l1 + 1 To 45

For l3 = l2 + 1 To 46

For l4 = l3 + 1 To 47

For l5 = l4 + 1 To 48

For l6 = l5 + 1 To 49





\'filtr wszystkich kombinacji ,bierzemy tylko zawierajace 3 liczby z wybranej

If l1 = typ1 Or l1 = typ2 Or l1 = typ3 Or l1 = typ4 Or l1 = typ5 Or l1 = typ6 Then t1 = 1 Else: t1 = 0

If l2 = typ1 Or l2 = typ2 Or l2 = typ3 Or l2 = typ4 Or l2 = typ5 Or l2 = typ6 Then t2 = 1 Else: t2 = 0

If l3 = typ1 Or l3 = typ2 Or l3 = typ3 Or l3 = typ4 Or l3 = typ5 Or l3 = typ6 Then t3 = 1 Else: t3 = 0

If l4 = typ1 Or l4 = typ2 Or l4 = typ3 Or l4 = typ4 Or l4 = typ5 Or l4 = typ6 Then t4 = 1 Else: t4 = 0

If l5 = typ1 Or l5 = typ2 Or l5 = typ3 Or l5 = typ4 Or l5 = typ5 Or l5 = typ6 Then t5 = 1 Else: t5 = 0

If l6 = typ1 Or l6 = typ2 Or l6 = typ3 Or l6 = typ4 Or l6 = typ5 Or l6 = typ6 Then t6 = 1 Else: t6 = 0



TALL = t1 + t2 + t3 + t4 + t5 + t6

If TALL = 3 Then GoTo 90 Else: GoTo 100

\'_________________________________________________________________________________________________________

\'zapis do tablic spełniajacych warunki czyli ...zawierające 3 liczby ze wskazanej kombinacji

90

k = k + 1





taball(k, 1) = l1



taball(k, 2) = l2



taball(k, 3) = l3



taball(k, 4) = l4



taball(k, 5) = l5



taball(k, 6) = l6



100

Next l6

Next l5

Next l4

Next l3

Next l2

Next l1



\'_____________________________________________________

\'wybór zakładów losowy bez dodatkowych warunków typu sumy,odległosci itd..

110



zakładów = 0



120

Randomize





Q = Int(Rnd * k) + 1





RL1 = taball(Q, 1)

RL2 = taball(Q, 2)

RL3 = taball(Q, 3)

RL4 = taball(Q, 4)

RL5 = taball(Q, 5)

RL6 = taball(Q, 6)







\'tu wstawione sprawdzenie,jeżeli w zakładach już wpisanych do arkusza powtarza sie wiecej niż 3 liczby

\'w kombinacji to wracamy do kolejnego losowego wyboru

For SPR = 1 To 1 + zakładów



\'



POWT4 = Application.WorksheetFunction.CountIf(Range(Cells(SPR, 1), Cells(SPR, 6)), taball(Q, 1)) _

+ Application.WorksheetFunction.CountIf(Range(Cells(SPR, 1), Cells(SPR, 6)), taball(Q, 2)) _

+ Application.WorksheetFunction.CountIf(Range(Cells(SPR, 1), Cells(SPR, 6)), taball(Q, 3)) _

+ Application.WorksheetFunction.CountIf(Range(Cells(SPR, 1), Cells(SPR, 6)), taball(Q, 4)) _

+ Application.WorksheetFunction.CountIf(Range(Cells(SPR, 1), Cells(SPR, 6)), taball(Q, 5)) _

+ Application.WorksheetFunction.CountIf(Range(Cells(SPR, 1), Cells(SPR, 6)), taball(Q, 6))





If POWT4 > 3 And zakładów >= 1 Then GoTo 120



Next SPR



\'TU można dołożyć dodatkowe warunki...sumy ,sprawdzenie ont itp itd.....

\'jeśli kombinacja spełniła waruneki to dopisujemy kolejny układ do arkusza,można do pliku txt...ale tu jest do arkusza

zakładów = zakładów + 1



Cells(zakładów, 1) = taball(Q, 1)

Cells(zakładów, 2) = taball(Q, 2)

Cells(zakładów, 3) = taball(Q, 3)

Cells(zakładów, 4) = taball(Q, 4)

Cells(zakładów, 5) = taball(Q, 5)

Cells(zakładów, 6) = taball(Q, 6)

Cells(zakładów, 1).Select



\'koniec układanki ...jeśli mamy już więcej jak 300 zakładów,można zmieniać wartości jak kto chce i umie

If zakładów < 350 Then GoTo 120

\'______________________________________________________



End Sub



Jeśli ktoś chciałby coś specjalnego zamówić to ...nie widzę problemu.
2009-01-21 (21:13)

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

1386
wpis nr 175 419
[ CZCIONKA MONOSPACE ]

Można układać NIE LOSOWO ......a naukowo ...

ale wtedy trzeba wiedzieć co sie chce ....a czego nie,

,i zapisać to w codzie makra.



2009-01-21 (21:25)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 175 426
[ CZCIONKA MONOSPACE ]

Leo, moze bys jednak sie pokusił i sprawdził jak to wychodzi w expres lotku?jednak jest tanszy,byłoby mniej ale moze czesciej?a za trojke płaca juz 18 lub 40 zł powiedz co o tym myslisz?
2009-01-21 (21:26)

status icemario
Data rejestracji: 2005-01-07
Ilość postów: 6391

561
wpis nr 175 427
[ CZCIONKA MONOSPACE ]

...bardzo dorze leo

...ja mam propozycje metody eliminacji...tzn.ze zbioru zakladow ktore wybral ci program (246820) odrzucamy te ktore twoim zdaniem wejda

...czyli te 80...albo wiecej bo tyle ci wyszlo juz po kilku selekcjach zapewne i tak dalej az zostanie 80 ktore nie maja prawa wejsc...i moze to jest sposob???

...sprawdz jak by to wyszlo na poprzednim losowaniu

...tzn. odwroc filtry w druga strone

...zobaczymy jaki bylby efekt...chociaz na nastepne losowanie moze byc calkiem inaczej...ale sprawdzic mozna

pzdr.nara:)
2009-01-21 (21:42)

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

1386
wpis nr 175 430
[ CZCIONKA MONOSPACE ]

icemario> ....orientacyjnie wiem co ustawić,ale w kilkunastu zakładach to

jest .....po prostu dalej loteria



na kolejne losowanie zmieni sie ułożenie rozpisu,

bo już bodajże 10 pozycji weszło na 3/6.....

więc rozpis oparty o ONT 3/6 zakładów będzie inny,podałem jakie są szanse,

pozostaje .......mieć nadzieję i czekać , za którymś razem....wejdzie trochę więcej niż 3/6



hektor> trzeba ludzi sponsorujących grę,ja w expresa nie gram ,ale

jak zmontujesz grupę ,to zawsze mogę zapuścić ....liczydła

nie ma problemu.
2009-01-21 (22:12)

status icemario
Data rejestracji: 2005-01-07
Ilość postów: 6391

561
wpis nr 175 439
[ CZCIONKA MONOSPACE ]

...ok

...tez tak mysle...ale mialem cicha nadzieje ze cos wykombinujesz...mistrzu

pzdr.nara:)
2009-01-21 (22:44)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 175 460
[ CZCIONKA MONOSPACE ]

Leo, moze i mialbym, ale jaki bede miec argument by ich przekonac?ale mam pytanie,czy ten twój program potrafi tak rozpisac liczby aby np kazda liczba była skreslona np po 10 razy?w roznych ukladach? bo skreslajac 9 zakladów wtedy mamy 45 liczb,3 liczby by sie powtorzyly, i 10 takich ukladow po 9zaklad ow to wynosi 125 zł wtedy powiem moim znajomym ze takie cos mam i to bedzie argument. wtedy bedzie kazda liczba skreslona po 10 razy. daj mi znac
2009-01-22 (07:41)

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

1386
wpis nr 175 500
[ CZCIONKA MONOSPACE ]

8 26 31 33 40

2 10 11 23 37

4 9 12 20 39

13 18 19 24 29

7 15 25 32 36

6 14 28 30 41

1 3 16 38 42

5 21 27 35 41

10 13 17 32 40

25 27 29 31 34

17 22 33 35 39

5 6 22 34 36

1 7 19 26 30

2 3 4 15 28

8 12 24 37 38

11 14 16 18 21

8 13 20 23 42

9 21 22 23 28

10 12 19 25 42

3 7 20 34 40

1 4 5 11 33

6 9 16 17 24

2 14 31 32 38

18 30 36 37 39

15 16 26 37 41

4 30 32 34 35

9 11 29 35 38

14 15 17 27 42

20 26 27 28 36

1 10 21 29 39

3 23 24 25 33

6 7 12 18 31

2 19 22 40 41

5 12 17 26 29

3 6 13 21 37

1 8 9 18 34

11 28 39 40 42

5 15 23 30 31

4 7 22 24 27

8 10 14 35 36

16 19 20 32 33

2 13 16 25 30

1 12 13 36 41

17 18 20 25 38

19 24 27 28 39

2 7 22 37 38

10 14 23 26 34

6 9 31 40 41

8 11 32 33 35

4 5 21 29 42

1 5 15 18 36

3 9 13 16 19

6 7 20 24 37

2 14 25 39 42

4 17 31 34 41

10 12 22 35 38

8 11 21 30 40

3 15 27 29 33

1 17 19 23 32

5 22 26 27 32

9 14 26 28 31

12 25 29 39 40

2 15 18 30 41

20 24 33 36 42

6 10 11 16 28

13 23 34 35 37

7 8 21 36 38

4 16 25 28 40

3 8 18 29 41

13 20 21 27 39

3 9 10 24 26

2 4 12 31 33

1 7 11 14 15

5 17 19 30 37

4 6 22 23 32

10 28 29 30 34

9 19 38 40 42

1 16 20 35 41

13 14 25 33 36

3 12 26 37 42

18 32 34 38 39

7 21 23 31 35

11 15 17 22 24

2 5 6 8 27

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 43 44 45 ... 195 196
Wyślij wiadomość do admina