summaryrefslogtreecommitdiff
path: root/3710/CH10/EX10.1/Ex10_1.sce
blob: 9499d67e735bb9207ac60acdf032f3fe80945aa5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example 10.1, Page Number 497
//Sensor Periodicity
clc;
d=50*(10**-6) //Core Diameter in meters
n2=1.48 //Core refractive index
n1=1.46 //Cladding refractive index
a=d/2//in meters

n=(n2-n1)/n2;

delta=(2*%pi*a)/(sqrt(2*n)); //delta is the microbending sensor periodicity
disp(delta,"The Microbending Sensor Periodicity in m is:");