summaryrefslogtreecommitdiff
path: root/1319/CH6/EX6.22/6_22.sce
blob: 015a386b8dc4a3756aa02b41badc70acff0794ce (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
//Efficiency at full load

clc;
clear;

V=400;
Inl=5; // No load current
Ra=0.5; // Armature Resistance
Rf=200; // Field Resistance
Ifl=40; // Full load current

Ish=V/Rf; //  Field Current

Psc=(Ish^2)*Rf; // Field copper loss

Prs=(V*Inl)-Psc; // Stray losses assuming no armature losses

Ia=Ifl-Ish; // Armature Current

Pc=(Ia^2)*Ra;// Armature copper loss

Pi=Ifl*V; // Power input

Po=Pi-Psc-Prs-Pc;

eff=Po*100/Pi;

printf('The efficiency at full load = %g percent \n',eff)