Message Boards Message Boards

0
|
6108 Views
|
3 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Get a 3D model on this graph?

Posted 6 years ago

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}]
POSTED BY: ONCHUN MATH
3 Replies

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

enter image description here

Cheers,

Marco

POSTED BY: Marco Thiel
Posted 6 years 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"]
POSTED BY: ONCHUN MATH

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 BY: Daniel Lichtblau
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