;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@23 

(fn &optional OPER)
(defalias 'calc-apply #[256 "\300\301\302\"!\207" [calc-do make-closure #[0 "\305\306	\n\233\"\307\300\206%\310\311\312\313!\211\242\314=\262
\203#\312\313!GS\202$\315\"\316\fT!\317\320!\210\321\322!\210\323\fT\324\307\325\3268GZO\3268P\327\330A@!E#*\207" [V0 calc-stack-top calc-stack calc-dollar-values calc-dollar-used mapcar calc-get-stack-element 0 calc-get-operator "Apply" calc-top 1 vec -1 calc-top-n message "Working..." calc-set-command-flag clear-message calc-enter-result "apl" 4 2 calcFunc-apply math-calcFunc-to-var] 9]] 5 (#$ . 156) nil])
(defvar calc-mapping-dir nil)
#@29 

(fn &optional OPER ACCUM)
(defalias 'calc-reduce #[512 "\300\301\302#!\207" [calc-do make-closure #[0 "\306 \307 
\203\211\204\310\202\311\312\313\n\233\"\314\301?\205%?\205%\315,\300\206c\316\203F\301\2038\317\2029\315\203A\320\202B\321P\202Y\203N\322\202O\315\301\203W\323\202X\324P\203a\311\202b\310\"\325\326!\210\327\330!\210\331
\\\203\203{\332\202\210\333\202\210\301\203\207\334\202\210\335\314\336\3108GZO\3108P\203\303\203\252\301\203\246\337\202\263\340\202\263\301\203\262\341\202\263\342\343A@!\344
T\"BB\202\356\301\203\323\203\317\345\202\344\346\202\344\347\350\203\336\351\202\337\315\352,R!\343A@!\353
T!E#+\207" [V0 V1 calc-stack-top calc-stack calc-dollar-values calc-dollar-used calc-is-hyperbolic calc-is-inverse 2 1 mapcar calc-get-stack-element 0 "" 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 calc-mapping-dir] 12]] 7 (#$ . 780) nil])
#@23 

(fn &optional OPER)
(defalias 'calc-accumulate #[256 "\300
\301\"\207" [calc-reduce t] 4 (#$ . 2026) nil])
#@23 

(fn &optional OPER)
(defalias 'calc-map #[256 "\300\301\302\"!\207" [calc-do make-closure #[0 "\306\307	\n\233\"\310\311\300\206\312\313!\211@\314\315!\210\316\317!\210\320
\f\\\321\310\322\3238GZO\3238P\324\325
P!\326A@!\327\fT\"BB#+\207" [V0 calc-stack-top calc-stack calc-dollar-values calc-dollar-used calc-mapping-dir mapcar calc-get-stack-element 0 "" calc-get-operator "Map" 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] 10]] 5 (#$ . 2141) nil])
#@23 

(fn &optional OPER)
(defalias 'calc-map-equation #[256 "\300\301\302\"!\207" [calc-do make-closure #[0 "\305\306	\n\233\"\307\300\206\310\311!\211@\312\313!\210\314\315!\210\316
\f\\\317\307\320\3218GZO\3218P\322 \2035\323\202?\324 \203>\325\202?\326\327A@!\330\fT\"BB#*\207" [V0 calc-stack-top calc-stack calc-dollar-values calc-dollar-used mapcar calc-get-stack-element 0 calc-get-operator "Map-equation" 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] 10]] 5 (#$ . 2714) nil])
(defvar calc-verify-arglist t)
#@51 This is meant to be called by `calc-keypad' mode.
(defalias 'calc-map-stack #[0 "\301\302\303!\210\304 )\207" [calc-verify-arglist nil calc-unread-command 36 calc-map] 2 (#$ . 3406) nil])
#@23 

(fn &optional OPER)
(defalias 'calc-outer-product #[256 "\300\301\302\"!\207" [calc-do make-closure #[0 "\305\306	\n\233\"\307\300\206\310\311\312\"\313\314!\210\315\316!\210\317\312\f\\\320\307\321\3128GZO\3128P\322\323A@!\324\312\fT\"BB#*\207" [V0 calc-stack-top calc-stack calc-dollar-values calc-dollar-used mapcar calc-get-stack-element 0 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] 9]] 5 (#$ . 3601) nil])
#@36 

(fn &optional MUL-OPER ADD-OPER)
(defalias 'calc-inner-product #[512 "\300\301\302#!\207" [calc-do make-closure #[0 "\306\307\n\233\"\310\300\206\311\312\313\"
\211\310V\203\fA\202\f\310\301\206)\311\314\313\"\315\316!\210\317\320!\210\321\313\\
\\\322\3138\310\323O\3138\310\323OQ\324\325A@!\325A@!E\326\313T
\\\"\244#,\207" [V0 V1 calc-stack-top calc-stack calc-dollar-values calc-dollar-used mapcar calc-get-stack-element 0 calc-get-operator "Inner (Mult)" 2 "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] 11]] 7 (#$ . 4150) nil])
(defconst calc-oper-keys '(((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))))
(defconst calc-a-oper-keys '(((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))))
(defconst calc-b-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))))
(defconst calc-c-oper-keys '(((100 1 calcFunc-deg) (114 1 calcFunc-rad) (104 1 calcFunc-hms) (102 1 calcFunc-float) (70 1 calcFunc-frac))))
(defconst calc-f-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))))
(defconst calc-k-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))))
(defconst calc-s-oper-keys '(((58 2 calcFunc-assign) (61 1 calcFunc-evalto))))
(defconst calc-t-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))))
(defconst calc-u-oper-keys '(((67 2 calcFunc-vcov) (71 1 calcFunc-vgmean) (77 1 calcFunc-vmean) (78 1 calcFunc-vmin) (82 1 calcFunc-rms) (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))))
(defconst calc-v-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))))
#@32 History for calc-get-operator.
(defvar calc-get-operator-history nil (#$ . 11551))
#@28 

(fn MSG &optional NARGS)
(defalias 'calc-get-operator #[513 "\306\211\306\211\211\211\211\211\307\310\204\336\311\312\f	\313\267\202)\314\202*\315\202*\316\202*\317\202*\320	\203B\321\322\211\323U\203=\320\202>\324#\202E8
\203N\325\202O\320
\203X\326\202Y\320
\203g\327!\330P\202h\320&\210\331 \262\332Y\203z\332Z\262\333>\203\206\334 \210\202\335>\204\336U\203\234
T
G\246\262\202\337U\203\257\204\257?\262	\202\340U\203\302\204\302?\262\202=\203\325\341=\204\325\306\262\202\342>\203\347\204\347\227\262\202\343=\203
\204
	\203
	\344\232\203
\320\202

\344\202\345 \210\202\346=\203F
\204F
	\203@
\347\350\f\"\2031
	\344\232\203,
\320\202-
\344\202	\351\232\203;
\320\202<
\351\202\345 \210\202\352=\203\201
\204\201
	\203{
\347\350\f\"\203l
	\353\232\203g
\320\202h
\353\202	\354\232\203v
\320\202w
\354\202\345 \210\202\355Y\203\301
\356X\203\301
\204\301
\355Z=?\205\236
\355Z\262	\203\203	U\204	\307Y\203\357\360\"\210\202\361>\203\244\306\211\306\362=\203\342
\323\f\203\334
\f@\202)\357\363!\202)
\307\211@\364\320\365\306\366$\367\262\211G\323U\204\375
\357\370!\210\307V\203\262\371!\372
@\373\n!\n#\202&@\307V\203$@\262\371!\211@+\262
\211\242\374=\203?\375
G\376ZE\262\367\262\202\216\204{\377
!\210\367\262\201E\n\201F\"A\203r\201G\201H\n\203j\201I\n!\202m\201JB\367$\201K\201L\n\"\375\nG\201M\201N\nC#E\262\367\262
\203\236\201O\3768\201P\"\210)\266\202	\203\271\203\265\201Q\202\303\323\202\303\203\302\376\202\303\307\203\327\201R\321\201S\"!J\202\331C8\236\211\262\203\330A@\201T=\203\231\201R\201U\201VD\201W\306\201X%!\204	\n\203\201Y\206E\262\367\262\210\202\201W
!\203l\211K\2119\2031\211K\262
\211\242\201Z=\203b\211A@\307
@\201[>\204R\211T\262

A\262\202>\201Y
E\262\367\262	\266\202\357\201\\!\266\202\311\201]!\210\331 \211\355Y\203\222\211\356X\203\222\201Y
\355ZE\262\367\262\266\202\345 \266\202\341=\203\250\201^>\204\271\201_=\203\322\201`=\203\322	\320\232\203\315\347\350\f\"\203\315\344\314\202\346	\201a\267\202\345\314\202\346\315\202\346\316\202\346\317\202\346\320\3768\201b>\205\361\320\201c\321\201d\201e\376\n8!\201f\306O\n\337=\203\201g\202\320%\3768\201h\236A\"\3768\201i=\203;\201c\321\201j#!\202>\201k\306A@\307V\203OA@\202Q@\211
\211\203\210
\307V\203\210\201lA@@\"\204\201\201lA@@\"\204\201
@C\244\262
S\262\211A\262
\202S\320\201M\201m\201n\201R\201e\3768!	P!\201o
A@!\337=\203\300\201o
A@!\fB\202\302B\"C#E\262\n\367\262\f)\266\202\367\262\202\345 \210\202	\203\371	\307Y\203\371	A@U\204\371\357\360\"\210\201M\203\nAAB\202\fA\n\203\201p\202\320\n\203#\201q\202$\320\n\2030\327!\2021\320\327	!R\211G\201QV\203H\211\307\201QO\202I\211\262
C\"\207" [calc-aborted-prefix calc-mapping-dir math-arglist calc-dollar-used calc-dollar-values calc-arg-values nil 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") message "%s%s: %s: %s%s%s" #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("r" 25 "c" 29 "a" 33 "d" 37)) " rows" " columns" " across" " 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 "r" beep 95 string-match "map$" "a" 58 "c" "d" 48 57 error "Must be a %d-argument operator" (36 39) 36 "Stack underflow" calc-do-alg-entry "Function: " calc-get-operator-history t "Bad format" calc-invent-args math-multi-subst reverse calcFunc-lambda "$" 2 calc-default-formula-arglist calc-hashes-used calc-verify-arglist minibuffer-local-map calc-oper-keys obarray sort string-lessp read-from-minibuffer "Function argument list: " prin1-to-string "()" mapcar #[257 "\300
\301\302\303!P!E\207" [var intern "var-" symbol-name] 7 "\n\n(fn X)"] append (calcFunc-lambda) calc-record "oper" 3 intern "calc-%c-oper-keys" user completing-read "Function name: " fboundp "calcFunc-" "z" lambda (&optional &rest nil) "Function is not suitable for this operation" "Number of arguments: " (65 73 77 79 82 85) 97 77 #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("r" 981 "c" 985 "a" 989 "d" 993)) (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)) calcFunc-inner "%s%s, inner (add)" (0 0 0) math-expr-contains (calcFunc-lambda) math-build-call math-calcFunc-to-var "I" "H"] 29 (#$ . 11640)])
#@10 

(fn F)
(defalias 'math-var-to-calcFunc #[257 "\211\242\300=\203\301\3028!\203\302
8\207\303\304\305A@!P!\207\211\242\306>\203%\207\307
\310\"\207" [var fboundp 2 intern "calcFunc-" symbol-name (lambda calcFunc-lambda) math-reject-arg "*Expected a function name"] 5 (#$ . 17111)])
#@10 

(fn F)
(defalias 'math-calcFunc-to-var #[257 "\2119\203-\211\300\236A\206
\211\301\302\303!\"\203\304\303!\305\"\202\"\303
!\306\307!\307\310P!E\207\207" [((+ . calcFunc-add) (- . calcFunc-sub) (* . calcFunc-mul) (/ . calcFunc-div) (^ . calcFunc-pow) (% . calcFunc-mod) (neg . calcFunc-neg) (| . calcFunc-vconcat)) string-match "\\`calcFunc-\\(.+\\)\\'" symbol-name math-match-substring 1 var intern "var-"] 8 (#$ . 17406)])
#@15 

(fn F ARGS)
(defalias 'math-build-call #[514 "
\242\300=\203)\211GG\301ZU\203\302GS8A#\207\303\304\"\210\305\306!BB\207
\307=\203;\211G\310U\203;\311
@D\207
\312\236\211\203N
G\301U\203N\211AB\207B\207" [calcFunc-lambda 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 . |))] 6 (#$ . 17848)])
#@23 

(fn EXPR OLDS NEWS)
(defalias 'math-multi-subst #[771 "\302\211
\203\211\203
@
@B	B
A\262\211A\262
\202\303!*\207" [math-ms-temp math-ms-args nil math-multi-subst-rec] 5 (#$ . 18369)])
#@13 

(fn EXPR)
(defalias 'math-multi-subst-rec #[257 "\302
\"\211\203\f	A\207\211\211:?\206\211@\303>\262
\203\207\211@\304=\203[\211G\305V\203[\211@C
A\211\262A\203R
@
B\262
\302@\"\2030
@@BB\2020\306@!
B\237)\207\211@\307\306A\"B\207" [math-ms-args math-ms-temp assoc (frac float cplx polar hms date mod var) calcFunc-lambda 2 math-multi-subst-rec mapcar] 5 (#$ . 18573)])
#@21 

(fn F &rest ARGS)
(defalias 'calcFunc-call #[385 "\300\301!\"\262
\211\242\302=\203\207\303
!\207" [math-build-call math-var-to-calcFunc calcFunc-call math-normalize] 5 (#$ . 18973)])
#@15 

(fn F ARGS)
(defalias 'calcFunc-apply #[514 "\211\211\242\300=\262
\204\301
\302\"\210\303\304AB\"\207" [vec math-reject-arg vectorp apply calcFunc-call] 6 (#$ . 19169)])
#@20 

(fn F MODE ARGS)
(defalias 'math-symb-map #[771 "\302!
G\303!\304\305\"\306\305\211\307\310\305\211\305\211\f\311=\203'\312\262
\313\262\202\214T\211\262\nW\203;\314	H!\203'\nW\203\206\f\312=\203\\\315\316\317\320D\321\322FE\262\323\262
\202\211\f\324=\203\211\nW\203\211\314	H!\203\325H!I\210T\262\202c\312\262
\307\262T\211\262\nW\203\371H\262
\242>\203\214\f\312=\204\262\314!\203\214\326I\210\203\335A\203\341\327\330	>GZH\330@	>GZH8\262\202\341
@\262\203\362
GU\204\214\331 \210\202\214
G\262\202\214\204
	\332U\203
\333	\310H\334\"\210\202
\333\305\335\"\210SS\211\262\310V\203n
\305\262
\307\262T\211\262\nW\203]
H\203Q
\nHAI\210\211	H@C\244\262
\202'
\211	HC\244\262
\202'
T\336\337\f\"!B\262\202
\237B\262\f\324=\203\207
\314!\203\207
\325!\202\210
*\207" [math-working-step math-working-step-2 math-var-to-calcFunc vconcat make-vector nil (vec) -1 0 eqn elems (calcFunc-eq calcFunc-neq calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq) math-matrixp lambda (&rest x) math-symb-map quote 'elems x rows cols 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] 21 (#$ . 19352)])
#@24 

(fn FUNC &rest ARGS)
(defalias 'calcFunc-map #[385 "\300\301#\207" [math-symb-map elems] 6 (#$ . 20745)])
#@24 

(fn FUNC &rest ARGS)
(defalias 'calcFunc-mapr #[385 "\300\301#\207" [math-symb-map rows] 6 (#$ . 20861)])
#@24 

(fn FUNC &rest ARGS)
(defalias 'calcFunc-mapc #[385 "\300\301#\207" [math-symb-map cols] 6 (#$ . 20977)])
#@17 

(fn FUNC ARG)
(defalias 'calcFunc-mapa #[514 "\300
!\203\301\302\303!A#\207\301\302#\207" [math-matrixp math-symb-map elems math-transpose] 7 (#$ . 21093)])
#@17 

(fn FUNC ARG)
(defalias 'calcFunc-mapd #[514 "\300
!\203
\301\302A#\207\301\302#\207" [math-matrixp math-symb-map elems] 6 (#$ . 21264)])
#@24 

(fn FUNC &rest ARGS)
(defalias 'calcFunc-mapeq #[385 "
\301\232\204\f
\302\232\203T\211G\303U\203T\304
@!\2035\211A@\242\236A@\211\2031
@
A@ABD\262\210\202T\304
A@!\203T\211@\242\236A@\211\203S\211@ABA@D\262\210
\305\232\203c\211A@\242\236\204o
\306\232\204o
\307\232\203u\310\311#\207\310\312#\207" [calc-tweak-eqn-table (var mul var-mul) (var div var-div) 2 math-negp (var div var-div) (var neg var-neg) (var inv var-inv) apply calcFunc-mapeqr calcFunc-mapeqp] 6 (#$ . 21415)])
#@24 

(fn FUNC &rest ARGS)
(defalias 'calcFunc-mapeqr #[385 "\300\301\"\262
\302\303#\207" [mapcar #[257 "\211\242\236\211\203\211A@AB\207
\207" [calc-tweak-eqn-table] 4 "\n\n(fn X)"] apply calcFunc-mapeqp] 6 (#$ . 21927)])
#@24 

(fn FUNC &rest ARGS)
(defalias 'calcFunc-mapeqp #[385 "\211@\242\301>\203\211A@\242\302>\204\"\211@\242\303>\203>\211A@\242\304>\203>\211@
A@@\236A@\305A@8A@A@EAABB\262
\306\307#\207" [calc-tweak-eqn-table (calcFunc-lt calcFunc-leq) (calcFunc-gt calcFunc-geq) (calcFunc-gt calcFunc-geq) (calcFunc-lt calcFunc-leq) 2 math-symb-map eqn] 6 (#$ . 22160)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-reduce #[514 "\300
!\203V\301\211\302!\262A\211\262\203R@\262
\211A\211\262\203

\203K
\211:?\2060\211@\303>\262
\203A\304\305@D\"!\202M\305@D\"\202M\211@\262\202\304!\207\306\"\207" [math-matrixp nil math-var-to-calcFunc (frac float cplx polar) math-normalize math-build-call calcFunc-reducer] 9 (#$ . 22531)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-rreduce #[514 "\300
!\203F\301\211\302!\262\303A!\262\203B\303@A!\262
\211\203;
\2030\304@D\"\2022\211@\262\211A\262
\202A\262\202\305!\207\306\"\207" [math-matrixp nil math-var-to-calcFunc reverse math-build-call math-normalize calcFunc-rreducer] 8 (#$ . 22911)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-reducer #[514 "\300!\262\211\211\242\301=\262
\204\302
\303\"\210\211A\211\262@\211\203c\3041J9\205E\305\236A\206/A\205C\211A@\"\262A\262\202/\262
0\210\202K\210
A\211\262\203_\306@D\"\262
\202K\307
!\207\310!\206m\302\311\"\207" [math-var-to-calcFunc vec math-reject-arg vectorp (error) ((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)) math-build-call math-normalize math-identity-value "*Vector is empty"] 7 (#$ . 23242)])
#@13 

(fn FUNC)
(defalias 'math-identity-value #[257 "\211\300\236A\207" [((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))] 3 (#$ . 23881)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-rreducer #[514 "\300!\262\211\211\242\301=\262
\204\302
\303\"\210
\304=\203K\211A\211\262@\211\203I
A\211\262\203E\305@D\"\262
\304=\203?\306\202@\304\262\202$\307
!\207\310\207\311
A!\211\262@\211\203o
A\211\262\203k\305@D\"\262
\202W\307
!\207\312!\206y\302\313\"\207" [math-var-to-calcFunc vec math-reject-arg vectorp calcFunc-sub math-build-call calcFunc-add math-normalize 0 reverse math-identity-value "*Vector is empty"] 7 (#$ . 24206)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-reducec #[514 "\300
!\203
\301\302!\"\207\301\"\207" [math-matrixp calcFunc-reducer math-transpose] 6 (#$ . 24722)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-rreducec #[514 "\300
!\203
\301\302!\"\207\301\"\207" [math-matrixp calcFunc-rreducer math-transpose] 6 (#$ . 24886)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-reducea #[514 "\300
!\203\301\302\303\304\"A\"B\207\305\"\207" [math-matrixp vec mapcar make-closure #[257 "\301\300\"\207" [V0 calcFunc-reducer] 4 "\n\n(fn X)"] calcFunc-reducer] 7 (#$ . 25052)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-rreducea #[514 "\300
!\203\301\302\303\304\"A\"B\207\305\"\207" [math-matrixp vec mapcar make-closure #[257 "\301\300\"\207" [V0 calcFunc-rreducer] 4 "\n\n(fn X)"] calcFunc-rreducer] 7 (#$ . 25298)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-reduced #[514 "\300
!\203\301\302\303\304\"\305!A\"B\207\306\"\207" [math-matrixp vec mapcar make-closure #[257 "\301\300\"\207" [V0 calcFunc-reducer] 4 "\n\n(fn X)"] math-transpose calcFunc-reducer] 7 (#$ . 25547)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-rreduced #[514 "\300
!\203\301\302\303\304\"\305!A\"B\207\306\"\207" [math-matrixp vec mapcar make-closure #[257 "\301\300\"\207" [V0 calcFunc-rreducer] 4 "\n\n(fn X)"] math-transpose calcFunc-rreducer] 7 (#$ . 25813)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-accum #[514 "\300!\262\211\211\242\301=\262
\204\302
\303\"\210\211A\211\262@\301
D
\204&\302\304\"\210A\211\262\203@\305@D\"\262\211C\244\262
\202&\306
!\207" [math-var-to-calcFunc vec math-reject-arg vectorp "*Vector is empty" math-build-call math-normalize] 8 (#$ . 26082)])
#@17 

(fn FUNC VEC)
(defalias 'calcFunc-raccum #[514 "\300!\262\211\211\242\301=\262
\204\302
\303\"\210\304
A!\211\262@\211C
\204'\302\305\"\210A\211\262\203A\306@D\"\262
C
B\262
\202'\307\301B!\207" [math-var-to-calcFunc vec math-reject-arg vectorp reverse "*Vector is empty" math-build-call math-normalize] 8 (#$ . 26418)])
#@34 

(fn FUNC BASE ITERS ACCUM TOL)
(defalias 'math-nest-calls #[1285 "\2119\2042\211\211:?\206\211@\303>\262
\203-\211:?\206 \211@\304>\262
\2042\305\306\"\210\2022\305
\307\"\210\310!\262\203\251\311\232\203G\312\262\202\251\313!\203R\314!\262\250\204\\\305\315\"\210\211\203k\316!\204k\305\317\"\210\320W\203\251\321\322\323\324C\"\312$\211\204\207\305\312\325\"\210\211G\326U\203\235\211A@\232\203\235\211@\262\202\243\327E\262[\262\266\330T\312C\320\203\307S\211\262\320Y\203O
\2033

\2033
\331=\203\n
\211:?\206\340\211@\304>\262
\203\374
\211:?\206\360\211@\304>\262
\203\374\332\"\202
\333\"\320U\266\202?\2020
\211:?\206
\211@\304>\262
\203,
\334\335\"!\333\"\336U\266\202\2020
\305\306\"\203O
\262\nT\330\324\nC\"!\262\203\267
B\262
\202\267\203Z
\337
\237B\202[
*\266\203)!\207" [calc-internal-prec math-working-step-2 math-working-step (frac float) (frac float cplx polar) math-reject-arg numberp realp math-var-to-calcFunc (var inf var-inf) nil math-messy-integerp math-trunc fixnump natnump fixnatnump 0 (var DummyArg var-DummyArg) (var DummyArg2 var-DummyArg2) math-solve-for math-build-call "*Unable to find an inverse" 2 calcFunc-lambda math-normalize t math-nearly-equal math-compare math-abs math-sub -1 vec] 14 (#$ . 26763)])
#@24 

(fn FUNC BASE ITERS)
(defalias 'calcFunc-nest #[771 "\300\301\211%\207" [math-nest-calls nil] 9 (#$ . 28108)])
#@24 

(fn FUNC BASE ITERS)
(defalias 'calcFunc-anest #[771 "\300\301\302%\207" [math-nest-calls t nil] 9 (#$ . 28230)])
#@38 

(fn FUNC BASE &optional ITERS TOL)
(defalias 'calcFunc-fixp #[1026 "\300\301\206\n\302%\207" [math-nest-calls nil t] 10 (#$ . 28355)])
#@38 

(fn FUNC BASE &optional ITERS TOL)
(defalias 'calcFunc-afixp #[1026 "\300\301\206\n\301%\207" [math-nest-calls t] 10 (#$ . 28503)])
#@17 

(fn FUNC A B)
(defalias 'calcFunc-outer #[771 "CC\211\242\211\242\300=\262
\204\301
\242\302\"\210\211\242\300=\262
\204$\301\302\"\210
\303\242!\240\210\304
\211\242A\240\203I\300\305\306\307#A\"B
B\262
\202,\310\300\237B!\207" [vec math-reject-arg vectorp math-var-to-calcFunc nil mapcar make-closure #[257 "\302\300\242\301\242@D\"\207" [V0 V1 math-build-call] 5 "\n\n(fn X)"] math-normalize] 12 (#$ . 28648)])
#@42 

(fn INNER-MUL-FUNC INNER-ADD-FUNC A B)
(defalias 'calcFunc-inner #[1028 "
\211\242\302=\262
\204\303\304\"\210\211\211\242\302=\262
\204\303
\304\"\210\305!\203~\305
!\203D
A@G
GU\203?\306\"\202\227\307 \202\227
A@G\310U\203c
G
GU\203^\306\302D\"\202\227\307 \202\227
A@G
GU\203y\311\306\312!\"\313\"\202\227\307 \202\227\305
!\203\217\306\302D\"A@\202\227\314\315	#\"*\207" [math-inner-add-func math-inner-mul-func vec math-reject-arg vectorp math-matrixp math-inner-mats math-dimension-error 2 math-mat-col math-col-matrix 1 calcFunc-reduce calcFunc-map] 10 (#$ . 29088)])
#@12 

(fn A B)
(defalias 'math-inner-mats #[514 "\302
A@G\302\211A\211\262\203?\262
\302\262\211S\211\262\303V\2035\304\305		@\306\n\"#\"B\262\202\307BB\262\202\307\237B\207" [math-inner-add-func math-inner-mul-func nil 0 calcFunc-reduce calcFunc-map math-mat-col vec] 14 (#$ . 29706)])
(provide 'calc-map)