polarization.m

来自「电磁场圆极化」· M 代码 · 共 39 行

%Circular，line，elliptical polarization;
%copyright 属于研学论坛bbs.matwav.com和plasma

clear all;
framemax=100;
omega=2*pi/framemax;
phi_0=-pi/2;
%if plus -pi then the direction will be changed.(half wave loss);
%negative to contourclock;
%0 and pi are line polarization; 
%-pi/2 and pi/2 is circular polarization;
%others are Elliptical polarization;
%
e10=1;
e20=1;

x1_x=-1:1;x1_y=x1_x*0;

for t=1:framemax
    e1=e10*cos(omega*t);%x方向；
    e2=e20*cos(omega*t+phi_0);%y方向；

    hh2=plot(e1,e2,                'MarkerFaceColor','b',...
                    'MarkerEdgeColor','k',...
                'MarkerSize',50);
             set(hh2,'Marker','o') ;
             set(hh2,'MarkerSize',8);
             xlabel('x轴');
             ylabel('y轴');
             title('Circular polarization-圆极化');
     axis equal;
   axis([-1 1 -1 1]);
 hold on;
 plot(x1_x,x1_y);
 plot(x1_y,x1_x);

    m(t)=getframe;
end
%movie(m,2);