summaryrefslogtreecommitdiff
path: root/1949/CH3/EX3.15/Ex3_15.sce
blob: 31c9ee5f3d6422e69e67e2432b03e6906ca6c45e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Chapter-3,Example 3_15,Page 3-24
clc()

//Given Data:
n1=1.45              //R.I.of core
n2=1.40              //R.I. of cladding

//Calculations:
NA=sqrt(n1^2-n2^2)   //Numerical Aperture
printf('Numerical Aperture of Fibre is =%.4f \n \n',NA)

theta0=asin(NA)*180/%pi    //Acceptance angle of fibre
printf(' Acceptance angle of Fibre is =%.2f degrees \n',theta0)