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

//Variable declaration    
epsilon0=8.85*10^-12;       //dielectric constant
Na=6.02*10^26;     //number of atoms
epsilonr=3.75;       //dielectric constant
M=32;       //atomic mass
rho=2050;         //density(kg/m^3)
gama=1/3;       //internal field constant

//Calculations
N=Na*rho/M;     //number of atoms
alphae=((epsilonr-1)/(epsilonr+2))*(3*epsilon0/N);       //electronic polarizability(Fm^2)

//Result
printf("\n electronic polarizability is %0.2f *10^-40 Fm^2",alphae*10^40)