%%%%%%% 
% permplotter.m
% Author: Lance Harden, Davidson College
% June 2006
% 
% Description: Used in conjunction with signedperms, permplotter plots
% multiple curves displaying the survival rate of bacteria versus the
% number of flips that have occurred on the same page. Each curve is
% displayed on its own set of axes, making permplotter ideal for comparing
% the graphs of several starting permutations. Its inputs are k, the number
% of pancakes in the stack, and curve, a bigbox-formatted matrix of data
% compiled using one of the other pancake simulator programs such as
% bigtrial.

function permplotter(k,curve)

A = signedperms(k);
dist = [];

for iperm = 1:length(A)
    dist(iperm) = find(curve(:,iperm),1);
end

[sdist,ind] = sort(dist);
%%ids = [11:16 18 20 24:28 30 32 34:42 44:56 58:61];

for iplot = 1:20 %%length(ids)
    subplot(4,5,iplot,'align');plot(test(:,ind(iplot)))
    title(mat2str(A(ind(iplot),:)))
    set(gca,'XTick',1:2:20)
    ylim([0 .12])
end