Contents

% demokantti0 8.12.08

Kanttiaallon Fourier-osasummia

X=[-pi 0 0 pi]; Y=[-1 -1 1 1];
plot(X,Y,'k'); ylim([-1.2 1.2]);shg


% Esim 1 (KRE s. 532) Kanttiaallon (jakso 2*pi) Fourier-sarjan osasummia

hold on
x=linspace(-pi,pi);
s1=(4/pi)*sin(x);
s3=s1+(4/pi)*sin(3*x)/3;
s5=s3+(4/pi)*sin(5*x)/5;


plot(x',[s1' s3' s5']); hold on
plot(X,Y); ylim([-1.2 1.2]);shg