‹›Grafos e redesFaça um gráfico das redes de decaimento de isótopos
Construa uma rede de decaimento de isótopos com a nova função RelationGraph.
mostre o input completo da Wolfram Language
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]);
RelationGraph[DaughterNuclidesQ, verts, opts]