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


Ignore:
Timestamp:
2015-06-06T19:37:12-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ring.lisp

    r424 r425  
    1 ;;; -*-  Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*-
     1;;; -*-  mode: lisp; package: maxima; syntax: common-lisp; base: 10 -*-
    22;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    33;;;                                                                             
    4 ;;;  Copyright (C) 1999, 2002, 2009, 2015 Marek Rychlik <rychlik@u.arizona.edu>         
     4;;;  copyright (c) 1999, 2002, 2009, 2015 marek rychlik <rychlik@u.arizona.edu>         
    55;;;                                                                             
    6 ;;;  This program is free software; you can redistribute it and/or modify       
    7 ;;;  it under the terms of the GNU General Public License as published by       
    8 ;;;  the Free Software Foundation; either version 2 of the License, or           
     6;;;  this program is free software; you can redistribute it and/or modify       
     7;;;  it under the terms of the gnu general public license as published by       
     8;;;  the free software foundation; either version 2 of the license, or           
    99;;;  (at your option) any later version.                                         
    1010;;;                                                                             
    11 ;;;  This program is distributed in the hope that it will be useful,             
    12 ;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of             
    13 ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               
    14 ;;;  GNU General Public License for more details.                               
     11;;;  this program is distributed in the hope that it will be useful,             
     12;;;  but without any warranty; without even the implied warranty of             
     13;;;  merchantability or fitness for a particular purpose.  see the               
     14;;;  gnu general public license for more details.                               
    1515;;;                                                                             
    16 ;;;  You should have received a copy of the GNU General Public License           
    17 ;;;  along with this program; if not, write to the Free Software                 
    18 ;;;  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
     16;;;  you should have received a copy of the gnu general public license           
     17;;;  along with this program; if not, write to the free software                 
     18;;;  foundation, inc., 59 temple place - suite 330, boston, ma 02111-1307, usa. 
    1919;;;                                                                             
    2020;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    … …  
    2222;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    2323;;
    24 ;; Coefficient ring operations
     24;; coefficient ring operations
    2525;;
    2626;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    2727;;
    28 ;; These are ALL operations that are performed on the coefficients by
     28;; these are all operations that are performed on the coefficients by
    2929;; the package, and thus the coefficient ring can be changed by merely
    3030;; redefining these operations.
    … …  
    3535  (:use :cl)
    3636  (:export "RING"
     37           "RING-PARSE"
     38           "RING-UNIT"
     39           "RING-ZEROP"
     40           "RING-ADD"
     41           "RING-SUB"
     42           "RING-UMINUS"
     43           "RING-MUL"
     44           "RING-DIV"
     45           "RING-LCM"
     46           "RING-EZGCD"
     47           "RING-GCD"
    3748           "MAKE-RING"
    3849           "*RING-OF-INTEGERS*"
Note: See TracChangeset for help on using the changeset viewer.