%% 光线的折射和反射
% 特性：光的折射与光的反射一样都是发生在两种介质的交界处，
% 只是反射光返回原介质中，而折射光线则进入到另一种介质中。
% 由于光在两种不同的物质里传播速度不同，故在两种介质的交界
% 处传播方向发生变化，这就是光的折射。在折射现象中，光路是可逆的。
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);