1 files changed, 16 insertions, 0 deletions
diff --git a/3651/CH5/EX5.10/10.sce b/3651/CH5/EX5.10/10.sce
new file mode 100644
index 000000000..4e7972742
--- /dev/null
+++ b/3651/CH5/EX5.10/10.sce
@@ -0,0 +1,16 @@
+//Variable declaration
+A=94;      //area(m**2)
+vy=0.1;    //value of length(weber/m**2)
+vx=20;     //value of unit length
+n=50;      //number of magnetization cycles
+d=7650;    //density(kg/m**3)
+
+//Calculation
+h=A*vy*vx;     //hysteresis loss per cycle(J/m**3)
+hs=h*n;       //hysteresis loss per second(watt/m**3)
+pl=hs/d;      //power loss(watt/kg)
+
+//Result
+printf('hysteresis loss per cycle is  %0.3f    J/m**3 \n',h)
+printf('hysteresis loss per second is  %0.3f   watt/m**3  \n',hs)
+printf('power loss is %0.3f watt/kg\n',(pl))
+\ No newline at end of file