moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2025-01-25 (22:23) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 468 [ CZCIONKA MONOSPACE ] 777ch> Chyba udało mi się pobić Jacka (pobić jego czas oczywiście ) Jacek używa 7 tablic. Ja używam jednej. Jacek koduje tylko jedną wielkość k=7. Moja procedura jest uniwersalna dla v oraz k. Stąd jest dłuższa w czasie. Ale gdy w swojej wyłączę uniwersalność to czasy tylko dla k=7 mam lepsze Pomijając czas tworzenia tablic, a obliczając tylko czas kodowania tych 6000 "siódemek" (bez prezentacji wyników w arkuszu) to czasy wyglądają następująco: Jacka: 0,0234375 sek. 0,0312500 sek. Moja uniwersalna: 0,0468750 sek. 0,0546875 sek. Moja uproszczona do k=7: 0,0156250 sek. 0,0234375 sek. Dziwią te podwójne czasy, ale takie dwa różne wyświetlają się przy wielokrotnym uruchamianiu procedur. Chyba ten pomiar stoper-Timer nie jest dokładny.
2025-01-25 (22:25) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 471 [ CZCIONKA MONOSPACE ] To chętnie zobaczę w akcji.
2025-01-25 (22:29) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 549 472 [ CZCIONKA MONOSPACE ] Fair_play GRATULACJE !!! Coś bliższego napiszesz, choćby na skrzynkę? P.S. To efekt po AO ?
2025-01-25 (22:34) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 549 475 [ CZCIONKA MONOSPACE ] Cyt. Jacka: 0,0234375 sek. Moja uproszczona do k=7: .... 0,0234375 sek. Też się zastanawiam nad np. tymi dwoma pomiarami. Takie same 7 liczby po przecinku. ... ale mniejsza o to, jeszcze raz GRATULUJĘ !!!
2025-01-25 (22:44) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 549 484 [ CZCIONKA MONOSPACE ] Fair_play ChatGPT sugerował, że poniższe rozwiązanie pomiarów jest najdokładniejsze: Dim intermediateStopwatch1 As Stopwatch = New Stopwatch() intermediateStopwatch1.Start() For x = 1 To 60000 test7wynik(x) = CSN2 'MsgBox(CSN2 & " " & test7wynik(x)) Next intermediateStopwatch1.Stop() MsgBox("Czas pośredni 1: " & intermediateStopwatch1.ElapsedTicks / 10000.0 & " ms") --- wpis edytowano 2025-01-25 22:46 ---
2025-01-25 (23:00) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 490 [ CZCIONKA MONOSPACE ] 777ch> zajrzyj na pocztę. Jacku, w vba nie ma stopwatch.
2025-01-25 (23:03) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 491 [ CZCIONKA MONOSPACE ] Hej 🤝👍🤛 Za pół godziny zajrzę, jeśli można to poproszę w pliku txt same procedury. pozdrawiam Edit: Jutro przy kawce potestuję… i napiszę . --- wpis edytowano 2025-01-25 23:04 ---
2025-01-25 (23:10) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 493 [ CZCIONKA MONOSPACE ] Wysłałem plik xlsm. Procedury są tak przejrzyste, że załatwisz txt za pomocą CTRL+C, CTRL+V Tylko uwzględnij, że ja numeruję tablice od 1 nie od 0 (Option Base 1). Dla mnie jak w sporcie pierwszy ma numer 1, a nie 0
2025-01-25 (23:13) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 495 [ CZCIONKA MONOSPACE ] Ok Jutro napiszę. Dzięki
2025-01-25 (23:15) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821	wpis nr 1 549 496 [ CZCIONKA MONOSPACE ] Fair_play Nie wiem czy nie zgłoszę protestu. Nie brałeś czasem melatoniny zanieczyszczonej środkiem dopingującym? Pozdrawiam nowego Mistrza. P.S. Cosik więcej napiszesz? --- wpis edytowano 2025-01-25 23:15 ---
2025-01-25 (23:23) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 498 [ CZCIONKA MONOSPACE ] Zajrzyj na pocztę. Procedury makro są proste i przejrzyste. Wszystko skumasz. Nie musisz uruchamiać jak się obawiasz
2025-01-25 (23:50) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 502 [ CZCIONKA MONOSPACE ] no to mam:
2025-01-25 (23:56) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 503 [ CZCIONKA MONOSPACE ] Poproszę o zastosowanie dla wyliczeń gwarancji jak poprzednio , od 7-ek do 25 liczb w arkuszu ...... bez wypisu kodów i bez wypisu braków w arkuszu. Samo przeliczenie ile jest ile brak . To się pobawię ....... a jak będzie ok ,to dostaniesz mój poprzedni program z wersją do 7-ek jak oczywiście to przeliczać będzie uniwersalnie dla od 7z7 do 7z 60 ...... bo u mnie w paskalu zbiory mają ograniczenie do k=60 idę spać pozdrawiam
2025-01-26 (00:46) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 506 [ CZCIONKA MONOSPACE ] Dlaczego u Ciebie taki długi czas kodowania uniwersalnego? U mnie tylko 0,0488281 sek.
2025-01-26 (11:20) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 529 [ CZCIONKA MONOSPACE ] fair_play czas = Format(Timer - stoper, " 00:00:00.00") & " sec." 00:00:00,03~4 sec. koduj7 00:00:00,08~9 sec. koduj uniwersalnie 00:00:00,06 sec. by Jacek albo czas = Format(Timer - stoper, "0.0000000") & " sek." 0,0468750 sek. koduj7 0,0781250 sek. uniwersalnie 0,0585938 sek. by Jacek kodowanie uniwersalne czy inne obojętnie ale nie interesują nas kody 9,10,11,12 ect tylko kody [7-ek ]........... z 8,9,10 11,12,do 60 tylko kody [6-ek ]........... z 8,9,10 11,12,do 60 tylko kody [5-ek ]........... z 8,9,10 11,12,do 60 i wtedy róznice czasu dla np sprawdzenia 1000~~60000 sekwencji np 15-liczbowych
2025-01-26 (11:38) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 533 [ CZCIONKA MONOSPACE ] 777ch> Kontrolnie wziąłem na tapetę rozpis z LaJolla C(40,15,6)=2857 Sprawdzenie 6. zajęło 5,4257810 sek. -> 0 braków. Sprawdzenie 7. zajęło 7,6562500 sek. -> 1 011 624 braków. Jak to oceniasz?
2025-01-26 (12:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 539 [ CZCIONKA MONOSPACE ] fair_play C(40,15,6)=2857 Sprawdzenie 6. zajęło 5,4257810 sek. -> 0 braków. Time calculated :2529,731 ms --> to Twoja metoda //w paskalu Sprawdzenie 7. zajęło 7,6562500 sek. -> 1 011 624 braków. Time calculated : 5059,733 ms --> to Twoja metoda //w paskalu już mi żona po trochu kołki struga bo idziemy do wnuczków..... Może podeślij TO w txt obliczenia 7=ek w petlach po kombinacjach zrobisz jak zechcesz muszę kończyć ........... ale widzę !! że liczba braków nie pasuje -- Gwar.7 if [7] --*1 C(40,15,7,7)=57,2879643158281 % brak[7963044] Brak {7963044} Sprawdzono zbiór = 18643560 kombinacji Gwar..[7]= 57,2879643158281 % . . . . . . Time calculated : 4429,257 ms --- wpis edytowano 2025-01-26 12:30 ---
2025-01-26 (12:47) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998	wpis nr 1 549 545 [ CZCIONKA MONOSPACE ] Masz rację, błąd w ustawieniu gwarancji. Po poprawce: czas operacji: 8,5820310 sek. braków -> 7963044
2025-01-26 (13:14) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 547 [ CZCIONKA MONOSPACE ] Ok Podglądam z telefonu 📲 ale komputer po 15:30 🤭🤭🤭
2025-01-26 (13:16) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091	wpis nr 1 549 548 [ CZCIONKA MONOSPACE ] A sprawdź ..porównaj czas w swojej aplikacji w excelu —> Gwarancję 6 i 7 to będziesz wiedział jakie są różnice bo w paskalu .. wyjdzie zapewne podobne(przełożenie) czasu


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

Forum strony www.multipasko.pl [Regulamin]