Function: math-lud-pivot-check

math-lud-pivot-check is a byte-compiled function defined in calc-mtx.el.gz.

Signature

(math-lud-pivot-check A)

Documentation

Determine a useful value for checking the size of potential pivots in LUD decomposition.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-mtx.el.gz
(defun math-lud-pivot-check (a)
  "Determine a useful value for checking the size of potential pivots
in LUD decomposition."
  (cond ((eq (car-safe a) 'mod)
         (if (and (math-integerp (nth 1 a))
                  (math-integerp (nth 2 a))
                  (eq (math-gcd (nth 1 a) (nth 2 a)) 1))
             1
           0))
        (t
         (math-abs-approx a))))