RankedAnalysis

clear all

avgamount=10;

maxplayerarrnorm=zeros(1,avgamount);
maxplayerarrneg=maxplayerarrnorm;

matchlim=5;                                                                 %5 means 2.5 difference limit lower and upper
playercount=100;
totalmatches=1e4;
matchupspread=10;                                                           %10 difference means 0 or 1 chance
matchweight=.5;                                                             %.5 means reward between 0 and 1

for n=1:avgamount

    [playerarr,playerstrength,~]=createplayers(playercount);

    matchcount=1;
    playerids=1;
    while matchcount <= totalmatches

        [i,j,players]=faceoffs(playercount,playerarr,matchcount,playerids);

        if (abs(players(1)-players(2))) <= matchlim/2

            [truewinchance, rewardwinchance]=winchancecomputation(matchupspread,playerstrength,i,j,players);

            rewards=createrewards(rewardwinchance,matchweight);

            playerarr=rewarddist(playerarr,rewards,players,i,j,truewinchance,matchcount);

            matchcount=matchcount+1;
        end
        playerids=playerids+1;
    end
    maxplayerarrnorm(n)=max(max(playerarr));
end

for m=1:avgamount

    [playerarr,playerstrength,~]=createplayers(playercount);
    negplayerarr=createnegplayerarr(playercount);

    matchcount=1;
    playerids=1;
    while matchcount <= totalmatches

        [i,j,players]=faceoffs(playercount,playerarr,matchcount,playerids);

        if (abs(players(1)-players(2))) <= matchlim/2

            [truewinchance, rewardwinchance]=negwinchancecomputation(matchupspread,playerstrength,i,j,players,negplayerarr);

            rewards=createrewards(rewardwinchance,matchweight);

            [playerarr,negplayerarr]=negrewarddist(playerarr,rewards,players,i,j,truewinchance,matchcount,negplayerarr);

            matchcount=matchcount+1;
        end
        playerids=playerids+1;
    end
    maxplayerarrneg(n)=max(max(playerarr));
end

disp([mean(maxplayerarrnorm) mean(maxplayerarrneg)])