function Cmn= param_fpoly(CFmn, CF0)% function Cmn= param_fpoly(CFmn, CF0)%   This file is part of the TFPM toolbox v0.9 (c)%   michael.jachan@tuwien.ac.at and underlies the GPL.% % Computes model parameters from frozen roots given in CFmn and the% normalization CF0. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%clear;%tfpm;MAR  =   7;LAR  =   5;MMA  =   5;LMA  =   3;N    =1024;re_im= 'i';mo_no= 'n';tfpm_file_gen;%-------------C= Bmn;[CFmn, CF0]= param_froots(C);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(nargin==1)   CF0= ones(N, 1);end;% Dimensions:NM= size(CFmn);N= NM(1);M= NM(2);Cmn= [];for n= 0:N-1   p= poly(CFmn(n+1, :))*CF0(n+1);   Cmn= [Cmn; p];end;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%max(max(abs(Cmn-C)))tfpm_plot_cmn(Cmn, 1, 1, 'r-', 'b:')%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%