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

//Variable declaration
epsilon0=8.85*10**-12    
epsilonr=4        //dielectric constant
NA=6.02*10**26    //avagadro number
D=2.08*10**3      //density(kg/m**3)
M=32              //atomic weight(kg)

//Calculation
N=NA*D/M          //number of atoms
alphae=epsilon0*(epsilonr-1)/N   //polarisability(Fm**2)

//Result