FUNCTION: Word2CoCharge - returns the cocharge of a word

CALLING SEQUENCE:

Word2CoCharge(w)

TAB[Word2CoCharge](w)

PARAMETERS:

w = any word

SYNOPSIS:

• The Word2CoCharge function computes the cocharge of the word w.

• When called with the second argument 'vector', it returns the cocharge vector, the sum of the components of this vector being the cocharge. This option is defined only when the word contains at least as many 1's as 2's, as many 2's as 3's and so on.

• Whenever there is a conflict between the function name Word2CoCharge and another name used in the same session, use the long form TAB['Word2CoCharge'].

EXAMPLES:

> with(TAB):
> Word2CoCharge(w[3,2,2,1,4,1,1,3], 'vector');
 
                           [2, 1, 1, 0, 2, 0, 0, 1]
 
> Word2CoCharge(w[3,2,2,1,4,1,1,3]);
 
                                      7