summaryrefslogtreecommitdiff
path: root/2672/CH2/EX2.5/Ex2_5.sce
blob: c9db33d19054f373b5a0a174a47bc0b2f55fe3ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Ex_2_5
clc;
clear;
close;
format('v',6);
//given data : 
I1=5;//A
N1=500;//turns
fi1=1;//mWb
dt=10;//ms
e2=50;//V
K=60/100;//coefficient of coupling
di1=2*(I1);//A(as current changes from +5A to -5A)
M=e2*dt*10^-3/di1;//H
L1=N1*fi1/1000/I1;//H
L2=L1*M^2/K^2;//H
disp(M,"Mutual Inductance of two coil(H)");
disp(L1,"Self inductance of coil 1(H)");
disp(L2,"Self inductance of coil 2(H)");
//Answer is wrong in the book.