function motorplot(Iin,Pout,Tout,RPM,eta,titstr)
%Plots motor properties as a fuction of input current

subplot(411)
plot(Iin,eta)
%xlabel('motor current (amperes)')
ylabel('motor efficiency')
title(titstr)

subplot(412)
plot(Iin,RPM)
%xlabel('motor current (amperes)')
ylabel('RPM')

subplot(413)
plot(Iin,Pout)
%xlabel('motor current (amperes)')
ylabel('Power Out(watts)')

subplot(414)
plot(Iin,Tout)
xlabel('motor current (amperes)')
ylabel('Torque out(in-oz)')

Imax=find(eta==max(eta));
subplot(411); Lplot(Iin(Imax),eta(Imax),'EtaMax= ',' when Iin= ',' amperes.')
subplot(412); Lplot(Iin(Imax),RPM(Imax),'RPM= ',' when Iin= ',' amperes.')
subplot(413); Lplot(Iin(Imax),Pout(Imax),'Pout= ',' watts when Iin= ',' amperes.')
subplot(414); Lplot(Iin(Imax),Tout(Imax),'Tout= ',' in-oz when Iin= ',' amperes.')
