Re: Seperate input and output in mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg16584] Re: Seperate input and output in mathematica
- From: "P.J. Hinton" <paulh>
- Date: Wed, 17 Mar 1999 23:54:59 -0500
- Organization: "Wolfram Research, Inc."
- References: <innclip7cl8ab$9e2@smc.vnet.net> <Pine.LNX.4.10.9903160841360.31008-100000@wabash.wolfram.com> <Pine.GSO.4.10.9903161057350.25431-100000@compstat.wharton.upenn.edu>
- Sender: owner-wri-mathgroup at wolfram.com
On Tue, 16 Mar 1999, Wenxin Mao wrote:
> thank you so much. It surely works. I have input window and output window.
> One things is that in the output window I don't have "out[1]:="
> such headers for each output. But it is already convenient enough !
Try modifying the last two definitions of externalOutput so they have
settings for CellLabel.
externalOutput[expr:
_Graphics | _Graphics3D | _SurfaceGraphics |
_ContourGraphics | _DensityGraphics] :=
Module[{$DisplayFunction = Identity},
NotebookWrite[$outputNotebook,
Cell[GraphicsData["PostScript", DisplayString[expr]],
"Graphics", CellLabel ->
StringJoin["From Out[", ToString[$Line], "]"]]];
NotebookWrite[$outputNotebook,
Cell[BoxData[ToBoxes[expr]], "Output",
CellLabel -> StringJoin["Out[", ToString[$Line], "]"]]]
]
externalOutput[expr_] :=
NotebookWrite[$outputNotebook,
Cell[BoxData[ToBoxes[expr]], "Output",
CellLabel -> StringJoin["Out[", ToString[$Line], "]"]]]
--
P.J. Hinton
Mathematica Programming Group paulh at wolfram.com
Wolfram Research, Inc. http://www.wolfram.com/~paulh/
Disclaimer: Opinions expressed herein are those of the author alone.