Re: problem with making boxes
- To: mathgroup at smc.vnet.net
- Subject: [mg61830] Re: problem with making boxes
- From: Chris Chiasson <chris.chiasson at gmail.com>
- Date: Mon, 31 Oct 2005 06:10:07 -0500 (EST)
- References: <acbec1a40510310120n1ff33dbcj978279774f01be59@mail.gmail.com>
- Sender: owner-wri-mathgroup at wolfram.com
Though I don't know why this works, I have figured out how to solve
the problem. Change the mapped pure function to:
RowBox[{#1," ",RowBox[{"(",#2,")"}]}]&
On 10/31/05, Chris Chiasson <chris.chiasson at gmail.com> wrote:
> Dear MathGroup:
> Can anyone figure out why the first closing parenthesis in the output
> is highlighted purple?
>
> Cell[CellGroupData[{Cell[BoxData[
> RowBox[{"DisplayForm", "@",
> RowBox[{"MapThread", "[",
> RowBox[{
> RowBox[{
> RowBox[{"RowBox", "[",
> RowBox[{"{",
> RowBox[{
> "#1", ",", "\"\< \>\"", ",", "\"\<(\>\"", ",", "#2",
> ",", "\"\<)\>\""}], "}"}], "]"}], "&"}], ",",
> RowBox[{"{",
> RowBox[{
> TagBox[
> StyleBox[
> RowBox[{"List", "[",
> RowBox[{
> RowBox[{"RowBox", "[",
> RowBox[{"List", "[",
> RowBox[{"\"\<[\>\"", ",",
> RowBox[{"SuperscriptBox", "[",
> RowBox[{
> "\"\<Na\>\"", ",", "\"\<+\>\""}], "]"}],
> ",", "\"\<]\>\""}], "]"}], "]"}], ",",
> RowBox[{"SubscriptBox", "[",
> RowBox[{"\"\<\[Gamma]\>\"", ",",
> RowBox[{"SuperscriptBox", "[",
> RowBox[{"\"\<Ca\>\"", ",",
> RowBox[{"RowBox", "[",
> RowBox[{"List", "[",
> RowBox[{
> "\"\<2\>\"", ",", "\"\<+\>\""}],
> "]"}], "]"}]}], "]"}]}], "]"}],
> ",", "\"\<I\>\"", ",", "\"\<S\>\""}], "]"}],
> ShowStringCharacters->True,
> NumberMarks->True],
> FullForm], ",",
> RowBox[{"{",
> RowBox[{
> RowBox[{"FractionBox", "[",
> RowBox[{"\"\<M\>\"", ",", "\"\<L\>\""}], "]"}],
> ",", "\"\<1\>\"", ",",
> RowBox[{"FractionBox", "[",
> RowBox[{"\"\<M\>\"", ",", "\"\<L\>\""}], "]"}],
> ",",
> RowBox[{"FractionBox", "[",
> RowBox[{
> RowBox[{"RowBox", "[",
> RowBox[{"{",
> RowBox[{
> RowBox[{"SuperscriptBox", "[",
> RowBox[{"\"\<10\>\"", ",",
> RowBox[{"RowBox", "[",
> RowBox[{"{",
> RowBox[{
> "\"\<-\>\"", ",", "\"\<5\>\""}],
> "}"}], "]"}]}], "]"}], ",",
> "\"\<M\>\""}], "}"}], "]"}], ",",
> "\"\<L\>\""}], "]"}]}], "}"}]}], "}"}]}],
> "]"}]}]], "Input",
> CellLabel->"In[163]:="],
>
> Cell[BoxData[
> TagBox[
> RowBox[{"{",
> RowBox[{
> RowBox[{
> RowBox[{"[",
> SuperscriptBox["Na", "+"], "]"}], " ", "(",
> FractionBox["M", "L"], ")"}], ",",
> RowBox[{
> SubscriptBox["\[Gamma]",
> SuperscriptBox["Ca",
> RowBox[{"2", "+"}]]], " ", "(", "1", ")"}], ",",
> RowBox[{"I", " ", "(",
> FractionBox["M", "L"], ")"}], ",",
> RowBox[{"S", " ", "(",
> FractionBox[
> RowBox[{
> SuperscriptBox["10",
> RowBox[{"-", "5"}]], "M"}], "L"], ")"}]}], "}"}],
> DisplayForm]], "Output",
> CellLabel->"Out[163]//DisplayForm="]
> }, Open ]]
>
> Thank you,
> --
> http://chrischiasson.com/contact/chris_chiasson
>
--
http://chrischiasson.com/contact/chris_chiasson