function ruleta

h=0;

d=0;

i=1;

q=5000;

% BARVY 1

while(d<1| d>5000)& i<=3

    d=input('Rozdelte castku 5000Kc mezi 2 kola rulety: ');

    i=i+1;

    if i>=4

        disp(['Prectete si prosim znovu zadani a spustte funkci znovu.'])

        return

    end

end

disp(['Zvolte barvu'])

barva=menu('Barva','cervena','cerna')

switch barva

case 1 ;

    barva=1;

case 2 ;

    barva=2;       

end





v=0;

rul=randi([1 2],1);

if rul==1

disp (['Kulicka padla na cervenou barvu!'])

else

disp (['Kulicka padla na cernou barvu!'])

end

    if rul==barva;

    v=d*2;

    disp (['Vyborne, vyhral jste! Vyhra je: ' num2str(v) 'Kc'])

    else

    v=d-d;

    disp (['Smula, zkuste si vsadit znovu.'])

    end

    

p=5000-d+v;

if p<=0

    disp (['Vycerpal jste vsechny penize. Hra pro Vas skoncila.'])

    return

end

dd=0;

% CISLA 1

    dd=input(['Zadejte sazenou castku. Vklad muze být max ve vysi ' num2str(p) 'Kc: ']);

    ii=0;

    while (dd<0| dd>p)& ii<=2

    

        disp(['Prectete si prosim znovu zadani!'])

        dd=input(['Zadejte sazenou castku. Vklad muze být max ve vysi ' num2str(p) 'Kc: ']);

        ii=ii+1;

        if ii>=2

            disp(['Prectete si prosim znovu zadani a spustte funkci znovu!'])

            return

        end

    end



disp(['Zvolte interval v rozmezi císel 1-36, na ktery chcete vsadit.'])

cislo=menu('Intervaly','1 az 12','13 az 24 ','25 az 36')

switch cislo

case 1 ;

    cislo=1;

case 2 ;

    cislo=2; 

case 3 ;

    cislo=3;    

end



vv=0;

rulrul=randi([1 3],1);

if rulrul==1

disp (['Kulicka padla do prvniho intervalu!'])

    if rulrul==2

    disp (['Kulicka padla do druheho intervalu!'])

    end

else

disp (['Kulicka padla na tretiho intervalu!'])

end

    if rulrul==cislo;

    vv=dd*3;

    disp (['Vyborne, vyhral jste! Vyhra je:' num2str(vv) 'Kc'])

    else

    vv=dd-dd;

    disp (['Smula, zkuste si vsadit znovu.'])

    end

 pp=p-dd+vv;

 if pp<=0

    disp (['Vycerpal jste vsechny penize. Hra pro Vas skoncila.'])

    return

end

 %DRUHE KOLO!!!

 disp (['Vitejte ve druhem kole. Vase celkova vyhrana castka je ted' num2str(pp) 'Kc'])

%BARVY 2

drd=0;



drp=pp;

drd=input(['Zadejte sazenou castku. Vklad muze být max ve vysi ' num2str(drp) 'Kc: ']);

dri=0;

while (drd<0| drd>drp)& dri<=2

    

        disp(['Prectete si prosim znovu zadani!'])

        drd=input(['Zadejte sazenou castku. Vklad muze být max ve vysi ' num2str(drp) 'Kc: ']);

        dri=dri+1;

        if dri>=2

            disp(['Prectete si prosim znovu zadani a spustte funkci znovu!'])

            return

        end

end

    

 

disp(['Zvolte barvu'])

drbarva=menu('Barva','cervena','cerna')

switch drbarva

case 1 ;

    drbarva=1;

case 2 ;

    drbarva=2;       

end

v=0;

drrul=randi([1 2],1);

if drrul==1

disp (['Kulicka padla na cervenou barvu!'])

else

disp (['Kulicka padla na cernou barvu!'])

end

    if drrul==drbarva;

    drv=drd*2;

    disp (['Vyborne, vyhral jste! Vyhra je' num2str(drv) 'Kc'])

    else

    drv=drd-drd;

    disp (['Smula, zkuste si vsadit znovu.'])

    end



drpp=0;

drpp=drp-drd+drv;

drdd=0;

drii=1;

 if drpp<=0

    disp (['Vycerpal jste vsechny penize. Hra pro Vas skoncila.'])

    return

 end



%CISLA 2

    drdd=input(['Zadejte sazenou castku. Vklad muze být max ve vysi' num2str(drpp) ':']);

 drii=0;

while (drdd<0| drdd>drpp)& drii<=2

    

        disp(['Prectete si prosim znovu zadani!'])

        drdd=input(['Zadejte sazenou castku. Vklad muze být max ve vysi' num2str(drpp) ':']);

        drii=drii+1;

        if drii>=2

            disp(['Prectete si prosim znovu zadani a spustte funkci znovu!'])

            return

        end

end   



disp(['Zvolte interval v rozmezi císel 1-36, na ktery chcete vsadit.'])

drcislo=menu('Intervaly','1 az 12','13 az 24 ','25 az 36')

switch cislo

case 1 ;

    drcislo=1;

case 2 ;

    drcislo=2; 

case 3 ;

    drcislo=3;    

end

drvv=0;

drrulrul=randi([1 3],1);

if drrulrul==1

disp (['Kulicka padla do prvniho intervalu!'])

    if drrulrul==2

    disp (['Kulicka padla do druheho intervalu!'])

    end

else

disp (['Kulicka padla do tretiho intervalu!'])

end

    if drrulrul==cislo;

    drvv=drdd*3;

    disp (['Vyborne, vyhral jste! Vyhra je:' num2str(vv) 'Kc'])

    else

    drvv=drdd-drdd;

    disp (['Smula, zkuste si vsadit znovu.'])

    end

 celkemdr=drpp-drdd+drvv



disp(['GRATULUJEME VASE CELKOVA VYHRA JE : ' num2str(celkemdr) 'Kc'])



X=[q p pp drpp celkemdr];

Y=[0 1 2 3 4];

plot(Y,X ,'--or',...
    'linewidth',4,...
    'MarkerSize',10,...
    'MarkerEdgeColor','cyan',...
    'markerfacecolor','black')





xlabel('cisla sazek','fontsize',13)

ylabel('Vyhry','fontsize',13)

title('Vyvoj vasi hry','fontsize',18)

text(0.5,5000, 'Vyborne dohral jste hru dokonce!','fontsize',10)

grid on

 

 

    