Wolfram mathematica mathematica中的误导性情节问题

Wolfram mathematica mathematica中的误导性情节问题,wolfram-mathematica,Wolfram 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],

我想通过在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}]
mod2[x_]:=Which[Mod[x,2]>=1,-2+Mod[x,2],True,Mod[x,2];

f[x_3;]:=其中[-1您需要将PlotPoints的设置增加很多才能获得“良好”的结果

Plot[Evaluate[
  Reverse[{fn[x, 0], fn[x, 1], fn[x, 2], fn[x, 5]}]], {x, -2, 2}, 
 PlotPoints -> 4000]
(我还颠倒了函数的顺序,以便能够看到所有曲线。)