summaryrefslogtreecommitdiff
path: root/503/CH7/EX7.54/ch7_54.sci
blob: d7481be221170f2eb3340e763c73ff1258b214ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//to find speed and ratio of mech o/p

clc;
V=400;
Ra=.25;
Ia1=25;
Ea1=V-Ra*Ia1;
n1=1200;
Rr=2.75;
Ia2=15;
Ea2=V-(Ra+Rr)*Ia2;
phi=.7;    //phi=(phi(15)/phi(25))
n2=(Ea2/Ea1)*n1/phi;
disp(n2,'speed(rpm)');

Po2=Ea2*I2;
Po1=Ea1*I1;
disp(Po2/Po1,'ratio of mech o/p');
Ia=120;    //Ia is constant indep of speed
disp(Ia,'Ia(A)');