share/sym/sym1.mac

   1 /* Fichier sym.mac
   2                      Version 02 Mars 1999 sans autoload
   3
   4 ;       ***************************************************************
   5 ;       *                    MODULE SYM                               *
   6 ;       *       MANIPULATIONS DE FONCTIONS SYMETRIQUES                *
   7 ;       *        (version02: Commonlisp pour Maxima)                  *
   8 ;       *                                                             *
   9 ;       *                ----------------------                       *
  10 ;       *                  Annick VALIBOUZE                           *
  11 ;       *                    GDR MEDICIS                              *
  12 ;       *  (Mathe'matiques Effectives, De'veloppements Informatiques, *
  13 ;       *           Calculs et Ingenierie, Syste`mes)                 *
  14 ;       *         Laboratoire LIP6 (Equipe Calcul Formel)             *
  15 ;       *                 Universite' Paris 6,                        *
  16 ;       *        4 place Jussieu, 75252 Paris cedex 05.               *
  17 ;       *              e-mail : avb@sysal.ibp.fr                      *
  18 ;       ***************************************************************
  19 */
  20
  21
  22 /* valeurs par defauts qui ne doivent pas ecraser celles deja donnees
  23 par l'utilisateur */
  24
  25 if ev(schur2comp)='schur2comp then schur2comp : pol;
  26 if ev(direct)='direct then direct : puissances;
  27 if ev(oper)='oper then  oper :  meval;
  28 if ev(kak)='kak then  kak : 1;
  29 if ev(elem)='elem then elem : 1;
  30 if ev(pui)='pui then pui: 1;
  31 if ev(pui2ele)='pui2ele then pui2ele : girard;
  32 if ev(somrac)='somrac then somrac: puissances;
  33 if ev(resulsym)='resulsym then resulsym: 14;
  34
  35 print(resolvante);
  36 if ev(resolvante)='resolvante then resolvante: generale;
  37 print(resolvante);
  38 if ev(directnew)='directnew then directnew: parallele ;
  39
  40 print("");
  41 print("NOTE: To compile the system do");
  42 print("load(\"sym/compile\");");
  43
  44 block (load ("load-sym-lisp-files"), 'done);