summaryrefslogtreecommitdiff
path: root/3760/CH6/EX6.16/Ex6_16.sce
blob: 9ddb18a4554f0fa956471b115555475e1e5f4c02 (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
 
clc;
r2=0.04;
x2=0.2;

//As per given conditions we get a quadratic equation in smT which is smT^2-4*smT+1
t1=1; t2=-4; t3=1; 
p=[ t1 t2 t3];
smT=roots(p);

r22=x2*smT(2);
R=r22-r2;
mprintf('The external resistane needed to be inserted is %f Ohm \n',R);


//say V=400(Input voltage)
V=400;
//without external resistance
Ist=V/(sqrt((r2)*(r2)+(x2)*(x2)));
pf=r2/(sqrt((r2)*(r2)+(x2)*(x2)));

//with external resistance
Ist1=V/(sqrt((r22)*(r22)+(x2)*(x2)));
pf1=r22/(sqrt((r22)*(r22)+(x2)*(x2)));

a=((Ist-Ist1)/Ist)*100;
b=((pf1-pf)/pf)*100;
mprintf('Percentage in starting current is %f \n',a);
mprintf('Percentage in power factor is %f \n',b);