Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

Re: Periodic Table of Elements (Chemistry)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49149] Re: [mg48944] Periodic Table of Elements (Chemistry)
  • From: Yasvir Tesiram <yat at omrf.ouhsc.edu>
  • Date: Mon, 5 Jul 2004 04:54:28 -0400 (EDT)
  • References: <200406240936.FAA28065@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,
This may not be the complete solution, but from here on in you could 
use GraphicsArray to lay out the periodic table. Below is code that can 
be modified to create boxes of elements.


<< Graphics`Graphics`
<< Graphics`Colors`
<< Miscellaneous`ChemicalElements`

(* Make a background *)
box = Graphics[{{Red, Polygon[{{0, 0}, {0, 1}, {1, 1}, {1, 0}}]}}]

(* define graphics for element symbols *)
symName = Graphics[Text[Abbreviation[Elements[[1]]], {0.5, 0.625}, {0, 
0},
       TextStyle -> {FontFamily -> "Arial", FontSize -> "48"}
       ]
     ]

(* Likewise for Atomic Number *)
atomNumb = Graphics[Text[AtomicNumber[Elements[[1]]], {0.05, 0.9}, {-1, 
0},
       TextStyle -> {FontFamily -> "Arial", FontSize -> "40"}
       ]
     ]


(* Atomic Weight *)
atomWt = Graphics[Text[AtomicWeight[Elements[[1]]], {0.5, 0.3}, {0, 0},
       TextStyle -> {FontFamily -> "Arial", FontSize -> "20"}
       ]
     ]

(* Electronic Configuration *)
eConfig = Graphics[Text[ElectronConfigurationFormat[Elements[[1]]], 
{0.1, \
0.1}, {0, 0},
       TextStyle -> {FontFamily -> "Roman", FontSize -> "10"}
       ]
     ]

(* Chemical element full name *)
atomName = Graphics[Text[Elements[[1]], {0.5, 0.45}, {0, 0},
       TextStyle -> {FontFamily -> "Arial", FontSize -> "28"}
       ]
     ]

(* Show the whole thing *)
Show[box, symName, atomNumb, atomWt, eConfig, atomName, AspectRatio -> 
1]

Cheers
Yas



On Jun 24, 2004, at 4:36 AM, Bruce W. Colletti wrote:

> Can anyone point me to a notebook that builds a periodic table of
> elements (chemistry), a notebook that allows one to color the squares 
> at
> will?  WRI doesn't know of one and a websearch reveals none.
>
> I'm aware of the periodic table palette (found in Demos) and the
> standard package Miscellaneous`ChemicalElements`.  But these don't fill
> the bill:  I seek something similar to the standard packages that
> provide world maps.
>
> Thanks.
>
> Bruce


  • Prev by Date: Re: Excel formulas --> Mathematica
  • Next by Date: How Many Users Are Happy With FindRoot?
  • Previous by thread: Re: kelvin functions ker and kei
  • Next by thread: How Many Users Are Happy With FindRoot?