Re: ScientificForm with NotebookWrite
- To: mathgroup at smc.vnet.net
- Subject: [mg20503] Re: [mg20447] ScientificForm with NotebookWrite
- From: "Tom De Vries" <tdevries at shop.westworld.ca>
- Date: Wed, 27 Oct 1999 02:05:01 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Hello Steve,
I do quite a bit of this kind of sending info to notebooks, so the following
works for me, but it is only a "trial and error" solution, I too am a little
puzzled why certain box forms produce certain results.
nb=SelectedNotebook[]
fred=ScientificForm[123456.];
NotebookWrite[nb,Cell[TextData[{
"This is a test: ",
Cell[ToBoxes[fred, TraditionalForm]]
}], "Text"]];
Hope that helps a bit,
Tom De Vries
----------
>From: com3 at *NOSPAM*ix.netcom.com (Steve)
>To: mathgroup at smc.vnet.net
>Subject: [mg20503] [mg20447] ScientificForm with NotebookWrite
>Date: Mon, Oct 25, 1999, 10:33 PM
>
>I'm a newbie flying by the seat of my pants and can't figure out how
>to get a value to be displayed in scientific notation that is being
>written to a notebook using Mathematica 3.0.
>
>I am "piping" selected results to a summary notebook by way of the
>following commands.
>
>nb=NotebookCreate[];
>
>$DisplayFunction=((NotebookWrite[nb,
>
>Cell[GraphicsData["PostScript",DisplayString[#]],"Graphics"]];#)&);
>
>$Post=(If[#=!=Null,NotebookWrite[nb,Cell[BoxData[MakeBoxes[#]],"Output"]]])&;
>
>and
>
>NotebookWrite[nb,{sse},Before]
>
>These commands work fine and place the value of sse (and other values
>and grapics) where I need them.
>
>The problem is that sse gets written as a 16 decimal placed value and
>I need scientific notation.
>
>I tried
>
>NotebookWrite[nb,{ScientificForm[sse]},Before]
>
>and
>
>NotebookWrite[nb,ScientificForm[sse],Before]
>
>without much luck; I get a box form error.
>
>What's particularly baffling here to me is that ScientificForm[expr]
>works fine if I don't pipe it to the summary notebook.
>
>Can someone help me with this syntax ?
>
>Thanks in advance.
>
>Steve
>
>For any e-mail responses, please remove *NOSPAM* from my address.
>
>