Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*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 1999

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

Search the Archive

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



  • Prev by Date: Re: drawing tilted ellipses?
  • Next by Date: Re: dictionaries?
  • Previous by thread: Re: Levy Distributions/Time Series
  • Next by thread: Re: ScientificForm with NotebookWrite