% 偽サイコロのシミュレーションを検証

n = 12000;

for k=1:n
    a(k) = dice_false();
end

histogram(a);
fprintf("サイコロの目の頻度\n");
saveas(gcf, 'dice_false_validation_histgram.png');
fprintf("一時停止：何かのキーを押してください\n");
pause;

d = a(2:n) - a(1:n-1);
histogram(d);
fprintf("差の頻度\n");
saveas(gcf, 'dice_false_validation_diff_histgram.png');
fprintf("一時停止：何かのキーを押してください\n");
pause;

histogram(abs(d));
fprintf("差の絶対値の頻度\n");
saveas(gcf, 'dice_false_validation_abs_diff_histgram.png');
fprintf("一時停止：何かのキーを押してください\n");
pause;

dp = a(2:2:n) - a(1:2:n-1);
histogram(dp);
fprintf("二個振ったときの差の頻度\n");
saveas(gcf, 'dice_false_validation_two_diff_histgram.png');
fprintf("一時停止：何かのキーを押してください\n");
pause;

histogram(abs(dp));
fprintf("二個振ったときの差の絶対値の頻度\n");
saveas(gcf, 'dice_false_validation_two_abs_diff_histgram.png');
fprintf("一時停止：何かのキーを押してください\n");
pause;
