Turbo Pascal dla zielonych

Przewiń wpisy ↓	Turbo Pascal dla zielonych
2019-12-29 (21:49) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850	wpis nr 1 264 501 [ CZCIONKA SPECJALNA ] Po testach z programem sindbada wychodzi, że ostatnie piątki wypadną między 26 tys a 29 tys losowań. Jeszcze trochę więc poczekamy Dzięki za kod. Warto wiedzieć co w losie piszczy.
2019-12-30 (15:40) Molek Data rejestracji: 2005-12-12 Ilość postów: 4791	wpis nr 1 264 615 [ CZCIONKA SPECJALNA ] Witam Sindbad, a może dokonać pokrycia zerowych w jak najmniejszej ilości Losowań (20 liczb)? Wczytać z pliku Zerowe i zapisanie wyniku do pliku TXT. pozdrawiam --- wpis edytowano 2019-12-30 15:42 ---
2019-12-30 (17:25) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 264 637 [ CZCIONKA SPECJALNA ] Witam. Według mnie tylko generator, który zrobi mniej powtórek będzie miał lepszy wynik. Tu jest losowanych 20/80 to jest zapotrzebowanie na dobry generator. Sprawdzę jeszcze generator ISAAC, ale wątpię żeby zszedł poniżej 26000 losowań. Pozdrawiam
2019-12-30 (17:27) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850	wpis nr 1 264 638 [ CZCIONKA SPECJALNA ] Najmniej udało mi sie uzyskać 24271
2019-12-30 (18:11) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 264 642 [ CZCIONKA SPECJALNA ] Nawet 24 000 to jeszcze kolosalny ogon, ale to już coś he! Ze wzoru pokrycie 6/49 to było coś około 90 000 000 a w testach wychodziło mi ponad 200 000 000 milionów. Coś te nasze generatory słabe jakieś czy co. O! Wy Kleszek macie maszynki do pokryć. Ciekawi mnie ilość zakładów w systemie 5/20/80. --- wpis edytowano 2019-12-30 18:17 ---
2019-12-30 (18:25) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 264 645 [ CZCIONKA SPECJALNA ] Proszę>> https://zachowajto.pl/!mymNX8UUysKn/c-80-5-5-20-20730-txt
2019-12-30 (18:37) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 264 649 [ CZCIONKA SPECJALNA ] Serdeczne dzięki. A więc nasze generatory nie są takie złe, choć dużo im brakuje do tego wyniku 20730. Pozdrawiam
2021-03-23 (00:38) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 354 006 [ CZCIONKA SPECJALNA ] Jak napisać algorytm na dowolny system strefowy?
2021-03-23 (01:01) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 354 012 [ CZCIONKA SPECJALNA ] Coś mi świta, że było to Y-1, X+1 po ostatnim elemencie w X. Y - wiersz X - kolumna Pozdrawiam
2022-06-09 (23:13) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 421 564 [ CZCIONKA SPECJALNA ] Siema Ciekawi mnie jak wykorzystać wielowątkowość w obliczeniach gier lotto. Czy macie jakieś doświadczenia z programem wielowątkowym?
2022-06-25 (21:24) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 423 916 [ CZCIONKA SPECJALNA ] Cześć Wielowątkowość działa (8/8). Procesory biegają na 100% Przyśpieszenie pięciokrotne. Szukam szybkiej funkcji CSN.
2022-06-25 (22:53) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 4888	wpis nr 1 423 936 [ CZCIONKA SPECJALNA ] Sindbad Używałeś już jakiegoś Csn Którego ? Chcesz innego w C++ ?
2022-06-25 (22:58) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 423 938 [ CZCIONKA SPECJALNA ] Ja używam w Pascalu własnego numerowania kombinacji, ale szukam szybszego. Pascal lub C++
2022-06-30 (00:01) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 424 653 [ CZCIONKA SPECJALNA ] No i nic a nic z tym CSN
2022-06-30 (03:40) Lottonauta Data rejestracji: 2012-09-03 Ilość postów: 2083	wpis nr 1 424 660 [ CZCIONKA SPECJALNA ] > No i nic a nic z tym CSN Cześć, Jakiś czas temu rozmawialiśmy o tym w innym wątku i poza kodem Amadeusa nie znam jakiegoś super aglorytmu. na teraz pomysły to: - optymalizować kod na wiele rdzeni. Pozdrawiam
2022-07-02 (16:39) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 425 074 [ CZCIONKA SPECJALNA ] To jest ta funkcja Function COMB2CSN(Const DrawBuf; Const N,K:integer): int64; { Returns index of combination stored in DrawBuf } Var Counter: integer; Index: int64; Buf : Array[1..1] Of Byte Absolute DrawBuf; Begin Index := Combinations[N,K]; For Counter := K Downto 1 Do If (N - Buf[Counter]) > (K - Counter) Then Index := Index - Combinations[N - Buf[Counter],(K + 1) - Counter]; Result := Index; End;
2022-07-02 (23:57) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 425 112 [ CZCIONKA SPECJALNA ] Już widzę, że jest porównanie (if). Należ się pozbyć wszystkiego, co spowalnia funkcję. Następne Result := Index; To tak jakby napisać Result := Result; --- wpis edytowano 2022-07-02 23:59 ---
2022-07-03 (00:46) Lottonauta Data rejestracji: 2012-09-03 Ilość postów: 2083	wpis nr 1 425 116 [ CZCIONKA SPECJALNA ] odn. Result := Index; z tego co wyczytałem jest to patologia Delphi i oznacza powrót z funkcji z odłożeniem Indeks na stos. W klasycznym Pascalu będzie to: COMB2CSN := Indeks a w C: return(Indeks)
2022-07-03 (22:16) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20462	wpis nr 1 425 255 [ CZCIONKA SPECJALNA ] Funkcja jest do przerobienia.
2022-07-04 (11:31) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 4888	wpis nr 1 425 298 [ CZCIONKA SPECJALNA ] ułamki też można skracać ...


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 29 30 31 Wyślij wiadomość do admina Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]