moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2019-07-31 (20:11) pir2 Data rejestracji: 2018-06-11 Ilość postów: 63	wpis nr 1 242 033 [ CZCIONKA MONOSPACE ] System idealny o takich parametrach jak wyżej umieściłem we wpisie nr 1 216 365 strona 257 tego wątku.
2019-07-31 (21:14) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 041 [ CZCIONKA MONOSPACE ] pir2, zanim Alessandro Jurcovich zamieścił dziś swój wpis z tym systemem, konsultował ze mną to, czy takiego systemu już nie mamy - na co ja mu odpisałem (po sprawdzeniu zawartości wątku "Systemy strefowe by 777ch") że nie, gdyż nie ma w nim tego Twojego rozpisu z lutego'19 i został widocznie przeoczony przez moderatora w/w wątku i dlatego nie został przeniesiony do jego wątku z systemami strefowymi. Powiem więcej: następnie za pomocą lokalnej wyszukiwarki dodatkowo jeszcze przeszukałem zawartość forum multipasko i też nie znalazłem tego systemu, ale to już możesz jedynie sobie zawdzięczać, bowiem nie zachowałeś staranności w opisie tego systemu i nie podałeś jego metryczki w sposób w jaki to się robi, czyli w określonym porządku, zarówno przy pisaniu w j. polskim czy też angielskim. Ale Twoje pierwszeństwo w publikacji tego systemu łatwo dowieść, gdyż ja zaraz po przeczytaniu go na multipasko, zamieściłem ten rozpis na włoskim forum w dniu 20/02/2019 w dziale o systemach strefowych, oczywiście z podaniem tam Ciebie jako autora: https://wheels.forumcommunity.net/?t=60786523&st=90#entry437503877
2019-07-31 (22:05) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 052 [ CZCIONKA MONOSPACE ] 777ch, usuń proszę mój wpis nr 1 241 983 a ten poniższy z podaniem pir2 jako autora, dodaj w wolnym czasie do "Systemów strefowych" .......... Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers, warranty 2 if 2x 1from3 (system on 4 numbers in line) Zone #1numbers: 01,02,03,... Min= 0 \| Max= 1 Zone #2numbers: 04,05,06,... Min= 0 \| Max= 1 Zone #3numbers: 07,08,09,... Min= 0 \| Max= 1 Zone #4numbers: 10,11,12,... Min= 0 \| Max= 1 Zone #5numbers: 13,14,15,... Min= 0 \| Max= 1 System on 15 lines: 4 7 10 13 5 8 11 14 6 9 12 15 1 7 11 15 2 8 12 13 3 9 10 14 1 4 12 14 2 5 10 15 3 6 11 13 1 5 9 13 1 6 8 10 2 4 9 11 2 6 7 14 3 4 8 15 3 5 7 12 author: pir2
2019-07-31 (23:09) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 066 [ CZCIONKA MONOSPACE ] pir2, sprawa autorstwa tego systemu została już przeze mnie wyjaśniona na włoskim forum, czego dowodem jest ten wpis Alessandro Jurcovicha: https://wheels.forumcommunity.net/?t=60786523&st=135#newpost
2019-08-01 (02:53) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 242 076 [ CZCIONKA MONOSPACE ] kleszek> Spróbuj tego: Option Base 1 Sub Kombinacje_v_po_k() Dim v As Integer Dim k As Integer Dim n As Double Dim błąd As String k = Cells(1, 1) v = Application.WorksheetFunction.CountA(Range("a1:a65536")) - 1 If v Rows.Count Then GoTo błąd_danych Kombinuj v, k Exit Sub błąd_danych: If n = 0 Then błąd = "Procedura tworzy kombinacje v po k." _ & String$(2, 10) _ & "Komórka A1 powinna zawierać wartość k." _ & String$(1, 10) _ & "Komórki poniżej v liczb, z których tworzone są kombinacje." Else błąd = "Kombinacje wymagają " & Format$(n, "#,##0") & _ " wierszy, więcej niż dostępne w arkuszu!" End If MsgBox błąd, vbOKOnly, "BŁĄD DANYCH" Exit Sub End Sub Sub Kombinuj(Optional v As Integer = 0, Optional k As Integer = 0, Optional n_w As Integer = 0, Optional n_p As Integer = 0) Static iv As Integer Static ik As Integer Static kombinacja() As Integer Static y As Double Dim i, x As Integer If v 0 Then iv = v ik = k ReDim kombinacja(ik) As Integer n_w = 1 n_p = 1 y = 0 End If For i = n_p To iv kombinacja(n_w) = Cells(i + 1, 1) If n_w ik Then Kombinuj , , n_w + 1, i + 1 Else y = y + 1 Range(Cells(y, 3), Cells(y, 2 + ik)) = kombinacja End If Next i End Sub
2019-08-01 (14:48) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4990	wpis nr 1 242 144 [ CZCIONKA MONOSPACE ] fair_play, jest tak jak pisał 777ch. Edytor forum obcina makra. Błąd jest w linii If v 0 Then i w linii If n_w ik Then W pierwszym przypadku powinno chyba być If v = 0 Then a w drugim nie wiem ale co bym tam nie wstawił makro wywala się na linii kombinacja(n_w) = Cells(i + 1, 1) z komentarzem 'Subscript out of range' Pewnie coś jeszcze z makra zostało obcięte przez edytor. --- wpis edytowano 2019-08-01 14:49 ---
2019-08-01 (15:04) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 242 150 [ CZCIONKA MONOSPACE ] kleszek> W obu wypadkach powinno być "nie równa się" czyli znak "mniejsze","większe". Trzeba napisać do pasko żeby coś w tym edytorze poprawił. Pozdrawiam
2019-08-01 (15:16) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4990	wpis nr 1 242 153 [ CZCIONKA MONOSPACE ] ok, dzięki jest super !!! Pasko chyba nie reaguje na żadne uwagi tego typu. Mam wrażenie, że traktuje to forum jak piąte koło u wozu. W sumie to nie moja sprawa, skoro tak mu pasuje ?
2019-08-01 (17:20) BochiCintra Data rejestracji: 2019-07-29 Ilość postów: 103	wpis nr 1 242 162 [ CZCIONKA MONOSPACE ] Sub testCombos() Dim N, m As Long N = 10 'Range("P1") m = 6 'Range("P2") Range("A:G").Clear Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Call Combos(N, m) Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Sub Combos(N, m As Long) ' Calculates combinations of N choose M Dim ai() As Long Dim i As Long If N N Then Exit Sub ReDim ai(1 To m) ai(1) = 0 For i = 2 To m ai(i) = i Next i Do For i = 1 To m - 1 If ai(i) + 1
2019-08-01 (17:33) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 164 [ CZCIONKA MONOSPACE ] Bruno Bochi Cintra >> https://www.cnpjreceita.com/empresa/bruno-bochi-cintra-cia-ltda/03851699000191
2019-08-01 (18:05) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4990	wpis nr 1 242 165 [ CZCIONKA MONOSPACE ] Makro podane przez BochiCintra również działa bez zarzutu. W tym przypadku makro generuje kombinacje "na sztywno" dla parametru v= 10 i k = 6. Aby makro miało charakter uniwersalny i generowało kombinacje dla własnych potrzeb, należy zmienić linię makra N = 10 na N = Cells(1,16) m = 6 na m = Cells(2,16) i swoje parametry kombinacji v i k podać w komórce P1 i P2 --- wpis edytowano 2019-08-01 18:05 ---
2019-08-01 (18:19) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 242 170 [ CZCIONKA MONOSPACE ] kleszek> Ale Ty prosiłeś o makro kombinujące zestaw własnych liczb (np. 3,14,31,2,15,22...), a nie tylko N kolejnych (1,2,3,4,5,6...), a makro BochiCintra w tej formie tego nie zrobi. --- wpis edytowano 2019-08-01 18:23 ---
2019-08-01 (18:46) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4990	wpis nr 1 242 172 [ CZCIONKA MONOSPACE ] W sumie racja Od przybytku głowa nie boli. Przyda się zarówno jedne makro jak też drugie
2019-08-01 (19:03) BochiCintra Data rejestracji: 2019-07-29 Ilość postów: 103	wpis nr 1 242 173 [ CZCIONKA MONOSPACE ] GENERA V, K, T, M IN EXCEL https://drive.google.com/open?id=14MOBII1Wz9vOM3bJUk2MnXeMMNLgZMlZ
2019-08-01 (22:31) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23261	wpis nr 1 242 194 [ CZCIONKA MONOSPACE ] Do czego potrzebne to..... kombi..nowanie. -------- Próbowałem 79 [-59] Udało się : C(41,21,5,5)=80 poprzedni rekord : Created by: Jan de Heer and Steve Muir 59 ≤ C(41,21,5) ≤ 86 ciekawe czy mnie znowu ......pobiją pozdrawiam
2019-08-02 (00:36) Pasko Data rejestracji: 2003-08-03 Ilość postów: 4483 ADMIN	wpis nr 1 242 211 [ CZCIONKA MONOSPACE ] Zobaczę co da się zrobić...
2019-08-02 (08:08) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 218 [ CZCIONKA MONOSPACE ] 777ch, gratuluję Ci kolejnego rekordu odebranego holenderskiemu teamowi, aczkolwiek dotąd nie ma go jeszcze na stronie Dana Gordona, stąd przed zamieszczeniem go tam raczej nie rozgłaszaj takich sukcesów Urbi et Orbi, bo multipasko jest znane nie tylko we Włoszech i Brazylii (skąd wczoraj przyszła pomoc dla kolegi fair_play) a to jedynie może przyśpieszyć kontrofensywę poprzednich autorów, dla skrócenia żywotu rekordu Twego autorstwa... A będąc przy rekordach duetu Holendrów Jan de Heer i Steve Muir, to są oni autorami także tego systemu C(42,2o,4,4)=45 https://ljcr.dmgordon.org/cover/show_cover.php?v=42&k=20&t=4 i nie wiem czy tu robiłeś już podchody, bowiem mnie interesuje będący zapewne w sferze możliwości Twoich programów wynik dla systemu 42,20,4,5=? Pozdrawiam
2019-08-02 (10:54) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23261	wpis nr 1 242 239 [ CZCIONKA MONOSPACE ] v 42 k 20 t 4 m 5 1-Block = 122094 4\|20 if hit = 5\|42 Ticket teorem --> 7 Teor. Gw. % if ticket = 7 --> 100,4690432 combinations [4] in 42 : 111930 combinations [4] in 5 : 5 Ticket*combinations 4 in 5 : 35 Teorem min.ticket = 6,96732026143791 C (42,20,4,5) = 6,96732026143791 inverso C (42,22,21,37) = 6,96732026143791 witaj edi8 Pewnie będzie więcej jak 7 zakładów .... sprawdzę dziś Czekam na kontrofensywę Co do rozpisu C(42,2o,4,4)=45 to jeszcze nie próbowałem tu ...... podziałać . Ale ze 2-min temu wrzuciłem to na grill i widzę bardzo małe szanse na tym poletku [-43] przy C(42,2o,4,4)=44 ale "pogriluję" przy kawce
2019-08-02 (11:09) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 242 [ CZCIONKA MONOSPACE ] 777ch, dzięki za zapowiedź powalczenia z tym systemem, ale zapewne na 14 zakładach to się nie skończy, gdyż rekord dla 1/2 v i k czyli 21,10,4,5=19 Mam też prośbę, abyś dodał do "Systemów strefowych" także i ten z wpisu nr 1 241 981 autorstwa Alessandro: Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers; warranty: 2 if 2x 1from3 (system on 3 numbers in line) System on 30 lines Pozdrawiam
2019-08-02 (11:57) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 242 253 [ CZCIONKA MONOSPACE ] edi8> Gdzie są zamieszczane rekordy dla t mniejszego od m, bo u Gordona widzę tylko te dla t=m ? P.S. 1. Jeśli wpis Bruno Bochi Cintra był pomocą dla mnie, to podziękuj mu w moim imieniu. Ale moja procedura przedstawiona kleszkowi była gotowa przed jego wpisem. 2. Napisałem "t mniejszego od m", bo Pasko zgodnie z obietnicą zajął się edytorem forum i ten teraz oprócz znaku nierówności "" (będzie pusty cudzysłów) wycina także znak mniejszości, po natrafieniu na który edytor wycina całą treść po nim. Dlatego ten wpis powtarzałem kilka razy. 3. Edycja była jeszcze możliwa, więc tutaj odpiszę. Kwestią weryfikacji zainteresowałem się ze dwa tygodnie temu więc nie posiadam programów, o które pytasz. Pozdrawiam --- wpis edytowano 2019-08-02 12:06 ---


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 280 281 282 ... 561 562 Idź do strony: Wyślij wiadomość do admina 🎱 MultiPairs 2027 – nowa wersja w przeglądarce, otwórz BETA Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]