Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 10 11 12 ... 33 34
Wyślij wiadomość do admina

Przewiń wpisy ↓

Unikatowe KOMBINACJE.. od wielu los. oczekujące na min. wypłacalne

2022-05-17 (20:52)

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

1386
wpis nr 1 418 251
[ CZCIONKA SPECJALNA ]

Jacek_K1961
Ja przestraszyłem się tych ilości 300.500.200 6-tek do sprawdzania
------------------

To naprawdę najprostsze.
Wyliczyć csn 6 ,oznaczyć jako true
i liczydłu pozwalać -->"biec" tylko przy każdym segmencie 6z10 który jest na false
--> polecam ten sposób


-- Gwar.6 if [6] --
C(80,20,6,6)=83,2508334437049 % brak[50331279]
Brak {50331279}
Sprawdzono zbiór = 300500200 kombinacji
Gwar..[6]= 83,2508334437049 %

czas obliczeń 13s
Czyli w tym czasie program zamienił 13862 losowania po 20 liczb
na 6-ki i podał ile brakuje i ile jest pokryte

pozdrawiam
2022-05-18 (20:59)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 378
[ CZCIONKA SPECJALNA ]

777ch
... a tak z ciekawości jaką metodę Pan wybrał do zamieniania 20-ki na 6-ki? Jeżeli to nie tajemnica.
Pozdrawiam.

P.S. co oznacza skrót csn? cyt."Wyliczyć csn 6 ,oznaczyć jako true"

P.S.2 Co do mojego poziomu, to bym określił amatorski, ale te statystyki lotka robię tylko na tablicach 0/1

--- wpis edytowano 2022-05-18 21:08 ---

2022-05-18 (21:29)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 387
[ CZCIONKA SPECJALNA ]

Całą tą logikę programu kumam ale ....
- cyt. "druga sprawa to szybkość kodowania liczb na index i odwrotnie.... jeśli tego nie potrafisz ,toś raczej .....przepadł.
... i przepadłem i muszę kombinować inaczej.
Pozdrawiam.

P.S. To kodowanie pod jakim hasłem szukać w opisach programowania?
P.S. 2 ... ale się nie spodziewałem, że wyświetlanie pierwszych 4 liczb z dziesięciu w okienku tekstowym aż tak spowalnia program.

--- wpis edytowano 2022-05-18 21:43 ---

2022-05-18 (22:45)

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

1386
wpis nr 1 418 408
[ CZCIONKA SPECJALNA ]

Jacek_K1961


csn,index
--> pisano o tym na tym forum i nie tylko
szukaj...

https://forum.multipasko.pl/2872?page=31&sort=&dir=

https://lottoforums.com/threads/csn.3812/


Mój program jest kompilacją w Object Pascal,
mam to zrobione w inny sposób ,ale podobnie,
współpraca funkcji z procedurami .

Wybacz,ale nie wstawię rozwiązania gotowego,
czyli codu w Paskalu.



Może wstawię jakieś makro w vb
ale nie dziś....nie teraz .
2022-05-19 (13:15)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 474
[ CZCIONKA SPECJALNA ]

Mam wadę, że jestem zbyt ambitny i wolę sam dojść, dlatego obrzydza mnie np. Java gdzie korzysta się z gotowych apek, czy jak tam się to nazywa. Ciekawy jestem więc zobaczę te wpisy na forach. Dzięki.
Pozdrawiam
2022-05-19 (13:44)

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

1386
wpis nr 1 418 481
[ CZCIONKA SPECJALNA ]

Mam tą wadę od lat .

Widzę w tym pozytywny aspekt,
gdybym zrobił według znalezionych wzorców ,
nie uzyskał bym nic .....nowego.

pozdrawiam
2022-05-19 (21:25)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 529
[ CZCIONKA SPECJALNA ]

Na starcie problem. Zadeklarowałem tablicę 300500200 i po starcie programu komunikat że za duża.
System.OutOfMemoryException: „Zgłoszono wyjątek typu 'System.OutOfMemoryException'.”

... ale z ciekawości puszczę obliczenie 6z10 bez pokazywania wyników na ekranie. Z układu 1,2,3,4 itd do 10, drugą liczbę z wartości 2 na 3 zmienił po 8 minutach. Bez żadnego sprawdzania zliczenie kombinacji 1,2,3,4,5,6,7,8,9,10 do 71,72,73,74,75,76,77,78,79,80 trwa może z sekundę.

--- wpis edytowano 2022-05-19 21:39 ---

2022-05-19 (23:19)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 4888

16235
wpis nr 1 418 540
[ CZCIONKA SPECJALNA ]

Duże tablice odpala bez problemu.

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

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
tab1:array [1.. 300500200] of byte;
tab2:array [1.. 300500200] of boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tab1[10000000]:=1;
tab2[300500200]:=true;
showMessage('OK');
end;

end.
2022-05-20 (12:37)

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

1386
wpis nr 1 418 590
[ CZCIONKA SPECJALNA ]

Jacek_K1961
Na starcie problem.

-------------------
Musisz najpierw ogarnąć
gruntownie podstawowy zakres wiedzy .

A po ....10000 kompilacji
już będzie wszystko proste.

powodzenia
2022-05-20 (21:14)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 651
[ CZCIONKA SPECJALNA ]

Pętle z warunkami, skoki całą tę logikę mam opanowaną. Od dłuższego czasu szukam, ale nic nie mogę znaleźć - jakiejś książki do Visual Basicu > 2015. Po polsku. Szukam konkretnych rozwiązań problemów z którymi nigdy wcześniej nie walczyłem. Jak wynika z nicku mam 61 na karku, ale sam wiek to nie problem. Niestety nigdy nie brałem programowania na poważnie ze względu na chorobę i statystycznie prognozowane 5-6 lat życia. Udało się przeżyć 30 lat. Niestety pamięć mam bardzo kiepską ze względu na zniszczenia spowodowane przez udar. Zaczynałem 30 lat temu pisząc sobie małe wspomagające programiki do totka na Atari XL i tak się w to bez perspektyw myślenia o przyszłości jakoś amatorsko wkręciłem. Teraz już zdrowie coraz bardziej szwankuje i na naukę od podstaw i oczywiście rozsądne opanowanie "inglisz" jest zbyt późno. Mam pomysły, ale nieraz tych podstaw brakuje, tych których nigdy wcześniej nie potrzebowałem. Możecie się śmiać, nie znam metody otwierania pliku z wyszukiwaniem na dyskach, czyli podstawy, bo zawsze pisałem konkret dla siebie np. ... dysk C:\lotto\multi.txt. Gdybym pisał cosik dla kogoś to wtedy bym zapewne to pisał z zamkniętymi oczami. 30 lat sobie coś tam kleciłem i dla pewności sprawdzałem np. w Excelu i wszystko czego potrzebowałem udawało się jakoś napisać bez tych podstaw, ale nie przeczę, że musiałem zaglądać do książek o VB, ale te wszystkie tytuły to sprzed lat ... 15.
Pozdrawiam

--- wpis edytowano 2022-05-20 21:16 ---

2022-05-20 (23:41)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 677
[ CZCIONKA SPECJALNA ]

Czemu wtedy nie chciały się te tablice 300500200 otworzyć? Chyba miałem za dużo pootwieranych rzeczy, arkusze w Excelu, internet plus brzdąkała muzyczka w tle o której zapomniałem. Teraz wszystko liczy i jest faktycznie taka duża.
Pozdrawiam

--- wpis edytowano 2022-05-20 23:42 ---

2022-05-21 (12:42)

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 2086

13559
wpis nr 1 418 720
[ CZCIONKA SPECJALNA ]

2022-05-20 (23:41)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 261

15220
wpis nr 1 418 677

Czemu wtedy nie chciały się te tablice 300500200 otworzyć? Chyba miałem za dużo pootwieranych rzeczy, arkusze w Excelu, internet plus brzdąkała muzyczka w tle o której zapomniałem. Teraz wszystko liczy i jest faktycznie taka duża.

*************************************

Z w/w opisu wynika, że brakuje ci czegoś takiego co się nazywa pamięć RAM.
2022-05-21 (22:06)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 793
[ CZCIONKA SPECJALNA ]

16giga pamięci starcza, ale jak uruchomiłem tego dodatkowego zbyt dużo to i te 16 RAM-u widać było zbyt mało. Chociaż myślę, że jak dodam jeszcze jedną 16-kę to nie zaszkodzi i będzie można puścić kilka obliczeń równolegle.
Pozdrawiam
2022-05-21 (22:30)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20462

3794
wpis nr 1 418 796
[ CZCIONKA SPECJALNA ]

Hej

16 GB to spokojnie można operować na tablicy 8/80

Robiłem to w C++ (tablica bitowa).

Niestety przez kodowanie CSN obsługa takiej tablicy jest wolna.


Pozdrawiam
2022-05-21 (23:05)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 4888

16235
wpis nr 1 418 799
[ CZCIONKA SPECJALNA ]

Jacek_K1961
Jaka jest deklaracja tej tablicy (typ danych) ?

--- wpis edytowano 2022-05-21 23:10 ---

2022-05-21 (23:38)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 805
[ CZCIONKA SPECJALNA ]

To była tylko próba a tablica T(300500200, 1) as Byte.
Pozdrawiam
P.S. Jak powyłączałem uruchomione programy to poszło bez problemu. Tylko wpisałem żeby liczył pętlę, puściłem licznik od 1,2,3,4,5,6 do 75,76,77,78,79,80, było około 1,5 sekundy, bo to była tylko taka próba.
P.S.2 ... a książka, którą mam o wersji VisualBasic 2015 ma "AŻ" 4 strony o tablicach.

--- wpis edytowano 2022-05-21 23:41 ---

2022-05-22 (15:54)

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 2086

13559
wpis nr 1 418 891
[ CZCIONKA SPECJALNA ]

@Jacek_K1961

Pętla od 1 do 80 wykonuje się na twoim komputerze 1,5 sekundy!?
- czy ty używasz tego twojego Atari XL do obliczeń?

Pozdrawiam
PS.
Jak chcesz to podaj nam specyfikację swojego kompa.
2022-05-22 (22:32)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20462

3794
wpis nr 1 418 941
[ CZCIONKA SPECJALNA ]

Lottonauta, Jacek_K1961 liczył pętlę 6/80

Ja sprawdziłem pokrycie siódemek.

Wczytano : 13873 Los.ML
Pokrycie 7/80
Wylosowano 2264509053
Pozostało 912207347
Czas wykonywania: 00:00:29
2022-05-22 (22:51)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 2610

15220
wpis nr 1 418 944
[ CZCIONKA SPECJALNA ]

Tak "opisowo" szkic pętli, bez dodatków jak zamykanie itp. O tej technice kodowania CSN o co biega tak w zarysie gdzie można poczytać coś bardziej szczegółowe po polsku? Te linki 777ch mało mówią?
Te 1,5 sekundy tak bardziej na oko.
Data = Now : WriteLine(2, Data) nie wpisałem w programik.
zdjęcie

--- wpis edytowano 2022-05-22 22:59 ---

2022-05-22 (22:57)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20462

3794
wpis nr 1 418 945
[ CZCIONKA SPECJALNA ]

Zainstaluj sobie Microsoft Visual Studio Community 2022 (64-bitowy)
Pisz programy lotto w c++
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 10 11 12 ... 33 34
Wyślij wiadomość do admina