FUNCTION: LieTools/WDD2DTDSs
USAGE: WDD2DTDSs(wdd)
SYNOPSIS: This is a routine to create the distinguished TDSs associated 
  to a given weighted Dynkin diagram wdd (expressed in terms of a basis of 
  simple roots).  The output is a list of the form
       [[h1,x1,y1],[h2,x2,y2],   ]
  in which, e.g., the first item is a list of basis vectors for a
  TDS (h1 is the semisimple element, x1 is the nilpositive element, and
  y1 is the nilnegative element). The other items [h2,x2,y2],... are just
  other TDSs with the same weighted Dynkin diagram.

CAVEATS: requires a previously initialized global Lie algebra environment.
  (See LieTools[gSetup].)
EXAMPLE: 
> with(LieTools):
> gSetup(G,2):
Setting up Gtype = G   rnk = 2
> WDD2DTDSs([1,0]);

                   [[2 g[7] + 3 g[8], g[12], g[3]]]
> h := op(1,op(tds)); x := op(2,op(tds)); y := op(3,op(tds));
                         h := 2 g[7] + 3 g[8]


                              x := g[12]


                              y := g[3]

> gcomm(h,x);

                               2 g[12]

> gcomm(h,y);

                               -2 g[3]

> gcomm(x,y);

                           2 g[7] + 3 g[8]

> 


SEE ALSO: 
