summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.14/ii_14.sce
blob: a3b6a030c0aa8f335e0b968acddd4aca472dea49 (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
27
// EMF induced in coils parallel to each other

clc;
clear;

Nx=1000;
Ix=5;
flux1=0.05*(10^-3);
di=12;
dt=10^-2;
K=60/100;

Lx= Nx*flux1/Ix;

// Since two coils are identical, Both will have equal self inductances.

Ly=Lx;

M=K*sqrt(Lx*Ly);

Ey=M*di/dt;

disp('volts',Ey,'The EMF induced by the coil Y =')
disp('H',Lx,'The Self Inductance of Coil X= ')
disp('H',Ly,'The Self Inductance of Coil X= ')
disp('H',M,'The Mutual Inductance of Coils')