summaryrefslogtreecommitdiff
path: root/1019/CH6/EX6.14/Example_6_14.sce
blob: caffc36b020dcfb0f94f7a555e24f9403b20e7aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 6.14
clear;
clc;

//Given
T=300;//temperature in K
w=4405;//vibrational frequency in cm^-1
h=6.626*10^(34);//plancks constant in Js
k=1.38*(10^(-23));//in J K^-1
c=3*10^8;//speed of light in m s^-2

//To determine the vibrational partition function for hydrogen molecule
qv=(1-exp(-(h*c*w)/(k*T)));//the vibrational partition function for hydrogen molecule
mprintf('the vibrational partition function for hydrogen molecule = %f',qv);
//end