summaryrefslogtreecommitdiff
path: root/1445/CH8/EX8.24/ch8_ex_24.sce
blob: e330f4a037f5e0959e7c27c6233983789dd24b5f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//CHAPTER 8- DIRECT CURRENT MACHINES
//Example 24

disp("CHAPTER 8");
disp("EXAMPLE 24");

//This example is same as example 19

//VARIABLE INITIALIZATION
v=250;                            //in Volts
r_a=0.5;                          //in Ohms
r_f=250;                          //in Ohms
N1=600;                           //in rpm
I_l=21;                           //in Amperes
r=250;                            //in Ohms

//SOLUTION
I_f1=v/r_f;
I_a1=I_l-I_f1;
I_a2=2*I_a1;
E_b1=v-(I_a1*r_a);
E_b2=v-(I_a2*r_a);
ratio=(r+r_f)/r_f;
N2=(ratio*N1*E_b2)/E_b1;
N2=round(N2);
disp(sprintf("The new speed is %d rpm",N2));

//END