summaryrefslogtreecommitdiff
path: root/2213/CH9/EX9.3/ex_9_3.sce
blob: b1c2249e2d25185a32cb0e91a06085ac19b055a0 (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
//Example 9.3.efficiency and speed
clc;
clear;
close;
//given data :
format('v',5)
V=600;// in volts
I=200;//in A
Ts=20;// in sec
R=0.1;// in ohm
E_bse=(V/2)-(I*R);
E_bp=V-(I*R);
Tse=(E_bse/E_bp)*Ts;
Tp=Ts-Tse;
Vd=V-(2*I*R);
Mi=((V*I*Tse)/(2*3600))+((V*I*Tp)/3600);
Er=((Vd/4)*I*(Tse/3600))+(((V/2)/2)*I*(Tp/3600));
El=(I^2*R*Ts)/(3600);
Mo=Mi-Er-El;
eta=(Mo/Mi)*100;
disp("part (a)")
disp(eta,"Starting efficiency,(%) = ")
Vm=80;// in kmph
alfa=Vm/Ts;
S=alfa*Tse;
disp("part (b)")
disp(S,"speed,S(kmph) = ")