Re: de Jong fractal


Roger Bagula wrote:
Take out the Pi/180 ( radians to degrees conversion) factor...
that makes it give a fixed point as you observed ( and I did too).
I remember these well from Clifford Pickover!
In Mathematica this works to give the de Jong chaos:
x[0] = 0.3; y[0] = -0.3
x[n_] := x[n] = Sin[(-2.24*y[n - 1])] - Cos[(0.43*x[n - 1])]
y[n_] := y[n] = Sin[(-0.65*x[n - 1])] - Cos[(-2.43*y[n - 1])]
a = Table[{x[n], y[n]}, {n, 0, 10000}];
ListPlot[a]

You got the scale wrong.



Thanks, taking out the pi/180 worked.

If I ever get ahold of Mathmatica, I'll try your code.

As an aside - do you know of any shareware than can turn cloud point
data (like this fractal) into a 3d model? I'd like to machine this
shape - right now I'm just going to drill 10,000 holes (with a CNC),
but would rather have a way to turn it into a path so it can be a
groove feature. Would be much more efficient.

.