Здравствуйте! Помогите пожалуйста решить задачку. Пытаюсь разобраться преобразованием Фурье (дискретным). На прстой задаче столкнулся с проблемой:
- амплитуда для 2*Sin[x] должны быть примерно 2, если использовать функцию FourierTransform так и получается
ListPlot[Table[ Abs[FourierTransform[2*Sin[x], x, w]] /. DiracDelta -> DiscreteDelta, {w, 0.1, 10, 0.1}], Joined -> True, PlotRange -> All]
Если использую функцию Fourier, то тут все совсем по-другому.
data = Table[2*Sin[x], {x, 0, 100}];
ListPlot[data, Joined -> True]
ListPlot[Abs[Fourier[data]], Joined -> True, PlotRange -> All]
Как я понимаю все зависит в данном случае от диапазона значений x. В таком случае как добиться результата аналогичного варианту с функцией FourierTransform? Какие результаты вообще считать верными? Как высчитать истинную амплитуду?
Вариант использовать FourierTransform просто не подходит, так как функция в перспективе будет сложной и нужно дискретное преобразование.
Спасибо заранее.
