1 files changed, 10 insertions, 0 deletions
diff --git a/2243/CH10/EX10.4/Ex10_4.sce b/2243/CH10/EX10.4/Ex10_4.sce
new file mode 100755
index 000000000..d78af70a1
--- /dev/null
+++ b/2243/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,10 @@
+clc();
+clear;
+//Given :
+mu_p = 1.2 ;// dipole moment in debye units
+T = 300 ; // Temperature in Kelvin ( 273+27 = 300 K)
+k = 1.38*10^-23 ; //  in J/K
+per = 0.5/100 ; // percentage of saturated polarisation
+// 0.05*N*mu_p = (N*(mu_p)^2*E/(3*k*T))
+E = (3*k*T*per)/(mu_p*3.33*10^-30); // External field in V/m
+printf(" E = %.2f x 10^7 V/m",E*10^-7);