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
____________________________________________________________________