Mein MATLAB Forum

clear all;
close all;
clc;

% ######## PLEASE CHOOSE A OR B

%maxbet = inf; % bsp_46a
maxbet = 100; % bsp_46b

% #############################


rounds = 1000;
E_0 = 10;
E_end = 5 * E_0;
roi = zeros(1,rounds);
stat_numbers = zeros(1,37);
stat_maxbet = zeros(1,rounds);
stat_numberofgames = zeros(1,rounds);
stat_minaccount = zeros(1,rounds);
stat_winamount = zeros(1,rounds);

% start simulation
for round = 1:rounds

    % initializations for each round
    playing = 1;
    step = 1;
    E = [];
    E(1) = E_0;
    % TODO bet
    bet = [];
    bet(1) = E_0;
   
    games = 0;

   


    % play round
    while playing == 1

        % new step
        step = step + 1;

        % play step
        number = randi(37,1) - 1;
        stat_numbers(number + 1) = stat_numbers(number + 1) + 1;
        games = games + 1;

        % en prison
        if number == 0
            E(step) = E(step - 1);
            bet(step) = bet(step - 1);
            fprintf('en prison!\t\tcurrent money: %d\t\tcurrent bet: %d\t\tnext bet: %d\n',E(step),bet(step - 1),bet(step));
            continue;
        end

        % win or loose
        if mod(number,2) == 1
            E(step) = E(step - 1) + bet(step - 1);
            bet(step) = E_0;
           
            fprintf('win!\t\tcurrent money: %d\t\tcurrent bet: %d\t\tnext bet: %d\n',E(step),bet(step - 1),bet(step));
        else
            E(step) = E(step - 1) - bet(step - 1);
            bet(step) = bet(step - 1) * 2;
            fprintf('lost!\t\tcurrent money: %d\t\tcurrent bet: %d\t\tnext bet: %d\n',E(step),bet(step - 1),bet(step));
        end

        % check if player has won max amount
        if E(step) >= E_end
            playing = 0;
            disp(['congrats! you have: ', num2str(E(step))]);
        end

        % check if player bets over maxbet
        if bet(step) > maxbet
            fprintf('bet limit reached - end game\n');
            playing = 0;
        end

    end
   
    % statistics
    stat_maxbet(round) = max(bet);
    stat_numberofgames(round) = games;
    stat_minaccount(round) = min(E);
    stat_winamount(round) = E(end) - E_0;
    roi(round) = (E(end) - E_0) / E_0;

end

roi_end = sum(roi)/numel(roi)


subplot(2,2,1);
%hold on;
bar(stat_numbers);
axis([0,36,rounds/10,rounds/10*3]);
title('number occurence');
%hold off;

subplot(2,2,2);
bar(stat_winamount);
axis([1, rounds, min(stat_winamount)-E_0, max(stat_winamount)+E_0]);
title('win amount');

subplot(2,2,3);
bar(stat_numberofgames);
axis([1, rounds, min(stat_numberofgames), max(stat_numberofgames)]);
title('number of games');

subplot(2,2,4);
bar(stat_minaccount);
title('min acount');
axis([1,rounds,min(stat_minaccount),0]);

if maxbet == inf
    print -djpeg 'bsp_46a.jpg';
else
    print -djpeg 'bsp_46b.jpg';
end