Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Can I make this shape?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg26494] Re: [mg26485] Can I make this shape?
  • From: BobHanlon at aol.com
  • Date: Thu, 28 Dec 2000 21:31:28 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Looking up pentagon in the index directs one to the package:

Needs["Geometry`Polytopes`"];

v = Vertices[Pentagon];

Show[Graphics[{RGBColor[0, 0, 1], Polygon[v]}], AspectRatio -> 1];

If you want to rotate it there is another package:

Needs["Geometry`Rotations`"]

v = Simplify[Rotate2D[#,3Pi/10,{0,0}]& /@ v];

(*  this uses exact numbers for "perfect" pentagon  *)
(*  rotation is faster if you use approximate numbers.  *)
(*  v = Rotate2D[#, N[3Pi/10],{0.,0.}]& /@ v;  *)

Show[Graphics[{RGBColor[0, 0, 1], Polygon[v]}], AspectRatio -> 1];


Bob Hanlon

In a message dated 12/28/00 3:21:44 AM, nitehawk at sympatico.ca writes:

>I was wondering if It was possible to make a perfect pentagon in
>mathematica??
>


  • Prev by Date: RE: Reading only numbers
  • Next by Date: Re: NEED HELP! Mathematica seems to "forget" that a package has been loaded
  • Previous by thread: Can I make this shape?
  • Next by thread: please tell me if individual contours can be labled in ContourPlot