function [subAbscisa,subpd]=subconjunto21(Abscisa,pd)
Abscisa;
Abscisa=Abscisa*100;
Abscisa=round(Abscisa);
%pd
[filasAbscisa,colAbscisa]=size(Abscisa);
%[filaspd,colpd]=size(pd)
for filas=1:filasAbscisa
for col=1:colAbscisa
a=Abscisa(filas,col);
if a==1
subAbscisa(filas,1)=Abscisa(filas,col);
subpd(filas,1)= pd(filas,col);
elseif a==10
subAbscisa(filas,2)=Abscisa(filas,col);
subpd(filas,2)= pd(filas,col);
elseif a==20
subAbscisa(filas,3)=Abscisa(filas,col);
subpd(filas,3)= pd(filas,col);
elseif a==30
subAbscisa(filas,4)=Abscisa(filas,col);
subpd(filas,4)= pd(filas,col);
elseif a==40
subAbscisa(filas,5)=Abscisa(filas,col);
subpd(filas,5)= pd(filas,col);
elseif a==50
subAbscisa(filas,6)=Abscisa(filas,col);
subpd(filas,6)= pd(filas,col);
elseif a==60
subAbscisa(filas,7)=Abscisa(filas,col);
subpd(filas,7)= pd(filas,col);
elseif a==70
subAbscisa(filas,8)=Abscisa(filas,col);
subpd(filas,8)= pd(filas,col);
elseif a==80
subAbscisa(filas,9)=Abscisa(filas,col);
subpd(filas,9)= pd(filas,col);
elseif a==90
subAbscisa(filas,10)=Abscisa(filas,col);
subpd(filas,10)= pd(filas,col);
elseif a==99
subAbscisa(filas,11)=Abscisa(filas,col);
subpd(filas,11)= pd(filas,col);
end
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
