StyleBox["A","MB"],RowBox[{"rrow3D",... inserted into Arrow3D[...]
- To: mathgroup at smc.vnet.net
- Subject: [mg61015] StyleBox["A","MB"],RowBox[{"rrow3D",... inserted into Arrow3D[...]
- From: "Steven T. Hatton" <hattons at globalsymmetry.com>
- Date: Fri, 7 Oct 2005 03:38:06 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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