1439/CH18/EX18.7/18_7.sce


1
2
3
4
5
6
7
8

clc
//initialisation of variables
v= 8.867*10^13 //sec^-1
u= 1.628*10^-24 //gms
//CALCULATIONS
k= (%pi*2*v)^2*u
//RESULTS
printf (' force constant = %.2e dyne cm^-1',k)