
(/VERSIONCHECK 2) 

(PUT '|DFMAT;minRowIndex;$I;1| '|SPADreplace| '(XLAM (|x|) 0)) 

(DEFUN |DFMAT;minRowIndex;$I;1| (|x| $) 0) 

(PUT '|DFMAT;minColIndex;$I;2| '|SPADreplace| '(XLAM (|x|) 0)) 

(DEFUN |DFMAT;minColIndex;$I;2| (|x| $) 0) 

(PUT '|DFMAT;nrows;$Nni;3| '|SPADreplace| 'DANROWS) 

(DEFUN |DFMAT;nrows;$Nni;3| (|x| $) (DANROWS |x|)) 

(PUT '|DFMAT;ncols;$Nni;4| '|SPADreplace| 'DANCOLS) 

(DEFUN |DFMAT;ncols;$Nni;4| (|x| $) (DANCOLS |x|)) 

(DEFUN |DFMAT;maxRowIndex;$I;5| (|x| $) (- (DANROWS |x|) 1)) 

(DEFUN |DFMAT;maxColIndex;$I;6| (|x| $) (- (DANCOLS |x|) 1)) 

(PUT '|DFMAT;qelt;$2IDf;7| '|SPADreplace| 'DAREF2) 

(DEFUN |DFMAT;qelt;$2IDf;7| (|m| |i| |j| $) (DAREF2 |m| |i| |j|)) 

(PUT '|DFMAT;qsetelt!;$2I2Df;8| '|SPADreplace| 'DSETAREF2) 

(DEFUN |DFMAT;qsetelt!;$2I2Df;8| (|m| |i| |j| |r| $)
  (DSETAREF2 |m| |i| |j| |r|)) 

(PUT '|DFMAT;empty;$;9| '|SPADreplace| '(XLAM NIL (MAKE-DOUBLE-MATRIX 0 0))) 

(DEFUN |DFMAT;empty;$;9| ($) (MAKE-DOUBLE-MATRIX 0 0)) 

(PUT '|DFMAT;qnew;2I$;10| '|SPADreplace| 'MAKE-DOUBLE-MATRIX) 

(DEFUN |DFMAT;qnew;2I$;10| (|rows| |cols| $) (MAKE-DOUBLE-MATRIX |rows| |cols|)) 

(PUT '|DFMAT;new;2NniDf$;11| '|SPADreplace| 'MAKE-DOUBLE-MATRIX1) 

(DEFUN |DFMAT;new;2NniDf$;11| (|rows| |cols| |a| $)
  (MAKE-DOUBLE-MATRIX1 |rows| |cols| |a|)) 

(DEFUN |DoubleFloatMatrix| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1819)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|DoubleFloatMatrix|)
                . #3=(|DoubleFloatMatrix|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|DoubleFloatMatrix|
                         (LIST (CONS NIL (CONS 1 (|DoubleFloatMatrix;|))))))
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache| '|DoubleFloatMatrix|))))))))))) 

(DEFUN |DoubleFloatMatrix;| ()
  (PROG (|dv$| $ #1=#:G1817 |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|DoubleFloatMatrix|) . #2=(|DoubleFloatMatrix|))
      (LETT $ (GETREFV 36) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (LETT #1#
                                                (|HasCategory| (|DoubleFloat|)
                                                               '(|SetCategory|))
                                                . #2#)
                                          (AND
                                           (|HasCategory| (|DoubleFloat|)
                                                          '(|Evalable|
                                                            (|DoubleFloat|)))
                                           #1#)
                                          (|HasCategory| (|DoubleFloat|)
                                                         '(|EuclideanDomain|))
                                          (|HasCategory| (|DoubleFloat|)
                                                         '(|IntegralDomain|))
                                          (|HasCategory| (|DoubleFloat|)
                                                         '(|CommutativeRing|))
                                          (|HasCategory| (|DoubleFloat|)
                                                         '(|Field|))))
                      . #2#))
      (|haddProp| |$ConstructorCache| '|DoubleFloatMatrix| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (AND (|HasCategory| $ '(|finiteAggregate|)) (|augmentPredVector| $ 64))
      (AND (|HasCategory| $ '(|finiteAggregate|)) #1#
           (|augmentPredVector| $ 128))
      (SETF |pv$| (QREFELT $ 3))
      $)))) 

(MAKEPROP '|DoubleFloatMatrix| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|Integer|) |DFMAT;minRowIndex;$I;1|
              |DFMAT;minColIndex;$I;2| (|NonNegativeInteger|)
              |DFMAT;nrows;$Nni;3| |DFMAT;ncols;$Nni;4|
              |DFMAT;maxRowIndex;$I;5| |DFMAT;maxColIndex;$I;6| (|DoubleFloat|)
              |DFMAT;qelt;$2IDf;7| |DFMAT;qsetelt!;$2I2Df;8| |DFMAT;empty;$;9|
              |DFMAT;qnew;2I$;10| |DFMAT;new;2NniDf$;11| (|List| 14)
              (|Equation| 14) (|List| 21) (|Boolean|) (|List| 30)
              (|Union| $ '"failed") (|SingleInteger|) (|OutputForm|) (|String|)
              (|Mapping| 23 14) (|DoubleFloatVector|) (|List| 6) (|List| 20)
              (|List| $) (|Mapping| 14 14 14) (|Mapping| 14 14))
           '#(~= 0 |zero| 6 |vertConcat| 12 |transpose| 18 |symmetric?| 28
              |swapRows!| 33 |swapColumns!| 40 |subMatrix| 47 |squareTop| 56
              |square?| 61 |size?| 66 |setsubMatrix!| 72 |setelt| 80 |setRow!|
              96 |setColumn!| 103 |scalarMatrix| 110 |sample| 116 |rowEchelon|
              120 |row| 125 |rank| 131 |qsetelt!| 136 |qnew| 144 |qelt| 150
              |parts| 157 |nullity| 162 |nullSpace| 167 |nrows| 172 |new| 177
              |ncols| 184 |more?| 189 |minordet| 195 |minRowIndex| 200
              |minColIndex| 205 |members| 210 |member?| 215 |maxRowIndex| 221
              |maxColIndex| 226 |matrix| 231 |map!| 236 |map| 242 |listOfLists|
              263 |less?| 268 |latex| 274 |inverse| 279 |horizConcat| 284
              |hash| 290 |fill!| 295 |exquo| 301 |every?| 307 |eval| 313 |eq?|
              339 |empty?| 345 |empty| 350 |elt| 354 |diagonalMatrix| 376
              |diagonal?| 386 |determinant| 391 |count| 396 |copy| 408
              |columnSpace| 413 |column| 418 |coerce| 424 |any?| 434
              |antisymmetric?| 440 ^ 445 |Pfaffian| 457 = 462 / 468 - 474 + 485
              * 491 |#| 527)
           'NIL
           (CONS (|makeByteWordVec2| 2 '(0 0 0 0 2 1 0 0 0 2 1 1))
                 (CONS
                  '#(|MatrixCategory&| |TwoDimensionalArrayCategory&|
                     |HomogeneousAggregate&| |Aggregate&| |Evalable&|
                     |SetCategory&| NIL NIL NIL |InnerEvalable&| |BasicType&|
                     NIL)
                  (CONS
                   '#((|MatrixCategory| 14 30 30)
                      (|TwoDimensionalArrayCategory| 14 30 30)
                      (|HomogeneousAggregate| 14) (|Aggregate|) (|Evalable| 14)
                      (|SetCategory|) (|Type|) (|finiteAggregate|)
                      (|shallowlyMutable|) (|InnerEvalable| 14 14)
                      (|BasicType|) (|CoercibleTo| 27))
                   (|makeByteWordVec2| 35
                                       '(2 1 23 0 0 1 2 0 0 9 9 1 2 0 0 0 0 1 1
                                         0 0 0 1 1 0 0 30 1 1 0 23 0 1 3 0 0 0
                                         6 6 1 3 0 0 0 6 6 1 5 0 0 0 6 6 6 6 1
                                         1 0 0 0 1 1 0 23 0 1 2 0 23 0 9 1 4 0
                                         0 0 6 6 0 1 4 0 0 0 31 31 0 1 4 0 14 0
                                         6 6 14 1 3 0 0 0 6 30 1 3 0 0 0 6 30 1
                                         2 0 0 9 14 1 0 0 0 1 1 3 0 0 1 2 0 30
                                         0 6 1 1 4 9 0 1 4 0 14 0 6 6 14 16 2 0
                                         0 6 6 18 3 0 14 0 6 6 15 1 0 20 0 1 1
                                         4 9 0 1 1 4 24 0 1 1 0 9 0 10 3 0 0 9
                                         9 14 19 1 0 9 0 11 2 0 23 0 9 1 1 5 14
                                         0 1 1 0 6 0 7 1 0 6 0 8 1 7 20 0 1 2 8
                                         23 14 0 1 1 0 6 0 12 1 0 6 0 13 1 0 0
                                         32 1 2 0 0 35 0 1 3 0 0 34 0 0 1 4 0 0
                                         34 0 0 14 1 2 0 0 35 0 1 1 0 32 0 1 2
                                         0 23 0 9 1 1 1 28 0 1 1 6 25 0 1 2 0 0
                                         0 0 1 1 1 26 0 1 2 0 0 0 14 1 2 4 25 0
                                         14 1 2 7 23 29 0 1 3 2 0 0 14 14 1 3 2
                                         0 0 20 20 1 2 2 0 0 21 1 2 2 0 0 22 1
                                         2 0 23 0 0 1 1 0 23 0 1 0 0 0 17 3 0 0
                                         0 31 31 1 4 0 14 0 6 6 14 1 3 0 14 0 6
                                         6 1 1 0 0 33 1 1 0 0 20 1 1 0 23 0 1 1
                                         5 14 0 1 2 8 9 14 0 1 2 7 9 29 0 1 1 0
                                         0 0 1 1 3 24 0 1 2 0 30 0 6 1 1 1 27 0
                                         1 1 0 0 30 1 2 7 23 29 0 1 1 0 23 0 1
                                         2 6 0 0 6 1 2 0 0 0 9 1 1 5 14 0 1 2 1
                                         23 0 0 1 2 6 0 0 14 1 2 0 0 0 0 1 1 0
                                         0 0 1 2 0 0 0 0 1 2 0 30 0 30 1 2 0 30
                                         30 0 1 2 0 0 6 0 1 2 0 0 14 0 1 2 0 0
                                         0 14 1 2 0 0 0 0 1 1 7 9 0 1)))))
           '|lookupComplete|)) 

(MAKEPROP '|DoubleFloatMatrix| 'NILADIC T) 
