function plot20(L,zl1u,subpd,color,eje_x,eje_menos_y,eje_mas_y)
%------------------------------------------------------------------------------
% 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<=eje_x) & (imag_subpd_1<=eje_mas_y) & (imag_subpd_1>=eje_menos_y)
if strcmp(color,'naranja')
x1=text(real(subpd(1))+3,imag(subpd(1)),'0.1');
set(x1,'Color',[1 0.60 0])
elseif strcmp(color,'m')
x1=text(real(subpd(1))+3,imag(subpd(1)),'0.1');
set(x1,'Color',[1 0 1])
elseif strcmp(color,'c')
x1=text(real(subpd(1))+3,imag(subpd(1)),'0.1');
set(x1,'Color',[0 1 1])
elseif strcmp(color,'r')
x1=text(real(subpd(1))+3,imag(subpd(1)),'0.1');
set(x1,'Color',[1 0 0])
elseif strcmp(color,'k')
x1=text(real(subpd(1))+3,imag(subpd(1)),'0.1');
set(x1,'Color',[0 0 0])
elseif strcmp(color,'marron')
x1=text(real(subpd(1))+3,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<=eje_x) & (imag_subpd_5<=eje_mas_y) & (imag_subpd_5>=eje_menos_y)
if strcmp(color,'naranja')
x1=text(real(subpd(5))+3,imag(subpd(5)),'0.5');
set(x1,'Color',[1 0.60 0])
elseif strcmp(color,'m')
x1=text(real(subpd(5))+3,imag(subpd(5)),'0.5');
set(x1,'Color',[1 0 1])
elseif strcmp(color,'c')
x1=text(real(subpd(5))+3,imag(subpd(5)),'0.5');
set(x1,'Color',[0 1 1])
elseif strcmp(color,'r')
x1=text(real(subpd(5))+3,imag(subpd(5)),'0.5');
set(x1,'Color',[1 0 0])
elseif strcmp(color,'k')
x1=text(real(subpd(5))+3,imag(subpd(5)),'0.5');
set(x1,'Color',[0 0 0])
elseif strcmp(color,'marron')
x1=text(real(subpd(5))+3,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<=eje_x) & (imag_subpd_9<=eje_mas_y) & (imag_subpd_9>=eje_menos_y)
if strcmp(color,'naranja')
x1=text(real(subpd(9))+3,imag(subpd(9)),'0.9');
set(x1,'Color',[1 0.60 0])
elseif strcmp(color,'m')
x1=text(real(subpd(9))+3,imag(subpd(9)),'0.9');
set(x1,'Color',[1 0 1])
elseif strcmp(color,'c')
x1=text(real(subpd(9))+3,imag(subpd(9)),'0.9');
set(x1,'Color',[0 1 1])
elseif strcmp(color,'r')
x1=text(real(subpd(9))+3,imag(subpd(9)),'0.9');
set(x1,'Color',[1 0 0])
elseif strcmp(color,'k')
x1=text(real(subpd(9))+3,imag(subpd(9)),'0.9');
set(x1,'Color',[0 0 0])
elseif strcmp(color,'marron')
x1=text(real(subpd(9))+3,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.
