% motor analysis 
%
%
clear
clf
motordata
[nmotor,col]=size(mdata)
subplot(411)
plot(log10(mdata(:,7)),log10(mdata(:,4)),'o')
ylabel('log10(Io)')
xlabel('log10(HP)')
title(' The AstroFlight Cobalt Sport Motors for Model Aircraft')
[m,b]=straightline(log10(mdata(:,7))',log10(mdata(:,4))')
L1=m*log10(mdata(:,7))+b;
hold on; plot(log10(mdata(:,7)),L1); hold off

subplot(412)
plot(mdata(:,7),mdata(:,4),'o')
ylabel('Io')
xlabel('HP')
[m,b]=straightline(mdata(:,7)',mdata(:,4)')
L1=m*mdata(:,7)+b;
hold on; plot(mdata(:,7),L1); hold off

subplot(413)
plot(mdata(:,7),mdata(:,4),'o')
ylabel('Io')
xlabel('HP')
[m,b,c]=curve(mdata(:,7)',mdata(:,4)')
L1=m*mdata(:,7)+b+c./mdata(:,7);
hold on; plot(mdata(:,7),L1); hold off

%subplot(414)
