Polygons

• To: mathgroup at smc.vnet.net
• Subject: [mg64371] Polygons
• From: Anton Frühstück <a.fruehstueck at eduhi.at>
• Date: Tue, 14 Feb 2006 01:31:54 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

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

```

• Prev by Date: Re: How to do a SQL type operation???
• Next by Date: Re: Re: Awesome PDF writer
• Previous by thread: Re: Re: Re: Solve or Reduce?
• Next by thread: Re: Polygons