summaryrefslogtreecommitdiff
path: root/1445/CH8/EX8.20/ch8_ex_20.sce
blob: 54ce57258a2a97f53a5c858c1513dc0e09986442 (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
29
30
31
32
33
34
//CHAPTER 8- DIRECT CURRENT MACHINES
//Example 20

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

//VARIABLE INITIALIZATION
v_t=250;                    //in Volts
I_a1=20;                    //in Amperes
N1=1000;                    //in rpm
r_a=0.5;                    //in Ohms
drop=1;                     //brush contact drop in Volts
ratio=1.5;                  //N2:N1=1.5
phi1=1;                     //it is an assumption

//SOLUTION
E_1=v_t-(I_a1*r_a)-(2*drop);
//solving the quadratic equation directly,
a=1;
b=-496;
c=14280;
D=b^2-(4*a*c);
x1=(-b+sqrt(D))/(2*a);
x2=(-b-sqrt(D))/(2*a); 
if(x1<40)
I_a2=x1;
else if(x2<40)
I_a2=x2;
end;
phi2=(I_a1/I_a2)*phi1;
phi=(1-phi2)*100;
disp(sprintf("The flux to be reduced is %f %% of the main flux",phi));

//END