Serie de Fourier
Forma trigonométrica
In[1]:= To = Pi
número pi
f[t_] := t + 1 2 ^ 2
wo = 2 * Pi To
número pi
ao = 2 To * Integratef[t], t, - To 2, To 2 // FullSimplify
integra simplifica completamente
an = 2 To * Integratef[t] * Cos[n * wo * t], t, - To 2, To 2 // FullSimplify
integra coseno simplifica completamente
bn = 2 To * Integratef[t] * Sin[n * wo * t], t, - To 2, To 2 // FullSimplify
integra seno simplifica completamente
Out[1]= π
Out[3]= 2
1
Out[4]= 3 + π2
6
2 n π Cos[n π] + - 2 + n2 1 + π2 Sin[n π]
Out[5]=
2 n3 π
- n π Cos[n π] + Sin[n π]
Out[6]=
n2 π
In[7]:= Table[{n, an, bn}, {n, 1, 5}] // TableForm
tabla forma de tabla
Out[7]//TableForm=
1 -1 1
1
2 -1
4 2
3 -1 1
9 3
1
4 -1
16 4
5 - 1 1
25 5
In[8]:= serie = ao 2 + Sum[an * Cos[n * wo * t] + bn * Sin[n * wo * t], {n, 1, 20}];
suma coseno seno
2 Series de [Link]
In[9]:= Plotserie, t + 1 2 ^ 2, {t, - 2, 2}
representación gráfica
Out[9]=
3
-2 -1 1 2
Series de [Link] 3
Forma reducida.
In[10]:= Co = ao 2
Cn = Sqrt[an ^ 2 + bn ^ 2];
raíz cuadrada
phin = ArcTanbn an;
arco tangente
serie2 = Co + Sum[Cn * Cos[n * wo * t + Pi - phin], {n, 1, 20, 2}] +
suma coseno número pi
Sum[Cn * Cos[n * wo * t + 2 * Pi - phin], {n, 2, 20, 2}] // N;
suma coseno número pi valor numérico
Table[{n, an, bn, Cn, phin}, {n, 1, 5}] // TableForm // N
tabla forma de tabla valor numérico
Plotserie2, t + 1 2 ^ 2, {t, - 2, 2}
representación gráfica
1
Out[10]= 3 + π2
12
Out[14]//TableForm=
1, - 1, 1, 1,4142135623730951 - 0,7853981633974483
2, 0,25 - 0,5 0,5590169943749475 - 1,1071487177940904
3, - 0,1111111111111111 0,3333333333333333 0,35136418446315326 - 1,2490457723982544
4, 0,0625 - 0,25 0,2576941016011038 - 1,3258176636680326
5, - 0,04 0,2 0,2039607805437114 - 1,373400766945016
Out[15]=
3
-2 -1 1 2
Desarrollo de medio rango.
Sea la función definida en [0,2]
f(t) = 0, para 0<t<=1/2;
f(t)=-x+1, para 1/2<t<=3/2;
f(t)=0, para 3/2<t<2.
Desarrollar en Serie de Fourier como :
4 Series de [Link]
a) función periódica par.
b) función periódica impar.
c) función periódica.
In[16]:= g[t_] := Whicht ≤ 1 2, 0, 1 2 < t ≤ 3 2, t - 1, 3 2 < t, 0
cuál
Plot[g[t], {t, - 2, 2}, AxesLabel → Automatic, Ticks → {{- 1, 1, 2}, {- 0,5, 0,5}}]
representación gráfica etiqueta de e⋯ automático marcas
0,5
Out[17]= t
-1 1 2
-0,5
Series de [Link] 5
Función par en [-2,2]:
In[18]:= h[t_] := Which- 2 < t ≤ - 3 2 , 0,
cuál
-3 2 < t ≤ -1 2 , - t - 1,
-1 2 < t ≤ 1 2 , 0,
12 < t ≤ 32 , t - 1,
32 < t < 2 , 0
Plot[h[t], {t, - 2, 2}, AxesLabel → Automatic, Ticks → {{- 1, 1, 2}, {- 0,5, 0,5}}]
representación gráfica etiqueta de e⋯ automático marcas
0,5
Out[19]= t
-1 1 2
-0,5
6 Series de [Link]
In[20]:= To = 4
wo = 2 * Pi To
número pi
ao = 2 To * Integrateh[t], t, - To 2, To 2 // FullSimplify;
integra simplifica completamente
an = 2 To * Integrateh[t] * Cos[n * wo * t], t, - To 2, To 2 // FullSimplify;
integra coseno simplifica completamente
serie3 = ao 2 + Sum[an * Cos[n * wo * t], {n, 1, 20}];
suma coseno
Plot[{serie3, h[t]}, {t, - 2, 2}, Ticks → {{- 2, - 1, 1, 2}, {- 0,5, 0,5}}]
representación gráfica marcas
Out[20]= 4
π
Out[21]=
2
0,5
Out[25]=
-2 -1 1 2
-0,5
Series de [Link] 7
Función impar en [-2,2]:
In[26]:= q[t_] := Which- 2 < t ≤ - 3 2 , 0,
cuál
-3 2 < t ≤ -1 2 , t + 1,
-1 2 < t ≤ 1 2 , 0,
12 < t ≤ 32 , t - 1,
32 < t < 2 , 0
Plot[q[t], {t, - 2, 2}, AxesLabel → Automatic, Ticks → {{- 1, 1, 2}, {- 0,5, 0,5}}]
representación gráfica etiqueta de e⋯ automático marcas
0,5
Out[27]= t
-1 1 2
-0,5
8 Series de [Link]
In[28]:= To = 4
wo = 2 * Pi To
número pi
bn = 2 To * Integrateq[t] * Sin[n * wo * t], t, - To 2, To 2 // FullSimplify;
integra seno simplifica completamente
qt = + Sum[bn * Sin[n * wo * t], {n, 1, 20}];
suma seno
Plot[{qt, q[t]}, {t, - 2, 2}, Ticks → {{- 2, - 1, 1, 2}, {- 0,5, 0,5}}]
representación gráfica marcas
Out[28]= 4
π
Out[29]=
2
0,5
Out[32]=
-2 -1 1
-0,5
Función periódica en [-2,2]: ídem punto anterior.
