summaryrefslogtreecommitdiff
path: root/620/CH17/EX17.7/example17_7.sce
blob: 10ae58c07afc85c7960cba037ad2ad65d455f03e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
l1=40;
lt1=100;
lt2=36;
disp("Part a");
m=(lt1-lt2)/4;
disp("the mutual inductance (in mH) is"); disp(m);
disp("Part b");
l2=lt1-l1-2*m;
disp("the inductance (in mH) of the second coil is"); disp(l2);
disp("Part c");
k=m/sqrt(l1*l2);
disp("the coefficient of coupling is"); disp(k);