summaryrefslogtreecommitdiff
path: root/623/CH27/EX5.5.9/U5_C5_9.sce
blob: ccd1e3f5eda8168443d3c9f16d57488059793d20 (plain)
1
2
3
4
5
6
7
8
9
10
//variable initialization
mu=1.61*10^-27;                                                                 //reduced mass of HCl molecule (kg)
c=3*10^8;                                                                       //speed of light (m/s)
lembda=3.465*10^-6;                                                             //wavelength of infrared radiation (m)

//calculation of force constant
v=c/lembda;                                                                     //frequency of radiation (s-1)
k=4*(%pi*v)^2*mu;                                                               //force constant of HCl molecule (N/m)

printf("\nforce constant = %.1f N/m",k);