summaryrefslogtreecommitdiff
path: root/3828/CH5/EX5.2/Ex5_2.sce
blob: 2497c94dec895e83e1feb4e238bf6a7fa93577c5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Chapter 5 : Fibre Optics

clear;

//Variable declaration
n1=1.6                //core refractive index
NA=0.2                //Numerical aperture

//Calculations
NA=(n1**2-NA**2)**0.5

//Result
mprintf("Refractive index of cladding= %f",NA)