Re: Bottons and Notations

*To*: mathgroup at smc.vnet.net*Subject*: [mg8656] Re: Bottons and Notations*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Fri, 12 Sep 1997 04:11:08 -0400*Organization*: University of Western Australia*Sender*: owner-wri-mathgroup at wolfram.com

Arturas Acus wrote: > I would like to introduce a buttons for ClebschGordan > coefficients and Wigner D matrix traditional notations. > Namely, I would like two dimensional forms: > > \[PlaceHolder],\[PlaceHolder],\[PlaceHolder] > \Bigl[ \[PlaceHolder],\[PlaceHolder],\[PlaceHolder] \Bigr] > > and D_{m,m'}^j. (in TeX notation} > > Also it would be nice to Symbolize them in such a way, that > first of them correspond to usual notation of ClebschGordan coefficient: > > ClebschGordan[{j1_,m1_},{j2_,m2_},{j_,m_}] > > (* I would like to use patterns here *) Have a look at the NotationMaker.nb Notebook which comes with Mathematica 3.0. There you will find a section entitled Notation for the Wigner 3-j Symbol which, with modifications will do exactly what you want for the ClebschGordan and 6j coefficients. Note that the Notation.m package is very good and allows you to easily construct your own notation -- both for input and output. > And the second to something like: > > WD[j_,{m1_,m2_}] > > (* Note here WD instead of D, in order to prevent confusing with usual D[] *) You could also use \[ScriptCapitalD] -- which is the character used in many textbooks. Cheers, Paul ____________________________________________________________________ Paul Abbott Phone: +61-8-9380-2734 Department of Physics Fax: +61-8-9380-1014 The University of Western Australia Nedlands WA 6907 mailto:paul at physics.uwa.edu.au AUSTRALIA http://www.pd.uwa.edu.au/Paul God IS a weakly left-handed dice player ____________________________________________________________________