function plot21(L,zl1u,extremo,tramo,L1,L2,L3,L4,L5)
zl1=zl1u*L;
rezl1=real(zl1);
imzl1=imag(zl1);
factor=imzl1/rezl1;
%plot(X3,Y3,'b')
%****************************************
% Poner + en el Entronque que corresponda
%****************************************
hold on
switch(tramo)
case {1}, % tramo 1
if strcmp(extremo,'p1')
re_e2=rezl1*((L1+L2)/L);
imag_e2=re_e2*factor;
plot(re_e2,imag_e2,'b+')
elseif strcmp(extremo,'p2')
re_e2=rezl1*(L5/L);
imag_e2=re_e2*factor;
plot(re_e2,imag_e2,'b+')
end
case {3}, % tramo 3
if strcmp(extremo,'m1')
re_e1=rezl1*(L4/L);
imag_e1=re_e1*factor;
plot(re_e1,imag_e1,'b+')
elseif strcmp(extremo,'m2')
re_e1=rezl1*((L2+L3)/L);
imag_e1=re_e1*factor;
plot(re_e1,imag_e1,'b+')
end
case {4}, % tramo 4
if strcmp(extremo,'p1')
re_e2=rezl1*(L3/L);
imag_e2=re_e2*factor;
plot(re_e2,imag_e2,'b+')
elseif strcmp(extremo,'p2')
re_e2=rezl1*((L4+L2)/L);
imag_e2=re_e2*factor;
plot(re_e2,imag_e2,'b+')
end
case {5}, % tramo 5
if strcmp(extremo,'m1')
re_e1=rezl1*(L1/L);
imag_e1=re_e1*factor;
plot(re_e1,imag_e1,'b+')
elseif strcmp(extremo,'m2')
re_e1=rezl1*((L5+L2)/L);
imag_e1=re_e1*factor;
plot(re_e1,imag_e1,'b+')
end
end % end switch tramo
hold off
%****************************************
% Poner + al final de la Linea
%****************************************
hold on
switch(tramo)
case {1}, % tramo 1
if strcmp(extremo,'m1')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'p1')
plot(rezl1,imzl1,'b+')
end
case {2}, % tramo 2
if strcmp(extremo,'m1')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'m2')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'p1')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'p2')
plot(rezl1,imzl1,'b+')
end
case {3}, % tramo 3
if strcmp(extremo,'m2')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'p2')
plot(rezl1,imzl1,'b+')
end
case {4}, % tramo 4
if strcmp(extremo,'m2')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'p2')
plot(rezl1,imzl1,'b+')
end
case {5}, % tramo 5
if strcmp(extremo,'m2')
plot(rezl1,imzl1,'b+')
elseif strcmp(extremo,'p2')
plot(rezl1,imzl1,'b+')
end
end % end switch tramo
hold off
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
