私は、信号処理とフーリエ変換という授業で次のように教えています。
| 直交系による展開の係数 |
|
直交系
|
の場合は、
,
であるから、
次のコードで計算できる。
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}
|