;ELC   
;;; compiled by amu@mit.edu on Wed Dec 18 01:19:02 1996
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/calc-2.02e/calc-map.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-map.el' was compiled for Emacs 19.29 or later"))


(byte-code "!!" [require calc-ext calc-macs] 2)
(defalias 'calc-Need-calc-map #[nil "" [nil] 1])
(defalias 'calc-apply #[(&optional oper) "!" [calc-do #[nil "\f\"	& !!$ !GS% \"	T!!!T	8GZO	8P	A@!E#-" [nil sel-mode mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used oper calc-get-operator "Apply" math-vectorp calc-top 1 -1 calc-top-n expr message "Working..." calc-set-command-flag clear-message calc-enter-result "apl" 4 2 calcFunc-apply math-calcFunc-to-var] 7]] 2 nil nil])
(defalias 'calc-reduce #[(&optional oper accum) "!" [calc-do #[nil "    Ƃ \f\"?0 ?0 q S E ՂF N ւO Pg [ ؂\\ e قf Po ǂp \"!!\\   ႛ  ₛ 8GZO8P       A@!T\"BB      R!A@!T!E#." [nil sel-mode calc-is-hyperbolic nest calc-is-inverse rev 2 1 nargs mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used accum "" calc-mapping-dir oper calc-get-operator "Accumulate " "Fixed Point" "Nest" "Inv " "Accumulate" "Reduce" message "Working..." calc-set-command-flag clear-message calc-enter-result "fxp" "nst" "acc" "red" 4 calcFunc-afixp calcFunc-fixp calcFunc-anest calcFunc-nest math-calcFunc-to-var calc-top-list-n calcFunc-raccum calcFunc-accum intern "calcFunc-" "r" "reduce" calc-top-n] 8]] 2 nil nil])
(defalias 'calc-accumulate #[(&optional oper) "	\"" [calc-reduce oper t] 3 nil nil])
(defalias 'calc-map #[(&optional oper) "!" [calc-do #[nil "\f\"\n !@!!\\8GZO8P\nP!A@!T\"BB#." [nil sel-mode mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used "" calc-mapping-dir oper calc-get-operator "Map" nargs message "Working..." calc-set-command-flag clear-message calc-enter-result "map" 4 2 intern "calcFunc-map" math-calcFunc-to-var calc-top-list-n] 9]] 2 nil nil])
(defalias 'calc-map-equation #[(&optional oper) "!" [calc-do #[nil "\f\"	 !	@\f!!\f\\	8GZO	8P A ւK  J ؂K 	A@!\fT\"BB#-" [nil sel-mode mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used oper calc-get-operator "Map-equation" nargs message "Working..." calc-set-command-flag clear-message calc-enter-result "map" 4 2 calc-is-inverse calcFunc-mapeqr calc-is-hyperbolic calcFunc-mapeqp calcFunc-mapeq math-calcFunc-to-var calc-top-list-n] 9]] 2 nil nil])
#@49 This is meant to be called by calc-keypad mode.
(defalias 'calc-map-stack #[nil "! )" [nil calc-verify-arglist calc-unread-command 36 calc-map] 2 (#$ . 3089) nil])
(defalias 'calc-outer-product #[(&optional oper) "!" [calc-do #[nil "\f\"	 \"	!!\\	8GZO	8P	A@!T\"BB#," [nil sel-mode mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used oper calc-get-operator "Outer" 2 message "Working..." calc-set-command-flag clear-message calc-enter-result "out" 4 calcFunc-outer math-calcFunc-to-var calc-top-list-n] 8]] 2 nil nil])
(defalias 'calc-inner-product #[(&optional mul-oper add-oper) "!" [calc-do #[nil "\f\"	 \"	V( A* 8 \"!!\\\\	8O8OQ	A@!A@!E\\\\\"#." [nil sel-mode mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used mul-oper calc-get-operator "Inner (Mult)" 2 mul-used add-oper "Inner (Add)" message "Working..." calc-set-command-flag clear-message calc-enter-result "in" 1 calcFunc-inner math-calcFunc-to-var calc-top-list-n] 9]] 2 nil nil])
(defalias 'calc-get-operator #[(msg &optional nargs) "	\n\fњ/ ҂Q Ӛ: ԂQ ՚E ւQ ךP ؂Q 	i 	Ud قe #l \f8\fu ނv  ߂ \n \n!P & Y Z>   > U T\fG U \n \f?\f U \n ? \n==\n >\n\n =?\n?9њ3ق4   =\nz\"iњcقd ՚tقu   =\n\"Ӛق ךق   YX\n	Z=?Z	4 	 4	U 4Y 4\" >389:=2<=,=@!?=<@A فB \"CD :CGUYE !<V~<9F 9!8G C@H 8!8#@V@9F 9!8C@,IJ =K IGL ZIED 9M I!D :N 8O \"8PQ R 8S 8!T UD $8V W 8\"8K 8GX Y 8IC#ED :/Z L 8[ \", \fIE\\ U܂UTL U\ni] ځ^ \n\"!Jk_8A@` =G] a b cd e %!C	4f 	4CED Cd C!CKg9gKggh =\ngA@4i@j >4T4iAif 4CED *k !)C́l ! 4Y?4X?f 4ZCED B )) \n=Wm >i\nn =o =ٚ\"҂њ҂ӚԂ՚ւך؂pL 8q >r ځs pt L 8!u O=v %L 8w A\"xL 8y =!r ځz pt L 8!u O$!${ |iA@V9A@<x@4}?~}V xA@~@\"z |A@~@\"zi~@Ci}S}~A~I4X  i ] t L 8!P! xA@!= |A@!iBiB\"C#ED . D    44Y48U4\"X 		AABA\f ) *\n6\n!7!RG\\ VQ\\ OS)C\".	" [nil calc-aborted-prefix 0 ("(Press ? for help)" "+, -, *, /, ^, %, \\, :, &, !, |, Neg" "SHIFT + Abs, conJ, arG; maX, miN; Floor, Round; sQrt" "SHIFT + Inv, Hyp; Sin, Cos, Tan; Exp, Ln, logB" "Algebra + Simp, Esimp, Deriv, Integ, !, =, etc." "Binary + And, Or, Xor, Diff; l/r/t/L/R shifts; Not, Clip" "Conversions + Deg, Rad, HMS; Float; SHIFT + Fraction" "Functions + Re, Im; Hypot; Mant, Expon, Scale; etc." "Kombinatorics + Dfact, Lcm, Gcd, Choose; Random; etc." "Time/date + newYear, Incmonth, etc." "Vectors + Length, Row, Col, Diag, Mask, etc." "_ = mapr/reducea, : = mapc/reduced, = = reducer" "X or Z = any function by name; ' = alg entry; $ = stack") msgs which oper key done forcenargs prefix hyp inv message "%s%s: %s: %s%s%s" msg calc-mapping-dir "r" " rows" "c" " columns" "a" " across" "d" " down" "" format "(%d arg%s)" 1 "s" "Inv " "Hyp " char-to-string "-" read-char 128 (7 113) keyboard-quit (21 27) 63 73 72 118 (97 98 99 102 107 115 116 117 118 86) 61 beep 95 string-match "map$" 58 48 57 nargs error "Must be a %d-argument operator" (36 39) arglist has-args record-entry 36 calc-dollar-used calc-dollar-values "Stack underflow" calc-arg-values calc-hashes-used calc-do-alg-entry "Function: " func t "Bad format" calc-invent-args math-multi-subst reverse expr calcFunc-lambda "$" 2 calc-default-formula-arglist sort string-lessp calc-verify-arglist read-from-minibuffer "Function argument list: " prin1-to-string "()" minibuffer-local-map mapcar #[(x) "		!P!E" [var x intern "var-" symbol-name] 6] append (calcFunc-lambda) calc-record "oper" 3 intern "calc-%c-oper-keys" calc-oper-keys user completing-read "Function name: " obarray fboundp "calcFunc-" "z" defn lambda args (&optional &rest nil) "Function is not suitable for this operation" "Number of arguments: " (65 73 77 79 82 85) 97 77 dir (calcFunc-map calcFunc-reduce calcFunc-rreduce) calc-get-operator "%s%s, %s%s" symbol-name 9 " (mult)" ((calcFunc-reduce . 2) (calcFunc-rreduce . 2) (calcFunc-accum . 2) (calcFunc-raccum . 2) (calcFunc-nest . 2) (calcFunc-anest . 2) (calcFunc-fixp . 2) (calcFunc-afixp . 2)) oper2 calcFunc-inner "%s%s, inner (add)" (0 0 0) oper3 n p math-expr-contains (calcFunc-lambda) math-build-call math-calcFunc-to-var "I" "H" name] 11])
(byte-code "BB\nB\fBBBBBBB" [t calc-verify-arglist nil calc-mapping-dir (((43 2 calcFunc-add) (45 2 calcFunc-sub) (42 2 calcFunc-mul) (47 2 calcFunc-div) (94 2 calcFunc-pow) (124 2 calcFunc-vconcat) (37 2 calcFunc-mod) (92 2 calcFunc-idiv) (33 1 calcFunc-fact) (38 1 calcFunc-inv) (110 1 calcFunc-neg) (120 user) (122 user) (65 1 calcFunc-abs) (74 1 calcFunc-conj) (71 1 calcFunc-arg) (81 1 calcFunc-sqrt) (78 2 calcFunc-min) (88 2 calcFunc-max) (70 1 calcFunc-floor) (82 1 calcFunc-round) (83 1 calcFunc-sin) (67 1 calcFunc-cos) (84 1 calcFunc-tan) (76 1 calcFunc-ln) (69 1 calcFunc-exp) (66 2 calcFunc-log)) ((70 1 calcFunc-ceil) (82 1 calcFunc-trunc) (81 1 calcFunc-sqr) (83 1 calcFunc-arcsin) (67 1 calcFunc-arccos) (84 1 calcFunc-arctan) (76 1 calcFunc-exp) (69 1 calcFunc-ln) (66 2 calcFunc-alog) (94 2 calcFunc-nroot) (124 2 calcFunc-vconcatrev)) ((70 1 calcFunc-ffloor) (82 1 calcFunc-fround) (83 1 calcFunc-sinh) (67 1 calcFunc-cosh) (84 1 calcFunc-tanh) (76 1 calcFunc-log10) (69 1 calcFunc-exp10) (124 2 calcFunc-append)) ((70 1 calcFunc-fceil) (82 1 calcFunc-ftrunc) (83 1 calcFunc-arcsinh) (67 1 calcFunc-arccosh) (84 1 calcFunc-arctanh) (76 1 calcFunc-exp10) (69 1 calcFunc-log10) (124 2 calcFunc-appendrev))) calc-oper-keys current-load-list (((97 3 calcFunc-apart) (98 3 calcFunc-subst) (99 2 calcFunc-collect) (100 2 calcFunc-deriv) (101 1 calcFunc-esimplify) (102 2 calcFunc-factor) (103 2 calcFunc-pgcd) (105 2 calcFunc-integ) (109 2 calcFunc-match) (110 1 calcFunc-nrat) (114 2 calcFunc-rewrite) (115 1 calcFunc-simplify) (116 3 calcFunc-taylor) (120 1 calcFunc-expand) (77 2 calcFunc-mapeq) (78 3 calcFunc-minimize) (80 2 calcFunc-roots) (82 3 calcFunc-root) (83 2 calcFunc-solve) (84 4 calcFunc-table) (88 3 calcFunc-maximize) (61 2 calcFunc-eq) (35 2 calcFunc-neq) (60 2 calcFunc-lt) (62 2 calcFunc-gt) (91 2 calcFunc-leq) (93 2 calcFunc-geq) (123 2 calcFunc-in) (33 1 calcFunc-lnot) (38 2 calcFunc-land) (124 2 calcFunc-lor) (58 3 calcFunc-if) (46 2 calcFunc-rmeq) (43 4 calcFunc-sum) (45 4 calcFunc-asum) (42 4 calcFunc-prod) (95 2 calcFunc-subscr) (92 2 calcFunc-pdiv) (37 2 calcFunc-prem) (47 2 calcFunc-pdivrem)) ((109 2 calcFunc-matchnot) (77 2 calcFunc-mapeqr) (83 2 calcFunc-finv)) ((100 2 calcFunc-tderiv) (102 2 calcFunc-factors) (77 2 calcFunc-mapeqp) (78 3 calcFunc-wminimize) (82 3 calcFunc-wroot) (83 2 calcFunc-fsolve) (88 3 calcFunc-wmaximize) (47 2 calcFunc-pdivide)) ((83 2 calcFunc-ffinv))) calc-a-oper-keys (((97 2 calcFunc-and) (111 2 calcFunc-or) (120 2 calcFunc-xor) (100 2 calcFunc-diff) (110 1 calcFunc-not) (99 1 calcFunc-clip) (108 2 calcFunc-lsh) (114 2 calcFunc-rsh) (76 2 calcFunc-ash) (82 2 calcFunc-rash) (116 2 calcFunc-rot) (112 1 calcFunc-vpack) (117 1 calcFunc-vunpack) (68 4 calcFunc-ddb) (70 3 calcFunc-fv) (73 1 calcFunc-irr) (77 3 calcFunc-pmt) (78 2 calcFunc-npv) (80 3 calcFunc-pv) (83 3 calcFunc-sln) (84 3 calcFunc-rate) (89 4 calcFunc-syd) (35 3 calcFunc-nper) (37 2 calcFunc-relch)) ((70 3 calcFunc-fvb) (73 1 calcFunc-irrb) (77 3 calcFunc-pmtb) (78 2 calcFunc-npvb) (80 3 calcFunc-pvb) (84 3 calcFunc-rateb) (35 3 calcFunc-nperb)) ((70 3 calcFunc-fvl) (77 3 calcFunc-pmtl) (80 3 calcFunc-pvl) (84 3 calcFunc-ratel) (35 3 calcFunc-nperl))) calc-b-oper-keys (((100 1 calcFunc-deg) (114 1 calcFunc-rad) (104 1 calcFunc-hms) (102 1 calcFunc-float) (70 1 calcFunc-frac))) calc-c-oper-keys (((98 2 calcFunc-beta) (101 1 calcFunc-erf) (103 1 calcFunc-gamma) (104 2 calcFunc-hypot) (105 1 calcFunc-im) (106 2 calcFunc-besJ) (110 2 calcFunc-min) (114 1 calcFunc-re) (115 1 calcFunc-sign) (120 2 calcFunc-max) (121 2 calcFunc-besY) (65 1 calcFunc-abssqr) (66 3 calcFunc-betaI) (69 1 calcFunc-expm1) (71 2 calcFunc-gammaP) (73 2 calcFunc-ilog) (76 1 calcFunc-lnp1) (77 1 calcFunc-mant) (81 1 calcFunc-isqrt) (83 1 calcFunc-scf) (84 2 calcFunc-arctan2) (88 1 calcFunc-xpon) (91 2 calcFunc-decr) (93 2 calcFunc-incr)) ((101 1 calcFunc-erfc) (69 1 calcFunc-lnp1) (71 2 calcFunc-gammaQ) (76 1 calcFunc-expm1)) ((66 3 calcFunc-betaB) (71 2 calcFunc-gammag)) ((71 2 calcFunc-gammaG))) calc-f-oper-keys (((98 1 calcFunc-bern) (99 2 calcFunc-choose) (100 1 calcFunc-dfact) (101 1 calcFunc-euler) (102 1 calcFunc-prfac) (103 2 calcFunc-gcd) (104 2 calcFunc-shuffle) (108 2 calcFunc-lcm) (109 1 calcFunc-moebius) (110 1 calcFunc-nextprime) (114 1 calcFunc-random) (115 2 calcFunc-stir1) (116 1 calcFunc-totient) (66 3 calcFunc-utpb) (67 2 calcFunc-utpc) (70 3 calcFunc-utpf) (78 3 calcFunc-utpn) (80 2 calcFunc-utpp) (84 2 calcFunc-utpt)) ((110 1 calcFunc-prevprime) (66 3 calcFunc-ltpb) (67 2 calcFunc-ltpc) (70 3 calcFunc-ltpf) (78 3 calcFunc-ltpn) (80 2 calcFunc-ltpp) (84 2 calcFunc-ltpt)) ((98 2 calcFunc-bern) (99 2 calcFunc-perm) (101 2 calcFunc-euler) (115 2 calcFunc-stir2))) calc-k-oper-keys (((58 2 calcFunc-assign) (61 1 calcFunc-evalto))) calc-s-oper-keys (((67 3 calcFunc-tzconv) (68 1 calcFunc-date) (73 2 calcFunc-incmonth) (74 1 calcFunc-julian) (77 1 calcFunc-newmonth) (87 1 calcFunc-newweek) (85 1 calcFunc-unixtime) (89 1 calcFunc-newyear))) calc-t-oper-keys (((67 2 calcFunc-vcov) (71 1 calcFunc-vgmean) (77 1 calcFunc-vmean) (78 1 calcFunc-vmin) (83 1 calcFunc-vsdev) (88 1 calcFunc-vmax)) ((67 2 calcFunc-vpcov) (77 1 calcFunc-vmeane) (83 1 calcFunc-vpsdev)) ((67 2 calcFunc-vcorr) (71 1 calcFunc-agmean) (77 1 calcFunc-vmedian) (83 1 calcFunc-vvar)) ((77 1 calcFunc-vhmean) (83 1 calcFunc-vpvar))) calc-u-oper-keys (((97 2 calcFunc-arrange) (98 2 calcFunc-cvec) (99 2 calcFunc-mcol) (100 2 calcFunc-diag) (101 2 calcFunc-vexp) (102 2 calcFunc-find) (104 1 calcFunc-head) (107 2 calcFunc-cons) (108 1 calcFunc-vlen) (109 2 calcFunc-vmask) (110 1 calcFunc-rnorm) (112 2 calcFunc-pack) (114 2 calcFunc-mrow) (115 3 calcFunc-subvec) (116 1 calcFunc-trn) (117 1 calcFunc-unpack) (118 1 calcFunc-rev) (120 1 calcFunc-index) (65 1 calcFunc-apply) (67 1 calcFunc-cross) (68 1 calcFunc-det) (69 1 calcFunc-venum) (70 1 calcFunc-vfloor) (71 1 calcFunc-grade) (72 2 calcFunc-histogram) (73 2 calcFunc-inner) (76 1 calcFunc-lud) (77 0 calcFunc-map) (78 1 calcFunc-cnorm) (79 2 calcFunc-outer) (82 1 calcFunc-reduce) (83 1 calcFunc-sort) (84 1 calcFunc-tr) (85 1 calcFunc-accum) (86 2 calcFunc-vunion) (88 2 calcFunc-vxor) (45 2 calcFunc-vdiff) (94 2 calcFunc-vint) (126 1 calcFunc-vcompl) (35 1 calcFunc-vcard) (58 1 calcFunc-vspan) (43 1 calcFunc-rdup)) ((104 1 calcFunc-tail) (115 3 calcFunc-rsubvec) (71 1 calcFunc-rgrade) (82 1 calcFunc-rreduce) (83 1 calcFunc-rsort) (85 1 calcFunc-raccum)) ((101 3 calcFunc-vexp) (104 1 calcFunc-rhead) (107 2 calcFunc-rcons) (72 3 calcFunc-histogram) (82 2 calcFunc-nest) (85 2 calcFunc-anest)) ((104 1 calcFunc-rtail) (82 1 calcFunc-fixp) (85 1 calcFunc-afixp))) calc-v-oper-keys] 2)
(defalias 'math-var-to-calcFunc #[(f) "= 8! 8A@!P!>& \"" [f var fboundp 2 intern "calcFunc-" symbol-name (lambda calcFunc-lambda) math-reject-arg "*Expected a function name"] 4])
(defalias 'math-calcFunc-to-var #[(f) "93 A \n!\"  \n!\"# \n!!P!E*" [f ((+ . calcFunc-add) (- . calcFunc-sub) (* . calcFunc-mul) (/ . calcFunc-div) (^ . calcFunc-pow) (% . calcFunc-mod) (neg . calcFunc-neg) (| . calcFunc-vconcat)) func string-match "\\`calcFunc-\\(.+\\)\\'" symbol-name math-match-substring 1 base var intern "var-"] 5])
(defalias 'math-build-call #[(f args) "=) \nGGZU GS8A\n#\"!\nBB=; \nGU; \n@D̞S \nGUS A\nBV \nB)" [f calcFunc-lambda args 2 math-multi-subst calc-record-why "*Wrong number of arguments" calcFunc-call math-calcFunc-to-var calcFunc-neg 1 neg ((calcFunc-add . +) (calcFunc-sub . -) (calcFunc-mul . *) (calcFunc-div . /) (calcFunc-pow . ^) (calcFunc-mod . %) (calcFunc-vconcat . |)) func] 5])
(defalias 'math-multi-subst #[(expr olds news) " \f @\f@B\nBA\fA !*" [nil temp args olds news math-multi-subst-rec expr] 2])
(defalias 'math-multi-subst-rec #[(expr) "	\n\"\f A	: 	@> 		@=[ 	GV[ 	@C\n	AAQ 	@B	@\n\"/ 	@	@B\nB/ 	@!B*	@	A\"B" [assoc expr args temp (bigpos bigneg frac float cplx polar hms date mod var) calcFunc-lambda 2 new math-multi-subst-rec mapcar] 4])
(defalias 'calcFunc-call #[(f &rest args) "\n!\"= !" [math-build-call math-var-to-calcFunc f args calcFunc-call math-normalize] 4])
(defalias 'calcFunc-apply #[(f args) ":\f @= \"AB\"" [args vec math-reject-arg vectorp apply calcFunc-call f] 4])
(defalias 'math-symb-map #[(f mode args) "	!G!\f\"	\f=@  T\fWU H!@ \fW =t 	DFE = \fW H! H!IT} T\fWH> = ! 	I\f A\f>GZH@>GZH8\f@\fGU   G :\fU5H\":\"SSVT\fW	H~HAIH@CPHCPT\n\"!B?\fB=!!." [math-var-to-calcFunc f func args nargs vconcat ptrs make-vector nil vflags (vec) heads head vec -1 i 0 math-working-step math-working-step-2 len cols obj expr mode eqn elems (calcFunc-eq calcFunc-neq calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq) math-matrixp lambda (&rest x) math-symb-map quote (quote elems) x rows math-transpose t [[0 1 2 3 4 5] [1 1 2 3 2 3] [2 2 2 1 2 1] [3 3 1 3 1 3] [4 2 2 1 4 1] [5 3 1 3 1 5]] 6 math-dimension-error 1 math-reject-arg vectorp "At least one argument must be a vector" math-normalize math-build-call] 7])
(defalias 'calcFunc-map #[(func &rest args) "	#" [math-symb-map func elems args] 4])
(defalias 'calcFunc-mapr #[(func &rest args) "	#" [math-symb-map func rows args] 4])
(defalias 'calcFunc-mapc #[(func &rest args) "	#" [math-symb-map func cols args] 4])
(defalias 'calcFunc-mapa #[(func arg) "	! 	!A#	#" [math-matrixp arg math-symb-map func elems math-transpose] 5])
(defalias 'calcFunc-mapd #[(func arg) "	! 	A#	#" [math-matrixp arg math-symb-map func elems] 4])
(defalias 'calcFunc-mapeq #[(func &rest args) "\f V GUV @!6 A@A@2 @A@ABD)V A@!V @A@U @ABA@D)ǚf A@r Țr ɚx ##" [func (var mul var-mul) (var div var-div) args 2 math-negp calc-tweak-eqn-table (var div var-div) (var neg var-neg) (var inv var-inv) apply calcFunc-mapeqr calcFunc-mapeqp] 5])
(defalias 'calcFunc-mapeqr #[(func &rest args) "\n\"\n#" [mapcar #[(x) "	 \nA@AB )" [x calc-tweak-eqn-table func] 3] args apply calcFunc-mapeqp func] 4])
(defalias 'calcFunc-mapeqp #[(func &rest args) "@> A@>\" @>= A@>= @A@@A@A@8A@A@EAABB#" [args (calcFunc-lt calcFunc-leq) (calcFunc-gt calcFunc-geq) (calcFunc-gt calcFunc-geq) (calcFunc-lt calcFunc-leq) calc-tweak-eqn-table 2 math-symb-map func eqn] 4])
(defalias 'calcFunc-reduce #[(func vec) "	!T !	AO 	@A \fI \f:1 \f@>> \f@D\"!K \f@D\"K @ \f!*	\"" [math-matrixp vec nil row expr math-var-to-calcFunc func (bigpos bigneg frac float cplx polar) math-normalize math-build-call calcFunc-reducer] 5])
(defalias 'calcFunc-rreduce #[(func vec) "	!H !	A!C 	@A!< \f2 @\fD\"4 @A# 	A \f!*	\"" [math-matrixp vec nil row expr math-var-to-calcFunc func reverse math-build-call math-normalize calcFunc-rreducer] 5])
(defalias 'calcFunc-reducer #[(func vec) "	!! \"A@: ɏA3 	@D\" !D 	!D \")" [math-var-to-calcFunc func math-vectorp vec math-reject-arg vectorp expr err (byte-code "9\" A \nA! \n\fA@\"A )Ň" [func ((calcFunc-add . math-add) (calcFunc-sub . math-sub) (calcFunc-mul . math-mul) (calcFunc-div . math-div) (calcFunc-pow . math-pow) (calcFunc-mod . math-mod) (calcFunc-vconcat . math-concat)) lfunc vec expr nil] 4) ((error)) math-build-call math-normalize math-identity-value "*Vector is empty"] 5])
(defalias 'math-identity-value #[(func) "A" [func ((calcFunc-add . 0) (calcFunc-sub . 0) (calcFunc-mul . 1) (calcFunc-div . 1) (calcFunc-idiv . 1) (calcFunc-fdiv . 1) (calcFunc-min var inf var-inf) (calcFunc-max neg (var inf var-inf)) (calcFunc-vconcat vec) (calcFunc-append vec))] 2])
(defalias 'calcFunc-rreducer #[(func vec) "	!! \"	=J A@G A@ 	@D\"	=; ɂ<   !H )A!@r Ak 	@D\"W !| 	!| \")" [math-var-to-calcFunc func math-vectorp vec math-reject-arg vectorp calcFunc-sub expr math-build-call calcFunc-add math-normalize 0 reverse math-identity-value "*Vector is empty"] 5])
(defalias 'calcFunc-reducec #[(func vec) "	! 	!\"	\"" [math-matrixp vec calcFunc-reducer func math-transpose] 4])
(defalias 'calcFunc-rreducec #[(func vec) "	! 	!\"	\"" [math-matrixp vec calcFunc-rreducer func math-transpose] 4])
(defalias 'calcFunc-reducea #[(func vec) "	! 	A\"B	\"" [math-matrixp vec mapcar #[(x) "	\n\"" [calcFunc-reducer func x] 3] calcFunc-reducer func] 4])
(defalias 'calcFunc-rreducea #[(func vec) "	! 	A\"B	\"" [math-matrixp vec mapcar #[(x) "	\n\"" [calcFunc-rreducer func x] 3] calcFunc-rreducer func] 4])
(defalias 'calcFunc-reduced #[(func vec) "	! 	!A\"B	\"" [math-matrixp vec mapcar #[(x) "	\n\"" [calcFunc-reducer func x] 3] math-transpose calcFunc-reducer func] 5])
(defalias 'calcFunc-rreduced #[(func vec) "	! 	!A\"B	\"" [math-matrixp vec mapcar #[(x) "	\n\"" [calcFunc-rreducer func x] 3] math-transpose calcFunc-rreducer func] 5])
(defalias 'calcFunc-accum #[(func vec) "	!! \"A@D& \"AB 	@D\"C& !*" [math-var-to-calcFunc func math-vectorp vec math-reject-arg vectorp expr res "*Vector is empty" math-build-call math-normalize] 4])
(defalias 'calcFunc-raccum #[(func vec) "	!! \"A!@C& \"AA 	@D\"CB& B!*" [math-var-to-calcFunc func math-vectorp vec math-reject-arg vectorp reverse expr res "*Vector is empty" math-build-call math-normalize] 5])
(defalias 'math-nest-calls #[(func base iters accum tol) "9 ! ! \" \"!	 	ʚ6 	 	!C 	!		O 	\"` 	!` 	\"	W C\"$ \"GU A@ @ E	[	+\\C	 !\"#	 	S	YX5\"5=#: #@>\n\":\"@>\n#\"\"#\"\"U?2#!-#\"\"!\"U2#\"X#\" T #C\"!#+ #!B! +e!Bg#.!" [tol math-realp math-numberp base math-reject-arg numberp realp math-var-to-calcFunc func iters (var inf var-inf) nil math-messy-integerp math-trunc fixnump natnump fixnatnump 0 (var DummyArg var-DummyArg) dummy (var DummyArg2 var-DummyArg2) dummy2 math-solve-for math-build-call finv "*Unable to find an inverse" 2 calcFunc-lambda math-normalize calc-internal-prec 1 math-working-step-2 math-working-step avalues ovalue value t (bigpos bigneg frac float cplx polar) math-nearly-equal math-compare math-abs math-sub -1 accum vec] 8])
(defalias 'calcFunc-nest #[(func base iters) "	\nĉ%" [math-nest-calls func base iters nil] 6])
(defalias 'calcFunc-anest #[(func base iters) "	\n%" [math-nest-calls func base iters t nil] 6])
(defalias 'calcFunc-fixp #[(func base &optional iters tol) "	\n\n %" [math-nest-calls func base iters nil tol t] 6])
(defalias 'calcFunc-afixp #[(func base &optional iters tol) "	\n\n %" [math-nest-calls func base iters t tol] 6])
(defalias 'calcFunc-outer #[(func a b) "	! 	\"\f! \f\"!	A5 \fA\"BB B!)" [math-vectorp a math-reject-arg vectorp b math-var-to-calcFunc func nil mat vec mapcar #[(x) "	\n@D\"" [math-build-call func a x] 4] math-normalize] 4])
(defalias 'calcFunc-inner #[(mul-func add-func a b) "	! 	\"\f! \f\"	!f \f!4 	A@G\fGU1 	\f\" 	A@GUO 	G\fGUL 	\fD\" 	A@G\fGUc 	\f!\"\" \f!u 	D\f\"A@	\f#\"" [math-vectorp a math-reject-arg vectorp b math-matrixp math-inner-mats math-dimension-error 2 vec math-mat-col math-col-matrix 1 calcFunc-reduce add-func calcFunc-map mul-func] 6])
(defalias 'math-inner-mats #[(a b) "	A@G	A	O SVC \f	@	\"#\"B# BB .B" [nil b accum bp ap col row cols mat a 0 calcFunc-reduce add-func calcFunc-map mul-func math-mat-col vec] 8])
