blob: 026cbe91a4a0528aaf259eba44ea336dc7eccd43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//Chapter 3 : Polarization
clear;
//Variable declaration
myu=1.55 //refractive index of glass
//Calculations
theta_p=(atan(myu))*180/%pi
theta_r=(asin(sin((theta_p*%pi/180))/1.55))*180/%pi
Total=theta_p+theta_r
//Result
mprintf("Angle of polarization= %f degrees",theta_p)
mprintf("\nAngle between reflected and refracted ray= %d degrees",Total)
|
