MathGroup Archive 2005

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

Search the Archive

Re: Obtaining the output from the line above.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg59384] Re: Obtaining the output from the line above.
  • From: ggroup at sarj.ca
  • Date: Sun, 7 Aug 2005 03:47:37 -0400 (EDT)
  • References: <dcpkfe$6dj$1@smc.vnet.net><dd1im9$1cf$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

PJW wrote:

> This may not be exactly what you are looking for Joe but it is a start.

Very nice.  A simple modification (ToExpression) and wrapping the lines
into a function makes it possible to use the result in the next
calculation.  This one is a strong contender for inclusion into my
default notebook...Thanks!

In[2]:=
LastCell[] := Block[{lastcell},
    CurrentNotebook = EvaluationNotebook[];
    SelectionMove[CurrentNotebook, Cell, EvaluationCell];
    SelectionMove[CurrentNotebook, Previous, CellContents];
    lastcell = ToExpression[NotebookRead[CurrentNotebook]];
    SelectionMove[CurrentNotebook, After, EvaluationCell];
    lastcell]

Example:

In[3]:= Log[Exp[4]]
Out[3]:= 4

In[4]:= 5 * LastCell[]
Out[4]:= 20


  • Prev by Date: Re: coefficient of a polynomial term
  • Next by Date: Re: Hankel matrix?
  • Previous by thread: Re: Obtaining the output from the line above.
  • Next by thread: Integral giving complex answer