?? param_weyl.m
字號:
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%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -