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

Re: StyleBox["A","MB"],RowBox[{"rrow3D",... inserted into Arrow3D[...]

• To: mathgroup at smc.vnet.net
• Subject: [mg61040] Re: StyleBox["A","MB"],RowBox[{"rrow3D",... inserted into Arrow3D[...]
• From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
• Date: Sat, 8 Oct 2005 02:48:59 -0400 (EDT)
• Organization: Uni Leipzig
• References: <di5a34$3lb$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,

I would think, that the FontEnd optimize your input,
because otherwise the box representation would become more and more
complicated, i.e. , say you write a text, Mathematica put it into a RowBox[]
than you add in the middle a formula, Mathematica split the RowBox[] and insert
the formula in a new box. Finaly you delete the formula, while you reformulate
the text. The splitted RowBox[] would remain .. If this happens quite often when
you write a text, the RowBoxes[] would be splitted and splitted. Even in cases
where it would be unnessesary after some deletions.
Mathematic *should* try to reformat these boxes to make the structure simpler.
I'm not sure if this is realy done but I think so.

Regards
  Jens

"Steven T. Hatton" <hattons at globalsymmetry.com> 
schrieb im Newsbeitrag 
news:di5a34$3lb$1 at smc.vnet.net...
|I am writing a package with the following Cell:
| Cell[BoxData[
|    RowBox[{
|      RowBox[{
|        StyleBox[
|          RowBox[{
|            StyleBox["A",
|              "MB"], "rrow3D"}]], "[",
|        RowBox[{
|          RowBox[{"List", "[",
|            RowBox[{"xt_", ",", "yt_", ",", 
"zt_"}], "]"}], ",",
|          RowBox[{"List", "[",
|            RowBox[{"xh_", ",", "yh_", ",", 
"zh_"}], "]"}], ",",
| "opts___"}],
|        "]"}], ":=",
|      RowBox[{"{", "}"}]}]], "Input",
|  CellLabel->"In[66]:="]
|
| At some point, the Arrow3D symbol was 
transmogrified into:
|
| Cell[BoxData[
|    RowBox[{
|      RowBox[{
|        StyleBox["A",
|          "MB"],
|        RowBox[{"rrow3D", "[",
|          RowBox[{
|            RowBox[{"List", "[",
|              RowBox[{"xt_", ",", "yt_", ",", 
"zt_"}], "]"}], ",",
|            RowBox[{"List", "[",
|              RowBox[{"xh_", ",", "yh_", ",", 
"zh_"}], "]"}], ",",
| "opts___"}],
|          "]"}]}], ":=",
|      RowBox[{"{", "}"}]}]], "Input",
|  CellLabel->"In[67]:="]
|
| It took me a while to figure out why I was 
getting:
|
| "SetDelayed::write: Tag Times in A\rrow3D[{xt_, 
yt_, zt_}, {xh_, yh_, zh_},
| opts___] is Protected."
|
| I'm not sure how this came to be.  Can anybody 
shed some light on what might
| cause Mathematica to silently modify the Head 
like that?
| -- 
| "Philosophy is written in this grand book, The 
Universe. ... But the book
| cannot be understood unless one first learns to 
comprehend the language...
| in which it is written. It is written in the 
language of mathematics, ...;
| without which wanders about in a dark 
labyrinth."   The Lion of Gaul
|