Integral Foutier PDF
Uploaded by
Daniel CastañedaIntegral Foutier PDF
Uploaded by
Daniel Castañedaf[x_] = Piecewise[{{1, - 1 < x < 1}, {0, 1 < x < 2}}]
1 -1 < x < 1
In[ ]:=
Out[ ]=
0 True
Plot[f[x], {x, - 3, 3}]
1.0
0.8
0.6
Out[ ]=
0.4
0.2
-3 -2 -1 1 2 3
Pasos fundamental para ese calculo A (w), B (w) y la formula de la integral de fourier
Calculo de la integral de fourier,
∞
A[w_] = f[v] Cos[v * w] v
1
π -∞
In[ ]:=
2 Sin[w]
πw
Out[ ]=
∞
B[w_] = f[v] Sin[v * w] v
1
π -∞
In[ ]:=
Out[ ]= 0
∞ Sin[w] Cos[w * x]
integral fourier f (x) = w
2
π 0 w
Formulas de iteraciones
Cos[w * x]
S[n_] = w
2 n Sin[w]
π
In[ ]:=
w
SinIntegral[n (1 + x)] + SinIntegral[n - n x]
0
π
Out[ ]=
Printed by Wolfram Mathematica Student Edition
2 Integral de Fourier.nb
In[ ]:= Plot[S[8], {x, - 3, 3}]
1.0
0.8
0.6
Out[ ]=
0.4
0.2
-3 -2 -1 1 2 3
In[ ]:= Plot[{f[x], S[8], S[11.1], S[35.3]}, {x, - 3, 3}]
1.0
0.8
0.6
Out[ ]=
0.4
0.2
-3 -2 -1 1 2 3
x
Sin[x]
In[ ]:=
x
Out[ ]= SinIntegral[x]