summaryrefslogtreecommitdiff
path: root/3760/CH6/EX6.20/Ex6_20.sce
blob: 8c7d78bca62ff77e7be1b3b0fd74866fd80c7c07 (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
35
36
clc;
sA=0.05; //slip

//for part a
disp('for part a ');
//Torque is proportional to s/r2
//As per given conditions sB=a*sA
a=4;
sB=a*sA;
mprintf('The slip is %d times previous slip and \n',a);

//for part b
disp('for part b ');
//I2 is directly proportional to s/r2
//As per given conditions I2B=b*I2A
b=sB/(a*sA);
//Rotor ohmic losses is directly proportional to I*I*r2
//As per given conditions P2=c*P1
c=a*b;
//As per given conditions Pf2=d*Pf1
d=b;
mprintf('rotor current for new rotor resistance is equal to initial rotor current \n Rotor ohmic losses for new rotor resistance=%f times initial ohmic losses \n  power factor for new rotor resistance is equal to initial power factor',c);

//for part c
disp('for part c ');
//As per given conditions Wa=e*Ws
e=1-sA;
//Wb=f*Ws
b=1-sB;
//PB=g*PA
g=b/e;
mprintf('The power output is reduced to %f times previous value',g);