summaryrefslogtreecommitdiff
path: root/3014/CH4/EX4.16/Ex4_16.sce
blob: d92b510e5cf2565420c179c8b5c3ed60f12e80cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

 
clc 
//Given that
m = 32 // Atomic weight of sulphur
d = 2050 // Density in Kg/m^3
N_a = 6.022e23 // Avogadro Number
epsilon_0 = 8.85e-12 // Permittivity of free space
epsilon_r = 3.75 // Dielectric constant of sulphur

printf("Example 4.16")
N = N_a*d*1e3/m // Calculation of Atoms per unit 
alpha_e = 3*epsilon_0*((epsilon_r-1)/(epsilon_r+2)) / N 


printf("\n Electronic polarizability  is %e Fm^2\n\n\n",alpha_e)