diff options
Diffstat (limited to '3872/CH4')
| -rw-r--r-- | 3872/CH4/EX4.1/Ex4_1.JPG | bin | 0 -> 32764 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.1/Ex4_1.sce | 37 | ||||
| -rw-r--r-- | 3872/CH4/EX4.2/Ex4_2.JPG | bin | 0 -> 22484 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.2/Ex4_2.sce | 48 | ||||
| -rw-r--r-- | 3872/CH4/EX4.3/Ex4_3.JPG | bin | 0 -> 21162 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.3/Ex4_3.sce | 24 | ||||
| -rw-r--r-- | 3872/CH4/EX4.4/Ex4_4.JPG | bin | 0 -> 16504 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.4/Ex4_4.sce | 21 | ||||
| -rw-r--r-- | 3872/CH4/EX4.5/Ex4_5.JPG | bin | 0 -> 19779 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.5/Ex4_5.sce | 27 | ||||
| -rw-r--r-- | 3872/CH4/EX4.6/Ex4_6.JPG | bin | 0 -> 19503 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.6/Ex4_6.sce | 25 | ||||
| -rw-r--r-- | 3872/CH4/EX4.7/Ex4_7.JPG | bin | 0 -> 19469 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.7/Ex4_7.sce | 27 | ||||
| -rw-r--r-- | 3872/CH4/EX4.8/Ex4_8.JPG | bin | 0 -> 13870 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.8/Ex4_8.sce | 18 | ||||
| -rw-r--r-- | 3872/CH4/EX4.9/Ex4_9.JPG | bin | 0 -> 18910 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.9/Ex4_9.sce | 27 |
18 files changed, 254 insertions, 0 deletions
diff --git a/3872/CH4/EX4.1/Ex4_1.JPG b/3872/CH4/EX4.1/Ex4_1.JPG Binary files differnew file mode 100644 index 000000000..b030c7e05 --- /dev/null +++ b/3872/CH4/EX4.1/Ex4_1.JPG diff --git a/3872/CH4/EX4.1/Ex4_1.sce b/3872/CH4/EX4.1/Ex4_1.sce new file mode 100644 index 000000000..7692c1f02 --- /dev/null +++ b/3872/CH4/EX4.1/Ex4_1.sce @@ -0,0 +1,37 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.1
+// Scilab Version 6.0.0 : OS - Windows
+
+clc;
+clear;
+
+S = 12; // Number of strands
+Sd = 0.1328; // Diameter of the Strand
+R = 0.302; // Resistance at 50 Deg Celcius in Ohm/miles
+f = 60; // Frequency
+T = 241.5; // Temperature Constant of Hard Drawn Copper
+T1 = 20; // Temperature in Degree Celcius
+T2 = 50; // Temperature in Degree Celcius
+T3 = 25; // Temperature in Degree Celcius
+R60T2 = 0.303; // Resistance at 60 Hz with 50 degree celcius From the Table A.3
+R60T3 = 0.278; // Resistance at 60 Hz with 25 degree celcius From the Table A.3
+RdcT3 = 0.276; // DC Resistace at 25 Degree Celcius
+
+Sd = (0.1328*1000); // Coverting Strand Diameter from inch to mil/inch
+A = 12*Sd^2 ; // Cross Sectional Area of the 12 strand Conductors in cmil
+pT1 = 10.66; // Resistivity at Temperature T1
+pT2 = pT1*((T2+T)/(T1+T)); // Resistivity at 50 deg Celcius in Ohm-cmil/ft
+L = (5280*1.02); // Length of the Conductor in ft
+RdcT2 = (pT2*L)/A; // DC Resistance at 50 Degree celcius in Ohm/miles
+IncR50 = (R60T2)/(RdcT2); // Percentage Increase in Resistace for 50 degree celcius at 60 Hz Versus dc
+IncR25 = (R60T3)/(RdcT3); // Percentage Increase in Resistace for 25 degree celcius at 60 Hz Versus dc
+
+
+printf('\n Cross Sectional Area of the 12 strand Conductor is (A) = %0.0f cmil',A);
+printf('\n DC Resistance at 50 Degree celcius is (RdcT2) = %0.3f Ohm/mi',RdcT2);
+printf('\n From table A.3, ratio at 50 Degree celcius is (IncR50) = %0.3f ',IncR50);
+printf('\n From table A.3, ratio at 25 Degree celcius is (IncR25) = %0.3f ',IncR25);
+printf('\n The 60 Hz resistance of the conductor is about %.2f to %.2f percentage higher than DC resistance',(IncR50-1)*100,(IncR25-1)*100);
+
+//There is a small variation in the result since the value of cross sectional area which is actually 211630 is rounded off to 211600 in the book.
diff --git a/3872/CH4/EX4.2/Ex4_2.JPG b/3872/CH4/EX4.2/Ex4_2.JPG Binary files differnew file mode 100644 index 000000000..a5ac13d08 --- /dev/null +++ b/3872/CH4/EX4.2/Ex4_2.JPG diff --git a/3872/CH4/EX4.2/Ex4_2.sce b/3872/CH4/EX4.2/Ex4_2.sce new file mode 100644 index 000000000..090b22775 --- /dev/null +++ b/3872/CH4/EX4.2/Ex4_2.sce @@ -0,0 +1,48 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.2
+// Scilab Version 6.0.0 : OS - Windows
+
+clc;
+clear;
+
+rx=0.03; //Radius of conductor x in meter
+ry=0.04; //Radius of conductor y in meter
+N=3;
+M=2;
+
+Ddash=[4 4.3;3.5 3.8;2 2.3]; //Equivalent distances in meter to find Dxy
+Dx=[exp(-1/4)*rx 0.5 2;0.5 exp(-1/4)*rx 1.5;2 1.5 exp(-1/4)*rx]; //Equivalent distances in meter to find Dxx
+Dy=[exp(-1/4)*ry 0.3;0.3 exp(-1/4)*ry]; //Equivalent distances in meter to find Dyy
+
+Dxyr=1;
+for i=1:N
+ for j=1:M
+ Dxyr=Dxyr*Ddash(i,j)
+ end
+end
+Dxy=nthroot(Dxyr,M*N);
+
+Dxxr=1
+for i=1:N
+ for j=1:N
+ Dxxr=Dxxr*Dx(i,j)
+ end
+end
+Dxx=nthroot(Dxxr,N*N);
+
+Dyyr=1
+for i=1:M
+ for j=1:M
+ Dyyr=Dyyr*Dy(i,j)
+ end
+end
+Dyy=nthroot(Dyyr,M*M);
+
+Lx=2e-7*log(Dxy/Dxx);
+Ly=2e-7*log(Dxy/Dyy);
+L=Lx+Ly;
+
+printf('The value of inductance in conductor x is, Lx=%3.2e H/m per conductor\n',Lx)
+printf('The value of inductance in conductor y is, Ly=%3.2e H/m per conductor\n',Ly)
+printf('The value of total inductance is, L=%3.2e H/m per circuit',L)
diff --git a/3872/CH4/EX4.3/Ex4_3.JPG b/3872/CH4/EX4.3/Ex4_3.JPG Binary files differnew file mode 100644 index 000000000..575b83197 --- /dev/null +++ b/3872/CH4/EX4.3/Ex4_3.JPG diff --git a/3872/CH4/EX4.3/Ex4_3.sce b/3872/CH4/EX4.3/Ex4_3.sce new file mode 100644 index 000000000..41173d8d4 --- /dev/null +++ b/3872/CH4/EX4.3/Ex4_3.sce @@ -0,0 +1,24 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.3
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+f = 60; // Single Phase line operating fruquency in Hz
+S = 12; // Strand Copper conductors
+Dxy = 5; // Geometrical Mean Distance between conductor centers in ft
+Dxx =0.01750; // Geometrical Mean Radiance of Copper Conductor in feet from Table A.3
+Dyy = Dxx;
+l = 20; // Line length in miles
+
+Lx = (2*10^-7)*log(Dxy/Dxx)*1609*l; // Line Inductance in Henry per conductor
+Ly = Lx;
+L = Lx+Ly; // Total Inductance in Henry per Circuit
+Xl = (2*%pi*f*L); // Total Inductive Reactance in Ohm per circuit
+
+printf('Line Inductance is (Lx) = %f H per conductor',Lx);
+printf('\nTotal Inductance is (L) = %0.5f H per circuit',L);
+printf('\nTotal Inductive Reactance is (Xl) = %0.2f Ohm per circuit',Xl);
diff --git a/3872/CH4/EX4.4/Ex4_4.JPG b/3872/CH4/EX4.4/Ex4_4.JPG Binary files differnew file mode 100644 index 000000000..52fd7efa1 --- /dev/null +++ b/3872/CH4/EX4.4/Ex4_4.JPG diff --git a/3872/CH4/EX4.4/Ex4_4.sce b/3872/CH4/EX4.4/Ex4_4.sce new file mode 100644 index 000000000..92cd2c191 --- /dev/null +++ b/3872/CH4/EX4.4/Ex4_4.sce @@ -0,0 +1,21 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.4
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+f = 60; // Frequency of the Three Phase Line in Hz
+Q = 10; // Spacing between Adjacent Conductors in metres
+T = 1590000; // Size of the Conductor in cmil
+l = 200; // Line Length in Kilometres
+
+Ds = (0.0520)*(1/3.28); // From Table A.4, the GMR of a 15,90,000 cmil 54/3 ACSR condutor in metres
+Deq = nthroot([10*10*20],3); // Eqivalent GMR of a Conductor in metres
+La = (2*10^-7)*(log(Deq/Ds))*(1000/1)*(200); // Average Inductance of Phase a in Henry
+Xa = (2*%pi*f*La); // Inductive Reactance of Phase a in Ohm
+
+printf('\n Average Inductance of Phase is (La) = %0.3f H', La);
+printf('\n Inductive Reactance of Phase a is (Xa) = %0.0f Ohm', Xa);
diff --git a/3872/CH4/EX4.5/Ex4_5.JPG b/3872/CH4/EX4.5/Ex4_5.JPG Binary files differnew file mode 100644 index 000000000..75817a712 --- /dev/null +++ b/3872/CH4/EX4.5/Ex4_5.JPG diff --git a/3872/CH4/EX4.5/Ex4_5.sce b/3872/CH4/EX4.5/Ex4_5.sce new file mode 100644 index 000000000..3dd8878e7 --- /dev/null +++ b/3872/CH4/EX4.5/Ex4_5.sce @@ -0,0 +1,27 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.5
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+T = 795000; // Size of the Conductor in Circular mils (cmil)
+S = 0.40; // Spacing between Conductors in metre
+l = 10; // Spacing between the Adjacent Conductors in metres
+f = 60;
+Xa4=101; // Inductive reactance of Example 4.4 in Ohms
+
+r = 0.0375; // Geometric Mean Radius at 60Hz in feet, from the table A.4
+Ds = r*(1/3.28); // Solid Cylinderical Conductor value in metres
+Dsl = sqrt(Ds*S); // For the two conductor bundle GMR in metres
+Deq = nthroot([10*10*20], 3); // Eqivalent GMR of a Conductor in metres from Ex 4.4
+La = ((2*10^-7)*(log(Deq/Dsl))*(1000*200)); // Average Inductance of Phase a in Henry
+Xa = (2*%pi*f*La); // Inductive Reactance of Phase a in Ohms
+
+dif=100-(Xa/Xa4)*100;
+
+printf('Average Inductance of Phase is (La) = %0.3f H', La);
+printf('\nInductive Reactance of Phase is (Xa) = %0.1f Ohm', Xa);
+printf('\nThe inductive reactance is %0.0f percentage less than that of example 4.4',dif );
diff --git a/3872/CH4/EX4.6/Ex4_6.JPG b/3872/CH4/EX4.6/Ex4_6.JPG Binary files differnew file mode 100644 index 000000000..ae2b23b53 --- /dev/null +++ b/3872/CH4/EX4.6/Ex4_6.JPG diff --git a/3872/CH4/EX4.6/Ex4_6.sce b/3872/CH4/EX4.6/Ex4_6.sce new file mode 100644 index 000000000..967192616 --- /dev/null +++ b/3872/CH4/EX4.6/Ex4_6.sce @@ -0,0 +1,25 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.6
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+V = 20; // Line Voltage in kV
+D = 0.552; // Diameter of a 4/0 12 strand copper conductor From Table A.3
+f = 60; // Frequency Hz
+
+
+r = (D/2)*(1/12); // The radius of a 4/0 12 strand copper conductor From Table A.3
+e = 8.854*10^-12;
+C = (%pi*e)/log(5/r);
+Cxy = C*1609*20; // Capacitance between Conductors in F/m
+w = (2*%pi*f); // Angular Velocity in rad/sec
+Yxy = (%i)*(w)*(Cxy); // Shunt Admitance Siemens
+Qc = abs(Yxy)*(20*10^3)^2*(1/1000); // Reactive Power Delivered by the linw to line capacitance in kVAR
+
+
+printf('Capacitance between Conductors is (Cxy) = %0.2e F', Cxy);
+printf('\nReactive Power Delivered by the line to line capacitance is (Qc) = %0.1f kVAR', Qc);
diff --git a/3872/CH4/EX4.7/Ex4_7.JPG b/3872/CH4/EX4.7/Ex4_7.JPG Binary files differnew file mode 100644 index 000000000..dc6256203 --- /dev/null +++ b/3872/CH4/EX4.7/Ex4_7.JPG diff --git a/3872/CH4/EX4.7/Ex4_7.sce b/3872/CH4/EX4.7/Ex4_7.sce new file mode 100644 index 000000000..69180967b --- /dev/null +++ b/3872/CH4/EX4.7/Ex4_7.sce @@ -0,0 +1,27 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.7
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+V = 345; // Line Voltage in kV
+T = 795000; // Size of the Conductor in cmil
+D = 1.108; // Diameter of the conductor in inch
+f= 60; // Frequency in Hz
+e = 8.854*10^-12;
+
+r = (D/2)*0.0254; // Radius of the copper conductor in metre
+Dsc = sqrt((r)*(0.40)); // Equivalent radius of the two onductor bundle
+Deq = nthroot([10*10*20], 3); // Eqivalent GMR of a onductor in metres from Ex 4.5
+Can = (2*%pi)*(e)/(log(12.6/0.0750))*(1000)*(200); // Deviation of the capacitance in Farad
+w = (2*%pi*f); // Angular Velocity in rad/sec
+Yan = (%i*w*Can); // Shunt admitance-to-neutral in Siemens
+e = (V/sqrt(3));
+Ichg = (abs(Yan)*e); // Charging Current of Phase A
+Qc3fi = (abs(Yan)*(345)^2); // Total reactive power supplied by the three-phase line in MVAR
+
+printf('Charging Current of Phase A is (Ichg) = %0.3f kA/phase', Ichg);
+printf('\n Total reactive power supplied by the three-phase line is (Qc3fi)= %0.2f MVAR', Qc3fi);
diff --git a/3872/CH4/EX4.8/Ex4_8.JPG b/3872/CH4/EX4.8/Ex4_8.JPG Binary files differnew file mode 100644 index 000000000..12dbf307b --- /dev/null +++ b/3872/CH4/EX4.8/Ex4_8.JPG diff --git a/3872/CH4/EX4.8/Ex4_8.sce b/3872/CH4/EX4.8/Ex4_8.sce new file mode 100644 index 000000000..d508fc805 --- /dev/null +++ b/3872/CH4/EX4.8/Ex4_8.sce @@ -0,0 +1,18 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.8
+// Scilab Version 6.0.0 : OS - Windows
+
+clc;
+clear;
+
+H = 18; // Average line heightin ft
+e = 8.854*10^-12;
+D = 5; // Diameter of the conductor in ft
+r = 0.023; // Radius of the copper conductor ft
+
+Hxx = 2*(H); // Geometric mean radius in ft
+Hxy = sqrt((Hxx)^2 + (5)^2); // Geometric mean distance in ft
+Cxy = ((%pi)*(e))/((log(D/r))-(log(Hxy/Hxx))); // Line to Line capacitance in F/m
+
+printf('Line to Line capacitance is (Cxy) = %0.3e F/m', Cxy);
diff --git a/3872/CH4/EX4.9/Ex4_9.JPG b/3872/CH4/EX4.9/Ex4_9.JPG Binary files differnew file mode 100644 index 000000000..df2b39483 --- /dev/null +++ b/3872/CH4/EX4.9/Ex4_9.JPG diff --git a/3872/CH4/EX4.9/Ex4_9.sce b/3872/CH4/EX4.9/Ex4_9.sce new file mode 100644 index 000000000..7553913b2 --- /dev/null +++ b/3872/CH4/EX4.9/Ex4_9.sce @@ -0,0 +1,27 @@ +// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.9
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+Vxy = 20; // Line voltage in kV
+e = 8.854*10^-12;
+r = (0.023*0.3048); // Radius of the copper conductor in metre
+
+Cxy = 5.178*10^-12; // Line to Line capacitance in F/m
+qx = ((Cxy)*(Vxy)*(10^3)); // Charge in Columb/metre
+qy = -qx; // Charge in Columb/metre
+Er = (qx/(2*%pi*e*r))*(1/1000)*(1/100); // conductor surface electric field strength in kVrms/cm
+Xx = -0.762; // Coordinate for conuctor x with the reference point R
+Yx = 0.762; // Coordinate for conuctor Y with the reference point R
+w = 5.49; // Distance of the conductor from the reference point along Y axis
+z = (2*%pi*e);
+g = ((2*w)/(w^2));
+n = (2*w)/((5.49)^2+(Yx+Yx)^2);
+Ek = (qx/z)*(g-n)*10^-3; // Ground-level electric field strength in kV/m
+
+printf('conductor surface electric field strength is (Er) = %0.2f kVrms/cm', Er);
+printf('\nGround-level electric field strength is (Ek) = %0.4f kV/m', Ek);
|
