Lines Matching defs:func
500 ;;; Return a list of the form (nargs func name)
589 (func (calc-do-alg-entry "" "Function: " nil
592 (or (= (length func) 1)
598 (math-multi-subst (car func)
604 (car func))))))
644 (let ((func (intern
649 (setq oper (list "z" (or forcenargs nargs) func)
651 (if (fboundp func)
652 (let* ((defn (symbol-function func)))
662 (setq oper (list "z" nargs func)
669 (setq oper (list "z" (- nargs ?0) func)
766 (let* ((func (or (cdr (assq f '( ( + . calcFunc-add )
776 (symbol-name func))
777 (math-match-substring (symbol-name func) 1)
778 (symbol-name func))))
794 (let ((func (assq f '( ( calcFunc-add . + )
801 (if (and func (= (length args) 2))
802 (cons (cdr func) args)
855 (let* ((func (math-var-to-calcFunc f))
874 (setq func (list 'lambda '(&rest x)
924 vec (cons (math-normalize (math-build-call func expr)) vec)))
930 (defun calcFunc-map (func &rest args)
931 (math-symb-map func 'elems args))
933 (defun calcFunc-mapr (func &rest args)
934 (math-symb-map func 'rows args))
936 (defun calcFunc-mapc (func &rest args)
937 (math-symb-map func 'cols args))
939 (defun calcFunc-mapa (func arg)
941 (math-symb-map func 'elems (cdr (math-transpose arg)))
942 (math-symb-map func 'elems arg)))
944 (defun calcFunc-mapd (func arg)
946 (math-symb-map func 'elems (cdr arg))
947 (math-symb-map func 'elems arg)))
949 (defun calcFunc-mapeq (func &rest args)
950 (if (and (or (equal func '(var mul var-mul))
951 (equal func '(var div var-div)))
954 (let ((func (nth 1 (assq (car-safe (nth 1 args))
956 (and func (setq args (list (car args)
957 (cons func (cdr (nth 1 args)))))))
959 (let ((func (nth 1 (assq (car-safe (car args))
961 (and func (setq args (list (cons func (cdr (car args)))
963 (if (or (and (equal func '(var div var-div))
965 (equal func '(var neg var-neg))
966 (equal func '(var inv var-inv)))
967 (apply 'calcFunc-mapeqr func args)
968 (apply 'calcFunc-mapeqp func args)))
970 (defun calcFunc-mapeqr (func &rest args)
972 (let ((func (assq (car-safe x)
974 (if func
975 (cons (nth 1 func) (cdr x))
978 (apply 'calcFunc-mapeqp func args))
980 (defun calcFunc-mapeqp (func &rest args)
991 (math-symb-map func 'eqn args))
996 (defun calcFunc-reduce (func vec)
999 (setq func (math-var-to-calcFunc func))
1006 (math-build-call func (list expr (car row))))
1007 (math-build-call func (list expr (car row))))
1010 (calcFunc-reducer func vec)))
1012 (defun calcFunc-rreduce (func vec)
1015 (setq func (math-var-to-calcFunc func)
1021 (math-build-call func (list (car row) expr))
1026 (calcFunc-rreducer func vec)))
1028 (defun calcFunc-reducer (func vec)
1029 (setq func (math-var-to-calcFunc func))
1036 (and (symbolp func)
1037 (let ((lfunc (or (cdr (assq func
1046 func)))
1052 (setq expr (math-build-call func (list expr (car vec)))))
1054 (or (math-identity-value func)
1057 (defun math-identity-value (func)
1058 (cdr (assq func '( (calcFunc-add . 0) (calcFunc-sub . 0)
1066 (defun calcFunc-rreducer (func vec)
1067 (setq func (math-var-to-calcFunc func))
1070 (if (eq func 'calcFunc-sub) ; do this in a way that looks nicer
1075 (setq expr (math-build-call func (list expr (car vec)))
1076 func (if (eq func 'calcFunc-sub)
1084 (setq expr (math-build-call func (list (car vec) expr))))
1086 (or (math-identity-value func)
1089 (defun calcFunc-reducec (func vec)
1091 (calcFunc-reducer func (math-transpose vec))
1092 (calcFunc-reducer func vec)))
1094 (defun calcFunc-rreducec (func vec)
1096 (calcFunc-rreducer func (math-transpose vec))
1097 (calcFunc-rreducer func vec)))
1099 (defun calcFunc-reducea (func vec)
1102 (mapcar (function (lambda (x) (calcFunc-reducer func x)))
1104 (calcFunc-reducer func vec)))
1106 (defun calcFunc-rreducea (func vec)
1109 (mapcar (function (lambda (x) (calcFunc-rreducer func x)))
1111 (calcFunc-rreducer func vec)))
1113 (defun calcFunc-reduced (func vec)
1116 (mapcar (function (lambda (x) (calcFunc-reducer func x)))
1118 (calcFunc-reducer func vec)))
1120 (defun calcFunc-rreduced (func vec)
1123 (mapcar (function (lambda (x) (calcFunc-rreducer func x)))
1125 (calcFunc-rreducer func vec)))
1127 (defun calcFunc-accum (func vec)
1128 (setq func (math-var-to-calcFunc func))
1136 (setq expr (math-build-call func (list expr (car vec)))
1140 (defun calcFunc-raccum (func vec)
1141 (setq func (math-var-to-calcFunc func))
1149 (setq expr (math-build-call func (list (car vec) expr))
1154 (defun math-nest-calls (func base iters accum tol)
1159 (setq func (math-var-to-calcFunc func))
1171 (finv (math-solve-for (math-build-call func (list dummy2))
1176 (setq func (car finv))
1177 (setq func (list 'calcFunc-lambda dummy finv)))
1199 value (math-normalize (math-build-call func (list value))))
1206 (defun calcFunc-nest (func base iters)
1207 (math-nest-calls func base iters nil nil))
1209 (defun calcFunc-anest (func base iters)
1210 (math-nest-calls func base iters t nil))
1212 (defun calcFunc-fixp (func base &optional iters tol)
1213 (math-nest-calls func base iters nil (or tol t)))
1215 (defun calcFunc-afixp (func base &optional iters tol)
1216 (math-nest-calls func base iters t (or tol t)))
1219 (defun calcFunc-outer (func a b)
1222 (setq func (math-var-to-calcFunc func))
1227 (math-build-call func
1235 ;; The variables math-inner-mul-func and math-inner-add-func are
1238 (defvar math-inner-mul-func)
1239 (defvar math-inner-add-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)))))
1269 (setq row (cons (calcFunc-reduce math-inner-add-func
1270 (calcFunc-map math-inner-mul-func