blob: 40eb4670af1bd8f77e17949baa6d52a23d6d294d (
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 5.1
//OS=Windows XP sp3
//Scilab version 5.5.2
clc;
clear;
//given
h=6.6e-34;//Planck's constant in SI Units
nu=5e14;//Average frequency in Hz
k=1.38e-23;//Boltzmann constant in SI Units
T=2000;//Operating temperature in K
R=exp(h*nu/(k*T))+1;//Dimensionless ratio of rates of spontaneous and stimulated emissions
mprintf("\n R = %.1e",R);//The answers vary due to round off error
|
