|  |  7.5.14.0. negateNcfrac Procedure from libraryncfrac.lib(see  ncfrac_lib).
 
Example:Usage:
negateNcfrac(frac), ncfrac frac
Purpose:
compute the negative (i.e. additive inverse) of frac
Return:
ncfrac
Note:
returns (-1)*frac
 |  | LIB "ncfrac.lib";
==> // ** redefining testNcfrac (LIB "ncfrac.lib";) ./examples/negateNcfrac.s\
   ing:1
==> // ** redefining testNcloc (    LIB "ncloc.lib";) ncfrac.lib::mod_init:11\
   3
ring R = 0,(x,y,Dx,Dy),dp;
def S = Weyl();
setring S;
poly g = x*y^2+4*x+7*y-98;
ncloc loc = g;
ncfrac frac = list([g, 13*x^2], loc);
frac;
==> left repr.: (x*y^2+4*x+7*y-98,13*x^2)
==> right repr.: (0,0)
==> 
ncfrac negFrac = negateNcfrac(frac);
negFrac;
==> left repr.: (x*y^2+4*x+7*y-98,-13*x^2)
==> right repr.: (0,0)
==> 
frac + negFrac;
==> left repr.: (x*y^2+4*x+7*y-98,0)
==> right repr.: (0,0)
==> 
 | 
 
 |