% check whether the median returned by mymedian 
% really separates a vector into two halfs
for i = 1:140                           % loop over different length
  for k = 1:10                          % try several times
    a = randn(i, 1);                    % generate some data
    m = mymedian(a);                    % compute median
    if length(a(a>m)) ~= length(a(a<m)) % check
      disp('error!')
    end
  end
end