Re: Polygons
- To: mathgroup at smc.vnet.net
- Subject: [mg64384] Re: Polygons
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Wed, 15 Feb 2006 03:31:55 -0500 (EST)
- Organization: Uni Leipzig
- References: <dsrubs$5ei$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Plot3D[] return a SurfaceGraphics[] object and you
must convert
into an ordinary Graphic3D[] object with
Plot3D[Sin[x*y],{x,0,Pi},{y,0,Pi}]//Graphics3D
ParametricPlot3D[] return already an list of
polygons.
You may use MathGL3d or the (free previous
version)
to look at your polygons interactive -- and
MathGL3d can
handle 10^5 polygons with out problems
Regards
Jens
"Anton Frühstück" <a.fruehstueck at eduhi.at> schrieb
im Newsbeitrag news:dsrubs$5ei$1 at smc.vnet.net...
|I would like to ask if anyone could tell me how a
three dimensional
| surface created by Mathematica can be
transformed into a sum of
| Polynomexpressions like the following simplified
example shows:
| Graphics3D[{{Polygon[{{-0.01841, -0.03010,
1.000}, {-0.01840, -0.02977,
| 1.000}, {-0.03367, -0.02963, 0.9999},
{-0.03367, -0.03010,
| 0.9999}}],
| Polygon[{{-0.01840, -0.02977, 1.000},
{-0.01838, -0.02881,
| 1.000}, {-0.03364, -0.02827, 0.9999},
{-0.03367, -0.02963,
| 0.9999}}],
| Polygon[{{-0.01838, -0.02881, 1.000},
{-0.01829, -0.02724,
| 1.000}, {-0.03351, -0.02602, 0.9999},
{-0.03364, -0.02827,
| 0.9999}}],
| Polygon[{{-0.01829, -0.02724, 1.000},
{-0.01805, -0.02508,
| 1.000}, {-0.03317, -0.02294, 0.9999},
{-0.03351, -0.02602,
| 0.9999}}],
| Polygon[{{-0.03344, 2.898, -0.03699}, {0, 2.902,
0}, {0, 3.468,
| 0}, {-0.04062, 3.464, -0.04282}}]}}]
|
| Then I would like to turn the surface with a
java applet. I suppose that
| the number of polygons representing the surface
should also be reduced
| for that purpose.
|
| Thanks,
|
| Anton Fruehstueck
|
| a.fruehstueck at eduhi.at
|
|