623/CH27/EX5.5.7/U5_C5_7.sce


1
2
3
4
5
6
7
8
9
10
11
12

//variable initialization
m1=1;                                                                           //molar mass of H atom (amu)
m2=35;                                                                          //molar mass of Cl atom (amu)
u=1.68*10^-27;                                                                  //atomic mass unit (kg)
v=2885.9*100;                                                                   //wave no. of line (m-1)
c=3*10^8;                                                                       //Velocity of light (m/s)

//calculation of force constant
mu=((m1*m2)/(m1+m2))*u;                                                         //reduced mass of HCl molecule (kg)
k=4*(%pi*c*v)^2*mu;                                                             //force constant of HCl molecule (N/m)

printf("\n force constant = %.2f N/m",k);