summaryrefslogtreecommitdiff
path: root/2414/CH16/EX16.13/Ex16_13.sce
blob: 6166a24ce79bbc7c6344357a5f672807009e46cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc;
close();
clear();
//page no 535
//prob no. 16.13
n1=1;    //refraction index of air
E2=4     //material dielectric constant
theta_i=50   //angle of incidence in degree  (misprinted in the solution)
n2=sqrt(E2);
theta_r=asin(n1/n2*sin(theta_i*%pi/180));
mprintf(' The angle of refraction is %.2f \n (using angle of incidence =50)\n',theta_r*180/%pi);
//misprinted angle