1 files changed, 14 insertions, 0 deletions
diff --git a/3768/CH8/EX8.9/Ex8_9.sce b/3768/CH8/EX8.9/Ex8_9.sce
new file mode 100644
index 000000000..50c7d40f8
--- /dev/null
+++ b/3768/CH8/EX8.9/Ex8_9.sce
@@ -0,0 +1,14 @@
+//Example number 8.9, Page number 173
+
+clc;clear;
+close;
+
+//Variable declaration
+A=100;     //area(m**2)
+B=0.01;    //flux density(wb/m**2)
+H=40;      //magnetic field(amp/m)
+M=7650;    //atomic weight(kg/m**3)
+//Calculation
+h=A*B*H;    //hysteresis loss per cycle(J/m**3)
+//Result
+printf("hysteresis loss per cycle is %.f J/m^3",h)