Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

moje ... oprogramowanie

2019-07-31 (22:05)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2019-08-02 (12:01)

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

2623
wpis nr 1 242 255
[ CZCIONKA MONOSPACE ]

fair_play, kleszek>>
nie chcąc nadmiernie sobą absorbować włoskich
kolegów, najpierw do Was kieruję pytanie o to,
czy posiadacie program WUC Wheel Ultimate CIT
w obu jego wersjach 0.0.7 i 0.1.3 linki do których
podawał nam kiedyś TarulliG, np. w tym wpisie na
multipasko z 2016 roku:
https://forum.multipasko.pl/n_viewtopic.php?id=4811&page=28&sort=&dir=
https://wheels.forumcommunity.net/?t=56894840&st=45#entry415755189
czy Prepo na włoskim forum:
https://wheels.forumcommunity.net/?t=56283166

bowiem nie ma ich już na wskazanej stronie do pobierania, zaś ja utraciłem część programów w tym WUC - zatem prośba do Was o przesłanie mi ich lub pro publico bono, o wrzucenie na serwer i podanie linka do ściągnięcia.
2019-08-02 (12:10)

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

14865
wpis nr 1 242 256
[ CZCIONKA MONOSPACE ]

edi8>

Wersja 0.1.3 jest tutaj:https://wheels.forumcommunity.net/?t=56283166


| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 280 281 282 ... 554 555
Wyślij wiadomość do admina