summaryrefslogtreecommitdiff
path: root/3840/CH6/EX6.6/Ex6_6.sce
blob: 99c33605f0e36888d09a5bc5ac46203c89cb66d5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clear
//
//
//

//Variable declaration
epsilonr=3.75       //relative dielectric constant
gama=1/3     //internal field constant
D=2050       //density(kg/m**3)
M=32         //atomic weight(amu)
Na=6.02*10**26     //avagadro number
epsilon0=8.85*10**-12    

//Calculation
N=Na*D/M     //number of atoms per m**3
x=(epsilonr-1)/(epsilonr+2)
alpha_e=x*3*epsilon0/N     //electronic polarisability(F-m**2)

//Result
printf("\n electronic polarisability is %0.2f  *10**-40 Fm**2",alpha_e*10**40)
printf("\n answer in the book varies due to rounding off errors")