Element isotopes and ionization energies for Experiment 9

If[$VersionNumber <9.0,
DialogInput[
Column[{Beep[];
TextCell["This notebook requires Mathematica v9.0 or later. "<>
"Try using \"ionization energies.legacy.nb\" instead.",
"Subsubsection"],
DefaultButton["    OK    ",DialogReturn[True]]
}]]
]

A couple of good constants to have available for your data analysis

(Quantity["electron charge"]/Quantity["atomic mass unit"])~UnitConvert~"Metric"

Quantity["Torr"]~UnitConvert~"Metric"//N

(Quantity["BoltzmannConstant"]Quantity[ 298. ,"Kelvin"])~UnitConvert~"Metric"

Alkali Metals

alkalis=ElementData["AlkaliMetal","Name"]//Most;
alkalis=StringJoin[Join[{ToUpperCase[First[#]]},Rest[#]]]&/@Characters[alkalis]

energies=First/@(ElementData[#,"IonizationEnergies"]&/@alkalis)
energies/=Quantity["Avogadro's Number"]/Quantity["Moles"];
energies = energies~UnitConvert~"Electron Volt"

isotopes={#,ElementData[#,"IsotopeAbundances"]}&/@alkalis

Print[Style["Alkali Metal Isotopes and Abundances",Bold,Italic]]
Print[isotopes//TableForm]
Print[]
Print[Style["Alkali Metal Ionization Energies (eV)",Bold,Italic]]
Print[{alkalis,energies}//Transpose//TableForm]

(* Tantalum work function = 4.25 eV *)

Halogens

halogens=ElementData["Halogen","Name"]//Most//Most;
halogens=StringJoin[Join[{ToUpperCase[First[#]]},Rest[#]]]&/@Characters[halogens]

afinities=N[ElementData["Halogen","ElectronAffinity"]//Most//Most]
afinities/=Quantity["Avogadro's Number"]/Quantity["Moles"];
afinities = afinities~UnitConvert~"Electron Volt"

isotopes={#,ElementData[#,"IsotopeAbundances"]}&/@halogens

Print[Style["Halogen Isotopes and Abundances",Bold,Italic]]
Print[isotopes//TableForm]
Print[]
Print[Style["Halogen Electron Affinities (eV)",Bold,Italic]]
Print[{halogens,afinities}//Transpose//TableForm]