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

//Variable declaration 
V=2.405;     //V-number
lamda=1300*10^-3;    //wavelength(micro m)
n1=1.466;       //core refractive index
n2=1.46;     //cladding refractive index

//Calculations
r=V*lamda/(2*%pi*sqrt(n1^2-n2^2));     //maximum radius for fibre(micro m)

//Result
printf("\n maximum radius for fibre is %0.2f micro m",r)
printf("\n answer varies due to rounding off errors")