矩形波导matlab仿真

对矩形波导的电磁场分布电流分布等进行模拟仿真，通过matlab实现

clc
clear all  
R=6;

N=6;
M=36;
r=linspace（1RN）;%半径分成N分
Phi=[0.01:2*pi/M:2*pi];%将角度分成M份
num=1;
for n1=1:M %找到坐标点
    for n2=1:N
        x_begin（num）=r（n2）*cos（Phi（n1））;
        y_begin（num）=r（n2）*sin（Phi（n1））;
        num=num+1;
    end   
end
% figure（1）
% scale=.9;
% quiver（x_beginy_beginx_beginy_beginscale‘b‘）


n=0;i=1;
kc=wb2011_exp2_07_table_TE（niR）;
if（kc==0）
    disp（‘无此Kc值，请重输！‘）
end
if n>0    
Jn1=（besselj（n-1kc.*r）-besselj（n+1kc.*r））/2;
else
Jn1=-besselj（1kc.*r）;
end
Jn=besselj（nkc.*r）;

Hr=zeros（MN）;
Hphi=zeros（MN）;

    for a=1:M
        for b=1:N
            Hr（ab）=-Jn1（b）*cos（n*Phi（a））;
            Hphi（ab）=（n./（kc*r（b）））*Jn（b）*sin（n*Phi（a））;
        end    
    end
x_end_temp1=zeros（MN）;
y_end_temp1=zeros（MN）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2480  2014-06-24 22:58  waveguide\wb2011_exp2_07_circle_TE.m

     文件       2393  2014-06-24 22:59  waveguide\wb2011_exp2_07_circle_TM.m

     文件        604  2014-06-23 21:11  waveguide\wb2011_exp2_07_rectangle_TE.m

     文件        559  2014-06-23 21:12  waveguide\wb2011_exp2_07_rectangle_TM.m

     文件        554  2014-06-15 20:32  waveguide\wb2011_exp2_07_table_TE.m

     文件        487  2014-06-15 20:38  waveguide\wb2011_exp2_07_table_TM.m

     目录          0  2014-08-14 01:04  waveguide

----------- ---------  ---------- -----  ----

                 7077                    7