|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск максимумов суммы двух синусоид
Привет! Помогите пожалуйста! Я строю в чарте сумму двух синусоид Series1.AddXY(I,(0.1* sin(2*3.14*25*I/500)+0.15*sin(2*3.14*5*I/200)),'',clRed), мне нужно найти расстояние между максимумами полученной синусоиды.
|
#2
|
||||
|
||||
Локальный максимум находится через первую производную. Значит находим производную и определяем.
Второй вариант - зайти на wolframalpha.com и ввести max(0.1* sin(2*pi*25*X/500)+0.15*sin(2*pi*5*X/200)), после чего получить в ответе координаты максимумов (где написано "at X = -17.4207 + 40n" и где вторая похожая строка). jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 24.05.2015 в 20:49. |
#3
|
|||
|
|||
Дело в том, что мне нужно найти раcстояние между ближайшими максимумами и реализовать это я должна в delphi)
|
#4
|
||||
|
||||
Функция не приходит извне, она задана в коде. Следовательно, от нее можно заранее подсчитать производную, следовательно, точки максимума можно определить заранее и посчитать расстояние между ними в виде числа. Хочешь - пиши считалку производных в делфи, но ни один здравомыслящий программист такой глупостью заниматься не будет. Если ответ может быть подсчитан однажды и получен в виде числа или какой-то формулы, он и должен быть получен именно так. В итоге весь код сведется к memo1.text := '<заранее_подсчитанное_число>'.
Можно идти по I с маленьким шагом и искать, когда функция начнет уменьшаться, и принимать эту точку за максимум. Но это еще большая глупость, чем считалка производных, т.к. дает только приблизительный ответ. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 24.05.2015 в 21:49. |
#5
|
||||
|
||||
А вейвлет прогнать? Потом по спектру вычислить частоты.
Хотя тоже та еще коноебь обрабатывать спектр. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |