problem with making boxes
- To: mathgroup at smc.vnet.net
- Subject: [mg61829] problem with making boxes
- From: Chris Chiasson <chris.chiasson at gmail.com>
- Date: Mon, 31 Oct 2005 06:10:06 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
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