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 998


Ignore:
Timestamp:
2015-06-09T21:38:57-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/mx-grobner.lisp

    r995 r998  
    230230
    231231
     232;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     233;;
     234;; Order utilities
     235;;
     236;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     237
     238(defun find-order (order)
     239  "This function returns the order function bases on its name."
     240  (cond
     241   ((null order) nil)
     242   ((symbolp order)
     243    (case order
     244      ((lex :lex $lex) #'lex>)
     245      ((grlex :grlex $grlex) #'grlex>)
     246      ((grevlex :grevlex $grevlex) #'grevlex>)
     247      ((invlex :invlex $invlex) #'invlex>)
     248      ((elimination-order-1 :elimination-order-1 elimination_order_1) #'elimination-order-1)
     249      (otherwise
     250       (mtell "~%Warning: Order ~M not found. Using default.~%" order))))
     251   (t
     252    (mtell "~%Order specification ~M is not recognized. Using default.~%" order)
     253    nil)))
     254
     255;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     256;;
     257;; Ring utilities
     258;;
     259;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     260
     261(defun find-ring (ring)
     262  "This function returns the ring structure bases on input symbol."
     263  (cond
     264   ((null ring) nil)
     265   ((symbolp ring)
     266    (case ring
     267      ((expression-ring  :expression-ring $expression_ring) *expression-ring*)
     268      ((ring-of-integers :ring-of-integers $ring_of_integers) *ring-of-integers*)
     269      (otherwise
     270       (mtell "~%Warning: Ring ~M not found. Using default.~%" ring))))
     271   (t
     272    (mtell "~%Ring specification ~A is not recognized. Using default.~%" ring)
     273    nil)))
     274
     275
    232276;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    233277;;
Note: See TracChangeset for help on using the changeset viewer.