summaryrefslogtreecommitdiff
path: root/3755/CH10/EX10.5/Ex10_5.sce
blob: bb908446a4213f28487e130bde67ce45a3af721a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear
//
//
//

//Variable declaration    
k=1.000134;
epsilon0=8.85*10^-12;        //relative permeability(F/m)
E=90000;               //electric field(N/C)
N=6.023*10^26;       //avagadro number

//Calculations
n=N/22.4;
p=epsilon0*E*(k-1)/n;    //dipole moment(coul-metre)
alpha=p/E;    //atomic polarizability(coul-m^2/volt)

//Result
printf("\n dipole moment is %0.2f *10^-36 coul-metre",p*10^36)
printf("\n atomic polarizability is %0.1f *10^-41 coul-m^2/volt",alpha*10^41)