summaryrefslogtreecommitdiff
path: root/3888/CH11
diff options
context:
space:
mode:
authorprashantsinalkar2018-02-03 11:01:52 +0530
committerprashantsinalkar2018-02-03 11:01:52 +0530
commit7bc77cb1ed33745c720952c92b3b2747c5cbf2df (patch)
tree449d555969bfd7befe906877abab098c6e63a0e8 /3888/CH11
parentd1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (diff)
downloadScilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.gz
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.bz2
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.zip
Added new codeHEADmaster
Diffstat (limited to '3888/CH11')
-rw-r--r--3888/CH11/EX11.2/Ex11_2.JPGbin0 -> 19884 bytes
-rw-r--r--3888/CH11/EX11.2/Ex11_2.sce39
-rw-r--r--3888/CH11/EX11.3/Ex11_3.JPGbin0 -> 32996 bytes
-rw-r--r--3888/CH11/EX11.3/Ex11_3.sce66
-rw-r--r--3888/CH11/EX11.4/Ex11_4.JPGbin0 -> 32839 bytes
-rw-r--r--3888/CH11/EX11.4/Ex11_4.sce53
-rw-r--r--3888/CH11/EX11.5/Ex11_5.JPGbin0 -> 23302 bytes
-rw-r--r--3888/CH11/EX11.5/Ex11_5.sce33
-rw-r--r--3888/CH11/EX11.6/Ex11_6.JPGbin0 -> 22479 bytes
-rw-r--r--3888/CH11/EX11.6/Ex11_6.sce27
10 files changed, 218 insertions, 0 deletions
diff --git a/3888/CH11/EX11.2/Ex11_2.JPG b/3888/CH11/EX11.2/Ex11_2.JPG
new file mode 100644
index 000000000..1f9f8747c
--- /dev/null
+++ b/3888/CH11/EX11.2/Ex11_2.JPG
Binary files differ
diff --git a/3888/CH11/EX11.2/Ex11_2.sce b/3888/CH11/EX11.2/Ex11_2.sce
new file mode 100644
index 000000000..5077e5797
--- /dev/null
+++ b/3888/CH11/EX11.2/Ex11_2.sce
@@ -0,0 +1,39 @@
+//Electric Power Generation, Transmission and Distribution by S.N.Singh
+//Publisher:PHI Learning Private Limited
+//Year: 2012 ; Edition - 2
+//Example 11.2
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+
+r=0.5; //Resistance of the line in Ohm/km
+l=5; //Length of the line in km
+L=1.76; //Inductance of the line in mH/km
+f=50; //Supply frequency in Hz
+sen_vtg=33; //Sending end voltage in kV
+rec_vtg=32; //Receiving end voltage in kV
+Vs=sen_vtg/(3)^(1/2); //Sending end phase voltage in kV
+Vr=rec_vtg/(3)^(1/2); //Receiving end phase voltage in kV
+R=r*l; //Total resistance of line in Ohm
+X=2*(%pi)*f*L*l*10^(-3); //Total Inductance of line in Ohm
+pf1=0.8; //Power factor
+A=X^(2)+R^(2); //Coeffcient of Ir^(2) simlified in quadratic eqn
+B=2*Vr*(R*pf1+X*sin(acos(pf1))); //Coeffcient of Ir simlified in quadratic eqn
+C=Vr^(2)-Vs^(2); //Constant simlified in quadratic eqn
+Ir=(-B+sqrt(B^(2)-4*A*C))/(2*A); //Receiving end current in A
+reg=((Vs-Vr)/Vr)*100; //Efficiency of the line
+P=3*Vr*Ir*pf1; //Output power in MW
+Loss=3*Ir^(2)*R; //Line loss in MW
+eff=(P/(P+Loss))*100; //Efficiency of the line
+
+
+printf("\nLine current of the transmission line is %.3f kA",Ir);
+printf("\nRegulation of the transmission line is %.3f percentage ",reg);
+printf("\nEfficiency of the transmission line is %.2f percentage",eff);
+
+
+
+
+
diff --git a/3888/CH11/EX11.3/Ex11_3.JPG b/3888/CH11/EX11.3/Ex11_3.JPG
new file mode 100644
index 000000000..8a6a46c9c
--- /dev/null
+++ b/3888/CH11/EX11.3/Ex11_3.JPG
Binary files differ
diff --git a/3888/CH11/EX11.3/Ex11_3.sce b/3888/CH11/EX11.3/Ex11_3.sce
new file mode 100644
index 000000000..15433efaa
--- /dev/null
+++ b/3888/CH11/EX11.3/Ex11_3.sce
@@ -0,0 +1,66 @@
+//Electric Power Generation, Transmission and Distribution by S.N.Singh
+//Publisher:PHI Learning Private Limited
+//Year: 2012 ; Edition - 2
+//Example 11.3
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+
+P=50; //Power of the line in MW
+l=100; //Length of the line in km
+pf=0.8; //Power factor
+V=132; //Voltage of the line in kV
+R=0.1; //Resistance of the conductor in Ohm/km
+X=0.3; //Reactance of the conductor in Ohm/km
+y=3*10^(-6); //Admittance of the conductor in mho/km
+Vr=V/(3)^(1/2); //Receiving end voltage in kV
+Z=(R+%i*X)*100; //Series impedance in Ohm
+Y=(0.0+%i*y)*100; //Shunt admittance on mho
+Ir=P*10^(3)/(3*Vr*pf); //Receiving end current in A
+Vc=Vr*(pf+%i*0.6)+(Ir*Z/2)*10^(-3); //Capacitance voltage in kV
+Ic=Y*Vc*10^(3); //Shunt branch current in A
+Is=Ic+Ir; //Sending end current in A
+Vs=Vc+(Is*Z/2)*10^(-3); //Sending end voltage in kV
+Vsl=abs(Vs)*3^(1/2); //Line to line sending end voltage in kV
+pf1=cos(atan(imag(Vs),real(Vs))-atan(imag(Is),real(Is))); //Sending end power factor
+Vr1=abs(Vs)/(1+(Z*Y/2)); //Receiving end voltage at no_load in kV
+reg=((abs(Vr1)-Vr)/Vr)*100; //Regulation of the line
+eff=P*10^(6)/(P*10^(6)+3*((abs(Is)^(2)*R*l)/2+(Ir^(2)*R*l)/2))*100; //Efficiency of the line
+Ic1=(Y/2)*Vr*10^(3); //Capacitance 1 current in A
+Il=Ir*(0.8-%i*0.6)+Ic1; //Line current in A
+Vs1=Vr+Il*Z*10^(-3); //Sending end voltage in kV
+Vsl1=abs(Vs1)*3^(1/2); //Line to line sending end voltage in kV
+Ic2=((Y/2)*Vs1*10^(3)); //Capacitance 2 current in A
+Is1=Il+Ic2; //Sending end current in A
+pf2=cos(atan(imag(Vs1),real(Vs1))-atan(imag(Is1),real(Is1))); //Power factor
+V=abs(Vs1)/(1+(Z*Y/2)); //Receiving end voltage at no_load in kV
+reg1=((abs(V)-Vr)/Vr)*100; //Regulation of the line
+eff1=(P*10^(6)/(P*10^(6)+3*(abs(Il)^(2)*R*l)))*100; //Efficiency of the line
+
+
+printf("\nnominal-T method");
+printf("\nSending end voltage of the line %.2f kV",Vsl);
+printf("\nSending end powerfactor of the line %.3f",pf1);
+printf("\nEfficiency of the line %.2f percentage",eff);
+printf("\nRegulation of the line %.2f percentage",reg);
+printf("\nnominal-pi method");
+printf("\nSending end voltage of the line %.2f kV",Vsl1);
+printf("\nSending end powerfactor of the line %.3f",pf2);
+printf("\nEfficiency of the line %.2f percentage",eff1);
+printf("\nRegulation of the line %.2f percentage",reg1);
+ //Variation present in result due to wrong calculation of Ic2 value
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/3888/CH11/EX11.4/Ex11_4.JPG b/3888/CH11/EX11.4/Ex11_4.JPG
new file mode 100644
index 000000000..395f07d96
--- /dev/null
+++ b/3888/CH11/EX11.4/Ex11_4.JPG
Binary files differ
diff --git a/3888/CH11/EX11.4/Ex11_4.sce b/3888/CH11/EX11.4/Ex11_4.sce
new file mode 100644
index 000000000..e8c9538ba
--- /dev/null
+++ b/3888/CH11/EX11.4/Ex11_4.sce
@@ -0,0 +1,53 @@
+//Electric Power Generation, Transmission and Distribution by S.N.Singh
+//Publisher:PHI Learning Private Limited
+//Year: 2012 ; Edition - 2
+//Example 11.4
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+
+
+f=50; //Supply frequency in Hz
+l=450; //Length of the line in km
+V=400; //Supply voltage in kV
+R=0.033; //Resistance of the line in Ohm/km
+L=1.067; //Inductance of the line in mH/km
+C=0.0109; //Capacitance of the line in microFarad/km
+P=420; //Power in MW
+pf=0.95; //Power factor
+Z=R+%i*(2*%pi*f*L*10^(-3)); //Impedance of the line in Ohm/km
+Y=%i*(2*%pi*f*C); //Admittance of the line in mho/km
+Zc=((Z/Y)^(1/2))*10^(3); //Characteristic impedance of the line in Ohm/km
+pro_const=(Z*Y)^(1/2); //Propagation constant of the line
+angle=pro_const*l*10^(-3);
+s=sinh(angle); //Sinusoidal angle
+c=cosh(angle); //Cosine angle
+Ir=P*10^(6)/((3)^(1/2)*V*10^(3)*pf); //Magnitude of receiving end current in A
+Ir1=(Ir*(cosd(-acosd(pf))+%i*sind(-acosd(pf))))*10^(-3); //Receiving end current including power factor angle
+Vr=V/(3)^(1/2); //Receiving end phase voltage in kV
+Vs=Vr*c+(Zc*Ir1*s); //Sending end voltage in kV
+llv=abs(Vs)*sqrt(3); //Line to line voltage in kV
+Is=((Vr*10^(3)/Zc)*s)+(Ir1*c); //Sending end current in A
+pfs=cosd(atan(imag(Vs),real(Vs))-atan(imag(Is),real(Is))); //Sending end power factor
+delta=atand(imag(Vs),real(Vs)); //Load angle in degree
+A=cosh(angle); //Parameter of voltage and current eqn in degree
+B=Zc*sinh(angle); //Parameter of voltage and current eqn in Ohm
+C=sinh(angle)/Zc; //Parameter of voltage and current eqn in mho
+D=A; //Parameter of voltage and current eqn in degree
+reg=(((abs(Vs)/abs(A))-Vr)/Vr)*100; //Regulation of the line
+inp_pow=(3*abs(Vs)*abs(Is)*pfs)*10^(-3); //Input power in MW
+eff=(P/inp_pow)*100; //Efficiency of the line
+
+printf("\nVoltage at sending end of the line is %.2f kV",Vs);
+printf("\nCurrent at sending end of the line is %.2f A",abs(Is));
+printf("\nSending end powerfactor and Load angle of the line is %.4f and %.2f",pfs,delta);
+printf("\nABCD parameters of the line is %.3f and %.2f ohm and %.3e mho and %.3f ",A,abs(B),abs(C),D);
+printf("\nRegulation of the line is %.1f percentage",reg);
+printf("\nEfficiency of the line is %.2f percentage",eff);
+ //Variation present in result due to wrong substitution in Vs
+
+
+
+
diff --git a/3888/CH11/EX11.5/Ex11_5.JPG b/3888/CH11/EX11.5/Ex11_5.JPG
new file mode 100644
index 000000000..11766a1c5
--- /dev/null
+++ b/3888/CH11/EX11.5/Ex11_5.JPG
Binary files differ
diff --git a/3888/CH11/EX11.5/Ex11_5.sce b/3888/CH11/EX11.5/Ex11_5.sce
new file mode 100644
index 000000000..0fb4e1d60
--- /dev/null
+++ b/3888/CH11/EX11.5/Ex11_5.sce
@@ -0,0 +1,33 @@
+//Electric Power Generation, Transmission and Distribution by S.N.Singh
+//Publisher:PHI Learning Private Limited
+//Year: 2012 ; Edition - 2
+//Example 11.5
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+
+V=400; //Supply voltage in kV
+Load=750; //Load in MVA
+A=0.85; //Loss less three phase line constant
+B=%i*150; //Loss less three phase line constant
+C=%i*0.001; //Loss less three phase line constant
+D=A; //Loss less three phase line constan
+Vr=V/3^(1/2); //Receiving end voltage in kV
+Ir=Load*10^(3)/(3^(1/2)*V); //Receiving end current in A
+Vs=(A*Vr*10^(3)+B*Ir*(0.8-%i*0.6))*10^(-3); //Sending end voltage in kV
+Is=C*Vr*10^(3)+A*Ir*(0.8-%i*0.6); //Sending end current in A
+vtg_reg=(((abs(Vs)/abs(A))-Vr)/Vr)*100; //Regulation of the line
+ABCD=[1 -50*%i;0 1]*[0.85 50*%i;0.001*%i 0.85]*[1 -50*%i;0 1]; //Matrix of compensated line
+Vs1=ABCD(1,1)*Vr+ABCD(1,2)*(abs(Ir)/1000)*(0.8-%i*0.6); //Sending end voltage of compensated line in kV
+Is1=ABCD(2,1)*Vr*10^(3)+ABCD(2,2)*abs(Ir)*(0.8-%i*0.6); //Sending end current of compensated line in A
+vtg_reg2=(((abs(Vs1)/ABCD(1,1))-Vr)/Vr)*100; //Regulation of the of compensated line
+
+
+printf("\nPhase voltage is % f kV",Vr);
+disp(ABCD,'Series compensation parameters is ');
+printf("\nRegulation of the uncompensated line is %.1f",vtg_reg);
+printf("\nRegulation of the compensated line is %.2f",vtg_reg2);
+ //variation present in result due to Wrong substitution of matrix ABCD
+
diff --git a/3888/CH11/EX11.6/Ex11_6.JPG b/3888/CH11/EX11.6/Ex11_6.JPG
new file mode 100644
index 000000000..9be148ccb
--- /dev/null
+++ b/3888/CH11/EX11.6/Ex11_6.JPG
Binary files differ
diff --git a/3888/CH11/EX11.6/Ex11_6.sce b/3888/CH11/EX11.6/Ex11_6.sce
new file mode 100644
index 000000000..ba2e3d6e3
--- /dev/null
+++ b/3888/CH11/EX11.6/Ex11_6.sce
@@ -0,0 +1,27 @@
+//Electric Power Generation, Transmission and Distribution by S.N.Singh
+//Publisher:PHI Learning Private Limited
+//Year: 2012 ; Edition - 2
+//Example 11.6
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+
+Vs=420; //Supply voltage in kV
+f=60; //Supply frequency in Hz
+l=463; //Length of the line in km
+Vr=700; //Receiving end voltage in kV
+sen_end_crt=646.6; //Sending end current in A
+pha_con_len=acos(Vs/Vr); //Phase constant length in rad
+pha_const=pha_con_len/l; //Phase constant in rad/km
+Z=Vr*10^(3)*sin(pha_con_len)/(3^(1/2)*sen_end_crt); //Surge impedance in Ohm
+X=(sin(pha_con_len)/(1-cos(pha_con_len)))*Z; //Reactance of the line in Ohm
+shu_rat=Vs^(2)/X; //Shunt reactor rating in MVAr
+
+
+printf("\nThe phase constant and Surge impedance of the line is %.3f rad/km and %.f Ohm",pha_const,Z);
+printf("\nThe reactance per phase and the required shunt reactor rating of the line is %.f Ohm and %.1f MVAr",X,shu_rat);
+
+
+
generated by cgit (git 2.34.1) at 2024-12-19 15:34:04 +0000