FUNCTION: titsform_p - compute the quadratic form of a poset

CALLING SEQUENCE:
titsform_p(p)

PARAMETERS:
p - a poset

SYNOPSIS:

• titsform_p(p) returns the symmetric integer coefficient matrix of the unit form associated with the poset p.

EXAMPLES:

> cr_K[3];

> titsform_p(%);