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