%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-apply #[(&optional oper) "\300\301!\207" [calc-do #[nil "\306\307 \233\"\310\f\206% \311\312\313\314!\211\242\315=\262\203# \313\314!GS\202$ \316\" \317 T! \320\321!\210\322\323!\210\324 T\325\326\310\327\330\f8GZ#\330\f8P\331\332\fA@!
E#,\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper expr 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 substring "apl" 4 2 calcFunc-apply math-calcFunc-to-var] 8]] 2 nil nil])
(defalias 'calc-reduce #[(&optional oper accum) "\300\301!\207" [calc-do #[nil "\306 \307 \203 \204 \310\202 \311\312\313 \f\233\" \314 -.?\205* ?\205* \315 /0\206k \316\203M .\203? \317\202@ \315 \203H \320\202I \321P\202a \203U \322\202V \315.\203_ \323\202` \324P\203i \311\202j \310\" 0\325\326!\210\327\330!\210\331-\n\\\332\203\213 \203\207 \333\202\225 \334\202\225 .\203\224 \335\202\225 \336\314\337\31008GZ#\31008P\203\323 \203\270 .\203\264 \340\202\302 \341\202\302 .\203\301 \342\202\302 \343\3440A@!\345\n-T\"BB\202 .\203\344 \203\340 \346\202\364 \347\202\364 \350\351 \203\356 \352\202\357 \315\353/R!\3440A@!\354-T!E#.\207" [nest rev nargs calc-stack-top calc-stack calc-dollar-values 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 substring "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-dollar-used accum calc-mapping-dir oper] 8]] 2 nil nil])
(defalias 'calc-accumulate #[(&optional oper) "\301\302\"\207" [oper calc-reduce t] 3 nil nil])
(defalias 'calc-map #[(&optional oper) "\300\301!\207" [calc-do #[nil "\306\307 \233\"\310\311
\206 \312\313!\211 @ \314\315!\210\316\317!\210\320 \\\321\322\310\323\324
8GZ#\324
8P\325\326\fP!\327
A@!\330 T\"BB#-\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used calc-mapping-dir oper mapcar calc-get-stack-element 0 "" calc-get-operator "Map" message "Working..." calc-set-command-flag clear-message calc-enter-result substring "map" 4 2 intern "calcFunc-map" math-calcFunc-to-var calc-top-list-n nargs] 9]] 2 nil nil])
(defalias 'calc-map-equation #[(&optional oper) "\300\301!\207" [calc-do #[nil "\306\307 \233\"\310\f\206 \311\312!\211 @ \313\314!\210\315\316!\210\317
\\\320\321\310\322\323\f8GZ#\323\f8P\324 \2037 \325\202A \326 \203@ \327\202A \330\331\fA@!\332
T\"BB#,\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper nargs mapcar calc-get-stack-element 0 calc-get-operator "Map-equation" message "Working..." calc-set-command-flag clear-message calc-enter-result substring "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])
(defvar calc-verify-arglist t)
(defvar calc-mapping-dir nil)
#@49 This is meant to be called by calc-keypad mode.
(defalias 'calc-map-stack #[nil "\301\302\303!\210\304 )\207" [calc-verify-arglist nil calc-unread-command 36 calc-map] 2 (#$ . 3634) nil])
(defalias 'calc-outer-product #[(&optional oper) "\300\301!\207" [calc-do #[nil "\305\306 \233\"\307\f\206 \310\311\312\" \313\314!\210\315\316!\210\317\312 \\\320\321\307\322\312\f8GZ#\312\f8P\323\324\fA@!\325\312 T\"BB#+\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper mapcar calc-get-stack-element 0 calc-get-operator "Outer" 2 message "Working..." calc-set-command-flag clear-message calc-enter-result substring "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) "\300\301!\207" [calc-do #[nil "\306\307 \233\"\310\f\206 \311\312\313\" \211 \310V\203 \nA\202 \n\310\206, \311\314\313\" \315\316!\210\317\320!\210\321\322\313
#\323\324\313\f8\310\325#\324\3138\310\325#Q\326\327\fA@!\327A@!E\330\313\322\325
#\"\244#.\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used mul-oper mul-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" substring 1 calcFunc-inner math-calcFunc-to-var calc-top-list-n add-oper] 11]] 2 nil 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 (#$ . 11759))
(defalias 'calc-get-operator #[(msg &optional nargs) "\306\211\306\211\211\211\211\211\307\310 @ A B C
\204?\311\312DE\313\267\2027 \314\2028 \315\2028 \316\2028 \317\2028 \320@\203P \321\322@\211\323U\203K \320\202L \324#\202S \n 8C\203\\ \325\202] \320B\203f \326\202g \320A\203u \327A!\330P\202v \320&\210\331 \211\332Y\203\206 \f\332Z\f\333>\203\222 \334 \210\202 \f\335>\204 \f\336U\203\247 \nT G\246\202 \f\337U\203\272 A\204\272 C?C\202 \f\340U\203\315 A\204\315 B?B\202 \fA=\203\340 \f\341=\204\340 \306A\202 \f\342>\203\362 A\204\362 \f\227A\202 \f\343=\203A\204E\203E\344\232\203
\320\202\344E\202 \345 \210\202 \f\346=\203YA\204YE\203S\347\350D\"\203BE\344\232\203<\320\202=\344E\202 E\351\232\203M\320\202N\351E\202 \345 \210\202 \f\352=\203\231A\204\231E\203\223\347\350D\"\203\202E\353\232\203|\320\202}\353E\202 E\354\232\203\215\320\202\216\354E\202 \345 \210\202 \f\355Y\203\333\f\356X\203\333A\204\333@\f\355Z=?\205\267\f\355Z@F\203 @\203 F@U\204 F\307Y\203 \357\360F\"\210\202 \f\361>\203\336\306\211 G H\306 I\f\362=\203\323JK\203\376K@\202Y\357\363!\202YL K\307\211 J M\364\320\365\306\366$ N\367ING\323U\204%\357\370!\210J\307V\203DJH\371H!G\372N@\373G!G#\202XM\307V\203UMH\371H!GN@,\211 O\242\374=\203q\375OG\376ZOE\367\202\312H\204\266\377O!\210\367I\201\\ G\201] \"GP\203\253\201^ \201_ G\203\242\201` G!\202\245\201a Q\367$G\201b \201c G\"G\375GG\201d \201e GOC#E\367I\203\332\201f \376 8\201g \"\210,\202 \fC\203\363B\203\357\201h \202\375\323\202\375B\203\374\376\202\375\307A\203\201i \321\201j A\"!J\202R8\236\211\2039 A@\201k =\203\341\201i \201l \201m S\201n \306\201o %! N@\204DF\203W\201p @\206NFNE\367\202\335\201n N!\203\262NK\211 T9\203oTKTT\242\201q =\203\250TA@\307 F\211 U@\201r >\204\231FTFUA\211U\202\203\201p FNE\367*\202\256\357\201s !\210)\202\335\311\201t !\210\331 \211 F\355Y\203\331F\356X\203\331\201p F\355ZNE\367\202\334\345 \210))\202 A\341=\203\360\f\201u >\204A\201v =\2033\f\201w =\2033E\320\232\203\347\350D\"\203\344E\314\2021E\201x \267\2020\314\2021\315\2021\316\2021\317\2021\320 V\376 8\201y >\205>\320 E\201z \321\201{ DV\201| \201} \376 8!\201~ \"\f\337=\203e\201 \202f\320%\376 8\201\200 \236A\" W\376 8\201\201 =\203\214\201z \321\201\202 DV#!\202\217\201\203 X\306 U A@\307V\203\242 A@\202\245W@\211 F YL\211 Z\203\354Y\307V\203\354\201\204 WA@Z@\"\204\343\201\204 XA@Z@\"\204\343UZ@C\244UYSYZA\211Z\204\262\320F\201d \201\205 U\201\206 \201i \201} \376 8!EP!\201\207 WA@!\f\337=\203$\201\207 XA@!UB\202&UB\"C#E\367.\202 \367\211\202 \345 \210\202 F\203ZF\307Y\203ZF A@U\204Z\357\360F\"\210\201d @\203k@ AAB\202m AC\203x\201\210 \202y\320B\203\204\201\211 \202\205\320A\203\221\327A!\202\222\320\327\f!R\211 [G\201h V\203\256\201| [\307\201h #\202\260[)C\". \207" [calc-aborted-prefix msgs which oper key done 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" 39 "c" 43 "a" 47 "d" 51)) " 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 forcenargs prefix hyp inv msg calc-mapping-dir nargs math-arglist has-args record-entry calc-dollar-used calc-dollar-values calc-arg-values calc-hashes-used func expr calc-verify-arglist minibuffer-local-map calc-oper-keys obarray defn args dir oper2 oper3 n p name sort string-lessp read-from-minibuffer "Function argument list: " prin1-to-string "()" mapcar #[(x) "\301\302\303\304!P!E\207" [x var intern "var-" symbol-name] 6] 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" 1056 "c" 1060 "a" 1064 "d" 1068)) (calcFunc-map calcFunc-reduce calcFunc-rreduce) calc-get-operator "%s%s, %s%s" substring 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"] 11])
(defalias 'math-var-to-calcFunc #[(f) "\242\301=\203 \302\3038!\203 \3038\207\304\305\306A@!P!\207\242\307>\203& \207\310\311\"\207" [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) "9\2030 \303\236A\206
\304\305\306 !\"\203 \307\306 !\310\"\202# \306 !\311\312\n!\312\313\nP!E*\207\207" [f func base ((+ . 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-"] 5])
(defalias 'math-build-call #[(f args) "\242\303=\203) GG\304ZU\203 \305GS8A #\207\306\307\"\210\310\311! BB\207\312=\203; G\313U\203; \314 @D\207\315\236\211\203Q G\304U\203Q \nA B\202T B)\207" [f args func 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 . |))] 5])
(defalias 'math-multi-subst #[(expr olds news) "\305\211\n\203 \203 \n@ @B B\nA A\202 \306\f!*\207" [math-ms-temp math-ms-args olds news expr nil math-multi-subst-rec] 2])
(defalias 'math-multi-subst-rec #[(expr) "\304 \"\211\203\f \nA\207\211:?\206 \211@\305>\262\203 \207@\306=\203[ G\307V\203[ @C A\211A\203R @ B\304@ \"\2032 @@B B\2022 \310@! B\237*\207@\311\310A\"B\207" [expr math-ms-args math-ms-temp new assoc (frac float cplx polar hms date mod var) calcFunc-lambda 2 math-multi-subst-rec mapcar] 4])
(defalias 'calcFunc-call #[(f &rest args) "\302\303! \"\211\242\304=\203 \207\305 !\207" [f args math-build-call math-var-to-calcFunc calcFunc-call math-normalize] 4])
(defalias 'calcFunc-apply #[(f args) "\211\242\302=\262\204 \303\304\"\210\305\306 AB\"\207" [args f vec math-reject-arg vectorp apply calcFunc-call] 4])
(defalias 'math-symb-map #[(f mode args) "\306!\nG\307\n! \310 \311\" \312 $\311\211 % &\313 '\314 (\311\211 ) *\311\211 +\311 ,-\315=\203> \316-\317$\202\242 'T\211' W\203R \320\f'H!\203> ' W\203\234 -\316=\203q \321\322\323\324D\325\326FE\327-\202\237 -\330=\203\237 ' W\203\237 \320\f'H!\203\223 \f'\331\f'H!I\210'T\211'\202z \316-\313''T\211' W\203\f'H\211+\242$>\203\242 -\316=\204\311 \320+!\203\242
'\332I\210%\203\366 $A\203\373 \333\334%$>GZH\334+@$>GZH$8%\202\373 +@%*\203+G*U\204\242 \335 \210\202\242 +G*\202\242 *\2041 \336U\203,\337\f\314H\340\"\210\2021\337\311\341\"\210*S)*S\211*\314V\203\222\311,\313''T\211' W\203~
'H\203q\f'\f'HAI\210,\f'H@C\244,\202G,\f'HC\244,\202G(T(\342\343 ,\"!&B&\2026%&\237B&-\330=\203\257\320&!\203\257\331&!\202\261&.\207" [f func args nargs ptrs vflags 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 heads head vec i math-working-step math-working-step-2 len obj expr mode] 7])
(defalias 'calcFunc-map #[(func &rest args) "\302\303 #\207" [func args math-symb-map elems] 4])
(defalias 'calcFunc-mapr #[(func &rest args) "\302\303 #\207" [func args math-symb-map rows] 4])
(defalias 'calcFunc-mapc #[(func &rest args) "\302\303 #\207" [func args math-symb-map cols] 4])
(defalias 'calcFunc-mapa #[(func arg) "\302!\203 \303 \304\305!A#\207\303 \304#\207" [arg func math-matrixp math-symb-map elems math-transpose] 5])
(defalias 'calcFunc-mapd #[(func arg) "\302!\203
\303 \304A#\207\303 \304#\207" [arg func math-matrixp math-symb-map elems] 4])
(defalias 'calcFunc-mapeq #[(func &rest args) "\303\232\204\f \304\232\203T G\305U\203T \306 @!\2035 A@\242\n\236A@\211\2031 @ A@ABD)\202T \306 A@!\203T @\242\n\236A@\211\203S @AB A@D)\307\232\203c A@\242\n\236\204o \310\232\204o \311\232\203u \312\313 #\207\312\314 #\207" [func args 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] 5])
(defalias 'calcFunc-mapeqr #[(func &rest args) "\302\303\"\304\305 #\207" [args func mapcar #[(x) "\242 \236\211\203 \nA@AB\202 )\207" [x calc-tweak-eqn-table func] 3] apply calcFunc-mapeqp] 4])
(defalias 'calcFunc-mapeqp #[(func &rest args) "@\242\303>\203 A@\242\304>\204\" @\242\305>\203= A@\242\306>\203= @A@@ \236A@\307A@8A@A@EAABB\310\n\311#\207" [args calc-tweak-eqn-table func (calcFunc-lt calcFunc-leq) (calcFunc-gt calcFunc-geq) (calcFunc-gt calcFunc-geq) (calcFunc-lt calcFunc-leq) 2 math-symb-map eqn] 4])
(defalias 'calcFunc-reduce #[(func vec) "\304!\203T \305\211\306 !A\211\203O @ A\211\203 \n\203I \n\211:?\206. \211@\307>\262\203? \310\311 \n @D\"!\202K \311 \n @D\"\202K @\202 \310\n!*\207\312 \"\207" [vec row expr func math-matrixp nil math-var-to-calcFunc (frac float cplx polar) math-normalize math-build-call calcFunc-reducer] 5])
(defalias 'calcFunc-rreduce #[(func vec) "\304!\203E \305\211\306 !\307A!\211\203@ \307@A!\211\2039 \n\203/ \310 @\nD\"\2021 @ A\211\204! A\211\204 \311\n!*\207\312 \"\207" [vec row expr func math-matrixp nil math-var-to-calcFunc reverse math-build-call math-normalize calcFunc-rreducer] 5])
(defalias 'calcFunc-reducer #[(func vec) "\304! \211\242\301=\262\204 \305 \306\"\210 A\211@\211\203d \3071G 9\205C \310\236A\206. A\205B \n A@\" A\211\2020 )0\202K \210\202L \210 A\211\203^ \311\n @D\"\202L \312\n!\202n \313!\206n \305 \314\")\207" [func vec expr lfunc math-var-to-calcFunc 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"] 5])
(defalias 'math-identity-value #[(func) "\301\236A\207" [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) "\303! \211\242\301=\262\204 \304 \305\"\210\306=\203J A\211@\211\203G A\211\203A \307\n @D\"\306=\203< \310\202= \306\202# \311\n!\202H \312)\207\313 A!\211@\211\203n A\211\203h \307 @\nD\"\202V \311\n!\202x \314!\206x \304 \315\")\207" [func vec expr math-var-to-calcFunc math-reject-arg vectorp calcFunc-sub math-build-call calcFunc-add math-normalize 0 reverse math-identity-value "*Vector is empty"] 5])
(defalias 'calcFunc-reducec #[(func vec) "\302!\203
\303 \304!\"\207\303 \"\207" [vec func math-matrixp calcFunc-reducer math-transpose] 4])
(defalias 'calcFunc-rreducec #[(func vec) "\302!\203
\303 \304!\"\207\303 \"\207" [vec func math-matrixp calcFunc-rreducer math-transpose] 4])
(defalias 'calcFunc-reducea #[(func vec) "\302!\203 \300\303\304A\"B\207\305 \"\207" [vec func math-matrixp mapcar #[(x) "\302 \"\207" [func x calcFunc-reducer] 3] calcFunc-reducer] 4])
(defalias 'calcFunc-rreducea #[(func vec) "\302!\203 \300\303\304A\"B\207\305 \"\207" [vec func math-matrixp mapcar #[(x) "\302 \"\207" [func x calcFunc-rreducer] 3] calcFunc-rreducer] 4])
(defalias 'calcFunc-reduced #[(func vec) "\302!\203 \300\303\304\305!A\"B\207\306 \"\207" [vec func math-matrixp mapcar #[(x) "\302 \"\207" [func x calcFunc-reducer] 3] math-transpose calcFunc-reducer] 5])
(defalias 'calcFunc-rreduced #[(func vec) "\302!\203 \300\303\304\305!A\"B\207\306 \"\207" [vec func math-matrixp mapcar #[(x) "\302 \"\207" [func x calcFunc-rreducer] 3] math-transpose calcFunc-rreducer] 5])
(defalias 'calcFunc-accum #[(func vec) "\304! \211\242\301=\262\204 \305 \306\"\210 A\211@\301\nD\n\204& \305 \307\"\210 A\211\203= \310\n @D\" \nC\244\202& \311 !*\207" [func vec expr res math-var-to-calcFunc math-reject-arg vectorp "*Vector is empty" math-build-call math-normalize] 4])
(defalias 'calcFunc-raccum #[(func vec) "\304! \211\242\301=\262\204 \305 \306\"\210\307 A!\211@\211C\n\204' \305 \310\"\210 A\211\203> \311 @\nD\"\211C B\202' \312\301 B!*\207" [func vec expr res math-var-to-calcFunc math-reject-arg vectorp reverse "*Vector is empty" math-build-call math-normalize] 5])
(defalias 'math-nest-calls #[(func base iters accum tol) "9\2042 \211:?\206 \211@\306>\262\203- \211:?\206 \211@\307>\262\2042 \310 \311\"\210\2022 \310\312\"\210\313\n! \203\251 \314\232\203E \315\202\251 \316 !\203O \317 ! \250\204Y \310 \320\"\210\203h \321 !\204h \310 \322\"\210 \323W\203\251 \324 \325 \326\327\n
C\"\f
\315$\211 #\204\207 \310\315\330\"\210#G\331U\203\237 #A@\f\232\203\237 #@\202\245 \332\f#E [+\333$T $ \315 C\323 % & ' ( ) \203\314 S\211\323Y\203e\203C(\203C\334=\203)\211:?\206\347 \211@\307>\262\203(\211:?\206\370 \211@\307>\262\203\335)(\"\202)(\336\"\323U\266\202?\202@)\211:?\206\"\211@\307>\262\203;\337\340)(\"!\336\"\341U\266\202\202@\310)\311\"\203e)(&T&\333\327\n)C\"!)*\203\277 )'B'\202\277 *\203r\342'\237B\202t).!\207" [tol base func iters dummy dummy2 (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 finv calc-internal-prec math-working-step-2 math-working-step avalues ovalue value accum] 7])
(defalias 'calcFunc-nest #[(func base iters) "\303 \n\304\211%\207" [func base iters math-nest-calls nil] 6])
(defalias 'calcFunc-anest #[(func base iters) "\303 \n\304\305%\207" [func base iters math-nest-calls t nil] 6])
(defalias 'calcFunc-fixp #[(func base &optional iters tol) "\304 \n\305 \206\n \306%\207" [func base iters tol math-nest-calls nil t] 6])
(defalias 'calcFunc-afixp #[(func base &optional iters tol) "\304 \n\305 \206\n \305%\207" [func base iters tol math-nest-calls t] 6])
(defalias 'calcFunc-outer #[(func a b) "\211\242\304=\262\204 \305\306\"\210 \211\242\304=\262\204 \305 \306\"\210\307\n!\310A\211\2038 \304\311\312 A\"B B\202$ \313\304 \237B!)\207" [a b func mat vec math-reject-arg vectorp math-var-to-calcFunc nil mapcar #[(x) "\303 @\nD\"\207" [func a x math-build-call] 4] math-normalize] 4])
(defalias 'calcFunc-inner #[(math-inner-mul-func math-inner-add-func a b) "\211\242\304=\262\204 \305\306\"\210 \211\242\304=\262\204 \305 \306\"\210\307!\203n \307 !\203< A@G GU\2039 \310 \"\207\311 \207A@G\312U\203W G GU\203T \310\304 D\"\207\311 \207A@G GU\203k \313\310\314 !\"\315\"\207\311 \207\307 !\203} \310\304D \"A@\207\316\n\317 #\"\207" [a b 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] 6])
(defalias 'math-inner-mats #[(a b) "\306A@G\306\211\211\211\211 \f
A\211\203J \f\306\fS\211\307V\203? \310\311@\312\f\"#\"
B\202! \313
B
B
\202 \313
\237.B\207" [b accum bp ap col row nil 0 calcFunc-reduce calcFunc-map math-mat-col vec cols mat a math-inner-add-func math-inner-mul-func] 8])
(provide 'calc-map)
Zerion Mini Shell 1.0