summaryrefslogtreecommitdiff
path: root/3537/CH6/EX6.5/Ex6_5.sce
blob: b2519550bb728ab4be3981705f02669528995293 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example 6_5
clc();
clear;
//To find the relative population of the states in Ruby laser
h=6.626*10^-34
v=3*10^8  //units in met/sec
kb=1.381*10^-23  //units in J/L
t=300   //units in K
n_no=exp((h*v)/(kb*t))
printf("The relative population of two states is N/N0=")
disp(n_no)
//In textb book answer is printed wrong as 8*10^31 correct answer is 1.000048