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