summaryrefslogtreecommitdiff
path: root/1938/CH2/EX2.18/2_18.sce
diff options
context:
space:
mode:
Diffstat (limited to '1938/CH2/EX2.18/2_18.sce')
-rwxr-xr-x1938/CH2/EX2.18/2_18.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/1938/CH2/EX2.18/2_18.sce b/1938/CH2/EX2.18/2_18.sce
new file mode 100755
index 000000000..4766737b5
--- /dev/null
+++ b/1938/CH2/EX2.18/2_18.sce
@@ -0,0 +1,16 @@
+clc,clear
+printf('Example 2.18\n\n')
+
+V=200
+R_a=0.5, R_se=0.2, R_x=0.2 //armature and series field resistance; extra resistance
+I_a1=20, I_1=I_a1 , I_se1=I_a1
+I_a2=20, I_2=I_a2
+I_se2= I_2 *(R_x/(R_se+R_x))
+
+E_b1 = V -I_a1*R_a - I_a1*R_se
+E_b2 = V -I_a2*R_a - I_se2*R_se
+
+phi2_by_phi1=70/100
+N_1=1000
+N_2=N_1*(E_b2/E_b1) /phi2_by_phi1 //N (prop.) E_b/phi
+printf('Required speed is %.2f r.p.m',N_2)