Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 156 157 158 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2017-11-17 (16:20)

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

14865
wpis nr 1 124 538
[ CZCIONKA MONOSPACE ]

777ch>

We wpisie 1 122 888 podajesz przykład excelowskiego programu obliczającego pokrycie 4-ek. Korzystasz w nim z obliczania pozycji mając 4 liczby czwórki.

A jak mając pozycję wyznaczyć w sposób szybki te 4 liczby ?



Pozdrawiam

2017-11-17 (18:31)

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

1386
wpis nr 1 124 560
[ CZCIONKA MONOSPACE ]

fair_play



Jeśli chcesz mieć bezpośredni dostęp do czwórek

to

Option Explicit



i oblicz czwórki ,zapisz w tablicy,będziesz miał cały czas dostęp



dam ci przykład.... ale to już chyba znasz



Sub tab4()

Dim v As Integer

Dim l1, l2, l3, l4

Dim csnmax, lp As Long

Dim tab4() As Variant

v = 49

csnmax = Combin(v, 4)

MsgBox csnmax

ReDim tab4(csnmax, 0)



lp = 0

For l1 = 1 To v - 3

For l2 = l1 + 1 To v - 2

For l3 = l2 + 1 To v - 1

For l4 = l3 + 1 To v



lp = lp + 1



tab4(lp, 0) = l1 & "," & l2 & "," & l3 & "," & l4

' tab4(0,0) jest wolna ,przyjmiemy nr dla zapytania if nr









Next l4

Next l3

Next l2

Next l1





MsgBox tab4(1111, 0) & " czwórka csn: 1111 dla v= " & v









End Sub

Function Combin(n, m)



FA = 1

For i = 1 To m: FA = FA * i: Next i

vA = 1

For j = (n - m + 1) To n: vA = vA * j: Next j

Combin = vA / FA



End Function
2017-11-17 (19:19)

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

14865
wpis nr 1 124 568
[ CZCIONKA MONOSPACE ]

777ch>

To oczywiście proste, ale chodziło mi o "wyliczenie" tych liczb składowych czwórki znając tylko jej pozycję.

Np. mając pozycję 15 000 jak wyliczyć, że ta czwórka to 2,9,29,36 (przy 42 liczbach).

--- wpis edytowano 2017-11-17 19:23 ---

2017-11-17 (19:36)

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

1386
wpis nr 1 124 576
[ CZCIONKA MONOSPACE ]

fair_play



no mam gdzieś w którymś z arkuszy coś takiego

chyba od Dylonga



ale to za wolne jest, więc nie będę szukał





ale wiesz zapewne ,

że jak raz to odpalisz ,co wstawiłem

przy Option explicit

to masz dostęp ,przy obliczeniach stały....



--- wpis edytowano 2017-11-17 19:39 ---

2017-11-17 (19:49)

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

1386
wpis nr 1 124 580
[ CZCIONKA MONOSPACE ]

Chodzi ci o sekwencję liczb z numeru

to oczywiście jest tu gdzieś na forum



1..2..3..4..................................1

1..2..3..14..................................11

1..2..5..39..................................111

1..3..13..38..................................1111

2..3..18..28..................................11111

29..33..36..37..................................111111



ale to naprawdę wolne ,

jak byś się upierał to podam,

no chyba że nie o szybkość dostępu chodzi,

bo zrozumiałem że szybki dostęp,

to wtedy raczej index w tablicach

2017-11-17 (20:25)

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

2047
wpis nr 1 124 589
[ CZCIONKA MONOSPACE ]

Udało mi się pobić jeden z rekordów La Jolla duetu "Alessandro Jurcovich e Marco Meoli" Niestety, zrobiłem to programem Wheel Generator w wersji 1.5, do której mój "serial code" i "authorisation code" nie pasują. Najnowszą wersją programu nie daję rady się zbliżyć do tego rekordu. Metody "brute force" którą kiedyś razem z fair_play i edi8 użyliśmy, raczej nie da się tutaj zastosować ze względu na wielkość pliku końcowego. Wyglada na to, że stara wersja programu Wheel Generator jest bardziej skuteczna od tej najnowszej
2017-11-17 (20:30)

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

14865
wpis nr 1 124 591
[ CZCIONKA MONOSPACE ]

kleszek>

wrzuć te "??", zobaczymy ile wyjdzie w tej bazie , albo podrzuć na pocztę



--- wpis edytowano 2017-11-17 20:32 ---

2017-11-17 (20:35)

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

2047
wpis nr 1 124 592
[ CZCIONKA MONOSPACE ]

fair_play, w linii są 4 ??, a zakładów jest ponad 3000, więc sprawa jest ( chyba ) z góry przegrana. Trochę to dziwne, że mając wykupiony abonament, nie mogę korzystać ze starej wersji programu, a jeszcze dziwniejsze jest to, że stare jest ( czasami ) lepsze od nowego. Nawet przysłowie mówi, że "lepsze jest wrogiem dobrego" . Cos w tym jest
2017-11-17 (20:40)

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

14865
wpis nr 1 124 593
[ CZCIONKA MONOSPACE ]

kleszek>



To rzeczywiście może być beznadziejne. Skreśleń 8 czy 9 ? A liczb ile ?
2017-11-17 (20:41)

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

2047
wpis nr 1 124 594
[ CZCIONKA MONOSPACE ]

to system C(22,8,6)
2017-11-17 (20:53)

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

14865
wpis nr 1 124 597
[ CZCIONKA MONOSPACE ]

kleszek>

Wydaje mi się, że znaczną ilość "??" da się zastąpić właściwymi liczbami w sposób oczywisty. Jak byś zechciał to spakuj ten rekord i podrzuć na pocztę.
2017-11-17 (21:10)

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

2047
wpis nr 1 124 605
[ CZCIONKA MONOSPACE ]

fair_play, wysłane na pocztę. Być może uda mi się pobić ten rekord, najnowszą wersją. Do pełnego sukcesu brakuje mi pokrycia tylko 1 zakładu
2017-11-17 (22:47)

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

2623
wpis nr 1 124 627
[ CZCIONKA MONOSPACE ]

kleszek>>

gwoli prawdy historycznej, to ten pierwszy z pobitych przez nas rekordów został ustanowiony w składzie - podaję wg kolejności działań:

a/ edi8 - lepszy od rekordu wynik w WG 1.5, ale częściowo zakodowany

b/ Molek - wykonanie matrycy

c/ fair_play - inne podejście do budowy matrycy

d/ kleszek - wygenerowanie nowego rekordu na WG 1.8.4a PRO po zaimportowaniu matrycy od Molka



Dyskusja wokół tego podejścia toczyła tu się w tym wątku od strony 91

http://forum.multipasko.pl/n_viewtopic.php?id=4811&page=91&sort=&dir=



--- wpis edytowano 2017-11-17 22:55 ---

2017-11-22 (16:52)

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

2623
wpis nr 1 125 727
[ CZCIONKA MONOSPACE ]

3 systemy strefowe by Sveta Marjanovic:



28,3,2,3,64

24,6,4,5,64 (można zastosować do TOTO GOLA)

28,7,4,7,48



http://www.loto-sistemi-svetam.rs/category/loto-sistemi-kroz-jedinicne-grupe/

UWAGA:

faktyczna ilość liczb w systemach jest niższa niż ich zastosowane wartości, ponieważ autor do stref podstawia nie kolejne liczby a z tymi samymi końcówkami.

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



Kolejne 3 systemy strefowe by Sveta Marjanovic:



21,7,4,4,159

24,4,2,4,18

27,3,2,4,27

http://www.loto-sistemi-svetam.rs/category/loto-sistemi-kroz-sportsku-prognozu/

--- wpis edytowano 2017-11-22 17:08 ---

2017-11-24 (21:12)

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

2623
wpis nr 1 126 289
[ CZCIONKA MONOSPACE ]



Rozpisy pełnych systemów strefowych, można wygenerować na stronie kolegi @ralfka:



http://www.wynikilotto.net.pl/systemystrefowe.htm
2017-11-27 (19:45)

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

2047
wpis nr 1 126 931
[ CZCIONKA MONOSPACE ]

edi8 napisał cyt. "chwilę po zamieszczeniu tego Twojego nowego sukcesu (a nawet obu) odezwał się na włoskim forum Marco Meoli, czyli 1z2 współautorów odebranego im przez Ciebie rekordu i ewidentnie z tego powodu "psycha mu siadła", bo jak ostatni matoł zemścił się na listonoszu złej dla niego wiadomości czyli na mnie, odbierając mi punkt reputacji za tę informację o Twoim wyniku...



Dlatego jak dasz jeszcze radę do 15.10, to postaraj się zrobić kuku temu gościowi, w postaci dobrania się do jakiegoś innego jego rekordu"



Mówisz i masz

https://www.ccrwest.org/cover/show_history.php?v=28&k=8&t=5

"Odchudziłem" ten rekord o 52 zakłady. Tylko ... może nic już nie pisz o tym na włoskim forum
2017-11-27 (20:14)

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

2623
wpis nr 1 126 940
[ CZCIONKA MONOSPACE ]

kleszek>>

ogromne gratulacje, bo naprawdę bardzo ostro szarpnąłeś!

A wieści o tych 2 Twoich nowych rekordach już poszły w świat:

C(28,8,5)=2402 www.ccrwest.org/cover/show_cover.php?v=28&k=8&t=5

i z tego przekształcenie>> C(28,20,20,23)=2402

--- wpis edytowano 2017-11-27 20:19 ---

2017-11-28 (13:18)

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

2623
wpis nr 1 127 091
[ CZCIONKA MONOSPACE ]

kleszek>>

niniejszym przekazuję Ci gratulacje za ten rekord C(28,8,5)=2402, które to gratulacje za moim pośrednictwem składa Ci sam mistrz Alessandro Jurcovich, będący wraz z Marco Meoli poprzednim posiadaczem tego rekordu.

Korespondencja do mnie w tej sprawie była zatytułowana: "Very good record" a to mówi wszystko

--- wpis edytowano 2017-11-28 13:22 ---

2017-11-28 (15:44)

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

2047
wpis nr 1 127 116
[ CZCIONKA MONOSPACE ]

Edi8, ten rekord to bardziej zasługa Wheel Generator niż moja , ale miło, że taki autorytet z zakresu tworzenia systemów to docenia. Mam nadzieję, że tym razem punkty reputacji nie zostały Ci odjęte. Pozdrowienia dla całej włoskiej ekipy walczącej z systemami Lotto.
2017-11-29 (15:54)

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

1386
wpis nr 1 127 366
[ CZCIONKA MONOSPACE ]

35,6,6,30 = 7 (inv 35,29,5,5)



1 6 10 11 14 26

2 5 13 15 18 20

3 24 25 31 32 33

4 7 23 28 29 30

4 17 19 22 28 29

8 9 16 21 27 35

12 17 19 22 23 34



pozdrawiam
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 156 157 158 ... 554 555
Wyślij wiadomość do admina