summaryrefslogtreecommitdiff
path: root/1904/CH4/EX4.1/4_1.sce
blob: 7046b587455e08c1ccd874f21ed61cf99ec6c5f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//To determine the constant K for 16kV feeder
//Page 201
clc;
clear;

//Conductor Pararmeters
r=1.503;
xa=0.609;
xd=0.1366;
pf=0.9;
Vb=2400;
Vr=Vb;
x=xa+xd;
Kc=0.01; //From the Curve

K=((r*pf)+(x+sind(acosd(pf))))*(1000/3)*100/(Vr*Vb); // In Percent

printf('\na) The Value of Constant K is %g percent VDpu per kVA mile\n',K)
printf('b) From the precalculated per cent voltage drop Curve, It is found that the K is \n%g percent VDpu per kVA mile which is same as the answer obtained in part a\n',Kc)