1 files changed, 11 insertions, 0 deletions
diff --git a/1646/CH12/EX12.9/Ch12Ex9.sce b/1646/CH12/EX12.9/Ch12Ex9.sce
new file mode 100755
index 000000000..644613b67
--- /dev/null
+++ b/1646/CH12/EX12.9/Ch12Ex9.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex12.9 : Page-607 (2011)
+clc; clear;
+n = 50;....// Total number of cycles per sec, Hz
+V = 1e-03;....// Volume of the specimen, metre cube
+t = 1;....// Time during which the loss occurs, s
+A = 0.25e+03;....// Area of B-H loop, joule per metre cube
+E = n*V*A*t;    // Energy loss due to hysteresis, J/s
+printf("\nThe hystersis loss = %4.1f J/s", E); 
+
+// Result
+// The hystersis loss = 12.5 J/s