clear;
clc;
figure(1);
filename = 'fourier_sor_negyszog.gif';
delay=1;
t=0:0.01:2*pi;
y=sin(t); % egyszeru szinuszjel
f=0;
for k=1:1:42
    if(rem(k,2)~=0)
        f=f+(sin(k*t)/k); % paratlan szamu felharmonikus
        plot(t,f);
        title(strcat('Fourier-sorfejtés négyszögjelre. k=',num2str(k)));
        frame = getframe(1);
        im = frame2im(frame);
        [imind,cm] = rgb2ind(im,256);
        if k == 1
        imwrite(imind,cm,filename,'gif', 'Loopcount',inf,'DelayTime',delay);
        else
        imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',delay);
        end;
    end;
end;
