Re: [Dmug] IsotopeData["Pu241", "HalfLife"]

[Udo und Susanne Krause via demug <demug@XXXXXXX.ch>]

Hallo Peter,

> es ist nicht clever ein 120 * 300 = 360'000 Element-Array mit ca.

da sind zwar nur 36'000 ... im Fall ist die schnellste Lösung für den  
isotopenPlot einfach aus den Daten heraus:

Clear[isos, isoTopos]
isos = IsotopeData[];
(* exclude the neutron {0,1} *)
isoTopos =
  Rest[Transpose[{Thread[X[isos, "AtomicNumber"]],
      Thread [X[isos, "MassNumber"]]}] /. X -> IsotopeData];

(* IsotopenPlot *)
ArrayPlot[SparseArray[isoTopos -> ConstantArray[1, Length[isoTopos]]],
 ColorRules -> {1 -> Cyan, 0 -> Yellow},
 Mesh -> Max[Transpose[isoTopos]]/5,
 Frame -> True, FrameTicks -> Automatic, FrameLabel -> {"Z", "A"},
 PlotLabel -> "Wolfram::Isotope"]


Grüsse
Udo.
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html