?? psim1.m
字號:
function y=psim1(x,tol)
if nargin<2, tol=norm(x)*1000*eps; end
x=x(:).' ; % make sure input is a row
i=find(abs(x)<.99&abs(x)<tol) ; % find insignificant indices
x(i)=zeros(1, length(i)) ; % set them to zero
i=find(x~=0) ; % find significant indices
if isempty(i)
y=0 ; % extreme case: nothing left!
else
y=x(i(1) : length(x)) ; % start with first term
end % and go to end of polynomial
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -