summaryrefslogtreecommitdiff
path: root/3651/CH1/EX1.2/Ex1_2.sce
blob: 9a2e4af5c8273934b4bd3e63382de9bb2accb207 (plain)
1
2
3
4
5
6
7
8
9
//Initialisation of variables
clc

d=((1.98)*10**-29)*1/3;        //dipole moment
b=(0.92);                      //bond length
EC=d/(b*10**-10);              //Effective charge

//Result
printf('Effective charge =%0.2f *10**-29 coulomb',((EC*10**19)))