Iterative process using IsotopeData.
- To: mathgroup at smc.vnet.net
- Subject: [mg118683] Iterative process using IsotopeData.
- From: Guillermo Sanchez <guillermo.sanchez at hotmail.com>
- Date: Sat, 7 May 2011 07:32:15 -0400 (EDT)
Dear group
I would like a eleghant solution of this iterative process (perhaps
using NestList or FoldList}:
In[1]: First[IsotopeData["U238", "DaughterNuclides"]]
Out[1]: "Thorium234"
In[2]: First[IsotopeData[%, "DaughterNuclides"]]
Out[2]:"Protactinium234"
In[3]: First[IsotopeData[%, "DaughterNuclides"]]
Out[3]: "Uranium234"
and so on n times (the best solution would be if the process stop when
find that there not more isotopes, that is when Out[n] = { })
and them
{"U238", "Protactinium234", "Uranium234", ...}
Any help?
Guillermo