MathGroup Archive 2006

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

Search the Archive

parenthesis in reactions...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg65836] parenthesis in reactions...
  • From: "Chris Chiasson" <chris.chiasson at gmail.com>
  • Date: Tue, 18 Apr 2006 06:56:33 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

What is the proper way to eliminate the (output) parenthesis generated
around the first molecule as it is multiplied by the number two? I
could change the data structure if need be.

ElementSubscript[1|1.]:="";
ElementSubscript[x_]:=x;
ElementSuperscript[0|0.]:="";
ElementSuperscriptMod[1|1.]:="";
ElementSuperscriptMod[x_]:=x;
ElementSuperscript[x_?NumericQ]:=
    RowBox[{ToBoxes@ElementSuperscriptMod@Abs@x,"+"}]/;x>0;
ElementSuperscript[x_?NumericQ]:=
    RowBox[{ToBoxes@ElementSuperscriptMod@Abs@x,"-"}]/;x<0;
ElementSuperscript[x_]:=x;
ElementFormat[symblist:{{_Symbol,_Symbol}..}]:=
    Module[{x},
      ReleaseHold[
        Function[
            Hold[SetDelayed[Format[#1[x_,y_]],
                DisplayForm[
                  Subsuperscript[#2,ElementSubscript[x],
                    ElementSuperscript[y]]]]]]@@@symblist]];
Format[Molecule[blah:_Symbol[_,_]..]]:=DisplayForm[RowBox[ToBoxes/@{blah}]]
elementnotations={{Hydrogen,H},{Chlorine,Cl},{Zinc,Zn}};
ElementFormat[elementnotations];

rxns[1]={2 Molecule[Hydrogen[1,0],
          Chlorine[1,0]]\[Rule]2 Molecule[Hydrogen[1,1]]+2 Molecule[
            Chlorine[1,-1]],
    Zinc[1,0]+2 Hydrogen[1,1]+2 Chlorine[1,-1]\[Rule]
      Zinc[1,2]+2 Chlorine[1,-1]+Hydrogen[2,0],
    Zinc[1,2]+2 Chlorine[1,-1]+Hydrogen[2,0]\[Rule]
      Molecule[Zinc[1,0],Chlorine[2,0]]+Hydrogen[2,0]}


  • Prev by Date: Re: Problem with limiits
  • Next by Date: Re: setps problem/how to set matrix elements
  • Previous by thread: Re: color swatch
  • Next by thread: Re: Re: Re: Representation and Simulation of Dynamic Systems