Function: math-compose-matrix

math-compose-matrix is a byte-compiled function defined in calccomp.el.gz.

Signature

(math-compose-matrix A COL COLS BASE)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calccomp.el.gz
(defun math-compose-matrix (a _col cols base)
  (let ((col 0)
	(res nil))
    (while (<= (setq col (1+ col)) cols)
      (setq res (cons (cons math-comp-just
			    (cons base
                                  (mapcar (lambda (r)
                                            (list 'horiz
                                                  (math-compose-expr
                                                   (nth col r)
                                                   math-comp-vector-prec)
                                                  (if (= col cols)
                                                      ""
                                                    (concat
                                                     math-comp-comma-spc " "))))
					  a)))
		      res)))
    (nreverse res)))