3
$\begingroup$

How can I export Lorentz attractor from MMA as obj or stl format to Print3D.

solution = NDSolve[{Derivative[1][x][t] == -3 (x[t] - y[t]), 
Derivative[1][y][t] == -x[t] z[t] + 26.5 x[t] - y[t], 
Derivative[1][z][t] == x[t] y[t] - z[t], x[0] == z[0] == 0, 
y[0] == 1}, {x, y, z}, {t, 0, 400}, MaxSteps -> \[Infinity]];

g=ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. s],{t, 0, 50}, PlotPoints -> 1000]

enter image description here

$\endgroup$
1

2 Answers 2

2
$\begingroup$
Export["test.stl", g /. Line -> Tube]
Export["test.stl",g /. Line[a_] -> Tube[a, .5]]

enter image description here

$\endgroup$
1
$\begingroup$

You can use Tube as styling directive:

pplot = ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. s], {t, 0, 50}, 
  PlotStyle -> {Red, Specularity[White, 10], Tube[.25]}, 
  Boxed -> False, Axes -> False, PlotRange -> All, 
  PlotPoints -> 1000, ImageSize -> Large]

enter image description here

Export["lorenz.stl", pplot]

enter image description here

Export["lorenz.obj", pplot]

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.