1 ;;; -*- Mode: Lisp; Package: Macsyma -*-
2 ;;; Translated code for LMIVAX::MAX$DISK:[SHARE2]REVERT.MC;5
3 ;;; Written on 9/20/1984 06:28:12, from MACSYMA 302
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
))))
19 (setq $tr_semicompile
'NIL
)
20 (setq forms-to-compile-queue
()))
22 (comment "MAX$DISK:[SHARE2]REVERT.MC;5")
24 ;;; General declarations required for translated MACSYMA code.
26 (DECLARE (SPECIAL $W $V
))
32 (DEFMTRFUN-EXTERNAL ($REVERT $ANY MDEFINE NIL NIL
))
34 (DEFMTRFUN-EXTERNAL ($REVERT2 $ANY MDEFINE NIL NIL
))
37 (MEVAL* '(($DECLARE
) ((MLIST) $V $W
) $SPECIAL
))
39 (DEFPROP $REVERT T TRANSLATED
)
41 (ADD2LNC '$REVERT $PROPS
)
44 ($REVERT $ANY MDEFINE NIL NIL
) ($EXP $T
) NIL
45 ((LAMBDA ($F $N $V $W $R1
)
47 (SETQ $N
(SIMPLIFY (MFUNCTION-CALL $HIPOW $EXP $T
)))
48 (APPLY '$ARRAY
(LIST '((MLIST) $V $W
) $N
))
49 (SETQ $R1
(DIV 1 (SIMPLIFY (MFUNCTION-CALL $RATCOEF $EXP $T
1))))
50 (MARRAYSET 1 (TRD-MSYMEVAL $V
'$V
) 1)
51 (DO (($K
2 (+ 1 $K
))) ((IS-BOOLE-CHECK (MGRP $K $N
)) '$DONE
)
52 (MARRAYSET (MUL* (SIMPLIFY (MFUNCTION-CALL $RATCOEF $EXP $T $K
)) $R1
)
53 (TRD-MSYMEVAL $V
'$V
) $K
)
54 (MARRAYSET (*MMINUS
(MARRAYREF (TRD-MSYMEVAL $V
'$V
) $K
))
55 (TRD-MSYMEVAL $W
'$W
) $K
))
56 (MARRAYSET 1 (TRD-MSYMEVAL $W
'$W
) 1)
61 (DO (($I
(ADD* $J
1) (ADD* 1 $I
)))
62 ((IS-BOOLE-CHECK (MGRP $I $N
)) '$DONE
)
65 (MARRAYREF (TRD-MSYMEVAL $W
'$W
) $I
)
67 (MUL* (MARRAYREF (TRD-MSYMEVAL $W
'$W
) $J
)
69 (TRD-MSYMEVAL $V
'$V
) (ADD* $I
(*MMINUS $J
) 1)))))
70 (TRD-MSYMEVAL $W
'$W
) $I
))))
71 (DO (($J
2 (+ 1 $J
))) ((IS-BOOLE-CHECK (MGRP $J
(ADD* $N -
1))) '$DONE
)
72 (SIMPLIFY (MFUNCALL $F $J
)))
73 (DO (($K
2 (+ 1 $K
))) ((IS-BOOLE-CHECK (MGRP $K
(ADD* $N -
1))) '$DONE
)
74 (DO (($J $K
(+ 1 $J
)))
75 ((IS-BOOLE-CHECK (MGRP $J
(ADD* $N -
1))) '$DONE
)
76 (SIMPLIFY (MFUNCALL $F $J
))))
78 (DO (($K
1 (+ 1 $K
))) ((IS-BOOLE-CHECK (MGRP $K $N
)) '$DONE
)
79 (SETQ $F
(ADD* $F
(MUL* (MARRAYREF (TRD-MSYMEVAL $W
'$W
) $K
)
80 (POWER (MUL* $T $R1
) $K
)))))
82 '$F
'$N
'$V
'$W
'$R1
))
84 (DEFPROP $REVERT2 T TRANSLATED
)
86 (ADD2LNC '$REVERT2 $PROPS
)
89 ($REVERT2 $ANY MDEFINE NIL NIL
) ($EXP $VAR $N
) NIL
90 ((LAMBDA ($F $V $W $R1 $N
)
93 (SETQ $N
(SIMPLIFY (MFUNCTION-CALL $HIPOW $EXP $VAR
)))
94 (COND ((LIKE $N
0) (RETURN $EXP
)))
95 (APPLY '$ARRAY
(LIST '((MLIST) $V $W
) $N
))
96 (MARRAYSET (SIMPLIFY (MFUNCTION-CALL $RATCOEF $EXP $VAR
0))
97 (TRD-MSYMEVAL $V
'$V
) 0)
99 $R1
(DIV 1 (SIMPLIFY (MFUNCTION-CALL $RATCOEF $EXP $VAR
1))))
100 (MARRAYSET 1 (TRD-MSYMEVAL $V
'$V
) 1)
101 (DO (($K
2 (+ 1 $K
))) ((IS-BOOLE-CHECK (MGRP $K $N
)) '$DONE
)
103 (MUL* (SIMPLIFY (MFUNCTION-CALL $RATCOEF $EXP $VAR $K
)) $R1
)
104 (TRD-MSYMEVAL $V
'$V
) $K
)
105 (MARRAYSET (*MMINUS
(MARRAYREF (TRD-MSYMEVAL $V
'$V
) $K
))
106 (TRD-MSYMEVAL $W
'$W
) $K
))
107 (MARRAYSET 1 (TRD-MSYMEVAL $W
'$W
) 1)
112 (DO (($I
(ADD* $J
1) (ADD* 1 $I
)))
113 ((IS-BOOLE-CHECK (MGRP $I $N
)) '$DONE
)
116 (MARRAYREF (TRD-MSYMEVAL $W
'$W
) $I
)
117 (*MMINUS
(MUL* (MARRAYREF (TRD-MSYMEVAL $W
'$W
) $J
)
118 (MARRAYREF (TRD-MSYMEVAL $V
'$V
)
119 (ADD* $I
(*MMINUS $J
) 1)))))
120 (TRD-MSYMEVAL $W
'$W
) $I
))))
121 (DO (($J
2 (+ 1 $J
)))
122 ((IS-BOOLE-CHECK (MGRP $J
(ADD* $N -
1))) '$DONE
)
123 (SIMPLIFY (MFUNCALL $F $J
)))
124 (DO (($K
2 (+ 1 $K
)))
125 ((IS-BOOLE-CHECK (MGRP $K
(ADD* $N -
1))) '$DONE
)
126 (DO (($J $K
(+ 1 $J
)))
127 ((IS-BOOLE-CHECK (MGRP $J
(ADD* $N -
1))) '$DONE
)
128 (SIMPLIFY (MFUNCALL $F $J
))))
130 (SETQ $R1
(SIMPLIFY (MFUNCTION-CALL $RATDISREP $R1
)))
131 (DO (($K
1 (+ 1 $K
))) ((IS-BOOLE-CHECK (MGRP $K $N
)) '$DONE
)
138 $RATDISREP
(MARRAYREF (TRD-MSYMEVAL $W
'$W
) $K
)))
146 (*MMINUS
(MARRAYREF (TRD-MSYMEVAL $V
'$V
) 0)))))
151 '$F
'$V
'$W
'$R1
'$N
))
153 (compile-forms-to-compile-queue)
