Блог

Учитывая список чисел в Mathematica, как бы мне извлечь из этого списка общее количество чисел между числами a и b , которые я указываю?

Самый прямой способ — это просто:

 Count[data, x_ /; a <= x <= b]
  

Однако существуют гораздо более быстрые способы обработки большинства данных, и на этот раз благодаря Карлу Воллу:

 Tr@Unitize@Clip[data, {a, b}, {0, 0}]
  

Метод Карла Волла особенно быстр, но, как отметил Йода, он терпит неудачу, если ваш список содержит нули, а ваш диапазон также превышает ноль. Вот еще один метод от Кевина Дж. Макканна, который обрабатывает этот случай и по-прежнему очень быстр:

 Tr@UnitStep[(data - a)*(b - data)]
  

Как чистая функция [данные, a, b]:

 Tr@UnitStep[(#-#2)*(#3-#)]amp;
  

Вот один из подходов, который вы можете попробовать:

 freq[a_, b_, list_] := Total@Boole@Cases[list, x_ :> a <= x <= b]
lst = RandomInteger[10, 20]
Out = {6, 1, 1, 6, 3, 1, 10, 0, 2, 10, 3, 5, 9, 1, 5, 5, 3, 8, 2, 3}

freq[3, 6, lst]
Out = 9
  

Альтернативный подход, использующий IntervalMemberQ , заключается в

 freq[a_, b_, list_] :=
 Total@Boole@IntervalMemberQ[Interval[{a, b}], list]
  

другой подход заключается в

 NumberOfNumbers[lst_?ListQ, lwr_?NumberQ, upr_?NumberQ] := 
 Length@Select[lst, (lwr <= # <= upr) amp;]
  

D

Пожалуйста, загляните в BinCount :

 In[176]:= BinCounts[Range[30], {{2, 11/2}}]

Out[176]= {4}
  

Сравнить с прямым подсчетом:

 In[177]:= Count[Range[30], x_ /; 2 <= x < 11/2]

Out[177]= 4