% LMex030301_4th.m
% Example 3.3.1 Loaded Ace-six flats dice
% Ace-six flats dice are shortened so that
% p(1)=p(6)=1/4 and p(2)=p(3)=p(4)=p(5)=1/8;
% What is the probability of getting a 7 rolling fair dice?
% What is the probability of rolling a 7 using ace-6 dice?
% Written by Eugene.Gallagher@umb.edu
% Calls crapsmof65_ace6.m, which solves craps probabilities for fair and 
% ace-six flats dice
% ace-six flats can be ordered at:
% http://www.gamblingcollectibles.com/equipment.html
% Written 1/12/11 for EEOS601 by Eugene.Gallagher@umb.edu
% http://alpha.es.umb.edu/faculty/edg/files/edgwebp.html
number=7;
[Pexact,Pa6exact,Pnumber,Pa6number]=crapsmof65_ace6(7);
fprintf('The probability of rolling a %2.0f with fair dice=%6.4f or\n',...
    number,Pnumber)
format rat
disp(Pnumber)
format
fprintf(...
 'The probability of rolling a %2.0f with loaded ace-6 dice=%6.4f or\n',...
    number,Pa6number)
format rat
disp(Pa6number)
format
