  figure(4)
  if hardflag ==3, set(gcf,'PaperPosition',PaperPosn), end
  clf
  if LinFlg,
    plot(t, [FYR yout(:,FYRIx)]);
    legend('Lin Rud Frc','Nonlin Rud Frc',0)
  else
    Ax = plotyy(t, [yout(:,[FYRIx FYTIx FRAIx])],...
                t, [yout(:,[FYRIx FYTIx FRAIx])]/lbf2n);
         set(gcf,'CurrentAxes',Ax(1));
         grid on
         ylabel('Newtons')
         ylim1 = get(gca,'ylim');
         set(gcf,'CurrentAxes',Ax(2));
         set(gca,'ylim',ylim1/lbf2n);
         legend('Rudder on Body Y','Thrust on Body Y','Actuator Axis',0)
  end
  if hardflag == 3, set(gca,'FontUnits','Normalized'), end
  title(['Rudder Force Resolved onto the Vehicle y & Actuator Axes',str])
  xlabel('Seconds');
  ylabel('Pounds Force')