Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 280 281 282 ... 503 504 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2019-07-31 (12:39) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 241 981 [ CZCIONKA SPECJALNA ] Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers; warranty: 2 if 2x 1from3 (system on 3 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 30 lines: (Questo sistema è perfetto) 1 4 7 1 5 8 1 6 10 1 9 14 1 11 15 1 12 13 2 4 12 2 5 7 2 6 14 2 8 11 2 9 13 2 10 15 3 4 14 3 5 13 3 6 11 3 7 15 3 8 10 3 9 12 4 8 15 4 9 10 4 11 13 5 9 11 5 10 14 5 12 15 6 7 12 6 8 13 6 9 15 7 10 13 7 11 14 8 12 14 author: Alessandro Jurcovich |
2019-07-31 (20:11) pir2 Data rejestracji: 2018-06-11 Ilość postów: 63 | wpis nr 1 242 033 [ CZCIONKA SPECJALNA ] 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 SPECJALNA ] 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 SPECJALNA ] 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 SPECJALNA ] 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: 7349 | wpis nr 1 242 076 [ CZCIONKA SPECJALNA ] 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 < k Then GoTo błąd_danych n = Application.WorksheetFunction.Combin(v, k) If n > 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: 4850 | wpis nr 1 242 144 [ CZCIONKA SPECJALNA ] 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: 7349 | wpis nr 1 242 150 [ CZCIONKA SPECJALNA ] 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: 4850 | wpis nr 1 242 153 [ CZCIONKA SPECJALNA ] 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: 99 | wpis nr 1 242 162 [ CZCIONKA SPECJALNA ] 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 < 1 Or m > 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 < ai(i + 1) Then ai(i) = ai(i) + 1 Exit For Else ai(i) = i End If Next i If i = m Then If ai(m) < N Then ai(m) = ai(m) + 1 Else Exit Sub End If End If '=============================== ' list the combination Dim iRow As Long ' Application.ScreenUpdating = True DoEvents iRow = iRow + 1 Cells(iRow, 1).Resize(, m).Value = ai '=============================== Loop End Sub |
2019-08-01 (17:33) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 242 164 [ CZCIONKA SPECJALNA ] 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: 4850 | wpis nr 1 242 165 [ CZCIONKA SPECJALNA ] 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: 7349 | wpis nr 1 242 170 [ CZCIONKA SPECJALNA ] 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: 4850 | wpis nr 1 242 172 [ CZCIONKA SPECJALNA ] 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: 99 | wpis nr 1 242 173 [ CZCIONKA SPECJALNA ] 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: 21457 | wpis nr 1 242 194 [ CZCIONKA SPECJALNA ] 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: 4319 ADMIN | wpis nr 1 242 211 [ CZCIONKA SPECJALNA ] 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 SPECJALNA ] 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: 21457 | wpis nr 1 242 239 [ CZCIONKA SPECJALNA ] 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 SPECJALNA ] 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 |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 280 281 282 ... 503 504 Wyślij wiadomość do admina |