onchunmath
(ONCHUN MATH)
1
I want to do 3D printing on this graph. But the bottom does not have to be filled. Thank you for your help.
ParametricPlot3D[{{t, 1/2 (1 - Abs[t] + Sqrt[1 - t^2]),
1/2 (-1 + Abs[t] + Sqrt[1 - t^2])}, {t,
1/2 (-1 + Abs[t] - Sqrt[1 - t^2]),
1/2 (1 - Abs[t] - Sqrt[1 - t^2])}}, {t, -1, 1}]
danl
(Daniel Lichtblau)
2
It’s one dimensional (a curve) so physical printing in 3D will be a challenge. Might be better to make it a tubular surface.
onchunmath
(ONCHUN MATH)
3
Thank you. I find this way. Improve it plz!!
a = ParametricPlot3D[{t, 1/2 (-1 + Abs[t] - Sqrt[1 - t^2]),
v}, {t, -1, 1}, {v, 0, 3 + 1/2 (1 - Abs[t] - Sqrt[1 - t^2])},
PlotTheme -> "ThickSurface"]
b = ParametricPlot3D[{ t, 1/2 (1 - Abs[t] + Sqrt[1 - t^2]),
v}, {t, -1, 1}, {v, 0, 3 - 1/2 (1 - Abs[t] - Sqrt[1 - t^2])},
PlotTheme -> "ThickSurface"]
mthiel
(Marco Thiel)
4
What exactly do you want to improve? The object prints just fine with Mathematica:
Cheers,
Marco