get_settlingtime.m

其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載

function settlingTime=Get_settlingTime(yss,t,y,FT);
%% settlingTime=Get_settlingTime(yss,t,y,FT);
%% PenChen Chou. 2004/1/15

if nargin~=4, 
    error('Error! No enough input arguments (need 4)!'); 
end
if yss==eps
  settlingTime=FT;
else
  % Reverse y
  N=length(t);
  reverseY=y(N:-1:1); revTime=t(N:-1:1);
  II=find(reverseY<0.95*yss | reverseY>1.05*yss);
  if isempty(II)
    settlingTime=FT;
  else
    settlingTime=revTime(II(1));
  end
end