Aizawa Attractor

thingiverse

Inspired by ChaoticAtmospheres on DeviantArt--is a model of the Aizawa Attractor, a chaotic attractor. Produced in Mathematica. Mathematica code given below. Have never tried to print this--please let me know of your experiences. beta = 0.7; eps = 0.25; alph = 0.95; del = 3.5; gam = 0.6; chi = 0.1; Timing[soln = NDSolve[{ x'[t] == (z[t] - beta)x[t] + del y[t], y'[t] == del x[t] + (z[t] - beta)y[t], z'[t] == gam + alph z[t] - ((z[t])^3)/ 3 + ((x[t])^2 + (y[t])^2)(1 + eps z[t]) - chi z[t]*(x[t])^3 }, {x, y, z}, {t, 0, 200}, MaxSteps -> Infinity]]; plot = ParametricPlot3D[ Evaluate[{x[t], y[t], z[t]} /. soln], {t, 0, 200}, PlotRange -> All, PlotStyle -> Tube[.05, PlotPoints -> 100], Ticks -> None]; Export["aizawa.stl", plot]