//example 2.100     pg no-141
L1=15;
L2=35;
M=10;
K=M/((L1*L2)^0.5);           //coefficient of coupling
disp('i) COEFFICENT OF CUPLING  (K) = '+string (K)+' ')