线极化 :
clear all;clc;close all;
x=(0:.3:30); %初始位置 1
l=zeros(size(x));
t=0; %时间变量
for i=1:500 %帧数
ey=cos(2*pi*t-0.8*x); %电场横向分量
ez=cos(2*pi*t-0.8*x); %电场纵向分量
quiver3(x,l,l,l,ey,ez); %画矢量图
title('线极化波 2'); %标题
xlabel('x'); %x 标签
ylabel('y'); %y 标签
zlabel('z'); %z 标签
axis([0,30,-4,4,-4,4]); %view(90,0);
view(20,40); %观察范围
pause(0.01); %延时
mov(i)=getframe(gcf); %录制
t=t+0.01;
end;
hold off;
movie2avi(mov,'线极化波 2.avi'); %生成 avi 视频文件