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