我正在尝试做一个非常基本的循环,它使用迭代过程创建一系列函数。多年前我使用了早期版本的Mathematica,并认为这很有效。任何帮助,将不胜感激。
这是应用于函数 g(x)=x 的基本思想。我不断收到超过 256 的递归深度的错误。它也没有显示情节。
g[x_] := x;
For[i = 1, i < 4, i++,
f1[x_] := .25*g[2*x] + .25*2*x;
f2[x_] := .25*g[2*x - 1] - .25*(2*x - 1) + .25;
g[x_] := If[0 <= x <= .5, f1[x], f2[x]]
];
Plot[g[x], {x, 0, 1}, PlotRange -> {{0, 1}, {0, 1}}]