Wolfram Language

Graphen und Netzwerke

Netzwerke des Isotop-Zerfalls

Erstellen Sie mit der neuen RelationGraph-Funktion Netzwerke, die den Zerfall eines Isotops darstellen.

Den kompletten Wolfram Language-Input zeigen
In[1]:=
Click for copyable input
DaughterNuclides[s_List] := DeleteCases[ Union[Apply[Join, Map[IsotopeData[#, "DaughterNuclides"] &, DeleteCases[s, _Missing]]]], _Missing]; ReachableNuclides[s_List] := FixedPoint[Union[Join[#, DaughterNuclides[#]]] &, s]; verts = ReachableNuclides[{"Uranium235"}]; vsym = IsotopeData[#, "Symbol"] & /@ verts; opts = {VertexLabels -> Thread[verts -> (Placed[#, Center] & /@ vsym)], PlotTheme -> "ClassicDiagram", VertexSize -> {.5, .3}}; DaughterNuclidesQ[s1_, s2_] := (s1 =!= s2 && MemberQ[DaughterNuclides[{s1}], s2]);
In[2]:=
Click for copyable input
RelationGraph[DaughterNuclidesQ, verts, opts]
Out[2]=

Verwandte Beispiele

en es fr ja ko pt-br ru zh