Ruleta

Prográmek pro takové vykuky, kteří si myslí že jednoduchou metodou dvojnásobného vkladu vyhrají v kasinu.

Budete možná překvapení, jak statisticky vychází, že alespoň jednou za den přijde série 20-ti po sobě jdoucích hodů stejné barvy.

Vzhledem k deterministickému chování počítačů různé jednoduché generátory nabízí pseudonáhodná čísla. Nejen proto jsem použil silný matematický software Matlab. Čísla od 0 do 36  jsou generovaná v rovnoměrném rozložení intervalu.

Zdrojový  .m  kód pro Matlab:

clear all
clc
pocet_kol=input('\n\n kolik kol chcete hrat? \n Zadejte cislo \n\n ');
mala=0;
velka=0;
m=0;
v=0;
pocet_nul=0;
S(37,3)=0;
S(:,1)=0:36;
for pocet__kol=1:pocet_kol
pocet__kol
nahodne_cislo=round(rand*(36.4999+0.4999)-0.4999)
if nahodne_cislo==0
mala=mala+0.5; velka=velka+0.5; A(pocet__kol,:)=[nahodne_cislo,mala,velka];S(nahodne_cislo+1,2)=S(nahodne_cislo+1,2)+1; continue; end
if nahodne_cislo<=18
mala=mala+1; velka=0; S(nahodne_cislo+1,2)=S(nahodne_cislo+1,2)+1; end
if nahodne_cislo>=19
velka=velka+1; mala=0; S(nahodne_cislo+1,2)=S(nahodne_cislo+1,2)+1; end
if m<mala; m=mala; end
if v<velka; v=velka; end
A(pocet__kol,:)=[nahodne_cislo,mala,velka];
end
disp nahodne_cislo___pocet_malych_cisel_v_serii___pocet_velkych_cisel_v_serii
A
disp __________________________________
disp nejvyssi_pocet_opakovani_male_=
m
disp nejvyssi_pocet_opakovani_velke=
v
if m>v; maximum_opak=m; else maximum_opak=v; end
disp pokud_pocítam_ze_kazde_kolo_trva_pul_minuty_pak_cas_pro_zvoleny_pocet_kol_je
hodin=fix((pocet_kol/2)/60)
a_minut=((pocet_kol/2)/60-hodin)*60
disp finance_nutne_na_pokryti_nejdelsi_serie__pokud_zacinam_se_sazkou_200Kc_jsou:
nutny_kapital=(200*(2^maximum_opak))-200
disp kontrola_kolik_kterych_cisel_padalo_ve_tretim_sloupci_lomeno_poctem_kol_krat_37
S(:,3)=S(:,2)*(37/pocet_kol)