function plot22Sy(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,'S');
set(v,'Color',[0 0 1])
w=text(rezl1+3,imzl1,'Y');
set(w,'Color',[0 0 1])
re_E1=rezl1*(L1/L);
im_E1=re_E1*factor;
t=text(re_E1+3,im_E1,'E1');
set(t,'Color',[0 0 1])
re_E2=rezl1*((L1+L2)/L);
im_E2=re_E2*factor;
u=text(re_E2+3,im_E2,'E2');
set(u,'Color',[0 0 1])
flag_E1=0;
flag_E2=0;
if pfaltap==20
% Hacer 10 divisiones entre S y E1
X4=zeros(1,11);
Y4=zeros(1,11);
X4(1)=0;
Y4(1)=0;
incrX4=rezl1*(L1/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_E1=1;
elseif pfaltap==19
% Hacer 10 divisiones entre E1 y E2
X5=zeros(1,11);
Y5=zeros(1,11);
incrX5=rezl1*(L2/L)/10;
X5(1)=rezl1*(L1/L);
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 0.2, 0.8
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_E1=1;
flag_E2=1;
elseif pfaltam==18
% Hacer 10 divisiones entre E2 y Y
X5=zeros(1,11);
Y5=zeros(1,11);
incrX5=rezl1*(L5/L)/10;
X5(1)=rezl1*((L1+L2)/L);
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 0.2, 0.8
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_E2=1;
end % end del if pfaltap
if flag_E1==0
re_E1=rezl1*(L1/L);
im_E1=re_E1*factor;
hold on
plot(re_E1,im_E1,'b+')
hold off
end
if flag_E2==0
re_E2=rezl1*((L1+L2)/L);
im_E2=re_E2*factor;
hold on
plot(re_E2,im_E2,'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.
