Re: Showing defined functions
- To: mathgroup at smc.vnet.net
- Subject: [mg73156] Re: [mg73121] Showing defined functions
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Mon, 5 Feb 2007 00:09:50 -0500 (EST)
- Reply-to: hanlonr at cox.net
ClearAll[functionQ];
SetAttributes[functionQ,{Listable}];
functionQ[x_String]:=functionQ[ToExpression[x]];
functionQ[x_Symbol]:=Length[
Flatten[#[x]&/@{DownValues,UpValues}]]>0;
functionQ[x_]=False;
y=7;
f1[x_]:=x;
f2[x_]=2x;
f3/:Mean[f3[x_]]:=a;
Names["Global`*"]
{a,f1,f2,f3,functionQ,x,y}
Select[Names["Global`*"],functionQ[#]&]
{f1,f2,f3,functionQ}
Bob Hanlon
---- 360 <360 at 360.com> wrote:
> I have defined a series of functions in Mathematica. I was wondering, is
> there anyway to get Mathematica to dsiplay all currnte defined functions
> that are being stored in memory (something similar to the 'who' command
> in another system.
>
> thanks
>