summaryrefslogtreecommitdiff
path: root/1445/CH8/EX8.38/Ex8_38.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH8/EX8.38/Ex8_38.sce')
-rw-r--r--1445/CH8/EX8.38/Ex8_38.sce12
1 files changed, 6 insertions, 6 deletions
diff --git a/1445/CH8/EX8.38/Ex8_38.sce b/1445/CH8/EX8.38/Ex8_38.sce
index ce64d0ef1..15802d568 100644
--- a/1445/CH8/EX8.38/Ex8_38.sce
+++ b/1445/CH8/EX8.38/Ex8_38.sce
@@ -1,10 +1,10 @@
//CHAPTER 8- DIRECT CURRENT MACHINES
//Example 38
+clc;
disp("CHAPTER 8");
disp("EXAMPLE 38");
-//215 V DC machine supplying 5kW at 1000 rpm
//VARIABLE INITIALIZATION
v_t=215; //in Volts
r_a=0.4; //in Ohms
@@ -15,13 +15,13 @@ ratio=1.1; //according to the solution, Φ_b:Φ_a=1.1
//SOLUTION
//As generator
-I_ag=p/v_t; // as generator induced current
-E_a=v_t+(I_ag*r_a); // induced emf
+I_ag=p/v_t;
+E_a=v_t+(I_ag*r_a);
//As motor
-I_am=p/v_t; // current as motor
-E_b=v_t-(I_am*r_a); // back emf
-N_m=(1/ratio)*N_g*(E_b/E_a); // speed of machine
+I_am=p/v_t;
+E_b=v_t-(I_am*r_a);
+N_m=(1/ratio)*N_g*(E_b/E_a);
N_m=round(N_m); //to round off the value
disp(sprintf("The speed of the machine as motor is %d rpm",N_m));