Computation of Line Parameter & Modelling of Transmission Lines

COMPUTATION OF LINE PARAMETER AND MODELLING OF TRANSMISSION LINES

PROGRAM:

clc;

clear all;

type=-1;

disp('No of choices enter')

disp('----------------')

disp(' Single phase two wire system 1')

disp('three phase single circuit line 2')

disp('Three phase double circuit line 3')

disp('exit')

disp('----------------')

while type~=0

type=input('select from menu=');

switch type

case 1

disp('single phase two wire system')

disp('-----------')

disp('All the values must be in meter');

            d=input('distance between the conductors:');

            r=input('radius of two conductors:');

            l=(2*10^-7)*reallog(d/(0.7788*r));

            c=(2*3.14*8.854*10^-12)/reallog(d/r);

disp('inductance in n/m')

l

disp('capacitance in farad/m')

c

case 2

disp('Three phase single circuit line')

disp('---------------')

disp('All the values must be in meter')

            Dab=input('distance between a-b:');

Dbc=input('distance between b-c:');

Dca=input('distance between c-a:');

            D=(Dab*Dbc*Dca)^(1/3)

            r=input('radius of the conductors:');

            l=(2*10^-7)*reallog(d/(0.7788*r));

            c=(2*3.14*8.854*10^-12)/reallog(d/r);

disp('Average inductance in n/m')

l

disp('Capacitance of conductor with respect to neutral in farad/m')

c

case 3

disp('Three phase double circuit line')

disp('All the values must be in meter')

            d=input('distance between the conductor')

            r=input('radius of the conductor:')

            l=(2*10^-7)*reallog(d/(0.7788*r));

            c=(2*3.14*8.854*10^-12)/reallog((sqrt(3)*d)/(2*r));

disp('inductance in H/m')

l

disp('Capacitance of conductor with respect to neutral in farad/m')

c

end

end