1 files changed, 25 insertions, 0 deletions
diff --git a/1319/CH13/EX13.18/ii_18.sce b/1319/CH13/EX13.18/ii_18.sce
new file mode 100644
index 000000000..04c2d8efb
--- /dev/null
+++ b/1319/CH13/EX13.18/ii_18.sce
@@ -0,0 +1,25 @@
+//Compute the Loss per Kg at a particular frequency.
+clc;
+clear;
+
+hy_ls=4.9;
+f1=50;
+maxflux=1;
+
+density=7.5;
+
+d=density*(10^6)/(10^3);
+
+hy_ls_cycle= hy_ls*d/f1;
+
+n=hy_ls_cycle/((maxflux)^1.7);
+
+disp(n,'i) The value of the Co-Efficient= ' )
+
+mflux2=1.8;
+
+f2=25;
+
+hy_ls2=hy_ls*(f2/f1)*((1.8)^1.7);
+
+disp('watt/kg',hy_ls2,'ii) The Loss per kg at 25Hz and 1.8 Wb per square metre= ')