График разложения Фурье с помощью gnuplot

После вычисления коэффициентов Фурье моей функции я хотел бы построить первые члены серии. Тем не менее, я не могу получить правильный результат...

Это не вопрос неправильных коэффициентов, так как он отображается правильно https://www.desmos.com/calculator/dh84khkc1o С кодом gnuplot ниже

set terminal pngcairo
set output 'Fourier.png'
set samples 2000;

aa = -pi/2;
bb = pi/2;
repete(x) = (x-(bb-aa)*floor((x-aa)/(bb-aa)));
ff(x) = (-pi/2<x) && (x<0) ? x-cos(x)+1 : ((0<=x) && (x<pi/2)) ? x+cos(x)-1: 0;
fourier(k, x) = ((1-pi/2)*((-1)**k)+1/(4*k**2-1)) * sin(2*k*x) / k;

plot ff(repete(x)), 2/pi*sum [k=1:50] fourier(k,x)

У меня есть разрывы, но часть "cos" становится прямой.

1 ответ

Решение

Поскольку "k" в вашем вызове Фурье (k,x) является индексной переменной итератора [k=1:50], это целое число. Функция Фурье, однако, ожидает реального. Ваш сюжет фиксируется путем изменения команды заговора в

 plot ff(repete(x)), 2/pi*sum [k=1:50] fourier(real(k),x)
Другие вопросы по тегам