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

n2=1.59 //cladding refractive index
NA=0.2 //numerical apperture
n0=1 //when fiber is in air

n1=sqrt(n2^2+NA^2) //core refractive index
printf("Core refractive index = %.3f \n",n1)

n=1.33 //water refractive index
NA=sqrt(n1^2-n2^2)/n0 //numerical apperture
printf(" Numerical apperture = %.2f \n",NA)

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