function htsim2(n,m,p)

% Simulate the coin flip game n times, flipping m times in each game, with
% probability p that heads comes up, then display a bar graph of Peter's
% winnings (which may be negative)

for i=1:n
    flip=rand(1,m)<p; % create n-component vector where each component is 0 or 1,
% 0=tails; 1=heads
    x=2*flip-1; % create a new vector for each 1 (head) in flip, 1, for each 0 (tail), -1 
    fortune=sum(x); % total in this game
    record(i)=fortune;
end
h=histogram(record,'BinLimits',[-m, m]);