Локальные экстремумы в VBScript

[baiba_89]

Задача такая: подсчитать количество локальных экстремумов в числовой последовательности.
Я написал скрипт но он либо не работет либо выдает не то что нужно. Помоги исправить так чтобы она считала количество min и max в последовательности.

dim a(),max,min
n=inputbox("n=?")
redim a(n)
for i=1 to n-1
a(i)=Cint(InputBox("a("+cstr(i)+")="))
if a(i-1)<a(i)>a(i+1) then
max=a(i)
end if
next
for i=1 to n-1
if a(i-1)>a(i)<a(i+1) then
min=a(i)
end if
next
msgbox "Кол-во max="&max&vbcrlf&"Кол-во min="&min

[GSerg]

Злостный повтор топика.
Закрыто.
Автору рекомендуется прекратить, во избежание.

[RayShade]

Тут имеет место какая то лажа в определении алгоритма решения задачи.

Конечно я не спорю и в моем понимании термина "экстремум" могут присутствовать некие пробелы, но мне кажется что экстремум - он на отрезке один. Вот задали отрезок (ввели кучу чисел) а потом бац! Экстремум - это max и min.

Автор бы, короче, прояснил бы задачу как то точнее чтли. А не выкладывал кривой код, с неясным смыслом.

[GSerg]

Лажа тут места не имеет. Понятие локального экстремума очевидно и не требует уточнений. Единственное, что имеет значение - тот факт, что автор вопроса уже задавал его.

[tyomitch]

Тут имеет место какая то лажа в определении алгоритма решения задачи.
Конечно я не спорю и в моем понимании термина "экстремум" могут присутствовать некие пробелы, но мне кажется что экстремум - он на отрезке один. Вот задали отрезок (ввели кучу чисел) а потом бац! Экстремум - это max и min.
Автор бы, короче, прояснил бы задачу как то точнее чтли. А не выкладывал кривой код, с неясным смыслом.

Нет. Локальный экстремум -- это точка изменения знака производной. На отрезке их может быть сколько угодно. Пример: у косинуса все точки pi*k -- локальные экстремумы.

[Antonariy]

tyomitch, а как ты восстановишь функцию по значениям из числовой последовательности? Без нее или ее производной любое значение может быть экстремумом.

[tyomitch]

Восстановлю, соединив эти точки отрезками.
Если (y[k]-y[k-1])(y[k+1]-y[k]) < 0, то это экстремум.

[Antonariy]

Вот и решение задачи