Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 414 415 416 ... 560 561
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-08-24 (11:42)

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

1386
wpis nr 1 310 849
[ CZCIONKA MONOSPACE ]

no tak.....albo to co pozostało

C(90,13,4,4)=7463
C(83,13,4,4)=5391
C(88,13,4,4)=6819

jak widać ...skromnie

--- wpis edytowano 2020-08-24 11:44 ---

2020-08-24 (12:43)

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

1386
wpis nr 1 310 852
[ CZCIONKA MONOSPACE ]

ktoś kto bardzo dużo rekordów zgłosił
--> Rade Belic


Top Contributors
...
...
...
[4]Colin Barker 321
...
...
[21]Rade Belic 29

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

All-time Contributors
...
...
...
[8]Rade Belic 1441
...
[12]Colin Barker 457


2020-08-24 (12:59)

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

14865
wpis nr 1 310 854
[ CZCIONKA MONOSPACE ]


a ile pojedyńczych nazgłaszali chińczycy ?
2020-08-24 (13:39)

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

1386
wpis nr 1 310 856
[ CZCIONKA MONOSPACE ]

Pewnie sporo

fair_play....luknij na ta treść-------- poniżej

Na razie nie mam automatu dla [polinii]
nie podoba mi się to sprawdzanie ,
a przynajmniej to ..... co mam na teraz

to jest tak ...przykład dla 5-ek

------przed---------

inc(weryf1);// zapamiętuje stary adres linii pod num. zmiennej --> weryf1

if (adr5>0)and(maska[adr5]=1) then maska[adr5]:= 0 ;//zmni wyst.1x na 0x

//adresmem to tablica
//stare adresy pod[weryf1][0]
//stare ilości pod[weryf1][1]
//nowe adresy pod[weryf2][2]
//nowe ilości pod[weryf2][3]

//zapamiętujemy stan.... po zmniejszeniu

adresmem[weryf1][0]:=adr5;
adresmem[weryf1][1]:=maska[adr5];

//brak sprawdzam dla wszystkich adresów
For yw := 1 To adr0 do begin
If maska[yw] = 0 Then inc(brak);
end;

wynik przed to odnotowane braki

==============
stanpo zmianie liczę tak :
s1.....na 0
lw1 na pierwszą proponowaną z własnych

//pierwszy krok
if (adr5>0)and(maska[adr5]<255) then maska[adr5]:= maska[adr5]+1 ;
inc(weryf2);

//drugi krok to wrzutka adresów linni wktórej podmieniłem liczbę =s1 na lw1

adresmem[weryf2][2]:=adr5;
Application.ProcessMessages;
adresmem[weryf2][3]:=maska[adr5];
Application.ProcessMessages;


//trzeci krok po skończeniu pętli sprawdzania adresów
//czyli zliczamy nowe adresy
For yw := 1 To adr0 do begin
If maska[yw] = 0 Then inc(brak);

end;

//na razie bez przerywania ,jeśli stan jest do dupy.....czyli brakówjest więcej



teraz najważniejsze

i tu ...... nie podoba mi się to rozwiazanie
gwnow:= (adr5-brak)/adr5*100 ;


//po sprawdzeniu zmienna typu Boolean ustawiam na bazie uzyskanej gwarancji
if gwnow < hitgw then wypada:=true;
if gwnow > hitgw then wypada:=false;

i to co teraz .......

for wraca := 1 to weryf2 do
begin


//if wraca>weryf2 then break;


adr5s1:=adresmem[wraca][0];//stary adres

adr5lw1:=adresmem[wraca][2];//liczba ilości wyst adresu starego

if (adresmem[wraca][1]=0 )and(wypada=true )and(maska[adr5s1]<255)then maska[adr5s1]:=adresmem[wraca][1]+1; //adres7i zawartośc wraca dla usunietej dodajemy+1

if wypada=true then maska[adr5lw1]:=adresmem[wraca][3]-1; //adres7i zawartość nowego adresu zmniejszamy przy nieudanej podmianie

end;

//tabbest .....to tablica trzymajaca dane losowe lub zmieniane
//jeżeli gwarancja mniejsza po podmianie to przywracamy
if (wypada=true) then tabbest[STRAND][lw1]:=0;

if (wypada=true)then tabbest[STRAND][s1]:=s1;

//zapisujemy od nowa linie
Application.ProcessMessages;
for t:=1 to g do //g to nasze k czyli ilośc liczb w sekwencji.....
if wypada=true then begin
tabrand[STRAND][t]:= TABPRZED[t];//tabprzed to stan zapamiętany przed podmianą
Application.ProcessMessages;

end;




//czyli jesli wypada = false to nic nie robię
czyli zostaje toco sie pozmieniało ,ale nie przyniosło zmian w gwarancji.........

no i to wszystko.........co podstawa jest
a nie funkcjonuje to dobrze ...... więc na razie to odpuściłem
2020-08-24 (13:45)

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

1386
wpis nr 1 310 858
[ CZCIONKA MONOSPACE ]

C(90,13,4,4)=7460
2020-08-24 (16:08)

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

2623
wpis nr 1 310 877
[ CZCIONKA MONOSPACE ]

http://colin.barker.pagesperso-orange.fr/index.htm

http://colin.barker.pagesperso-orange.fr/lpa/lpa.htm
2020-08-24 (17:25)

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

1386
wpis nr 1 310 884
[ CZCIONKA MONOSPACE ]

No to zdolny gość ,
trafił ...zdobył ...zasłużył -->na to rankingowe miejsce.
2020-08-24 (18:49)

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

14865
wpis nr 1 310 893
[ CZCIONKA MONOSPACE ]

Dla zmiany klimatu (odprężenia), rozwiążcie któryś z jego kwadratów magicznych np ten:

SCAN
POLE
AREA
REST

Sum = NL

:)

--- wpis edytowano 2020-08-24 19:02 ---

2020-08-24 (19:27)

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

1386
wpis nr 1 310 903
[ CZCIONKA MONOSPACE ]

Na mnie nie licz
mam już zablokowane połączenia ,
po całym dniu myślenia ,
jedynym odprężeniem jest .
stan bezmyślnego .......piwkowania
i co najwyżej ...... leniwej obserwacji ptaków.
2020-08-24 (19:39)

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

2623
wpis nr 1 310 904
[ CZCIONKA MONOSPACE ]

777ch, na ptakach też można zarobić

2020-08-24 (19:51)

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

2623
wpis nr 1 310 905
[ CZCIONKA MONOSPACE ]

http://colin.barker.pagesperso-orange.fr/lpa/sts.htm

http://colin.barker.pagesperso-orange.fr/lpa/sqs.htm

--- wpis edytowano 2020-08-24 19:52 ---

2020-08-26 (21:15)

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

1386
wpis nr 1 311 224
[ CZCIONKA MONOSPACE ]

C(80,20,5,5)=1816

Fair_play....kleszek


wstawcie ......własny .......hit dla 1816 zakładów
2020-08-26 (22:15)

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

14865
wpis nr 1 311 237
[ CZCIONKA MONOSPACE ]

A skąd go wziąć ?
Zabawka jest tylko dla v<65

Chyba coś pomyliłeś bo (80,20,5,5)=4675

--- wpis edytowano 2020-08-26 22:25 ---

2020-08-26 (22:44)

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

1386
wpis nr 1 311 247
[ CZCIONKA MONOSPACE ]

....nic nie pomyliłem
trzeba zrobić od zera ...
2020-08-26 (22:46)

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

1386
wpis nr 1 311 249
[ CZCIONKA MONOSPACE ]

a...zabawka ma... limit --> 65
no to ...
sam się tym zajmę 😜
2020-08-27 (08:01)

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

2623
wpis nr 1 311 273
[ CZCIONKA MONOSPACE ]

C(80,20,5,5)=1816
Fair_play....kleszek
wstawcie ......własny .......hit dla 1816 zakładów
.......................

777ch, a czy wynik 72,22% na 1816 liniach jest
Ciebie interesującym w tym systemie 80,20,5,5 ?
(wynik z programu LottoTricks, w którym jest bug
więc to wcale nie musi być rzetelne pokrycie...)

--- wpis edytowano 2020-08-27 08:16 ---

2020-08-27 (13:43)

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

1386
wpis nr 1 311 296
[ CZCIONKA MONOSPACE ]

wstaw go tu edi8
to zabawa w sortowanie 20 tek do Multi


i nowość
bo --> Fair_play stracił..... jeden z rekordów

--- wpis edytowano 2020-08-27 13:45 ---

2020-08-27 (14:07)

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

2623
wpis nr 1 311 300
[ CZCIONKA MONOSPACE ]

777ch,
aktualnie mam C(80,20,5,5)=1816 72,38%
(weryfikacja w programie LottoTricks, czyli
w tym samym w którym rozpis był wygenerowany,
potwierdziła w/w pokrycie - ale to i tak nie daje
pewności iż tak jest faktycznie, bo jak już pisałem
ten program od kolegi BochiCintra ma bug...)

http://ge.tt/4kauNi63

--- wpis edytowano 2020-08-27 14:18 ---

2020-08-27 (14:34)

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

14865
wpis nr 1 311 307
[ CZCIONKA MONOSPACE ]

Kurcze, muszę bardziej uważać, zwłaszcza nad ranem
Ten cover C(58,25,7)=3754 wysyłałem z laptopa żony, który nie ma klawiatury numerycznej i pomyliłem się na tych górnych numerach

To jest cover C(58,25,7)=3764
Program Dana stwierdził że nie spełnia on gwarancji więc słusznie go unieważnił, ale to co zrobił niżej to jakaś paranoja.
Poprawił swój rekord 3872 na 4301 przez zapchanie dziury byle czym w C(59,25,7)=4301

Poza tym tydzień temu wysłałem już lepszy cover 3750, ale Dan ostatnio wstawia tylko swoje.

--- wpis edytowano 2020-08-27 14:45 ---

2020-08-27 (14:53)

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

1386
wpis nr 1 311 309
[ CZCIONKA MONOSPACE ]

-- Gwar.5 if [5] --
C(80,20,5,5)=72,3830133890094 %
brak[6639128]

czyli tu program się sprawdza

edit
dzieki edi8

--- wpis edytowano 2020-08-27 14:53 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 414 415 416 ... 560 561
Wyślij wiadomość do admina