Singular Manual: negateNcfrac

| ##### 7.5.15.0. negateNcfrac Procedure from library `ncfrac.lib` (see ncfrac_lib). Usage: negateNcfrac(frac), ncfrac frac Purpose: compute the negative (i.e. additive inverse) of frac Return: ncfrac Note: returns (-1)*frac Example:
    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)
    ==>

User manual for Singular version 4.3.1p1, 2022, generated by texi2html.