summaryrefslogtreecommitdiff
path: root/1319/CH1/EX1.40/1_40.sce
blob: 31999cd2063c87b4dd7b10083e0bf4921a53480f (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
30
31
32
33
//To determine parameters to operate the relay

clc;
clear;

N=500;// No of turns
l=400*(10^-3); // Mean Core length
lg=1*(10^-3); // Air Gap length
B=0.8; // Flux density required to operate the relay
m0=4*%pi*(10^-7); // permeability of free space
H=500; // Magentic Field Intensity

mmfc=H*l; // mmf for the core
mmfg=2*lg*B/(m0); // mmf of the air gap

tmmf=mmfc+mmfg; // Total mmf

Iop=tmmf/N; // Operating current for the relay

m=B/H; // Permeability

mr=m/m0; // Relative permeability

// When gap is zero

mmf=mmfc; // Total mmf required

I=mmf/N; // Current when the gap is zero

printf('i) The current required to operate the relay = %g A\n',Iop)
printf('ii)Wrt the Core, The permeability = %g and Relative permeablity = %g \n',m,mr)
printf('iii) The current required when gap is zero = %g A \n',I)