moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2024-11-13 (21:11) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 539 203 [ CZCIONKA MONOSPACE ] Można bez indeksu ale wtedy tablice wielowymiarowe…🏋️‍♂️ Tak też leci błyskawicznie A do tego Jacek ciągnie na integer więc… „nie pociągnie [V] za daleko..” --- wpis edytowano 2024-11-13 21:18 ---
2024-11-13 (21:21) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 207 [ CZCIONKA MONOSPACE ] Multitest Od Fair_playa dostałem taki sposób: adres = kombinuj(liczb, gwar) If liczb - l1 > 4 Then adres = adres - kombinuj(liczb - l1, 5) If liczb - l2 > 3 Then adres = adres - kombinuj(liczb - l2, 4) If liczb - l3 > 2 Then adres = adres - kombinuj(liczb - l3, 3) If liczb - l4 > 1 Then adres = adres - kombinuj(liczb - l4, 2) adres = adres - (liczb - l5) To jak określisz miejsce gdzie jest wynik ONT, lub 1/0 trafiony, dla tej piątki: 12,20,38,40, 42 Powyżej widzę sprawdzany warunek IF >4 jeżeli nie to następny IF>3 . Potem kombinuj to znaczy Kombinacja(liczb z zakresu)? 777ch To ja ustaliłem v=80 mając na uwadze grę multi. Można rozszerzać do zakresu Integer. Zakres nie ma wpływu na ilość tablic zawsze dla szukanej opcji jest o 1 mniej. Dla 6 to 5 tablic pomocniczych. --- wpis edytowano 2024-11-13 21:34 ---
2024-11-13 (21:31) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 539 210 [ CZCIONKA MONOSPACE ] Ten kod określa tylko czy w danym zbiorze jest czy nie ma tego indeksu Jak masz już właściwy zbiór który „nie wszedł” to policzyć ile czeka dokładnie to już….”krótka piłka” ——————— To ja ustaliłem v=80 na uwadze grę multi. To ustal na 99 i dam Ci do sprawdzenia zbiór dla szóstek A ty mi powiesz ile to trwało 😁🤔 --- wpis edytowano 2024-11-13 21:33 ---
2024-11-13 (21:38) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 539 212 [ CZCIONKA MONOSPACE ] 7505 ≤ C(99,25,6) ≤ 29748 Created by: LJCR Method of Construction: Dynamic programming construction Policz bez pierwszych 100 linii i podaj czas przeliczeń oraz ile 6-ek brakuje po odcięciu tych 100 linijek Czyli sprawdzasz 29648 😂
2024-11-13 (21:45) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 215 [ CZCIONKA MONOSPACE ] Tabelkę mam skróconą na 80, ale ilość kombinacji na 5 ze 170 to "dopiero" 1.115.034.284 Jak na razie muszę się zmusić do uzupełnienia tabelki pomocniczej dla 4-ek. W planie mam dla lotka także i 6-ki. O kurcze się prawie zagapiłem ostatnia chwila na wysłanie zakładów. 777ch Dam znać jak wpiszę kod do tabelek dla 6-ek. --- wpis edytowano 2024-11-13 21:55 ---
2024-11-13 (21:55) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 539 224 [ CZCIONKA MONOSPACE ] Jacku> Rozmawiamy na poważnie czy żartujemy? Bo jeśli to drugie to przenieśmy naszą rozmowę do wątku "Coś na rozluźnienie i poprawę humoru". Zapytałeś jak obliczam kod CSN (adres) zadanego układu liczb. Przedstawiłem Ci uniwersalną procedurę dla wyliczenia adresu dla 6 liczb w zbiorze "liczb=" Skrytykowałeś ją, że tyle warunków, tyle kombinacji promując swoją tabelaryczną metodę. Później podajesz 12 liczb i podajesz adres dla pierwszej siódemki. Ale nie rzeczywisty tylko przypadkowy. To jakiś żart? Tak trudno było Ci znaleźć w swych tabelach odpowiednie liczby do zsumowania aby dały w sumie poprawny adres 354 048 593? Poza tym moja procedura jest na tyle uniwersalna, że znajduje odpowiedni adres w dowolnym zbiorze liczb. Twoja siódemka: 2, 7, 12, 39, 41, 43, 47 w zbiorze Dużego Lotka ma kod 17 327 120 w EuroJackpot: 19 656 495 w Keno:156 767 687 w Multi: 354 048 593 a w zbiorze 99 liczb: 1 290 252 465 Wszystko wyliczone w mgnieniu oka. Ile tabel musiałbyś stworzyć aby obsłużyć dowolną wielkość zbioru liczb?
2024-11-13 (22:02) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 539 225 [ CZCIONKA MONOSPACE ] Mogłem skorzystać z Waszych gotowych sposobów, a ja podjąłem "ambitne" wyzwanie dojścia do tego samego celu swoimi drogami. Jacek_K1961 777ch Dam znać jak wpiszę kod do tabelek dla 6-ek. no to ......... czekamy --- wpis edytowano 2024-11-13 22:03 ---
2024-11-13 (22:12) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 232 [ CZCIONKA MONOSPACE ] Wynik z obrazka wynik433 to 4-ka i 2x3 i ile takich jest, wynik440 to 2x4 i mniej niż 3 i ilość itd. Wynik433 >>> to pierwszy układ z trzech =4, drugi z trzech to 3, trzeci z trzech to 3 --- wpis edytowano 2024-11-13 22:17 ---
2024-11-13 (22:30) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 242 [ CZCIONKA MONOSPACE ] Fair_play 7-kę będę mógł podać po dorobieniu tablic dla 7-ek, a wtedy także z numerami ograniczonymi do lotto. Sorrki, bez obrazy ja tylko zwróciłem uwagę na ilość tych warunków i zaniepokoiła mnie formuła jeżeli dobrze zgadłem 4 razy Kombinacja(liczb ze zbioru) : If liczb - l1 > 4 Then adres = adres - kombinuj(liczb - l1, 5) If liczb - l2 > 3 Then adres = adres - kombinuj(liczb - l2, 4) If liczb - l3 > 2 Then adres = adres - kombinuj(liczb - l3, 3) If liczb - l4 > 1 Then adres = adres - kombinuj(liczb - l4, 2) Na to zwróciłem uwagę, czy dodawanie nie może być szybsze. Czy kombinacja nie jest liczona z takim fragmentem z silniami 1x2x3x4x5 itd. ? Ja nie promuję swoich tabel, ja się tylko zapytałem, czy nie może być to szybsze, bo dodanie 4 liczb wydaje mi się, że teoretycznie powinno być. Każdy się może mylić. --- wpis edytowano 2024-11-13 22:44 ---
2024-11-13 (22:51) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 246 [ CZCIONKA MONOSPACE ] Ja nie robię żadnego programu na sprzedaż, abym go promował. Jeżeli bym tego chciał to bym nie pokazał pomysłu. Pomysł powiązania czegoś z czymś o którym pisałem to jest to, co jest moją tajemnicą. Nie te tabelki. Robocza tabelka zrobiona wyglądała bardzo prowizorycznie, więc nie chciałem się nią chwalić, bo nie ma czym. --- wpis edytowano 2024-11-13 22:56 ---
2024-11-13 (23:06) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 539 247 [ CZCIONKA MONOSPACE ] Jacku> Funkcja "kombinuj" wygląda tak: Function kombinuj(n, k) licznik = 1 mianownik = 1 For I = 1 To k licznik = licznik * (n + 1 - I) mianownik = mianownik * I Next kombinuj = licznik / mianownik End Function Zauważ także że jest ona wywoływana dopiero po spełnieniu warunku IF.
2024-11-13 (23:13) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 248 [ CZCIONKA MONOSPACE ] Fair_play Wiem, że po spełnieniu warunku, tylko czy pętla nie będzie działać dłużej niż dodawanie? O to mi chodziło, plus sprawdzenie spełnienia któregoś warunku. Ja tak obliczałem silnie, złożyłem gorzej, bo pierw jedną silnię składową, później drugą. Potrzebna była mi do poznania rozmiaru tablicy do deklaracji dim() Zrobiłem to w jednym bloku pętli do ... loop --- wpis edytowano 2024-11-13 23:24 ---
2024-11-14 (18:56) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 539 320 [ CZCIONKA MONOSPACE ] 777ch> A możesz zamieścić obrazek z analizy bloku z wpisu 1 539 304? Chcę porównać z moją Vba procedurą
2024-11-14 (19:08) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 539 324 [ CZCIONKA MONOSPACE ] wszystko się zgadza z wyjątkiem ... Time calculated : 301,894 ms Oczywiście w Twojej aplikacji na moim mule Bo w VBA trwa "troszeczkę" dłużej, ze względu na excelowską edycję.
2024-11-14 (19:31) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 539 327 [ CZCIONKA MONOSPACE ] Time calculated : 491,059 ms To czas zapełnienia tablic 7-ek Wszystkich 62 linii Dalej to już wypis dziesiątek bo ta procedura wypisuje 10-ki z brakiem 7/10 Czyli sprawdzanie wszystkich indeksów 7-ek w danej kolejnej 10-ce. --- wpis edytowano 2024-11-14 19:32 ---
2024-11-14 (19:32) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 328 [ CZCIONKA MONOSPACE ] 777ch Wierzę Ci na słowo, że to jest tylko nadgorliwość tych 9 antywirusów, ale mam zasadę, że nie instaluję niczego spoza Microsoft Store i także z niego żadnych nowości. Moje próby też mi chciał blokować Norton, bo tylko jeden człowiek na Ziemi używa tego programu, a tu zablokował dodatkowo jeszcze system. Ale dzięki za dobre chęci. Pozdrawiam --- wpis edytowano 2024-11-14 19:36 ---
2024-11-14 (19:35) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 539 329 [ CZCIONKA MONOSPACE ] Jacek_K1961 To ja dla ciebie specjalnie ten kawałek kodu ,a ty mi tu z antywirusem wyjeżdżasz? Zastanowię się jeszcze ale cię chyba za to zablokuję.
2024-11-14 (19:37) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 539 330 [ CZCIONKA MONOSPACE ] Jacku, bardzo trudno z Tobą dyskutować w takich warunkach. Zainstaluj sobie Avasta, on każdy jego zdaniem "podejrzany" program odsyła do analizy antywirusowej. --- wpis edytowano 2024-11-14 19:47 ---
2024-11-14 (19:37) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 539 331 [ CZCIONKA MONOSPACE ] 777ch Pliiss. Nie rób tego, z szacunku dla mojego szacunku do Ciebie i Twojej Wiedzy. Jesteś tu Autorytetem. To, że szukam swojej drogi to chyba nie taki grzech? --- wpis edytowano 2024-11-14 19:47 ---
2024-11-14 (21:14) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 6594	wpis nr 1 539 347 [ CZCIONKA MONOSPACE ] Multitest Od Fair_playa dostałem taki sposób: adres = kombinuj(liczb, gwar) If liczb - l1 > 4 Then adres = adres - kombinuj(liczb - l1, 5) If liczb - l2 > 3 Then adres = adres - kombinuj(liczb - l2, 4) If liczb - l3 > 2 Then adres = adres - kombinuj(liczb - l3, 3) If liczb - l4 > 1 Then adres = adres - kombinuj(liczb - l4, 2) adres = adres - (liczb - l5) To jak określisz miejsce gdzie jest wynik ONT, lub 1/0 trafiony, dla tej piątki: 12,20,38,40, 42 Powyżej widzę sprawdzany warunek IF >4 jeżeli nie to następny IF>3 . Potem kombinuj to znaczy Kombinacja(liczb z zakresu)? ===================================================== Jacek, A masz już gotowy działający soft który pobiera plik, wczytuje go to array aby można było sprawdzać losowania i je analizować ? Jeżeli masz to wystarczy w locie zaktualizować indeks tablicy piątek 700733,true,235 gdzie 700733 to numer indeksu, komórka true (że wypadła) , 235 to ONT w VBA masz też wbudowaną funkcję kombinacje. Wystarczy w makro dać coś takiego : Function Kombinuj(n As Integer, k As Integer) As Long Kombinuj = WorksheetFunction.Combin(n, k) End Function i żeby podawała indeks w locie zrobić bardziej uniwersalnie kod Playa: For i = LBound(liczbyKombinacji) To UBound(liczbyKombinacji) If liczb - liczbyKombinacji(i) > licznik Then adres = adres - Kombinuj(liczb - liczbyKombinacji(i), licznik + 1) licznik = licznik - 1 End If


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

Forum strony www.multipasko.pl [Regulamin]