Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

moje ... oprogramowanie

2019-07-30 (00:32)

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

1386
wpis nr 1 241 819
[ CZCIONKA MONOSPACE ]

Niestety .....
......cirka do 10 września ,nie mam możliwości nic pomóc,
po prostu do komputera siadam tylko na chwilę po 23-ej albo później
zależy kiedy wrócę......,
4~5 minut
i ...... idę spać .
pozdrawiam
2019-07-30 (10:52)

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

2623
wpis nr 1 241 853
[ CZCIONKA MONOSPACE ]

Po najlepszym wyniku uzyskanym przez TarulliG'a
25,7,4,7=40 szansa >> 99,4636988

zrobiłem test dla 25,7,4,7=30 i mam 97,40670%

6 7 8 9 18 21 22
6 7 11 14 15 19 24
2 6 10 16 18 19 20
2 3 12 19 22 24 25
3 5 6 10 13 14 24
1 2 5 6 8 11 17
1 3 7 8 14 16 24
4 5 6 12 15 16 23
2 3 7 13 15 17 20
1 9 10 11 12 13 19
11 13 15 16 18 21 25
1 3 4 7 19 21 23
2 4 8 13 18 23 24
3 4 6 9 17 21 25
5 7 9 12 13 14 20
4 8 11 12 14 20 22
3 4 7 10 11 18 22
1 2 4 9 14 15 25
2 5 9 16 21 22 24
1 6 13 20 22 23 25
5 8 10 15 19 20 21
9 10 15 17 22 23 24
1 3 5 12 15 18 22
7 8 10 12 16 17 25
3 8 9 11 16 20 23
5 14 17 18 19 23 25
4 13 14 16 17 19 22
2 10 11 12 14 21 23
4 5 7 11 20 24 25
1 12 17 18 20 21 24
..........
a tu z copre z Verificatora

04 08 11 12 14 20 22 copre 2 488
04 05 07 11 20 24 25 copre 2 842
05 07 09 12 13 14 20 copre 2 929
03 04 07 10 11 18 22 copre 2 941
01 03 07 08 14 16 24 copre 3 162
01 03 05 12 15 18 22 copre 3 210
03 05 06 10 13 14 24 copre 3 624
06 07 11 14 15 19 24 copre 3 735
02 05 09 16 21 22 24 copre 3 742
01 03 04 07 19 21 23 copre 3 874
02 03 12 19 22 24 25 copre 3 917
03 04 06 09 17 21 25 copre 4 068
04 13 14 16 17 19 22 copre 4 112
02 10 11 12 14 21 23 copre 4 156
06 07 08 09 18 21 22 copre 4 242
04 05 06 12 15 16 23 copre 4 254
03 08 09 11 16 20 23 copre 4 276
02 03 07 13 15 17 20 copre 4 327
01 12 17 18 20 21 24 copre 4 369
01 09 10 11 12 13 19 copre 4 544
05 14 17 18 19 23 25 copre 4 615
09 10 15 17 22 23 24 copre 4 652
07 08 10 12 16 17 25 copre 4 689
05 08 10 15 19 20 21 copre 4 740
01 02 04 09 14 15 25 copre 4 834
02 06 10 16 18 19 20 copre 4 951
01 02 05 06 08 11 17 copre 4 953
01 06 13 20 22 23 25 copre 5 004
02 04 08 13 18 23 24 copre 5 016
11 13 15 16 18 21 25 copre 5 287
..........................................

2019-07-31 (11:27)

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

2623
wpis nr 1 241 974
[ CZCIONKA MONOSPACE ]

25,07,04,07 = 30 >> szansa 97,6005%

01 02 04 08 13 18 25
01 02 05 06 19 20 24
01 03 04 07 14 17 20
01 03 08 15 19 21 24
01 05 07 10 13 15 23
01 06 11 16 18 20 22
01 09 12 14 21 22 23
01 10 11 12 16 17 25
02 03 06 07 15 22 25
02 03 10 14 16 17 19
02 03 10 14 18 20 21
02 04 09 11 12 15 19
02 05 11 13 17 21 22
02 07 09 16 18 23 24
02 08 12 17 20 23 25
03 04 05 06 09 10 12
03 05 08 09 11 17 18
03 11 12 13 20 23 24
03 13 16 19 22 23 25
04 05 08 14 16 22 24
04 06 17 18 19 21 23
04 07 10 11 21 24 25
04 13 14 15 16 18 20
05 07 12 14 18 19 25
05 09 15 16 20 21 25
06 07 08 12 13 16 21
06 08 10 11 14 15 23
06 09 13 14 17 24 25
07 08 09 10 19 20 22
10 12 15 17 18 22 24

autor: Evandro De Simone
2019-07-31 (12:31)

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

2623
wpis nr 1 241 980
[ CZCIONKA MONOSPACE ]

Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers;
warranty: 2 if 3 x 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 14 lines:

1 4 11
1 5 14
1 6 9
2 4 9
2 5 11
2 6 14
3 4 14
3 5 9
3 6 11
7 10 15
7 12 13
8 10 13
8 12 15
9 11 14

author: Alessandro Jurcovich
................
....................

777ch,
na 35. stronie tego wątku jest Twego autorstwa
system o tych parametrach, ale na 16 zakładów:
https://forum.multipasko.pl/n_viewtopic.php?id=4811&page=35&sort=&dir=

--- wpis edytowano 2019-07-31 12:37 ---

2019-07-31 (12:39)

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

2623
wpis nr 1 241 981
[ CZCIONKA MONOSPACE ]

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

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

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

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: 8998

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: 4983

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: 8998

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: 4983

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: 4983

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: 8998

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: 4983

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: 23091

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
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 280 281 282 ... 560 561
Wyślij wiadomość do admina