summaryrefslogtreecommitdiff
path: root/343/CH4/EX4.25/ex4_25.sce
blob: 946decde72ee71e0b58dd911db1cb9455b7d05f9 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc
kva=5                //Assigning values to parameters
e2=400
r02=0.85
x02=1.236
i2f=kva*1000/e2
t=acosd(0.8)
pr1=(i2f*r02*cosd(t)+i2f*x02*sind(t))*100/e2
pr2=(i2f*r02*cosd(t)-i2f*x02*sind(t))*100/e2
disp(pr1,"The percentage regulation at full load 0.8 pf lagging is");
disp(pr2,"The percentage regulation at full load 0.8 pf leading is");