Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Notebook output write to a different file

  • To: mathgroup at smc.vnet.net
  • Subject: [mg52002] Re: Notebook output write to a different file
  • From: sean_incali at yahoo.com (sean kim)
  • Date: Sun, 7 Nov 2004 01:03:17 -0500 (EST)
  • References: <cmfapp$76o$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

<< Graphics`Graphics`

notebookwritequestionanswer = NotebookCreate[];

NotebookWrite[notebookwritequestionanswer, 
    Cell[BoxData[ToBoxes[{"Plot[x], did you ask?" }]], "Output"]];
g = DisplayTogether[
      Table[Plot[Sin[x] + Random[], {x, 0, 2Pi}, 
          PlotStyle -> GrayLevel[0.8]], {5}], DisplayFunction -> Identity];

NotebookWrite[notebookwritequestionanswer, 
    Cell[GraphicsData["PostScript", DisplayString[g] , "Graphics"]]];

does what you want



Namrata Khemka <namrata.khemka at gmail.com> wrote in message news:<cmfapp$76o$1 at smc.vnet.net>...
> Hi Everyone,
> I in fact have another question. I have a gui (using guikit) that
> opens up NotebookA and does all the evaluation in it (graphics, mainly
> graphics). However I would like write each of the output cells to a
> different notebook, for example notebookB.
> 
> Is this possible?
> 
> Thanks a lot once again,
> Namrata


  • Prev by Date: Redefining the minus operator
  • Next by Date: Re: List element replacement.
  • Previous by thread: Re: Re: Notebook output write to a different file
  • Next by thread: Adding Vectors -- Newbie help please