Return to index: [Subject] [Thread] [Date] [Author]

Re: dodecahedron

[Subject Prev][Subject Next][Thread Prev][Thread Next]
In a message dated 7/20/01 10:21:46 AM Eastern Daylight Time, 
kalo36(--nospam--at)yahoo.com writes:

> i am looking for someone who has a geometric data for
>  a dodecahedron...
>  
>  is there someone on this list?
>  
>  gracias.

Here, live it up....

In[1]:=<< Graphics`Polyhedra`
In[2]:=Dodecahedron[]
Out[2]=
{Polygon[{{0.525731, 0.381966, 0.850651}, 
    {-0.200811, 0.618034, 0.850651}, 
    {-0.649839, 0., 0.850651},  
    {-0.200811, -0.618034, 0.850651}, 
    {0.525731, -0.381966, 0.850651}}], 
  Polygon[{{0.525731, 0.381966, 0.850651}, 
    {0.525731, -0.381966, 0.850651}, 
    {0.850651, -0.618034, 0.200811}, 
    {1.05146, 0., -0.200811}, 
    {0.850651, 0.618034, 0.200811}}], 
  Polygon[{{0.525731, 0.381966, 0.850651}, 
    {0.850651, 0.618034, 0.200811}, 
    {0.32492, 1., -0.200811}, 
    {-0.32492, 1., 0.200811}, 
    {-0.200811, 0.618034, 0.850651}}], 
  Polygon[{{-0.200811, 0.618034, 0.850651}, 
    {-0.32492, 1., 0.200811}, 
    {-0.850651, 0.618034, -0.200811}, 
    {-1.05146, 0., 0.200811}, 
    {-0.649839, 0., 0.850651}}], 
  Polygon[{{-0.649839, 0., 0.850651}, 
    {-1.05146, 0., 0.200811}, 
    {-0.850651, -0.618034, -0.200811}, 
    {-0.32492, -1., 0.200811}, 
    {-0.200811, -0.618034, 0.850651}}], 
  Polygon[{{-0.200811, -0.618034, 0.850651}, 
    {0.525731, -0.381966, 0.850651}, 
    {0.850651, -0.618034, 0.200811}, 
    {0.32492, -1., -0.200811}, 
    {-0.32492, -1., 0.200811}}], 
  Polygon[{{0.850651, 0.618034, 0.200811}, 
    {1.05146, 0., -0.200811}, 
    {0.649839, 0., -0.850651}, 
    {0.200811, 0.618034, -0.850651}, 
    {0.32492, 1., -0.200811}}], 
  Polygon[{{-0.32492, 1., 0.200811}, 
    {0.32492, 1., -0.200811}, 
    {0.200811, 0.618034, -0.850651}, 
    {-0.525731, 0.381966, -0.850651}, 
    {-0.850651, 0.618034, -0.200811}}], 
  Polygon[{{-1.05146, 0., 0.200811}, 
    {-0.850651, 0.618034, -0.200811}, 
    {-0.525731, 0.381966, -0.850651}, 
    {-0.525731, -0.381966, -0.850651}, 
    {-0.850651, -0.618034, -0.200811}}], 
  Polygon[{{-0.32492, -1., 0.200811}, 
    {-0.850651, -0.618034, -0.200811}, 
    {-0.525731, -0.381966, -0.850651}, 
    {0.200811, -0.618034, -0.850651}, 
    {0.32492, -1., -0.200811}}], 
  Polygon[{{0.850651, -0.618034, 0.200811}, 
    {0.32492, -1., -0.200811}, 
    {0.200811, -0.618034, -0.850651}, 
    {0.649839, 0., -0.850651}, 
    {1.05146, 0., -0.200811}}], 
  Polygon[{{0.200811, 0.618034, -0.850651}, 
    {0.649839, 0., -0.850651}, 
    {0.200811, -0.618034, -0.850651}, 
    {-0.525731, -0.381966, -0.850651}, 
    {-0.525731, 0.381966, -0.850651}}]}

and a scale factor, origin, rho and theta of your choice.

-Doogle


* 
*   This email was sent to you via Structural Engineers 
*   Association of Southern California (SEAOSC) server. To 
*   subscribe (no fee) or UnSubscribe, please go to:
*
*   http://www.seaint.org/sealist1.asp
*
*   Questions to seaint-ad(--nospam--at)seaint.org. Remember, any email you 
*   send to the list is public domain and may be re-posted 
*   without your permission. Make sure you visit our web 
*   site at: http://www.seaint.org