How to select the median of a list?

Question

If I have a list {3,19.5,85,45/2,5.6}, how can I select the median of the list without using the built-in Median command?

First I sorted the list

Sort[{3,19.5,85,45/2,5.6}]
{3, 5.6, 19.5, 45/2, 85}

I can't figure out which command to use to select the median without directly using Median command.

Use Part (shortcut [[ ]]) to take the term that is at the position (Length[list]+1)/2 — bill s, Nov 14 '20 at 14:01

score 2 · Answer 1 · answered Nov 14 '20 at 20:25

Just for fun, here's a rendering into Mathematica of a very old idiom from the APL programming language (see https://aplwiki.com/wiki/FinnAPL_idiom_library#cite_note-1) that requires no explicit splitting into odd/even cases:

    myMedian[lis_] := (1/2) Total[Sort[lis][[Abs@Ceiling[{-1/2, 1/2} (1 + Length@lis)]]]]

Tests:

    x = RandomInteger[{2, 50}, RandomInteger[{4, 8}]];
    Sort[x]
    {myMedian[x], Median[x]}
(* {4, 9, 31, 34, 39, 40, 40, 44} *)
(* 73/2, 73/2 *)
x = RandomInteger[{2, 50}, RandomInteger[{4, 8}]];
Sort[x]
{myMedian[x], Median[x]}

(* {2, 16, 16, 18, 24, 26, 42} )
( 18, 18 *)

David G. Stork · Answer 2 · 2020-11-14T20:04:41.813

1

If the length of the list is odd, then the median is the middle element of the sorted list. If the length of the list is even, the median is the average of the two "central" values:

myMedian[x_List] := (z = Sort[x];
  len = Length[z];
  If[OddQ[len], z[[(len + 1)/2]], (z[[len/2]] + z[[len/2 + 1]])/2])

edited Nov 14 '20 at 20:04

answered Nov 14 '20 at 19:51

David G. Stork

41,180
3
34
96

How to select the median of a list?

2 Answers2