Function: calc-invent-variables

calc-invent-variables is a byte-compiled function defined in calcalg3.el.gz.

Signature

(calc-invent-variables NUM BUT NAMES BASE)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calcalg3.el.gz
(defun calc-invent-variables (num but names base)
  (let ((vars nil)
	(n num) (nn 0)
	var)
    (while (and (> n 0) names)
      (setq var (math-build-var-name (if (consp names)
					 (car names)
				       (concat base (int-to-string
						     (setq nn (1+ nn)))))))
      (or (math-expr-contains (cons 'vec but) var)
	  (setq vars (cons var vars)
		n (1- n)))
      (or (symbolp names) (setq names (cdr names))))
    (if (= n 0)
	(nreverse vars)
      (calc-invent-variables num but t base))))