Function: math-solve-system-subst

math-solve-system-subst is a byte-compiled function defined in calcalg2.el.gz.

Signature

(math-solve-system-subst X)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calcalg2.el.gz
(defun math-solve-system-subst (x)    ; uses "res" and "v"
  (let ((accum nil)
	(res2 math-solve-system-res))
    (while x
      (setq accum (nconc accum
                         (mapcar (lambda (r)
                                   (if math-solve-simplifying
                                       (math-simplify
                                        (math-expr-subst
                                         (car x) math-solve-system-vv r))
                                     (math-expr-subst
                                      (car x) math-solve-system-vv r)))
				 (car res2)))
	    x (cdr x)
	    res2 (cdr res2)))
    accum))