summaryrefslogtreecommitdiff
path: root/1418/CH26/EX26.11.b/EX26_11b.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1418/CH26/EX26.11.b/EX26_11b.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '1418/CH26/EX26.11.b/EX26_11b.sce')
-rw-r--r--1418/CH26/EX26.11.b/EX26_11b.sce29
1 files changed, 29 insertions, 0 deletions
diff --git a/1418/CH26/EX26.11.b/EX26_11b.sce b/1418/CH26/EX26.11.b/EX26_11b.sce
new file mode 100644
index 000000000..87ebf1e56
--- /dev/null
+++ b/1418/CH26/EX26.11.b/EX26_11b.sce
@@ -0,0 +1,29 @@
+//EXAMPLE 26.11(b)
+//4-POLE DC SHUNT GENERATOR
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+P=4;.....................//Number of poles
+Z=120;.....................//Number of conductors
+N=1000;..................//Speed of the generator in rpm
+Ra=0.2;.................//Armature resistance in Ohms
+Rf=250;..................//Field resistance in Ohms
+V=250;...................//Terminal voltage in Volts
+Vb=1*2;.................//Brush drop in Volts
+Al=P;....................//Number of parallel paths for lap winding
+Pg=5*10^3;.................//Output power of geyser in Watts
+Pli=2.5*10^3;...............//Output power of lighting load in Watts
+
+Ig=Pg/V;.......................//Geyser current in Amperes
+Ili=Pli/V;.......................//Lighting current in Amperes
+It=Ig+Ili;......................//Total current in Amperes
+If=V/Rf;.......................//Field current in Amperes
+Ia=If+It;......................//Armature current in Amperes
+Va=Ia*Ra;.....................//Armature drop in Volts
+Eg=V+Va+Vb;...................//Generated EMF in Volts
+Phi=Eg*60*Al*1000/(Z*N*P);......//Flux per pole in Mili Webers
+disp(Phi,"Flux per pole in Mili Webers:");
+Iap=Ia/Al;....................//Armature current per parallel path in Amperes
+disp(Iap,"Armature current per parallel path in Amperes:");