[BACK]Return to loadpackage.kk CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug

Diff for /OpenXM/src/k097/debug/loadpackage.kk between version 1.1.1.1 and 1.2

version 1.1.1.1, 1999/10/08 02:12:16 version 1.2, 2001/01/08 05:26:51
Line 22  def diff0(f,x) {
Line 22  def diff0(f,x) {
   local dx,ans;    local dx,ans;
   if (!IsPolynomial(f)) return(Poly("0"));    if (!IsPolynomial(f)) return(Poly("0"));
   if (f == Poly("0")) return(f);    if (f == Poly("0")) return(f);
   dx = PolyR(AddString(["D",ToString(x)]),Ringp(f));    dx = PolyR(AddString(["D",ToString(x)]),GetRing(f));
   ans = Replace(dx*f,[[dx,Poly("0")],[h,PolyR("1",Ringp(f))]]);    ans = Replace(dx*f,[[dx,Poly("0")],[h,PolyR("1",GetRing(f))]]);
   return(ans);    return(ans);
 }  }
   

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>