share/sym/macros.lisp

   1 ; Fichier macros.lsp
   2
   3 ;       ***************************************************************
   4 ;       *                    MODULE SYM                               *
   5 ;       *       MANIPULATIONS DE FONCTIONS SYMETRIQUES                *
   6 ;       *        (version01: Commonlisp pour Maxima)                  *
   7 ;       *                                                             *
   8 ;       *                ----------------------                       *
   9 ;       *                  Annick VALIBOUZE                           *
  10 ;       *                    GDR MEDICIS                              *
  11 ;       *  (Mathe'matiques Effectives, De'veloppements Informatiques, *
  12 ;       *           Calculs et Ingenierie, Syste`mes)                 *
  13 ;       *             LITP (Equipe Calcul Formel)                     *
  14 ;       *                 Universite' Paris 6,                        *
  15 ;       *        4 place Jussieu, 75252 Paris cedex 05.               *
  16 ;       *              e-mail : avb@sysal.ibp.fr                      *
  17 ;       ***************************************************************
  18
  19
  20 ;---------------------------------------------------------------------------
  21 ;                     DECLARATION DES MACROS
  22 ; pour le type 2 des polynomes partitionnes avec en tete de chaque
  23 ; terme partitionne sa longueur
  24 ;---------------------------------------------------------------------------
  25
  26 (defmacro lgi (sym) (list 'caar sym)); longueur de la partition initiale
  27 (defmacro moni (p) (list 'cddar p)); partition initiale
  28 (defmacro coei (p)
  29           (list 'cadar p)); coefficient associe a la partition initiale
  30 (defmacro termi (p) (list 'car p)); terme partitionne initial
  31 (defmacro chcoeterm (term coe); modification physique du coefficient d'un terme
  32           (list 'progn (list 'rplaca (list 'cdr term) coe) term))
  33 (defmacro termrest (p)
  34           (list 'cdr p)); liste de  termes partitionnes sans le premier
  35 (defmacro tmon (term) (list 'cddr term)); partition d'un terme partitionne
  36 (defmacro tcoe (term) (list 'cadr term)); coefficient d'un terme partitionne
  37 (defmacro tlg (term)
  38          (list 'car term)); longueur de la partition d'un terme partitionne
  39
  40
  41
  42
  43