summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.13/ii_13.sce
blob: ddef35f39fbacfcfdd8d6bf782f56da6182d99b3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Computation of Mutual and self inducatances

clc;
clear;

n1=600;
i1=2.5;
flux1=0.4*(10^-3);
flux2=0.8*(10^-3);
n2=2000;
tflux=flux1+flux2;

L1=n1*tflux/i1;

K=flux2/tflux;

M=n2*flux2/i1;

L2=((M/K)^2)/L1;

disp('H',L1,'The self inductance of coil 1= ')
disp('H',L2,'The self inductance of coil 2= ')

disp('(Note the accuracy of the answer.)')
disp('H',M,'The Mutual inductance of both coils= ')
disp(K,'The coupling co-efficient')