summaryrefslogtreecommitdiff
path: root/620/CH17/EX17.8/example17_8.sce
blob: 246d1f019d4715a702cd9802f747c7ecbda0b9e2 (plain)
1
2
3
4
5
6
7
8
9
10
11
lt1=500;
lt2=50;
disp("Part a");
m=(lt1-lt2)/4;
disp("the mutual inductance (in mH) is"); disp(m);
disp("Part b");
l=(lt1-2*m)/2;
disp("the self-inductance (in mH) of each coil is"); disp(l);
disp("Part c");
k=m/sqrt(l^2);
disp("the coefficient of coupling is");disp(k);