私は、信号処理とフーリエ変換という授業で次のように教えています。
直交系による展開の係数 |
直交系
によって、関数 が
|
の場合は、 , であるから、 次のコードで計算できる。
Clear[a] a[n_]:=a[n]=Integrate[x Sin[lambda[n] x], {x,0,1}]/Integrate[Sin[lambda[n] x]^2, {x,0,1}] Table[a[n],{n,10}] |
Out[] = {0.729175, -0.156164, 0.0613973, -0.0321584, 0.0196707, -0.0132429, 0.00951282, -0.00715998, 0.0055821, -0.00447313} |