summaryrefslogtreecommitdiff
path: root/1664/CH3/EX3.6/Ex3_6.sce
blob: 9d541369028710ae37774afe4e718c19f761ef5c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13


//Example No.3.6.
// Page No.100.
//To find refractive idex.
clc;clear;
NA = 0.26;//Numerical aperture.
del = 0.015;//Refractive index difference of the fibre.
n1 = sqroot((((NA)^(2))/(2*del)));//Refractive index of the core
printf("\nThe refractive index of the core is %.2f",n1);
n2 = sqroot((n1^(2))-(NA^(2)));// Refractive index of cladding.
printf("\nThe refractive index of cladding is %.3f",n2);