Forum strony www.multipasko.pl [Regulamin]
| Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 330 331 332 ... 560 561 Wyślij wiadomość do admina |
| Przewiń wpisy ↓ | moje ... oprogramowanie |
2020-05-05 (12:52) fair_playData rejestracji: 2016-05-12 Ilość postów: 8998  | wpis nr 1 290 410 [ CZCIONKA MONOSPACE ] edi8> Najprawdopodobniej niedostępność serwisu nastąpiła w chwilę po wstawieniu przez Ciebie wpisu. Już nie mogłeś go podejrzeć. A niedostępność nie nastąpiła u wszystkich w tym samym momencie (z racji różnej lokalizacji i różnych operatorów), więc u mnie widać nastąpiła o moment później i ja jeszcze zdołałem ten wpis zobaczyć. |
| 2020-05-05 (12:55) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774  | wpis nr 1 290 412 [ CZCIONKA MONOSPACE ] fair_play> chylę czoła przed Twoimi talentami w zakresie dedukcji, na miarę samego lokatora Baker Street 221b w Londynie  http://www.sherlock-holmes.co.uk/ Pozdrawiam --- wpis edytowano 2020-05-05 12:57 --- |
| 2020-05-05 (13:04) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 417 [ CZCIONKA MONOSPACE ] edi8> Szkoda tylko, że nie potrafię grać na skrzypkach  |
| 2020-05-05 (13:18) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091  | wpis nr 1 290 420 [ CZCIONKA MONOSPACE ] Głowę masz -->na karku  więc zapewne ... gdybyś skrzypce miał to byś na nich grał jak to Zbigniew Buczkowski mawiał.... -->" Nie ma to tamto!" pozdrawiam ps. Jeden widzi Gienka ,a drugi widzi Zenka  |
| 2020-05-05 (14:18) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 428 [ CZCIONKA MONOSPACE ] Kolejne ciekawe zjawisko Excel zapamiętuje dane w tablicach po zakończeniu makra. Przy ponownym jego wywołaniu można z tych danych korzystać |
| 2020-05-05 (14:54) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 441 [ CZCIONKA MONOSPACE ] fair_play Oczywiście raz wprowadzone dane do tablic przy opcji Option Explicit i podanym rozmiarem tablic zostaje trwale zapamietany więc można zagnieździć jakieś makro .... które sobie może zmieniać jakąś komórkę w tablicy jeśli da lepsza gwarancję to zostaje jak słabsza od hitu, który też będzie zapamiętany trwale bez uciążliwego odczytu z komórek..... czyli jak słabsza gwarancja to poprzednia liczba wraca do tablicy jak taka sama to podmiana,jak lepsza to wiadomo --> podmiana pozdrawiam --- wpis edytowano 2020-05-05 15:03 --- |
| 2020-05-05 (15:02) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 442 [ CZCIONKA MONOSPACE ] Proponuję ci dorzucić do listingu warunek if brak< od maxdowypisu jak wiadomo przyrost danych w tablicach spowalnia proces no i niczego nie odczytuj ani niczego nie wypisuj do arkusza w trakcie działania procesu, wszystkie zmienne pod Option Explicit oczywiście ,gdzieś w procesie możesz zerować zmienne czy je podnosić i tak samo inne tablice pomocnicze ..... o ile takie potrzebujesz ale to już wiesz........ --- wpis edytowano 2020-05-05 15:02 --- |
| 2020-05-05 (15:27) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 447 [ CZCIONKA MONOSPACE ] 777ch> "Proponuję ci dorzucić do listingu warunek if brak< od maxdowypisu..." Ale ja nie znam tego maxa, bo braki dopiero zliczam jako zerowe adresy z tablicy "maska" i nie znam ich liczby. A listing braków robię równocześnie ponieważ właśnie z tych adresów odtwarzam liczby brakującej szóstki. Rejestrując daną szóstkę w "maska" nie wiem czy jest ona unikalna czy nie więc nie mogę zliczać liczby rejestracji aby na koniec odejmując ją od liczby możliwych kombinacji "wyliczyć" liczbę braków. A tylko znając ich liczbę mógłbym zadać maxdowpisu. Mógłbym oczywiście przy rejestracji szóstki sprawdzać czy już taką zapisałem jejestrując baną szóstkę maska(adr6) = maska(adr6) +1 i jeśli maska(adr6) > 1 to już nie zaliczać tej rejestracji, ale chyba to spowolniło by obliczenia. --- wpis edytowano 2020-05-05 15:44 --- |
| 2020-05-05 (15:41) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 449 [ CZCIONKA MONOSPACE ] Hej chodziło mi o sam wypis, bo być może skorzystasz tylko z oferty dopasowania nr 1 albo nr 2 ale jak chcesz czyli tylko tu: If (brak > 0) And (brak <= 2) Then Range(Cells(1, 43), Cells(brak, 48)) = braki End If ale zmartwił mnie czas dla obliczeń gwarancji dla https://ljcr.dmgordon.org/cover/show_cover.php?v=49&k=25&t=6 122 ≤ C(49,25,6) ≤ 266 Created by: LJCR tylko 266 kombinacji po 25 liczb w sekwencji policzysz to i podasz swój czas ? |
| 2020-05-05 (16:02) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 453 [ CZCIONKA MONOSPACE ]  ale przy kilkukrotnym sprawdzaniu zdarzały się różne czasy, chyba zależne od tego czym jeszcze innym zajmuje się w danym momencie procesor, a zajmuje się |
| 2020-05-05 (16:16) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 456 [ CZCIONKA MONOSPACE ] ok to strasznie długo ale teraz [spróbuj]....policzyć to bez ostatniej linii czyli bez tej 13 14 15 16 17 18 19 20 21 22 23 24 37 38 39 40 41 42 43 44 45 46 47 48 49 |
| 2020-05-05 (16:35) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 459 [ CZCIONKA MONOSPACE ] Czegoś tu nie rozumiem bo bo z listingiem braków:  a bez listingu:  |
| 2020-05-05 (16:53) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 464 [ CZCIONKA MONOSPACE ] sprawdzenie 266 identycznych linii: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 49 trwa 14,72 sek |
| 2020-05-05 (18:30) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 477 [ CZCIONKA MONOSPACE ] bez ostatniej linii czyli bez tej 13 14 15 16 17 18 19 20 21 22 23 24 37 38 39 40 41 42 43 44 45 46 47 48 49 policzyłeś to ? |
| 2020-05-05 (18:35) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 478 [ CZCIONKA MONOSPACE ] Przedstawiłem we wpisie 1 290 459 Jedna linia w mojej procedurze nie ma większego znaczenia, chyba że zawiera liczby nie występujące w pozostałych liniach. Krytyczną wielkością w niej jest ilość skreślen, ilość liczb w zasadzie ma niewielkie znaczenie. Sprawia tylko że tablisc "mask" jest większa, a tym samym jest więcej pozycji do skanowania braków. --- wpis edytowano 2020-05-05 18:41 --- |
| 2020-05-05 (18:39) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 480 [ CZCIONKA MONOSPACE ] No tak,poprawnie Jest problem,bo to o wiele za wolno aby z tego korzystać płynnie przy "coverowaniu" |
| 2020-05-05 (18:43) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 483 [ CZCIONKA MONOSPACE ] Ale Ty coverujesz chyba w pascalu, a tam będzie znacznie krócej. Jeśli nie zależy Ci na listingu braków a tylko na ich liczbie to można to przyspieszyć "wyliczając" braki, a nie skanując "maskę". Zmieniając ten fragment: For x6 = x5 + 1 To skreśleń l6 = mat(y, x6) adr6 = adr5 - (liczb - l6) maska(adr6) = maska(adr6) + 1 If maska(adr6) = 1 Then jest = jest + 1 Next wtedy braki=kombinacje-jest maska(adr6) = 1 tylko przy pierwszym odnotowaniu danej "szóstki", a więc każda następna taka sama nie zostaje zaliczona. Oczywiście na początku należy wyzerować "jest" --- wpis edytowano 2020-05-05 18:58 --- |
| 2020-05-05 (18:59) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 484 [ CZCIONKA MONOSPACE ] jak wtedy wygląda czas przeliczeń jeśli to zastosujesz muszę wyskoczyć ..na jakąś godzinkę braki = to jedyna istotna informacja --- wpis edytowano 2020-05-05 19:00 --- |
| 2020-05-05 (19:08) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 290 487 [ CZCIONKA MONOSPACE ] Niewiele się różni, może o sekundę. Jak pisałem wcześniej krytyczne znaczenie ma ilość skreśleń, a następnie ilość zakładów. Zawsze muszą odnotować ilość_zakładów*combin(skreśleń,6) "szóstek". Przy 10 skreśleniach odnotowuję 210 "szóstek" w każdym zakładzie, przy 15 skreśleniach już 5005 "szóstek", a przy 30 aż 593 775. W analizowanym rozpisie przy 25 skreśleniach odnotowuję 177 100 "szóstek" w linii rozpisu co przy ich 266 ilości sprawia konieczność odnotowania 47 108 600 "szóstek". I to stanowi 100% potrzebnego czasu obliczeń, Wtedy braki=adr0-jest. Jeszcze jedno istotne pytanie. Czy jak liczysz jakieś gwarancje w pascalu. to przy każdej kolejnej próbie obliczeń tego samego rozpisu uzyskujesz identyczny czas obliczeń ? Bo u mnie różnice sięgają nieraz 2 na 14 sekund, a więc 14%. Nie wiem czy to kwestia innych zajęć procesora (np przy ściąganiu czegoś z sieci). --- wpis edytowano 2020-05-05 19:25 --- |
| 2020-05-05 (20:12) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 290 502 [ CZCIONKA MONOSPACE ] -- Gwarancja if hit=5 ----- C(49,25,5,5)=62[-1765] Brak {1765} Sprawdzono zbiór = 1906884 kombinacji Gwar..[5]= 99,9074406204048 % x1: [1127422] x2: [264312] x3: [453231] x4: [41861] x5: [6709] x6: [3756] x=7: [7828] Nr:18 ..6->16.. 20:03:34 Pula liczb: 16 hit min: 49 Time calculated : 185,459771221074 ms Time calculated : 190,975871072874 ms Time calculated : 194,605795818337 ms Time calculated : 191,027837121722 ms różnice są ok 5ms sprawdź u siebie 02 03 05 07 09 10 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 01 02 03 04 05 06 07 08 14 17 18 19 20 21 22 23 24 33 34 35 36 37 38 39 40 01 02 03 04 05 06 07 08 16 25 26 27 28 29 30 31 32 41 42 43 44 45 46 47 48 01 02 03 04 05 06 07 08 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 01 02 03 04 08 09 10 11 12 17 18 19 20 25 26 27 28 33 34 35 36 41 42 43 44 01 02 03 04 09 10 11 12 21 22 23 24 29 30 31 32 37 38 39 40 45 46 47 48 49 01 02 03 04 13 14 15 16 17 18 19 20 29 30 31 32 33 34 35 36 45 46 47 48 49 01 02 03 04 13 14 15 16 21 22 23 24 25 26 27 28 37 38 39 40 41 42 43 44 49 01 02 05 06 09 10 13 14 17 18 21 22 25 26 29 30 33 34 37 38 41 42 45 46 49 01 02 05 06 09 10 11 13 14 19 20 23 24 27 28 31 32 35 36 39 40 43 44 47 48 01 02 05 06 11 12 15 16 17 18 21 22 27 28 31 32 33 34 37 38 43 44 47 48 49 01 02 05 06 11 12 15 16 19 20 23 24 25 26 29 30 35 36 39 40 41 42 45 46 49 01 02 07 08 09 10 13 15 16 17 18 23 24 25 26 31 32 33 34 39 40 41 42 47 48 01 02 07 08 09 10 15 16 19 20 21 22 27 28 29 30 35 36 37 38 43 44 45 46 49 01 02 07 08 11 12 13 14 17 18 23 24 27 28 29 30 33 34 39 40 43 44 45 46 49 01 02 07 08 11 12 13 14 19 20 21 22 25 26 31 32 35 36 37 38 41 42 47 48 49 01 03 05 07 09 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 01 03 05 07 09 11 13 15 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 01 03 05 07 10 12 14 16 17 19 21 23 26 28 30 32 33 35 37 39 42 44 46 48 49 01 03 05 07 10 12 14 16 18 20 22 24 25 27 29 31 34 36 38 40 41 43 45 47 49 01 03 06 08 09 11 14 16 17 19 22 24 25 27 30 32 33 35 38 40 41 43 46 48 49 01 03 06 08 09 11 14 16 18 20 21 23 26 28 29 31 34 36 37 39 42 44 45 47 49 01 03 06 08 10 12 13 15 17 19 22 24 26 28 29 31 33 35 38 40 42 44 45 47 49 01 03 05 06 08 10 12 13 15 18 20 21 23 25 27 30 32 34 36 37 39 41 43 46 48 01 04 05 08 09 12 13 16 17 20 21 24 25 28 29 32 33 36 37 40 41 44 45 48 49 01 04 05 08 09 12 13 16 18 19 22 23 26 27 30 31 34 35 38 39 42 43 46 47 49 01 04 05 08 10 11 14 15 16 17 20 21 24 26 27 30 31 33 36 37 40 42 43 46 47 01 04 05 08 10 11 14 15 18 19 22 23 25 28 29 32 34 35 38 39 41 44 45 48 49 01 04 06 07 09 12 14 15 17 20 22 23 25 28 30 31 33 36 38 39 41 44 46 47 49 01 04 06 07 09 12 14 15 18 19 21 24 26 27 29 32 34 35 37 40 42 43 45 48 49 01 04 06 07 10 11 13 16 17 20 22 23 26 27 29 32 33 36 38 39 42 43 45 48 49 01 04 06 07 10 11 12 13 16 18 19 21 24 25 28 30 31 34 35 37 40 41 44 46 47 02 03 05 08 09 12 13 14 15 17 20 22 23 26 27 29 32 34 35 37 40 41 44 46 47 02 03 05 08 09 12 14 15 18 19 21 24 25 28 30 31 33 36 38 39 42 43 45 48 49 02 03 05 08 10 11 13 16 17 20 22 23 25 28 30 31 34 35 37 40 42 43 45 48 49 02 03 05 08 10 11 13 16 18 19 21 24 26 27 29 32 33 36 38 39 41 44 46 47 49 02 03 06 07 09 12 13 16 17 20 21 24 26 27 30 31 34 35 38 39 41 44 45 48 49 02 03 06 07 09 12 13 16 18 19 22 23 25 28 29 32 33 36 37 40 42 43 46 47 49 02 03 06 07 10 11 14 15 17 20 21 24 25 28 29 32 34 35 38 39 42 43 46 47 49 02 03 06 07 10 11 12 14 15 18 19 22 23 26 27 30 31 33 36 37 40 41 44 45 48 02 04 05 07 09 11 12 14 16 17 19 22 24 26 28 29 31 34 36 37 39 41 43 46 48 02 04 05 07 09 11 14 16 18 20 21 23 25 27 30 32 33 35 38 40 42 44 45 47 49 02 04 05 07 10 12 13 15 17 19 22 24 25 27 30 32 34 36 37 39 42 44 45 47 49 02 04 05 07 10 12 13 15 18 20 21 23 26 28 29 31 33 35 38 40 41 43 46 48 49 02 04 06 08 09 11 13 15 17 19 21 23 26 28 30 32 34 36 38 40 41 43 45 47 49 02 04 06 08 09 11 13 15 16 18 20 22 24 25 27 29 31 33 35 37 39 42 44 46 48 02 04 06 08 10 12 14 16 17 19 21 23 25 27 29 31 34 36 38 40 42 44 46 48 49 02 04 06 08 10 12 14 16 18 20 22 24 26 28 30 32 33 35 37 39 41 43 45 47 49 03 04 05 06 09 10 15 16 17 18 23 24 27 28 29 30 35 36 37 38 41 42 47 48 49 03 04 05 06 09 10 15 16 19 20 21 22 25 26 31 32 33 34 39 40 43 44 45 46 49 03 04 05 06 11 12 13 14 17 18 23 24 25 26 31 32 35 36 37 38 43 44 45 46 49 03 04 05 06 11 12 13 14 15 19 20 21 22 27 28 29 30 33 34 39 40 41 42 47 48 03 04 07 08 09 10 12 13 14 17 18 21 22 27 28 31 32 35 36 39 40 41 42 45 46 03 04 07 08 09 10 13 14 19 20 23 24 25 26 29 30 33 34 37 38 43 44 47 48 49 03 04 07 08 11 12 15 16 17 18 21 22 25 26 29 30 35 36 39 40 43 44 47 48 49 03 04 07 08 11 12 15 16 19 20 23 24 27 28 31 32 33 34 37 38 41 42 45 46 49 05 06 07 08 09 10 11 12 17 18 19 20 29 30 31 32 37 38 39 40 41 42 43 44 49 05 06 07 08 09 10 11 12 21 22 23 24 25 26 27 28 33 34 35 36 45 46 47 48 49 05 06 07 08 13 14 15 16 17 18 19 20 25 26 27 28 37 38 39 40 45 46 47 48 49 05 06 07 08 11 13 14 15 16 21 22 23 24 29 30 31 32 33 34 35 36 41 42 43 44 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 41 42 43 44 45 46 47 48 49 09 10 11 12 13 14 15 16 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 49 |
| | Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 330 331 332 ... 560 561 Wyślij wiadomość do admina |