// 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')