Re: [Dmug] Überschreiben einer Funktion

[Susanne & Udo Krause via demug <demug@XXXXXXX.ch>]

Moin moin Peter

On 1/25/2026 5:41 PM, Peter Klamser via demug wrote:
> Die VertexLabels -> makeVertexLabels[isotope] in RelationGraph sind
> nutzlos. Wenn ich die VertexLabels lösche, ändert sich nichts.


das liegt daran, dass man Funktionen verwendete, die sich ihre 
Aufrufsergebnisse merken, m.a.W.


Clear[makeDecayGraphSample]
makeDecayGraphSample[
  isotope_Entity] :=(* makeDecayGraphSample[isotope]= *)
 RelationGraph[DaughterNuclidesQ, children[isotope],
  VertexLabels -> "otto" (* makeVertexLabels[isotope]*),
  el = makeEdgeLabels[isotope];
  EdgeLabels -> ((#[[1]] ->
        convert$isotop$name@#[[2, 1, 1]] \[DirectedEdge]
          convert$isotop$name@#[[2, 1, 2]] -> Style[#[[2, 2, 2]],
          If[#[[2, 2, 2]] == "\[Alpha]", Red, Blue, Green],
          Large]) & /@ el),
  PlotRangePadding -> 1.65, ImageSize -> 600,
  PlotTheme -> "Scientific", ImageSize -> 2 2048]


und der ganze Graph ist ottonisch

Grüsse

Udo.

_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html