7 lines
116 B
Text
7 lines
116 B
Text
mymedian[x_List]:=Module[{t=Sort[x],L=Length[x]},
|
|
If[Mod[L,2]==0,
|
|
(t[[L/2]]+t[[L/2+1]])/2
|
|
,
|
|
t[[(L+1)/2]]
|
|
]
|
|
]
|