MathGroup Archive 2000

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

Search the Archive

Re: Can I make this shape?


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