function [xpar, ximpar] = SepararParImpar(x)
%
% Separa de una lista, x,
% los números pares, xpar, de los impares, ximpar.
%
id = rem(x,2) == 0;
xpar = x(id);
ximpar = x(~id);