summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.19/ii_19.sce
blob: bff9876588be3ae17233deaaac7495c83ea609cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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')