blob: ae6adf851549a3fe84a40ba514428bb470288733 (
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 3.5
//OS=Windows XP sp3
//Scilab version 5.5.2
clc;
clear;
//given
nOmega=1.5019;//refractive index corresponding to the ray of frequency Omega
n2Omega=1.4802;//refractive index corresponding to the ray of frequency 2*Omega
Lambda0=0.8e-6;//vacuum wavelength at the fundamental frequency in m
lc=Lambda0/(4*(nOmega-n2Omega));//Coherence length in m
mprintf("\n lc = %.1e m",lc);//The answers vary due to round off error
|
