MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mathematica skill level snippet(s)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104890] Re: Mathematica skill level snippet(s)
  • From: "Drago Ganic" <dganic at vodatel.net>
  • Date: Thu, 12 Nov 2009 06:07:46 -0500 (EST)
  • References: <200911917250.789293@jfultz2winlap> <hdbhn2$jol$1@smc.vnet.net>

Hi Nasser,
I think there is no way except enumerating the symbols.  Unfortunatly 
Mathematica is lacking some attributes (like Command, Option etc.) or some 
other mechanism (e.g. system tables) for providing those kind of 
information.

BR,
Drago


"Nasser M. Abbasi" <nma at 12000.org> wrote in message 
news:hdbhn2$jol$1 at smc.vnet.net...
>
>
> From: "John Fultz" <jfultz at wolfram.com>
>
> "Stephen Wolfram wrote a blog post which included a ListPlot of the 
> function
> count from Mathematica's inception to version 7.
>
> http://blog.wolfram.com/2008/11/18/surprise-mathematica-70-released-today/
>
> The plot is about a third of the way through the post.  Note the number 
> here is
> significantly below your number because you're counting all System` 
> symbols,
> whereas he was counting System` *functions*.
> "
>
> Yes, I know about this blog (it is one of the references already on my
> page), and I actually remember spending sometime trying to find how did Dr
> Wolfram would have counted the number of functions, but I could not figure
> it out (the command used to generate the plot was not shown in the blog.)
>
> Do you know how to find how many of the Symbols are actually Functions 
> such
> as Sin,Cos etc.. vs. say function options or other type of symbols? Since
> the Head of a Function is a Symbol itself I can't just look at the Head of
> each symbol to find out?
>
> In[6]:= Head[Sin]
> Out[6]= Symbol
> In[7]:= Head[Joined]
> Out[7]= Symbol
>
> If I filter by attribute, which I think may be the way to do it, then 
> which
> set of attributes to use? Listable? gives only 264
>
> Length[Select[Names["System`*"], MemberQ[Attributes[#1], Listable] & ]]
> 264
>
> So, need more attributes which all apply to functions, then get a unique
> list out, then count it? But I do not know what all the attributes should
> be.
>
> If you know  _please_ let me know, and I will add this information to the
> table.
>
> thanks
> --Nasser
>
> 



  • Prev by Date: Re: Re: Complex solutions to simple equations
  • Next by Date: Re: Cumulative probability that random walk variable
  • Previous by thread: Re: Mathematica skill level snippet(s)
  • Next by thread: Re: Re: Mathematica skill level snippet(s)