blob: c7b634c7d23d1d645dc460c8b11fd8941fb0fc35 (
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
44
45
|
//EXAMPLE 26.22
//LONG SHUNT DYNAMO
clc;
funcprot(0);
//Variable Initialisation
N=1000;...........................//Speed of the dynamo in rpm
Po=20;.............................//Output power in Kilo Watts
V=220;..............................//Terminal voltage in Volts
Ra=0.04;...........................//Armature resistance in Ohms
Rsh=110;.............................//Shunt field resistance in Ohms
Rse=0.05;...........................//Series field resistance in Ohms
eff=85;..............................//Over all efficiency in Percentage
I=(Po*1000)/(V);......................//Load current in Amperes
y=round(I*100)/100;...................//Rounding of decimal places
Ish=V/Rsh;...........................//Shunt field current in Amperes
Ia=y+Ish;..........................//Armature current in Amperes
Pin=(Po*1000)/(eff/100);...........//Input power in Watts
y1=round(Pin);.....................//rounding of decimal places
l=y1-(Po*1000);.........................//Total losses in the machine in Watts
//Copper losses
lsea=((Ra+Rse)*Ia^2);....................//Losses in series field winding + armature winding in Watts
y2=round(lsea);..........................//Rounding of decimal places
lsh=(Rsh*Ish^2);........................//Losses in shunt field circuit in Watts
Lc=y2+lsh;..............................//Total copper losses in watts
disp(Lc,"(i).Total copper losses in watts:");
//Iron and friction losses
Lrf=l-Lc;..............................//Total iron and friction losses in Watts
disp(Lrf,"(ii).Total iron and friction losses in Watts:");
//Torque developed by the prime mover
w=(2*3.14*N)/60;...................................//Angular speed in rad/sec
y3=round(w*100)/100;..................................//Rounding of decimal places
T=y1/y3;.......................................//Torque developed by the prime mover in Nw-m
y4=round(T*10)/10;.............................//Rounding of decimal places
disp(y4,"(iii).Torque developed by the prime mover in Nw-m:");
|
