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 >