92
92
Es=clean(mat2pol(E,degE));
95
96
function [As]=mat2pol(A,degA)
96
97
[na,ma]=size(a);long=ma/(degA+1);
97
98
nb=degA+1;debut=1;fin=long;As=0*ones(na,fin);
99
100
for k=1:nb ,As=As+s^(k-1)*A(:,debut:fin),debut=fin+1,fin=fin+long,end
101
103
function [F,degF]=pol2mat(Fs)