archive/share/lisp/simpsn.lisp

   1 ;;; -*- Mode: Lisp; Package: Macsyma -*-
   2 ;;; Translated code for LMIVAX::MAX$DISK:[SHARE2]SIMPSN.MC;1
   3 ;;; Written on 9/20/1984 19:48:18, from MACSYMA 302
   4 ;;; Translated for LPH
   5
   6 ;;; TRANSL-AUTOLOAD version NIL
   7 ;;; TRANSS version 87 TRANSL version 1157 TRUTIL version 27
   8 ;;; TRANS1 version 108 TRANS2 version 39 TRANS3 version 50
   9 ;;; TRANS4 version 29 TRANS5 version 26 TRANSF version NIL
  10 ;;; TROPER version 15 TRPRED version 6 MTAGS version NIL
  11 ;;; MDEFUN version 58 TRANSQ version 88 FCALL version 40
  12 ;;; ACALL version 70 TRDATA version 68 MCOMPI version 146
  13 ;;; TRMODE version 73 TRHOOK version NIL
  14 (eval-when (compile eval)
  15       (setq *infile-name-key*
  16                   (namestring (truename '#.standard-input))))
  17
  18 (eval-when (compile)
  19    (setq $tr_semicompile 'NIL)
  20    (setq forms-to-compile-queue ()))
  21
  22 (comment "MAX$DISK:[SHARE2]SIMPSN.MC;1")
  23
  24 ;;; General declarations required for translated MACSYMA code.
  25
  26 (DECLARE)
  27
  28 (DEFMTRFUN-EXTERNAL ($TRAPRULE $ANY MDEFINE NIL NIL))
  29
  30 (DEFMTRFUN-EXTERNAL ($SIMPSON $ANY MDEFINE NIL NIL))
  31
  32
  33 (DEFPROP $TRAPRULE T TRANSLATED)
  34
  35 (ADD2LNC '$TRAPRULE $PROPS)
  36
  37 (DEFMTRFUN
  38  ($TRAPRULE $ANY MDEFINE NIL NIL) ($F $A $B $N) NIL
  39  (MUL*
  40    (DIV (ADD* $B (*MMINUS $A)) $N)
  41    (ADD*
  42      (DIV (ADD* (SIMPLIFY (MFUNCALL $F $B)) (SIMPLIFY (MFUNCALL $F $A))) 2)
  43      (DOSUM
  44        (FUNGEN&ENV-FOR-MEVALSUMARG
  45          ($A $B $N $F) ($I)
  46          (SIMPLIFY
  47            (MFUNCALL
  48              $F (ADD* $A (MUL* (DIV (ADD* $B (*MMINUS $A)) $N) $I))))
  49          (($APPLY) $F
  50           ((MLIST)
  51            ((MPLUS) $A
  52             ((MTIMES) ((MQUOTIENT) ((MPLUS) $B ((MMINUS) $A)) $N) $I)))))
  53        '$I 1 (ADD* $N -1) T))))
  54
  55 (DEFPROP $SIMPSON T TRANSLATED)
  56
  57 (ADD2LNC '$SIMPSON $PROPS)
  58
  59 (DEFMTRFUN
  60   ($SIMPSON $ANY MDEFINE NIL NIL) ($F $A $B $N) NIL
  61   (MUL*
  62     (DIV (DIV (ADD* $B (*MMINUS $A)) $N) 3)
  63     (ADD*
  64       (SIMPLIFY (MFUNCALL $F $A)) (SIMPLIFY (MFUNCALL $F $B))
  65       (MUL*
  66         4 (DOSUM
  67             (FUNGEN&ENV-FOR-MEVALSUMARG
  68               ($A $B $N $F) ($I)
  69               (SIMPLIFY
  70                 (MFUNCALL $F (ADD* $A (MUL* (DIV (ADD* $B (*MMINUS $A)) $N)
  71                                             (ADD* (MUL* 2 $I) -1)))))
  72               (($APPLY) $F
  73                ((MLIST)
  74                 ((MPLUS) $A
  75                  ((MTIMES) ((MQUOTIENT) ((MPLUS) $B ((MMINUS) $A)) $N)
  76                   ((MPLUS) ((MTIMES) 2 $I) ((MMINUS) 1)))))))
  77             '$I 1 (DIV $N 2) T))
  78       (MUL*
  79         2
  80         (DOSUM
  81           (FUNGEN&ENV-FOR-MEVALSUMARG
  82             ($A $B $N $F) ($I)
  83             (SIMPLIFY
  84               (MFUNCALL
  85                 $F
  86                 (ADD*
  87                   $A (MUL* (DIV (ADD* $B (*MMINUS $A)) $N) (MUL* 2 $I)))))
  88             (($APPLY) $F
  89              ((MLIST)
  90               ((MPLUS) $A
  91                ((MTIMES) ((MQUOTIENT) ((MPLUS) $B ((MMINUS) $A)) $N)
  92                 ((MTIMES) 2 $I))))))
  93           '$I 1 (DIV (ADD* $N -2) 2) T)))))
  94
  95 (compile-forms-to-compile-queue)
  96