summaryrefslogtreecommitdiff
path: root/1418/CH27/EX27.16/EX27_16.sce
diff options
context:
space:
mode:
Diffstat (limited to '1418/CH27/EX27.16/EX27_16.sce')
-rw-r--r--1418/CH27/EX27.16/EX27_16.sce29
1 files changed, 29 insertions, 0 deletions
diff --git a/1418/CH27/EX27.16/EX27_16.sce b/1418/CH27/EX27.16/EX27_16.sce
new file mode 100644
index 000000000..a013eae9b
--- /dev/null
+++ b/1418/CH27/EX27.16/EX27_16.sce
@@ -0,0 +1,29 @@
+//EXAMPLE 27.16
+//SHUNT GENERATORS
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+Ra=0.01;......//Armature resistance in Ohms
+Rf=20;..........//Shunt field resistance in Ohms
+I=4000;..........//Total load in Amperes
+
+E1=210;......//EMF of first generator in Volts
+E2=220;......//EMF of second generator in Volts
+
+//Solving for current output of both the generators in Amperes
+A=[1 -1;1 1];
+B=[1000;4000];
+a=A\B;
+disp(a(1),"Output current of first generator in Amperes:");
+disp(a(2),"Output current of second generator in Amperes:");
+
+V=(E1-(a(1)*Ra))/(1+(Ra/Rf));.....//Bus bar voltage in Volts
+r=round(V*10)/10;....//Rounding of decimal places
+disp(r,"Bus bar voltage in Volts:");
+
+Po1=r*a(1)/1000;.....//Output of first generator in Kilo Watts
+Po2=r*a(2)/1000;.....//Output of second generator in Kilo Watts
+disp(Po1,"Output of first generator in Kilo Watts:");
+disp(Po2,"Output of second generator in Kilo Watts:");