% motor analysis 
%
%
disp(' ')
disp('Start new motor')
titstr='AstroFlight Cobalt-25 Sport Motor #625 on 15 volts';
disp(titstr)
echo on
Kv=971; %RPM/volt
Kt=1.39; % inch-ounce per ampere
R=.093; % Ohms
Io=2; % amperes
Vin=15; % volt
Iin=2:30;
echo off
[Pout,Poutfpps,PoutHp,Pin,Tout,Toutfp,RPM,eta]=motor(Vin,Iin,Kv,Kt,R,Io);
motorplot(Iin,Pout,Tout,RPM,eta,titstr)
[PoutMax,PoutfppsMax,PoutHpMax,PinMax,ToutMax,ToutfpMax,RPMMax,etaMax]=...
motoranalysis(Pout,Poutfpps,PoutHp,Pin,Tout,Toutfp,RPM,eta,titstr)
