function plot22Xs(L,zl1u,L1,L2,L3,L4,L5,pfaltam,pfaltap)
% LINEA CON ASTERISCOS
zl1=zl1u*L;
rezl1=real(zl1);
imzl1=imag(zl1);
factor=imzl1/rezl1;
v=text(3,0,'X');
set(v,'Color',[0 0 1])
w=text(rezl1+3,imzl1,'S');
set(w,'Color',[0 0 1])
re_E1=rezl1*(L4/L);
im_E1=re_E1*factor;
t=text(re_E1+3,im_E1,'E1');
set(t,'Color',[0 0 1])
flag=0;
if pfaltam==12
% Hacer 10 divisiones entre E1 y X
X4=zeros(1,11);
Y4=zeros(1,11);
X4(1)=rezl1*(L4/L);
Y4(1)=X4(1)*factor;
incrX4=rezl1*(L4/L)/10;
for s=2:11
X4(s)=X4(s-1)-incrX4;
Y4(s)=X4(s)*factor;
end
hold on
plot(X4,Y4,'b+')
hold off
% Dibujar 0.2, 0.8
t=text(X4(3)+3,Y4(3),'0.2');
set(t,'Color',[0 0 1])
u=text(X4(9)+3,Y4(9),'0.8');
set(u,'Color',[0 0 1])
flag=1;
elseif pfaltam==11
% Hacer 10 divisiones entre S y E1
X5=zeros(1,11);
Y5=zeros(1,11);
incrX5=rezl1*(L1/L)/10;
X5(1)=rezl1;
Y5(1)=X5(1)*factor;
for s=2:10
X5(s)=X5(s-1)-incrX5;
Y5(s)=X5(s)*factor;
end
hold on
plot(X5,Y5,'b+')
hold off
% Dibujar E1
t=text(X5(3)+3,Y5(3),'0.2');
set(t,'Color',[0 0 1])
u=text(X5(9)+3,Y5(9),'0.8');
set(u,'Color',[0 0 1])
flag=1;
end % end del if pfaltam
if flag==0
re_E1=rezl1*(L4/L);
im_E1=re_E1*factor;
hold on
plot(re_E1,im_E1,'b+')
hold off
end
hold on
plot(0,0,'b+')
hold off
hold on
plot(rezl1,imzl1,'b+')
hold off
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
