summaryrefslogtreecommitdiff
path: root/1418/CH26/EX26.6/EX26_6.sce
blob: 0c9234eb9ae6a67871f422627363cd61869246a5 (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
34
35
36
37
38
39
40
41
42
43
//EXAMPLE 26.6
//LONG SHUNT COMPOUND GENERATOR

clc;
funcprot(0);

//Variable Initialisation
I=150;.............//Load current in Amperes
V=230;.............//Terminal voltage in Volts
Rsh=92;............//Resistance of shunt field in Ohms
Ra=0.032;...........//Resistance of armature in Ohms
Rse=0.015;.........//Resistance of series field in Ohms
Rd=0.03;...........//Diverter resistance in Ohms
Vb=2*1;..............//Brush drop in Volts

Ish=V/Rsh;..........//Current through shunt field in Amperes
Ia=I+Ish;...........//Armature current in Amperes

Vse=Ia*Rse;........//Voltage drop on series field in Volts

Rc=(Rse*Rd)/(Rse+Rd);........//Combined resistance of series field resistance and diverter resistance in Ohms
Rta=Ra+Rc;.........//Total armature circuit resistance in Ohms

Va=Ia*Rta;..........//Armature voltage drop in Volts

y=round(Va*10)/10;...........//Rounding of decimal places
Eg=V+y;..........//EMF generated in the armature in Volts
disp(Eg,"EMF generated in the armature in Volts:");

Pt=Eg*Ia;.........//Total power generated in armature in Watts
disp(Pt,"Total power generated in armature in Watts:");

IaRa=(Ia^2)*Ra;
y1=round(IaRa);..............//Rounding of decimal places
Psedi=(Ia^2)*Rc;
y2=floor(Psedi);..............//Rounding of decimal places
Psh=V*Ish;
Pl=V*I;

Pl=y1+y2+Psh+Pl;............//Power lost in armature in Watts

disp(Pl,"Power lost in armature in Watts:");