?? param_tconv_b1.m
字號:
function B1= param_tconv_b1(Bml1, Bml2, N, beta)% function B1= param_tconv_b1(Bml1, Bml2, N, beta)% This file is part of the TFPM toolbox v1.0 (c)% michael.jachan@tuwien.ac.at and underlies the GPL.% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%clear;tfpm;MAR = 7;LAR = 5;MMA = 5;LMA = 3;N = 128;re_im= 'i';mo_no= 'n';tfpm_file_gen;%-------------beta= -1/2;Bml1= Aml;Bml2= Bml;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Dimensions:[M1, L1]= param_dim(Bml1);[M2, L2]= param_dim(Bml2);M= M1+M2;L= L1+L2;B1= zeros((M+1)*(2*L+1), (M2+1)*(2*L2+1));% Compute B1for m= 0:M for l= -L:L for mp= 0:M2 for lp= -L2:L2 B1((m*(2*L+1))+l+L+1, mp*(2*L2+1)+lp+L2+1)= ... param_get(Bml1, m-mp, l-lp) * exp(-j*2*pi/N*tfpm_phi(m, l, mp, lp, beta)); end; end; end;end;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%if(0)% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Test B1:norm(param_destack_ml(B1*param_stack_ml(Bml2), M, L)-param_tconv(Bml1, Bml2, N, beta))%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end;% TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -