Message Boards Message Boards

GROUPS:

Get a 3D model on this graph?

Posted 9 months ago
779 Views
|
3 Replies
|
0 Total Likes
|

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}]
3 Replies

It's one dimensional (a curve) so physical printing in 3D will be a challenge. Might be better to make it a tubular surface.

Posted 9 months ago

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"]

What exactly do you want to improve? The object prints just fine with Mathematica:

enter image description here

Cheers,

Marco

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract