FUNCTION: eulerform - the Euler-form of a completely separating bound poset algebra

CALLING SEQUENCE:
eulerform(p)

PARAMETERS:
p - a bound poset algebra

SYNOPSIS:

• eulerform(p) returns the symmetric integer coefficient matrix of the Euler-form of p.

EXAMPLES:

> p:=[11,[[1,2],[2,3,4],[3,5,6,7],[4,5,8],[5,9],[8,9,10],[9,11],[10,11]],[[1,5],[2,8],[4,10]]];

> chi:=eulerform(p);

> h:=vector(11,[n,2*n,2*n+1,n,1,n,n,0,1,1,1]);

> 1/2*innerprod(h,chi,h);