[BACK]Return to yang_D.rr CVS log [TXT][DIR] Up to [local] / OpenXM / src / asir-contrib / packages / src
File: [local] / OpenXM / src / asir-contrib / packages / src / yang_D.rr (download)

Revision 1.2, Tue Apr 7 22:25:32 2009 UTC (15 years, 1 month ago) by ohara
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, HEAD
Changes since 1.1: +4 -1 lines 

Add new function yang.mulr().
Example:
[0] load("yang.rr")$
[1] yang.define_ring([x,y])$
[2] yang.mulr(x*dx/y,y*dy/x);
dy*dx-dy

/* -*- mode: C -*- */
/* $OpenXM: OpenXM/src/asir-contrib/packages/src/yang_D.rr,v 1.2 2009/04/07 22:25:32 ohara Exp $ */

load("yang.rr")$

/* override */
module yang;

def multi(P,Q) {
    return multi_D(P,Q);
}
def multir(P,Q) {
    return multir_D(P,Q);
}
def spolynomial(P,Q) {
    return spolynomial_D(P,Q);
}
def division(P,Q) {
    return division_D(P,Q);
}

endmodule;

end$