function plot20(L,zl1u,subpd,color)
%------------------------------------------------------------------------------
% REPRESENTAR 0.1, 0.5, 0.9
modzl1u=abs(zl1u);
Lmodzl1u=L*modzl1u;
real_subpd_1=real(subpd(1));
imag_subpd_1=imag(subpd(1));
mod_real_subpd_1=abs(real_subpd_1);
mod_imag_subpd_1=abs(imag_subpd_1);
if (mod_real_subpd_1<=Lmodzl1u) & (imag_subpd_1<=1.5*Lmodzl1u) & (imag_subpd_1>=-0.5*Lmodzl1u)
if strcmp(color,'naranja')
x1=text(real(subpd(1))+1,imag(subpd(1)),'0.1');
set(x1,'Color',[1 0.60 0])
elseif strcmp(color,'m')
x1=text(real(subpd(1))+1,imag(subpd(1)),'0.1');
set(x1,'Color',[1 0 1])
elseif strcmp(color,'c')
x1=text(real(subpd(1))+1,imag(subpd(1)),'0.1');
set(x1,'Color',[0 1 1])
elseif strcmp(color,'r')
x1=text(real(subpd(1))+1,imag(subpd(1)),'0.1');
set(x1,'Color',[1 0 0])
elseif strcmp(color,'k')
x1=text(real(subpd(1))+1,imag(subpd(1)),'0.1');
set(x1,'Color',[0 0 0])
elseif strcmp(color,'marron')
x1=text(real(subpd(1))+1,imag(subpd(1)),'0.1');
set(x1,'Color',[0.7216 0.4510 0.20])
end % end del color
end % end de 0.1
real_subpd_5=real(subpd(5));
imag_subpd_5=imag(subpd(5));
mod_real_subpd_5=abs(real_subpd_5);
mod_imag_subpd_5=abs(imag_subpd_5);
if (mod_real_subpd_5<=Lmodzl1u) & (imag_subpd_5<=1.5*Lmodzl1u) & (imag_subpd_5>=-0.5*Lmodzl1u)
%***************
if strcmp(color,'naranja')
x1=text(real(subpd(5))+1,imag(subpd(5)),'0.5');
set(x1,'Color',[1 0.60 0])
elseif strcmp(color,'m')
x1=text(real(subpd(5))+1,imag(subpd(5)),'0.5');
set(x1,'Color',[1 0 1])
elseif strcmp(color,'c')
x1=text(real(subpd(5))+1,imag(subpd(5)),'0.5');
set(x1,'Color',[0 1 1])
elseif strcmp(color,'r')
x1=text(real(subpd(5))+1,imag(subpd(5)),'0.5');
set(x1,'Color',[1 0 0])
elseif strcmp(color,'k')
x1=text(real(subpd(5))+1,imag(subpd(5)),'0.5');
set(x1,'Color',[0 0 0])
elseif strcmp(color,'marron')
x1=text(real(subpd(5))+1,imag(subpd(5)),'0.5');
set(x1,'Color',[0.7216 0.4510 0.20])
end % end del color
end % end de 0.5
real_subpd_9=real(subpd(9));
imag_subpd_9=imag(subpd(9));
mod_real_subpd_9=abs(real_subpd_9);
mod_imag_subpd_9=abs(imag_subpd_9);
if (mod_real_subpd_9<=Lmodzl1u) & (imag_subpd_9<=1.5*Lmodzl1u) & (imag_subpd_9>=-0.5*Lmodzl1u)
%********************************************************
if strcmp(color,'naranja')
x1=text(real(subpd(9))+1,imag(subpd(9)),'0.9');
set(x1,'Color',[1 0.60 0])
elseif strcmp(color,'m')
x1=text(real(subpd(9))+1,imag(subpd(9)),'0.9');
set(x1,'Color',[1 0 1])
elseif strcmp(color,'c')
x1=text(real(subpd(9))+1,imag(subpd(9)),'0.9');
set(x1,'Color',[0 1 1])
elseif strcmp(color,'r')
x1=text(real(subpd(9))+1,imag(subpd(9)),'0.9');
set(x1,'Color',[1 0 0])
elseif strcmp(color,'k')
x1=text(real(subpd(9))+1,imag(subpd(9)),'0.9');
set(x1,'Color',[0 0 0])
elseif strcmp(color,'marron')
x1=text(real(subpd(9))+1,imag(subpd(9)),'0.9');
set(x1,'Color',[0.7216 0.4510 0.20])
end % end del color
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
