Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Определение амплитуды
 
#1
07.11.2013 15:18:27
Здравствуйте!
Возникла проблема в работе с экселем, а именно в написание формулы для определения максимального/минимального значения на участках в одном большом массиве.
Задача такая:
Имеется очень большой массив данных около 100000 значений, с Божей помощью из этого массива были определены все экстремумы (макс, мин, нули) этой кривой с помощью формулы
Код
=ЕСЛИ(И(E3<E2;E3<=E4);"min";ЕСЛИ(И(E3>E2;E3>=E4);"max";ЕСЛИ(ИЛИ(И(E3*E2<=0;ABS(E3)<ABS(E2));И(E3*E4<=0;ABS(E3)<ABS(E4)));"ZERO";"")))


Встал вопрос как найти максимальное значение между нулями для нахождения амплитуды волны.
P.s. Как найти амплитуду знаю, нужна помощь для нахождения  (max, min) волны между нулями
 
 
 
#2
07.11.2013 15:35:33
ну и взять максимум максимумов..
Живи и дай жить..
 
 
 
#3
07.11.2013 15:46:33
Цитата
ну и взять максимум максимумов..
Я понимаю, что взять максимум максимумов, но я не могу сообразить как это
 
 
 
#4
07.11.2013 15:50:47
Почему так не сделать?
=ЕСЛИ(ABS(A2)<ABS(A1);A1;"")
 
 
 
#5
07.11.2013 15:59:14
Формула выводит ряд значений, а в моем случае нужно одно значение между нулями.
 
 
 
#6
07.11.2013 17:27:34
Так...
Этим =ЕСЛИ(ABS(A2)<ABS(A1);A1;"") выводите список всех максимальных между нулями допустим в столбце "С", а функцией МАКС(С:С) получаете одно значение.
 
 
 
#7
07.11.2013 21:38:57
Павел немного не понимаю, как обозначаются нули в формуле =ЕСЛИ(ABS(A2)<ABS(A1);A1;"" ;) , но идею понимаю, буду про бывать, спасибо за совет.
А формуле МАКС(С:С) (с:с) - массив от нуля до нуля подразумевается? Возможно ли написать формулу для всего массива, чтобы она сама определяла максимальное значение между нулями, а то данных много, применять МАКС(С:С) не совсем удобно.
Изменено: exspe - 08.11.2013 08:12:45
 
 
 
#8
08.11.2013 12:17:04
Формула =Макс(с:с) не подходит, т.к. в ручную искать интервалы очень долго, т.к. массивы очень большие порядка 100000 строк, поэтому требуется формула позволяющая сразу определить максимумы на заданых участках в массиве.
 
 
 
#9
08.11.2013 13:12:35
exspe, вы меня запутали. Еще раз...
"вопрос как найти максимальное значение между нулями для нахождения амплитуды волны" - между какими нулями конкретно не указано, значит между всеми, т.е. максимальное значение из максимальных между нулями, ранее определенных формулой: "=ЕСЛИ(И(E3<E2;E3<=E4);"min";ЕСЛИ(И(E3>E2;E3>=E4);"max";ЕСЛИ(ИЛИ(И(E3*E2<=0;ABS(E3)<ABS(E2));И(E3*E4<=0;ABS(E3)<ABS(E4)));"ZERO";"")))".
Для этого диапазон с результатами этой формулы указываем в отдельной функции МАКС(), предварительно исправив первую формулу таким образом, чтобы она отображала не текстовые значения, а числовые, например, так "=ЕСЛИ(ABS(A2)<ABS(A1);A1;"")"
 
 
 
#10
08.11.2013 13:38:48
В примере который приложен к первому сообщению, столбец который выделен оранжевым и есть часть моего массива. Из массива с помощью формулы
Код
 "=ЕСЛИ(И(E3<E2;E3<=E4);"min";ЕСЛИ(И(E3>E2;E3>=E4);"max";ЕСЛИ(ИЛИ(И(E3*E2<=0;ABS(E3)<ABS(E2));И(E3*E4<=0;ABS(E3)<ABS(E4)));"ZERO";"")))".

были определены экстремумы (нули, максимумы и минимумы). Дело в том, что на этих интервалах (между нулями) не одно максимальное и минимальное значение, для решения моей задачи мне необходимо найти один (самое большое значение) максимум. Формулу которую вы мне посоветовали для определения максимумов
Код
=ЕСЛИ(ABS(A2)<ABS(A1);A1;"")

она мне выдает ряд максимальных значений между нулями, чтобы отбросить лишние максимальные значения и выбрать наибольший максимум из найденного ряда формула
Код
=МАКС(с:с)
мне не подходит, т.к. мой массив больше 100000 строк, т.е. равносильно ручной переборки значений, хотелось бы подобрать формулу, которая позволила определить эти максимальные значения сразу во всем массиве.
Прикрепил схематический рисунок, на котором изображен интервал между двумя нулями из большого массива, мне надо определить max3, и так со всеми интервалами во всем массиве.

Извините, что я сразу не объяснил поподробней.
 
 
 
#11
08.11.2013 13:59:03
Правильно ли я понял. Вы хотите для функции МАКС() ограничить выборку и передать в функцию найденные по формуле "=ЕСЛИ(И(E3<E2;E3<=E4);"min";ЕСЛИ(И(E3>E2;E3>=E4);"max";ЕСЛИ(ИЛИ(И(E3*E2<=0;ABS(E3)<ABS(E2));И(E3*E4<=0;ABS(E3)<ABS(E4)));"ZERO";"" ;) ))" значения?

Т.е. из базового массива значений кривой, формируется массив значений экстремумов, из него извлекаем 1 значение. Так?
Изменено: Павел - 08.11.2013 14:00:55
 
 
 
#12
08.11.2013 14:03:58
Да, одно значение для одного интервала.
Можно извлечь в другой столбец либо выделить значение в столбце с экстремумами
Изменено: exspe - 08.11.2013 14:37:30
 
 
 
#13
08.11.2013 14:38:03
Первый отрезок до первого нуля, правда, не придумал как просчитать. Проверьте, оно или нет.

Забыл добавить, что диапазон значений функции нужно выделять со второй ячейки. Т.е. первую цифру пропускаем, со второй и до последней указываем.
Изменено: Павел - 08.11.2013 14:39:45
 
 
 
#14
08.11.2013 15:03:05
Павел Это гениально!
Только один нюанс, можно ли сделать, так, чтобы значения при выводе соответствовали тем же строкам? Либо выделялись другим цветом в исходном массиве?
 
 
 
#15
08.11.2013 17:14:59
В принципе можно
 
 
 
#16
08.11.2013 17:42:47
Павел Спасибо Большое!
Да, конечно может мой вопрос покажется дурацким, но я не совсем понял, как вставляется кнопка  :oops:
 
 
 
#17
08.11.2013 17:56:45
через вкладку разработчик
http://office.microsoft.com/ru-ru/excel-help/HA101819080.aspx
 
 
 
#18
10.11.2013 14:42:40
Павел, хотел спросить у вас, а чтобы в Вашем коде выделить другим цветом мах и мин, надо добавить

Код
Interior.ColorIndex = 43 'zero
      .Interior.ColorIndex = 45 'max

в
Код
Arr(CurRange.Find(d, lookAt:=xlWhole).Row - .Cells(1).Row + 1, 0) = d
и
Zero = .Cells(l, 1)


или я ошибаюсь?
 
 
 
#19
10.11.2013 15:04:40
Выделяете ячейку Cells(CurRange.Find(d, lookAt:=xlWhole).Row - .Cells(1).Row + 1, здесь_укажите_номер _столбца) - это для макс. И для Zero можно напрямую задавать цвет: Zero.Interior.ColorIndex = 43
Изменено: Павел - 10.11.2013 15:14:10
 
 
 
#20
10.11.2013 15:12:13
Цитата
Павел пишет:
Выделяете ячейку Cells(CurRange.Find(d, lookAt:=xlWhole).Row - .Cells(1).Row + 1, здесь_укажите_номер _столбца)

номер или буквенное обозначение?
 
 
 
#21
10.11.2013 15:14:29
номер
 
 
 
#22
10.11.2013 15:24:06
спасибо, буду пробовать.
 
 
 
#23
11.11.2013 08:44:08
Павел, Доброе утро!
Пробовал внести изменения в код, для выделения ячеек, и заметил, что они выделяются с погрешностью (в 1-2 ячейки), как можно это поправить?
И хотел уточнить, какой строкой кода вы выводите результат в столбец "D"
 
 
 
#24
11.11.2013 20:49:34
Строкой
Код
.Offset(0, 2).Resize(, 1).Value = Arr

В команде Offset(0,2) говорит , что смещение должно быль на 0 строк внизу и на 2 столбца вправо.
А по поводу заливки цвета, то может использовали бы условное форматирование? Посмотрите на форуме примеры, так будет проще. (просто этот вопрос как бы к теме уже не относится)
 
 
 
#25
11.11.2013 21:35:45
Да насчет заливки это не особо критично, просто хотел понять, как устроен код.

У меня возник вопрос по еще одной строке:

Код
For l = 2 To UBound(Arr, 1)
Это обозначаются переменная для исходных данных из 2го столбца до конца массива, я правильно понял?
 
 
 
#26
11.11.2013 22:21:51
Почти. Если быть точным, то задается цикл (повтор операций) от l=2 до размер массива по первому измерению.

Если вы решили разобраться с логикой кода, то все просто: макрос перемножает текущую и следующую ячейку и в случае отрицательного значения фиксирует нуль, а когда находит второй нуль, то ищет на отрезке между текущим и предыдущим максимальное значение по [модулю], затем определяет его адрес на отрезке и записывает под этим адресом в массив.
Изменено: Павел - 11.11.2013 22:33:44
 
 
 
#27
12.11.2013 08:30:59
Павел, Благодарю Вас за помощь ;)
 
 
 
Страницы: 1
Читают тему
Наверх