In picture 2 we made a petal and then made a flower. Now we want to put the flower onto a surface so that it is 3dimensional. Eventually, we want to 3d print the flower on the surface. Please help!
Thanks
Welcome to Wolfram Community! Please make sure you know the rules: https://wolfr.am/READ-1ST
The rules explain how to format your code properly. Posting code Images doesn’t help other members to copy your code. Please EDIT your post and make sure code blocks start on a new paragraph and look framed and colored like this.
int = Integrate[1/(x^3 - 1), x];
Map[Framed, int, Infinity]
You can also embed notebook or attach notebook.
Lanee Young,
here is one simple way:
(* complete flower as polar plot: *)
ppl = PolarPlot[.5 (7.89 + 8.12 Cos[4 t] + 8.526 Sin[4 t]^2), {t, 0, 2 Pi}];
(* as a little hack - destillation of points: *)
pts = Cases[ppl, Line[{pts__}] :> pts, All];
(* converting as a region: *)
reg = DiscretizeGraphics@Graphics[Polygon[pts]];
(* plot - suitable for 3D-printing: *)
Plot3D[(x^2 - y^2)/25, {x, y} \[Element] reg, BoxRatios -> Automatic,
PlotTheme -> "ThickSurface", ImageSize -> Large]
THANK YOU SO MUCH! THIS IS A GREAT IDEA!
Just for completeness - if you really want to create a 3D-print, then you could continue like so:
gr = Plot3D[(x^2 - y^2)/25, {x, y} \[Element] reg, BoxRatios -> Automatic, PlotTheme -> "ThickSurface",
ImageSize -> Large, PlotPoints -> 30];
flower = RegionUnion[DiscretizeGraphics[gr], Region@Sphere[{0, 0, 0}, 1.5]]
