Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Demonstrations Surpass 5,000

• To: mathgroup at smc.vnet.net
• Subject: [mg101820] Re: [mg101791] Demonstrations Surpass 5,000
• From: Mark McClure <mcmcclur at unca.edu>
• Date: Sat, 18 Jul 2009 04:50:40 -0400 (EDT)
• References: <200907170903.FAA24959@smc.vnet.net>

On Fri, Jul 17, 2009 at 5:03 AM, Wolfram Research <
demonstrations at wolfram.com> wrote:

> We're excited! The Wolfram Demonstrations Project has now
> surpassed 5,000 publications.


The 5,000 Demonstrations demonstration is cool but a bit unwieldy,
if you want to find the number of your demonstration.  You can use
the following code to find it, though.  Just change my name to yours:

nb = Import[
 "http://demonstrations.wolfram.com/5000DemonstrationsAndCounting/\
5000DemonstrationsAndCounting-source.nb"];
demodata = Uncompress[
  nb[[1,1,1,1,2,1,1,1,4,1,13,1,3,1,3,1,4,1,3,1,3,1,3]]];
First /@ Position[demodata, "Contributed by: Mark McClure"]

Mark McClure

• References:
  • Demonstrations Surpass 5,000
    • From: Wolfram Research <demonstrations@wolfram.com>