summaryrefslogtreecommitdiff
path: root/3689/CH13/EX13.5/13_5.sce
blob: f29137a9b71836c5e5bce221bb03523ef3dab06d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
////
//Variable Declaration
I2 = 208         //Vibrational frequency, cm-1 
T = 298          //Molecular Temperature, K
c = 3.00e10      //speed of light, cm/s
h = 6.626e-34    //Planks constant, J/K
k = 1.38e-23     //Boltzman constant, J/K
//Calculation
q = 1./(1.-exp(-h*c*I2/(k*T)))
p2 = exp(-2*h*c*I2/(k*T))/q

//Results
printf("\n Partition function is %4.3f",q)

printf("\n Probability of occupying the second vibrational state n=2 is %4.3f",p2)