MODELING AND PERFORMANCE CALCULATION OF
TRANSMISSION LINES
NOMINAL T:
clear all;
clc;
R = input('Enter R value:');
L = input('Length of the transmission line:');
disp('Total resistance per phase')
TR = R*L
XL = input('Enter inductive reactance:');
disp('Total reactance per phase:')
TXL = XL*L
Y = input('Enter capacitive susceptance:');
TY = Y*L
V = input('Enter the votage:');
disp('Receiving end voltage:')
VR = V/sqrt(3)
P = input('Enter the value of Power:');
Pf = input('Enter power factor:');
disp('Load current:')
IR = P/(sqrt(3)*V*Pf)
disp('Impedence Per Phase:')
Z = TR+TXL*1i
disp('Receiving end current')
S = sin(acos(Pf))
A = Pf-S*1i
IR1 = IR*A
disp('Voltage across capacitor')
VC = VR + IR1*(Z/2)
disp('Capacitance Current:')
IC = 1i*TY*VC
disp('Sending end current:')
IS = IR1+IC
disp('Sending end Voltage')
VS = VC + IS*(Z/2)
disp('Line value of Sending end voltage:')
VSL = VS*sqrt(3)
disp('Sending end power factor')
PFS = atan2d(imag(VS),real(VS))-atan2d(imag(IS),real(IS))
A3 = cos(PFS)
disp('Sending end power')
IS1 = abs(IS)
VS1 = abs(VS)
PS = 3*VS1*IS1*A3
disp('Transmission Efficiency')
E = (P/PS)*100
OUTPUT:
Total resistance per phase
TR = 10
Total reactance per phase:
TXL = 20
TY = 4.0000e-04
Receiving end voltage:
VR = 3.8105e+04
Load current:
IR = 109.3466
Impedence Per Phase:
Z = 10.0000 + 20.0000i
Receiving end current
S = 0.6000
A = 0.8000 - 0.6000i
IR1 = 87.4773 - 65.6080i
Voltage across capacitor
VC = 3.9199e+04 + 5.4673e+02i
Capacitance Current:
IC = -0.2187 + 15.6794i
Sending end current:
IS = 87.2586 - 49.9286i
Sending end Voltage
VS = 4.0134e+04 + 1.1697e+03i
Line value of Sending end voltage:
VSL = 6.9514e+04 + 2.0259e+03i
Sending end power factor
PFS = 31.4471
A3 = 0.9995
Sending end power
IS1 = 100.5332
VS1 = 4.0151e+04
PS = 1.2104e+07
Transmission Efficiency
E = 82.6194
NOMINAL PI:
clear all;
clc;
R = input('Enter R value:');
L = input('Length of the transmission line:');
disp('Total resistance per phase')
TR = R*L
XL = input('Enter inductive reactance:');
disp('Total reactance per phase:')
TXL = XL*L
Y = input('Enter capacitive susceptance:');
TY = Y*L
V = input('Enter the votage:');
disp('Receiving end voltage:')
VR = V/sqrt(3)
P = input('Enter the value of Power:');
Pf = input('Enter power factor:');
disp('Load current:')
IR = P/(sqrt(3)*V*Pf)
disp('Receiving end current')
S = sin(acos(Pf))
A = Pf-S*1i
IR1 = IR*A
disp('Impedence Per Phase:')
Z = TR+TXL*1i
disp('Capacitance Current 1')
IC1 = VR*i*(TY/2)
disp('Load Current')
IL = IR1+IC1
disp('Sending end voltage')
VS = VR + IL*Z
disp('Capacitance Current 2')
IC2 = VS*i*(TY/2)
disp('Sending end current')
IS = IL + IC2
OUTPUT:
Total resistance per phase
TR = 15
Total reactance per phase:
TXL = 75
TY = 4.5000e-04
Receiving end voltage:
VR = 6.3509e+04
Load current:
IR = 328.0399
Receiving end current
S = 0.6000
A = 0.8000 - 0.6000i
IR1 = 2.6243e+02 - 1.9682e+02i
Impedence Per Phase:
Z = 15.0000 + 75.0000i
Capacitance Current 1
IC1 = 0.0000 + 14.2894i
Load Current
IL = 2.6243e+02 - 1.8253e+02i
Sending end voltage
VS = 8.1135e+04 + 1.6944e+04i
Capacitance Current 2
IC2 = -3.8125 + 18.2554i
Sending end current
IS = 2.5862e+02 - 1.6428e+02i
