CODE:

%% 光线的折射和反射

% 特性：光的折射与光的反射一样都是发生在两种介质的交界处，

% 只是反射光返回原介质中，而折射光线则进入到另一种介质中。

% 由于光在两种不同的物质里传播速度不同，故在两种介质的交界

% 处传播方向发生变化，这就是光的折射。在折射现象中，光路是可逆的。

figure(1);

n1=1;n2=1.3;t=0;

set(gcf,\\\'doublebuffer\\\',\\\'on\\\');

axis([-2,2,-1,1]);hold on;

title(\\\'光线的折射和反射\\\',\\\'fontsize\\\',18)

rectangle(\\\'Position\\\',[-2,-1,4,1],...

\\\'FaceColor\\\',[0.1,0.3,0.4]);

text(1.4,0.4,\\\'空气\\\',\\\'color\\\',\\\'c\\\',\\\'fontsize\\\',14)

text(1.4,-0.4,\\\'玻璃\\\',\\\'color\\\',\\\'c\\\',\\\'fontsize\\\',14)

text(0.7,0.6,[\\\'n_1= 1\\\'],\\\'fontsize\\\',14);

text(0.7,-0.6,[\\\'n_2= \\\',num2str(n2)],\\\'fontsize\\\',14);

text(-1.4,0.6,[\\\'$\\\\frac{sin(\\\\alpha_1)}{sin(\\\\alpha_2)}=\\\\frac{n_2}{n_1}$\\\'],\\\'interpreter\\\',\\\'latex\\\',\\\'fontsize\\\',18);

HL=rectangle(\\\'Position\\\',[-0.02,0.4,0.04,0.2],...

\\\'FaceColor\\\',[0.1,0.3,0.4]);

Hi=plot([0,0],[0,0.4],\\\'b\\\');

Ho=plot([0,0],[0,-1],\\\'k\\\');

Hr=plot([0,0],[0,1],\\\'r\\\');

Hf=plot([0,0],[-1,1],\\\'g-.\\\');

xlabel(\\\'按“空格键”停止程序    Chen.Z.H 814484233@qq.com\\\',...

\\\'fontsize\\\',14,\\\'color\\\',\\\'k\\\');

k=1;dt=0.1;

while k

pause(0.1);

s=get(gcf,\\\'currentkey\\\'); % 返回按键字符串。

if strcmp(s,\\\'space\\\'); % 对比字符串是否相同，相同返回值1.

clc;k=0;

end

if abs(t)>0.3*pi

dt=-dt;

end

t=t+dt;

Ai=t; % 入射角

Xi=0.4*tan(Ai);

set(Hi,\\\'xdata\\\',[Xi,0]);

Ao=asin(sin(Ai)*n1/n2); % 出射角

Xo=Xi+tan(Ao);

Xr=Xi+tan(Ai);

set(Ho,\\\'xdata\\\',[Xi,Xo]);

set(Hr,\\\'xdata\\\',[Xi,Xr]);

set(Hf,\\\'xdata\\\',[Xi,Xi]);

set(HL,\\\'Facecolor\\\',rand(1,3))

%    saveas(gcf,[\\\'E:\\\\Matlab work 2016\\\\光线的折射与反射\\\\\\\',num2str(1000+10*t),\\\'.jpg\\\'])

end

figure(gcf);