summaryrefslogtreecommitdiff
path: root/3840/CH6/EX6.10/Ex6_10.sce
blob: 7545e36da5718f0d64ca328c85340f6191ffadb0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clear
//
//
//

//Variable declaration
N=3*10**25   //number of atoms
epsilon0=8.85*10**-12    
r=0.2*10**-9 //radius(m)   
E=1          //field

//Calculation
p=4*%pi*epsilon0*r**3        //dipole moment per unit electric field(F-m**2)
P=N*p                            //polarisation(C-m)
epsilonr=1+(4*%pi*r**3*N/E)  //dielectric constant
alphae=epsilon0*(epsilonr-1)/N   //polarisability(Fm**2)

//Result