summaryrefslogtreecommitdiff
path: root/2243/CH5/EX5.5/Ex5_5.sce
blob: 6ac01d19a0cd180ab54160aef3b4f01cd1acd41f (plain)
1
2
3
4
5
6
7
8
9
10
clc();
clear;
//Given:
r = 90; // in degrees
mu_o= 1.658 ;// Refractive index for ordinary array
mu =1.55; // Refractive index for a canada balsam material
//Snell's Law,mu1*sin(i) = mu2*sin(r), we have :
i = asind((mu*sind(90))/mu_o); // angle in degrees
printf("Critical angle =  %d degrees",i);