読者です 読者をやめる 読者になる 読者になる

Wolfram / 方形波の合成

s[x_, n_] = (4/Pi)*Sum[Sin[(2 k - 1) x]/(2 k - 1), {k, 1, n}];
Manipulate[Plot[Evaluate[s[x, n]], {x, -2 Pi, 2 Pi}, PlotRange -> {-3, 3}], {n, 1, 10, 1}]

参考: レクチャーズオンMathematica, p.91-92

広告を非表示にする