MathGroup Archive 2004

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

Search the Archive

Re: Notebook output write to a different file


<< 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