Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 69940 Skopiuj do schowka Lotto - Najbardziej pechowy rozkład liczb w systemie
Autor Wiadomość
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
Wysłany: 27-01-2021, 22:28   

kleszek13 napisał/a:
choć i tak to jest szukanie igły w stogu siana.

Jak ustawisz krok na 1 i będziesz miał tyle cierpliwości to makro przeleci wszystkie możliwe kombinacje i w ten sposób znajdziesz tą igłę w stogu :-D
W załączniku dodałem zmienioną wersję która nazwijmy to ma "pamięć " czyli do komórki AF1 zapisuje najniższą wyliczoną wartość w a wierszu drugim pod wylosowanymi liczbami zapisuje liczby z tego najlepszego wyliczenia Muszę przyznać że fajna zabawa :-D
Janusz

Pechowy zestaw lotto.xlsm
Pobierz Plik ściągnięto 5 raz(y) 862.93 KB

ID posta: 399193 Skopiuj do schowka
 
 
kleszek13
Exceloholic


Pomógł: 6 razy
Posty: 128
Wysłany: 28-01-2021, 13:35   

J_B dziękuję. Arkusz z każdą wersją jest coraz lepszy :-) W komórce G2 jest błąd. Trzeba zamienić formułę na formułę tablicową. Tymczasem na innym forum koledzy znaleźli taką 20-stkę
17 20 21 24 25 27 28 44 45 52 57 59 62 68 75 76 77 78 79 80 ze zwrotem 7728 (komórka AG1) I twierdzą, że da się jeszcze lepiej. Pozdrawiam!
ID posta: 399239 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
Wysłany: 01-02-2021, 16:43   

kleszek13 napisał/a:
dziękuję. Arkusz z każdą wersją jest coraz lepszy

Jak sobie uświadomiłem ile to jest wszystkich kombinacji to zrozumiałem że na wynik
można czekać w "nieskończoność " Więc należy o niej zapomnieć
Opracowałem drugą wersję wykorzystując obliczanie za pomocą algorytmów genetycznych.
Najmniejsza wartość jaka wygenerowałem to 8168
W załączniku wygenerowaną wartość podzieliłem przez 1000 bardziej znośne dla oka
W wierszu 2 pod liczbami zestaw liczb dla wartości 8168
Jeżeli znajdzie lepsze zapisze zestaw liczb do 2 wiersza a wartość do AG1
Można manipulować wartościami w pomarańczowych komórkach
wielkość populacji
max wielkość populacji (przejść)
Janusz

Pechowe.xlsm
Pobierz Plik ściągnięto 8 raz(y) 869.72 KB

ID posta: 399533 Skopiuj do schowka
 
 
kleszek13
Exceloholic


Pomógł: 6 razy
Posty: 128
Wysłany: 02-02-2021, 13:38   

Janusz, jak zajrzałem w kod ... buty spadły mi z nóg :-) To jakiś kosmos :mrgreen: hehe. Wstawiłem w zielone pole zestaw, który daje w AH1 7,728. Jak na razie niżej nie zszedłem. Być może niżej nie da się już zejść. Tego nie wiem. Bardzo dziękuję za kolejną wersję arkusza. Rzeczywiście z każdą nową wersją jest coraz bogatszy. Super! Pozdrawiam!
ID posta: 399578 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
Wysłany: 02-02-2021, 14:54   

kleszek13 napisał/a:
Wstawiłem w zielone pole zestaw, który daje w AH1 7,728.

Mój najlepszy obecnie to 7,928 a liczby 77;78;20;67;24;17;79;28;6;58;62;52;75;68;21;48;59;27;69;76
Przyznam że nie testowałem intensywnie bardziej sprawdzałem co tam w kodzie się dzieje
Janusz
ID posta: 399585 Skopiuj do schowka
 
 
kleszek13
Exceloholic


Pomógł: 6 razy
Posty: 128
Wysłany: 04-02-2021, 17:21   

J_B, nie udało mi się zejść Twoim makrem do poziomu 7728, ale to pewnie kwestia czasu i ... szczęścia. Z ciekawości sprawdziłem inny rozpis na 854 zakłady i porównałem Twoje makro z programem Evolver. Evolver to koszmarnie drogi zamiennik solvera. Twoje makro uzyskało dokładnie taki sam wynik jak aplikacja komercyjna. Moje gratulacje ! Pozdrawiam!
P.S.
Evolver też nie osiągnął wyniku 7728
ID posta: 399753 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
Wysłany: 04-02-2021, 17:52   

kleszek13 napisał/a:
ale to pewnie kwestia czasu i ... szczęścia.

Pewnie tak
Pisałeś coś o
kleszek13 napisał/a:
Tak w skrócie Układanie systemów (covering)

Jako że tu na forum nie można wstawiać "obcych" linków prześlij może coś na ten temat na priv.
Dawno temu bawiłem się losowaniami lotto ,nie jako systemy coś tam gwarantujące raczej pokazujące jak niewielkie są szanse na wygrane

Lubię ciekawe wyzwania może tam coś ciekawego znajdę :-D
Janusz
ID posta: 399756 Skopiuj do schowka
 
 
kleszek13
Exceloholic


Pomógł: 6 razy
Posty: 128
Wysłany: 04-02-2021, 18:31   

Janusz ... wysłałem na priv
ID posta: 399758 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
Wysłany: 04-02-2021, 18:54   

Dzięki w wolnych chwilach "postudiuję" temat
Janusz
ID posta: 399759 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe