TO FIND THE PERFORMANCE OF TRANSMISSION LINE:
clear
all
clc
%%Coding belongs to howtousematlab.blogspot.com%%
RW=input('Enter the receiving end Power in KW')
RV=input('enter the receiving end voltage in KV')
Rpf=input('enter the receiving end Power factor ')
r=input('Enter the resistance of the line')
x=input('Enter the reactance of the line')
rv=RV*10^3/sqrt(3)
I=RW*10^3/(3*rv*Rpf)
Rv=rv+(j*0) %taking
reciving end voltage with reference phasor%
Ir=I*(Rpf-(j*sin(acos(Rpf)))) %taking
w.r.t referance phasor%
type=input('Enter the type of transmission line:Short=1;End condensor
Method=2;Nominal"T"Method=3;Nominal Pi Method=4 ::')
if type==1
Z=r+(j*x)
SV=Rv+(Ir*Z) %Sending end voltage%
Sv=abs(SV) %sending end voltage Magnitude%
Reg=(Sv-rv)*100/rv %Regulation%
LL=3*I*I*r %Line losses%
Effi=(RW*10^3*100)/((RW*10^3)+LL) %efficiency
of the line%
elseif type==2
sus=input('enter the susceptance value')
l=input('enter the length of the transmission line')
R=r*l
XL=x*l
Y=sus*l
Z=R+(j*XL)
Ic=j*Y*rv %capacitive current%
Is=Ir+Ic %Sending End Current%
IS=abs(Is) %magnitude
of sending end current%
Vd=Is*Z %Voltage drop%
SV=Rv+Vd %Sending end voltage%
Sv=abs(SV) %Sending end voltage Magnitude%
Reg=(Sv-rv)*100/rv %Regulation%
LL=3*I*I*r %Line losses%
Effi=(RW*10^3*100)/((RW*10^3)+LL)
%efficiency of the line%
elseif type==3
sus=input('enter the susceptance value')
l=input('enter the length of the transmission line')
R=r*l
XL=x*l
Y=sus*l
Z=R+(j*XL)
V1=Rv+(Ir*(Z/2)) %voltage
across capacitor%
Ic=j*Y*V1 %charging current%
Is=Ir+Ic %Sending End current%
IS=abs(Is) %magnitude
of sending end current%
SV=V1+(Is*Z/2) %sending
end voltage%
Sv=abs(SV) %Sending
end voltage Magnitude%
Reg=(Sv-rv)*100/rv %Regulation%
LL=3*I*I*R %Line losses%
Effi=(RW*10^3*100)/((RW*10^3)+LL)
%efficiency of the line%
elseif type==4
sus=input('enter the susceptance value')
l=input('enter the length of the transmission line')
R=r*l
XL=x*l
Y=sus*l
Z=R+(j*XL)
Ic1=Rv*j*(Y/2) %charging
current at the receiving end%
IL=Ir+Ic1 %Line current%
SV=Rv+(IL*Z) %Sending
end voltage%
Sv=abs(SV) %Sending
end voltage Magnitude%
Ic2=j*SV*Y/2 %
Charging current at the sending end%
Is=IL+Ic2 % Sending end current%
IS=abs(Is) %
Sending end current magnitude%
Reg=(Sv-rv)*100/rv %
Regulation%
LL=3*I*I*R %Line
losses%
Effi=(RW*10^3*100)/((RW*10^3)+LL)
%efficiency of the line%
end
ReceivingEndVoltage=Rv
Impedance=Z
LineCurrent=Ir
SendingEndVoltage=SV
SendingEndVoltageMagnitude=Sv
Regulationinpercentage=Reg
Linelosses=LL
Efficiency=Effi
%%Coding belongs to howtousematlab.blogspot.com%%