Как написать эквивалентную функцию RankedMax в Mma 7.0

Question

Мне нужно использовать что-то эквивалентное RankedMax в Mma 8.0, но у меня есть только версия 7.0. Это что-то выполнимое, или это должно быть сделано на уровне ядра / реализации?

Большое спасибо!

Answer 1

В соответствии с разделом дополнительной информации на странице справки 8.0 для RankedMax функция эквивалентна этой:

RankedMax[list_, 1] := Max[list]
RankedMax[list_, n_] /; n == Length@list := Min[list]
RankedMax[list_, n_] := Module[{m=Length@list}, Quantile[list, (m - n + 1) / m]]

Функция Quantile доступна в версии 7.0.