Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 461 462 463 ... 560 561
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2021-04-27 (15:39)

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

2623
wpis nr 1 360 632
[ CZCIONKA MONOSPACE ]

We włoskim necie znalazłem dość starą stronę z kilkoma systemami:
http://web.tiscali.it/lotto_italiano/sistemi_per_superenalotto.html
ale mają tam błąd gdyż system 19,6,3x3,6=14 wcale nie posiada
tej gwarancji 3x3 przy 6z19 a jedynie 1x 3 przy 6z19
Minisistema 19 numeri in 14 colonne:

1 2 3 10 15 19
1 2 5 12 14 18
1 4 6 8 16 19
1 7 9 11 13 17
2 3 5 6 14 18
2 4 6 9 13 18
2 4 7 11 14 19
2 6 9 13 17 19
3 4 8 11 17 18
3 8 12 15 16 18
4 5 9 11 14 16
5 6 7 8 11 15
5 7 9 10 12 19
10 12 13 14 16 17
......................


to zaś można uzyskać już na 9 zakładach:

19,6,3,6=9

01 02 03 04 05 06
01 02 03 07 08 09
01 04 05 07 08 09
02 03 04 05 10 11
06 07 08 09 10 11
12 13 14 15 16 17
12 13 14 15 18 19
12 13 16 17 18 19
14 15 16 17 18 19
http://lottodesigns.altervista.org/FilesTXT/V19/19,06,03,06%20combs.txt
............
..................
Jak dotąd, to w 14-stu zakładach mam 2x 3 przy 6 z 19

C(19,6,2x3,6) = 14

01 03 04 08 11 16
01 04 05 07 09 13
01 04 06 17 18 19
01 05 11 13 17 19
01 06 07 11 15 16
01 08 09 11 15 18
02 03 06 09 11 14
02 04 10 12 14 15
02 05 13 14 16 18
02 07 08 14 17 19
03 05 13 15 17 19
03 07 10 11 12 18
05 06 08 10 12 13
09 10 12 16 17 19
...................

--- wpis edytowano 2021-04-27 15:51 ---

2021-04-27 (17:13)

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

14865
wpis nr 1 360 639
[ CZCIONKA MONOSPACE ]


777ch>

Spróbuj tego

https://uploadfile.pl/pokaz/2151936---37yl.html
2021-04-27 (18:36)

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

1386
wpis nr 1 360 644
[ CZCIONKA MONOSPACE ]

fair_play
Mam gości ,
więc pauza od kompa.
Zajrzę jutro do pliku,pobrałem.
2021-04-28 (12:18)

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

1386
wpis nr 1 360 786
[ CZCIONKA MONOSPACE ]

fair_play
hej
odinstalowałem z mojego lapka 2010
a na 2003 to nie smignie bo tej funkcji nie ma
RandBetween()

ale widzialem kod
pomysłowy z Ciebie gość.
pozdrawiam

--- wpis edytowano 2021-04-28 12:20 ---

2021-04-28 (12:43)

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

14865
wpis nr 1 360 788
[ CZCIONKA MONOSPACE ]

Dodaj w procedurach
Randomize

zamień linie:
kod = WorksheetFunction.RandBetween(1, kombinacji)

na
kod = Int(kombinacji * Rnd + 1)

i będzie gites

100 000 losowań bez powtórzeń trwa niecałe 5 minut.

--- wpis edytowano 2021-04-28 13:00 ---

2021-04-30 (09:33)

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

2623
wpis nr 1 361 068
[ CZCIONKA MONOSPACE ]

kleszek, Kabila się odgryzł na 3748
https://wheels.forumcommunity.net/?t=59501608&st=1290#entry451162510
2021-04-30 (12:24)

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

1386
wpis nr 1 361 094
[ CZCIONKA MONOSPACE ]

hejka

kleszek

C(47,18,4,4)=118[-2]
no i dalej...... d..a ....
ale jeszcze się nie poddałem
2021-04-30 (12:36)

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

14865
wpis nr 1 361 099
[ CZCIONKA MONOSPACE ]


777ch>

Uruchomiłeś po podmianie ?
2021-04-30 (12:42)

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

1386
wpis nr 1 361 102
[ CZCIONKA MONOSPACE ]

Hej

a przepraszam cię bardzo ..... zapomniałem
oczywiście ,działa prawidłowo .

Już muszę wyjść,ale niebawem wracam
mam pomysł ......może dla Ciebie
2021-04-30 (15:00)

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

1386
wpis nr 1 361 133
[ CZCIONKA MONOSPACE ]

fair_play

Chodzi mi po głowie coś.......
ale nie będę cie zanudzał ....zrobię sam
To dla sytuacji gdy osiagamy -1,-2,-3,czy ew max -10
a nie spada............lub po prostu widać że mamy sytuację trudną

chodzi o podmianę wszystkich par
w wskazanej linii
ale w taki oto sposób :

znajdujemy linie w których
można usunąć jedna liczbę
bez żadnego wpływu na wynik pokrycia......

tu mamy taką sytuację na obrazku
jest 6 linii w których po usunięciu
oczywiście procedurą.....
program pokazuje dalej wynik [-2]

wydaje mi się że tu ....własnie jest rozwiązanie
bo tylko te linie ostatnio maglowałem
dla poprzedniego rozpisu.......
czyli tego


chodzi o to żeby pozycję i liczbę
poprawiać tak aby ......
na miejsce liczby która nic nie "daje"
podać kolejno wszystkie nie występujące w linii
ale po zmianie liczby ..... bo u mnie one znikły
zobacz linia 2 do 7
czyli po wstawieniu do linni nr 2 pierwszej liczby
czyli liczby 3 i sprawdzeniu gwarancji
kolejne liczby wymieniać ......trzymajac tylko ta liczbe 3
a wszystkie inne podmieniać w taki sposób
za każdym razem sprawdzając gwarancje

krok .....3 wpada
sprawdzaj gwarancje
krok2 .....3 stoi a liczba pierwsza czyli 1 zmienia sie na 5 bo tej nie ma w linni 2
sprawdzaj gwarancje
krok3 .....3 stoi a liczba pierwsza czyli 1 zmienia sie na 6 bo tej nie ma w linni 2
i tak zmieniamy tylko pierwsza liczbę na wszystkie ktorych brak trzymajac liczbe
dostawiona czyli liczbe 3

potem zmieniamy druga liczbe czyli 2 adekwatnie na wszystkie których brak
cały czas trzymamy w rozpisie liczbe 3

i jak zmienimy 17 liczbe w drugiej linii czyli liczbę 46 na wszystkie mozliwe
zawsze zaczynajac od nr 1 .......... to

wtedy zmieniamy naszą liczbę 3 na kolejną której brak
czyli np na liczbę 4
i te liczbe trzymamy
a pozostałe zamieniamy
jak zwykle cały czas po każdej zmianie sprawdzając gwarancje

taki zabieg ma być wykonywany
na wszystkich liniach
w zakresie od linni nr x do linni nr y
czyli wiemy gdzie mamy linie
w których co najmniej usuniecie jednej liczby niczym nie skutkuje............

jak to zrobisz ...... o ile ci się będzie chciało
to przetestuj w excelu

jak to będzie działać ........
na pewno to zadziała ,ale
nie wiem czy w sytuacji -1 czy -2


być może trzeba będzie to włączać
tylko doraźnie
aby ...... po pewnej ilości zmian
znowu całość maglować

bo ci nie napisałem,za każdym razem
po każdej podmianie ,zostawiamy liczbę
nową jeśli po podmianie ......gwarancja => od hitu czy best gwarancji

te linie w których można usunąć liczbę w rozpisie
są jakby na celowniku ....... w moim kalendarzu .... hobby

pozdrawiam














2021-04-30 (15:24)

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

1386
wpis nr 1 361 139
[ CZCIONKA MONOSPACE ]

w korelacjach jest ta zamiana
ale zrobiona dla nn liczb
jakie są widoczne w oknie [czerwone ,niebieskie]
ale nie mam tego na takiej zasadzie jak opisałem
tylko na zasadzie zmian jak leci ......czyli chaotyczne zmiany


być może ,gdyby te zmiany były uporządkowane
jak to opisałem ......
to może znajdziemy "ustawienie" które daje [0]

ja na razie się za to nie biorę
ale jak napisałem.......
chodzi mi ....."po głowie"
2021-05-01 (16:03)

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

2047
wpis nr 1 361 341
[ CZCIONKA MONOSPACE ]

cyt. "kleszek

C(47,18,4,4)=118[-2] "

Podeślij, zobaczymy co da się zrobić
2021-05-01 (18:06)

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

1386
wpis nr 1 361 357
[ CZCIONKA MONOSPACE ]

Hej

masz w poczcie
powodzenia
2021-05-03 (17:52)

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

14865
wpis nr 1 361 755
[ CZCIONKA MONOSPACE ]


777ch>

Czy te liczby na obrazku we wpisie 1 361 133 są usunięte w liniach programowo, czy usunąłeś je manualnie dla zobrazowania o czym mówisz ?

Poza tym co to są Unique Numbers, których przy [-2] i k=18 jest więcej niż 36 ?
2021-05-03 (18:33)

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

1386
wpis nr 1 361 760
[ CZCIONKA MONOSPACE ]

Usunął liczby program po ich znalezieniu
Unique zrobiłem w ten sposób
aby pojawił się zbiór po zapytaniu o list 2,3,4,5,6,7,8
ale również po zapytaniu list
przy ustawieniu x-razy w maska(adres)

teraz nie wiem co tam wpadło na listę
bo sprowadzam np.listę 1x 4w5
a tu może zdziwisz się ...czasem po wprowadzeniu
do własnych danych x-razy ..np: 6x4w5
nagle rusza ...czyli zjeżdżamy niżej
bo np liczby z braków mieli na okrągło
i nic się nie zmienia ...
2021-05-03 (18:48)

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

2047
wpis nr 1 361 761
[ CZCIONKA MONOSPACE ]

777ch, nie udało mi poprawić ten rozpis C(47,18,4,4)=118[-2]
2021-05-03 (18:56)

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

1386
wpis nr 1 361 762
[ CZCIONKA MONOSPACE ]

To nic
wiem jak trudno było uzyskać [-2]
jednak ....wciąż mam nadzieję
jeszcze się nie poddałem ,
choć nie próbowałem po przesłaniu go do Ciebie
może spróbuję jeszcze kilka ustawień,
potem ....będzie trza wywiesić 🏳️
2021-05-03 (19:05)

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

14865
wpis nr 1 361 763
[ CZCIONKA MONOSPACE ]



"zobacz linia 2 do 7
czyli po wstawieniu do linni nr 2 pierwszej liczby
czyli liczby 3 i sprawdzeniu gwarancji
kolejne liczby wymieniać ......trzymajac tylko ta liczbe 3
a wszystkie inne podmieniać w taki sposób
za każdym razem sprawdzając gwarancje"

Czyli reasumując podmieniać pary a nie pojedyńcze liczby.

"i tak zmieniamy tylko pierwsza liczbę na WSZYSTKIE ktorych brak trzymajac liczbe
dostawiona czyli liczbe 3"

Wszystkie, nawet takie, których nie ma w brakach ?
2021-05-03 (19:07)

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

1386
wpis nr 1 361 768
[ CZCIONKA MONOSPACE ]

Ha ...liczyłem jakieś dane dla multi
a program ma pamięć ostatnich unique
bo czasem całą linię unique wstawiam
a inna ..wylatuje
2021-05-03 (19:14)

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

1386
wpis nr 1 361 769
[ CZCIONKA MONOSPACE ]

Oczywiście że tak

to chodzi o to że jedna zmiana spowodować może
wzrost +1 w adresie [xxxl] co nie przyniesie zmian w gwarancji
ale kolejna zmiana w innej linii
zamieni jedną liczbę może składową właśnie
z tego adresu[xxxl] co nie obniży gwarancji
a inna liczba podmieniona w tej samej linii
pokryje adres[0]

To takie kółko i krzyżyk
...tylko bardziej skomplikowane
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 461 462 463 ... 560 561
Wyślij wiadomość do admina