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

//Variable declaration    
epsilon0=8.85*10^-12;       //dielectric constant
N=3*10^28;     //number of atoms
alphae=10^-40;       //dielectric polarizability(Fm^2)

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

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