1 files changed, 14 insertions, 0 deletions
diff --git a/3669/CH6/EX6.7/7.sce b/3669/CH6/EX6.7/7.sce
new file mode 100644
index 000000000..7a90e9de7
--- /dev/null
+++ b/3669/CH6/EX6.7/7.sce
@@ -0,0 +1,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))
+\ No newline at end of file