Re: Anzeigen von verwendeten Symbolen

[Roman Maeder <maeder@XXXXXXX.ch>]

> Gibt es in Mathematica eine Möglichkeit,
> sich alle Symbole (Variablen) anzeigen zu lassen,
> denen etwas zugewiesen wurde und die noch nicht mit Clear oder Remove
> entfernt wurden?

im Prinzip sagt einem ValueQ[symbol], ob ein Symbol einen Wert hat,
und mit Names["Global`*"] bekommt die Liste aller selber benutzten
Namen (als Strings). Das ist aber etwas subtil, denn man darf die
Symbole ja nicht evaluieren, bevore man feststellen kann, ob sie
einen Wert haben. So geht's:


In[1]:= allNames = Names["Global`*"]

Out[1]= {allNames, RemoteMachine, $AvailableMachines, $RemoteCommand}

In[2]:= valueNames = Select[allNames, ToExpression[#,InputForm,ValueQ]&]

Out[2]= {allNames, $AvailableMachines, $RemoteCommand}


Roman Mäder


PS: wenn wir schon dabei sind,
so gekommen Sie eine Liste mit den Symbolen und ihren Werten:

TableForm[{#,ToExpression[#]}& /@ valueNames, TableDepth->2]

Out[6]//TableForm= 
 
    allNames             {allNames, RemoteMachine, ...}

    $AvailableMachines   {RemoteMachine[localhost, math -mathlink], ...}

    $RemoteCommand       ssh -a -x `1` math -noinit -mathlink