Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2
Wyślij wiadomość do admina

Przewiń wpisy ↓

Prosba o plik z zestawieniem wszystkich kombinacji w Dużym Lotku

2008-12-30 (14:04)

status arek1980
Data rejestracji: 2008-12-30
Ilość postów: 8

4018
wpis nr 170 635
[ CZCIONKA MONOSPACE ]

Witam. Mam taka prosbe czy moze mi ktos powiedziec w jaki sposob w excelu moge wywolac funkcje ktora wypisze mi wszystkie kombinacje w duzym lotku?



Musialoby to byc w excelu gdyz chce a tym pracowac i uwzgledniac kolejne warunki ograniczajac w ten sposob ilosc kombinacji.



Dziekuje bardzo
2008-12-30 (17:36)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 170 662
[ CZCIONKA MONOSPACE ]

Popracuj sobie w C++ lub w Delphi to nie takie trudne.
2008-12-30 (17:55)

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

1386
wpis nr 170 665
[ CZCIONKA MONOSPACE ]

AREK , nie wpisywałem nigdy do excela wszystkich kombinacji DL ,no bo

po co ,poza tym chyba nie rozumiesz o co prosisz ,bo byś nie prosił o to.

NO ALE.....załóżmy że mnie to nie obchodzi......



mniej więcej 2 minuty i masz wszystkie kombinacje w pliku txt. jeżeli

uruchomisz takie proste makro ,ale w nim musisz zmienić ;



> ścieżkę do pliku ,czyli adres do pliku txt. ,a więc zmień

-nazwę użytkownika ,oraz wskaż partycję ew. wskaż właściwy folder<



Sub KOMBINACJE_DL()





Dim stoper As Date, czas As String

Dim fs, a

Set fs = CreateObject(\"Scripting.FileSystemObject\")

\'zamiast C:\\Documents and Settings\\LEO\\Pulpit\\KombinacjeDL .txt wstaw [ADRES ŚCIEŻKI] użytkownika !!!!!!!!!!!!!!!!!

Set a = fs.CreateTextFile(\"C:\\Documents and Settings\\LEO\\Pulpit\\KombinacjeDL .txt\", True)



Dim k As Long, Liczba_KOŃCOWA As Byte

Dim Ilość_Kombinacji As Long







Application.ScreenUpdating = False



stoper = Timer

k = 0





Liczb_losowanych = 6



Liczba_KOŃCOWA = 49



For l1 = 1 To Liczba_KOŃCOWA - 5

For l2 = l1 + 1 To Liczba_KOŃCOWA - 4

For l3 = l2 + 1 To Liczba_KOŃCOWA - 3

For l4 = l3 + 1 To Liczba_KOŃCOWA - 2

For l5 = l4 + 1 To Liczba_KOŃCOWA - 1

For l6 = l5 + 1 To Liczba_KOŃCOWA











k = k + 1

With a

.WriteLine (l1 & \" \" & l2 & \" \" & l3 & \" \" & l4 & \" \" & l5 & \" \" & l6)

End With



Next l6

Next l5

Next l4

Next l3

Next l2

Next l1



Application.ScreenUpdating = True



Ilość_Kombinacji = Application.WorksheetFunction.Combin(Liczba_KOŃCOWA, Liczb_losowanych)

czas = Format(Timer - stoper, \" 00:00:00.00\") & \" sec.\"

MsgBox \" obliczenia trwały \" & czas & \"ilość kombinacji przeliczonych = \" & Ilość_Kombinacji & \" spełniających parametry = \" & k



Cells(1, 1).Select

End Sub





UZYSKASZ PLIK Z 13983816 KOMBINACJI



jeśli koniecznie chcesz [Wszystkie] mieć W EXCELU .........

to musisz potrzebne dane zaimportować ......



ale .....niżej masz makro które wpisze plik ,ja nie próbowałem nigdy takiego

dużego pliku wczytywać ,bo wszystkie filtracje czy sortowania ,trzeba wykonać wcześniej ,odpowiednio pisząc kody makra, aby wynikiem było

kilkaset albo kilka kombinacji......a nie odwrotnie ,jak to Tobie się.....wymyśliło.



ale ucz się....jak chcesz .



Sub LargeFileImport()







Dim ResultStr As String

Dim FileName As String

Dim FileNum As Integer

Dim Counter As Double

Cells.Clear

\'od tego miejsca możesz wszystko wyciąć

Cells.Select

Selection.RowHeight = 10

With Selection.Font

.Name = \"Arial\"

.FontStyle = \"Normalny\"

.Size = 8

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With



ActiveWindow.Zoom = 80

\'dotąd ,reszty nie ruszaj



Application.ScreenUpdating = False



FileName = Application.GetOpenFilename



If FileName = \"\" Then End



FileNum = FreeFile()





Open FileName For Input As #FileNum



Application.ScreenUpdating = False











Do While Seek(FileNum) <= LOF(FileNum)



Application.StatusBar = \"Importing Row \" & _

Counter & \" of text file \" & FileName



Line Input #FileNum, ResultStr



If Left(ResultStr, 1) = \"=\" Then

ActiveCell.Value = \"\'\" & ResultStr

Else

ActiveCell.Value = ResultStr

End If



If ActiveCell.Row = 1048576 Then



ActiveWorkbook.Sheets.Add

Else



ActiveCell.Offset(1, 0).Select

End If



Counter = Counter + 1



Loop







Close



Application.StatusBar = False

Application.ScreenUpdating = True







End Sub

2008-12-30 (19:07)

status cymbał
Data rejestracji: 2008-03-22
Ilość postów: 139

3293
wpis nr 170 687
[ CZCIONKA MONOSPACE ]

Ale proste makro? Ty Leo to jesteś szalony. Jak to dobrze umieć coś zrobić w excelu.
2008-12-30 (19:37)

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

1386
wpis nr 170 698
[ CZCIONKA MONOSPACE ]

cymbał > jeśli piszę że proste ,to jest tak właśnie ,

kody zliczające odległości trafień ,

odwołania leksykograficzne i inne bajery ,oczywiście z obliczaniem wszystkiego w tablicach,i wypisem tylko unikatów spełniających szereg warunków w excelu ,delphi czy paskalu , a do tego sprytnie napisane ,to dopiero

jest .....jazda... ,te dwa makra naprawdę proste są.
2008-12-30 (20:49)

status arek1980
Data rejestracji: 2008-12-30
Ilość postów: 8

4018
wpis nr 170 713
[ CZCIONKA MONOSPACE ]

hej. dziekuje za odpowiedzi. zrobilem wg pierwszej metody, ale w notatniku konczy kombinacje na : 1 11 12 21 33 45 wic troche jeszcze brakuje, nei wiem czemu tak sie dzieje.



W gestii wyjasnienie po co mi takie rzeczy. mam pomysl na duzego lotk, na ok 40-50 zakladow na losowanie i czekanie. zeby ograniczac ilosc kombinacji za pomoca wymyslonych przeze mnie warunkow (np ze padaja 3 parzyste 3 nieparzyste, itp) musze meic co ograniczac a wiec musze miec zbior wszystkich prawie 14 mlon kombinacji. oczywiscie gdybym potrafil pisac takie makra jak kolega to od razu ograniczylbym sobie ilosc mozliwosci np wlasnie do tych 3 parzyste+3 nieparzyste ale ze nie potrafie to bardzo pomocny bedzie dla mnie wykaz wszystkich komibnacji.
2008-12-30 (21:59)

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

1386
wpis nr 170 736
[ CZCIONKA MONOSPACE ]

arek1980 > to trzeba było poprosić o plik 3N+3P [4655200-kombinacji]

dotychczas na 4632 losowania

weszło 1599 w tym układzie [3p+3n].....34,52%.
2008-12-30 (22:25)

status arek1980
Data rejestracji: 2008-12-30
Ilość postów: 8

4018
wpis nr 170 750
[ CZCIONKA MONOSPACE ]

no tak. to w takim razie moglbym poprosic 3p+3np ?

bylbym wdzieczny

2008-12-30 (22:35)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 170 752
[ CZCIONKA MONOSPACE ]

Możesz się pobawić tym, co zamieściłem na: http://www.sufler.com.pl/leo/Reduktor.rar
2008-12-30 (22:42)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 170 754
[ CZCIONKA MONOSPACE ]

2008-12-31 (00:20)

status Damian16llat
Data rejestracji: 2008-09-12
Ilość postów: 96

3750
wpis nr 170 766
[ CZCIONKA MONOSPACE ]

arek1980, ośmiele sie napisać że kiepski masz ten pomysł:



parzyste - nieparzyste czyli schodzisz do 4.655.200 kombinacji jak to Ci kolega Leo podał, zastosujesz jeszcze pare róznych filtrów, jak strefy, przedziały, podział liczb na cyfry itp, no to może sie dofiltujesz przy dobrym wietrze do 1.200.000 kombincji i to tylko tyle a to i tak niemożliwa liczba zakładów do obstawienia bo jeśli potrafiłbyś jak to napisałeś wybrać sobie te 40 kombinacji z 1.200.000 to lepiej zagrać odrazu sobie w expresa bo tam odrazu wybierasz tylko z 850.667 kombinacji

(ja ci podeśle na skrzynke plik z moimi operacjami i pomysłami na kodach csn tylko licze że sam dołożysz jakis swój pomysł a może coś udoskonalisz do tego toku rozumowania i odeślesz mi)
2008-12-31 (08:54)

status arek1980
Data rejestracji: 2008-12-30
Ilość postów: 8

4018
wpis nr 170 784
[ CZCIONKA MONOSPACE ]

wiec tak.

Damian : mowisz ze filtrami zjade do 1,2 mln. powiem ci ze zjade duzo duzo bardziej jezeli zastosuej wszystkie filtry ktore sobei zalozylem na podstawie historii wynikow. mysle ze zjade w okolice 100tys. zobaczymy.



Do sindbada : dzieki za programik, bardzo pomocny. gdybys jednak mogl mi wytlumaczyc opcje ktore sa w zakladkach : graficzno-liczbowy i dziesiatki. Dzieki bardzo.
2009-01-01 (01:00)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 170 935
[ CZCIONKA MONOSPACE ]

Zerknij na obrazek na kuponie wybrałem 6 liczb, co jest bardzo poglądowe.



W opcjach „graficzno-liczbowe” widać, że z liczb, które wybrałem jest 1 kombinacja z wariantem 3 – 2 – 1 to znaczy, że mamy w zakładzie trzy grupy liczb sąsiednich 1,9,10 to są trzy liczby sąsiadujące ze sobą następnie 19,20 dwie liczby sąsiednie no i 29 jedna liczba nie ma sąsiedniej liczby w okuł siebie.



Opcje „dziesiątki” to ilość różnych zakresów dziesiątek na kuponie jest zakład z trzema różnymi dziesiątkami, których w DL jest 5 a to ich zakresy:

Jednostki 1..9

Dziesiątki 10..19

Dwudziestki 20..29

Trzydziestki 30..39

Czterdziestki 40..49

Zakład złożony jest z trzech różnych dziesiątek: 1,9 (jednostki) dalej 10,19 (dziesiątki) no i 20,29 (dwudziestki).



Jeśli w programie brak filtrów, które sobie założyłeś to może je tam umieścimy.

2009-01-01 (11:24)

status arek1980
Data rejestracji: 2008-12-30
Ilość postów: 8

4018
wpis nr 170 946
[ CZCIONKA MONOSPACE ]

Dzeiki sindbad, jestes bardzo pomocny. Nad filtrami mysle i gdyby byl jakis ktorego program nie uwzglednia to podam kolo niedzieli.

I jeszcze jedno pytanie, czy jest odpowiednik tego programu dla express lotka?
2009-01-01 (12:01)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 170 953
[ CZCIONKA MONOSPACE ]

Robiłem i na express lotka i gdzieś w archiwach go mam.
2009-01-01 (12:38)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 170 958
[ CZCIONKA MONOSPACE ]

No jest: http://www.sufler.com.pl/leo/Reduktor42.rar



2009-01-01 (14:20)

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

1386
wpis nr 170 970
[ CZCIONKA MONOSPACE ]

witam

Sindbad > dawać też przyjemnie jest

Widać ,że masz pojęcie ,

jak dołożysz sumy liczb min. i max ,

odległości pomiędzy liczbami [3,4,5-odl. min. max] ,

oraz zamiast jednego ułożenia 7/7 to > 8 kwadratów 7/7 [56zestawów,wszystkie ułożenia 2/6] z odwołaniem ilości trafień w pionie i poziomie w każdym z 8 kwadratów.........zakładamy max 4liczby w kombinacji z 7-iu w 56 pozycjach ,

z założenia że nie trafimy żadnej 4/7

______________________________________________________________

oczywiście filtrowanie jednoczesne według wszystkich ustawień z zapisem do pliku txt.

na koniec filtrowanie z pliku txt. i sprawdzanie układów o określonej odległości traf.3/6 ,4/6 ,5/6,6/6.....w tablicach .......z zapisem wynikowym ponownie do pliku .....to będzie program .....the best .

masz czas cały 2009

WSZYSTKIEGO DOBREGO

leszek

2009-01-01 (22:00)

status statyk
Data rejestracji: 2003-11-30
Ilość postów: 631

97
wpis nr 171 090
[ CZCIONKA MONOSPACE ]

Witam w Nowym Roku i życzę wszystkim wysokich wygranych.



Sindbad , reduktory są nawet przydatne i warto by było je rozszerzyc zgodnie z sugestią Leo. Sprawdzałem do ExL nieparzyste , bo ostatnie losowanie jest takie : 5,9,11,17,23 . Grając na 30 liczb od 1-30 wszystkich kombinacji jest 142 506 po redukcji jest tylko 3003 i piątka siedzi pod poz. 1899.



Natomiast nie bardzo się zgadzają dla tego samego losowania inne opcje jak graf-liczba (układ 2-1-1-1) ; zewnetrzne (układ 1-4) . Dlatego mam wielką prośbe , czy mógłbyś to sprawdzic , może ja coś zle robię



Pozdrawiam
2009-01-01 (22:41)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 171 099
[ CZCIONKA MONOSPACE ]

Cześć!

Należy wybrać układ graficzno-liczbowy, „5 – 0” co oznacza, że wszystkie 5 liczb tworzy jedną grupę i będzie grało tak jak na obrazku.

2009-01-01 (23:18)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 171 107
[ CZCIONKA MONOSPACE ]

Ważne, bo zapomniałem dodać, że w moim programie wybieramy jedynie warunki, które mają być spełnione.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2
Wyślij wiadomość do admina