summaryrefslogtreecommitdiff
path: root/3651/CH8/EX1.1/1.sce
blob: f02bf8cfdfcda422e2475451209609b6653a7450 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//variable declaration
n1=1.50          //Core refractive index
n2=1.47          //Cladding refractive index

//Calculations
C_a=asin(n2/n1)        //Critical angle       
N_a=(n1**2-n2**2)**(1/2)
A_a=asin(N_a)

//Results
printf('The Critical angle =%0.3f degrees\n',(C_a*180/%pi))
printf('The numerical aperture =%0.3f \n',(N_a))
printf('The acceptance angle =%0.3f degrees\n',(A_a*180/%pi))