%--------------------------------------------------------------------------
%
% PURPOSE: Test the rudder rate limiter routine
% AUTHOR:  Rob McEwen
% DATE:    99/4/22
%
%--------------------------------------------------------------------------
 Ts           = .1;               % Sample interval, sec.
 tdb          = [0:500]'/10;
 udb          = ones(501,1)*10*pi/180;
 udb          = 10*pi/180*sin(2*pi*.5*tdb);
 maxDeltaR    = pi/12;            % Max tailcone deflection; 15 degrees.
 maxDeltaRDot = 15*pi/180;        % Max tailcone deflection rate; Deg/sec.
 deltaRDead   = maxDeltaRDot*Ts;  % Max rudder deflection in one sample interval
%
%[toutdb] = sim('rudderRateSS1',tdb,simset('maxstep',tdb(2)-tdb(1)));
 [toutdb] = sim('rudderRateSS1',tdb);
%
 plot(toutdb,[ydb udb])
 grid on