Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 346 347 348 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-13 (14:26)

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

14865
wpis nr 1 292 619
[ CZCIONKA MONOSPACE ]

777ch>

Zakładów: 52
Czas obliczeń: 37,3359400sek.
Kombinacji: 6 096 454
Brak: 1156914
Gwarancja: 81,023165270%

W excelu 2007 maksymalnie mamy do dyspozycji 1 048 576 wierszy więc listować musiałbym na raty, ale to chyba nie ma sensu.

Interesujący Cię fragment listingu wygląda tak:


1 8 14 23 24 26
1 8 14 23 24 32
1 8 14 23 24 42
1 8 14 23 24 43
1 8 14 23 26 28
1 8 14 23 26 30
1 8 14 23 26 32
1 8 14 23 26 35
1 8 14 23 26 36
1 8 14 23 26 37
1 8 14 23 26 41
1 8 14 23 26 42
1 8 14 23 27 28
1 8 14 23 27 32
1 8 14 23 27 36
1 8 14 23 27 42
1 8 14 23 28 30
1 8 14 23 28 35
1 8 14 23 28 40
1 8 14 23 28 41
1 8 14 23 28 43
1 8 14 23 29 30
1 8 14 23 29 32
1 8 14 23 29 35
1 8 14 23 29 41
1 8 14 23 29 42
1 8 14 23 30 31
1 8 14 23 30 32
1 8 14 23 30 36
1 8 14 23 30 42
1 8 14 23 30 43
1 8 14 23 31 32
1 8 14 23 31 35
1 8 14 23 31 41
1 8 14 23 31 42
1 8 14 23 32 35
1 8 14 23 32 37
1 8 14 23 32 40
1 8 14 23 32 41
1 8 14 23 32 43
1 8 14 23 35 36
1 8 14 23 35 42
1 8 14 23 35 43
1 8 14 23 36 40
1 8 14 23 36 41
1 8 14 23 36 43
1 8 14 23 37 42
1 8 14 23 37 43
1 8 14 23 40 42
1 8 14 23 41 42
1 8 14 23 41 43
1 8 14 23 42 43


To samo możesz uzyskać uruchamiając procedurę gwarancje6() w przesłanym wczoraj pliku.

--- wpis edytowano 2020-05-13 14:35 ---

2020-05-13 (14:34)

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

1386
wpis nr 1 292 621
[ CZCIONKA MONOSPACE ]

fair_play

Chciałem przyspieszyć
i to wynik .......
nie zrobiłem tak

//-------------------------- jedziemy liczba5
For x5 := x4 + 1 To g - 1 do begin //lecimy od 5-ej liczby do ostatniej -1
l5 := tabrand[y][x5];
If os - l5 > 1 Then begin
adr5 := adr4 - Combination(os - l5, 2); //instrukcja adresu->5
end
else
begin
adr5 := adr4;
end;//endif


tylko .......skróciłem trochę
//-------------------------- jedziemy liczba5
For x5 := x4 + 1 To g - 1 do begin //lecimy od 5-ej liczby do ostatniej -1
If os - tabrand[y][x5] > 1 Then begin
adr5 := adr4 - (Combination(os - tabrand[y][x5], 2)); //instrukcja adresu->4

no i jednak muszę to poprawić
bo wersja "dłuższa"...... działa prawidłowo
tak to jest iść na skróty ......bez dokładnego sprawdzenie
a ....... wymaga precyzji


VABANK23

Link do pliku: testy cover.xls
https://wrzucplik.pl/pokaz/2035241---znq4.html

2020-05-13 (14:43)

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

14865
wpis nr 1 292 624
[ CZCIONKA MONOSPACE ]



A Combination() liczysz po swojemu czy po mojemu ?
2020-05-13 (14:54)

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

1386
wpis nr 1 292 625
[ CZCIONKA MONOSPACE ]

fair_play

Zrobię test która szybsza ,ale nie teraz
liczę po swojemu
2020-05-13 (16:01)

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

2623
wpis nr 1 292 638
[ CZCIONKA MONOSPACE ]

VABANK23,
odnośnie wzoru do ilości kombinacji w systemach V=k,t,m=b
(przy próbach poprawienia aktualnego rekordu i na jego bazie
a z odwołaniem się do rekordu V-1)
to jest on zawarty np. w tym włoskim programie
Costruzione semplice combinata.rar
https://www.dropbox.com/sh/i0ji0bbglp8t7ot/AAA3wfo04NVkFlrTD3JrW4Toa?dl=0&preview=Costruzione+semplice+combinata.rar

Pozdrawiam
2020-05-13 (16:43)

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

1386
wpis nr 1 292 645
[ CZCIONKA MONOSPACE ]

fair_play

zrobiłem kilka testów
i za każdym razem coś nie pasuje do.....założeń
np

maska[adr6]:= maska[adr6]+1 ;

wczytałem do żółtka losowania Multi łącznie z dzisiejszym
i zmieniłem tak w listingu 6-ek
aby wypisał


ileminwyst--> ustawiłem na 12
aby uzyskać tylko szóstki które wyst conajmniej 12x

brak := 0 ;
For yw := 1 To adr0 do begin
If ((maska[yw] >= ileminwyst)and(ileminwyst>0)) or ((maska[yw] = ileminwyst)and(ileminwyst=0)) Then begin
inc(brak);
if brak<=35000 then index6 := liczbcovy_6(yw, brak);
end;end;


01 04 17 34 72 76
01 11 32 34 67 80
01 21 24 26 31 78
02 05 18 41 57 64
02 14 16 26 48 77
02 14 23 31 60 73
02 32 42 66 70 74
03 06 09 13 51 60
03 17 21 26 27 49
04 15 30 36 48 74
05 09 18 57 64 80
05 11 12 20 43 74
05 11 51 57 65 74
05 24 35 63 70 72
05 29 53 58 69 76
06 18 28 29 31 53
06 30 43 74 68 78
06 31 48 54 66 77
07 09 31 38 53 69
07 22 69 70 71 79
07 34 48 61 66 68
08 10 14 26 35 57
08 21 29 62 74 77
09 40 44 66 67 68
10 15 22 59 72 75
10 39 40 41 42 48
11 23 24 33 40 74
12 25 48 52 65 71
14 26 29 47 57 70
14 29 31 42 57 73
15 19 36 39 68 79
16 18 19 23 36 65
16 59 62 63 76 80
17 37 46 63 68 70
19 21 31 58 65 77
20 21 34 49 68 69
20 21 37 53 62 68
20 39 60 62 72 75
24 26 29 35 44 71

i jedna się nie zgadza botu jest hist 6|6 tylko 6x
06 30 43 74 68 78



a te mają po 13x 6|6

5 11 51 57 65 74
7 22 69 70 71 79
15 19 36 39 68 79
24 26 29 35 44 71

chyba moja Combination się nie nadaje
do twoich adresów

czyli nie koniec z poprawkami.....


2020-05-13 (17:15)

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

2623
wpis nr 1 292 648
[ CZCIONKA MONOSPACE ]

VABANK23,
same wzory na permutację wyników znajdziesz np. tu:
http://www.math.hawaii.edu/~hile/math100/combb.htm
bo z kalkulatorami do ich obliczania nie ma w necie problemu.
..............
In horse racing, a trifecta is a type of bet. To win a trifecta bet,
you need to specify the horses that finish in the top three spots
in the exact order in which they finish. If eight horses enter the
race, how many different ways can they finish in the top three spots?
https://stattrek.com/probability/combinations-permutations.aspx
......................

Tu dawny wpis kolegi kleszka:
"Na tej stronie jest makro generujące kombinacje i permutacje
z zadanego zbioru. Kiedyś tego używałem:
https://www.ozgrid.com/forum/forum/help-forums/excel-general/18812-permutation-combinations?t=28321 "

--- wpis edytowano 2020-05-13 17:20 ---

2020-05-13 (17:17)

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

1386
wpis nr 1 292 649
[ CZCIONKA MONOSPACE ]

-- Gwar.6 if [6] --test Fairplay Function kombinuj

C(80,40,6,6)=14,4268266709972 % brak[257147557]
Brak {257147557}
Sprawdzono zbiór = 300500200 kombinacji
Gwar..[6]= 14,4268266709972 %
Time calculated : 3191,264 ms..by fairplay




-- Gwar.6 if [6] --test Function Combination

C(80,40,6,6)=14,4268266709972 % brak[257147557]
Brak {257147557}
Sprawdzono zbiór = 300500200 kombinacji
Gwar..[6]= 14,4268266709972 %
Time calculated : 3134,794 ms..by fairplay


Function kombinuj(n,k: Cardinal): int64;
var
mianownik,licznik: Double;
i:Cardinal;
begin
licznik := 1 ;
mianownik := 1 ;

For i := 1 To k do begin
licznik := licznik * (n + 1 - i);
mianownik := mianownik * i ;
end;
Result := Round(licznik / mianownik) ;
end;



edit

Czasy podobne

zobaczymy czy wypis szóstek będzie identyczny
ale na innym zbiorze

--- wpis edytowano 2020-05-13 17:19 ---

2020-05-13 (17:25)

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

14865
wpis nr 1 292 651
[ CZCIONKA MONOSPACE ]

Jeżeli czasy przy kilkukrotnym uruchomieniu programu sprawdzającego tę samą funkcję (procedurę) nie są identyczne to trudno ocenić jakie akurat w danej chwili wystąpiły zjawiska zewnętrzne przy porównywaniu dwu różnych funkcji.

--- wpis edytowano 2020-05-13 17:26 ---

2020-05-13 (17:28)

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

1386
wpis nr 1 292 652
[ CZCIONKA MONOSPACE ]

To prawda , ale pi razy drzwi to samo
na takim sprawdziłem
01 04 06 08 09 15 17 19 24 26 27 29 31 33 34 36 42 43 46 47 49 51 52 53 57 58 60 63 64 65 66 67 68 69 71 72 74 77 78 79
01 05 07 08 10 13 15 19 20 21 22 23 26 27 28 30 33 39 40 45 46 47 48 50 53 54 57 58 59 62 65 66 67 69 71 72 73 77 79 80
01 02 04 05 07 11 12 15 17 19 20 21 22 25 27 29 31 32 33 39 42 43 44 45 47 48 53 54 60 61 62 63 64 67 68 69 70 73 74 77
02 03 04 06 08 09 10 11 18 20 22 24 28 29 31 32 33 35 37 38 40 41 43 44 46 49 50 52 53 54 56 57 58 60 65 70 71 74 79 80
01 03 06 09 10 11 12 14 15 16 17 18 20 21 22 23 26 28 29 31 32 35 37 38 40 42 45 51 53 58 59 60 62 68 69 73 74 75 76 80
02 03 09 10 11 12 14 15 17 19 23 24 27 28 31 33 36 39 40 42 45 50 51 52 54 57 60 61 63 65 67 68 70 73 75 76 77 78 79 80
03 04 06 07 08 11 13 17 18 19 23 25 28 30 32 34 35 36 37 41 42 45 48 49 50 51 53 54 55 57 60 61 62 65 70 71 72 75 77 79
01 05 07 08 18 19 20 22 23 26 28 29 34 35 36 38 40 44 45 49 52 54 55 56 57 59 60 63 64 65 69 71 72 74 75 76 77 78 79 80
04 06 07 10 12 13 14 16 19 20 24 26 31 32 33 34 35 36 37 39 42 43 47 49 52 57 60 61 63 65 66 67 70 71 72 73 75 76 77 78
01 03 06 07 09 10 12 15 17 19 21 22 23 24 25 27 30 32 33 34 36 37 38 40 41 42 45 47 48 49 53 58 64 65 70 71 73 75 78 80
02 04 06 07 08 09 10 18 20 21 22 23 24 25 26 32 33 34 35 36 37 38 41 42 44 46 48 49 53 57 58 59 60 64 66 67 68 73 78 79
02 04 05 06 07 11 14 16 17 19 21 22 24 26 32 33 35 37 38 39 41 48 49 51 54 57 58 59 62 63 64 65 66 68 70 72 74 75 76 80



teraz za chwilę wyliczę jakiś z brakiem kilkunastu szóstek
i sprawdzimy wypis 6-ek
dla obu wersji funkcji............
2020-05-13 (17:42)

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

1386
wpis nr 1 292 654
[ CZCIONKA MONOSPACE ]

no i nic nie znalazłem
Obie funkcje wypisały tosamo
Brak {1536}
wkleiłem dane do excela
i wszystko się pokrywa ..........
czyli nic nie znalazłem


coś mi tu nie pasuje jednak.......
tylko nie wiem co ?

--- wpis edytowano 2020-05-13 17:42 ---

2020-05-13 (17:43)

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

14865
wpis nr 1 292 655
[ CZCIONKA MONOSPACE ]


czyli szukasz dziury w całym ?
2020-05-13 (17:56)

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

1386
wpis nr 1 292 658
[ CZCIONKA MONOSPACE ]

-- Gwar.6 if [6] --test Fairplay Function kombinuj
C(80,20,6,6)=79,754922292897 % brak[60836499]
Brak {60836499}
Sprawdzono zbiór = 300500200 kombinacji
Gwar..[6]= 79,754922292897 %
.
.
.
.
.
.
.
Time calculated : 27970,302 ms..by fairplay



-- Gwar.6 if [6] --test Fairplay Function Combination
C(80,20,6,6)=79,754922292897 % brak[60836499]
Brak {60836499}
Sprawdzono zbiór = 300500200 kombinacji
Gwar..[6]= 79,754922292897 %
.
.
.
.
.
.
.
Time calculated : 26239,762 ms..by fairplay


Zrobiłem test na wypis 6-ek dla Multi
pierwsze 35 tysięcy nigdy nie wylosowane

obie funkcje dały identyczny wypis.......

mam dość


2020-05-13 (17:59)

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

1386
wpis nr 1 292 659
[ CZCIONKA MONOSPACE ]

No ......ale mnie to zmęczyło .
no i nic nie znalazłem
więc .......... na razie
odpuszczam ....
i opuszczam temat
Muszę się.... przewietrzyć .
2020-05-13 (18:01)

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

14865
wpis nr 1 292 661
[ CZCIONKA MONOSPACE ]


a możesz napisać czego szukasz, a nie znalaześ ?
2020-05-13 (18:04)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 292 663
[ CZCIONKA MONOSPACE ]

@fair_play
W watku 777ch jestem gosciem. Zapraszam Cie do dyskusji do tego watku : https://forum.multipasko.pl/n_viewtopic.php?id=5396&last=1

Pozdrawiam
2020-05-13 (18:09)

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

1386
wpis nr 1 292 666
[ CZCIONKA MONOSPACE ]

fair_play
Dziury w całym

Widziałem wczoraj wypis z tablicy liczby --> 00
po poprawkach nie mogę tego znaleźć
to dobry znak.........
2020-05-13 (18:14)

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

14865
wpis nr 1 292 667
[ CZCIONKA MONOSPACE ]

widziałeś liczby 00 w piątej kolumnie wypisu, ponieważ nie odczytałeś piątej liczby z matrycy opuszczając w funkcji linię :
l5 := tabrand[y][x5];

dlatego l5 było zerowe.

odpocznij jak masz dość

Prawidłowy listing w tym fragmencie to:

1 8 14 23 24 43
1 8 14 23 28 43
1 8 14 23 30 43
1 8 14 23 32 43
1 8 14 23 35 43
1 8 14 23 36 43
1 8 14 23 37 43
1 8 14 23 41 43
1 8 14 23 42 43


jeśli wyzerować 5 kolumnę to miałeś powtórzone 9 razy:

1 8 14 23 00 43

--- wpis edytowano 2020-05-13 18:23 ---

2020-05-13 (18:23)

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

1386
wpis nr 1 292 670
[ CZCIONKA MONOSPACE ]

Widziałem też liczbę [83] w wypisie 6-ek
a cover to była baza MULTI czyli v =80
i to mnie ......zdziwiło
no ale rzeczywiście mam dość

to co mi wysłałeś to zostawiam na
-->jakiś lepszy moment
2020-05-13 (18:30)

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

14865
wpis nr 1 292 672
[ CZCIONKA MONOSPACE ]


83 mogłeś widzieć przed poprawieniem błędu w procedurze listującej 6-ki, który wskazałem.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 346 347 348 ... 554 555
Wyślij wiadomość do admina