moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2021-02-04 (21:40) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 344 451 [ CZCIONKA MONOSPACE ] no to 9790 ...
2021-02-05 (15:29) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 600 [ CZCIONKA MONOSPACE ] 777ch, czy może sprawdzić swoim makrem jaką osiągniesz najgorszą 20-stkę (z najmniejszą wypłatą) dla systemu C(80,5,4,20)=793 System ten można ściągnąć ze strony https://wheels.forumcommunity.net/?t=56894840&st=360#newpost Testuję program Evolver i chcę sprawdzić jego osiągi w stosunku do Twojego makra. Może kolega Molek też poda swój wynik ? Dla systemu C(80,5,5,20)=20730 nie udało mi się zejść poniżej 7728 więc widać, że ma "dobre" sposoby na liczenie takich rzeczy.
2021-02-05 (16:21) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 344 612 [ CZCIONKA MONOSPACE ] kleszek> A skąd masz tego evolvera, bo nigdzie nie mogę znaleźć za free ?
2021-02-05 (16:29) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 613 [ CZCIONKA MONOSPACE ] kto szuka ten znajdzie Z torrenta
2021-02-05 (17:40) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 344 628 [ CZCIONKA MONOSPACE ] 9 15 48 55 13 30 33 22 3 7 44 27 50 52 4 64 28 71 66 69 Trf.4z20 = 1 Trf.3z20 = 43 Trf.2z20 = 242 Trf.1z20 = 360 Trf.0z20 = 147 192 pln jeśli przyjąć wygrane dla 5ek
2021-02-05 (18:33) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 642 [ CZCIONKA MONOSPACE ] Mam trochę lepiej 16 60 1 9 19 72 27 75 22 64 6 61 43 28 29 80 32 53 37 50 Trf.3\|20 = 42 Trf.4\|20 = 1 188-pln Evolver sprawdza się
2021-02-05 (20:32) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 657 [ CZCIONKA MONOSPACE ] fair_play, masz pocztę.
2021-02-05 (22:27) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 344 686 [ CZCIONKA MONOSPACE ] kleszek wyników podobnych jest......wiecej 1,6,9,16,19,22,27,28,29,32,37,43,50,53,60,61,64,72,75,80 Trf.4z20 = 1 Trf.3z20 = 42 Trf.2z20 = 239 Trf.1z20 = 367 Trf.0z20 = 144 188 PLN , 1,6,9,16,19,22,27,30,33,39,44,46,50,54,55,57,64,65,66,69 Trf.4z20 = 2 Trf.3z20 = 37 Trf.2z20 = 252 Trf.1z20 = 360 Trf.0z20 = 142 188 PLN .............................................................. Twój 1,6,9,16,19,22,27,28,29,32,37,43,50,53,60,61,64,72,75,80 Trf.4z20 = 1 Trf.3z20 = 42 Trf.2z20 = 239 Trf.1z20 = 367 Trf.0z20 = 144 TERAZ zauważyłem że mój to wcześniejszy Twój --- wpis edytowano 2021-02-05 22:31 ---
2021-02-05 (22:31) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 344 688 [ CZCIONKA MONOSPACE ] kleszek> dziękuję
2021-02-06 (00:01) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 344 700 [ CZCIONKA MONOSPACE ] No to zjeżdżamy dalej: 9745 -272
2021-02-06 (08:59) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 729 [ CZCIONKA MONOSPACE ] 777ch, Twoje makro świetnie daje radę Gratulacje! To wersja "non public" ?
2021-02-06 (10:11) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 344 744 [ CZCIONKA MONOSPACE ] hej Makro zarejestrowane 2013-07-23 to już kiedyś udostępniłem , mam gdzieś te dane na Hd teraz tylko dodałem linijkę aby kryterium akceptacji zamiany liczby w sekwencji to była suma [w tym przypadku wygrane za 5] a te nieważne linijki wyłączyłem poznajesz to ext spr TABTR(z, 1) = TR TABTR(z, 3) = HIT TABTR(z, 2) = Straf TABTR(z, 4) = kasapln Next z Range(Cells(2, 47), Cells(zest + 1, 50)) = TABTR 'wypis ilości Trafień oraz dodana suma w pln 'If Cells(3, 47) < Cells(2, 47) Then _ 'Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value 'If Cells(3, 47) = 0 Then Exit Sub 'If (Cells(3, 48) < Cells(2, 48).value) And Cells(3, 47) <= Cells(2, 47) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value 'If (Cells(3, 49) < Cells(2, 49).value) And Cells(3, 48) <= Cells(2, 48) _ 'And Cells(3, 47) <= Cells(2, 48) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value 'If (Cells(3, 50) < Cells(2, 50).value) And Cells(3, 49) <= Cells(2, 49) _ 'And Cells(3, 48) <= Cells(2, 48) And Cells(3, 47) <= Cells(2, 47) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value If (Cells(3, 50) < Cells(2, 50).value) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ = Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value If maxkasa > kasapln Then maxkasa = kasapln If kasapln > maxkasa Then Exit For Next POZB Next poz 12 Next b 11 Next a 987 Range(Arkusz31.Cells(7, 7), Arkusz31.Cells(7, 6 + SKREsLEn)) _ = Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)).value itd itd poznajesz to ? --- wpis edytowano 2021-02-06 10:15 ---
2021-02-06 (10:26) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 747 [ CZCIONKA MONOSPACE ] Z pewnością tego nie widziałem. Pierwszy raz widzę taki fragment kodu. Pamięc mam dobrą do takich rzeczy Jeśli to możliwe, wyślij mi ten arkusz. Jeśli nie ... no problem Testuję evolvera na systemie 20730. Evolver wykorzystuje algorytm genetyczny ( colkolwiek by to miało znaczyć ) I bingo. Po 3 minutach znalazł tą 20-stkę z wartością 7728. To albo kwestia szczęścia, albo właściwego doboru parametrów. Tego jeszcze nie wiem Ale wiem, że to świetne narzędzie do takich rzeczy. Dokładnie tak samo jak Twoje makro Pozdrawiam!
2021-02-06 (10:28) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 344 748 [ CZCIONKA MONOSPACE ] Algorytm genetyczny http://home.agh.edu.pl/~vlsi/AI/gen_t/
2021-02-06 (11:22) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 344 767 [ CZCIONKA MONOSPACE ] Ten arkusz jest privat poszukam tego arkusza który bodajże na prośbę MrRandom kiedyś udostępnłem , albo zrobię nowy ....... ale trochę musisz poczekać bo dziś tylko zaglądam , "siedzę" akurat ......w paskalu
2021-02-06 (11:23) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 768 [ CZCIONKA MONOSPACE ] 777ch, nie ma problemu. Miłego weekendu życzę
2021-02-06 (17:16) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 344 842 [ CZCIONKA MONOSPACE ] kleszek Skoro ten program zrobił to w 3 min to nie ma co szukać innego . A możesz podać 10 Multi dla [12932 losowań czyli do dziś 14] dla warunku min. suma wygranych . Molek jak by ci się chciało ,to podaj 10 z Twojego narzędzia .
2021-02-06 (17:25) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 344 844 [ CZCIONKA MONOSPACE ] Może jednak nie warto tego sprawdzać, bo nikt tego nie .....zamawiał, a zwłaszcza że to zakres.....bez sensu .
2021-02-06 (17:31) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 344 846 [ CZCIONKA MONOSPACE ] 777ch, ale Twoje narzędzie - niczym diamenty - będzie wieczne, zaś program Evolver to 15-dniowy trial, zaś płatna wersja jest w abonamencie i sporo grosza w funtach kosztuje: https://www.palisade.com/evolver/default.asp https://www.palisade.com/cart/decisiontools_suite.asp --- wpis edytowano 2021-02-06 17:32 ---
2021-02-06 (17:38) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4983	wpis nr 1 344 849 [ CZCIONKA MONOSPACE ] Cyt. "Może jednak nie warto tego sprawdzać, bo nikt tego nie .....zamawiał, a zwłaszcza że to zakres.....bez sensu ." Myślę, że warto Dla sportu. Zobaczymy co wyjdzie. Zaraz przygotuję arkusz do wyliczeń i odpalę evolvera


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 444 445 446 ... 560 561 Wyślij wiadomość do admina Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]