% A vs h.m; Ledwell, 9/9/05
% looks at Area versus peak height data for all the tows

A=[];
h=[];
for i=1:8
    s=int2str(i);
    if length(s)==1
        s=['0',s];
    end
    eval(['load ..\Profiles\Tow_',s,'.txt'])
    eval(['A',s,'=Tow_',s,'(:,6);'])
    eval(['h',s,'=Tow_',s,'(:,7);'])
    eval(['A=[A; A',s,'];'])
    eval(['h=[h; h',s,'];'])
end

k=find(~isnan(A) & ~isnan(h) & h<20);

figure(1); clf
plot(h(k),A(k),'o')
[fit,par]=try_fit(h(k),A(k),1);
axis([0 20 0 9000])


