Changeset 1642 for branches/f4grobner

Timestamp:

2015-06-14T20:16:48-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/mx-grobner.lisp (modified) (2 diffs)

branches/f4grobner/mx-grobner.lisp

@@ -118 +118 @@
 
 (defun free-of-vars (expr vars) (apply #'$freeof `(,@vars ,expr)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Order utilities
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun find-order (order)
+  "This function returns the order function bases on its name."
+  (cond
+   ((null order) nil)
+   ((symbolp order)
+    (case order
+      ((lex :lex $lex) #'lex>) 
+      ((grlex :grlex $grlex) #'grlex>)
+      ((grevlex :grevlex $grevlex) #'grevlex>)
+      ((invlex :invlex $invlex) #'invlex>)
+      ((elimination-order-1 :elimination-order-1 elimination_order_1) #'elimination-order-1)
+      (otherwise
+       (mtell "~%Warning: Order ~M not found. Using default.~%" order))))
+   (t
+    (mtell "~%Order specification ~M is not recognized. Using default.~%" order)
+    nil)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Ring utilities
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun find-ring (ring)
+  "This function returns the ring structure bases on input symbol."
+  (cond
+   ((null ring) nil)
+   ((symbolp ring)
+    (case ring
+      ((maxima-ring  :maxima-ring $expression_ring) *maxima-ring*) 
+      ((ring-of-integers :ring-of-integers $ring_of_integers) *ring-of-integers*) 
+      (otherwise
+       (mtell "~%Warning: Ring ~M not found. Using default.~%" ring))))
+   (t
+    (mtell "~%Ring specification ~M is not recognized. Using default.~%" ring)
+    nil)))
+
+
+
 
 (defun maxima->poly (expr vars &aux (vars (coerce-maxima-list vars)))
@@ -227 +273 @@
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;; Order utilities
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun find-order (order)
-  "This function returns the order function bases on its name."
-  (cond
-   ((null order) nil)
-   ((symbolp order)
-    (case order
-      ((lex :lex $lex) #'lex>) 
-      ((grlex :grlex $grlex) #'grlex>)
-      ((grevlex :grevlex $grevlex) #'grevlex>)
-      ((invlex :invlex $invlex) #'invlex>)
-      ((elimination-order-1 :elimination-order-1 elimination_order_1) #'elimination-order-1)
-      (otherwise
-       (mtell "~%Warning: Order ~M not found. Using default.~%" order))))
-   (t
-    (mtell "~%Order specification ~M is not recognized. Using default.~%" order)
-    nil)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;; Ring utilities
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun find-ring (ring)
-  "This function returns the ring structure bases on input symbol."
-  (cond
-   ((null ring) nil)
-   ((symbolp ring)
-    (case ring
-      ((maxima-ring  :maxima-ring $expression_ring) *maxima-ring*) 
-      ((ring-of-integers :ring-of-integers $ring_of_integers) *ring-of-integers*) 
-      (otherwise
-       (mtell "~%Warning: Ring ~M not found. Using default.~%" ring))))
-   (t
-    (mtell "~%Ring specification ~M is not recognized. Using default.~%" ring)
-    nil)))
-
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;