summaryrefslogtreecommitdiff
path: root/2825/CH14/EX14.8/Ex14_8.sce
blob: 512a21b6a850b961004be33e7b181690580914f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Ex14_8 Pg-698
clc

n1=1.52 //core refracrive index
n2=1.46 //cladding refractive index

del=(n1-n2)/n1 //fractional difference of refractive indices

NA=n1*sqrt(2*del) //numerical apperture
printf("Numerical apperture = %.3f \n",NA)

AA_rad=asin(NA/n) //maximum Acceptance angle in rad
AA=AA_rad*180/%pi //maximum entrance angle in degree
printf(" Acceptance angle i0 = %.2f degree \n",AA)

tetha_rad=asin(n2/n1) //critical angle in radians
tetha=tetha_rad*180/%pi //critical angle in degree 
printf(" Critical angle = %.1f degree \n",tetha)