summaryrefslogtreecommitdiff
path: root/3875/CH7/EX7.6/Ex7_6.sce
blob: 1296603b95e43fb7b71073a460ef250c046b5a13 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc;
clear;
lambda=694.3*10^-9 //wavelength in m 
K_b=1.38*10^-23 //Boltzmann constant J/K
T=300 //Temperature in K
h=6.63*10^-34 //Plancks constant in J-s
c=3*10^8 //velocity of light in m/s

//calculation
Exp=(h*c)/(lambda*K_b*T) //exponential term of the formula
R=1/(exp(Exp)-1)

mprintf("The ratio of stimulated emission to spontaneoius emission is = %e",R)
//The answer provided in the textbook is wrong.