Forum strony www.multipasko.pl [Regulamin]
| Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 516 517 518 ... 560 561 Wyślij wiadomość do admina |
| Przewiń wpisy ↓ | moje ... oprogramowanie |
2025-01-12 (22:27) fair_playData rejestracji: 2016-05-12 Ilość postów: 8998  | wpis nr 1 547 217 [ CZCIONKA MONOSPACE ] Jacku, czyje "dziś" Twoje czy moje  |
| 2025-01-12 (23:07) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091  | wpis nr 1 547 219 [ CZCIONKA MONOSPACE ] fair_play nie wiem czy zauważyłeś , ale w procedurze od dylonga nie ważne czy masz pary czy trójki czy 5 liczb czy 10 czy 20 masz kod csn i to jest warte uwagi , bo jest z czym porównać ....... ale nie sprawdzałem ......czy czasem nie przekłamuje . 1,2,8,9,12,14,15,19,21,22,31,33,35,42,,,,,,,,,,,,,,4805475370 1,4,5,6,8,14,15,17,18,22,28,33,34,39,,,,,,,,,,,,,,9610950741 1,6,7,12,17,20,26,29,31,32,35,36,37,39,,,,,,,,,,,,,,14416426112 2,3,5,7,12,14,15,22,25,29,32,36,37,38,,,,,,,,,,,,,,19221901483 2,4,11,12,14,17,24,26,29,30,31,32,35,39,,,,,,,,,,,,,,24027376854 2,9,10,14,26,27,30,33,35,37,38,39,40,42,,,,,,,,,,,,,,28832852225 3,5,8,14,17,18,19,24,28,33,35,39,40,42,,,,,,,,,,,,,,33638327596 4,5,7,8,11,12,13,15,25,27,32,34,36,39,,,,,,,,,,,,,,38443802967 5,6,7,8,10,14,17,25,28,29,32,33,34,35,,,,,,,,,,,,,,43249278338 6,8,13,14,16,17,20,21,23,25,32,38,40,41,,,,,,,,,,,,,,48054753709 29,30,31,32,33,34,35,36,37,38,39,40,41,42,,,,,,,,,,,,,,52860229080 1,3,13,18,24,27,28,34,36,40,,,,,,,,,,,,,,,,,,133767543 1,7,10,13,19,21,30,32,34,42,,,,,,,,,,,,,,,,,,267535086 2,3,10,24,25,28,33,34,41,42,,,,,,,,,,,,,,,,,,401302629 2,7,9,10,11,14,15,16,29,30,,,,,,,,,,,,,,,,,,535070172 3,4,14,16,20,25,27,32,34,39,,,,,,,,,,,,,,,,,,668837715 3,10,13,16,20,22,24,28,34,37,,,,,,,,,,,,,,,,,,802605258 4,8,11,13,14,17,22,24,26,38,,,,,,,,,,,,,,,,,,936372801 5,8,19,25,26,27,31,32,37,38,,,,,,,,,,,,,,,,,,1070140344 6,13,14,20,21,32,35,36,39,40,,,,,,,,,,,,,,,,,,1203907887 8,17,19,22,23,29,33,35,37,38,,,,,,,,,,,,,,,,,,1337675430 1,5,8,14,17,26,31,39,,,,,,,,,,,,,,,,,,,,10730016 1,15,19,20,21,26,32,36,,,,,,,,,,,,,,,,,,,,21460033 2,6,13,14,17,19,32,38,,,,,,,,,,,,,,,,,,,,32190050 3,4,10,17,21,25,26,35,,,,,,,,,,,,,,,,,,,,42920067 3,11,17,18,21,22,32,38,,,,,,,,,,,,,,,,,,,,53650084 4,9,14,15,16,18,28,32,,,,,,,,,,,,,,,,,,,,64380100 5,9,22,30,31,33,34,36,,,,,,,,,,,,,,,,,,,,75110117 6,13,15,16,21,22,36,41,,,,,,,,,,,,,,,,,,,,85840134 8,11,12,16,17,18,35,37,,,,,,,,,,,,,,,,,,,,96570151 10,20,22,28,31,34,35,38,,,,,,,,,,,,,,,,,,,,107300168 34,36,37,38,39,40,41,42,,,,,,,,,,,,,,,,,,,,118030184 1,13,31,35,42,,,,,,,,,,,,,,,,,,,,,,,77333 2,10,18,37,42,,,,,,,,,,,,,,,,,,,,,,,154666 3,9,19,21,32,,,,,,,,,,,,,,,,,,,,,,,232000 4,10,14,24,38,,,,,,,,,,,,,,,,,,,,,,,309333 5,12,25,36,38,,,,,,,,,,,,,,,,,,,,,,,386667 6,19,24,39,40,,,,,,,,,,,,,,,,,,,,,,,464000 8,12,13,36,38,,,,,,,,,,,,,,,,,,,,,,,541334 10,12,15,18,23,,,,,,,,,,,,,,,,,,,,,,,618667 12,18,21,22,27,,,,,,,,,,,,,,,,,,,,,,,696001 16,18,24,27,35,,,,,,,,,,,,,,,,,,,,,,,773334 fair_play no to masz od dziś --> bezsenne noce albo .......poranki zależy ..... do jakiego czasu Twój organizm się .....przystosuje  dobrej nocki bo ja jutro wcześnie rano ... muszę wyjechać  --- wpis edytowano 2025-01-12 23:14 --- |
| 2025-01-13 (13:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 291 [ CZCIONKA MONOSPACE ] Usunąłem treści ..takie nasze dyskusje jak wspomniałem poczta poszła |
| 2025-01-13 (16:00) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821  | wpis nr 1 547 327 [ CZCIONKA MONOSPACE ] 777ch to do pytania w temacie Sudoku!!! Cały sekret tworzenia kryje się w kolumnie 0 (zero) w moim nie przekształconym przez fair_play'a kodzie do Excela. Sorry, nie jestem dobrym tłumaczem, ale ... Tablice są budowane od tej z najmniejszymi wartościami. Te małe wartości mają decydujący wpływ na następną tablicę itd. a ta następna ma wpływ na kolejną. Tablice z konkretnymi już wartościami są budowane na podstawie tej kolumny 0. Plusem tego rozwiązania jest to, że szukając w niej wartości wybierasz tę na przecięciu się kolumny z wierszem. Tym plusem jest nie powielanie dodatkowych dodawań. Wcześniejsza liczba z pary i jej wartość wskazuje od razu na nr kolumny. Gdyby nie to, musiałbyś dodatkowo dodać jeszcze liczbę 1. Porównujesz zawsze parę następujących po sobie liczb, a wiersz wskazuje tę wcześniejszą. Jak para np. 2,19 to 2 jest numerem kolumny, a 19 wiersza. Tak z wizualnego punktu widzenia jak w Excelu. Musiałem dodać jeden ten niby niepotrzebny ostatni wiersz. Z początku, musiałem dodać dodatkowy warunek oprócz If, niby pier...ółka ale znacznie spowalniała. Może niech fair_play da Ci mój czasowy adres, to na obrazie z tablic w Excelu bym mógł łatwiej to pokazać. Tyle, że wiesz, problem w tym, że zwiększanie ilości tablic ma swoje granice. Chyba, że miałbyś pomysł na przeskoczenie ich. Ja jak na razie się nad tym nie zastanawiałem. Brałem to pod swoje potrzeby. --- wpis edytowano 2025-01-13 16:04 --- |
| 2025-01-13 (16:09) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821 | wpis nr 1 547 328 [ CZCIONKA MONOSPACE ] Cyt. "Te małe wartości mają decydujący wpływ na następną tablicę itd. a ta następna ma wpływ na kolejną." Chodzi o następną tablicę z większymi wartościami i nadal kolumnę w niej nr 0. Te wartości w każdej następnej tablicy narastają. System ma ten plus, że nie ma żadnych wartości czytanych z dodatkowego pliku. P.S. Dlatego, aby wartości zmiennych się zgrywały z numerami kolumn oraz wierszy są te opuszczone wiersze i kolumny z przodu. Gdyby pójść na oszczędność to trzeba by było je korygować, a to opłacalna strata czasu kosztem wielkości tablicy. --- wpis edytowano 2025-01-13 16:21 --- |
| 2025-01-13 (16:20) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 329 [ CZCIONKA MONOSPACE ] Jacek_K1961 Ze mną to jest tak że jak widzę obraz który „maluje kod”…to wtedy jasność mam. Ale … też trzeba trochę czasu poświęcić na .. tą..”inżynierię odwrotną” no i nie każdy język da się „dosłownie” przekładać.. choćby z uwagi na typy danych jakie są możliwe w danym języku czy inne aspekty.. No i jeszcze potrzebna „melodia”.. Jak nie mam melodii to … nie da rady „nic wyrzeźbić”. pozdrawiam --- wpis edytowano 2025-01-13 16:20 --- |
| 2025-01-13 (16:32) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821 | wpis nr 1 547 330 [ CZCIONKA MONOSPACE ] 777ch Dostałeś kod w basicu od fair_playa? Ja się gubię w tym co pokazuję fair_play. Ja używam najprostsze podstawowe sposoby. If/end If pętle Do/loop i For/Next. Jak masz to zobrazowane już w Excelu (tablice z wartościami) to przesuń w nowym arkuszu tę zerową kolumnę na sam przód. Zwróć uwagę powiedzmy od tablicy 2 licząc od najmniejszych w górę. Największa wartość w kolumnie 0 i porównaj. Jeżeli to jest np. 74 to o taką wartość zmienia się liczba w tablicy z większymi liczbami. Zobacz o ile różnią się te liczby 2775 i 2701 z wyższej tablicy? O 74 i dalej w tej kolumnie, wiersz niżej to o 1 mniej czyli następna różnica 73, 72, 71 itd. P.S. Tylko nie zmyl się tym ostatnim wierszem, on tylko pełni rolę ograniczajcą, bo w if'ie sprawdzam, czy > --- wpis edytowano 2025-01-13 16:43 --- |
| 2025-01-13 (16:43) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 331 [ CZCIONKA MONOSPACE ] Nie tłumacz 👍 jak zajdzie potrzeba to będę pytał |
| 2025-01-13 (16:55) Jacek_K1961 Data rejestracji: 2017-03-29 Ilość postów: 13821 | wpis nr 1 547 332 [ CZCIONKA MONOSPACE ] Tak wizualnie:  Jakby co, to .... Pozdrawiam i kończę temat. |
| 2025-01-14 (08:52) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 547 425 [ CZCIONKA MONOSPACE ] Ufff starość nie radość Wracając do Dylonga to nie ma się co dziwić, że wychodziły mi bzdury po uruchomieniu jego procedury. Nie mając funkcji KOMBINACJE i SILNIA podmieniłem w procedurze na swoją funkcję kombinuj. I wychodziły bzdurne kody. Nie mogłem zrozumieć o co chodzi, przecież ona działa u mnie poprawnie. Po wielu analizach prawda okazała się zabawna. Parametry do funkcji KOMBINACJE, przekazywane są jako k po n zamiast n po k Sprawdź Jak zamienię kolejność parametrów, to procedura działa poprawnie: If (n - tabliczb(0, xx - 1)) > (k - xx) Then pozycja = pozycja - kombinuj(n - tabliczb(0, xx - 1), (k + 1) - xx) :) --- wpis edytowano 2025-01-14 09:00 --- |
| 2025-01-14 (08:59) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 426 [ CZCIONKA MONOSPACE ] ok sprawdzę |
| 2025-01-14 (09:13) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 430 [ CZCIONKA MONOSPACE ] tak tworzy kod 1 5 20 21 22 27 80 'oczywiście step jest : for up to down k = [7], n = 80] ,csn w toku = 70654263 k = [7], n = 80] ,csn w toku = 2969407978 k = [7], n = 80] ,csn w toku = 3170767528 k = [7], n = 80] ,csn w toku = 3176229040 k = [7], n = 80] ,csn w toku = 3176684166 k = [7], n = 80] ,csn w toku = 3176715022 k = [7], n = 80] ,csn w toku = 3176716400 csn zapisany: 70654263 czyli tak 1 5 20 21 27 28 29 30 31 33 37 49 krok nr:{ 12}--> k = [12], n = 49] ,csn w toku = 14898434202 krok nr:{ 11}--> k = [12], n = 49] ,csn w toku = 84566968670 krok nr:{ 10}--> k = [12], n = 49] ,csn w toku = 92236307802 krok nr:{ 9}--> k = [12], n = 49] ,csn w toku = 92256337812 krok nr:{ 8}--> k = [12], n = 49] ,csn w toku = 92263244712 krok nr:{ 7}--> k = [12], n = 49] ,csn w toku = 92263564482 krok nr:{ 6}--> k = [12], n = 49] ,csn w toku = 92263680762 krok nr:{ 5}--> k = [12], n = 49] ,csn w toku = 92263719522 krok nr:{ 4}--> k = [12], n = 49] ,csn w toku = 92263731150 krok nr:{ 3}--> k = [12], n = 49] ,csn w toku = 92263734210 krok nr:{ 2}--> k = [12], n = 49] ,csn w toku = 92263734770 krok nr:{ 1}--> k = [12], n = 49] ,csn w toku = 92263734836 csn zapisany: 14898434202 '-- początek słabego czasu .. by trzeba zastosować coś szybszego-------- For xx = k To 1 Step -1 If (n - tabliczb(0, xx - 1)) > (k - xx) Then pozycja = pozycja - KOMBINACJE((k + 1) - xx, n - tabliczb(0, xx - 1)) Cells(xx + 2, 37) = "k = [" & k & "], n = " & n & "] ,csn w toku = " & pozycja '<<-------------dodane Next xx '-- koniec słabego czasu tabdek(z - 1, 0) = pozycja Cells(k + 3, 37) = "csn zapisany: " & pozycja'<<-------------dodane Next z --- wpis edytowano 2025-01-14 09:25 --- |
| 2025-01-14 (09:23) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 547 433 [ CZCIONKA MONOSPACE ] Ale to nie jest rozwiązanie problemu kombinacji bo: KOMBINACJE((k + 1) - xx, n - tabliczb(0, xx - 1)) (k + 1) - xx to "k", a n - tabliczb(0, xx - 1) to "n" więc procedura przekazuje do funkcji parametry (k po n). To że funkcja je wewnątrz siebie zamienia, nie zmienia faktu błędnego przekazywania parametrów Z moją funkcją kombinuj taki warunek działa poprawnie: If (n - tabliczb(0, xx - 1)) > (k - xx) Then pozycja = pozycja - kombinuj(n - tabliczb(0, xx - 1), (k + 1) - xx)  --- wpis edytowano 2025-01-14 09:29 --- |
| 2025-01-14 (09:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 435 [ CZCIONKA MONOSPACE ] No tak fair_play Ja muszę ....co innego teraz męczyć ------- ... Ty coś pozmieniasz .....swoje dostawisz coś usuniesz i wyjdzie ........ jeszcze coś ciekawszego |
| 2025-01-14 (09:33) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 547 436 [ CZCIONKA MONOSPACE ] Nie można kombinować 14 po 42 tylko 42 po 14 |
| 2025-01-14 (09:43) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 547 440 [ CZCIONKA MONOSPACE ] No właśnie: k = 12 n = 49 i do funkcji przekazujesz KOMBINACJE(12 po 49) zamiast kombinuj(49 po 12) |
| 2025-01-14 (09:53) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 444 [ CZCIONKA MONOSPACE ] 1 ,5 ,20 ,21 ,27 ,28 ,29 ,30 ,31 ,33 ,37 ,49 xx = [1] krok nr:{ 1.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 1 > 11 ..,w toku = 22595200368 , xx = [2] krok nr:{ 2.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 5 > 10 ..,w toku = 14925861236 , , , , , , , xx = [3] krok nr:{ 3.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 20 > 9 ..,w toku = 14905831226 , , , , , , , xx = [4] krok nr:{ 4.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 21 > 8 ..,w toku = 14898924326 , , , , , , , xx = [5] krok nr:{ 5.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 27 > 7 ..,w toku = 14898604556 , , , , , , , xx = [6] krok nr:{ 6.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 28 > 6 ..,w toku = 14898488276 , , , , , , , xx = [7] krok nr:{ 7.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 29 > 5 ..,w toku = 14898449516 , , , , , , , xx = [8] krok nr:{ 8.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 30 > 4 ..,w toku = 14898437888 , , , , , , , xx = [9] krok nr:{ 9.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 31 > 3 ..,w toku = 14898434828 , , , , , , , xx = [10] krok nr:{ 10.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 33 > 2 ..,w toku = 14898434268 , , , , , , xx = [11] krok nr:{ 11.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 37 > 1 ..,w toku = 14898434202 , , , , , , xx = [12] krok nr:{ 12.. a więc {n - tabliczb(0, xx - 1)) > (k - xx)} to mamy .. 49 > 0 ..,w toku = 14898434202 csn zapisany: 14898434202 tak to hula ......... jak zauważyłeś nieprawidłowo chociaż wynik jest poprawny ..zdaje mi się --- wpis edytowano 2025-01-14 09:54 --- |
| 2025-01-14 (10:08) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 547 445 [ CZCIONKA MONOSPACE ] Uparciuch Przecież napisałem, że wszystkie kody zaprezentowanych zestawów liczb są poprawne. Kwestionuję tylko kolejność przekazywanych do funkcji kombinacji parametrów, nie 12 po 49 tylko 49 po 12. |
| 2025-01-14 (10:21) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23091 | wpis nr 1 547 451 [ CZCIONKA MONOSPACE ] 44 45 46 47 48 49 xx=[1]kroknr:6..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:44>5..,wtoku=13983816 xx=[2]kroknr:5..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:45>4..,wtoku=13983816 xx=[3]kroknr:4..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:46>3..,wtoku=13983816 xx=[4]kroknr:3..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:47>2..,wtoku=13983816 xx=[5]kroknr:2..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:48>1..,wtoku=13983816 xx=[6]kroknr:1..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:49>0..,wtoku=13983816 csnzapisany:13983816 1 2 3 4 5 49 xx=[1]kroknr:6..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:1>5..,wtoku=44 xx=[2]kroknr:5..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:2>4..,wtoku=12271556 xx=[3]kroknr:4..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:3>3..,wtoku=13805495 xx=[4]kroknr:3..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:4>2..,wtoku=13968680 xx=[5]kroknr:2..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:5>1..,wtoku=13982870 xx=[6]kroknr:1..kod:{n-tabliczb(0,xx-1))>(k-xx)}..wynik:49>0..,wtoku=13983816 csnzapisany:44 co widzę to ........ jest wklejone jak odwrócisz przekazywanie parametrów to wklej o ile poprawne będzie ..... ....... nie dam rady dwie sroki na raz i już mam ...... kręciołkę |
| 2025-01-14 (10:31) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8998 | wpis nr 1 547 454 [ CZCIONKA MONOSPACE ] Już pisałem: If (n - tabliczb(0, xx - 1)) > (k - xx) Then pozycja = pozycja - kombinuj(n - tabliczb(0, xx - 1), (k + 1) - xx) tylko moja funkcja kombinuj, a nie jedo KOMBINACJE. 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 W VBA jest Application.WorksheetFunction.Combin(n,k) zobacz co dostaniesz dla Application.WorksheetFunction.Combin(49,12), a co Application.WorksheetFunction.Combin(12,49) --- wpis edytowano 2025-01-14 10:39 --- |
| | Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 516 517 518 ... 560 561 Wyślij wiadomość do admina |