ncrat.lib
LIB "ncrat.lib"; ncInit(list("x", "y")); ncrat f = ncratFromString("inv(1+x*y-y*x)"); list vars = list(x, y); ncrep q = ncrepGetRegularZeroMinimal(f, vars); q; ==> lvec= ==> 0,1,0 ==> ==> mat= ==> 1, y, 0, ==> -x,1, -y, ==> 0, -x,1 ==> ==> rvec= ==> 0, ==> -1, ==> 0 ==>