pstr1.m

it is about window function in Matlab. Welcome to using it !

function pstr1(p,v)
p=psim1(p) ;                 
n=length(p) ;                        
K=p(1);
if n==1 
    fprintf('%.4g',K);
   return
end
if K~=1
   fprintf(' %.4g ' , K) ;
end

fprintf('%c.^ %.0f ',v,n-1);   

for i=2:n-1                     
    if p(i)<0, pm= ' -  ' ;  else, pm='+';  end
    fprintf('%c',pm);
	if p(i)~=1, fprintf(' %.4g ', abs(p(i))) ;  end
	if p(i)~=0,fprintf('%c.^ %.0f ',v,n-i) ;  end
end
    if p(n)<0 , pm= ' -  ' ; elseif  p(n)>0 , pm= ' +  ';  end
    fprintf('%c',pm);
	if p(n)~=0,fprintf(' %.4g ',abs(p(n)));   end