Function: math-solve-system

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

Signature

(math-solve-system EXPRS SOLVE-VARS SOLVE-FULL)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calcalg2.el.gz
(defun math-solve-system (exprs solve-vars solve-full)
  (let ((math-solve-vars solve-vars)
        (math-solve-full solve-full))
  (setq exprs (mapcar 'list (if (Math-vectorp exprs)
				(cdr exprs)
			      (list exprs)))
	math-solve-vars (if (Math-vectorp math-solve-vars)
		       (cdr math-solve-vars)
		     (list math-solve-vars)))
  (or (let ((math-solve-simplifying nil))
	(math-solve-system-rec exprs math-solve-vars nil))
      (let ((math-solve-simplifying t))
	(math-solve-system-rec exprs math-solve-vars nil)))))