Function: math-inner-mats

math-inner-mats is a byte-compiled function defined in calc-map.el.gz.

Signature

(math-inner-mats A B)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-map.el.gz
(defun math-inner-mats (a b)
  (let ((mat nil)
	(cols (length (nth 1 b)))
	row col) ;; ap bp accum
    (while (setq a (cdr a))
      (setq col cols
	    row nil)
      (while (> (setq col (1- col)) 0)
	(setq row (cons (calcFunc-reduce math-inner-add-func
					 (calcFunc-map math-inner-mul-func
						       (car a)
						       (math-mat-col b col)))
			row)))
      (setq mat (cons (cons 'vec row) mat)))
    (cons 'vec (nreverse mat))))