How to enter a nuclear reaction?

Question

Sometimes the simplest things are the most difficult, I need to make a presentation, and I thought to do it in Mathematica, I wanted to do a demonstration too, well...this is the Rutherford's equation

Can this be done in Mathematica?

Bob Hanlon · Accepted Answer

Perhaps this is close to what you want:
id = IsotopeData[#, "FullSymbol"] &;

id["Nitrogen14"] + id["Helium4"] -> id["Oxygen17"] + id["Hydrogen1"]

EDIT: Or to hold the order of the terms, i.e., to prevent them from being placed into canonical order,
Inactive[Plus][id["Nitrogen14"], id["Helium4"]] -> 
 Inactive[Plus][id["Oxygen17"], id["Hydrogen1"]]

EDIT 2: The original (simpler) form requested can be obtained using
id2 = IsotopeData[#]["FullSymbol"] &;

Jason B pointed out in a comment that id2 can also be written as
id2 = EntityValue[Entity["Isotope", #], "FullSymbol"] &;

For comparison,
id /@ {"Nitrogen14", "Carbon15", "Helium4", "Carbon12", 
  "Oxygen17", "Hydrogen1", "Carbon14"} // Sort

id2 /@ {"Nitrogen14", "Carbon15", "Helium4", "Carbon12", 
  "Oxygen17", "Hydrogen1", "Carbon14"} // Sort

How to enter a nuclear reaction?

One Answer

Add your own answers!

Ask a Question