www.pudn.com > tfarma10.rar > param_weyl.m, change:2004-05-07,size:1580b


function Lalpha= param_weyl(Cml, N, alpha)
% function Lalpha= param_weyl(Cml, N, alpha)
%   This file is part of the TFPM toolbox v0.5 (c)
%   michael.jachan@tuwien.ac.at and underlies the GPL.
% 
% Computes the generalized Weyl symbol of an underspread TFMA
% model given through Cml. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear;%tfpm;
MAR  =   0;
LAR  =   0;
MMA  =   5;
LMA  =   3;
N    =  64;
re_im= 'i';
tfpm_file_gen;
%-------------
Cml= Bml;
alpha= 1/2;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%Dimensions:
[M, L]= param_dim(Cml);

% Select right alpha:
Cml= Cml.*param_phase(M, L, N, alpha);
Salpha= [ zeros(N/2-L, N); 
     [zeros(2*L+1, N/2) N*Cml zeros(2*L+1, N/2-1-M)] 
     zeros(N/2-L-1, N)
   ];
Lalpha= nm_to_nk(ml_to_nm(Salpha));

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
H0= ker_to_lag(tvarma_impr(Amn, Bmn), 0, alpha);
L0= nm_to_nk(H0);
figure(97);mesh(abs(L0))
figure(98);mesh(abs(Lalpha))
figure(99);mesh(abs(L0-Lalpha))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%