流机MATLAB补充程序代码.pdfVIP

第八章 end function s=mmp2str(p,v,ff) if n==1 % polynomial is just a constant % MMP2STR Polynomial Vector to String Conversion. s=sprintf( %.4g ,K); % MMP2STR(P) converts the polynomial vector P into a string. return % For example: P = [2 3 4] becomes the string 2s^2 + 3s + 4 end % MMP2STR(P,V) generates the string using the variable V s=[pp v ^ sprintf( %.0f ,n-1)]; % begin string construction % instead of s. MMP2STR([2 3 4], z ) becomes 2z^2 + 3z + 4 % MMP2STR(P,V,1) factors the polynomial into the product of a for i=2:n-1 % catenate center terms in % constant and a monic polynomial. polynomial % MMP2STR([2 3 4],[ ],1) becomes 2(s^2 + 1.5s + 2) if p(i)0, pm= - ; else, if p(i)0,pm= ; end % Copyright (c) 1996 by Prentice-Hall,Inc. if p(i)==1,pp=[ ] ; else, pp=sprintf( %.4g , abs(p(i))) ; end if p(i)~=0,s=[s pm pp v ^ sprintf( %.0f ,n-i)] ; end if nargin3, ff=0; end % factored form is False end if nargin 2, v= s ; end % default variable is s if p(n)~=0,pp=sprintf( %.4g ,abs(p(n))); else, pp=[ ]; end if isempty(v), v= s ; end % default variable is s if p(n)0 , pm= - ; elseif p(n)0 , pm= + ; else, pm=[ ]; v=v(1) ; % variable must be scalar end p=mmpsim(p) ; % strip insignificant terms end s=[s pm pp pe];