summaryrefslogtreecommitdiff
path: root/1847/CH4/EX4.4/Ch04Ex4.sce
blob: fbfe47889fa292910e86d8381ad9021cea02cd9f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
// Scilab Code Ex4.4:: Page-4.6 (2009)
clc; clear;
ip = 60;     // Polarizing angle, degrees
A = 60;     // Angle of equilateral prism, degrees
mu = tand(ip);  // Refractive index of the material from Brewster's law 
// For angle of minimum deviation in prism, delta_m, refractive index
// mu = sind((A+delta_m)/2)/sind(A/2), solving for delta_m
delta_m = 2*asind(mu*sind(A/2))-A;      // Angle of minimum deviation, degrees

printf("\nThe angle of minimum deviation for green light = %2d degrees", ceil(delta_m));

// Result 
// The angle of minimum deviation for green light = 60 degrees