Lines Matching +defs:mul +defs:oper
35 (defun calc-apply (&optional oper)
42 (oper (or oper (calc-get-operator "Apply"
50 (concat (substring "apl" 0 (- 4 (length (nth 2 oper))))
51 (nth 2 oper))
53 (math-calcFunc-to-var (nth 1 oper))
56 (defun calc-reduce (&optional oper accum)
67 (oper (or oper (calc-get-operator
80 0 (- 4 (length (nth 2 oper))))
81 (nth 2 oper))
86 (cons (math-calcFunc-to-var (nth 1 oper))
95 (math-calcFunc-to-var (nth 1 oper))
98 (defun calc-accumulate (&optional oper)
100 (calc-reduce oper t))
102 (defun calc-map (&optional oper)
110 (oper (or oper (calc-get-operator "Map")))
111 (nargs (car oper)))
115 (concat (substring "map" 0 (- 4 (length (nth 2 oper))))
116 (nth 2 oper))
118 (cons (math-calcFunc-to-var (nth 1 oper))
123 (defun calc-map-equation (&optional oper)
130 (oper (or oper (calc-get-operator "Map-equation")))
131 (nargs (car oper)))
135 (concat (substring "map" 0 (- 4 (length (nth 2 oper))))
136 (nth 2 oper))
141 (cons (math-calcFunc-to-var (nth 1 oper))
155 (defun calc-outer-product (&optional oper)
162 (oper (or oper (calc-get-operator "Outer" 2))))
166 (concat (substring "out" 0 (- 4 (length (nth 2 oper))))
167 (nth 2 oper))
169 (cons (math-calcFunc-to-var (nth 1 oper))
173 (defun calc-inner-product (&optional mul-oper add-oper)
180 (mul-oper (or mul-oper (calc-get-operator "Inner (Mult)" 2)))
181 (mul-used calc-dollar-used)
182 (calc-dollar-values (if (> mul-used 0)
186 (add-oper (or add-oper (calc-get-operator "Inner (Add)" 2))))
189 (calc-enter-result (+ 2 mul-used calc-dollar-used)
191 (substring (nth 2 mul-oper) 0 1)
192 (substring (nth 2 add-oper) 0 1))
194 (math-calcFunc-to-var (nth 1 mul-oper))
195 (math-calcFunc-to-var (nth 1 add-oper)))
197 2 (+ 1 mul-used calc-dollar-used)))))))
199 (defconst calc-oper-keys '( ( ( ?+ 2 calcFunc-add )
201 ( ?* 2 calcFunc-mul )
254 (defconst calc-a-oper-keys '( ( ( ?a 3 calcFunc-apart )
307 (defconst calc-b-oper-keys '( ( ( ?a 2 calcFunc-and )
344 (defconst calc-c-oper-keys '( ( ( ?d 1 calcFunc-deg )
350 (defconst calc-f-oper-keys '( ( ( ?b 2 calcFunc-beta )
382 (defconst calc-k-oper-keys '( ( ( ?b 1 calcFunc-bern )
413 (defconst calc-s-oper-keys '( ( ( ?: 2 calcFunc-assign )
416 (defconst calc-t-oper-keys '( ( ( ?C 3 calcFunc-tzconv )
425 (defconst calc-u-oper-keys '( ( ( ?C 2 calcFunc-vcov )
441 (defconst calc-v-oper-keys '( ( ( ?a 2 calcFunc-arrange )
507 done key oper (which 0)
606 (setq oper (list "$" (- (length expr) 2) expr)
630 (setq oper (list "$"
636 (calc-record (nth 2 oper) "oper"))))
637 ((setq oper (assq key (nth (if inv (if hyp 3 1) (if hyp 2 0))
640 (intern (format "calc-%c-oper-keys"
642 calc-oper-keys))))
643 (if (eq (nth 1 oper) 'user)
649 (setq oper (list "z" (or forcenargs nargs) func)
662 (setq oper (list "z" nargs func)
669 (setq oper (list "z" (- nargs ?0) func)
683 (calc-mapping-dir (and (memq (nth 2 oper)
690 (substring (symbol-name (nth 2 oper))
693 (cdr (assq (nth 2 oper)
702 (oper3 (if (eq (nth 2 oper) 'calcFunc-inner)
707 (nargs (if (> (nth 1 oper) 0)
708 (nth 1 oper)
718 (setq oper (list "" nargs
725 (symbol-name (nth 2 oper))
739 (/= nargs (nth 1 oper))
742 (cons forcenargs (cdr (cdr oper)))
743 (cdr oper))
768 ( * . calcFunc-mul )
796 ( calcFunc-mul . * )
950 (if (and (or (equal func '(var mul var-mul))
1040 (calcFunc-mul . math-mul)
1059 (calcFunc-mul . 1) (calcFunc-div . 1)
1235 ;; The variables math-inner-mul-func and math-inner-add-func are
1238 (defvar math-inner-mul-func)
1241 (defun calcFunc-inner (math-inner-mul-func math-inner-add-func a b)
1259 (calcFunc-reduce math-inner-add-func (calcFunc-map math-inner-mul-func a b)))))
1270 (calcFunc-map math-inner-mul-func