반복적 인 프로세스를 사용하여 일련의 함수를 만드는 정말 기본적인 루프를 수행하려고합니다. 나는 수년 전에 Mathematica의 이전 버전을 사용했고 이것이 효과가 있다고 생각했습니다. 어떤 도움을 주시면 감사하겠습니다.간단한 루프에서 재귀 깊이 256 초과했습니다
다음은 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}}]