Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 3 4 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Pomoc przy tworzeniu statystyki w Excel.... |
2011-04-01 (00:35) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 278 [ CZCIONKA SPECJALNA ] No nie do końca ten sam rezultat. 1 kolumna to gra na poprzedni numer 2 kolumna to gra na 2 poprzednie numery 3 kolumna to gra na 3 poprzednie numery .... 12 kolumna to gra na 12 poprzednie numery Nie będzie trafienia, w kolumnie 4, jeżeli liczba powtórzyła się np. z 6 pozycji, wtedy traifenie będzie zaznaczone w kolumnach od 6 do 12. Przecież na im więcej numerów poprzednich gramy tym więcej będzie trafień i mniejsze odsepy, chociaż moim zdaniem najlepiej grac na od 2 do 5 poprzednich. |
2011-04-01 (00:38) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 279 [ CZCIONKA SPECJALNA ] A powielenie jest chyba dlatego, że nie potrzebnie zrobiłem przesunięcie na dół. Tzn powinienem zacząć z lini prostej, po 12 numerach od góry, i zrobić to w lini prostej. I wtedy będą inne pozycje. O tak : Przesunięcie jest niepotrzebne... |
2011-04-01 (00:42) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 412 280 [ CZCIONKA SPECJALNA ] Nie lepiej było by przelecieć TABELKĘ OD A1 do A 217 i dalej od B6 do B217 itd wypisując odległości pomiędzy wyrzuconymi liczbami w postaci odległości między nimi , 1,9,17,22,3,4,7,12 itd..... przykład albo zmieniając tylko pokrętłem liczbę ,wypisując wszystkie odległości danej liczby |
2011-04-01 (00:43) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 412 281 [ CZCIONKA SPECJALNA ] przykład powyżej to wszystkie odległości dla liczby 15 w grze 49s |
2011-04-01 (00:45) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 282 [ CZCIONKA SPECJALNA ] daj jakiś priv gg lub skype...albo ja dam jak nie chcesz,,, |
2011-04-01 (00:51) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 412 283 [ CZCIONKA SPECJALNA ] Zastanów się ,mnie jest obojętne ,mogę Ci napisać makro które zamiast tych formułek wpisze dane po kliknieciu na przycisk ,sprawdzając kolumnę Y ,tyle że nie jestem pewny na 100 % czy o to tylko Ci chodzi . |
2011-04-01 (00:53) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 284 [ CZCIONKA SPECJALNA ] Nie lepiej było by przelecieć TABELKĘ OD A1 do A 217 i dalej od B6 do B217 itd wypisując odległości pomiędzy wyrzuconymi liczbami w postaci odległości między nimi , -------------------------------------------------------------------------------- Generalnie to jest dobre ale na większą ciągłą baze losowań. Np 2000 - 3000 losowań ciągłych 49s; Ja mam z ruletki pospisywane próbki po 100-150 spinów z różnych okresów czasu i taka tabelka jak powyżej nie będzie miała tych dołków i górek bo mam za mało losowań, żeby to było widać. W mojej jednej próbce np. liczba 20 wypadnie na 150 spinów 5 razy, i będe miał podane 5 odstępów, a następna baza to już całkiem co innego ( bo będzie ona za jakieś 500 - 700 spinów od poprzedniej, np. na drugi dzień). Zauważyłem, że sporo numerków się powtarza i chciałem sobie luknąć na przerwy , co się po nich dzieje itd.... |
2011-04-01 (00:54) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 412 285 [ CZCIONKA SPECJALNA ] wrzuć swój namiar na skype na leszekp67@interia.pl |
2011-04-01 (00:56) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 286 [ CZCIONKA SPECJALNA ] No to tak jak mówie, chce mapę ( 0/1) z danej bazy, kolejne słupki to większy zakres branych pod uwage liczb z poprzednich losowań. Może być od 1 do 12 czyli 12 słupków. W 1 masz wyniki 1/0 jeżeli poprzednia liczba jest taka sama jak ta obecna. W 2 masz wyniki 1 lub <1/0 jeżeli któraś z poprzednich dwóch liczb lub obydwie sa takie same jak obecna itd do 12. |
2011-04-01 (00:57) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 287 [ CZCIONKA SPECJALNA ] Wysłałem maila. napisz na skype do mnie to pogadamy... |
2011-04-01 (14:59) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | wpis nr 412 461 [ CZCIONKA SPECJALNA ] W poczcie znajdziesz programik z moją procedurą. pozdrawiam |
2011-04-01 (15:29) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 412 474 [ CZCIONKA SPECJALNA ] Procedura jest oki, tylko wolno mi to działa ( słaby komp) I jest przesunięcie, trzeba było zostawić tak jak ja zrobiłem. Np. : Na poziomie liczby 29 pokazuje trafienie w 3 tabelcę czyli , że 29 powtórzyło się z którąś z ostatnich 3 liczb przed nią, a tak nie jest. Trafienie powinno być zaznaczone o 1 niżej. Na poziomie liczby 13... Ale ja zrobiłem swoją wersję, więc może nie baw się z tym... |
2011-04-04 (15:20) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 413 291 [ CZCIONKA SPECJALNA ] Potrzebuje kogoś kto napiszę program w pascalu , bardzo prosty. Który po wpisaniu liczby będzie wyrzucał przypisany zbiór liczb tej liczbie. Czyli np. : Wpisz Liczbę : \"wpisuję 1\" --- enter Program wyrzuca : 1,2,3,4,5,6,7,8...15 Wpisz Liczbę : \"wpisuje 2\" --- enter Program wyrzuca : 5,7,12,19,22,39 Wpisz Liczbę : \"wpisuję 1\" -- enter Program wyrzuca : 1,2,3,4,5,6,7,8...15 Czyli w programie będzie do każdej z 37 liczb przypisany zbiór który ma wyrzucić. Oczywiście ten zbiór ustalę ja. |
2011-04-04 (21:18) sindbad Data rejestracji: 2008-10-13 Ilość postów: 20471 | wpis nr 413 363 [ CZCIONKA SPECJALNA ] Spoke - to ma być żart na 4-go kwietnia? |
2011-04-04 (23:06) Spoke Data rejestracji: 2008-12-15 Ilość postów: 4663 | wpis nr 413 427 [ CZCIONKA SPECJALNA ] Trochę się spóźniłem co ? Hehe |
2011-05-22 (13:42) FreeMeNGen Data rejestracji: 2006-10-06 Ilość postów: 100 | wpis nr 426 714 [ CZCIONKA SPECJALNA ] Witam Może ktoś Mi pomóc z tym makrem??? Poniższe makro wypisuje TYLKO LICZBY z poszczególnych wierszy i wpisuje je obok w odstępie 1ej kolumny. PROBLEM ;-( polega na tym iż nie jestem w stanie ustawić zakresu początkowego od Np kolumny \"B\" Zakres początkowy jest domyślny i jest zawsze od \"A\" Potrafi to ktoś sprytnie przerobić:)??? Makro: Sub SameLiczby() Dim a&, b&, i&, j&, x& a = Last(1, Range(\"A:EE\")) b = Last(2, Range(\"A:EE\")) For i = 1 To a x = b + 2 For j = 1 To b If IsNumeric(Cells(i, j).Value) Then Cells(i, x).Value = Cells(i, j).Value x = x + 1 End If Next j Next i End Sub Function Last(choice As Long, rng As Range) \'Ron de Bruin, 5 May 2008 Dim lrw As Long Dim lcol As Long Select Case choice Case 1: On Error Resume Next Last = rng.Find(What:=\"*\", _ After:=rng.Cells(1), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 Case 2: On Error Resume Next Last = rng.Find(What:=\"*\", _ After:=rng.Cells(1), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End Select End Function |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 3 4 Wyślij wiadomość do admina |