完整版 可直接运行 MATLAB光通过三稜镜色散动画 光线入射三棱镜折射动画效果 彩虹形成原理 源程序代码.rar

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 x1=[x(2),x(2)];y1=[y(2),y(2)];H1=plot(x1,y1,'r'); H2=plot(x1,y1,'color',[1,1,0]);x2=x1;y2=y1; H3=plot(x1,y1,'y');x3=x1;y3=y1; H4=plot(x1,y1,'g');x4=x1;y4=y1; H5=plot(x1,y1,'color',[0,1,1]);x5=x1;y5=y1; H6=plot(x1,y1,'b');x6=x1;y6=y1; H7=plot(x1,y1,'color',[1,0,1]);x7=x1;y7=y1; t=0; C=linspace(pi/16,0,7); s=linspace(1,1.2,7); while t<0.165; pause(0.1);