File:1d choisi parmi 3 differents.png

clear; clf;

resultat = zeros(12, 12, 12, 12); // initialisation

for imax = 4:2:12
   for jmax = imax:2:12
      for kmax = jmax:2:12
         for i = 1:imax
            for j = 1:jmax
               for k = 1:kmax
                  ijkmax = max(i, j, k);
                  resultat(imax, jmax, kmax, ijkmax) =...
                   resultat(imax, jmax, kmax, ijkmax) +1;
               end
            end
         end
      end
   end
end

// 3d4

somme444 = sum(resultat(4, 4, 4, :));
for i = 1:4
   y444(i) = 100*resultat(4, 4, 4, i)/somme444;
end

z444(4) = y444(4);
for i = 3:-1:1
   z444(i) = z444(i+1) + y444(i);
end

// 2d4+1d6

somme446 = sum(resultat(4, 4, 6, :));
for i = 1:6
   y446(i) = 100*resultat(4, 4, 6, i)/somme446;
end

z446(6) = y446(6);
for i = 5:-1:1
   z446(i) = z446(i + 1) + y446(i);
end

// 1d4+2d6

somme466 = sum(resultat(4, 6, 6, :));
for i = 1:6
   y466(i) = 100*resultat(4, 6, 6, i)/somme466;
end

z466(6) = y466(6);
for i = 5:-1:1
   z466(i) = z466(i + 1) + y466(i);
end

// 1d4+1d6+1d8

somme468 = sum(resultat(4, 6, 8, :));
for i = 1:8
   y468(i) = 100*resultat(4, 6, 8, i)/somme468;
end
 
z468(8) = y468(8);
for i = 7:-1:1
   z468(i) = z468(i + 1) + y468(i);
end

// Tracé

subplot(2,1,1)

plot2d(1:4, y444, rect = [1, 0, 8, 60], style = 1)
plot2d(1:6, y446, rect = [1, 0, 8, 60], style = 2)
plot2d(1:6, y466, rect = [1, 0, 8, 60], style = 3)
plot2d(1:8, y468, rect = [1, 0, 8, 60], style = 4)

xstring(4.1, 55, "3d4")
xstring(6, 12, "2d4+1d6")
xstring(6, 32, "1d4+2d6")
xstring(7, 15, "1d4+1d6+1d8")

xtitle("Probabilité d''obtenir une valeur", "rés.", "%")

subplot(2,1,2)

plot2d(1:4, z444, rect = [1, 0, 8, 100], style = 1)
plot2d(1:6, z446, rect = [1, 0, 8, 100], style = 2)
plot2d(1:6, z466, rect = [1, 0, 8, 100], style = 3)
plot2d(1:8, z468, rect = [1, 0, 8, 100], style = 4)

xstring(3.5, 55, "3d4")
xstring(6, 10, "2d4+1d6")
xstring(5.7, 25, "1d4+2d6")
xstring(7, 30, "1d4+1d6+1d8")

xtitle("Probabilité d''atteindre ou de dépasser une valeur", "rés.", "%")