function [num]=cual(posibilidades,numpos,cadena) 
%posibilidades es un array de tamaño (numpos,1)

num=0;
for z=1:numpos
    if strcmpi(cadena,posibilidades(z))
        num=z;
        break
    end
end
