1 files changed, 23 insertions, 0 deletions
diff --git a/1319/CH13/EX13.16/ii_16.sce b/1319/CH13/EX13.16/ii_16.sce
new file mode 100644
index 000000000..748f0f931
--- /dev/null
+++ b/1319/CH13/EX13.16/ii_16.sce
@@ -0,0 +1,23 @@
+//Compute Loss of energy
+
+clc;
+clear;
+
+w=10;
+f=50;// 50 cycles in a second.
+
+ls_vol=250;
+
+density=7.5;// Density in gm/cm^3
+
+d= density*(10^6)/(10^3);
+
+vol=w/d;
+
+ls_cycle= ls_vol*vol;
+
+ls_sec= ls_cycle*50;
+
+ls_hr= ls_sec*3600;
+
+disp('joules',ls_hr,'The Loss of energy per hour of an iron loop')