summaryrefslogtreecommitdiff
path: root/3665/CH13/EX13.5/Ex13_5.sce
blob: df365d6e2bebbfa0a73c57a1a7e40a95954c851d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc//
//
//

//Variable declaration
n1=1.48;     //refractive index of core
n2=1.45;     //refractive index of cladding

//Calculation
NA=sqrt(n1^2-n2^2);    //numerical aperture
alpha_i=asin(NA);      //angle of acceptance(radian)
alpha_i=(alpha_i*180/%pi);    //angle(degrees)
alpha_id=int(alpha_i);
alpha_im=60*(alpha_i-alpha_id);

//Result
printf("\n numerical aperture is %0.4f ",NA)
printf("\n angle of acceptance is %0.3f degrees %0.0f minutes",alpha_id,alpha_im)