Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 3 4 5 6 7 ... 18 19
Wyślij wiadomość do admina

Przewiń wpisy ↓

C++ od niechcenia

2018-05-18 (22:52)

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

2047
wpis nr 1 168 636
[ CZCIONKA MONOSPACE ]

Sindbad, już nie mam sumienia Ciebie o cokolwiek prosić. Wykazałeś już wyjątkową cierpliwość wobec mnie pokazując zawiłości kodu C++. Początki sa zawsze trudne, ale dzięki analizie kodu, udało mi się go przerobić na:

bool tab[9]; // liczby

int para[8][9]; // pary

int trzy[4];// wylosowana trójka

int zak[1000][4];// wylosowane trójki

Program działa i jak to zwykle bywa, apetyt rośnie w miarę jedzenia. Teraz wymyśliłem sobie, że sprawdzę ont-y par dla powiedzmy 7 liczb, ale gdy są losowane czwórki, a nie trójki. Domyślam się, że pewnie trzeba wprowadzić dodatkową zmienną np. k do:

int i,j,a,v,x,r;

i dalej przerabiać istniejący kod. Łatwiej będzie mi przerabiać kod na inne parametry systemu, gdy będę miał "gotowca" w postaci prawidłowo działającego kodu. Jeśli znajdziesz chwilę wolnego czasu i będziesz miał chęć napisania takiego kodu, to bardzo prosiłbym o wstawienie go na forum. Pozdrawiam!







2018-05-18 (23:22)

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

3794
wpis nr 1 168 640
[ CZCIONKA MONOSPACE ]

Pisz śmiało ja też się uczę.





#include <iostream>

#include<conio.h>

#include <time.h>



// Generator Mersenne Twister

// Data : 16.04.2008

// (C)2012 mgr Jerzy Wa³aszek

//---------------------------



using namespace std;









typedef unsigned long long ulong;





unsigned int MT[624];

int mti = 0;



// Inicjuje MT[]

//--------------

void InicjujMT(unsigned int x0)

{

ulong x;



MT[0] = x0;

for(int i = 1; i < 623; i++)

{

x = MT[i-1];

x = (23023 * x) & 0xffffffffull;

x = ( 3 * x) & 0xffffffffull;

MT[i] = x;

}

}



// Inicjuje MT wartoœciami losowymi

//---------------------------------

void UprzypadkowijMT()

{

InicjujMT((unsigned int)time(NULL));

}



// Generator Mersenne Twister

//--------------------------

unsigned int MersenneTwister()

{

const unsigned int MA[] = {0,0x9908b0df};

long int y;

int i1,i397;



i1 = mti + 1; if( i1 > 623) i1 = 0;

i397 = mti + 397; if(i397 > 623) i397 -= 624;

y = (MT[mti] & 0x80000000) | (MT[i1] & 0x7fffffff);

MT[mti] = MT[i397] ^ (y >> 1) ^ MA[y & 1];

y = MT[mti];

y ^= y >> 11;

y ^= (y << 7) & 0x9d2c5680;

y ^= (y << 15) & 0xefc60000;

y ^= y >> 18;

mti = i1;

return y;

}

//--------------------------

bool tab[8]; // liczby

int para[7][8]; // pary

int trzy[5];// wylosowana czwórka ZMIANA Z 4 NA 5

int zak[1000][5];// wylosowane czwórki ZMIANA Z 4 NA 5



void gotoxy(int x, int y );





int main()

{

UprzypadkowijMT();



int i,j,a,v,x,r;



r=0;

do {// losowany koszyk

r++; // numer koszyka





for(i=1;i<=6;i++)

for(j=i+1;j<=7;j++) para[i][j]=0; // zerowanie par

x=0;



do{

x++;

for(i=1;i<=4;i++) trzy[i]=0; // zerowanie czwórek ZMIANA Z 3 NA 4

for(i=1;i<=7;i++) tab[i]=0; // zerowanie liczb



for(i=1;i<=4;i++){ // pętla dla losowanej czwórki ZMIANA Z 3 NA 4

do{

a = (MersenneTwister() % (7)) +1;// losowanie liczby

}

while (tab[a]>0);// jeśli liczba powtórzona to losuj dalej

tab[a]=1; // zapamiętanie liczby

}



j=0;

for(i=1;i<=7;i++) if(tab[i]==1){j++;trzy[j]=i;} // pobranie wylosowanych liczb - zakład

for(i=1;i<=4;i++) zak[x][i]=trzy[i];// zapisanie zakładu ZMIANA Z 3 NA 4



for(i=1;i<=3;i++) // ZMIANA Z 2 NA 3

for(j=i+1;j<=4;j++) // ZMIANA 3 NA 4

para[trzy[i]][trzy[j]]++; // odnotowanie parez z czwórki



v=0;

for(i=1;i<=6;i++)

for(j=i+1;j<=7;j++)

if(para[i][j]>0)v++; // zliczanie ile różnych par

}

while (v < 21); // jeśli mało parek to losuj czwórki dalej



zak[x][0]++;



}

while (r<10);//losuje zadaną ilość koszyków (pokryć w parach).



cout<<"Kombinacji = "<<x<<" losowania = "<<r<<endl<<endl;

cout<<"Wylosowane kombinacje:"<<endl<<endl;



for(i=1;i<=x;i++){

for(j=1;j<=4;j++) cout<<zak[i][j]<<" "; // ZMIANA Z 3 NA 4

cout<<endl; }





cout<<endl<<"Wylosowane pary:"<<endl<<endl;



for(i=1;i<=6;i++)

for(j=i+1;j<=7;j++)

cout<<i<<","<<j<<" = "<<para[i][j]<<endl;



cout<<endl<<"Pokrycia"<<endl<<endl;

for(i=1;i<=999;i++)

if(zak[i][0]>0) cout<<i<<" = "<<zak[i][0]<<endl;



cout <<endl<<"Koniec ";

getch();

return 0; }

--- wpis edytowano 2018-05-18 23:37 ---

2018-05-19 (17:45)

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

2047
wpis nr 1 168 730
[ CZCIONKA MONOSPACE ]

Jak zwykle, perfekcyjnie !!! Z Twoimi komentarzami przeróbka do innych parametrów systemu nie sprawi większego problemu. Dziękuję !!!
2018-05-19 (20:34)

status Robin Hood
Data rejestracji: 2009-07-12 00:00:00
Ilość postów: 7786

4895
wpis nr 1 168 752
[ CZCIONKA MONOSPACE ]

Tak sobie teraz przeczytałem od niechcenia:



>>Czy to znaczy, że nie warto grać na tzw. ONT liczb ? Oczywiście warto ( moim zdaniem)

Intryguje mnie jeszcze jedna sprawa. Ile może teoretycznie trwać maksymalny czas oczekiwania na trafienie takiej parki ? Czy jest to wartość taka jak np. wszechświat, który podobno jest nieskończenie wielki, czy też taka parka ma swój jakiś punkt graniczny, gdzie choćbyśmy nawet zrobili miliard prób, to dojdzie ona do swojego punktu granicznego, którego "nie da się" przekroczyć ? <<

kleszek





Od niechcenia odpowiem tym co przeczytają bo przecież kleszek zadaje pytania tylko sobie

i nie prosi mnie nigdy o odpowiedź.



No dobrze ,tu mowa o grze by złapać ostatnie 2/2 przy 3/7 oraz ile trzeba czekać na wypadnięcie wszystkich par z tych 3/7.

Odpowiedź jest prosta ,zalezy od przebiegu losowania a niewazne jest przeprowadzenie miliarda prób.



Miliard prób da nam tylko większy zakres statystyki dla ont.

Bo ont nie jest wyrocznią to tylko statystyka.



W Multi teraz parka 13,70 oczekuje na trafienie od losowania 10790

a więc ont wynosi bodajże 155 .

Ta parka w kazdym losowaniu bije rekordy swego ont od losowania nr 1.

I za każdym losowaniem ma te samą szansę czyli 1 do 16,63 by wypadła jako pierwsza

gdyż potem szansa mocno maleje.



Czy mozna zbudować program który wyliczy prawdopodobieństwo wylosowania parki

przy 20/80 inaczej niz 1:16,63 ?



Podając mu np. na tacy wszystkie dane w postaci ont dla danej parki?

Program by zgłupiał tak jak wszyscy grajacy na ont.

Bo prawda jest taka ,mamy np. 10 parek z dużym ont i dwie z nich wypadły w następnym losowaniu.



Bingo ,ont "działa"

Guzik prawda ,10 parek miało szansę na wypadnięcie 1:16,63

(teoretycznie gdyż po pierwszej wylosowanej zmienia się to nieco mając juz tylko 18/78)



Tak więc odpowiedź jest prosta ,nie ma żadnej granicy której nie mozna przeskoczyć.

To kwestia statystyki dla określonej liczby losowań.



Jesli kleszek zadał sobie trud i na 100 milionów prób w losowaniu parki przy 3/7

znalazł ont 139 i 154 to nie jest to żadna już ich granica lecz to dane statystyczne.



Niech sprawdzi 500 milonów losowań to te dane mogą pozostać lub się zmienić.



Przy rekordowym ont 154 w następnym losowaniu przy 3/7

nadal jest szansa na wypadnięcie parki taka sama i albo wypadnie albo

"ont umarło ,niech żyje nowe ont"

I tak kilka ,kilkanaście następnych losowań az wypadnie.



Ont nie zmieni wyliczenia ,ont zmienia podejście do gry

tych którzy w nie wierzą bezgranicznie.



No to ile wyniesie ont dla parki 13,70 w MM po następnych losowaniach ?

Gdzie jest granica?

Ustalona granica wcześniej czy później runie niczym mury Jerycha.

2018-05-19 (20:46)

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

3794
wpis nr 1 168 753
[ CZCIONKA MONOSPACE ]

Robin, tylko tyle hej!
2018-05-19 (20:51)

status Robin Hood
Data rejestracji: 2009-07-12 00:00:00
Ilość postów: 7786

4895
wpis nr 1 168 755
[ CZCIONKA MONOSPACE ]

Tylko tyle bo pisałem tak od niechcenia.
2018-05-19 (21:59)

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

3794
wpis nr 1 168 775
[ CZCIONKA MONOSPACE ]

Hej!



Robin, nie wiem, dlaczego się tak rozpisywać o MONT (Maksymalne Oczekiwanie Na Trafienie), bo Ty piszesz o MONT, a nie o ONT.

To, że MONT się zmienia to, Ty o tym wiesz, ja o tym wiem i Oni o tym wiedzą to, w czym problem.

2018-05-19 (22:45)

status Robin Hood
Data rejestracji: 2009-07-12 00:00:00
Ilość postów: 7786

4895
wpis nr 1 168 788
[ CZCIONKA MONOSPACE ]

Sądziłem że kleszek nie wie bo chciał sprawdzać nawet 500 milionów losowań a choćby i miliard

by się dowiedzieć gdzie jest granica MONT



A propos oboków w czym jestes mistrzem.

Od 10791 nie wystąpiła parka 13 70 i jej MONT wynosi już 155.

Parki oboków to oczywiście 12,69 i 14,71.



I te parki od los. 10791 miały trafienia odpowiednio 9x i 14x.



13,70-0x

12,69-9x

14,71-14x



>>Czy to znaczy, że nie warto grać na tzw. ONT liczb ? Oczywiście warto ( moim zdaniem)



kleszek



A ja uważam że to znaczy że nie warto (moim zdaniem)

Robin



Jak widzisz sindbad jakoś nie mogę sie zgodzić z kleszkiem.

Pamiętam jak wypisywał że nie ma żadnych liczb

sa tylko kody a teraz zajmuje się znowu liczbami.

Czyżby obraził się na tego od kodów

bo wykasował wszystkie ich rozmowy o gitarze.



--- wpis edytowano 2018-05-19 22:51 ---

2018-05-19 (23:04)

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

2047
wpis nr 1 168 789
[ CZCIONKA MONOSPACE ]

>>> a teraz zajmuje się znowu liczbami. <<<<

Jakimi liczbami ? Czy ja podawałem jakieś liczby na forum ? Robin Hood, twój pistolecik 007 to zbyt mały kaliber aby zrobić na mnie wrażenie.
2018-05-20 (11:08)

status Robin Hood
Data rejestracji: 2009-07-12 00:00:00
Ilość postów: 7786

4895
wpis nr 1 168 830
[ CZCIONKA MONOSPACE ]

>>Jakimi liczbami ?

Czy ja podawałem jakieś liczby na forum ?

Robin Hood, twój pistolecik 007 to zbyt mały kaliber aby zrobić na mnie wrażenie<<

kleszek

---------------------------------------

kleszek nie podaje liczb na forum wszyscy to wiemy gdyz kleszek ponoć zna "myk" ich daty wypadnięcia a to jest tajemnica.



Wprawdzie liczb nie podaje ale ostatnio ciągle pisze o tych liczbach zajmuje sie wypadanie 2/2 przy 3/7 oraz jakimiś tam czwórkami przy 6/49 .



Czy kleszek zapomniał słowa swojego guru ze nie ma czegoś takiego jak czwórka przy 6/49 czy parka przy 3/7 ?



To sa przecież częściówki i guru trafiając taka częściówke pochlastał by sie ze wstydu.

Jest jeden kod wygrywający i to ten kod ma się ukazać na samym srodku ekranu z napisem "idź i skreśl baranie ".



I to wszystko ,to cała tajemnica sukcesu a nie jakieś tam zestawy liczb , wszystkie parki z 7 liczb gdy losuja 3 liczby oraz inne "takie tam"





Kleszek ,nie zapominaj ze kolega po fachu przy gitarze to guru a guru jest tylko jeden

i prawda jest zawsze tylko jedna.

Ta co głosi guru i trzeba było to zapamiętac bo guru powyrywał wszystkie kartki z tego tematu o tej jedynej prawdzie.

Poczytaj sobie teraz jak " niby nie zajmujesz się liczbami "

to twoje wypowiedzi z tego wątku.



------------------------------

>>Rozumiem, że tym kodem mogę sobie wygenerować losowy zestaw np. 6 liczb z 49. Ale Ty napisałeś cyt.

"Mam zamiar wylosować wszystkie szóstki w Lotto." Więc proszę o instrukcję co dalej.

W tej dziedzinie jestem kompletnym laikiem

....Robin-a ja sądziłem że dawno już zrobiłeś te 13 983 816 kodów



procedura tworzenia zestawów zaczyna się od instrukcji int main



losowanie liczby

odpowiada za, tak jak to jest napisane w komentarzu, generowanie kolejnych liczb w zakładzie



Rozumiem, że aby uzyskać zestawy z liczbami niesortowanymi



A gdybym chiał sobie wyliczyć ile trzeba losowań, żeby trafić wszystkie czwórki, gdy jest losowane 6 liczb z 49 ?



Czy dobrze rozumiem, ta liczba 7 w przykładzie, wzięła się w wyniku prostej operacji dzielenia 21 przez 3



aby wylosować wszystkie 2z3 przy 7 liczbach ?

...Robin-szukasz częściówek ,nieładnie ,guru się obrazi



wszystkich możliwych do utworzenia z danej ilości liczb par w losowaniach np. trójek.



ile potrzeba losowań aby tak jak w załączonym przykładzie,

wylosować wszystkie możliwe pary, gdy są losowane trójki z siedmiu liczb.



Czy to znaczy, że nie warto grać na tzw. ONT liczb ? Oczywiście warto ( moim zdaniem )



Przykładowo, kiedy uzyskałem trafienie wszystkich par w 14 losowaniach, w 100 milionach prób





Wyniki generatorów XXX-mln, mogą się przydać, do szukania ekstremalnych Ont-ów

i próby wyznaczenie rekordowej granicy czasu oczekiwania na trafienie.

Pytanie tylko, jak mając takie dane z generatora, wykorzystać to w realnej grze ?





Teraz wymyśliłem sobie, że sprawdzę ont-y par dla powiedzmy 7 liczb,

ale gdy są losowane czwórki, a nie trójki <<





kleszek



=================================





2018-05-20 (11:40)

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

3794
wpis nr 1 168 837
[ CZCIONKA MONOSPACE ]

Cześć!



Szukam komponentu TChart do C++ Builder 6 Personal.



2018-05-20 (13:14)

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

2047
wpis nr 1 168 862
[ CZCIONKA MONOSPACE ]

Sindbad, o to chodzi ?

https://megawrzuta.pl/download/95bb16aa23ff5ecb5ab307b21063ec63.html

Robin_007_Hood, wiem już, że potrafisz używać funkcji kopiuj-wklej. To jest temat o C++, a nie o tym czy kleszek gra na kody, liczby czy patyczki. Twoje teksty to poziom gimbazy, jak mówi teraz młodzież, a Twoje ego już dawno osiągnęło szczyty Himalajów, więc nie jesteś dla mnie partnerem do dyskusji. A mówiąc "po dorosłemu" po prostu odp.....l się ode mnie.
2018-05-20 (13:40)

status Robin Hood
Data rejestracji: 2009-07-12 00:00:00
Ilość postów: 7786

4895
wpis nr 1 168 869
[ CZCIONKA MONOSPACE ]

>>wiem już, że potrafisz używać funkcji kopiuj-wklej.<,



Nie doceniasz mnie ,używam także funkcji wytnij gdyz nie kopiuje bezmyślnie całości

lecz co najważniejsze.



>>Twoje teksty to poziom gimbazy, jak mówi teraz młodzież<<



Dla mnie młodzież nie jest autorytetem

w przeciwieństwie do ciebie skoro się na nią powołujesz.

Też masz kolczyki w nosie ,uszach i tatuaże jak dzisiejsza młodzież?



Natomiast nawet ze szczytów Himalajów wszystkie drogi prowadzą do Rzymu

czyli nawet taki temat jak C++ musi prowadzić do celu a cel zawsze jest ten sam

ograć prezesa.

Zamiast szukać ontów i montów dałem wskazówkę jak grać na obonty

to takie oboki ontow



od los. 10791 -10945



.....ont-13,70...2/2-0x ......1/2-62x

..obont-12,69...2/2-9x.......1/2-61x

..obont-14,71...2/2-14x.....1/2-61x



Natomiast masz ode mnie prezent:



>>po prostu odp.....l się ode mnie<<



Z największa przyjemnością to uczynię

nie mam zamiaru też się tatuować i

nosić kolczyki w nosie i na uszach a ty lubisz mieć swoich guru jak widzę

i powoływać się ciągle na nich.



Zwalniam C++ i każdy inny wątek gdzie wspomnisz niechcący o liczbach

i dacie ich wypadnięcia po miliardzie testów

over
2018-05-20 (13:54)

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

2047
wpis nr 1 168 873
[ CZCIONKA MONOSPACE ]

>>> Zwalniam C++ i każdy inny wątek gdzie wspomnisz niechcący o liczbach

i dacie ich wypadnięcia po miliardzie testów

over <<<<

Może w końcu choć raz dotrzymasz słowa, bo jak już raz pisałeś

cyt.

"mój inteligentny translator

przetłumaczył jako "baba z wozu koniom lżej"
2018-05-30 (00:45)

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

3794
wpis nr 1 170 344
[ CZCIONKA MONOSPACE ]

Coś by trzeba było skrobnąć, ale co by tu wymyślić.
2018-05-30 (14:05)

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

2047
wpis nr 1 170 398
[ CZCIONKA MONOSPACE ]

To co mnie ciągle zadziwiwa przy korzystaniu z aplikacji stworzonych w kodzie C++, to szybkość działania. W stosunku do excela to jest po prostu kosmos.

>> ale co by tu wymyślić <<<

Pomysły to ja mam, tylko, że ... pewnie znowu będą komentarze, że to tylko statystyka, która nic nie znaczy itd. Ja lubię ciekawostki związane z ONT w grze Multi. Z ciekawostek, mogę np. napisać, że dla wszystkich możliwych zestawów 3-liczbowych, najmniejszy maksymalny czas oczekiwania na trafienie minimum 1z3 wynosi 7 losowań. Takich trójek jest na dzień dzisiejszy 279. Np.

62 69 74

64 73 76

01 04 05

01 19 34

Najdłużej na wypadnięcie 1z3 zaliczyła trójka:

54 58 78

na którą swego czasu trzeba było czekać aż 32 losowania.

Chętnie bym poznał jak wyglądały minimalne i maksymalne czasy oczekiwania w historii losowań np. na 2z5. Wyliczenie takich rzeczy jest oczywiście możliwe w excelu, ale czas oczekiwania na wyniki zniechęca do robienia takich badań. Jak widać nie ma to nic wspólnego z typowaniem, po prostu informacja, która poszerza spektrum wiedzy o grze Multi. Przypuszczam, że dla aplikacji do tego typu obliczeń w C++, czas obliczeń będzie o wiele krótszy, niż w excelu. Jeżeli interesują Ciebie tego typu ciekawostki związane z tą grą i masz jakiś pomysł na stworzenie aplikacji liczące tego typu rzeczy, to to jest własnie moja podpowiedź na Twoje zapytanie:

"ale co by tu wymyślić "

Pozdrawiam!

2018-05-30 (15:13)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 170 413
[ CZCIONKA MONOSPACE ]

Sindbad, ja dorzucam inny pomysł.

Testuję pomysł "szyny" i faktycznie powolność VBA daje się we znaki.

Jakby Ci się chciało w wolnej chwili skrobnąć "coś", co spośród np. miliona losowych kombinacji mini lotto wyszukuje ciąg 3 kombinacji zgodnych z ostatnimi 3 losowaniami i podaje następną, czwartą kombinację tego fragmentu ciągu, to ... byłoby fajnie

W VBA korzystam z generatora Amadeusa, generując po milionie kombinacji, przemielając w ten sposób miliardy kombinacji. Ale to za mało, za wolno Fajnie byłoby skorzystać z czegoś szybszego, szukającego ciągu np. 10-liniowego

2018-05-31 (14:04)

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

3794
wpis nr 1 170 542
[ CZCIONKA MONOSPACE ]

kleszek,

oczywiście znam kod na maksymalne ONT, ale pisałem go dla kolegi z forum według jego pomysłu.

Krótko mówiąc, nie czuje się upoważniony do publikacji tego źródła.



MLRandom,

pomyślę nad tym, ale to i tak będzie katowanie komputerka.

--- wpis edytowano 2018-05-31 14:08 ---

2018-05-31 (18:28)

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

2047
wpis nr 1 170 570
[ CZCIONKA MONOSPACE ]

>>> nie czuje się upoważniony do publikacji tego źródła. <<<

Roumiem sindbad, nie ma problemu. Pozdrawiam!
2018-05-31 (22:26)

status MLRandom
Data rejestracji: 2016-01-16 00:00:00
Ilość postów: 553

14699
wpis nr 1 170 624
[ CZCIONKA MONOSPACE ]

Sindbad, może i będzie katował procka , ale ... to na razie najsensowniejszy sposób, nie wchodzący na pole metafizyki, na którym moim zdaniem można spróbować się oprzeć, nie schodząc z gruntu nauki. W końcu to tylko zabawa ...

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 3 4 5 6 7 ... 18 19
Wyślij wiadomość do admina