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,'doublebuffer','on'); 
x=[-1,-1];y=[0,0]; 
H=plot(x,y,'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 

完整代码链接：https://pan.baidu.com/s/13iADdBGCemaQgtvxyWn5MQ

提取码：uoi8