Lines Matching +defs:calcFunc +defs:vmax
40 (calc-vector-op "coun" 'calcFunc-vcount arg)))
46 (calc-vector-op "vprd" 'calcFunc-vprod arg)
47 (calc-vector-op "vsum" 'calcFunc-vsum arg))))
58 (calc-vector-op "vmin" 'calcFunc-vmin arg)
59 (calc-vector-op "vmax" 'calcFunc-vmax arg))))
71 (calc-vector-op "harm" 'calcFunc-vhmean arg)
72 (calc-vector-op "medn" 'calcFunc-vmedian arg))
74 (calc-vector-op "meae" 'calcFunc-vmeane arg)
75 (calc-vector-op "mean" 'calcFunc-vmean arg)))))
97 (calc-binary-op "geom" 'calcFunc-agmean arg)
98 (calc-vector-op "geom" 'calcFunc-vgmean arg))))
105 (calc-vector-op "pvar" 'calcFunc-vpvar arg)
106 (calc-vector-op "var" 'calcFunc-vvar arg))
108 (calc-vector-op "psdv" 'calcFunc-vpsdev arg)
109 (calc-vector-op "sdev" 'calcFunc-vsdev arg)))))
132 (calc-enter-result n "corr" (cons 'calcFunc-vcorr
135 (calc-enter-result n "pcov" (cons 'calcFunc-vpcov
137 (calc-enter-result n "cov" (cons 'calcFunc-vcov
167 (defun calcFunc-vsum (&rest vecs)
168 (math-reduce-many-vecs 'calcFunc-add 'calcFunc-vsum vecs 0))
170 (defun calcFunc-vprod (&rest vecs)
171 (math-reduce-many-vecs 'calcFunc-mul 'calcFunc-vprod vecs 1))
173 (defun calcFunc-vmax (&rest vecs)
178 (math-reduce-many-vecs 'calcFunc-max 'calcFunc-vmax vecs
181 (defun calcFunc-vmin (&rest vecs)
186 (math-reduce-many-vecs 'calcFunc-min 'calcFunc-vmin vecs
203 (calcFunc-reducer
204 (math-calcFunc-to-var func)
224 (defun calcFunc-vcount (&rest vecs)
268 (defun calcFunc-vflat (&rest vecs)
301 (defun calcFunc-vmean (&rest vecs)
310 (calcFunc-vmean (nth 2 x) (nth 3 x)))
313 (let* ((sqrwts (calcFunc-map '(var mul var-mul) wts wts))
314 (suminvsqrwts (calcFunc-reduce
316 (calcFunc-map '(var div var-div)
318 (math-div (calcFunc-reduce '(var add var-add)
319 (calcFunc-map '(var div var-div)
322 (math-div (calcFunc-reduce '(var add var-add) means) len)))))))
332 (defun calcFunc-vmeane (&rest vecs)
341 (let* ((sqrwts (calcFunc-map '(var mul var-mul) wts wts))
342 (suminvsqrwts (calcFunc-reduce
344 (calcFunc-map '(var div var-div)
347 (math-div (calcFunc-reduce '(var add var-add)
348 (calcFunc-map '(var div var-div)
351 (list 'calcFunc-sqrt (math-div 1 suminvsqrwts))))
352 (let ((mean (math-div (calcFunc-reduce '(var add var-add) means)
356 (list 'calcFunc-sqrt
357 (math-div (calcFunc-reducer
359 (calcFunc-map '(var pow var-pow)
360 (calcFunc-map '(var abs var-abs)
361 (calcFunc-map
370 (defun calcFunc-vmedian (&rest vecs)
378 (calcFunc-vmean (car flat))
391 (defun calcFunc-vgmean (&rest vecs)
397 (let ((x (calcFunc-reduce '(var mul math-mul) flat)))
403 (defun calcFunc-agmean (a b)
422 (defun calcFunc-vhmean (&rest vecs)
429 (calcFunc-reduce '(var add math-add)
430 (calcFunc-map '(var inv var-inv) flat)))))))
436 (defun calcFunc-vvar (&rest vecs)
444 (defun calcFunc-vsdev (&rest vecs)
451 (math-sqrt (calcFunc-vvar (car vecs))))
456 (defun calcFunc-vpvar (&rest vecs)
464 (defun calcFunc-vpsdev (&rest vecs)
471 (math-sqrt (calcFunc-vpvar (car vecs))))
483 (calcFunc-sum '(^ (var X var-X) 2) '(var X var-X)
485 (calcFunc-sum '(^ (- (var X var-X) (/ 1 2)) 2)
491 (defun calcFunc-vcov (vec1 &optional vec2)
494 (defun calcFunc-vpcov (vec1 &optional vec2)
497 (defun calcFunc-vcorr (vec1 &optional vec2)
527 (calcFunc-map '(var mul var-mul) wts1 wts1)
530 (calcFunc-map '(var mul var-mul) wts2 wts2)
532 suminvsqrwts (calcFunc-reduce
534 (calcFunc-map '(var div var-div) 1 sqrwts))))
542 (let* ((diff1 (calcFunc-map
546 (math-div (calcFunc-reduce
548 (calcFunc-map '(var div var-div)
551 (math-div (calcFunc-reducer '(var add var-add) means1)
555 (calcFunc-map
559 (math-div (calcFunc-reduce
561 (calcFunc-map '(var div var-div)
564 (math-div (calcFunc-reducer '(var add var-add) means2)
566 (covar (calcFunc-map '(var mul var-mul) diff1 diff2)))
568 (setq covar (calcFunc-map '(var div var-div) covar sqrwts)))
570 (calcFunc-reducer '(var add var-add) covar)
572 (let ((var1 (calcFunc-map '(var mul var-mul) diff1 diff1))
573 (var2 (calcFunc-map '(var mul var-mul) diff2 diff2)))
575 (setq var1 (calcFunc-map '(var div var-div) var1 sqrwts)
576 var2 (calcFunc-map '(var div var-div) var2 sqrwts)))
578 (math-mul (calcFunc-reducer '(var add var-add) var1)
579 (calcFunc-reducer '(var add var-add) var2))))