1 files changed, 29 insertions, 0 deletions
diff --git a/1319/CH13/EX13.5/ii_5.sce b/1319/CH13/EX13.5/ii_5.sce
new file mode 100644
index 000000000..cf98d1492
--- /dev/null
+++ b/1319/CH13/EX13.5/ii_5.sce
@@ -0,0 +1,29 @@
+//EMF induced between two coils in a circular iron core
+clc;
+clear;
+
+area= 5*(10^-4);
+l=0.5;
+
+na=200;
+nb=500;
+
+dI=15;
+dt=(1/10);
+
+mr=250;
+mo= 4*%pi*(10^-7);
+
+mfa=na*dI;
+
+H=mfa/l;
+
+B=mo*mr*H;
+
+// Flux Linked
+
+flux=B*area;
+
+eb=nb*flux/dt;
+
+disp('volts',eb,'The Induced EMF by coil B =')