This routine is part of the liesymm package and is loaded via with(liesymm).

Given an expression expr involving a single wedge product w find c such that $\mathrm{expr}=cw$.

If more than one wedge product is encountered, an error message is given.

$\mathrm{with}\left(\mathrm{liesymm}\right)\:$$\mathrm{setup}\left(x\,y\,z\right)\:$

$\mathrm{getcoeff}\left(ad\left(x\right)\right)$

$a$

$\mathrm{getcoeff}\left(ad\left(x\right)+bd\left(x\right)\right)$

$a+b$

$\mathrm{map}\left(\mathrm{getcoeff}\,\left[ad\left(x\right)\,bd\left(y\right)\right]\right)$

$\left[a\,b\right]$

$\mathrm{getcoeff}\left(\frac{1}{c}d\left(x\right)\&ˆd\left(y\right)\right)$

$\frac{1}{c}$

$\mathrm{getcoeff}\left(c\right)$

$c$