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