blob: 602c05e1be368714549e9fd1044b59f033a446a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
//Example 8.3
//OS=Windows XP sp3
//Scilab version 5.5.2
clc;
clear;
//given
n1=1.48;//Dimensionless refractive index of fiber core
n2=1.46;//Dimensionless refractive index of fiber cladding
Lambda0=1e-6;//Wavelength in m
//For single mode guide, let the core thickness be less than dmax
dmax=Lambda0/(2*sqrt(n1^2 - n2^2));
mprintf("\n d < %.2f um",dmax/1e-6);//Dividing by 10^(-6) to convert to um
|
