Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
calc-aent.elc
26.22
KB
-rw-r--r--
calc-alg.elc
50.83
KB
-rw-r--r--
calc-arith.elc
79.87
KB
-rw-r--r--
calc-bin.elc
17.6
KB
-rw-r--r--
calc-comb.elc
28.6
KB
-rw-r--r--
calc-cplx.elc
8.25
KB
-rw-r--r--
calc-embed.elc
29.39
KB
-rw-r--r--
calc-ext.elc
109.63
KB
-rw-r--r--
calc-fin.elc
12.05
KB
-rw-r--r--
calc-forms.elc
56.09
KB
-rw-r--r--
calc-frac.elc
5.87
KB
-rw-r--r--
calc-funcs.elc
25.78
KB
-rw-r--r--
calc-graph.elc
35.06
KB
-rw-r--r--
calc-help.elc
20.06
KB
-rw-r--r--
calc-incom.elc
5.16
KB
-rw-r--r--
calc-keypd.elc
15.54
KB
-rw-r--r--
calc-lang.elc
58.62
KB
-rw-r--r--
calc-loaddefs.el
9.2
KB
-rw-r--r--
calc-macs.elc
6.13
KB
-rw-r--r--
calc-map.elc
28.65
KB
-rw-r--r--
calc-math.elc
58.13
KB
-rw-r--r--
calc-menu.elc
38.72
KB
-rw-r--r--
calc-misc.elc
20.67
KB
-rw-r--r--
calc-mode.elc
20.14
KB
-rw-r--r--
calc-mtx.elc
6.76
KB
-rw-r--r--
calc-nlfit.elc
13.45
KB
-rw-r--r--
calc-poly.elc
26.06
KB
-rw-r--r--
calc-prog.elc
51.18
KB
-rw-r--r--
calc-rewr.elc
39.08
KB
-rw-r--r--
calc-rules.elc
17.4
KB
-rw-r--r--
calc-sel.elc
19.6
KB
-rw-r--r--
calc-stat.elc
14.04
KB
-rw-r--r--
calc-store.elc
16.77
KB
-rw-r--r--
calc-stuff.elc
7.42
KB
-rw-r--r--
calc-trail.elc
4.69
KB
-rw-r--r--
calc-undo.elc
3.14
KB
-rw-r--r--
calc-units.elc
56.14
KB
-rw-r--r--
calc-vec.elc
37.91
KB
-rw-r--r--
calc-yank.elc
19.01
KB
-rw-r--r--
calc.elc
102.71
KB
-rw-r--r--
calcalg2.elc
78.71
KB
-rw-r--r--
calcalg3.elc
41.41
KB
-rw-r--r--
calccomp.elc
34.46
KB
-rw-r--r--
calcsel2.elc
5.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-alg.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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) #@12 (fn ARG) (defalias 'calc-alg-evaluate #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 " \303>?\205 \304\305\300!\210\306\307\310\311\307!#*\207" vconcat vector [calc-simplify-mode math-simplify-only (none num) nil calc-modify-simplify-mode calc-enter-result 1 "dsmp" calc-top] 5] 8 (#$ . 480) "p"]) #@12 (fn ARG) (defalias 'calc-modify-simplify-mode #[257 "\301!\302U\203 \303\202 \301!\304Y\203 \305\211\306W\205! C\211\207" [calc-simplify-mode math-abs 2 alg 3 ext 0] 3 (#$ . 823)]) (defalias 'calc-simplify #[0 "\300\301`\"\207" [calc-do #[0 "\301\302!\303 \203 \304\305\306!!)\262\307 \203! \304\305\310!!)\262\311>?\205) \312\302\313\314!#)\207" [calc-simplify-mode calc-top-n 1 calc-is-inverse nil math-normalize math-trig-rewrite calc-is-hyperbolic math-hyperbolic-trig-rewrite (none num) calc-enter-result "simp" math-simplify] 6]] 3 nil nil]) (defalias 'calc-simplify-extended #[0 "\300\301`\"\207" [calc-do #[0 "\301>?\205 \302\303\304\305\306\303!!#)\207" [calc-simplify-mode (none num) calc-enter-result 1 "esmp" math-simplify-extended calc-top-n] 6]] 3 nil nil]) #@12 (fn ARG) (defalias 'calc-expand-formula #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 " \304>?\205 \305\306\300!\210\307\310\311\300\312V\203! \313\314\310!)\202- \314\310!\315!\206+ \211\262#*\207" vconcat vector [calc-simplify-mode math-simplify-only math-expand-formulas (none num) nil calc-modify-simplify-mode calc-enter-result 1 "expf" 0 t calc-top-n math-expand-formula] 6] 8 (#$ . 1627) "p"]) #@12 (fn ARG) (defalias 'calc-factor #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303 \203 \304\202\f \305\300#\207" vconcat vector [calc-unary-op "fctr" calc-is-hyperbolic calcFunc-factors calcFunc-factor] 4] 8 (#$ . 2077) "P"]) #@10 (fn N) (defalias 'calc-expand #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303\304\305\306\302!D\300\205 \307\300!C\"#\207" vconcat vector [calc-enter-result 1 "expa" append calcFunc-expand calc-top-n prefix-numeric-value] 7] 8 (#$ . 2356) "P"]) #@13 (fn EXPR) (defalias 'calcFunc-powerexpand #[257 "\300\301\302\"!\207" [math-normalize math-map-tree math-powerexpand] 5 (#$ . 2656)]) #@13 (fn EXPR) (defalias 'math-powerexpand #[257 "\211\242\300=\203f \3018\211\250\2034 \211\302V\2034 \303A@A@W\203/ \304\"\262T\262\202 \266\202\202e \211\250\203d \211\302W\203d \305\306A@\305\"\306A@\305\"V\203_ \304\"\262S\262\202L \266\202\202e \207\207" [^ 2 0 1 math-mul -1 math-pow] 8 (#$ . 2799)]) (defalias 'calc-powerexpand #[0 "\300\301`\"\207" [calc-do #[0 "\300\301\302\303\304\301!!#\207" [calc-enter-result 1 "pexp" calcFunc-powerexpand calc-top-n] 6]] 3 nil nil]) #@22 (fn &optional VAR) (defalias 'calc-collect #[256 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\300\301\232\204 \300\302\232\204 \300\204 \303\304\305\306\307\304!B#\207\310\300!\211\242\311=\203+ \311\312A@\"\210\303\313\305\306\314\313!E#\207" vconcat vector ["" "$" calc-enter-result 2 "clct" calcFunc-collect calc-top-list-n math-read-expr error "Bad format in expression: %s" 1 calc-top-n] 7] 8 (#$ . 3305) "sCollect terms involving: "]) #@12 (fn ARG) (defalias 'calc-apart #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303\300#\207" vconcat vector [calc-unary-op "aprt" calcFunc-apart] 4] 8 (#$ . 3790) "P"]) #@12 (fn ARG) (defalias 'calc-normalize-rat #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303\300#\207" vconcat vector [calc-unary-op "nrat" calcFunc-nrat] 4] 8 (#$ . 4009) "P"]) #@12 (fn ARG) (defalias 'calc-poly-gcd #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303\300#\207" vconcat vector [calc-binary-op "pgcd" calcFunc-pgcd] 4] 8 (#$ . 4235) "P"]) #@12 (fn ARG) (defalias 'calc-poly-div #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\302\303\304\305\300#\210 \205J \300?\205J \306\307!\210\310 \311\"\210 \211:\2035 \211@\312=\203/ \211A@\313=\2028 \314!\2028 \211\313=\262\204G \315\316\317 \313\"\"\202J \315\320!)\207" vconcat vector [calc-poly-div-remainder nil calc-binary-op "pdiv" calcFunc-pdiv calc-clear-command-flag clear-message calc-record "prem" float 0 math-zerop message "(Remainder was %s)" math-format-flat-expr "(No remainder)"] 5] 8 (#$ . 4457) "P"]) #@12 (fn ARG) (defalias 'calc-poly-rem #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303\300#\207" vconcat vector [calc-binary-op "prem" calcFunc-prem] 4] 8 (#$ . 5020) "P"]) #@12 (fn ARG) (defalias 'calc-poly-div-rem #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301 \203 \302\303\304\300#\207\302\303\305\300#\207" vconcat vector [calc-is-hyperbolic calc-binary-op "pdvr" calcFunc-pdivide calcFunc-pdivrem] 4] 8 (#$ . 5242) "P"]) #@34 (fn &optional OLDNAME NEWNAME) (defalias 'calc-substitute #[512 "\211C\300\301\302\303\304\305\"\306\"\307$`\"\207" [calc-do make-byte-code 0 "\302\211\303\302\300\304\232\204 \300\305\232\204 \300\204) \306\303!\262\306\307!\262\306\310!\262\310\262\202\252 \301\242\204< \311\303!\210\301\312\313\300\314Q\300\"\240\210\301\242\304\232\204O \301\242\305\232\204O \301\242\204_ \306\303!\262\306\307!\262\307\262\202\203 \301\242;\203l \315\301\242!\202n \301\242\262\242\316=\203~ \316\317A@\"\210\306\303!\262\300;\203\216 \315\300!\202\217 \300\262\242\316=\203\237 \316\317A@\"\210\320\"\204\252 \316\321!\210\322\323\324##\207" vconcat vector [nil 1 "" "$" calc-top-n 2 3 calc-unread-command read-string "Substitute old: " ", new: " math-read-expr error "Bad format in expression: %s" math-expr-contains "No occurrences found" calc-enter-result "sbst" math-expr-subst] 11] 11 (#$ . 5539) "sSubstitute old: "]) #@13 (fn NAME) (defalias 'calc-has-rules #[257 "\300!\262\211:\205 \211@\301>\205 \211\207" [calc-var-value (vec calcFunc-assign calcFunc-condition)] 3 (#$ . 6491)]) (defalias 'math-recompile-eval-rules #[0 "\303\304!\205 \305\306!\307\236\310\304!\211\207" [math-eval-rules-cache math-eval-rules-cache-other math-eval-rules-cache-tag calc-has-rules var-EvalRules math-compile-rewrites (var EvalRules var-EvalRules) nil calc-var-value] 2]) #@13 (fn EXPR) (defalias 'math-expand-formula #[257 "\211:\205. \211@9\205. \211@\301N\204 \211@\302N\205. \303\304@A\")\211\242@=?\205, \211\262\207" [math-expand-formulas calc-user-defn math-expandable t apply] 4 (#$ . 6943)]) #@12 (fn A B) (defalias 'math-beforep #[514 "\211:?\206 \211@\300>\262\203C \211\211:?\206 \211@\300>\262\203C \301\"\211\302=\206B \211\303=\205B \232?\205B \242\304>G\242\305>GV\207\211\306\232\203K \307\207\310\267\202U \311\207\307\207\211\312\232\203] \311\207\211:?\206h \211@\300>\262\203\226 \211\242\313=\203\224 \314!\203\224 \315\3168\"\204\222 \3168\301\"\303U\266\202\205\225 \311\207\311\207\211\211:?\206\241 \211@\300>\262\203\276 \242\313=\205\275 \314!\205\343\315\3168\"\205\275 \311\207@\313=\203J\211@\313=\203J\314!\203J\314!\203J\301\3168\3168\"\211\317\267\202\356 \311\202I\307\202IA@\320>\203A@\321>\203\311\202IA@\322>\203A@\323>\203\307\202I\301\3248\3248\"\211\262\302=\203*\311\202I\211\325=\2034\307\202IA@\326>\203HA@\327>\203H\311\202I\307\207\211:?\206U\211@\330>\262?\211:?\206c\211@\330>\262?=\204v\211:?\206u\211@\330>\207@\331=\203\233\211@\331=\203\214A@A@\231\207\211\211:?\206\227\211@\332>\262?\207\211@\331=\203\256\211:?\206\255\211@\332>\207@@=\203\336A\262\211A\211\262\203\316\203\316@@\232\204\266\211\205\343?\206\335\315@@\"\207@@\231\207" [(frac float) math-compare -1 0 (nil frac float) (nil frac float) (neg (var inf var-inf)) nil #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((neg (var inf var-inf)) 81 (var inf var-inf) 83)) t (var inf var-inf) intv math-intv-constp math-beforep 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (-1 230 1 234)) (2 3) (0 1) (0 1) (2 3) 3 1 (0 2) (1 3) (frac float cplx polar hms date sdev intv mod) var (frac float cplx polar)] 7 (#$ . 7181)]) #@10 (fn A) (defalias 'math-simplify-extended #[257 "\301\302!)\207" [math-living-dangerously t math-simplify] 3 (#$ . 8899)]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put math-simplify-extended byte-optimizer byte-compile-inline-expand defalias calcFunc-esimplify] 4) #@73 Rewrite trigonometric functions in terms of sines and cosines. (fn FN) (defalias 'math-trig-rewrite #[257 "\211:\204 \207\211\242\300=\203 \301\302\303\304A!BE\207\211\242\305=\203( \301\302\306\304A!BE\207\211\242\307=\203< \304A!\301\306B\303BE\207\211\242\310=\203P \304A!\301\303B\306BE\207\311\304\"\207" [calcFunc-sec / 1 calcFunc-cos math-trig-rewrite calcFunc-csc calcFunc-sin calcFunc-tan calcFunc-cot mapcar] 6 (#$ . 9186)]) #@68 Rewrite hyperbolic functions in terms of sinhs and coshs. (fn FN) (defalias 'math-hyperbolic-trig-rewrite #[257 "\211:\204 \207\211\242\300=\203 \301\302\303\304A!BE\207\211\242\305=\203( \301\302\306\304A!BE\207\211\242\307=\203< \304A!\301\306B\303BE\207\211\242\310=\203P \304A!\301\303B\306BE\207\311\304\"\207" [calcFunc-sech / 1 calcFunc-cosh math-hyperbolic-trig-rewrite calcFunc-csch calcFunc-sinh calcFunc-tanh calcFunc-coth mapcar] 6 (#$ . 9639)]) #@14 (fn INPUT) (defalias 'calc-input-angle-units #[257 "\300\301\"\203 \302\207\300\303\"\203 \304\207\300\305\"\203 \306\207\307\207" [math-expr-contains (var deg var-deg) deg (var rad var-rad) rad (var hms var-hms) hms nil] 4 (#$ . 10115)]) #@17 (fn TOP-EXPR) (defalias 'math-simplify #[257 "\306\307!\203 \310\202\f :\311\312\313!\205 \314\n\205! \312\315!\205! \316 \205, \312\317!\205, \320\f\2057 \312\321!\2057 \322$\323 \203l \324\325!!\262\326\325!\262\211\203h \327@\330#\262\211A\262\202T \210\202\252 \331>?\205t \325!\262?\205\236 \211\203\224 \327@\"\262\211A\262\202\202 \324!\211\262\232?\262\203\251 \211\262\202u )+\266\207" [calc-angle-mode calc-simplify-mode math-living-dangerously math-simplifying-units math-integrating math-top-only t calc-input-angle-units rad append calc-has-rules var-AlgSimpRules ((var AlgSimpRules var-AlgSimpRules)) var-ExtSimpRules ((var ExtSimpRules var-ExtSimpRules)) var-UnitSimpRules ((var UnitSimpRules var-UnitSimpRules)) var-IntegSimpRules ((var IntegSimpRules var-IntegSimpRules)) nil math-simplify-step math-normalize (nil) math-rewrite (neg (var inf var-inf)) (none num) math-simplifying math-normalize-error] 11 (#$ . 10368)]) (defalias 'calcFunc-simplify 'math-simplify) #@10 (fn A) (defalias 'math-simplify-step #[257 "\211\211:?\206 \211@\301>\262\203 \207\204 \211@\302>\203 \211\202( \211@\303\304A\"B\211@9\203R \211@\305N\211\203Q \211\203Q \211@!\206B \211\262\232\203Q \211A\262\2026 \210\211\207" [math-top-only (frac float cplx polar hms date mod var) (calcFunc-quote calcFunc-condition calcFunc-evalto) mapcar math-simplify-step math-simplify] 5 (#$ . 11403)]) #@210 Define the simplification code for functions FUNCS. Code can refer to the expression to simplify via lexical variable `expr' and should return the simplified expression to use (or nil). (fn FUNCS &rest CODE) (defalias 'math-defsimplify '(macro . #[385 "\300\301\302\303\304\305\306!\307\"\310\311%9\203 C\202 \"B\207" [progn mapcar make-byte-code 257 "\301\302D\303\304\305\302D\306BB\307\310\311\312\300BBDDEF\207" vconcat vector [put quote 'math-simplify nconc get ('math-simplify) list function lambda (expr)] 11 "\n\n(fn FUNC)"] 10 (#$ . 11820)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\304\307\310\307\310N\311C\244#\210\304\312\310\312\310N\313C\244#\210\304\314\310\314\310N\315C\244#\210\304\316\310\316\310N\317C\244#\207" [function-put math-defsimplify lisp-indent-function 1 put edebug-form-spec (sexp body) + math-simplify #[257 "\211A@\242\300>\203W \301A@8\211:?\206 \211@\302>\262\203W \3018\211:?\206* \211@\302>\262\204W \3018@AA\301A@8\240\210\211A@@\240\210A@AA\240\210A@\240\266\202\223 \211@\303=\203\223 \211A@\211:?\206k \211@\302>\262\203\223 \3018\211:?\206} \211@\302>\262\204\223 \3018AAA@\240\210A\240\266\211\304\211A@\211\262\242\305>\203\323 \306\3018\3018@\307=@\307=\310%\211\262\203\313 AA\240\210\303\240\210AA\311\240\210A@\262\202\226 \306\3018\304@\307=\310%\211\262\203\366 AA\240\210\303\240\210A\311\240\210\207" [#1=(+ -) 2 #2=(frac float cplx polar) + nil #3=(+ -) math-combine-sum - t 0] 10 "\n\n(fn EXPR)"] - #[257 "\211A@\242\300>\203W \301A@8\211:?\206 \211@\302>\262\203W \3018\211:?\206* \211@\302>\262\204W \3018@AA\301A@8\240\210\211A@@\240\210A@AA\240\210A@\240\266\202\223 \211@\303=\203\223 \211A@\211:?\206k \211@\302>\262\203\223 \3018\211:?\206} \211@\302>\262\204\223 \3018AAA@\240\210A\240\266\211\304\211A@\211\262\242\305>\203\323 \306\3018\3018@\307=@\307=\310%\211\262\203\313 AA\240\210\303\240\210AA\311\240\210A@\262\202\226 \306\3018\304@\307=\310%\211\262\203\366 AA\240\210\303\240\210A\311\240\210\207" [#1# 2 #2# + nil #3# math-combine-sum - t 0] 10 "\n\n(fn EXPR)"] * #[257 "\3008\242\301=\203A \302\3008A@A@\"\203o \303A@\304\"\204* \303\3008A@\304\"\203o \211A@A\3008A@\240\210\3008A\240\266\202o \302\3008A@\"\203o \303A@\304\"\204^ \303\3008\304\"\203o \3008AAA@\240\210A\240\266\211\305\211\304\303A@!A@\211:?\206\205 \211@\306=\262\203\255 \307\3008!\211\262\203\255 AA\310\3008\"\240\210A\311A@\"\240\210\3008\211\262\242\301=\203\355 \203\355 \312A@A@\305\211\304%\211\262\203\331 A\240\210A\313\240\210\211\206\343 \303A@\304\"\262\3008\262\202\255 \312A@\305\211\304%\211\262\203\f\203\fA\240\210AA\313\240\210A@\242\306=\2036A@A@\314>\2036\315\311\3008A@A@\"\300A@8\"\2027\207" [2 * math-beforep math-known-scalarp t nil frac math-common-constant-factor math-cancel-common-factor math-mul math-combine-prod 1 (1 -1) math-div] 12 "\n\n(fn EXPR)"] / #[257 "\300!\207" [math-simplify-divide] 3 "\n\n(fn EXPR)"]] 6) #@13 (fn EXPR) (defalias 'math-simplify-divide #[257 "\211A\302@\303=\204 \3048\211:?\206 \211@\305>\262?\205\" \306\3048!\302\211\203\351 @\303=\204B A@\211:?\206< \211@\305>\262?\205H \306A@!\262\242\307=\203\254 A@\310=\203\254 \204\254 \242\311=\203z A@\242\312=\203z \313\3048A@\"\203\351 A\314\3048A@\"\240\210AA\315\3048\"\240\210\316!\203\351 @\236\211\262\203\351 A@\240\210\202\351 \203\351 \317\"\211\262\310=\204\351 A\315A@\"\240\210AA\315\3048\"\240\210\316!\203\351 @\236\211\262\203\351 A@\240\210@\242\303=\203>\320\3048\321\"\203>A@A\262@\211\262\242\322=\203*\320\3048\321\"\203\"\323AAA\302\321$\210AA\262\202\323AA\302\321$\210\321\262A@AA\262@\211\262\242\322=\203f\320\3048\321\"\203^\323AAA\321$\210AA\262\202>\323AA\321$\210)\207" [calc-tweak-eqn-table math--simplify-divide-expr nil / 2 (frac float) math-common-constant-factor frac 1 calcFunc-eq var math-expr-contains math-mul math-cancel-common-factor math-negp math-frac-gcd math-known-scalarp t * math-simplify-divisor] 11 (#$ . 14915)]) #@26 (fn NP DP NOVER DOVER) (defalias 'math-simplify-divisor #[1028 "@\242\304=\203& \305@A$\210\306@A@\307\"\205\241 \305@AA?$\207@\304=\204[ \310@!\211\311>\206E @\312>\203D \211\313=\206E \262\204[ @\211:?\206V \211@\314>\262\205\241 \315\307\306@!@\211\262\242\316=\203\224 \203\224 \317 A\"\210\211\206\212 \306A@\307\"\262AA\262\202h \205\236 \317 \"*\266\205\207" [math--simplify-divide-expr math-living-dangerously math-simplify-divisor-dover math-simplify-divisor-nover / math-simplify-divisor math-known-scalarp t math-possible-signs (1 4) (calcFunc-eq calcFunc-neq) 5 (frac float cplx polar) nil * math-simplify-one-divisor] 12 (#$ . 16037)]) #@14 (fn NP DP) (defalias 'math-simplify-one-divisor #[514 "\304@@ \305%\306\203A \n@\307>\204, \310@!\203, \n@ \236\211\262\203, \nA@\240\210\2038 \311\312\"\2029 \240\210\312\240\202v \205v ?\205v \n@\313=\205v @\242\314=\205v \315@A@!\205v \316@\314@A@D\"\240\210\211@A@\240\207" [math-simplify-divisor-nover math-simplify-divisor-dover math--simplify-divide-expr calc-tweak-eqn-table math-combine-prod t nil (/ calcFunc-eq calcFunc-neq) math-known-negp math-div 1 / calcFunc-sqrt Math-integerp math-mul] 9 (#$ . 16734)]) #@13 (fn EXPR) (defalias 'math-common-constant-factor #[257 "\211\211:?\206 \211@\300>\262\203D \211\211:?\206 \211@\301=\262\203+ \211\302>?\205C \303!\207\304!\211\262\211:?\206; \211@\301=\262\205C \305!\207\211@\306>\203l \305A@!\305\3078!\205k \211\205k \310\"\211\262\311=?\205k \207\211@\312>\203y \305A@!\207\211@\313=\205\230 \305A@!\206\230 \314\3078!\205\230 \301\311\303\3078!E\207" [(frac float) frac (0 1 -1) math-abs math-to-simple-fraction math-common-constant-factor (+ - cplx sdev) 2 math-frac-gcd 1 (* polar) / Math-integerp] 6 (#$ . 17283)]) #@17 (fn EXPR VAL) (defalias 'math-cancel-common-factor #[514 "\242\300>\203 A\301A@\"\240\210AA\301\3028\"\240\210\207\242\303=\2031 \304\301A@\"\3028\"\207\305\"\207" [(+ - cplx sdev) math-cancel-common-factor 2 * math-mul math-div] 6 (#$ . 17868)]) #@12 (fn A B) (defalias 'math-frac-gcd #[514 "\211:\203 \211@\300=\203 \211A@\301=\202 \302!\202 \211\301=\262\203$ \207\211\211:\203? \211@\300=\2039 \211A@\301=\202B \302!\202B \211\301=\262\203I \207\303!\203Z \303!\203Z \304\"\207\303!\203f \305\306E\262\303!\203r \305\306E\262\307\304A@A@\"\304\3108\3108\"\"\207" [float 0 math-zerop Math-integerp math-gcd frac 1 math-make-frac 2] 8 (#$ . 18138)]) (byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\210\300\312\302\312\302N\313C\244#\210\300\314\302\314\302N\315C\244#\210\300\316\302\316\302N\317C\244#\207" [put % math-simplify #[257 "\3018\211:?\206 \211@\302>\262\205\3018\211:\2037 \211@\303>\2031 \211A@\211\250\205, \211\304V\262\202: \305!\202: \211\304V\262\205\306A@!\307\203{ \310@!\204` @\3018\311\"\312U\266\202\204{ \313\314\315A@\3018\"\316@\3018\"E\3018E\206\203\327 \317A@\320\"\204\327 \321A@!\203\327 \321\3018!\203\327 \322A@\3018\"\211\262\203\327 \317\320\"\204\327 \323\313\314\315\324A@\"\3018\"\325\324@\")E\324\3018\"EE\206\317\3018\320\"\205\326\203\360 \315A@\3018\"\202\363 A@!\205\203\316@\320\"\202\304\266\202\207" [calc-prefer-frac 2 (frac float) (frac float) 0 math-posp math-is-linear nil math-negp math-compare -1 % + math-mul math-mod math-equal-int 1 math-num-integerp calcFunc-gcd * math-div t math-known-integerp] 11 "\n\n(fn EXPR)"] calcFunc-eq #[257 "\211G\300U\205\n \301!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-neq #[257 "\211G\300U\205\n \301!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-lt #[257 "\211G\300U\205\n \301!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-gt #[257 "\211G\300U\205\n \301!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-leq #[257 "\211G\300U\205\n \301!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-geq #[257 "\211G\300U\205\n \301!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"]] 5) #@13 (fn EXPR) (defalias 'math-simplify-ineq #[257 "\211A\300@\211\262\242\301>\203# \302AAAA@\303=\300$\210\211A\262\202 \302AA\300A=$\210\304!\210\305\303AB!@\306=\203U \211\307=\203K \310\202\335 \211\311>\203\334 \312\202\335 @\313=\203p \211\307=\203f \312\202\335 \211\314>\203\334 \310\202\335 @\315=\203\213 \211\310=\203\201 \310\202\335 \211\316>\203\334 \312\202\335 @\317=\203\246 \211\320=\203\234 \310\202\335 \211\321>\203\334 \312\202\335 @\322=\203\301 \211\320=\203\267 \312\202\335 \211\323>\203\334 \310\202\335 @\324=\203\334 \211\310=\203\322 \312\202\335 \211\325>\203\334 \310\202\335 \262\207" [nil (+ -) math-simplify-add-term - math-simplify-divide math-possible-signs calcFunc-eq 2 1 (1 4 5) 0 calcFunc-neq (1 4 5) calcFunc-lt (2 4 6) calcFunc-gt 4 (1 2 3) calcFunc-leq (1 2 3) calcFunc-geq (2 4 6)] 9 (#$ . 20209)]) #@27 (fn NP DP MINUS LPLAIN) (defalias 'math-simplify-add-term #[1028 "@\211\242\300=\262\206\312 \301\302\211\211@\262@\211\262\242\303>\203\201 \302\262\304\3058@\306=\301%\211\262\203z \204C \307!=\203_ \203P \310!\202Q \211\262\240\210AA\311\240\210\202z \311\240\210AA@\306=\203t \310!\202u \211\262\240\210A\262\202 \304\301\211%\211\262\205\310 \204\240 \204\272 \307!=\203\272 \203\255 \310!\202\256 \211\262\240\210\311\240\202\310 \311\240\210\310!\211\262\240\266\204\207" [vec t nil (+ -) math-combine-sum 2 + math-looks-negp math-neg 0] 14 (#$ . 21079)]) (byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\207" [put calcFunc-sin math-simplify #[257 "\211A@\242\301=\203 \211A@A@\206\314 \302A@!\203% \303\304\303A@!D!\206\314 \305=\203C \306A@\307\"\211\205> \310@A@\311\312$\262\206\314 \313=\203` \314A@!\211\205[ \310@A@\315\312$\262\206\314 \211A@\242\316=\203x \317\320\321\322A@A@!\"D\206\314 \211A@\242\323=\203\230 \324A@A@\317\325\321\322A@A@!\"D\"\206\314 \326A@!\211\205\312 \211@\250\205\312 \211@A@\327\330\304\330SED\331DE\330\331\330SED\304DEE\266\202\262\207" [calc-angle-mode calcFunc-arcsin math-looks-negp math-neg calcFunc-sin rad math-linear-in (var pi var-pi) math-known-sin 120 0 deg math-integer-plus (frac 2 3) calcFunc-arccos calcFunc-sqrt math-sub 1 math-sqr calcFunc-arctan math-div math-add math-should-expand-trig + * calcFunc-cos] 11 "\n\n(fn EXPR)"] calcFunc-cos #[257 "\211A@\242\301=\203 \211A@A@\206\306 \302A@!\203# \303\304A@!D\206\306 \305=\203A \306A@\307\"\211\205< \310@A@\311\312$\262\206\306 \313=\203^ \314A@!\211\205Y \310@A@\315\312$\262\206\306 \211A@\242\316=\203v \317\320\321\322A@A@!\"D\206\306 \211A@\242\323=\203\222 \324\321\317\325\321\322A@A@!\"D\"\206\306 \326A@!\211\205\304 \211@\250\205\304 \211@A@\327\330\303\330SED\303DE\330\331\330SED\331DEE\266\202\262\207" [calc-angle-mode calcFunc-arccos math-looks-negp calcFunc-cos math-neg rad math-linear-in (var pi var-pi) math-known-sin 120 300 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-sqrt math-sub 1 math-sqr calcFunc-arctan math-div math-add math-should-expand-trig - * calcFunc-sin] 11 "\n\n(fn EXPR)"] calcFunc-sec #[257 "\301A@!\203 \302\303A@!D\206\246 \304=\203: \305A@\306\"\211\2055 \307@A@\310\311$\211\2053 \312\313\"\262\262\206\246 \314=\203a \315A@!\211\205\\ \307@A@\316\311$\211\205Z \312\313\"\262\262\206\246 \211A@\242\317=\203} \312\313\320\321\313\322A@A@!\"D\"\206\246 \211A@\242\323=\203\221 \312\313A@A@\"\206\246 \211A@\242\324=\205\246 \320\325\313\322A@A@!\"D\207" [calc-angle-mode math-looks-negp calcFunc-sec math-neg rad math-linear-in (var pi var-pi) math-known-sin 120 300 math-div 1 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-sqrt math-sub math-sqr calcFunc-arccos calcFunc-arctan math-add] 8 "\n\n(fn EXPR)"] calcFunc-csc #[257 "\301A@!\203 \302\303\302A@!D!\206\257 \304=\203< \305A@\306\"\211\2057 \307@A@\310\311$\211\2055 \312\313\"\262\262\206\257 \314=\203c \315A@!\211\205^ \307@A@\316\311$\211\205\\ \312\313\"\262\262\206\257 \211A@\242\317=\203w \312\313A@A@\"\206\257 \211A@\242\320=\203\223 \312\313\321\322\313\323A@A@!\"D\"\206\257 \211A@\242\324=\205\257 \312\321\325\313\323A@A@!\"DA@A@\"\207" [calc-angle-mode math-looks-negp math-neg calcFunc-csc rad math-linear-in (var pi var-pi) math-known-sin 120 0 math-div 1 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-arccos calcFunc-sqrt math-sub math-sqr calcFunc-arctan math-add] 8 "\n\n(fn EXPR)"]] 5) #@31 (fn X &optional HYPERBOLIC) (defalias 'math-should-expand-trig #[513 "\302!\205D \211\205D \211@\250\203 \211@\303V\204 \211@\304\232\205D \204C \211A@\242\203/ \305\2020 \306>\204C \211A@\242\307=\205D \310=\205D \211\207" [math-living-dangerously math-integrating math-is-multiple 1 (frac 1 2) (calcFunc-arcsinh calcFunc-arccosh calcFunc-arctanh) (calcFunc-arcsin calcFunc-arccos calcFunc-arctan) calcFunc-ln exp] 5 (#$ . 24805)]) #@23 (fn PLUS N MUL OFF) (defalias 'math-known-sin #[1028 "\301\"\262\302!\205f \303\304\305!\"\306\"\211\262\205f \307Y\2033 \310\307Z\311\312$\211\262\205f \313!\207\314V\203> \307Z\262\315!\203S \204N \316>\205f \317\236A\207\320\267\202e \321\322D!\207\321\323D!\207\324\207" [calc-symbolic-mode math-mul math-num-integerp math-mod math-add math-trunc 240 120 math-known-sin 1 0 math-neg 60 math-zerop (0 20 60) ((0 . 0) (10 / (calcFunc-sqrt (- 2 (calcFunc-sqrt 3))) 2) (12 / (- (calcFunc-sqrt 5) 1) 4) (15 / (calcFunc-sqrt (- 2 (calcFunc-sqrt 2))) 2) (20 / 1 2) (24 * (^ (/ 1 2) (/ 3 2)) (calcFunc-sqrt (- 5 (calcFunc-sqrt 5)))) (30 / (calcFunc-sqrt 2) 2) (36 / (+ (calcFunc-sqrt 5) 1) 4) (40 / (calcFunc-sqrt 3) 2) (45 / (calcFunc-sqrt (+ 2 (calcFunc-sqrt 2))) 2) (48 * (^ (/ 1 2) (/ 3 2)) (calcFunc-sqrt (+ 5 (calcFunc-sqrt 5)))) (50 / (calcFunc-sqrt (+ 2 (calcFunc-sqrt 3))) 2) (60 . 1)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 89 60 95)) math-normalize calcFunc-sin calcFunc-cos nil] 9 (#$ . 25253)]) (byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\207" [put calcFunc-tan math-simplify #[257 "\211A@\242\301=\203 \211A@A@\206\315 \302A@!\203% \303\304\303A@!D!\206\315 \305=\203B \306A@\307\"\211\205= \310@A@\311#\262\206\315 \312=\203^ \313A@!\211\205Y \310@A@\314#\262\206\315 \211A@\242\315=\203~ \316A@A@\317\320\321\322A@A@!\"D\"\206\315 \211A@\242\323=\203\235 \316\317\320\321\322A@A@!\"DA@A@\"\206\315 \324A@!\211\205\313 \211@\325\232\203\277 \316\320\321\326A@D\"\327A@D\"\202\313 \316\327A@D\326A@D\"\262\207" [calc-angle-mode calcFunc-arctan math-looks-negp math-neg calcFunc-tan rad math-linear-in (var pi var-pi) math-known-tan 120 deg math-integer-plus (frac 2 3) calcFunc-arcsin math-div calcFunc-sqrt math-sub 1 math-sqr calcFunc-arccos math-should-expand-trig (frac 1 2) calcFunc-cos calcFunc-sin] 8 "\n\n(fn EXPR)"] calcFunc-cot #[257 "\301A@!\203 \302\303\302A@!D!\206\261 \304=\203; \305A@\306\"\211\2056 \307@A@\310#\211\2054 \311\312\"\262\262\206\261 \313=\203a \314A@!\211\205\\ \307@A@\315#\211\205Z \311\312\"\262\262\206\261 \211A@\242\316=\203\200 \311\317\320\312\321A@A@!\"DA@A@\"\206\261 \211A@\242\322=\203\240 \311A@A@\317\320\312\321A@A@!\"D\"\206\261 \211A@\242\323=\205\261 \311\312A@A@\"\207" [calc-angle-mode math-looks-negp math-neg calcFunc-cot rad math-linear-in (var pi var-pi) math-known-tan 120 math-div 1 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-sqrt math-sub math-sqr calcFunc-arccos calcFunc-arctan] 8 "\n\n(fn EXPR)"]] 5) #@19 (fn PLUS N MUL) (defalias 'math-known-tan #[771 "\301\"\262\302!\205[ \303\304!\305\"\211\262\205[ \306V\203/ \307\305Z\310#\211\262\205[ \311!\207\312!\203D \204? \313>\205[ \314\236A\207\315\267\202Z \316\317D!\207\316\320\321\317DE!\207\322\207" [calc-symbolic-mode math-mul math-num-integerp math-mod math-trunc 120 60 math-known-tan 1 math-neg math-zerop (0 30 60) ((0 . 0) (10 - 2 (calcFunc-sqrt 3)) (12 calcFunc-sqrt (- 1 (* (/ 2 5) (calcFunc-sqrt 5)))) (15 - (calcFunc-sqrt 2) 1) (20 / (calcFunc-sqrt 3) 3) (24 calcFunc-sqrt (- 5 (* 2 (calcFunc-sqrt 5)))) (30 . 1) (36 calcFunc-sqrt (+ 1 (* (/ 2 5) (calcFunc-sqrt 5)))) (40 calcFunc-sqrt 3) (45 + (calcFunc-sqrt 2) 1) (48 calcFunc-sqrt (+ 5 (* 2 (calcFunc-sqrt 5)))) (50 + 2 (calcFunc-sqrt 3)) (60 var uinf var-uinf)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 74 60 80)) math-normalize calcFunc-tan / -1 nil] 8 (#$ . 27902)]) (byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\210\300\312\302\312\302N\313C\244#\210\300\314\302\314\302N\315C\244#\210\300\316\302\316\302N\317C\244#\210\300\320\302\320\302N\321C\244#\210\300\322\302\322\302N\323C\244#\210\300\324\302\324\302N\325C\244#\210\300\326\302\326\302N\327C\244#\210\300\330\302\330\302N\331C\244#\210\300\332\302\332\302N\333C\244#\207" [put calcFunc-sinh math-simplify #[257 "\211A@\242\301=\203 \211A@A@\206\240 \302A@!\203% \303\304\303A@!D!\206\240 \211A@\242\305=\203A \203A \306\307\310A@A@!\311\"D\206\240 \211A@\242\312=\203e \203e \313A@A@\306\307\311\310A@A@!\"D\"\206\240 \314A@\315\"\211\205\236 \211@\250\205\236 \211@A@\311V\205\234 \316\317\304\317SED\320DE\317\320\317SED\304DEE\266\202\262\207" [math-living-dangerously calcFunc-arcsinh math-looks-negp math-neg calcFunc-sinh calcFunc-arccosh calcFunc-sqrt math-sub math-sqr 1 calcFunc-arctanh math-div math-should-expand-trig t + * calcFunc-cosh] 11 "\n\n(fn EXPR)"] calcFunc-cosh #[257 "\211A@\242\301=\203 \211A@A@\206\232 \302A@!\203# \303\304A@!D\206\232 \211A@\242\305=\203? \203? \306\307\310A@A@!\311\"D\206\232 \211A@\242\312=\203_ \203_ \313\311\306\314\311\310A@A@!\"D\"\206\232 \315A@\316\"\211\205\230 \211@\250\205\230 \211@A@\311V\205\226 \317\320\303\320SED\303DE\320\321\320SED\321DEE\266\202\262\207" [math-living-dangerously calcFunc-arccosh math-looks-negp calcFunc-cosh math-neg calcFunc-arcsinh calcFunc-sqrt math-add math-sqr 1 calcFunc-arctanh math-div math-sub math-should-expand-trig t + * calcFunc-sinh] 11 "\n\n(fn EXPR)"] calcFunc-tanh #[257 "\211A@\242\301=\203 \211A@A@\206\234 \302A@!\203% \303\304\303A@!D!\206\234 \211A@\242\305=\203H \203H \306A@A@\307\310\311A@A@!\312\"D\"\206\234 \211A@\242\313=\203k \203k \306\307\314\311A@A@!\312\"DA@A@\"\206\234 \315A@\316\"\211\205\232 \211@\317\232\203\216 \306\314\320A@D\312\"\321A@D\"\202\232 \306\321A@D\320A@D\"\262\207" [math-living-dangerously calcFunc-arctanh math-looks-negp math-neg calcFunc-tanh calcFunc-arcsinh math-div calcFunc-sqrt math-add math-sqr 1 calcFunc-arccosh math-sub math-should-expand-trig t (frac 1 2) calcFunc-cosh calcFunc-sinh] 7 "\n\n(fn EXPR)"] calcFunc-sech #[257 "\301A@!\203 \302\303A@!D\206d \211A@\242\304=\2031 \2031 \305\306\307\310\311A@A@!\306\"D\"\206d \211A@\242\312=\203K \203K \305\306A@A@\"\203K \306\207\211A@\242\313=\205d \205d \307\314\306\311A@A@!\"D\207" [math-living-dangerously math-looks-negp calcFunc-sech math-neg calcFunc-arcsinh math-div 1 calcFunc-sqrt math-add math-sqr calcFunc-arccosh calcFunc-arctanh math-sub] 7 "\n\n(fn EXPR)"] calcFunc-csch #[257 "\301A@!\203 \302\303\302A@!D!\206k \211A@\242\304=\203, \203, \305\306A@A@\"\206k \211A@\242\307=\203K \203K \305\306\310\311\312A@A@!\306\"D\"\206k \211A@\242\313=\205k \205k \305\310\311\306\312A@A@!\"DA@A@\"\207" [math-living-dangerously math-looks-negp math-neg calcFunc-csch calcFunc-arcsinh math-div 1 calcFunc-arccosh calcFunc-sqrt math-sub math-sqr calcFunc-arctanh] 7 "\n\n(fn EXPR)"] calcFunc-coth #[257 "\301A@!\203 \302\303\302A@!D!\206o \211A@\242\304=\2037 \2037 \305\306\307\310A@A@!\311\"DA@A@\"\206o \211A@\242\312=\203Z \203Z \305A@A@\306\313\310A@A@!\311\"D\"\206o \211A@\242\314=\205o \205o \305\311A@A@\"\207" [math-living-dangerously math-looks-negp math-neg calcFunc-coth calcFunc-arcsinh math-div calcFunc-sqrt math-add math-sqr 1 calcFunc-arccosh math-sub calcFunc-arctanh] 7 "\n\n(fn EXPR)"] calcFunc-arcsin #[257 "\301A@!\203 \302\303\302A@!D!\206_ \211A@\304=\203\" \305\306!\206_ \211A@\307\232\2033 \310\311\306!\312\"\206_ \203H \211A@\242\313=\203H \211A@A@\206_ \205_ \211A@\242\314=\205_ \315\305\306!A@A@\"\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arcsin 1 math-quarter-circle t (frac 1 2) math-div math-half-circle 6 calcFunc-sin calcFunc-cos math-sub] 5 "\n\n(fn EXPR)"] calcFunc-arccos #[257 "\211A@\301=\203 \302\303!\206m \211A@\304=\203 \305\303!\206m \211A@\306\232\203- \307\305\303!\310\"\206m \211A@\311\232\203A \307\312\305\303!\313\"\310\"\206m \203V \211A@\242\314=\203V \211A@A@\206m \205m \211A@\242\315=\205m \316\302\303!A@A@\"\207" [math-living-dangerously 0 math-quarter-circle t -1 math-half-circle (frac 1 2) math-div 3 (frac -1 2) math-mul 2 calcFunc-cos calcFunc-sin math-sub] 5 "\n\n(fn EXPR)"] calcFunc-arctan #[257 "\301A@!\203 \302\303\302A@!D!\2067 \211A@\304=\203% \305\306\307!\310\"\2067 \2057 \211A@\242\311=\2057 \211A@A@\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arctan 1 math-div math-half-circle t 4 calcFunc-tan] 5 "\n\n(fn EXPR)"] calcFunc-arcsinh #[257 "\301A@!\203 \302\303\302A@!D!\2060 \211A@\242\304=\2050 \204+ \305A@A@!\2050 \211A@A@\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arcsinh calcFunc-sinh math-known-realp] 5 "\n\n(fn EXPR)"] calcFunc-arccosh #[257 "\211A@\242\301=\205 \204 \302A@A@!\205 \211A@A@\207" [math-living-dangerously calcFunc-cosh math-known-realp] 3 "\n\n(fn EXPR)"] calcFunc-arctanh #[257 "\301A@!\203 \302\303\302A@!D!\2060 \211A@\242\304=\2050 \204+ \305A@A@!\2050 \211A@A@\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arctanh calcFunc-tanh math-known-realp] 5 "\n\n(fn EXPR)"] calcFunc-sqrt #[257 "\300!\207" [math-simplify-sqrt] 3 "\n\n(fn EXPR)"]] 5) #@13 (fn EXPR) (defalias 'math-simplify-sqrt #[257 "\211A@\242\301=\203! \302\303\304A@A@\305A@8\"D\305A@8\"\206\211\306A@!\2031 \307A@!\2026 \310A@!\211\205T \211\311=?\205T \304\312\303D!\312\303\313A@\"D!\"\262\206\211\205\211\211A@\242\314=\203\277 \315A@A@\311\"\203\277 \305A@8\242\316=\203\277 \315\305\211A@88\305\"\203\277 \305A@8A@\242\317=\203\244 \320\305A@8A@A@D\206\211\305A@8A@\242\320=\203\277 \317\305A@8A@A@D\206\211\211A@\242\314=\203\315\305A@8\311\"\203\211A@A@\242\316=\203\315\305A@A@8\305\"\203\211A@A@A@\242\321=\203\322A@A@A@A@D\206\211\211A@\242\323=\203\231\211A@A@\305A@8\315\311\"\203.\211\262A@A@\211\262\2045\315\311\"\205\224\242\316=\205\224\315\3058\305\"\205\224A@\242\322=\203X\321A@A@D\206\224A@\242\324=\203k\325A@A@D\206\224A@\242\326=\203\201\327\311\320A@A@DE\206\224A@\242\330=\205\224\327\311\317A@A@DE\266\202\206\211\211A@\242\316=\203\264\316A@A@\302\305A@8\305\"E\206\211\211A@\242\303=\203\313\316A@A@\302\311\331\"E\206\211\211A@\242\332>\203\352\211A@@\303A@A@D\303\305A@8DE\206\211\211A@\242\333>\205\211\334A@!?\205\211\335\336A@!!\211\211\242\337=\262\205\207\211G\305V\204 \305A@8\311V\205\207\311\211\211\340\211A\211\262\203m@A@\262\305@8\262\211\311V\203N\304\341\305\245\"\"\262\211\305\246\262\211\342V\203#\242\343>\203d\344\"\262\202#\304\"\262\202#\311=\205v\345>?\205\205\304\303\304\"D\"\266\205\262\207" [math-living-dangerously frac math-div calcFunc-sqrt math-mul 2 math-objectp math-squared-factor math-common-constant-factor 1 math-normalize math-cancel-common-factor - math-equal-int ^ calcFunc-sin calcFunc-cos calcFunc-cosh calcFunc-sinh + calcFunc-csch calcFunc-coth calcFunc-tan / calcFunc-cot 4 (* /) (+ -) math-any-floats calcFunc-factors calcFunc-expand vec nil math-pow 0 (+ -) math-mul-thru (1 -1)] 13 (#$ . 34314)]) #@10 (fn X) (defalias 'math-squared-factor #[257 "\300!\2053 \301\302\303\2030 \304@\"\211\262A\305=\203) \211@\262\306@\"\262\202 A\262\202 \266\203\207" [Math-integerp (4 9 25 49 121 169 289 361 529 841) 1 nil math-idivmod 0 math-mul] 7 (#$ . 36238)]) (byte-code "\300\301\302\301\302N\303C\244#\207" [put calcFunc-exp math-simplify #[257 "\300A@!\207" [math-simplify-exp] 3 "\n\n(fn EXPR)"]] 5) #@10 (fn X) (defalias 'math-simplify-exp #[257 "\211\242\302=\203 \211A@\206\271 \203{ \211\242\303=\203* \304A@\305\304\306A@!\307\"D\"\206\271 \211\242\310=\203C \304A@\305\311\306A@!\307\"D\"\206\271 \211\242\312=\203_ \313\305\304\307A@\"D\305\311\307A@\"D\"\206\271 \314\315\"\211\205v \211@\250\205v \316\317A@D@E\262\206\271 \205\271 \320!\205\271 \321!\322\323\"\324\211\205\267 \325@A@\326\327$\211\262\205\267 \325@A@\326\330$\211\262\205\267 \331\332\333EE\266\204\207" [math-living-dangerously calc-symbolic-mode calcFunc-ln calcFunc-arcsinh math-add calcFunc-sqrt math-sqr 1 calcFunc-arccosh math-sub calcFunc-arctanh math-div math-should-expand-trig exp ^ calcFunc-exp math-known-imagp calcFunc-im math-linear-in (var pi var-pi) nil math-known-sin 120 0 300 + * (var i var-i)] 10 (#$ . 36654)]) (byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\210\300\312\302\312\302N\313C\244#\207" [put calcFunc-ln math-simplify #[257 "\211A@\242\302=\203 \204 \303A@A@!\203 \211A@A@\206\224 \211A@\242\304=\203H \211A@A@\305\232\203H \204@ \303\306A@8!\203H \306A@8\206\224 \203a \307A@!\203a \310\311\312A@!D\313\"\206\224 \205\224 \314A@!\205\224 \315A@!\316!\211\317>\203\204 \310\311D\320\"\206\222 \211\321>\205\222 \322\311\312!D\323\"\266\202\207" [math-living-dangerously calc-symbolic-mode calcFunc-exp math-known-realp ^ (var e var-e) 2 math-known-negp math-add calcFunc-ln math-neg (* (var pi var-pi) (var i var-i)) math-known-imagp calcFunc-im math-possible-signs (4 6) (/ (* (var pi var-pi) (var i var-i)) 2) (1 3) math-sub (/ (* (var pi var-pi) (var i var-i)) 2)] 7 "\n\n(fn EXPR)"] ^ #[257 "\203_ \211A@\242\302=\203! \302A@A@\303\3048\304A@8\"E\206\370\211A@\242\305=\203: \302A@A@\306\3048\304\"E\206\370\211A@\242\307>\203_ \211A@@\302A@A@\3048E\302\304A@8\3048EE\206\370\310A@\311\"\203y \3048\242\312=\203y \3048A@\206\370\211A@\313\232\203\211 \314\3048!\206\370\211A@\242\315=\203\245 \204\245 \315\303A@A@\3048\"D\206\370\211A@\316\232\203\344 \317 \203\344 \320\3048!\203\344 \321\322\3048!\323\"\211\324\267\202\336 \325\202\337 A@\202\337 \326\202\337 \327A@!\202\337 \330\262\206\370 \203A\3048\250\203A\3048\304Y\203A\211A@\242\331=\203 \303\332A@\3048\304Z\"\333\325\334\335A@A@D!\"\"\206\370\211A@\242\336=\203A\303\332A@\3048\304Z\"\337\325\334\340A@A@D!\"\"\206\370\3048\242\341=\203\334\211A@\211:?\206W\211@\341=\262\203\334\211A@\211:\203\201\211@\342>\203{\211A@\211\250\205v\211\343V\262\202\204\344!\202\204\211\343V\262\203\334\3048\345\232\203\231\305A@D\202\331\346\3048!\211\211:\203\271\211@\347=\203\263\211A@\343=\202\274\350!\202\274\211\343=\262?\205\327\351\302A@E\302A@\333\3048\"EE\262\206\370\352\3048!\304=\205\370\353!\211\205\366\302\303\3048\304\"E\262\207" [math-living-dangerously math-integrating ^ math-mul 2 calcFunc-sqrt math-div (* /) math-equal-int 10 calcFunc-log10 (var e var-e) math-simplify-exp calcFunc-exp (var i var-i) math-imaginary-i math-num-integerp math-mod math-trunc 4 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 200 1 204 2 210 3 214)) 1 -1 math-neg nil calcFunc-cos math-pow math-sub math-sqr calcFunc-sin calcFunc-cosh math-add calcFunc-sinh frac (frac float) 0 math-posp (frac 1 2) math-floor float math-zerop * math-quarter-integer math-simplify-sqrt] 9 "\n\n(fn EXPR)"] calcFunc-log10 #[257 "\211A@\242\301=\205' \302A@A@\303\"\205' \204\" \304\305A@8!\205' \305A@8\207" [math-living-dangerously ^ math-equal-int 10 math-known-realp 2] 4 "\n\n(fn EXPR)"] calcFunc-erf #[257 "\300A@!\203 \301\302\301A@!D!\206& \211A@\242\303=\205& \303\302A@A@DD\207" [math-looks-negp math-neg calcFunc-erf calcFunc-conj] 5 "\n\n(fn EXPR)"] calcFunc-erfc #[257 "\300A@!\203 \301\302\303\304A@!D\"\206' \211A@\242\305=\205' \305\303A@A@DD\207" [math-looks-negp math-sub 2 calcFunc-erfc math-neg calcFunc-conj] 6 "\n\n(fn EXPR)"]] 5) #@35 (fn EXPR TERM &optional ALWAYS) (defalias 'math-linear-in #[770 "\301\"\203 \302\303\304#\211A\205 \211)\207\211\205 \305D\207" [calc-prefer-frac math-expr-contains t math-is-polynomial 1 0] 7 (#$ . 40742)]) #@18 (fn EXPR TERM) (defalias 'math-multiple-of #[514 "\300\"\211\205 \301@!\205 \211A@\207" [math-linear-in math-zerop] 5 (#$ . 40967)]) #@13 (fn EXPR) (defalias 'math-integer-plus #[257 "\300!\203\n \301D\207\211@\302>\2030 \300A@!\2030 \211@\303=\203& \3048\202+ \305\3048!A@D\207\211@\306>\203V \300\3048!\203V \211A@@\303=\203O \3048\202T \305\3048!D\207\307\207" [Math-integerp 0 (+ -) + 2 math-neg (+ -) nil] 5 (#$ . 41113)]) #@30 (fn EXPR &optional ALWAYS) (defalias 'math-is-linear #[513 "\300\211\242\301=\203G A@\211:?\206 \211@\302>\262\203( A@\262\3038\262\202\215 \3038\211:?\2065 \211@\302>\262\203\215 \3038\262A@\262\202\215 \242\304=\203\215 A@\211:?\206[ \211@\302>\262\203o A@\262\305\3038!\262\202\215 \3038\211:?\206| \211@\302>\262\203\215 \305\3038!\262A@\262\306\"\262\203\251 @\206\236 \307A@\206\245 E\202\260 \211\205\260 \310B\207" [nil + (frac float cplx polar hms date sdev intv mod) 2 - math-neg math-is-multiple 1 0] 7 (#$ . 41421)]) #@30 (fn EXPR &optional ALWAYS) (defalias 'math-is-multiple #[513 "\242\300=\203# A@\211:?\206 \211@\301>\262\203\273 A@\3028D\202\270 \242\303=\203\254 A@\211:?\2067 \211@\301>\262\203R \304A@\305\"\204R A@\306\305\3028\"D\202\270 \3028\211:?\206_ \211@\301>\262\203q \306\305\3028\"A@D\202\270 \307A@!\211\203\213 \211@\306\302A@8\3028\"D\202\247 \307\3028!\262\211\205\247 \306\305@\"\306A@\302\21188\"D\262\202\270 \242\310=\203\273 \311A@D\206\334 \211:?\206\306 \211@\312>\262\203\325 \211\305=\205\334 \305D\207\211\205\334 \305D\207" [* (frac float cplx polar hms date sdev intv mod) 2 / math-equal-int 1 math-div math-is-multiple neg -1 (frac float cplx polar hms date sdev intv mod vec)] 9 (#$ . 41994)]) #@27 (fn EXPR &optional VAR) (defalias 'calcFunc-lin #[513 "\211\203 \300\301#\211\204 \302\303\"\210\304@A@F\207\305\301\"\211\204( \302\303\"\210\304B\207" [math-linear-in t math-reject-arg "Linear term expected" vec math-is-linear] 7 (#$ . 42745)]) #@27 (fn EXPR &optional VAR) (defalias 'calcFunc-linnt #[513 "\211\203 \300\"\211\204 \301\302\"\210\303@A@F\207\304!\211\204& \301\302\"\210\303B\207" [math-linear-in math-reject-arg "Linear term expected" vec math-is-linear] 7 (#$ . 43011)]) #@27 (fn EXPR &optional VAR) (defalias 'calcFunc-islin #[513 "\211:?\206 \211@\300>\262\203 \211\204 \301\207\302\"\210\303\207" [(frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-lin 1] 5 (#$ . 43269)]) #@27 (fn EXPR &optional VAR) (defalias 'calcFunc-islinnt #[513 "\211:?\206 \211@\300>\262\203 \301\207\302\"\210\303\207" [(frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-linnt 1] 5 (#$ . 43495)]) #@19 (fn EXPR THING) (defalias 'math-expr-contains-count #[514 "\232\203 \300\207\211:?\206 \211@\301>\262\203 \302\207\303A\211\262\2033 \211\304@\"\206- \303\\\262\202 \211\303V\205: \211\207" [1 (frac float cplx polar hms date mod var) nil 0 math-expr-contains-count] 7 (#$ . 43715)]) #@19 (fn EXPR THING) (defalias 'math-expr-contains #[514 "\232\203 \300\207\211:?\206 \211@\301>\262\203 \302\207A\211\262\203* \303@\"\203 \207" [1 (frac float cplx polar hms date mod var) nil math-expr-contains] 5 (#$ . 44019)]) #@19 (fn EXPR THING) (defalias 'math-expr-depends #[514 "\211\211:?\206 \211@\300>\262\203 \211\242\301=\205- \302\"\207\211A\211\262\203, \303@\"\203 \211\207" [(frac float cplx polar hms date mod var) var math-expr-contains math-expr-depends] 5 (#$ . 44266)]) #@21 (fn EXPR OLD NEW) (defalias 'math-expr-subst #[771 "\302!*\207" [math-expr-subst-new math-expr-subst-old math-expr-subst-rec] 5 (#$ . 44540)]) (defalias 'calcFunc-subst 'math-expr-subst) #@13 (fn EXPR) (defalias 'math-expr-subst-rec #[257 "\211\232\203 \207\211\211:?\206 \211@\302>\262\203 \207\211@\303>\203B \211G\304U\2036 \211A@\232\2035 \305 C\"\207\207\211@A@\306\3048!E\207\211@\307\306A\"B\207" [math-expr-subst-old math-expr-subst-new (frac float cplx polar hms date mod var) (calcFunc-deriv calcFunc-tderiv) 2 append math-expr-subst-rec mapcar] 6 (#$ . 44740)]) #@13 (fn EXPR) (defalias 'math-expr-weight #[257 "\211\211:?\206 \211@\300>\262\203 \301\207\301A\211\262\203& \211\302@!\\\262\202 \211\207" [(frac float cplx polar hms date mod var) 1 math-expr-weight] 5 (#$ . 45140)]) #@13 (fn EXPR) (defalias 'math-expr-height #[257 "\211\211:?\206 \211@\300>\262\203 \301\207\301A\211\262\203& \211\302@!]\262\202 \211T\207" [(frac float cplx polar hms date mod var) 0 math-expr-height] 5 (#$ . 45372)]) #@18 (fn EXPR BASE) (defalias 'calcFunc-collect #[514 "\300\301\302$\211A\203 \303\304\305\"\"\202 \211@\207" [math-is-polynomial 50 t math-build-polynomial-expr mapcar math-normalize] 7 (#$ . 45604)]) #@40 (fn EXPR VAR &optional DEGREE LOOSE) (defalias 'math-is-polynomial #[1026 "\211\203 \211\305=\203 \202 \306\202 \211\307\f\"\203* \211GTX\205+ \211,\207" [math-poly-base-variable math-var math-is-poly-loose math-is-poly-degree math-poly-neg-powers gen (var XXX XXX) math-is-poly-rec] 7 (#$ . 45815)]) #@20 (fn EXPR NEGPOW) (defalias 'math-is-poly-rec #[514 "\306\232\204 \242\307=\2035\310\211\232\204 \3118\262\211A@\262 \310=\204\213 \312\310\"\211@\242\313=\203e \211@A@\211:\203P \211@\314=\203J \211A@\315=\202S \316!\202S \211\315=\262\203e \311@8\317A@\320\"D\262 \203q A@\232\202v \211A@\211\205\207 \232\204\205 \310=\205\207 \211@\262\262:\203\255 \321!\262\242\322=\203\255 \n\203\255 \211\232\203\255 \323\n\3118\"\n\324>\204\271 \317\n\"\262\250\2050\310U\203\320 \211\232\203\320 \315\310D\2020\325!\203\211\232\203\342 \315\310D\202\346 \326\327\"\310C\205 \203\373 GS_ X\205\310Y\203\330\"\262S\262\202\373 \211\266\203\2020\2050\326\327\"\2050\331[\"\fB\211\2050\307EC\266\202\202_\211:?\206@\211@\332>\262\203JC\202_@\333>\203~\326A@\"\211\205y\326\3118\"\211\205w\334\310@\335=\203u\310\202v\336$\262\262\202_@\337=\203\221\340\341\326A@\"\"\202_@\342=\203\307\326A@\"\211\205\302\326\3118\"\211\205\300 \203\274GG\\\311Z X\205\300\330\"\262\262\202_@\343=\203.\344\3118\"\203\356\203b\326\3118\327\"\203b\3118\fB\211\203b\3118\211:\203 \211@\314=\203\211A@\315=\202\316!\202\211\315=\262\204b\326A@\"\340\345\346\347\350\351 !\352\"\353\354%\"\262\202_@\355=\203G\356\232\203G\326\307A@E\"\202_@\357=\203^\n\203^\326\307A@\360E\"\202_\327\206w\344\"\203m \205w@\361=?\205wC!\207" [math-var math-poly-mult-powers math-poly-frac-powers math-is-poly-degree math-poly-neg-powers math-is-poly-loose math-poly-simplify ^ 1 2 math-is-multiple cplx float 0 math-zerop math-mul (var i var-i) math-to-simple-fraction frac calcFunc-lcm (1 nil) natnump math-is-poly-rec nil math-poly-mul math-pow (frac float cplx polar hms date sdev intv mod) (+ -) math-poly-mix + -1 neg mapcar math-neg * / math-poly-depends make-byte-code 257 "\301\302\3008\"\207" vconcat vector [math-div 2] 5 "\n\n(fn X)" calcFunc-exp (var e var-e) calcFunc-sqrt (frac 1 2) vec] 11 (#$ . 46139)]) #@17 (fn EXPR VAR) (defalias 'math-polynomial-p #[514 "\232\203 \300\207\211:?\206 \211@\301>\262\203 \302\207@\303>\203< \304A@\"\305\205; \304\3068\"\211\262\205; ]\207@\307=\203^ \304A@\"\305\205] \304\3068\"\211\262\205] \\\207@\310=\203l \304A@\"\207@\311=\203\203 \312\3068\"\204\203 \304A@\"\207@\313=\203\242 \314\3068!\203\242 \304A@\"\211\205\241 \211\3068_\207\312\"\203\253 \305\207\302\207" [1 (frac float cplx polar hms date mod var) 0 (+ -) math-polynomial-p nil 2 * neg / math-poly-depends ^ natnump] 7 (#$ . 48188)]) #@17 (fn EXPR VAR) (defalias 'math-poly-depends #[514 "\203 \301\"\207\302\"\207" [math-poly-base-variable math-expr-contains math-expr-depends] 5 (#$ . 48765)]) #@107 Find the variable (or sub-expression) which is the base of polynomial expr. (fn TOP-EXPR &optional PRED) (defalias 'math-polynomial-base #[513 "\211\206 \302\303\304\305\306!\307\"\310\311%\312\313!)\206! \314\313!))\207" [math-poly-base-pred math-poly-base-const-ok make-byte-code 257 "\301\300\"\207" vconcat vector [math-polynomial-p] 4 "\n\n(fn BASE)" nil math-polynomial-base-rec t] 8 (#$ . 48937)]) #@17 (fn MPB-EXPR) (defalias 'math-polynomial-base-rec #[257 "\211\211:?\206 \211@\302>\262?\205d \211@\303>\203( \304A@!\206d \304\3058!\206d \211@\306>\2037 \304A@!\206d \211@\307=\203F \304A@!\206d \211@\310=\203S \304\311!\206d \204] \312!\205d !\205d \211\207" [math-poly-base-const-ok math-poly-base-pred (frac float cplx polar hms date sdev intv mod vec) (+ - *) math-polynomial-base-rec 2 (/ neg) ^ calcFunc-exp (var e var-e) math-expr-contains-vars] 4 (#$ . 49358)]) #@60 Return non-nil if expr refers to any variables. (fn EXPR) (defalias 'math-expr-contains-vars #[257 "\211\242\300=\206( \211\211:?\206 \211@\301>\262?\205( \211A\211\262\203' \302@!\203 \211\207" [var (frac float cplx polar hms date mod var) math-expr-contains-vars] 4 (#$ . 49847)]) #@152 Simplify a polynomial in list form by stripping off high-end zeros. This always leaves the constant part, i.e., nil->nil and non-nil->non-nil. (fn P) (defalias 'math-poly-simplify #[257 "\211\205i \211GS8\211:\203# \211@\300=\203 \211A@\301=\202& \302!\202& \211\301=\262\203h \303!\211A\203f \211GS8\211:\203R \211@\300=\203L \211A@\301=\202U \302!\202U \211\301=\262\203f \211G\304Z\233\305\241\210\202. \211\207\211\207" [float 0 math-zerop copy-sequence 2 nil] 5 (#$ . 50143)]) #@18 (fn A AC B BC) (defalias 'math-poly-mix #[1028 "\204 \205% \300\301@\206 \302\"\301@\206 \302\"\"\303AA$B\207" [math-add math-mul 0 math-poly-mix] 10 (#$ . 50641)]) #@10 (fn A) (defalias 'math-poly-zerop #[257 "\211?\206, \211A?\205, \211@\211:\203' \211@\300=\203! \211A@\301=\202* \302!\202* \211\301=\262\207" [float 0 math-zerop] 4 (#$ . 50827)]) #@50 Multiply two polynomials in list form. (fn A B) (defalias 'math-poly-mul #[514 "\205 \211\205 \300@\301A\302B\"\303$\207" [math-poly-mix math-poly-mul 0 1] 9 (#$ . 51018)]) #@57 Build an expression from a polynomial list. (fn P VAR) (defalias 'math-build-polynomial-expr #[514 "\203\207 \211\211:?\206 \211@\301>\262\2038 \302T\303!\211@A\211\262\2033 \304@\305\"\"\262\202 \262)!\207\303!\211GS\305@\306\"\"A\211\262\203\206 S\262\307@!\204F \310@!\203d \311\202e \312\305\310@!\203w \313@!\202y @\306\"\"E\262\202F \207\314\207" [calc-internal-prec (frac float cplx polar) math-normalize reverse math-add math-mul math-pow math-zerop math-looks-negp - + math-neg 0] 12 (#$ . 51206)]) #@10 (fn F) (defalias 'math-to-simple-fraction #[257 "\211\242\300=\203@ \3018\302Y\203 \303A@\3018\"\206A \211A@\250\203@ \211A@\304V\203@ \211A@\305W\203@ \306A@\303\307\3018[\"\"\206A \211\207" [float 2 0 math-scale-int -1000 1000 math-make-frac 1] 7 (#$ . 51757)]) (provide 'calc-alg)
Close
