9
$\begingroup$

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

enter image description here

Can this be done in Mathematica?

$\endgroup$
2
14
$\begingroup$

Perhaps this is close to what you want:

id = IsotopeData[#, "FullSymbol"] &;

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

enter image description here

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"]]

enter image description here

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

enter image description here

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

enter image description here

$\endgroup$
5
  • $\begingroup$ what is the "canonical order" here? $\endgroup$ Aug 3 '20 at 14:17
  • $\begingroup$ @NooneAtAll - the canonical order appears to be alphabetic. The original order {"N", "He"} changed to {"He", "N"}; and {"O", "H"} changed to {"H", "O"}. $\endgroup$
    – Bob Hanlon
    Aug 3 '20 at 14:24
  • 1
    $\begingroup$ it could also be from lightest to heaviest. Is there a place where the order rule is stated? $\endgroup$ Aug 3 '20 at 14:27
  • 1
    $\begingroup$ @NooneAtAll - Lightest to heaviest does seem to be the order. Look at Sort[id/@{"Nitrogen14", "Carbon15", "Helium4", "Carbon12", "Oxygen17", "Hydrogen1", "Carbon14"}]. Canonical order is "documented" in the "Details" section of the documentation for Sort $\endgroup$
    – Bob Hanlon
    Aug 3 '20 at 14:39
  • 1
    $\begingroup$ Just so it's clear what function is being called, I would replace the definition of id2 with id2 = EntityValue[Entity["Isotope",#],"FullSymbol"] & , and use EntityValue in general instead of IsotopeData $\endgroup$
    – Jason B.
    Aug 3 '20 at 18:34

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.