I again have problems about scaling the graphic :S
Code:
s = 50;
x = Table[1, {i, 1, s}];
xmin := 1;
xmax := 1;
For[i = 3, i <= s - 1, i++,
c = 16/9*x[[i]] - 2/3*x[[i - 1]] - 1/3*x[[i - 2]];
x[[i + 1]] := c;
xmin = If[c < xmin, c, xmin];
xmax = If[c > xmax, c, xmax];
]
Graphics[Point[Table[{i, x[[i]]}, {i, 1, s, 1}]], Axes -> True]
I found out that the following code is more useful:
Code:
s = 50;
x = Table[1, {i, 1, s}];
For[i = 3, i <= s - 1, i++, x[[i + 1]] = 16/9*x[[i]] - 2/3*x[[i - 1]] - 1/3*x[[i - 2]] ]
ListPlot[Table[{i, x[[i]]}, {i, 1, s}]]