MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: problem with making boxes
  • Next by Date: Re: pattern matching question
  • Previous by thread: problem with making boxes