Lines Matching +defs:calcFunc +defs:vxor
112 (cons 'calcFunc-date items)))))
120 (cons 'calcFunc-date items)
155 (list 'calcFunc-exp
180 (list 'calcFunc-makemod a m))))
197 (cons 'calcFunc-fdiv items))))
200 (calcFunc-scf (math-float (car items)) (nth 1 items))
204 (list 'calcFunc-scf
205 (list 'calcFunc-float (car items))
331 (list (calcFunc-mant item) (calcFunc-xpon item))
340 (list 'calcFunc-diag (calc-top-n 1)
342 (list 'calcFunc-diag (calc-top-n 1))))))
348 '(calcFunc-idn 1)
349 (list 'calcFunc-idn 1
356 (calc-enter-result 3 "indx" (cons 'calcFunc-index (calc-top-list-n 3)))
357 (calc-enter-result 0 "indx" (list 'calcFunc-index
363 (calc-enter-result 1 "bldv" (list 'calcFunc-cvec
371 (calc-binary-op "rcns" 'calcFunc-rcons arg)
372 (calc-binary-op "cons" 'calcFunc-cons arg))))
380 (calc-unary-op "rtai" 'calcFunc-rtail arg)
381 (calc-unary-op "tail" 'calcFunc-tail arg))
383 (calc-unary-op "rhed" 'calcFunc-rhead arg)
384 (calc-unary-op "head" 'calcFunc-head arg)))))
395 (calc-unary-op "dims" 'calcFunc-mdims arg)
396 (calc-unary-op "len" 'calcFunc-vlen arg))))
401 (calc-enter-result 1 "arng" (list 'calcFunc-arrange (calc-top-n 1)
407 (let ((func (cons 'calcFunc-find (calc-top-list-n 2))))
416 (calc-enter-result 3 "rsvc" (cons 'calcFunc-rsubvec
418 (calc-enter-result 3 "svec" (cons 'calcFunc-subvec (calc-top-list-n 3))))))
423 (calc-unary-op "rev" 'calcFunc-rev arg)))
428 (calc-binary-op "vmsk" 'calcFunc-vmask arg)))
434 (calc-enter-result 3 "vexp" (cons 'calcFunc-vexp (calc-top-list-n 3)))
435 (calc-binary-op "vexp" 'calcFunc-vexp arg))))
441 (calc-enter-result 1 "rsrt" (list 'calcFunc-rsort (calc-top-n 1)))
442 (calc-enter-result 1 "sort" (list 'calcFunc-sort (calc-top-n 1))))))
448 (calc-enter-result 1 "rgrd" (list 'calcFunc-rgrade (calc-top-n 1)))
449 (calc-enter-result 1 "grad" (list 'calcFunc-grade (calc-top-n 1))))))
455 (calc-enter-result 2 "hist" (list 'calcFunc-histogram
459 (calc-enter-result 1 "hist" (list 'calcFunc-histogram
466 (calc-unary-op "trn" 'calcFunc-trn arg)))
471 (calc-unary-op "ctrn" 'calcFunc-ctrn arg)))
476 (calc-binary-op "cros" 'calcFunc-cross arg)))
481 (calc-unary-op "rdup" 'calcFunc-rdup arg)))
486 (calc-binary-op "unio" 'calcFunc-vunion arg '(vec) 'calcFunc-rdup)))
491 (calc-binary-op "intr" 'calcFunc-vint arg '(vec) 'calcFunc-rdup)))
496 (calc-binary-op "diff" 'calcFunc-vdiff arg '(vec) 'calcFunc-rdup)))
501 (calc-binary-op "xor" 'calcFunc-vxor arg '(vec) 'calcFunc-rdup)))
506 (calc-unary-op "cmpl" 'calcFunc-vcompl arg)))
511 (calc-unary-op "vflr" 'calcFunc-vfloor arg)))
516 (calc-unary-op "enum" 'calcFunc-venum arg)))
521 (calc-unary-op "span" 'calcFunc-vspan arg)))
526 (calc-unary-op "card" 'calcFunc-vcard arg)))
532 (calc-unary-op "bpck" 'calcFunc-vpack arg)
533 (calc-unary-op "bupk" 'calcFunc-vunpack arg))))
544 (calc-unary-op "rnrm" 'calcFunc-rnorm arg)))
549 (calc-unary-op "cnrm" 'calcFunc-cnorm arg)))
555 (calc-enter-result 2 "mrow" (cons 'calcFunc-mrow (calc-top-list-n 2)))
558 (calc-enter-result 1 "getd" (list 'calcFunc-getdiag (calc-top-n 1)))
560 (calc-enter-result 1 "rrow" (list 'calcFunc-mrrow
562 (calc-enter-result 1 "mrow" (list 'calcFunc-mrow
569 (calc-enter-result 2 "mcol" (cons 'calcFunc-mcol (calc-top-list-n 2)))
572 (calc-enter-result 1 "getd" (list 'calcFunc-getdiag (calc-top-n 1)))
574 (calc-enter-result 1 "rcol" (list 'calcFunc-mrcol
576 (calc-enter-result 1 "mcol" (list 'calcFunc-mcol
582 (defun calcFunc-mdims (m)
600 (defun calcFunc-vec (&rest objs)
605 (defun calcFunc-cvec (obj &rest dims)
620 (defun calcFunc-head (vec)
625 (list 'calcFunc-head vec)))
627 (defun calcFunc-tail (vec)
632 (list 'calcFunc-tail vec)))
634 (defun calcFunc-cons (head tail)
638 (list 'calcFunc-cons head tail)))
640 (defun calcFunc-rhead (vec)
647 (list 'calcFunc-rhead vec)))
649 (defun calcFunc-rtail (vec)
654 (list 'calcFunc-rtail vec)))
656 (defun calcFunc-rcons (head tail)
660 (list 'calcFunc-rcons head tail)))
730 (defun calcFunc-vlen (v)
735 (list 'calcFunc-vlen v))))
738 (defun calcFunc-mrow (mat n) ; [Public]
740 (math-map-vec (function (lambda (x) (calcFunc-mrow mat x))) n)
742 (calcFunc-subvec mat
753 (defun calcFunc-subscr (mat n &optional m)
754 (setq mat (calcFunc-mrow mat n))
757 (calcFunc-mrow mat m)
758 (calcFunc-mcol mat m))
765 (defun calcFunc-mcol (mat n) ; [Public]
767 (calcFunc-trn
768 (math-map-vec (function (lambda (x) (calcFunc-mcol mat x))) n))
771 (math-map-vec (function (lambda (x) (calcFunc-mrow x n))) mat)
772 (calcFunc-mrow mat n))
791 (defun calcFunc-mrrow (mat n) ; [Public]
802 (defun calcFunc-mrcol (mat n) ; [Public]
810 (defun calcFunc-getdiag (mat) ; [Public]
814 (list 'calcFunc-getdiag mat)))
828 (defun calcFunc-trn (mat)
837 (defun calcFunc-ctrn (mat)
838 (calcFunc-conj (calcFunc-trn mat)))
840 (defun calcFunc-pack (mode els)
851 (defun calcFunc-unpack (mode thing)
857 (defun calcFunc-unpackt (mode thing)
859 (calcFunc-unpack mode thing)))
861 (defun calcFunc-arrange (vec cols) ; [Public]
883 (defun calcFunc-vconcat (a b)
886 (defun calcFunc-vconcatrev (a b)
889 (defun calcFunc-append (v1 v2)
892 (list 'calcFunc-append v1 v2)))
894 (defun calcFunc-appendrev (v1 v2)
895 (calcFunc-append v2 v1))
905 (defun calcFunc-diag (a &optional n)
910 (list 'calcFunc-diag a n)
913 (list 'calcFunc-diag a n)
918 (list 'calcFunc-diag a))))
920 (defun calcFunc-idn (a &optional n)
924 (calcFunc-diag a n))
926 (calcFunc-idn a calc-matrix-mode)
927 (list 'calcFunc-idn a))))
931 (calcFunc-idn a (1- (length m)))
940 (calcFunc-idn a))))
952 (defun calcFunc-index (n &optional start incr)
954 (math-float (calcFunc-index (math-trunc n) start incr))
979 (defun calcFunc-find (vec x &optional start)
990 (defun calcFunc-subvec (vec start &optional end)
1009 (defun calcFunc-rsubvec (vec start &optional end)
1027 (defun calcFunc-rev (vec)
1033 (defun calcFunc-vmask (mask vec)
1049 (defun calcFunc-vexp (mask vec &optional filler)
1067 (defun calcFunc-rnorm (a)
1071 (math-reduce-vec 'math-max (math-map-vec 'calcFunc-cnorm a))
1074 (list 'calcFunc-rnorm a)))
1076 (defun calcFunc-cnorm (a)
1084 (list 'calcFunc-cnorm a)))
1091 (defun calcFunc-sort (vec) ; [Public]
1096 (defun calcFunc-rsort (vec) ; [Public]
1101 ;; The variable math-grade-vec is local to calcFunc-grade and
1102 ;; calcFunc-rgrade, but is used by math-grade-beforep, which is called
1103 ;; by calcFunc-grade and calcFunc-rgrade.
1106 (defun calcFunc-grade (math-grade-vec)
1109 (cons 'vec (sort (cdr (calcFunc-index len)) 'math-grade-beforep)))
1112 (defun calcFunc-rgrade (math-grade-vec)
1115 (cons 'vec (nreverse (sort (cdr (calcFunc-index len))
1124 (defun calcFunc-histogram (vec wts &optional n)
1151 (defun calcFunc-vunion (a b)
1159 (calcFunc-rdup (append a b)))
1161 (defun calcFunc-vint (a b)
1164 (setq a (cdr (calcFunc-rdup a)))
1165 (setq b (cdr (calcFunc-rdup b)))
1175 (calcFunc-vcompl (calcFunc-vunion (calcFunc-vcompl a)
1176 (calcFunc-vcompl b)))))
1178 (defun calcFunc-vdiff (a b)
1181 (setq a (cdr (calcFunc-rdup a)))
1182 (setq b (cdr (calcFunc-rdup b)))
1193 (calcFunc-vcompl (calcFunc-vunion (calcFunc-vcompl a) b))))
1195 (defun calcFunc-vxor (a b)
1198 (setq a (cdr (calcFunc-rdup a)))
1199 (setq b (cdr (calcFunc-rdup b)))
1212 (let ((ca (calcFunc-vcompl a))
1213 (cb (calcFunc-vcompl b)))
1214 (calcFunc-vunion (calcFunc-vcompl (calcFunc-vunion ca b))
1215 (calcFunc-vcompl (calcFunc-vunion a cb))))))
1217 (defun calcFunc-vcompl (a)
1240 (defun calcFunc-vspan (a)
1250 (defun calcFunc-vfloor (a &optional always-vec)
1276 (defun calcFunc-vcard (a)
1277 (setq a (calcFunc-vfloor a t))
1287 (defun calcFunc-venum (a)
1288 (setq a (calcFunc-vfloor a t))
1294 (setcdr p (nconc (cdr (calcFunc-index (math-add
1303 (defun calcFunc-vpack (a)
1304 (setq a (calcFunc-vfloor a t))
1323 (defun calcFunc-vunpack (a &optional w)
1354 (defun calcFunc-rdup (a)
1449 (defun calcFunc-cross (a b)
1525 (cons 'calcFunc-mul (cdr vals)) (nth 1 vals)))