summaryrefslogtreecommitdiff
path: root/3669/CH6/EX6.7/7.sce
blob: 7a90e9de7d24dd04877a00cfdcce6d35cb9cb8b1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14

//Variable declaration
N=1.6*10**20;     //number of molecules(/m**3)
T=300;     //temperature(K)
E=5*10**5;    //electric field(V/m)
x=0.25*10**-9;   //separation(m)
Kb=1.381*10**-23;    //boltzmann constant
e=1.6*10**-19;  

//Calculation
Pd=N*e**2*x**2*E/(3*Kb*T);      //orientational polarization

//Result
printf('orientational polarization is %0.3f *10**-11 C m    \n',(Pd*10**11))