summaryrefslogtreecommitdiff
path: root/2384/CH10/EX10.5/ex10_5.sce
blob: 2fdd632c0819d7d83d5cf1013b101990e19c6434 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// Exa 10.5
clc;
clear;
close;
format('v',6)
// Given data
P = 30;// in kW
P = P * 10^3;// in W
V = 300;// in V
Ra = 0.05;// in ohm
Rsh = 100;// in ohm
// p = V*I_L;
I_L = P/V;// in A
Ish = V/Rsh;// in A
Ia = I_L+Ish;// in A
Eg = V + (Ia*Ra);// in V
// power developed by armature 
power = (Eg*Ia);// in W
power = power * 10^-3;// in kW
disp(power,"The total power developed by the armature in kW is");