3
mathematicaでプロットすることで、いくつかの "奇妙な"関数を調べたいと思っています。一つの例は以下の通りです:mathematicaで誤ったプロットの問題
mod2[x_] := Which[Mod[x, 2] >= 1, -2 + Mod[x, 2], True, Mod[x, 2]];
f[x_] := Which[-1 <= x <= 1, Abs[x], True, Abs[mod2[x]]];
fn[x_, n_] := Sum[(3/4)^i*f[4^n*x], {i, 0, n}]
Plot[{fn[x, 0], fn[x, 1], fn[x, 2], fn[x, 5]}, {x, -2, 2}]
しかし、私はMMAからもらったプロットはfn[x, 5]
の最大値と最小値が同じ2つのレベルであるべきという意味で、誤解を招く恐れがあります。しかし、関数の高い振動と、明らかにmmaが関数を描くために限られた数の点しか取らないという事実のために、プロットは奇妙な挙動を示すことが分かります。これに対処するためのプロットのオプションはありますか?
感謝します。
なるほど。ありがとうございました。 –