exp4.m

电磁场圆极化

%the sixth experiment;
%电磁场理论基础实验6相关数据处理。
%copyright 属于研学论坛bbs.matwav.com和plasma

clear all;

f1=[90 89 86 80 70 60 50 40 28 17 10 5 2.5 1.7 0.3 0 0 0 0];
f2=[90 89 86 79 70 60 50 38 26 16 9 6 3 2 0.5 0 0 0 0];
f3=[88 86 84 78 68 58 50 36 24 16 8 4 3 2 0.7 0 0 0 0];
f4=[85 85 82 74 64 54 44 34 22 14 7 4 2.3 1.9 .2 0 0 0 0];
f5=[81 80 76 72 62 52 42 32 21 14 8 4 2.3 1.3 0 0 0 0 0];

f6=[74 74 72 66 60 49 40 28 19 11 7 4 2 1 0 0 0 0 0];
f7=[68 68 66 62 52 42 32 24 15 9 5 3.6 2 1 0 0 0 0 0];
f8=[61 61 58 54 46 36 30 21 13 8 4 2 1 0 0 0 0 0 0];
f9=[52 52 50 45 40 32 24 17 11 6 3 2 1 0 0 0 0 0 0];
f10=[44 44 41 38 32 26 20 14 8 4 2 1 0 0 0 0 0 0 0];

f11=[34 33 32 29 24 20 14 10 6 3 1.5 .3 0 0 0 0 0 0 0];
f12=[25 24 23 20 17 13 10 7 4 2 1 0 0 0 0 0 0 0 0];
f13=[17 16 15 14 11 9 6 4 2 1 0 0 0 0 0 0 0 0 0];
f14=[10 10 9 8 7 5 4 2 1 0 0 0 0 0 0 0 0 0 0];

f15=[5 4.9 4.6 4 3.7 2.1 1.9 1 .3 0 0 0 0 0 0 0 0 0 0];
f16=[2 2 2 1.9 1 .2 0 0 0 0 0 0 0 0 0 0 0 0 0];
f17=[.5 .5 .5 .2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0];
f18=[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0];
f19=[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0];

ft1=[f1;f2;f3;f4;f5;f6;f7;f8;f9;f10;f11;f12;f13;f14;f15;f16;f17;f18;f19];
ft2=flipud(ft1);
ft3=fliplr(ft1);
ft4=flipud(ft3);

ftt1=[ft2 ft4;ft1 ft3];
ftt11=ftt1(1:18,1:18);ftt12=ftt1(1:18,20:38);
ftt21=ftt1(20:38,1:18);ftt22=ftt1(20:38,20:38);

%ftt=[ftt12 ftt11;ftt22 ftt21];
ftt=[ftt22 ftt21; ftt12 ftt11];

theta=-36:2:36;theta=2*pi*theta/360;
phi=0:5:180;phi=phi*2*pi/360;

for i=1:37;
    if i==1 || i==37;
        h1=polar(phi,ftt(:,i)'/90,'-r');
        hold on;
  end
    if i>1 && i<37
        h1=polar(phi,ftt(:,i)'/90);
        hold on;
        h2=polar(theta,ftt(i,:)/90,'-r');
        hold on;
    end
end
       hold off;

%surf(theta,phi,ftt);



%fliplr(A)
%flipud(A)