📄 tfar_est_tfywe.m
字号:
function [A, B]= tfar_est_tfywe(Ayy, N)% function [A, B]= tfar_est_tfywe(Ayy, N)% This file is part of the TFPM toolbox v1.0 (c)% michael.jachan@tuwien.ac.at and underlies the GPL.% % Estimates TFAR(MAR; LAR; N; 1/2) models from Ayy. % size(Ayy)= [6*LAR+1, 2*MAR+1], Ayy(3*LAR+1, MAR+1)= A_y[0, 0]. % Uses the exact TFYW estimator. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%clear;tfpm;MAR = 2;LAR = 2;MMA = 0;LMA = LAR;N = 128;re_im= 'i';mo_no= 'n';tfpm_file_gen;%-------------alpha= 1/2;Aalpha= tfarma_ambi(Aml, Bml, N, alpha);Ayy= Aalpha(N/2-3*LAR+1:N/2+3*LAR+1, N/2-MAR+1:N/2+MAR+1);HAR= tvarma_impr(Anm, Bnm);AAR= nm_to_ml(ker_to_lag(HAR*HAR', -1, alpha));Ayy= AAR (N/2-3*LAR+1:N/2+3*LAR+1, N/2-MAR+1:N/2+MAR+1);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DimensionsMARmax= (size(Ayy, 2)-1)/2;LAR = (size(Ayy, 1)-1)/6;LL = 2*LAR+1;% Fill the block-Toeplitz generator rPM and the RHS BMrPM= [];vPM= [];for lambda= 2*LAR:-1:-2*LAR rPM= [rPM toep(fliplr(Ayy(3*LAR+1+lambda, 2:2*MARmax)))]; vPM= [vPM ones(MARmax, 1)*exp(-j*2*pi/N*(1:MARmax)*lambda)];end;BM = [];for l= -LAR:LAR BM= [BM; -Ayy(3*LAR+1+l, MARmax+2:2*MARmax+1).'];end;% Solve the systemAM= invert_akaike(rPM.*vPM, BM);% Reshape AM to A and Compute BA= [[zeros(LAR, 1); 1; zeros(LAR, 1)] reshape(AM(:, :, LL), MARmax, LL).'];B= tfar_est_b0l(Ayy, A, N);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%param_norm(A, Aml, 0)param_norm(B, Bml, 1)%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -