Re: Demonstration Project Trouble

*To*: mathgroup at smc.vnet.net*Subject*: [mg91049] Re: [mg91009] Demonstration Project Trouble*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Mon, 4 Aug 2008 03:26:21 -0400 (EDT)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*References*: <200808030932.FAA24070@smc.vnet.net>*Reply-to*: murray at math.umass.edu

Have you tried copying the cell(s) into a new, blank notebook? The select everything in the notebook (Ctrl-a), and show it as the underlying expression: either use Ctrl-Shift-E or else from the menu select Cell > Show Expression. You'll now see the actual text "behind" what the front end displays, in other words, you'll see what you would if you viewed the file in plain text editor. Now search for CurrentValue, etc., about which you received the complaint and see if they're there. If so ... have you modified any Mathematica init.m file for your installation? Todd Allen wrote: > Hi folks, > > I've written a small demonstration project program to illustrate a few points about bacterial growth, and the program seems to run fine in its natural setting of a mathematica notebook. > > When I tried to submit this file as a Demonstrations project, I was unable to successfully upload the file because Wolfram's server scanned the file and returned the following error: > > "Please edit notebook to remove the following illegal symbols: CurrentValue, FEPrivate`FrontEndResource" > > This is just cryptic enough to me that I don't know what to look at, particularly since Mathematica itself does not complain about the program. > > Have any of you come across such an error? > > I've included the code below which may make something standout to your eyes that I am missing. > > I appreciate any thoughts you might have. I have repeatedly tried to contact Wolfram support, but they are just not in a responsive mood these days. > > Best Regards, > Todd > > > > > final[init_, > numgen_] := (init*(2^ > numgen)); (* final number of cells calculation *) > > Manipulate[ > plotfinal = > ListPlot[Table[{init, final[init, numgen]}, {init, Range[init]}], > PlotStyle -> {Red, PointSize[0.03]}, Frame -> True, > FrameLabel -> {{Item[Style["Final # of Cells", Bold]], > ""}, {Item[Style["Initial # of Cells", Bold]] , > Item[Style["Absolute Scale", 14, Bold, Blue]]}}, > ImageSize -> Scaled[0.35]]; > > plotfinallog = > ListPlot[Table[{init, Log[10, final[init, numgen]]}, {init, > Range[init]}], PlotStyle -> {Green, PointSize[0.03]}, > Frame -> True, FrameLabel -> {{Item[Style["Final # of Cells > (Log Scale)", Bold]], > ""}, {Item[Style["Initial # of Cells" , Bold]], > Item[Style["Semi-Log Scale", 14, Bold, Blue]]}}, > ImageSize -> Scaled[0.35]]; > > Column[{Row[{plotfinal, Item[Style[" verses ", 12, Bold, Red]], > plotfinallog}], TextCell[Row[{Style[" > Final Number of Cells (based on current values): ", 14, Bold, > Blue], Style[final[init, numgen], 14, Bold, Red]}]]}], > > (* Control Area *) > Item[Style["Computing the Final Number of Bacterial Cells", 18, > Red]], > > Delimiter, > > {{init, 1, Item[Style["Initial # Cells", 12, Bold, Red]]}, 1, 100, 1, > Appearance -> "Labeled"}, > > {{numgen, 1, Item[Style["# of Generations", 12, Bold, Red]]}, 1, 25, > 1, Appearance -> "Labeled"}, > > SaveDefinitions -> True, > > TrackedSymbols -> {init, numgen}] > > > > > > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305

**References**:**Demonstration Project Trouble***From:*Todd Allen <genesplicer28@yahoo.com>