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 4204 for branches


Ignore:
Timestamp:
2016-06-04T10:34:45-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-symbolic-poly.lisp

    r4203 r4204  
    129129             +118098*y^4*z^2-118098*x^4*z^2+59049*y^4*z-118098*x^2*y^2*z
    130130             +59049*x^4*z+19683*y^6-59049*x^2*y^4+59049*x^4*y^2-19683*x^6]")
     131         ;; Parse STR-1 to polynomial list GB-1
    131132         (gb-1 (string->poly str-1 vars))
     133         ;; Format GB-1 as a string STR-2
    132134         (str-2 (poly->string gb-1))
    133          ;; str-3 is a Maxima-postprocessed str-2"
     135         ;; Here STR-3 is a Maxima-postprocessed STR-2"
    134136         (str-3 "[X-3*U*V^2+U^3-3*U,Y+V^3-3*U^2*V-3*V,Z+3*V^2-3*U^2,
    135137        (-U*Z)-3*X+6*U*V^2+9*U,(-V*Z)+Y-2*V^3-3*V,Z^2+6*V^2*Z-9*Z-9*V*Y+9*U*X,
     
    162164              +118098*Y^4*Z^2-118098*X^4*Z^2+59049*Y^4*Z-118098*X^2*Y^2*Z
    163165              +59049*X^4*Z+19683*Y^6-59049*X^2*Y^4+59049*X^4*Y^2-19683*X^6]")
     166         ;; Finally, obtain a polynomial list GB-2 by parsing STR-3
    164167         (gb-2 (string->poly str-3 vars)))
     168    ;; Discart STR-2
    165169    (declare (ignore str-2))
    166170    (&body)))
Note: See TracChangeset for help on using the changeset viewer.