close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1223


Ignore:
Timestamp:
2015-06-11T12:17:04-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r1202 r1223  
    215215    (is (equalp (string->poly "x^2+2*y^2" '(x y)) p))))
    216216
     217;; Manual calculation supporting the test below.
     218;; We divide X^2 by [X+Y,X-2*Y] with LEX> as order.
     219;; LM(X^2)=X^2 is divisible by LM(X+Y)=X so the first partial quotient is X.
     220;; Next, X^2 - X*(X+Y) = -X*Y.
     221;; LM(-X*Y) is divibile by LM(X+Y)=X so the second partial quotient is -Y.
     222;; Next, -X*Y-(-Y)*(X+Y) = -Y^2.
     223;; LM(-Y^2)=-Y^2 is not divisible by LM(X+Y)=X or LM(X-2*Y)=X. Hence, division
     224;; ends. The list of quotients is [X-Y,0]. The remainder is -Y^2
    217225(test division
    218226  "Division in polynomial ring"
Note: See TracChangeset for help on using the changeset viewer.