[Mathematica 10] медианна.

[Sergey K]

Что-то вот никак не могу сообразить.

Есть функция с целочисленными аргументами. Есть множество значений этой функции. Нужно узнать номер аргумента которому соответствует значение функции, максимально близкое к медиане множества значений функций.

Решить это я могу -

1. заполнил множество значении
2. нашел медиану
3. поиском нашел нужное значение функции и соответствующий ему аргумент.

Но это долго.

как данная задача решается в рамках функциональной парадигмы? Мозги вот щелкнуть в нужном направлении никак не хотят...

[Vince Diesel]

Многие функции, которые часто нужны, уже реализованы. В частности, есть Median для медианы и Select для выбора. Остается немного:

tb = Table[{k, f[k]}, {k, 20}];
md = Median@tb[[All, 2]];
minmd = Min[Abs[tb[[All, 2]] - md]];
Select[tb, Abs[#[[2]] - md] == minmd &]

[Sergey K]

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