path: root/1652/CH4/EX4.3/4_3.sce

clc
//Initialization of variables
c=2.998*10^10 //cm/s
wave=2990 //cm^-1
mu=1.627*10^-24 //g
//calculations
k=mu*(2*%pi*c*wave)^2
//results
printf("Force constant = %.2e dynes/cm",k)