Message Boards

WOLFRAM COMMUNITY

6797 Views

3 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Get a 3D model on this graph?

ONCHUN MATH

Posted 7 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

Sort By:

Marco Thiel

Marco Thiel, University of Aberdeen - Dept. of Physics/Mathematics

Posted 7 years ago

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

POSTED BY: Marco Thiel

ONCHUN MATH

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

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