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

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

Search the Archive

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


  • Prev by Date: Re: Re: Question regarding Mathematica's treatment of whitespace
  • Next by Date: Re: problem with making boxes
  • Previous by thread: Re: pattern matching question
  • Next by thread: Re: problem with making boxes