Forced Oscillations

This is an unevaluated Mathematica notebook. If you do not have a copy of Mathematica handy, you may want to also view the evaluated version

An Application of Fourier Series

Adapted from Erwin Kreysig, "Advanced Engineering Mathematics", Wiley.

Here are the orthogonal functions.


  Clear[u,v,L]


  u[x_,L_,n_]:=Cos[n Pi x/L]


  ColumnForm[Table[u[x,L,k],{k,0,10}]]

Note that u[x,L,0]=1 and this will be used.


  v[x_,L_,n_]:=Sin[n Pi x/L]


  ColumnForm[Table[v[x,L,k],{k,0,10}]]

Note that v[x,L,0]=0 and will not be used.