Scribd
Upload
32 views2 pages

Double Circuit

This document contains data on the conductor properties of various bird species. It then presents code to calculate the resistance, inductance, and capacitance values per phase or conductor for an overhead transmission line based on the conductor type selected and configuration details provided as input. The values calculated include resistance at 20 and 50 degrees Celsius, inductance, and capacitance.

Uploaded by

frankie morante
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
32 views2 pages

Double Circuit

This document contains data on the conductor properties of various bird species. It then presents code to calculate the resistance, inductance, and capacitance values per phase or conductor for an overhead transmission line based on the conductor type selected and configuration details provided as input. The values calculated include resistance at 20 and 50 degrees Celsius, inductance, and capacitance.

Uploaded by

frankie morante
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

waxwing=[266.8 0.609 0.3488 0.3831 0.

0198];
partridge=[266.8 0.642 0.3452 0.3792 0.0217];
ostrich=[300 0.680 0.3070 0.3372 0.0229];
merlin=[336.4 0.684 0.2767 0.3037 0.0222];
linnet=[336.4 0.721 0.2737 0.3006 0.0243];
oriole=[336.4 0.741 0.2719 0.2987 0.0255];
chickadee=[397.5 0.0743 0.2342 0.2572 0.0241];
ibis=[397.5 0.783 0.2323 0.2551 0.0264];
pelican=[477 0.814 0.1957 0.2148 0.0264];
flicker=[477 0.846 0.1943 0.2134 0.0284];
hawk=[477 0.858 0.1931 0.2120 0.0289];
hen=[477 0.883 0.1919 0.2107 0.0304];
osprey=[556.5 0.879 0.1679 0.1843 0.0284];
parakeet=[556.5 0.914 0.1669 0.1832 0.0306];
dove=[556.5 0.927 0.1663 0.1826 0.0314];
rook=[636 0.977 0.1461 0.1603 0.0327];
grosbeak=[636 0.99 0.1454 0.1596 0.0335];
drake=[795 1.108 0.1172 0.1284 0.0373];
tern=[795 1.063 0.1188 0.1302 0.0352];
rail=[954 1.165 0.0997 0.1092 0.0386];
cardinal=[954 1.196 0.0988 0.1082 0.0402];
ortolan=[1033.5 1.213 0.0924 0.1011 0.0402];
bluejay=[1113 1.259 0.0861 0.0941 0.0415];
finch=[1113 1.293 0.0856 0.0937 0.0436];
bittern=[1272 1.345 0.0762 0.0832 0.0444];
pheasant=[1272 1.382 0.0751 0.0821 0.0466];
bobolink=[1431 1.427 0.0684 0.0746 0.0470];
plover=[1431 1.465 0.0673 0.0735 0.0494];
lapwing=[1590 1.502 0.0623 0.0678 0.0498];
falcon=[1590 1.545 0.0612 0.0667 0.0523];
bluebird=[2156 1.762 0.0476 0.0515 0.0586];
fprintf('Number of phase Enter\tNo.\n============================\nSingle-Phase\t\
t1\nThree-Phase\t\t3\n');
phase=input('Enter the number of your choice: ');
if phase==1
elseif phase==3
else
disp('Please Enter 1 or 3 only ');
return
end
name=input('Enter the ACSR codename in lower case: ','s');
if exist(name,'var')
cn=eval(name);
else
fprintf('\nInvalid Code \nACSR codename cannot be found !Try again!.');
return
end
if phase==1
x='conductor';
d=input('Enter the distance between conductors in meters: ');
GMD=d;
elseif phase==3
x='phase';
d=input('Enter the distance between conductors [D1, D2, D3] in meters: ');
GMD=(d(1)*d(2)*d(3))^(1/3);
end
c=input('Enter the number of conductor in bundled (1,2,3,or 4): ');
switch(c)
case(1)
GMR=cn(5)*0.3048;
GMRc=(cn(2)/2)*0.0254;
case{2,3}
b=input('Enter the bundle spacing in inch: ');
GMR=((cn(5)*0.3048)*(b*0.0254))^(1/c);
GMRc=(((cn(2)/2)*0.0254)*(b*0.0254))^(1/c);
case(4)
b=input('Enter the bundle spacing in inch: ');
GMR=(2^(1/8))*((cn(5)*0.3048)*(b*0.0254)^3)^(1/4);
GMRc=(2^(1/8))*(((cn(2)/2)*0.0254)*(b*0.0254)^3)^(1/4);
end
R1=(cn(3)/c)/1.609;
R2=(cn(4)/c)/1.609;
L=((2*10^-7)*log(GMD/GMR))*1000*10^3;
C=((2*pi*(8.854*10^-12))/(log(GMD/GMRc)))*1000*10^6;
fprintf('The Resistance per %s at 20 degree celcius is %g ohms/km\n', x, R1);
fprintf('The Resistance per %s at 50 degree celcius is %g ohms/km\n', x, R2);
fprintf('The Inductance per %s is %g mH/km\n', x, L);
fprintf('The Capacitance per %s is %g μF/km\n', x, C);

You might also like