blob: 0b599f0d9e1950e0a3dbbd89264565c592f6cf58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
//Windows 8
//Scilab version- 6.0.0
//Example 13.1.1
clc;
clear ;
//given
lambda1=1300E-9;//Wavelength of lambda 1 in m
lambda2=1550E-9;//Wavelength of lambda 2 in m
DELTA=0.0031;//given for SM fiber
delta=2*DELTA;//relative refractive index
a=4E-6;//assumed fiber core radius in m
u=12E-6;//distance between 2 fiber axes in m
w=u/a;//seperation between two fibers in m
k1=411.06;//coupling coefficient for 1310nm
k2=852.47;//coupling coefficient for 1550nm
//since the arguement of raised sine and cosine series reaches Pi/4=0.785 hence k*L=785 gives:
Lc1=785/k1;//For 1300nm, Coupling length in mm
mprintf("For 1300nm, Coupling length= %.2f mm",Lc1);
Lc2=785/k2;//For 1550nm, Coupling length in mm
mprintf("\nFor 1550nm, Coupling length= %.2f mm",Lc2);
|
