Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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