如何在Mma 7.0中编写等效的RankedMax函数

Question

我需要在Mma 8.0中使用与RankedMax相同的东西，但我只有7.0版本。这是可行的，还是必须在内核/实现级别完成？

非常感谢！

Answer 1

根据RankedMax的8.0帮助页面的more information section，该功能与此相同：

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中可用。