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