summaryrefslogtreecommitdiff
path: root/3755/CH13/EX13.13/Ex13_13.sce
blob: 5899eee305185ab80af3775e4e183741e1b512a0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//
//
//

//Variable declaration 
lamda=1.3;    //wavelength(micro m)
n1=1.5;       //core refractive index
Nm=1100;      //number of modes
delta=0.01;   //refractive index difference

//Calculations
d=lamda*sqrt(Nm/delta)/(%pi*n1);     //diameter of fibre core(micro m)

//Result
printf("\n diameter of fibre core is %0.1f micro m",d)