Function: calcFunc-inner

calcFunc-inner is an autoloaded and byte-compiled function defined in calc-map.el.gz.

Signature

(calcFunc-inner INNER-MUL-FUNC INNER-ADD-FUNC A B)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-map.el.gz
(defun calcFunc-inner (inner-mul-func inner-add-func a b)
  (or (math-vectorp a) (math-reject-arg a 'vectorp))
  (or (math-vectorp b) (math-reject-arg b 'vectorp))
  (let ((math-inner-mul-func inner-mul-func)
        (math-inner-add-func inner-add-func))
  (if (math-matrixp a)
      (if (math-matrixp b)
	  (if (= (length (nth 1 a)) (length b))
	      (math-inner-mats a b)
	    (math-dimension-error))
	(if (= (length (nth 1 a)) 2)
	    (if (= (length a) (length b))
		(math-inner-mats a (list 'vec b))
	      (math-dimension-error))
	  (if (= (length (nth 1 a)) (length b))
	      (math-mat-col (math-inner-mats a (math-col-matrix b))
			    1)
	    (math-dimension-error))))
    (if (math-matrixp b)
	(nth 1 (math-inner-mats (list 'vec a) b))
      (calcFunc-reduce math-inner-add-func (calcFunc-map math-inner-mul-func a b))))))