![]() |
||||||
|
| Script S1_2_7.m | |||
|
|||
|
%==============================================
%A refracting plate %============================================== % %============================================ %the distance d as a function of the angle %of incidence and of refraction %(see formula (1.47)) %============================================ %the refractive index n of the plate n=1.56; %of thickness s s=9; %angles of incidence between 0 and pi/2 alfa=linspace(eps,pi/2,30); %and in degree alfa_g=alfa*180/pi; %the corresponding angles of refraction %in radians beta=asin(sin(alfa)/n); %and in degree beta_g=beta*180/pi; %the value of d is determined num=sin(alfa-beta); den=cos(beta); d=s*(num./den); %plot of d as a function of the angle of incidence %and of angle of refraction plot(alfa_g,d,'bd-',beta_g,d,'ro-'),grid on title('d function of angles of incidence(blue line) and of refraction(red line)') %========================================================================== % % % |
|||
| Top | |||