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