1 files changed, 13 insertions, 0 deletions
diff --git a/1646/CH12/EX12.6/Ch12Ex6.sce b/1646/CH12/EX12.6/Ch12Ex6.sce
new file mode 100755
index 000000000..2cdffd680
--- /dev/null
+++ b/1646/CH12/EX12.6/Ch12Ex6.sce
@@ -0,0 +1,13 @@
+// Scilab Code Ex12.6 : Page-606 (2011)
+clc; clear;
+M_i = 4.5;....// Intial value of total dipole moment of the sample
+H_i = 0.84;....// External magnetic field, tesla
+T_i = 4.2;....// Cooling temerature of the sample, K
+H_f = 0.98;....// External magnetic field, tesla
+T_f = 2.8;....// Cooling temerature of the sample, K
+// According to the curie's law, Mf/Mi = (Hf/Hi)*(Ti/Tf)
+M_f = M_i*H_f/H_i*T_i/T_f;
+printf("\nThe total dipole moment of the sample = %5.3f joule/tesla",M_f);
+
+// Result
+// The total dipole moment of the sample = 7.875 joule/tesla