1 files changed, 18 insertions, 0 deletions
diff --git a/1319/CH13/EX13.19/ii_19.sce b/1319/CH13/EX13.19/ii_19.sce
new file mode 100644
index 000000000..bff987658
--- /dev/null
+++ b/1319/CH13/EX13.19/ii_19.sce
@@ -0,0 +1,18 @@
+// Theory Based Proof relation between self mutual inductances
+
+clc;
+clear;
+
+disp('L1=((N1)^2)*Mo*A/l')
+disp('L2=((N2)^2)*Mo*A/l')
+disp('R=l/(Mo*A)')
+
+disp('L1=((N1)^2)/R)')
+disp('L2=((N2)^2)/R)')
+
+disp('M=K*((L1*L2)^(1/2))')
+
+disp('(Substituting L1 and L2 in the above equation)')
+
+disp('M=K*N1*N2/R')
+disp('Hence Proved')