Singular

LIB "ncfactor.lib";
tst_ncfactor();
==> // proc facWeyl from lib ncfactor.lib
==> EXAMPLE:
==> [1]:
==>    [1]:
==>       1
==>    [2]:
==>       x1*d1*d2+d1^2+x1*d2+d1+2*d2
==>    [3]:
==>       d1+1
==> [2]:
==>    [1]:
==>       1
==>    [2]:
==>       d1+1
==>    [3]:
==>       d1+1
==>    [4]:
==>       x1*d2+d1
==> // proc facShift from lib ncfactor.lib
==> EXAMPLE:
==> [1]:
==>    [1]:
==>       1
==>    [2]:
==>       x1*s1-x1+s1-100
==>    [3]:
==>       x1*s1-x1-s1-99
==> [2]:
==>    [1]:
==>       1
==>    [2]:
==>       x1*s1-x1-100
==>    [3]:
==>       x1*s1-x1-99
==> [3]:
==>    [1]:
==>       1
==>    [2]:
==>       x1*s1-x1-99
==>    [3]:
==>       x1*s1-x1-100
==> // proc facSubWeyl from lib ncfactor.lib
==> EXAMPLE:
==> 1
==> // proc testNCfac from lib ncfactor.lib
==> EXAMPLE:
==> 1
==> 1
==> 0
==> 0
==> [1]:
==>    0
==> [2]:
==>    0
==> [3]:
==>    -x4y2+x3y3-4x3y+6x2y2-3x2+7xy
==> // proc homogfacFirstQWeyl from lib ncfactor.lib
==> EXAMPLE:
==> [1]:
==>    1
==> [2]:
==>    x5d5+x3d3+4
==> [3]:
==>    x5d5+6
==> // proc homogfacFirstQWeyl_all from lib ncfactor.lib
==> EXAMPLE:
==> [1]:
==>    [1]:
==>       1
==>    [2]:
==>       x5d5+x3d3+4
==>    [3]:
==>       x5d5+6
==> [2]:
==>    [1]:
==>       1
==>    [2]:
==>       x5d5+6
==>    [3]:
==>       x5d5+x3d3+4