Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
calc /
Delete
Unzip
Name
Size
Permission
Date
Action
README
8.41
KB
-rw-r--r--
2013-01-02 20:45
README.prev
30.98
KB
-rw-r--r--
2013-01-01 15:37
calc-aent.elc
26.25
KB
-rw-r--r--
2023-06-07 04:11
calc-alg.elc
47.46
KB
-rw-r--r--
2023-06-07 04:11
calc-arith.elc
80.63
KB
-rw-r--r--
2023-06-07 04:11
calc-bin.elc
21.67
KB
-rw-r--r--
2023-06-07 04:11
calc-comb.elc
28.98
KB
-rw-r--r--
2023-06-07 04:11
calc-cplx.elc
8.44
KB
-rw-r--r--
2023-06-07 04:11
calc-embed.elc
29.32
KB
-rw-r--r--
2023-06-07 04:11
calc-ext.elc
107.11
KB
-rw-r--r--
2023-06-07 04:11
calc-fin.elc
11.78
KB
-rw-r--r--
2023-06-07 04:11
calc-forms.elc
47.54
KB
-rw-r--r--
2023-06-07 04:11
calc-frac.elc
6.07
KB
-rw-r--r--
2023-06-07 04:11
calc-funcs.elc
25.39
KB
-rw-r--r--
2023-06-07 04:11
calc-graph.elc
35.03
KB
-rw-r--r--
2023-06-07 04:11
calc-help.elc
20.46
KB
-rw-r--r--
2023-06-07 04:11
calc-incom.elc
5.22
KB
-rw-r--r--
2023-06-07 04:11
calc-keypd.elc
15.92
KB
-rw-r--r--
2023-06-07 04:11
calc-lang.elc
58.46
KB
-rw-r--r--
2023-06-07 04:11
calc-loaddefs.el
10.05
KB
-rw-r--r--
2023-06-07 04:00
calc-macs.elc
6.03
KB
-rw-r--r--
2023-06-07 04:11
calc-map.elc
28.51
KB
-rw-r--r--
2023-06-07 04:11
calc-math.elc
59.89
KB
-rw-r--r--
2023-06-07 04:11
calc-menu.elc
38.83
KB
-rw-r--r--
2023-06-07 04:11
calc-misc.elc
21.87
KB
-rw-r--r--
2023-06-07 04:11
calc-mode.elc
19.64
KB
-rw-r--r--
2023-06-07 04:11
calc-mtx.elc
6.91
KB
-rw-r--r--
2023-06-07 04:11
calc-nlfit.elc
13.37
KB
-rw-r--r--
2023-06-07 04:12
calc-poly.elc
24.29
KB
-rw-r--r--
2023-06-07 04:12
calc-prog.elc
50.68
KB
-rw-r--r--
2023-06-07 04:12
calc-rewr.elc
39.51
KB
-rw-r--r--
2023-06-07 04:12
calc-rules.elc
17.54
KB
-rw-r--r--
2023-06-07 04:12
calc-sel.elc
19.82
KB
-rw-r--r--
2023-06-07 04:12
calc-stat.elc
13.92
KB
-rw-r--r--
2023-06-07 04:12
calc-store.elc
16.85
KB
-rw-r--r--
2023-06-07 04:12
calc-stuff.elc
7.78
KB
-rw-r--r--
2023-06-07 04:12
calc-trail.elc
4.76
KB
-rw-r--r--
2023-06-07 04:12
calc-undo.elc
3.29
KB
-rw-r--r--
2023-06-07 04:12
calc-units.elc
52.73
KB
-rw-r--r--
2023-06-07 04:12
calc-vec.elc
37.74
KB
-rw-r--r--
2023-06-07 04:12
calc-yank.elc
16.59
KB
-rw-r--r--
2023-06-07 04:12
calc.elc
102.9
KB
-rw-r--r--
2023-06-07 04:12
calcalg2.elc
78.94
KB
-rw-r--r--
2023-06-07 04:12
calcalg3.elc
41.76
KB
-rw-r--r--
2023-06-07 04:12
calccomp.elc
33.11
KB
-rw-r--r--
2023-06-07 04:12
calcsel2.elc
5.98
KB
-rw-r--r--
2023-06-07 04:12
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:11:58 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-map.el ;;; in Emacs version 24.3.1 ;;; 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\315!!\203 \314\315!GS\202 \316\" \317 T! \320\321!\210\322\323!\210\324 T\325\310\326\327\f8GZO\327\f8P\330\331\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" math-vectorp calc-top 1 -1 calc-top-n 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) "\300\301!\207" [calc-do #[nil "\306 \307 \203 \204 \310\202 \311\312\313 \f\233\" \314 ,-?\205* ?\205* \315 ./\206k \316\203M -\203? \317\202@ \315 \203H \320\202I \321P\202a \203U \322\202V \315-\203_ \323\202` \324P\203i \311\202j \310\" /\325\326!\210\327\330!\210\331,\n\\\203\212 \203\206 \332\202\224 \333\202\224 -\203\223 \334\202\224 \335\314\336\310/8GZO\310/8P\203\322 \203\267 -\203\263 \337\202\301 \340\202\301 -\203\300 \341\202\301 \342\343/A@!\344\n,T\"BB\202\377 -\203\343 \203\337 \345\202\363 \346\202\363 \347\350 \203\355 \351\202\356 \315\352.R!\343/A@!\353,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 "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\310\322\323 8GZO\323 8P\324\325\fP!\326 A@!\327 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 "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\310\321\322\f8GZO\322\f8P\323 \2036 \324\202@ \325 \203? \326\202@ \327\330\fA@!\331 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 "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 (#$ . 3721) 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\307\321\312\f8GZO\312\f8P\322\323\fA@!\324\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 "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\313\f8\310\324O\3138\310\324OQ\325\326\fA@!\326A@!E\327\313\322\324 #\"\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" 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) (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 (#$ . 11794)) (defalias 'calc-get-operator #[(msg &optional nargs) "\306\211\306\211\211\211\211\211\307\310 @ A B C \204c\311\312DE\313\232\203+ \314\202M E\315\232\2036 \316\202M E\317\232\203A \320\202M E\321\232\203L \322\202M \323@\203e \324\325@\211\326U\203` \323\202a \327#\202h \n 8C\203q \330\202r \323B\203{ \331\202| \323A\203\212 \332A!\333P\202\213 \323&\210\334 \211\335Y\203\233 \f\335Z\f\336>\203\247 \337 \210\202 \f\340>\204 \f\341U\203\274 \nT G\246\202 \f\342U\203\317 A\204\317 C?C\202 \f\343U\203\342 A\204\342 B?B\202 \fA=\203\365 \f\344=\204\365 \306A\202 \f\345>\203A\204\f\227A\202 \f\346=\203.A\204.E\203(E\313\232\203\"\323\202#\313E\202 \347 \210\202 \f\350=\203nA\204nE\203h\351\352D\"\203WE\313\232\203Q\323\202R\313E\202 E\317\232\203b\323\202c\317E\202 \347 \210\202 \f\353=\203\256A\204\256E\203\250\351\352D\"\203\227E\315\232\203\221\323\202\222\315E\202 E\321\232\203\242\323\202\243\321E\202 \347 \210\202 \f\354Y\203\360\f\355X\203\360A\204\360@\f\354Z=?\205\314\f\354Z@F\203 @\203 F@U\204 F\307Y\203 \356\357F\"\210\202 \f\360>\203\361\306\211 G H\306 I\f\361=\203\326JK\203K@\202n\356\362!\202nL K\307\211 J M\363\323\364\306\365$ N\366ING\326U\204:\356\367!\210J\307V\203YJH\370H!G\371N@\372G!G#\202mM\307V\203jMH\370H!GN@,\211 O\242\373=\203\206\374OG\375ZOE\366\202\335H\204\311\376O!\210\366I\377G\201\\ \"GP\203\276\201] \201^ G\203\265\201_ G!\202\270\201` Q\366$G\201a \201b G\"G\374GG\201c \201d GOC#E\366I\203\355\201e \375 8\201f \"\210,\202 \fC\203B\203\201g \202\326\202B\203\375\202\307A\203$\201h \324\201i A\"!J\202&R8\236\211\203] A@\201j =\203\364\201h \201k \201l S\201m \306\201n %! N@\204WF\203j\201o @\206aFNE\366\202\360\201m N!\203\305NK\211 T9\203\202TKTT\242\201p =\203\273TA@\307 F\211 U@\201q >\204\254FTFUA\211U\202\226\201o FNE\366*\202\301\356\201r !\210)\202\360\311\201s !\210\334 \211 F\354Y\203\354F\355X\203\354\201o F\354ZNE\366\202\357\347 \210))\202 A\344=\203\f\201t >\204A\201u =\203W\f\201v =\203WE\323\232\203*\351\352D\"\203*\313E\314\202WE\313\232\2035\314\202WE\315\232\203@\316\202WE\317\232\203K\320\202WE\321\232\203V\322\202W\323 V\375 8\201w >\205d\323 E\201x \324\201y DV\201z \375 8!\201{ \306O\f\342=\203\211\201| \202\212\323%\375 8\201} \236A\" W\375 8\201~ =\203\260\201x \324\201 DV#!\202\263\201\200 X\306 U A@\307V\203\306 A@\202\311W@\211 F YL\211 Z\203Y\307V\203\201\201 WA@Z@\"\204\201\201 XA@Z@\"\204UZ@C\244UYSYZA\211Z\204\326\323F\201c \201\202 U\201\203 \201h \201z \375 8!EP!\201\204 WA@!\f\342=\203H\201\204 XA@!UB\202JUB\"C#E\366.\202 \366\211\202 \347 \210\202 F\203~F\307Y\203~F A@U\204~\356\357F\"\210\201c @\203\217@ AAB\202\221 AC\203\234\201\205 \202\235\323B\203\250\201\206 \202\251\323A\203\265\332A!\202\266\323\332\f!R\211 [G\201g V\203\317[\307\201g O\202\321[)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" "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 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 sort 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 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 (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"] 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) "\305 \"\211\203\f \nA\207\211:?\206 @\306>)\203 \207@\307=\203[ G\310V\203[ @C A\211A\203R @\fB\305@ \"\2032 @@B B\2022 \311@!\fB\237*\207@\312\311A\"B\207" [expr math-ms-args math-ms-temp a new assoc (bigpos bigneg frac float cplx polar hms date mod var) calcFunc-lambda 2 math-multi-subst-rec mapcar] 5]) (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:\205 @\303=)\204 \304\305\"\210\306\307\nAB\"\207" [args a f vec math-reject-arg vectorp apply calcFunc-call] 5]) (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) "\305!\203T \306\211\307 !A\211\203O @ A\211\203 \n\203I \n\211 :?\206/ \f@\310>)\203? \311\312 \n @D\"!\202K \312 \n @D\"\202K @\202 \311\n!*\207\313 \"\207" [vec row expr func a math-matrixp nil math-var-to-calcFunc (bigpos bigneg frac float cplx polar) math-normalize math-build-call calcFunc-reducer] 6]) (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) "\303!\304 !\204 \305 \306\"\210 A\211@\211\2036 \307\310\311\217\210 A\211\2030 \312\n @D\"\202 \313\n!\202@ \314!\206@ \305 \315\")\207" [func vec expr math-var-to-calcFunc math-vectorp math-reject-arg vectorp err (byte-code "9\203\" \304\236A\206 \nA\203! \nA@\"\nA\211\202 )\305\207" [func lfunc vec expr ((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)) nil] 4) ((error)) 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!\304 !\204 \305 \306\"\210\307=\203F A\211@\211\203C A\211\203= \310\n @D\"\307=\2038 \311\2029 \307\202 \312\n!\202D \313)\207\314 A!\211@\211\203j A\211\203d \310 @\nD\"\202R \312\n!\202t \315!\206t \305 \316\")\207" [func vec expr math-var-to-calcFunc math-vectorp 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!\305 !\204 \306 \307\"\210 A\211@\301\nD\n\204\" \306 \310\"\210 A\211\2039 \311\n @D\" \nC\244\202\" \312 !*\207" [func vec expr res math-var-to-calcFunc math-vectorp math-reject-arg vectorp "*Vector is empty" math-build-call math-normalize] 4]) (defalias 'calcFunc-raccum #[(func vec) "\304!\305 !\204 \306 \307\"\210\310 A!\211@\211C\n\204# \306 \311\"\210 A\211\203: \312 @\nD\"\211C B\202# \313\301 B!*\207" [func vec expr res math-var-to-calcFunc math-vectorp math-reject-arg vectorp reverse "*Vector is empty" math-build-call math-normalize] 5]) (defalias 'math-nest-calls #[(func base iters accum tol) "9\204 \306!\203 \307 !\204 \310 \311\"\210\202 \310\312\"\210\313\n! \203\225 \314\232\2031 \315\202\225 \316 !\203; \317 ! \250\204E \310 \320\"\210\203T \321 !\204T \310 \322\"\210 \323W\203\225 \324 \325 \326\327\n C\"\f \315$\211 $\204s \310\315\330\"\210$G\331U\203\213 $A@\f\232\203\213 $@\202\221 \332\f$E [+\333%T % \315 C\323 & ' ( ) * \203\270 S\211\323Y\203U\2033)\2033\334=\203 *\211 +:?\206\326 +@\335>)\203\366 )\211 +:?\206\351 +@\335>)\203\366 \336*)\"\202*) , +\337+,\"\323U*?\2020\307*!\203+\340\341*)\"! , +\337+,\"\342U*\2020\310*\311\"\203U*)'T'\333\327\n*C\"!*-\203\253 *(B(\202\253 -\203b\343(\237B\202d*.!\207" [tol base func iters dummy dummy2 math-realp math-numberp 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 (bigpos bigneg frac float cplx polar) 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 a b 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) "\304!\204 \305\306\"\210\304 !\204 \305 \306\"\210\307\n!\310A\211\2030 \311\312\313 A\"B B\202 \314\311 \237B!)\207" [a b func mat math-vectorp math-reject-arg vectorp math-var-to-calcFunc nil vec 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) "\304!\204 \305\306\"\210\304 !\204 \305 \306\"\210\307!\203f \307 !\2034 A@G GU\2031 \310 \"\207\311 \207A@G\312U\203O G GU\203L \310\313 D\"\207\311 \207A@G GU\203c \314\310\315 !\"\316\"\207\311 \207\307 !\203u \310\313D \"A@\207\317\n\320 #\"\207" [a b math-inner-add-func math-inner-mul-func math-vectorp math-reject-arg vectorp math-matrixp math-inner-mats math-dimension-error 2 vec 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)