Проверка выборки на стохастичность. Нужна помощь в поиске длинн серий.

[zionkv]

Имеется выборка:

29,90 29,82 29,95 29,81 29,93 29,88 29,91
29,83 29,92 29,90 29,95 29,88 29,90 29,79
29,82 29,93 29,82 29,91 29,89 29,91 29,94
29,88 29,87 29,81 29,90 29,83 29,93 29,90
29,91 29,91 29,88 29,94 29,83 29,88 29,91
29,90 29,89 29,91 29,93 29,82 29,97 29,94
29,93 29,82 29,88 29,93 29,83 29,91 29,88
29,82 29,87 29,95 29,91 29,90 29,85 29,88
29,93 29,82 29,85 29,95 29,86 29,94 29,90
29,86 29,85 29,87 29,88 29,85 29,94 29,85
29,85 29,90 29,96 29,85 29,82 29,86 29,95
29,88 29,86 29,87 29,85 29,83 29,86 29,83
29,95 29,87 29,86 29,88 29,86 29,85 29,82
29,85 29,88 29,85 29,97 29,99 29,86 29,88

Из нее с помощью формулы

=ЕСЛИ(A2>A1;"+";ЕСЛИ(A2<A1;"-";""))

получили ряд:

- + - + - + - + - + - + - + + - + - + + - - - + - + - + - + - + + - - + + - + - - - + + - + - - + + - - - + + - + + - + - - - + + - + - + + - - + + - - + - - + - + - - + - - - + + - + + - + -

Как теперь получить максимальную длину серии и значение количества серий?

Из методички для пояснения:

ПРОВЕРКА ВЫБОРКИ НА СТОХАСТИЧНОСТЬ

Перед статистической обработкой результатов наблюдений, убедимся, что они образуют случайную выборку.
С этой целью воспользуемся критерием “восходящих” и “нисходящих” серий.
В этом критерии исследуется последовательность знаков –
плюсов и минусов. Исходным пунктом является выборка х1,х2, …, хn (в приведенном примере значения признака).
На i-том месте этой выборки ставится плюс, если xi+1-xi>0,
минус, если xi+1-xi<0. Если xi+1= xi, то значение xi пропускается.
В приведенном примере мы получим следующую
последовательность знаков:
++-+--+++---+++-+-++-++-+-++---+++++-++++---+++-++++-++
+-+--+---+-+-+-++--+--+-++----+--+-++--++-+-+-+---+-+--+---++-++-
+-+-++-+--+---++-+--+-+-+-++--+-+-+--+-++--+-+++-++-++---+-+--++
++-+--+-+++-.
Под “серией” будем понимать последовательность подряд идущих
плюсов или минусов (серия может состоять из одного плюса или одного
минуса, тогда ее протяженность равна едини-це).
Общее числа серий в выборке обозначим через v(n),
протяженность самой длинной серии - t(n).
Для нашего примера n=200, v(n)=126, t(n)=5.

[doober]

Формулы не мое,могу предложить функцию
Вставите в нужную ячейку
Максимум поставил 100
скорректируете под себя

 Public Function Series(stroka As String)
 
 Dim sl, sll As String


For n = 1 To 100

sl = sl & "+"
sll = sll & "-"

Next


For n = 100 To 1 Step -1
sl = Mid(sl, 1, n)
sll = Mid(sll, 1, n)
If stroka Like "*" & sl & "*" Or stroka Like "*" & sll & "*" Then

Series = n
Exit Function

End If
Next
Series = 1
End Function