summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.5/ii_5.sce
blob: cf98d149200024cdfe3e69ac9bc2e6815d7acee6 (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
28
29
//EMF induced between two coils in a circular iron core
clc;
clear;

area= 5*(10^-4);
l=0.5;

na=200;
nb=500;

dI=15;
dt=(1/10);

mr=250;
mo= 4*%pi*(10^-7);

mfa=na*dI;

H=mfa/l;

B=mo*mr*H;

// Flux Linked

flux=B*area;

eb=nb*flux/dt;

disp('volts',eb,'The Induced EMF by coil B =')