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>
- Demonstration Project Trouble