Thingiverse
Aizawa Attractor
5
Downloads
3
Likes
0
Makes
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[0] == z[0] == .1,
y[0] == 0
}, {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]
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[0] == z[0] == .1,
y[0] == 0
}, {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]
Did you print this model? Sign in and share your make!
Sign in to leave a comment
Sign inNo comments yet – be the first!