summaryrefslogtreecommitdiff
path: root/3739/CH3/EX3.5/EX3_5.sce
blob: ace5edaabf3f36b3252f94cac1a657aab8e8a4d6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Chapter 3, Example 3.5, page 74
clc
//Initialisation
No=1                                          //index of refraction
N1=1.3*10**-7
h=20                                          //height

//Calculation
wc=asin(((4*No)/((4*No)+((h**2)*N1))))         //critical angle


//Results
printf("Critical angle = %f",wc)                    //answer is not written in textbook