Sum[Sequence[sin(n*x)/n,n,1,a]]：を使う方法がとても便利。Sequence[式, 変数 i, 数値 a, 数値 b]: 数値 a から数値 b までを動くインデックス i と与 えられた式を用いて作成されたオブジェクトのリストを作成します。 sumはそのリストの繰り返しの和を求めます。[br]