Ich habe folgende Loesung zu meinem Problem gefunden.
ListDownValues[a_]:=Module[{l},
l=DownValues[a];
{Table[l[[n,1]],{n,Length[l]}]/. a[x_]->x//ReleaseHold,
Table[l[[n,2]],{n,Length[l]}]}//Transpose
]
ListDownValues[NODE] liefert dann die gewuenschte Liste.
Vielen Dank an alle, die sich schon mit dem Problem beschaeftigt haben.
Andere Loesungen
wuerden mich weiterhin interessieren.
--
Joerg Anrecht phone +49 5361 972966
Volkswagen AG fax +49 5361 979775
Germany mailto:joerg.anrecht@XXXXXXX.de
D-38436 Wolfsburg, Abtlg.: NE-PK
|