with(plots);
animate(plot, [[2/(abs(t)),2*sin(Omega*t)/t], t=-3..3, y=-5.
.40], Omega=1..20);
(1)(1)
t
0 1 2 3
y
10
20
30
40
W = 20.000
with(inttrans);
fourier(1,x,omega);
h:= proc(Omega) Heaviside(x+Omega) - Heaviside(x-Omega) end
(2)(2)
proc;
animate(plot,[h(Omega), x=-25..25], Omega=1..24);
x
0 10 20
1
W~ = 10.583
G:=fourier(h(Omega), x, omega);
assume(Omega>0); limit(G, omega=0); int(G, omega = 0..infinity);
assume(n>0); B:= fourier(h(20)*(3*cos(5*x)+cos(15*x)),x,omega);
(3)(3)
plot(fourier(h(20)*(3*cos(5*x) + cos(15*x)),x,omega), omega=-20.
.20);
w
0 10 20
10
20
30
40
50
C:= fourier(h(Omega)*cos(n*x),x,omega); X:= fourier(h(Omega)*x,
x, omega);
assume(Omega, real); assume(omega, real); Re(X); Im(X);
0
?FourierTransform