Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 327 328 329 ... 560 561
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-01 (17:52)

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

1386
wpis nr 1 289 625
[ CZCIONKA MONOSPACE ]

C(24,9,5,5)=604
poszło

no trzeba chyba więcej odjąć ......
2020-05-01 (17:55)

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

2047
wpis nr 1 289 626
[ CZCIONKA MONOSPACE ]

777ch, chyba coś z tym rekordem jest nie tak. Nie wierzę, że od 2005 roku nikt go nie ruszył.

--- wpis edytowano 2020-05-01 17:55 ---

2020-05-01 (17:56)

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

1386
wpis nr 1 289 627
[ CZCIONKA MONOSPACE ]

kleszek
bardzo prosty wynalazek........


po --wygeneruj brakujące
np. 5-ki

Próbuj wstawić w linie ,
a raczej skocz do linii
w której pokrywa się co najmniej
i tu sobie ustawiam ..... wartość

np zgodność 4|9 w linii coveru do 5-ki brakującej


albo
np zgodność 3|9 w linii coveru do 5-ki brakującej
itd......
2020-05-01 (18:00)

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

1386
wpis nr 1 289 628
[ CZCIONKA MONOSPACE ]

kleszek
777ch, chyba coś z tym rekordem jest nie tak. Nie wierzę, że od 2005 roku nikt go nie ruszył.

chyba wszyscy o nim --> Zapomnieli
2020-05-01 (18:00)

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

2047
wpis nr 1 289 629
[ CZCIONKA MONOSPACE ]

bardzo prosty wynalazek........

Wszystko zrozumiałem, proste .... hehe Mów do mnie jeszcze

--- wpis edytowano 2020-05-01 18:00 ---

2020-05-01 (18:06)

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

1386
wpis nr 1 289 630
[ CZCIONKA MONOSPACE ]

kleszek

Po prostu ,dla mojego programu przelecieć
np 2800 linii to ...... za długo jest

dlatego najpierw tworzę blok np 5-ek których brak

a potem od pierwszej do ostatniej linnii coveru
leci pętla ...... ale zatrzymuje się tam
gdzie kolejna brakująca piątka
ma4-liczby w linni coveru
i dopiero wtedy zaczyna się próba podmiany wszystkich liczb z piatki
do tej linni ,w której 4-liczby pasują

a wszystko z ciągłym sprawdzaniem gwarancji........
i jak znajdzie lepsza gwarancje,to podmienia
i jazda dalej i tak w kółko........

aż dojdzie do 100% albo przerwę
2020-05-01 (18:16)

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

2047
wpis nr 1 289 633
[ CZCIONKA MONOSPACE ]

To aplikacja .exe, czy makro w excelu ? Co by nie było, ważne, że skuteczne Pozdrawiam!
2020-05-01 (18:25)

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

1386
wpis nr 1 289 635
[ CZCIONKA MONOSPACE ]

To dalej ten sam program w paskalu
tylko dołożyłem kilka przycisków
..zaczynam się już w tym... gubić
zwłaszcza po kilku głębszych
2020-05-01 (18:40)

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

1386
wpis nr 1 289 636
[ CZCIONKA MONOSPACE ]

kleszek

to było dobre
--> z tym rekordem jest coś nie tak

może się w końcu odrobinę zbliżę do Ciebie .........

pozdrawiam
2020-05-01 (18:43)

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

2047
wpis nr 1 289 637
[ CZCIONKA MONOSPACE ]

Już mało Ci brakuje
2020-05-01 (22:08)

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

2047
wpis nr 1 289 679
[ CZCIONKA MONOSPACE ]

777ch, ja zatrzymałem się na wyniku 602. Nie zgłaszałem ( jeszcze ). Ten rozpis to Twój wynalazek, więc próbuj Twoją maszynką osiągnąć ten, albo lepszy wynik ( bo pewnie sie da go jeszcze poprawić ) i zgłaszaj
2020-05-01 (23:05)

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

1386
wpis nr 1 289 682
[ CZCIONKA MONOSPACE ]

kleszek

to tak nie działa ,jak masz lepszy wynik to zgłaszasz ,
i aż tyle,
i tylko tyle.


Ja już dziś nie działam w temacie .
2020-05-02 (20:20)

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

1386
wpis nr 1 289 856
[ CZCIONKA MONOSPACE ]

C(26,10,5,5)=500

kleszek -> jak nic nie będziesz zgłaszał.....
to....
lada chwila..... będziesz number two


ale czemu musisz akurat poprawiać moje ?

...może poprawiaj nie te co ja poprawiam......
ale oczywiście ,to właściwie ...bez różnicy ,
bo za to przecież nic a nic nie płacą

pozdrawiam
2020-05-02 (20:41)

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

2047
wpis nr 1 289 865
[ CZCIONKA MONOSPACE ]

cyt. "lada chwila..... będziesz number two
777ch, to akurat nie problem Ten rekord to była kwestia lojalności. Uważałem, że Tobie się bardziej ten rekord należy. Ale pewnie było by tak, że znowu ktoś z wielkich by się nim zainteresował i nic by nie zostało z polskiego rekordu. Zgłosiłem. Zgłosiłem również C(24,9,5,5)=602. a teraz walczę z C(45,9,5,5). Pozdrawiam!
2020-05-02 (20:59)

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

1386
wpis nr 1 289 867
[ CZCIONKA MONOSPACE ]

Hej
dotarłem do 602
ale zgłoszę tylko coś poniżej 🤘
jak go prze...kombinuję 😉

nie miej tych dziwacznych...
objekcji...drugim razem
🏌😷😀
2020-05-02 (21:01)

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

1386
wpis nr 1 289 869
[ CZCIONKA MONOSPACE ]

do jutra,bo dziś wp premiera
a potem Netflix 📽
2020-05-03 (15:04)

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

14865
wpis nr 1 290 012
[ CZCIONKA MONOSPACE ]

777ch>
Przeprowadziłem pewien test.

wykonanie takiej pętli:

For n = 1 To 10 000 000
a = Application.WorksheetFunction.Combin(80, 6)
Next

trwa 41,425780 sek.

a takiej:

For n = 1 To 10 000 000
a = kombinuj(80, 6)
Next

tylko 6,261719 sek.

Gdzie kombinuj to taka własna funkcja:

Function kombinuj(n, k)

licznik = 1
mianownik = 1

For i = 1 To k
licznik = licznik * (n + 1 - i)
mianownik = mianownik * i
Next

kombinuj = licznik / mianownik

End Function

Wniosek: excelowskie Application.WorksheetFunction..... są mułowate

2020-05-03 (15:46)

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

14865
wpis nr 1 290 022
[ CZCIONKA MONOSPACE ]

kleszek>

W związku z powyższym, gdybyś mógł dopisać w tym arkuszu który Ci przesłałem taką funkcję:

Function kombinuj(n, k)

licznik = 1
mianownik = 1
For i = 1 To k
licznik = licznik * (n + 1 - i)
mianownik = mianownik * i
Next
kombinuj = licznik / mianownik

End Function

a w makro gwarancje6 zamienić wszystkie "Application.WorksheetFunction.Combin" na "Kombinuj"

i wtedy sprawdzić jak to wpłynie na czas wykonania.

Czas chyba Cię zaskoczy

Pozdrawiam
2020-05-03 (16:36)

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

2047
wpis nr 1 290 024
[ CZCIONKA MONOSPACE ]

zdjęcie
2020-05-03 (16:50)

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

14865
wpis nr 1 290 026
[ CZCIONKA MONOSPACE ]

a przed zmianami:

zdjęcie
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 327 328 329 ... 560 561
Wyślij wiadomość do admina