summaryrefslogtreecommitdiff
path: root/1418/CH26/EX26.11.b/EX26_11b.sce
blob: 87ebf1e565737addb77319b8edb5bb2c4b2c8f29 (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
//EXAMPLE 26.11(b)
//4-POLE DC SHUNT GENERATOR

clc;
funcprot(0);

//Variable Initialisation
P=4;.....................//Number of poles 
Z=120;.....................//Number of conductors
N=1000;..................//Speed of the generator in rpm
Ra=0.2;.................//Armature resistance in Ohms
Rf=250;..................//Field resistance in Ohms
V=250;...................//Terminal voltage in Volts
Vb=1*2;.................//Brush drop in Volts
Al=P;....................//Number of parallel paths for lap winding
Pg=5*10^3;.................//Output power of geyser in Watts
Pli=2.5*10^3;...............//Output power of lighting load in Watts

Ig=Pg/V;.......................//Geyser current in Amperes
Ili=Pli/V;.......................//Lighting current in Amperes
It=Ig+Ili;......................//Total current in Amperes
If=V/Rf;.......................//Field current in Amperes
Ia=If+It;......................//Armature current in Amperes
Va=Ia*Ra;.....................//Armature drop in Volts
Eg=V+Va+Vb;...................//Generated EMF in Volts
Phi=Eg*60*Al*1000/(Z*N*P);......//Flux per pole in Mili Webers
disp(Phi,"Flux per pole in Mili Webers:");
Iap=Ia/Al;....................//Armature current per parallel path in Amperes
disp(Iap,"Armature current per parallel path in Amperes:");