www.pudn.com > tfarma10.rar > param_get.m, change:2004-01-19,size:935b


function cml= param_get(Cml, m, l)
% function cml= param_get(Cml, m, l)
%   This file is part of the TFPM toolbox v1.0 (c)
%   michael.jachan@tuwien.ac.at and underlies the GPL.
% 
% Delivers the (m, l)th parameter of the array Cml. Zero if (m, l)
% is outside of the range (1:M+1, -L:L). 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear;%tfpm;
MAR  =   7;
LAR  =   5;
MMA  =   5;
LMA  =   3;
N    =  64;
re_im= 'i';
tfpm_file_gen;
%-------------
Cml= Aml;
m= 0;
l= 0;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[M, L]= param_dim(Cml);
if(m<0 | m>M)
   cml= 0;
   return;
end;
if(l<-L | l>L)
   cml= 0;
   return;
end;
cml= Cml(L+1+l, 1+m);