Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: '2d polygon -> 3d polygon problem' topicStudent Support Forum > General > "2d polygon -> 3d polygon problem"

Next Comment >Help | Reply To Topic
Author Comment/Response
David Ng
11/25/05 11:00pm

Hi can anybody help me with this problem. I am trying to convert a 2d polygon into a 3d polygon. The 2d polygon looks exactly like how I wanted it, but when I tried to plot it in 3d, there is this weird effect where the polygon fills out weirdly. Here is the code. Thanks.

curve[x_] = (1 - 0.2Sin[x]) (2 - 0.3Cos[-4]);
g = Plot[{curve[x], curve[x] - 0.5}, {x, -2, 2}];
pt2d = Join[
g[[1, 1, 1, 1, 1]], Reverse[g[[1, 2, 1, 1, 1]]]];
pt3d = Insert[#, -2, 2] & /@ Join[g[[1,
1, 1, 1, 1]], Reverse[g[[1, 2, 1, 1, 1]]]];
Show[Graphics[Polygon[
pt2d]]]
Show[Graphics3D[Polygon[
pt3d]]]

URL: ,

Subject (listing for '2d polygon -> 3d polygon problem')
Author Date Posted
2d polygon -> 3d polygon problem David Ng 11/25/05 11:00pm
Re: 2d polygon -> 3d polygon problem yehuda ben-s... 11/27/05 05:56am
Re: 2d polygon -> 3d polygon problem David Ng 11/29/05 02:36am
Next Comment >Help | Reply To Topic