1 files changed, 30 insertions, 0 deletions
diff --git a/1445/CH8/EX8.38/ch8_ex_38.sce b/1445/CH8/EX8.38/ch8_ex_38.sce
new file mode 100644
index 000000000..96d7543dc
--- /dev/null
+++ b/1445/CH8/EX8.38/ch8_ex_38.sce
@@ -0,0 +1,30 @@
+//CHAPTER 8- DIRECT CURRENT MACHINES
+//Example 38
+
+disp("CHAPTER 8");
+disp("EXAMPLE 38");
+
+//VARIABLE INITIALIZATION
+v_t=215;                    //in Volts
+r_a=0.4;                    //in Ohms
+p=5*1000;                   //in Watts
+N_g=1000;                   //speed as generator in rpm
+ratio=1.1;                  //according to the solution, Φ_b:Φ_a=1.1
+
+//SOLUTION
+
+//As generator
+I_ag=p/v_t;
+E_a=v_t+(I_ag*r_a);
+
+//As motor
+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));
+
+//END 
+
+
+