Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Поиск экстремумов в одномерном массиве данных
 
#1
21.01.2012 23:35:53
Нужно найти значения всех верхних экстремумов(т.е. в этих точках функция перестает возрастать  и начинает убывать), в файле колонка Е. Предчувствую, что задача проста, но у меня решить не  получилось. Буду очень благодарен за совет по задаче.
 
 
 
#2
21.01.2012 23:51:39
http://yandex.ru/sitesearch?text=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D1%8D%D0%BA%D1%81%D1%82­%D1%80%D0%B5%D0%BC%D1%83%D0%BC%D0%BE%D0%B2&searchid=84804&web=0&lr=22
 
 
 
#3
22.01.2012 00:06:50
{quote}{login=Юрий М}{date=21.01.2012 11:51}{thema=}{post}http://yandex.ru/sitesearch?text=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D1%8D%D0%BA%D1%81%D1%82­%D1%80%D0%B5%D0%BC%D1%83%D0%BC%D0%BE%D0%B2&searchid=84804&web=0&lr=22{/post}{/quote}  
В той теме немного другая задача решается
 
 
 
#4
22.01.2012 00:09:55
Файл задачи  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#5
22.01.2012 00:12:24
{quote}{login=}{date=22.01.2012 12:06}{thema=Re: }{post}{quote}{login=Юрий М}{date=21.01.2012 11:51}{thema=}{post}{/post}{/quote}В той теме немного другая задача решается{/post}{/quote}В какой "той"? Там много ссылок.
 
 
 
#6
22.01.2012 07:05:27
Вариант..  
Sub tt()  
Dim arr  
arr = [E1:E20]
Debug.Print Application.WorksheetFunction.Max(arr)  
End Sub
 
 
 
#7
22.01.2012 07:40:22
{quote}{login=}{date=21.01.2012 11:35}{thema=Поиск экстремумов в одномерном массиве данных}{post}Нужно найти значения всех верхних экстремумов(т.е. в этих точках функция перестает возрастать  и начинает убывать), в файле колонка Е. Предчувствую, что задача проста, но у меня решить не  получилось. Буду очень благодарен за совет по задаче.{/post}{/quote}  
Ну так из из определения и вытекает проверка на максимум i значения массива  
If (Arr(i) - Arr(i - 1)) > 0 And (Arr(i + 1) - Arr (i)) < 0 Then  
Debug.Pring "Максимум"  
End If
 
 
 
Страницы: 1
Читают тему
Наверх