FUNCTION:  partitions[vpw] - vector partition weight
 
CALLING SEQUENCE:  vpw(vptn)
 
PARAMETERS:    vptn - vector partition [dptn, ptn, ptn]

GLOBAL VARIABLES: NONE

SYNOPSIS:  
    weight of vector ptn [P1,P2,P3] = (-1)^#(P1)
                    
EXAMPLES:  
                    
> with(partitions):  
> V:=vecptns(4):
> nops(V);
                                       41

> add(vpw(vp), vp in V);
                                       5

DISCUSSION:  The total weight of the 41 vector partitions of 4 is 5.
             5 = p(4) as expected.
                    
SEE ALSO: vectptns, vecptnsC, vpcrank