Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Exp 3 Modelling of TL

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 5

MODELLING OF TL PARAMETERS

-----------------------EXP 3 PGM -1 short transmission line ---- HS P 131-----Ex:4.5-


VRLL=220;
VR=VRLL/sqrt(3);
Z=[0.15+j*2*pi*60*1.3263e-3]*40;
disp=('(a)')
SR=304.8+j*228.6;
IR=conj(SR)/(3*conj(VR));
IS=IR;
VS=VR+Z*IR;
VSLL=sqrt(3)*abs(VS)
SS=3*VS*conj(IS)
REG=((VSLL-VRLL)/(VRLL))*10
EFF=(real(SR)/real(SS))*100
disp=('(b)')
SR=304.8-j*228.6;
IR=conj(SR)/(3*conj(VR));
IS=IR;
VS=VR+Z*IR;
VSLL=sqrt(3)*abs(VS)
SS=3*VS*conj(IS)
REG=((VSLL-VRLL)/(VRLL))*100
EFF=(real(SR)/real(SS))*100

---------------------------------------------------------------------------
-----------------------EXP 3 PGM -2 MEDIUM transmission line --------------
clc
clear all
z=[];
z=input('Enter the length of line(km),Receiving voltage(v),Power(W),Powerfactor,L,R&C(per phase per km)');
l=z(1);vr=z(2);p=z(3);pf=z(4);L=z(5);R=z(6);c=z(7);
z=32+i*81;
y=i*0.00056;
disp('Medium Transmission line by nominal T method:')
A=1+(z*y)/2;C=y;B=z*(1+(z*y)/4);D=1+(z*y)/2;
disp('Generalized ABCD Constants are:')
disp(A);
disp(B);
disp(C);
disp(D);
ir=p/(1.732*vr*0.8)
vs=(A*vrph)+(ir*B);
fprintf('Sending end voltage Vs is %f\n',vs);
is=(vrph*C)+(D*ir);
fprintf('Sending end current Is is %f\n',is);
reg=((3*conj(vs)/conj(A))-v)*100/v;
fprintf('Voltage Regulation is %f\n',reg);
pows=3* conj(vs)* conj(is)*0.808;
eff=p*100/pows;
fprintf('Efficiency is %f\n',eff);
Example 1: (Short TL)
Example 2: (MEDIUM TL)

PROBLEM-2: [ Modeling of Transmission Line Parameters]


A three phase overhead line 200km long R = 0.16 ohm/km and Conductor diameter of
2cm with spacing 4, 5, 6 m transposed. Find A, B, C, D constants, sending end voltage,
current, power factor and power when the line is delivering full load of 50MW at
132kV, 0.8 pf lagging, transmission efficiency, receiving end voltage and regulation.

clc
clear all
z=[];
z=input('Enter the length of line(km),Receiving
voltage(v),Power(W),Powerfactor,L,R&C(per phase per
km)');
l=z(1);vr=z(2);p=z(3);pf=z(4);L=z(5);R=z(6);c=z(7);
z=32+i*81;
y=i*0.00056;
disp('Medium Transmission line by nominal T
method:')
A=1+(z*y)/2;C=y;B=z*(1+(z*y)/4);D=1+(z*y)/2;
disp('Generalized ABCD Constants are:')
disp(A);
disp(B);
disp(C);
disp(D);
ir=p/(1.732*vr*0.8)
vs=(A*vrph)+(ir*B);
fprintf('Sending end voltage Vs is %f\n',vs);
is=(vrph*C)+(D*ir);
fprintf('Sending end current Is is %f\n',is);
reg=((3*conj(vs)/conj(A))-v)*100/v;
fprintf('Voltage Regulation is %f\n',reg);
pows=3* conj(vs)* conj(is)*0.808;
eff=p*100/pows;
fprintf('Efficiency is %f\n',eff);

Manual Solutions:

You might also like