MATLAB生成光通过三稜镜色散动画

MATLAB生成光通过三稜镜色散动画 部分源码 function optics_prism close all figure('position',[78 276 792 402]); xp=[-0.2,0.2,0];yp=[0.2,0.2,0.5];B=pi/14; ZZ=[xp;yp]'*[cos(B),sin(B);-sin(B),cos(B)]; fill(ZZ(:,1),ZZ(:,2),[0.2,0.4,0.6]); axis([-1,1,0,1]);hold on;set(gca,'color','k'); t=0;A=pi/8;set(gcf,'doublebuffe

function optics_prism
close all 
figure（‘position‘[78 276 792 402]）; 
xp=[-0.20.20];yp=[0.20.20.5];B=pi/14; 
ZZ=[xp;yp]‘*[cos（B）sin（B）;-sin（B）cos（B）]; 
fill（ZZ（:1）ZZ（:2）[0.20.40.6]）; 
axis（[-1101]）;hold on;set（gca‘color‘‘k‘）; 
t=0;A=pi/8;set（gcf‘doublebuffer‘‘on‘）; 
x=[-1-1];y=[00]; 
H=plot（xy‘w‘‘linewidth‘6）; 
while t<0.8; 
pause（0.1）; 
t=t+0.1; 
x（2）=-1+t*cos（A）; 
y（2）=t*sin（A）; 
set（H‘xdata‘x‘ydata‘y）; 
end 
x1=[x（2）x（2）];y1=[y（2）y（2）];H1=plot（x1y1‘r‘）; 
H2=plot（x1y1‘color‘[110]）;x2=x1;y2=y1; 
H3=plot（x1y1‘y‘）;x3=x1;y3=y1; 
H4=plot（x1y1‘g‘）;x4=x1;y4=y1; 
H5=plot（x1y1‘color‘[011]）;x5=x1;y5=y1; 
H6=plot（x1y1‘b‘）;x6=x1;y6=y1; 
H7=plot（x1y1‘color‘[101]）;x7=x1;y7=y1; 
t=0; 
C=linspace（pi/1607）; 
s=linspace（11

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        2754  2018-04-21 17:04  MATLAB光通过三稜镜色散动画\optics_prism.m
     目录           0  2018-04-21 17:03  MATLAB光通过三稜镜色散动画\