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

//Variable declaration    
epsilon0=8.85*10^-12;       //dielectric constant
Na=6.023*10^26;     //number of atoms
M=32;       //atomic mass
alphae=3.28*10^-40;       //dielectric polarizability(Fm^2)
rho=2.08*10^3;         //density(kg/m^3)

//Calculations
x=Na*rho*alphae/(M*3*epsilon0);
epsilonr=(1+(2*x))/(1-x);       //dielectric constant

//Result
printf("\n dielectric constant is %0.1f ",epsilonr)