?? tfarma_weyl.m
字號:
function Lalpha= tfarma_weyl(Aml, Bml, N, alpha)% function Lalpha= tfarma_weyl(Aml, Bml, N, alpha)% This file is part of the TFPM toolbox v1.0 (c)% michael.jachan@tuwien.ac.at and underlies the GPL.% % Computes the Weyl symbol of an underspread TFARMA model. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%clear;tfpm;MAR = 3;LAR = 3;MMA = 3;LMA = LAR;N = 128;re_im= 'r';mo_no= 'n';tfpm_file_gen;%-------------%Bml= Bml= [1 1]alpha= 1/2;Anm= param_expand(Aml.*param_phase(MAR, LAR, N, alpha), N);Bnm= param_expand(Bml.*param_phase(MMA, LMA, N, alpha), N);H0= ker_to_lag(tvarma_impr(Anm, Bnm), -1, alpha);L0= nm_to_nk(H0);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Dimensions:[MAR, LAR]= param_dim(Aml);[MMA, LMA]= param_dim(Bml);LTFMA= param_weyl(Bml.*param_phase(MMA, LMA, N, alpha), N, alpha);LTFAR= param_weyl(Aml.*param_phase(MAR, LAR, N, alpha), N, alpha);RELMIN= 1e-5;ABSMIN= RELMIN*max(max(abs(LTFAR)));LTFARsat= LTFAR.*(1-(abs(LTFAR)<ABSMIN));LTFARsat= LTFARsat+ABSMIN*(LTFARsat==0);Lalpha= LTFMA./(LTFARsat);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%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 + -