Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 280 281 282 ... 503 504
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2019-07-31 (12:39)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status pir2
Data rejestracji: 2018-06-11
Ilość postów: 63

15725
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)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7349

14865
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4850

2047
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7349

14865
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4850

2047
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)

status BochiCintra
Data rejestracji: 2019-07-29
Ilość postów: 99

16005
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)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4850

2047
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7349

14865
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4850

2047
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)

status BochiCintra
Data rejestracji: 2019-07-29
Ilość postów: 99

16005
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21457

1386
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)

status Pasko
Data rejestracji: 2003-08-03
Ilość postów: 4319
ADMIN
1
wpis nr 1 242 211
[ CZCIONKA SPECJALNA ]

Zobaczę co da się zrobić...
2019-08-02 (08:08)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 21457

1386
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)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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 lottoStrona: 1 2 ... 280 281 282 ... 503 504
Wyślij wiadomość do admina