close all
clear all

%---------------Figure Setup --------------------- 

lw = 2;  
set(0, 'DefaultAxesFontSize', 14);
fs = 13;
msize = 7;
 

load 'C:\STAT\ANOVA\ANOVAdat\Ortho.dat'
ks = 1:28;
close all
xxx = linspace(0,1,256);
m1=min((min(Ortho)))
M1=(max(max(Ortho)))
figure(1)
set(0, 'DefaultAxesFontSize', 10);
for j = 1:length(ks)
    subplot(4,7,j)
k = ks(j); 
   for i = (k-1) * 10  + 1  :   k*10
      plot( xxx, Ortho(:,i) )
      axis([0 1 m1 M1])
      hold on
   end
end

%print -depsc 'C:\STAT\ANOVA\ANOVAeps\orthosisraw.eps'