← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/sym/elem.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/sym/elem.lisp
23
23
; appelle avec elem([card,e1, e2, ...],sym(x,y,..,z),[x,y,...,z])
24
24
; ou multi_elem pour des polyn\^omes multisym\'etriques
25
25
;=============================================================================
26
 
(in-package "MAXIMA")
 
26
(in-package :maxima)
27
27
(macsyma-module elem macros)
28
28
 
29
29
 
223
223
                                (1- puiounb))
224
224
                            puiounb))
225
225
                     i)))
226
 
      (if test
227
 
          (progn
228
 
            (setq nb1 (car (last j)))
229
 
            (nbutlast (nbutlast j)))
230
 
          (setq nb1 0) j))))
 
226
      (cond 
 
227
        (test
 
228
         (setq nb1 (car (last j)))
 
229
         (nbutlast (nbutlast j)))
 
230
        (t
 
231
         (setq nb1 0) j)))))
231
232
;---------------------------------------------------------------------------
232
233
;                             REECRITURE DE I
233
234
;                  Developpement de ei*J ou i= lgI = nb1 + lgJ