Forum strony www.multipasko.pl [Regulamin]
| Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 19 20 21 ... 37 38 Wyślij wiadomość do admina |
| Przewiń wpisy ↓ | Unikatowe KOMBINACJE.. od wielu los. oczekujące na min. wypłacalne |
2022-07-10 (18:50) Jacek_K1961Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763  | wpis nr 1 426 205 [ CZCIONKA MONOSPACE ] MultiTest Te 6na10z80 wyszły mi jako wynik. Sprawdzałem w Excelu i porównałem także z wynikami wyliczonymi przez 777ch. Pozdrawiam |
| 2022-07-10 (19:00) mysliwy Data rejestracji: 2010-11-05 00:00:00 Ilość postów: 818 | wpis nr 1 426 206 [ CZCIONKA MONOSPACE ] Hejka. Jacek_K1961Wrzuć jakieś unikaty.....śledzę temacik |
| 2022-07-10 (20:12) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 215 [ CZCIONKA MONOSPACE ] Sorki Na chwilę obecną układam tablice, utknąłem w tym temacie i nic nowego nie wyliczam. Jak znajdę błąd będę kombinował z innymi układami to coś podrzucę. Na dzień dzisiejszy poza oczekującą 4z5 w MM podaną także na na stronie Multipasco nic nie przykuło mojej uwagi. A i tak to 4z5 ze swoim wynikiem 1428 przy rekordach: 1506, 1511, 1518, 1538, 1540, 1563, 1600, 1609, 1706 to chyba też żadna okazja. Przy różnicach w rekordach ponad 100 między nimi to bym nic nie ryzykował. Jedyne co zwraca moją uwagę to parka 32 47 w lotku, bo nie padła już prawie 960 losowań i idzie na nowy rekord, a poprzedni to 919. Pozdrawiam --- wpis edytowano 2022-07-10 20:18 --- |
| 2022-07-10 (21:23) mysliwy Data rejestracji: 2010-11-05 00:00:00 Ilość postów: 818 | wpis nr 1 426 232 [ CZCIONKA MONOSPACE ] Dziękuję za info... cierpliwie poczekam |
| 2022-07-11 (10:26) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 292 [ CZCIONKA MONOSPACE ] Sorki Myśliwy! Jednak 4z5 wylosowali, a ja Ci odradzałem. Du.a ze mnie nie prognostyk. |
| 2022-07-11 (10:47) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 298 [ CZCIONKA MONOSPACE ] Czy mógłby Ktoś potwierdzić łącznie z wczorajszymi losowaniami te paskudy ponad 99 losowań oczekiwania, 4na10z80 liczb: "11.07.2022 10:39:06" "aktualny ",2,4,14,29,31,36,41,45,68,79 "aktualny ",2,4,14,29,31,41,45,67,68,79 "aktualny ",3,4,26,29,31,37,41,60,67,79 "aktualny ",4,6,22,29,31,37,41,57,67,79 "aktualny ",4,26,29,31,36,41,44,53,67,79 "aktualny ",6,22,36,38,40,41,44,57,65,67 "aktualny ",6,38,40,41,44,57,60,65,67,71 "aktualny ",14,22,29,31,36,41,44,45,49,67 "aktualny ",21,26,31,37,41,44,49,53,60,67 "aktualny ",26,29,31,36,38,41,44,50,60,67 "11.07.2022 10:39:21" 2 4 14 29 31 36 41 45 68 79 114 2 4 14 29 31 41 45 67 68 79 106 3 4 26 29 31 37 41 60 67 79 102 4 6 22 29 31 37 41 57 67 79 102 4 26 29 31 36 41 44 53 67 79 102 6 22 36 38 40 41 44 57 65 67 103 6 38 40 41 44 57 60 65 67 71 100 14 22 29 31 36 41 44 45 49 67 102 21 26 31 37 41 44 49 53 60 67 102 26 29 31 36 38 41 44 50 60 67 102 Czas ~ 30 sekund, nie wiem czy to dużo? Podany powyżej 15 sekund to tylko szukanie w 10-kach --- wpis edytowano 2022-07-11 10:50 --- |
| 2022-07-11 (10:56) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 300 [ CZCIONKA MONOSPACE ] Jak na tą chwilę tablica T(1581580, i 5), czyli z układami 4-ro liczbowymi, ale tylko chwilowo. |
| 2022-07-11 (10:59) kleszek Data rejestracji: 2006-05-27 00:00:00 Ilość postów: 4964  | wpis nr 1 426 301 [ CZCIONKA MONOSPACE ] Obliczenia 4/10 Lotto 2080 od los. nr.= 13971 Kombinacji do obliczenia[10z80] = 16420802110120 Nr.1 --- 2,4,14,29,31,36,41,45,68,79 --- ont = 114 Nr.2 --- 2,4,14,29,31,41,45,67,68,79 --- ont = 106 Nr.3 --- 3,4,26,29,31,37,41,60,67,79 --- ont = 102 Nr.4 --- 4,6,22,29,31,37,41,57,67,79 --- ont = 102 Nr.5 --- 4,26,29,31,36,41,44,53,67,79 --- ont = 102 Nr.6 --- 6,22,31,36,38,41,44,57,65,67 --- ont = 99 Nr.7 --- 6,22,36,38,40,41,44,57,65,67 --- ont = 103 Nr.8 --- 6,38,40,41,44,57,60,65,67,71 --- ont = 100 Nr.9 --- 14,22,29,31,36,41,44,45,49,67 --- ont = 102 Nr.10 --- 21,26,31,37,41,44,49,53,60,67 --- ont = 102 Nr.11 --- 26,29,31,36,38,41,44,50,60,67 --- ont = 102 Wykonanie obliczeń 16420802110120 kombinacji zajęło: 11238,793 ms Obliczenia wykonane programem kolegi 777ch |
| 2022-07-11 (11:15) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 304 [ CZCIONKA MONOSPACE ] Dzięki Kleszek, teraz mogę wyrzucić z kodu tablicę T(1581580,5) i zostawić jednowymiarową. ONT 99 nie brałem pod uwagę. Czas liczony bardziej na oko, ale też do przyjęcia. Teraz może jakoś się przekonam i zacznę z 5na10? Pozdrawiam P.S. Żeby jeszcze można było skrócić czytanie pliku z wynikami, ja wczytuję cały, aby potem dodać funkcję liczenia ilości oczekiwań, po co dodatkowo liczyć w Excelu. --- wpis edytowano 2022-07-11 11:30 --- |
| 2022-07-11 (11:35) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 308 [ CZCIONKA MONOSPACE ] Można, by ustawić plik z wynikami od tyłu i wczytać właściwie tylko z 300 ostatnich losowań, a nie prawie 14.000. Tyle, że do dopisywane nowe losowania łatwiej dodawać na końcu. ... ale jaki sens, przy tych "paru" sekundach więcej ? --- wpis edytowano 2022-07-11 11:37 --- |
| 2022-07-11 (13:52) MultiTest Data rejestracji: 2020-08-05 00:00:00 Ilość postów: 5736  | wpis nr 1 426 328 [ CZCIONKA MONOSPACE ] Prawdziwy unikat 1 - 35,38,57,58,75 ze 150 losowań |
| 2022-07-11 (14:35) MultiTest Data rejestracji: 2020-08-05 00:00:00 Ilość postów: 5736 | wpis nr 1 426 350 [ CZCIONKA MONOSPACE ] No i 14 wygranej  Jacek_K1961 Jak wczytujesz ten plik z wynikami skoro tak się zastanawiasz ? |
| 2022-07-11 (15:10) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 356 [ CZCIONKA MONOSPACE ] MultiTest Chyba robię to źle. FileOpen(2, "J:\lotek\multi.txt", OpenMode.Input) Do While Not EOF(2) Input(2, Data) : Input(2, L0) : Input(2, L01) ............. x zmiennych nrW = nrW + 1 Loop losowan = nrW W ten sposób określam ilość losowań. Zamykam plik Ponownie wczytuję ten sam plik i wklejam do tablicy np. po 20 zmiennych z tym, że teraz ostatni komplet 20 zmiennych jest teraz pierwszy i tak wszystkie losowania, lub tyle ile potrzebuję. Czuję, a właściwie to jestem pewny, że to jest sposób do d..y, dlatego już jestem na etapie prób innego sposobu wklejania i chyba ta metoda będzie dużo lepsza. No bez sensu jest dwukrotne otwieranie tego samego pliku i dwukrotne wczytywanie zmiennych. Przecież to nie ma sensu. Można od początku wczytać ewentualnie raz i tylko odejmować licznik w pętli aby zaczynać sprawdzanie " od tyłu". .... że ja tak to robię to się sam sobie dziwię, przecież komputerowi jest to obojętne, czy czyta tablicę do tyłu czy do przodu, przy założeniu, że chcę ją wczytać w całości.. --- wpis edytowano 2022-07-11 15:16 --- |
| 2022-07-11 (15:33) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 358 [ CZCIONKA MONOSPACE ] Tylko z drugiej strony jak określić ilość linijek po 20 zmiennych wczytywanych za jednym zamachem? Oczywiście chodzi o plik txt. Kiedyś jeszcze pamiętam, że była opcja "reopen" - teraz nie mogę tego znaleźć. --- wpis edytowano 2022-07-11 15:37 --- |
| 2022-07-11 (15:55) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 360 [ CZCIONKA MONOSPACE ] Nawet LineInput działa szybciej, jeżeli już bym chciał policzyć linie. |
| 2022-07-11 (18:01) MultiTest Data rejestracji: 2020-08-05 00:00:00 Ilość postów: 5736 | wpis nr 1 426 370 [ CZCIONKA MONOSPACE ] Jacek_K1961 Input i Lo L1 ... są tu raczej zbędne. jak wiedziec ile linii ma plik z wynikami to: Dim ilelinii As Integer = File.ReadAllLines(plik).Length Console.WriteLine(ilelinii) 'Wypisze na ekranie ilości linii Zobacz metodę File.ReadAllLines ============================================================== Ogólna zasada wczytujesz plik z rozdzielonymi danymi typu csv wiersz po wierszu z wiersza pobierasz każdą daną i zapisujesz do odpowiedniej komórki tablicy ============================================================ Nie podałeś jak wygląda linijka wczytywanego pliku ani deklaracji tablicy tu może być tablica(13971,23) jeżeli plik będzie pobrany od Pasko i będzie miał 13972 losowania oraz numer,dzien,miesiac,rok + 20 wylosowanych liczb Cały plik można pobrać taką instrukcją: Dim plik As String = "wyniki-multimulti-sortowane.csv" 'zapisujesz nazwę pliku Dim wyniki As String() = File.ReadAllLines(plik) ' tu otwierasz plik 'i możesz użyć pętli Each dla zmiennej wyniki która zawiera cały plik For Each s As String In wyniki Console.WriteLine(s) //s to zmienna która zawiera linię tekstu 'jeżeli przed next użyjesz funkcji SPLIT to automatycznie masz wiersz tablicy Next =========================================== CAŁY KOD (i uprzedzam - Wszystko działa !!!  Imports System Imports System.IO Module Program Sub Main(args As String()) Dim plik As String = "wyniki-multimulti-sortowane.csv" DIM Tablica (13971,23) as integer Dim wyniki As String() = File.ReadAllLines(plik) Dim ilelinii As Integer = File.ReadAllLines(plik).Length Console.WriteLine(ilelinii) For Each s As String In wyniki Console.WriteLine(s) Next End Sub End Module --- wpis edytowano 2022-07-11 18:09 --- |
| 2022-07-11 (19:27) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 376 [ CZCIONKA MONOSPACE ] Tak wygląda faktyczna linia z danymi jednego losowania : 00005-1996-03-25-22:00,14,2,10,11,14,18,22,26, 27,29,30,42,44,45,55,60,61,66,67,75,79,0,1,0,0,0,0,0,0,0,1,1,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,1,0,1, 1,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,0,1,0 czyli wczytywane w linii są 102 zmienne. Zmienna Data pobiera nr i datę losowania jako string, potem jest "plus", który też kiedyś zliczałem i nie chcę go wykluczyć. Potem 20 wylosowanych liczb. ... a dalej dane 0/1 dla wylosowanych. Te zmienne w postaci 0/1 przyśpieszają szukanie. Liczby wylosowane np. 12,23,24,33 itd. służą mi do weryfikacji działania, ale i są jak już wcześniej wspomniałem adresem w tablicach pomocniczych z moją wersją CSN. Właściwie LineInput w zrozumiały dla mnie sposób i nie konsolowy rozwiązuje mój problem. Myślałem jeszcze o wykorzystaniu dat, wtedy obyłoby się w ogóle bez wczytywania danych ze zmiennymi, np. spr = (DateDiff(DateInterval.Day, dteDataPoczątkowa, dteDzisiaj) - plus warunek, gdy była inna ilość losowań w tygodniu, tylko problem mógłby się pojawić, gdybym długi czas nie uaktualniał losowań. --- wpis edytowano 2022-07-11 19:36 --- |
| 2022-07-11 (19:48) MultiTest Data rejestracji: 2020-08-05 00:00:00 Ilość postów: 5736 | wpis nr 1 426 377 [ CZCIONKA MONOSPACE ] Jacek szkoda mojej pracy ...  |
| 2022-07-11 (20:15) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 379 [ CZCIONKA MONOSPACE ] Sorki! MultiTest, pisałem już wcześniej, że mam alergię na tryb konsolowy. Może jako program skończony i zmieniony na ten tryb to tak, ale nie na etapie mojego kombinowania. Czemu upierasz się tak przy niej? Poza tym część podanego kodu nie za bardzo rozumiem, jestem na bardzo znacznie niższym poziomie od Ciebie, a nie cierpię używać czegoś czego właśnie nie załapię jak choćby te pętle licznikowe. No niby kod czytelny, nawet wstawiłem co wiersz okienko msgbox ze zmiennymi, ale się gubię, za dużo się dzieje, a zwłaszcza tablice umieszczane w tablicach to dla mnie czarna magia. Poza tym jakoś nie przemawia do mnie używanie tych zmiennych string, ja wolę działać na konkretnych liczbach. Jeszcze raz przepraszam, że się zaangażowałeś, traciłeś czas, a ja raczej nie skorzystam z Twojej pomocy z ww powodów. Pozdrawiam P.S. ... no niby przyjąłem taką możliwość z wykorzystaniem dat, ale takie coś, takie typy konstrukcyjne to już nie dla mnie jak to: (DateDiff(DateInterval.Day, dteDataPoczątkowa, dteDzisiaj) . Patrzę na te nowoczesne języki, jak na jakieś koszmarki. Czas schodzić. --- wpis edytowano 2022-07-11 20:31 --- |
| 2022-07-12 (21:17) Jacek_K1961 Data rejestracji: 2017-03-29 00:00:00 Ilość postów: 7763 | wpis nr 1 426 518 [ CZCIONKA MONOSPACE ] MultiTest Nie wiem czy sobie w ogóle zdajesz sprawę jak bardzo mi pomogłeś. Przepraszam jeszcze raz jeżeli czujesz się jakoś urażony za ten mój stosunek do tego trybu konsolowego i za to, że nie wykorzystam tej Twojej podpowiedzi na którą poświęciłeś mi Twój czas. To mój błąd, że "poleciałem" skrótem myślowym i jakoś tak sobie sądziłem że ktoś się domyśli, że chodzi mi o powiedzenie o idei rozwiązywania takiego problemu a nie konkretny kod. Dla mnie Basic w trybie konsolowym to jest jak nie Basic. Jesteś na znacznie wyższym poziomie i dla Ciebie te ciągi komend rozdzielane kropkami i z dodanymi nawiasami to pewnie chleb powszedni a dla mnie to jakbym czytał kod z C++ Komendy typu If, For są jak zauważyłem uniwersalne w większości języków, ale wykończają mnie właśnie takie typy komend jak ta - "File.ReadAllLines(plik).Length". Z translatora się dowiedziałem, że lenght to długość., a ja mam taką pamięć, że za tydzień będę znów musiał sięgać po tłumacza. Pozdrawiam i jeszcze raz dziękuję i przepraszam. --- wpis edytowano 2022-07-12 21:18 --- |
| | Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 19 20 21 ... 37 38 Wyślij wiadomość do admina |