Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 519 520 521 ... 560 561
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2025-01-26 (14:37)

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

14865
wpis nr 1 549 560
[ CZCIONKA MONOSPACE ]


gwarancje 7:

poprzednio - > 12,5195300 sek.
teraz -> 8,8828130 sek.

8,8828130 / 12,5195300 = 0,71






2025-01-26 (15:07)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 13821

15220
wpis nr 1 549 571
[ CZCIONKA MONOSPACE ]

Fair_play
... a może pomyśleć o małych programikach do konkretnych tych najbardziej czasochłonnych rozwiązań, a tylko same wyniki z plików txt obrabiać, analizować w innych ogólnych? Oczywiście to Wasz program i Wasze decyzje. Też cały czas "chodzi mi po głowie" ten temat.
2025-01-26 (15:35)

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

1386
wpis nr 1 549 577
[ CZCIONKA MONOSPACE ]

fair_play

To postęp jest widoczny
a jak przy gwarancjach 5,6 ?
2025-01-26 (16:37)

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

14865
wpis nr 1 549 584
[ CZCIONKA MONOSPACE ]


przy 6

4,9804690 / 7,8750011 = 0,63

przy 5

3,289063 / 3,546875 = 0,93
2025-01-26 (16:51)

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

1386
wpis nr 1 549 585
[ CZCIONKA MONOSPACE ]

Nie jest źle.
Mnie się nie chce przerabiać programu.
Ale jak podeślesz te sprawdzajki w excelu
to zapewne będzie trzeba sprawdzić w paskalu
chociaż kilka procedur.

Ja się zrobiłem bardzo leniwy.
I niestety zdrowia już nie mam
takiego ,jak przed kilku laty.
Stąd zapewne
—> to „mizerne” zaangażowanie.
2025-01-26 (17:03)

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

14865
wpis nr 1 549 589
[ CZCIONKA MONOSPACE ]


Odbierz pocztę.
2025-01-26 (17:23)

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

1386
wpis nr 1 549 594
[ CZCIONKA MONOSPACE ]

Pobrałem txt

wkleilem do edytora w excelu
no i te same dane do paskala
ale tam przelicza stara od Ciebie
2025-01-26 (17:38)

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

1386
wpis nr 1 549 596
[ CZCIONKA MONOSPACE ]

no to wymyśliłeś
jesteś zdolny,--> to trzeba przyznać


co do przenosin na paskal
dam znać jak zrobię
...... muszę najpierw zacząć
ale wybacz mi ,
jeszcze nie będzie to dziś.
dam znać .
zrobię tak by stare zostały ,
i jakiś checkbox -->ze zmianią opcji przeliczeń .. na nowe twory.
pozdrawiam
2025-01-26 (17:41)

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

1386
wpis nr 1 549 597
[ CZCIONKA MONOSPACE ]

5
2025-01-26 (17:42)

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

1386
wpis nr 1 549 598
[ CZCIONKA MONOSPACE ]

4
2025-01-26 (17:56)

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

14865
wpis nr 1 549 602
[ CZCIONKA MONOSPACE ]


Jak odblokujesz:
' Range(Cells(1, 32), Cells(liczb, 38)) = adresy

To wyświetli Ci się tablica adresów stanowiąca sedno procedury
2025-01-26 (18:00)

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

1386
wpis nr 1 549 605
[ CZCIONKA MONOSPACE ]

fair_play
widzę wiele ...... ale sorry
już muszę sie zwijać
prawa ręka mi ....."puchnie"
od pisania na klawiaturze
2025-01-27 (09:04)

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

1386
wpis nr 1 549 691
[ CZCIONKA MONOSPACE ]

fair_play

Odbierz pocztę.

Poprawa czasu
jedynie ! dotyczy

sytuacji gdy mamy duże adresy
a mało liczb w sekwencji .......
bo każdorazowo [if] spowalnia.......

ale widzę że przelicza nieprawidłowo
ta ..poprawka
2025-01-27 (11:17)

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

14865
wpis nr 1 549 710
[ CZCIONKA MONOSPACE ]

777ch>

Witaj.
Taką wersję z naliczaniem braków na bieżąco miałem, ale była wolniejsza więc naliczambraki po fakcie.
Twoja poprawka niestety powoduje błędy:
Np analiza zbioru z LaJola C(40,15,6) wygląda

tak u Ciebie:

zdjęcie

a tak u mnie:

zdjęcie
2025-01-27 (11:33)

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

14865
wpis nr 1 549 712
[ CZCIONKA MONOSPACE ]


Najpierw naliczasz braki a dopiero potem wstawiasz "1":

If braki(kombinacji - kod, 1) <> 1 Then ile = ile + 1
braki(kombinacji - kod, 1) = 1

W ten sposób zawsze ilość braków będzie równa ilości kombinacji

2025-01-27 (14:04)

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

1386
wpis nr 1 549 752
[ CZCIONKA MONOSPACE ]

Hej
Już po wysłaniu tobie
załapałem się ..
że to tak se nie da 🤭

ale wobec tego zaimplementowałem
sprawdzanie z pliku tylko 7-ek
dla v=max=74
I odpaliłem sprawdzenie pliku z la Jolki
nie pamiętam jakiego ale Ci napiszę jak wrócę
bo mnie nie ma 🤗

No i odpalę potem sprawdzenie tego samego w aplikacji
według starej wersji
No
I wkleję różnicę czasu

Gdybyś tak to skonstruawał,
by pomijane były kody już wyłapane
to by śmigało…że hej 🫢
bo przecież olbrzymia liczba 7-ek się powtarza
w takim pliku co ma 20 tyś linii
i 25 liczb w sekwencji 😥

--- wpis edytowano 2025-01-27 14:06 ---

2025-01-27 (14:31)

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

14865
wpis nr 1 549 762
[ CZCIONKA MONOSPACE ]


"Gdybyś tak to skonstruawał,
by pomijane były kody już wyłapane
to by śmigało…że hej"

Nie wymagaj abym rozwiązał problem kwadratury koła
2025-01-27 (15:33)

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

14865
wpis nr 1 549 773
[ CZCIONKA MONOSPACE ]


"To se ne da pane Havranek..."

Tzn. jak twierdzi MultiTest w programowaniu wszystko się da, tylko trzeba wiedzieć jak
Więc i tutaj by się dało tyle tylko, że ze znaczną stratą czasu.

Jeżeli w dwóch 25 liczbowych liniach występują identyczne siódemki, to nie można tak po prostu usunąć jedną z nich, bo każda część każdej z tych siódemek tworzy inne siódemki z pozostałymi 18 liczbami w linii.
Trzeba każdą 25 liczbową linię rozłożyć na unikalne siódemki, a jest ich 25 po 7 = 480 700, i dopiero wtedy pomijać duplikaty.
Ale przecież rozkład każdej z linii na siódemki robię w tych pętlach For...Next i przy okazji tylko odnotowuję ich wystąpienie.

Problem, z duplikatami może udałoby się rozwiązać za pomocą instrukcji SQLa, SELECT DISTINCT..., po ustanowieniu odpowiednich indeksów i relacji między tablicami, ale to już nie Excel .

Mam pytania z innej beczki:
1. Czy gdybyś tak po prostu tę moją procedurę w formacie txt wstawił do paskala to on jej nie zrozumie? Przecież używam tylko podstawień, pętli For...Next i warunków IF chyba znanych paskalowi.

2. Czy myślałeś nad rozpisami o różnych długościach linii, zapewniających zadane gwarancje?
2025-01-27 (16:14)

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

1386
wpis nr 1 549 777
[ CZCIONKA MONOSPACE ]

jeszcze nie czytałem forum

--------stara wersja---------
-- Gwar.7 if [7] --*1
C(74,25,7,7)=100 % brak[0]
Brak {0}
Sprawdzono zbiór = 1799579064 kombinacji
Gwar..[7]= 100 %

Time calculated : 646389,211 ms
------------nowa wersja--------

Max adres7/kod7: 1799579064
Brak7: 0

w {plik.txt} Vmax :=74
w {plik.txt} kmax :=25

Liczba linni sprawdzanych : 23240
Time calculated : 574043,26 ms

tak to zaimplementowałem na szybko
cirka 30 minut pracy .........

jeszcze się nie bawiłem
wiec co najwyżej poprawię
w następnej wersji
bez wypisu braków ,same procedury
jak podeslałeś .......
zaraz pójdzie w zipie


2025-01-27 (16:16)

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

1386
wpis nr 1 549 778
[ CZCIONKA MONOSPACE ]

Problem, z duplikatami może udałoby się rozwiązać za pomocą instrukcji SQLa, SELECT DISTINCT..., po ustanowieniu odpowiednich indeksów i relacji między tablicami

--------------------------------------
najpierw zobacz czy to prawidłowo działa ......
zaraz wyślę
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 519 520 521 ... 560 561
Wyślij wiadomość do admina