% 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