blob: e00c47d1f63ca0dcd6b1a535899dd25293c74192 (
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
//To find voltge drop percents for a self supporting aerial messenger cable
//Page 263
clc;
clear;
//Terms taken from Example two
Il=72;
Im=144;
C=5280; //Length Constant
Ll=5760/C; //Lateral Length
Lm=3300/C; //Main Length
//From Tables
//Lateral
rl=4.13; //Resistance per mile
xLl=0.258; //Reactance per mile
//Main
rm=1.29; //Resistance per mile
xLm=0.211;//Reactance per mile
pf=0.9; //Power Factor
Vb=2400; //Base Voltage
//Voltage Drops
VDlateral=Il*((rl*pf)+(xLl*sind(acosd(pf))))*Ll/2;
VDmain=Im*((rm*pf)+(xLm*sind(acosd(pf))))*Lm;
//Percent Voltage Drop
perVDlateral=VDlateral*100/Vb;
perVDmain=VDmain*100/Vb;
TVD=perVDlateral+perVDmain; //Total Percent Voltage drop
//Case B
//Conductors With Ampacities of 268A and 174A for Main and Laterals
//From Tables
//Lateral
rlb=1.03; //Resistance per mile
xLlb=0.207; //Reactance per mile
//Main
rmb=0.518; //Resistance per mile
xLmb=0.191;//Reactance per mile
Vb=2400; //Base Voltage
//Voltage Drops
VDlateralb=Il*((rlb*pf)+(xLlb*sind(acosd(pf))))*Ll/2;
VDmainb=Im*((rmb*pf)+(xLmb*sind(acosd(pf))))*Lm;
//Percent Voltage Drop
perVDlateralb=VDlateralb*100/Vb;
perVDmainb=VDmainb*100/Vb;
TVDb=perVDlateralb+perVDmainb; //Total Percent Voltage drop
printf('\na) The percent voltage drops at :\n')
printf('Lateral End is %g percent\n',perVDlateral)
printf('Main End is %g percent\n',perVDmain)
printf('\nb) Conductors with Ampacities of 278A and 174A are used to find the Percent voltage drop of the Main and Lateral as %g percent and %g percent respectively\n',perVDmainb,perVDlateralb)
printf('The Above Drops meet the required criterion of 4 percent voltage drop\n')
|
