MathGroup Archive 2010

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

Search the Archive

Re: Saving data with notebook

  • To: mathgroup at
  • Subject: [mg111923] Re: Saving data with notebook
  • From: Vince Virgilio <blueschi at>
  • Date: Thu, 19 Aug 2010 07:20:47 -0400 (EDT)
  • References: <i4d68j$6om$>

On Aug 17, 1:21 am, "Kent A. Vander Velden"
<kent.vandervel... at> wrote:
> My routine is typically to Import[] data into Mathematica (often multiple
> files), perform some manipulation, and plot the results. I'd like to be able
> to use the Mathematica notebook as the archive of the raw data, analysis,
> and results. To do this, I'd like to save the contents of some if not all
> the variables associated with a notebook, preferably into the notebook. I've



Here's something I haven't used for a while, but might provide
inspiration. For large values, it is  s l o w.

SetAttributes[saveInNotebook, HoldFirst];

saveInNotebook[var_, value_] :=
With[{c = Compress@value},
    ExpressionCell[Defer[var = Uncompress@c;], "Input", CellOpen ->

You might find it difficult to find the closed cell that
saveInNotebook creates. So you might add prefatory text or heading
before evaluating saveInNotebook "in-place".


  • Prev by Date: Re: wrong result in solving equation and parametric ploting
  • Next by Date: Re: "Abort Evaluation" does not work
  • Previous by thread: Re: Saving data with notebook
  • Next by thread: How can I totalize by month, by year?