summaryrefslogtreecommitdiff
path: root/3020/CH11/EX11.3/ex11_3.sce
blob: 6afb08b88d284299dababb5f54baadb62c22a01a (plain)
1
2
3
4
5
6
7
8
9
10
11
clc;
clear all;
T = 523; // Temperature in kelvin
c = 3e8;// Velocity of air
h = 6.626e-34; // Plancks constant
k = 1.38e-23; // Boltzmanns constant
e = 1.602e-19; // Charge of an electron
lambda = 5900e-10; // Wavelength of light in meters
r = exp(((h*c)/(k*T*lambda))); // Temporary variable
t = (1/(r-1)); //t =(Stimulated emission/Spontaneous emission) 
disp('',t,'Ratio between stimulated emission and spontaneous emission')