function [] = prob_10_13
% PROB_10_13 - 
% 
% Written by:
% -- 
% John L. Weatherwax                2005-08-28
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

load walkers
F = reshape(F,15,3,5);
M = reshape(M,15,3,5); 
for k=1:5
  for j=1:3
    subplot(5,3,j+3*(k-1));
    plot([F(:,j,k) M(:,j,k)]);
    ax = axis;
    axis([1 15 ax(3:4)]);
  end
end