1 files changed, 13 insertions, 0 deletions
diff --git a/1646/CH12/EX12.8/Ch12Ex8.sce b/1646/CH12/EX12.8/Ch12Ex8.sce
new file mode 100755
index 000000000..c2ecbf37b
--- /dev/null
+++ b/1646/CH12/EX12.8/Ch12Ex8.sce
@@ -0,0 +1,13 @@
+// Scilab Code Ex12.8 :Page-607 (2011)
+clc; clear;
+A = 500;....// Area of the B-H loop, joule per metre cube
+n = 50;....// Total number of cycles, Hz
+m = 9;....// Mass of the core, kg
+d = 7.5e+3;....// Density of the core, kg/metre cube
+t = 3600;....// Time during which the energy loss takes place, s
+V = m/d;....// Volume of the core, metre cube
+E = n*V*A*t;....// Hystersis loss of energy per hour, joule
+printf("\nThe hystersis loss per hour = %5.2eJ", E);
+
+// Result
+// The hystersis loss per hour = 1.08e+005J