Ein Teil des Codes wurde aus der folgenden Quelle übernommen: https://community.wolfram.com/groups/-/m/t/1733124\[AliasDelimiter] Warum kann ich die VertexEdges nicht vom Format (Beispiel) „Uran-235” in „U235” ändern? Dazu habe ich den Block convert$isotop$name[name$string] geschrieben, den ich gerne Die VertexLabels -> makeVertexLabels[isotope] in RelationGraph sind nutzlos. Wenn ich die VertexLabels lösche, ändert sich nichts. Ich möchte also die Ausgabe des Namens des Isotops ändern, ähnlich wie das in https://mathematica.stackexchange.com/questions/95625/overriding-a-built-in-function-with-custom-coded-procedures beschrieben wird: Unprotect[Entity["Isotope", Name_]["Name"]]; Entity["Isotope", Name_]["Name"] /; $override == True := Block[{$override = False}, convert$isotop$name@Entity["Isotope", Name]["Name"]]; Protect[Entity["Isotope", Name_]["Name"]]; Entity["Isotope", "U235"]["Name"] Dann bekomme ich nur die Meldung SetDelayed::write: Tag Entity in Entity[Isotope,Name_][Name]/;$override==True is Protected. Leider passiert da nixxxxxxxxxx. Vielen Dank und freundliche Grüße von Peter
decaytreeplot$umwnadlung$in$kurze$isotopen$namen.nb
Description: application/vnd.wolfram.nb
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
