| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/calc/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@10
(fn A)
(defalias 'math-compose-var #[257 "\305\211\2039 \306\262\211\203& \211@\232\204& \307=\205 \211A\262T\262\202\n \211\262\2039 \306=\2034 \310\207\311\312\"\207\313A@!\262\n >\203K \314!\262\n\f>\203V \315!\262\207" [math-compose-hash-args calc-arg-values calc-language calc-lang-allow-percentsigns calc-lang-allow-underscores nil 1 t "#" format "#%d" symbol-name math-to-percentsigns math-to-underscores] 6 (#$ . 156)])
#@29
(fn A PREC &optional DIV)
(defalias 'math-compose-expr #[770 "\306T\307 \310 =\203 \204# \f\203: \f=\204: \310\f\203, \311\312 \"E)\202:\204O \250\204O \313\314!P\202\242
\315N\236\211\262\203u \211A\262\211:\203n \211@\"\202\211!\202\211:?\206\201 \211@\316>\262\203\242\317=\204\234 @A@\203*\320!\203*
\203\316
\321>\204\316 \322!\310 @\312\323
A>\203\276 \324A@!\202\301 A@\3258E\")\262\202
\326=\203#@@G\327U\203#\322!\310\211 @ B\330\331A@!\203\364 \332\202\365 \333\334\327\335\336A@!!\337\335\3258!\257EC\340U\203\211\202 \341\342!\343C!E*\266\202\202\335!\202
\326=\2049\335\"\202\242\344>\203w\345\3258!\203U\312A@\"\202\342\330\312 A@\346\" @\347=\203j\350\202k\351\312\325\f8\346\"F!\202C\340U\204\234\211:?\206\212\211@\352>\262\203\234D\203\245\353E\354\"\204\245\335\"\202\335\"\310\355C\356V\203\270\357\202\271\360\"\203\335\211\346\211\224O\341\361\325\"\361\327\"ED\244\262\346\225\310O\262\202\254\355\362\"\203 \330\346\211\224O\363\364\361\327\"\361\325\"E\361\365\"\257\262\211\203\330C\244B\266\202\202\266\202\202@\366N\203\246
\367=\204\246@\366N\310\211
\236\211\262\203g GSA\236\211\262\203U\370A A\"\211\262\203U\312\n\"\206\241\310A\236\211\262\203g\211A\n!\206\241\310\236\211\262\205\241 GSA\236\211\262\203\222\370A A\"\211\262\203\222\312\n\"\206\241\310A\236\211\262\205\241\211A\n!\266\203\206@\371=\203YF\203\273F\346\327O\202\274\333 GF\203\313F\327\325O\202\314\333 H\372I>\373I>\374I>J\206\340\363 KJ\206\350\333 LJ\203\366\375\n!\204\375\376I>\203\346\202\377 MN\201^ \267\202\201_ \202\334\202\201` OP
\201a >\203NP\204N\201b !\203N\201b A@!\204NQ\204`\nG\201c W\203Z\nA@G\201c W\204`\306\262\202NJ\203n\375 A@!\204u\376I>\203y\346\202z\377M\nG\325U\203\242\330G\211\363Q\201d
A@AL\363PM#\363H\211QF\202R\nGS A@GSS\325\245\201e \201f \201g \201f \201h C\n\205\313G\363P\f\205\324G\363PPC\201i S
\205\344\201j \205\355G\363PP\"$C\201k A\327$\201f \201l C\201i \nS\203 \363H\205LQ\2020\203/
\203/\201m \2020\333\"\205:\363HP\205C\363HPPC$C$)\266\203\202RR\203l\nA\203l\201n !\203l\201o \306\"\202R\211\203\300\nA\203\300
\201e =\204\300Q\206\212\nG\201c W\211\203\225 GS\202\230\201p \211S\325\245\310 P\330\201` \201q A\203\264\202\265\365\306#)BBD\266\203\202RQ\204\317\nG\201c W\203
\201r N\211\262\203\352\201b !\203\352 !\202R\330G\201d
AL\363PM#HF\202R\330G\201d
A@\3258\3658EL\363PM#L
\201s N\211\262\n\203.\363 P\2021\201t L\363\201u D\312GS8L\333\232\203L\377\202M\346\"H\257\n.\266\204\202@\201v =\203=AA\203A@\371=\203\210\330\201w \201d AA\350\346#\201t F\202A@\347=\203\246\330\201x \201d AA\350\346#\201y F\202A@\201z =\203\306\330\201x \201d AA\351\346#\201{ F\202A@\201| =\203\372\330\3258\201} >\203\343\201x \202\346\201w \201d AAA\201~ \346#\201 F\202\201\200 \201\201 \"\202A@\371=\203\201\202 \202A@\201| =\2037\3258\201\203 >\2031\201\204 \202\201\202 \202\201\204 \202@\201\205 =\203}\201\206 \3258S\"\211\203^\201\207 @!\202x
\201\210 N\211\262\203r\"\202x\201\211 !\262\202@\201| =\203\311\201\212 A@\201\213 >\203\233\201\214 \202\236\201\215 A@\201\216 >\203\257\201\217 \202\262\201\220 \330\312\325\f8\346\"\201~ \312\3658\346\"F#\202@\201\221 =\203\366T@\201\222 =\203\346\201\223 !\202\201\224 \201\223 !\201\225 Q\202@\201\226 =\203
\201\227 N\211\262\203\211!\202@\201\226 =\203uG\365U\203u
\326=\203u\312A@\377\"\201e \312\325 8\346\"\242\341=\204\\\242\311=\203k\3258\242\341=\203k\3258\211\262\203k\341A@\330\3258\350FE\202o\341E)\266\202\202@\201\230 =\203\350
\326=\203\350\364\201\231 A@!\204\275A@\242\201\232 >\204\275A@\242\347=\203\311\331A@A@!\203\311\325A@8\346=\203\311\342\312 A@\346\"!\202\322\312A@\201\233 \"\201e \340\310 U C \312\325\n8\346\"+E\202@\323=\203@
\326=\203@A@\242\201\234 >\203\201e \202 \326 \312A@\346\")\3258\242\201\235 >\203$\201e \202%\326 \312\325 8\346\")\334\201\236 !\201\237 \257\266\202\202@\201\240 =\203\271G\325V\203\271
\201\241 >\203\271AVG\365U\203k\327\202l\306 WA\203\206@@\232\203\206A\262\211A\262\202n\201f \201\242 A\205\244\201d \201\243 \fA!A\237\350\346#\201\244 D\312\fGS
8\346\"\201\225 D#)\266\202\202@\201\245 =\203 G\325U\203 A@\211\242\371=\262\203 \201n A@!\203
\367=\203\374\201\246 \201o A@\306\"\201\247 Q\202\201o A@\310\"\202@\201\250 =\203\234 G\325U\203\234 A@\211\242\371=\262\203\234 \201n A@!\203\234
\367=\203K \201\251 \201o A@\306\"\201\247 Q\202\310\201o A@\310\"\310\355\201\252 \"\203{ \346\225S\262\201u D\346OBB\262\310O\262\202V B\237\262\201\253 U\204\224 \201\254 \325EB\262\330B\266\203\202@\201\255 =\203\360
\367=\204\360 G\365U\203\360 \3258\250\203\360 \312A@\201\256 \"\325 8V\203\352
\201\257 N\211\262\203\344 \330@AF\202\353 \342!\202\353 \211\262\202@\201\260 =\203\262\n
\367=\204\262\nG\201\261 >\203\262\nA@\211\242\371=\262\203\262\n\3258\250\203>\n\3658\203]\n\3658\211\242\371=\262\203\262\n\201n \3658!\202Z\n\3258\203]\n\3258\211\242\371=\262\203\262\n\201n \3258!\203\262\n\3258\250\205i\n\3258\211\203q\n\365\202r\n\3258\310C\203\225\n\201d \nA@A\201o \310\"\206\217\n #\266\203\202\330\201\262 \201\263 \201\264 \f$\fA@A\"B\266\203\202@\201\265 >\203E
\367=\204E G\201\266 >\203E A@\211\242\371=\262\203E \3258\203\350\n\3258\250\203E \346C\346C\325 8\206\365\n\201\262 \201\263 \201\267 $ A@A\"\201\270 \310\"\262\211\203? \n@\201\271 =\203\" \334\2025 \n@\201\272 =\2032 \201` \2025 \201_ \242BB\266\204\202\266\363\202@\201\273 >\203\226
\367=\204\226 G\201\274 >\203\226 \3658\203n \3658\250\203\226 @\201\275 =\203| \364\202} \341\312A@\365\n8\206\212 \346\"\312\325\n8\346\"E\202@\201\276 =\203\341
\367=\204\341 G\201\277 >\203\341 \3258\203\277 \3258\250\203\341
\201\300 >\203\315 \201e \202\316
\312A@\325 8\206\334 \346\")\202@\201\301 =\203M\fG\201\302 >\203M\f\201\303 A@!\203M\f\3258\203?\f\330\201i A@\325\n8\211\242\371=\262\2033\f\201n \325 8!\2033\f\201o \325 8\310\"\202:\f\312\325 8\346\"\"B\202\201\304 A@\201\305 \"\202@\201\306 >\203
G\201\307 >\203
\201\303 A@!\203
A@\346U\203y\f\333\202\3258\203\256\f\3258\211\242\371=\262\203\244\f\201n \3258!\203\244\f\201o \3258\310\"\202\257\f\312\3258\346\"\202\257\f\363\201\310 !\201\311 !\201` \n@\201\312 =\203\313\fS\202\357\f\n@\201\313 =\203\344\f\nA@S\\_S\\\202\357\f\nA@\\_S\325\245\201i \fA@\"BB\266\203\202@\201\314 =\203J
\306\211X\203J
\201\315 N\211\262\203J
\f\203%
\325\202&
\327U\203J
G\365U\203J
\330@\312 A@\346\"A\312\325\f8\346\"\257\202
\367=?\205v
@\201\316 =\203n
G\201\317 U\203n
\353\201\320 \"\202v
\201\321 @ \"\211\203\314G\365U\204\214
@\201\316 =\203\314\3658\201\256 U\204\314\201\317 8\206\247
\3258\3658^V\204\271
\203\\@\201\322 =\203\\
\201\323 >\203\366
\201\324 !\204\366
\242\323=\203\344
\330\201\325 \312\n\201\256 \"\201\326 F\202\330\201\327 \312\n\201\256 \"\201\330 F\202
\201\331 =\203R\242\323=\204\201\332 \245\201\333 U\203%\330\201\325 \312\n\201\256 \"\201\326 F\202\201\324 !\203@\330\201\334 \312\n\201\256 \"\201\335 F\202\330\201\336 \312\n\201\256 \"\201\337 F\202\342\312 \346\"!\202
\201\340 >\203\207@\201\341 >\203\207\346Y\203\207\330\201\325 \312\n\201\256 \"\201\326 F\202@\201\316 =\203\267\330\312 A@\3258\"\201\342 \312\325\f8\346\"\201\244 \312\3658\3658\"\257\202\f\205\306\201\343 !?\205\306\f \3258\3658^U\203\333S\310\202\334\312 A@\3258\"\312\325 8\3658A@\323=#@\201\344 \232\203
\201\345 !\201\346 =\203
\342!\262
\201\347 >\203>@\201\344 \232\204'@\201\350 \232\203>\211;\2033\211G\327U\204>\330\201\325 \201\326 F\262\n@\201\322 =\203;
\203U\353\201\351 \"\203;\201\352 A@!\201\353 \325
8!\201\354 !\206\242\201\355 >\205
\326=\205\201\356 \201\345 !\206\231\242\201\357 >\205\231
\326=\205\231\201\356 \2056\211\2056\211\201\360 Y\203\261\211\201\361 X\204\211\201\362 Y\203\301\211\201\363 X\204\211\201\364 Y\203\321\211\201\365 X\204\211\201\366 Y\203\341\211\201\367 X\204\211\201\356 Y\203\361\211\201\370 X\204\211\201\371 >\204\211\201\372 =\2056\355\201\373 \201\374 !\"?\2056\242\201\205 =\205 \211\201\214 =?\2056\330\201\254 \327E\201u D\363 \257\266\204\206\306\330\201\254 \327E\201u D@\201\344 \232\204\241@\201\350 \232\204\241@\201\375 \232\204\241@\201\376 \232\203\201\201\354 !\203\201\201\345 !\204\241@\201\377 \232\203\247\201 A@!\203\247\201\3258!\203\247@\202\303
\326=\203\275@\201\232\203\275\201\202\303\363@\363Q\257)\266\203\202\211\203\257G\325U\203\257\3658\201\256 U\203\257\201\317 8\206\357\3258V\204\353@ \"=\204\205\346V\203\205
\201>\203'\201\324 !\204'\330\201\327 \312\n\201\256 \"\201\330 F\202
\201\331 =\203{\201\332 \245\201\333 U\203N\330\201\325 \312\n\201\256 \"\201\326 F\202\201\324 !\203i\330\201\312\n\201\256 \"\201F\202\330\201\336 \312\n\201\256 \"\201\337 F\202\342\312 \346\"!\202\312A@\3258\"\330@G\327V\204\240\201!\204\247\363@P\202\251@E\262\202\211\203G\325U\203\3258\201\256 U\203\3658\346=\203D
\201>\205\336\201\324 A@!?\330\203\351\201 \202\352\333\355\201\n@\"\203\374@\327\310O\202\376@\204\n@G\325V\203\363\202\333\312
A@\201\256 \"\204%@G\325V\203)\363\202*\333\2035\201 \2026\333 >A@@\257\262\202\201\317 8\206Q\3658V\203\326
\201\f>\203x\201\324 !\204x\330\201\327 \312\n\201\256 \"\201\330 F\202
\201\331 =\203\314\201\332 \245\201\333 U\203\237\330\201\325 \312\n\201\256 \"\201\326 F\202\201\324 !\203\272\330\201\312\n\201\256 \"\201F\202\330\201\336 \312\n\201\256 \"\201\337 F\202\342\312 \346\"!\202\312A@\3658\"\330\355\201\n@\"\203\362@\327\310O\202\364@\211G\327V\204\201!\204 \211\363P\202\n\211\262E\262\202
\326=\203/@\201
N\211\262\203/\211\"\206
\201\236\211\262\203O@AN\211\262\203O\211\"\206@\211\201\236\211\203_\211A\262\201\206 Y\"\211\262\203p\211@\262\201\355\201\201\207 !\"\203\213\361\201\207 !\327\"\202\220\201\207 !!\262
Z>\203\241\201!\262
[>\203\257\201!\262
\201N\211\262\203\304 \"\266\202\202\201d \nA\350\346#\\\201\235\203\366]\201\235\203\366\330\201\212 \201\\!\201]!#E\202\377\330\\]\257\262\266\202\262+\207" [math-compose-level math-expr-opers calc-multiplication-has-precedence math-comp-selected math-comp-tagged calc-language t math-expr-ops nil tag math-compose-expr "'" prin1-to-string math-special-function-table (frac float cplx polar hms) frac Math-integerp (flat big unform) math-adjust-fraction / math-float 2 big 1 horiz math-negp "- " "" vcent math-format-number math-abs (rule 45) 10 subscr math--comp-round-bracket int-to-string (cplx polar) math-zerop 0 cplx ", " "; " (frac float) assoc ((",") (" ")) string-match 14 "\\([0-9]+\\)#\\([0-9a-zA-Z., ]+\\)" "\\([0-9]+\\)#\\([0-9a-dA-D., ]+\\)" math-match-substring "\\*\\([0-9.]+\\)\\^\\(-?[0-9]+\\)\\()?\\)\\'" " " supscr 3 math-compose-forms unform apply vec R O C math-vector-no-parens P 1000 calc-frac-format calc-lang-slash-idiv math-radix-explicit-format calc-number-radix calc-group-digits calc-group-char calc-vector-brackets math-comp-left-bracket math-comp-right-bracket calc-matrix-brackets calc-vector-commas math-comp-comma-spc math-comp-comma math-comp-vector-prec calc-matrix-just math-comp-just calc-break-vectors calc-full-vectors calc-display-strings math-expr-variable-mapping calc-date-format calc-twos-complement-mode calc-arg-values math-compose-hash-args calc-any-evaltos math-expr-function-mapping calc-lang-allow-percentsigns calc-lang-allow-underscores calc-function-open calc-function-close #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 781 center 787)) vright vleft (nil big) math-matrixp 7 math-compose-vector flat append (horiz) (vleft) make-list " " math-compose-matrix (vleft) ";" math-vector-is-string math-vector-to-string 5 math-compose-rows math-matrix-formatter math-dots " ..." break incomplete "[" "(" ", ..." polar "; ..." intv (0 1) " .. " " .. ..." format "%s" "[ ..." (0 1) "( ..." var rassq symbol-name math-var-formatter math-compose-var math--comp-bracket (0 1) 40 91 (0 2) 41 93 date X math-format-date "<" ">" calcFunc-subscr math-compose-subscr ^ math-looks-negp (^ / frac calcFunc-sqrt) 201 (/ frac) (/ frac) math-comp-height (rule 45) calcFunc-lambda (nil flat big) (horiz "<") reverse " : " calcFunc-string "string(" ")" calcFunc-bstring "bstring(" "[^ ] +[^ ]" -123 set calcFunc-cprec -1 math-big-parens calcFunc-choriz (2 3 4) mapcar make-closure #[257 "\211\242\303=\203 \304\302\242\206 \301\206 \300\"\302\305\240\210\207\304\301\206 \300\"\207" [V0 V1 V2 calcFunc-bstring math-compose-expr -123] 4 "\n\n(fn X)"] (calcFunc-cvert calcFunc-clvert calcFunc-crvert) (2 3) #[257 "\303\211\211\211\242\304>\203 G\305>\203 @\262A@\262\242\306=\203\202 G\307>\203\202 A@\203\\ A@\211\242\310=\262\203L A@G\311U\203L \312A@!\204\\ \313A@!\203\202 A@\314X\203\202 \315A@\211\242\310=\262\203u \316A@\303\"\317H\202| A@\206| \320D\262\202\242 \242\321>\203\230 G\322>\203\230 A@\317=\204\242 \203\242 \323\302\"\262\203\254 \324!\202\255 \317\262\203\271 \325!\202\272 \317\262\326=\203\315 \300\301\242\\S\240\210\202\353 \327=\203\333 \300\301\242\240\210\202\353 \330=\203\353 \300\331\301\242\332$\240\210\301\211\242\\\\\240\210\207" [V0 V1 V2 nil (calcFunc-cbase calcFunc-ctbase calcFunc-cbbase) (1 2) calcFunc-crule (1 2) vec 2 math-vector-is-string natnump 255 rule math-vector-to-string 0 45 (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) math-compose-expr math-comp-ascent math-comp-descent calcFunc-cbase calcFunc-ctbase calcFunc-cbbase + -1] 11 "\n\n(fn X)"] delq calcFunc-cvert calcFunc-clvert (calcFunc-csup calcFunc-csub) (3 4) calcFunc-csup calcFunc-cflat (2 3) (nil big) calcFunc-cspace (2 3) natnump make-string 32 (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) math-comp-ascent math-comp-descent calcFunc-ctspace calcFunc-cbspace calcFunc-evalto math-evalto calcFunc-if 4 "?" math-assq2 * (tex latex) math-tex-expr-is-flat "{" "}" "\\left( " " \\right)" eqn 100 9 "( " " )" "{left ( " " right )}" (tex latex) (/ calcFunc-choose calcFunc-evalto) " ? " math-primp "^" math-comp-first-char 45 (tex latex) "_" "2x" math-prod-last-term math-prod-first-term math-comp-last-char (^ calcFunc-subscr calcFunc-sqrt frac) 48 (calcFunc-sqrt calcFunc-sum calcFunc-prod calcFunc-integ) 97 122 65 90 945 969 913 937 57 (46 95 35 40 91 123) 92 "\\`\\\\left(" math-comp-first-string "**" "*" "/" math-num-integerp math-integerp "=>" " => " (tex latex) "{( " " )}" math-comp-is-flat (tex latex) "\\left" "\\`u\\([^a-zA-Zα-ωΑ-Ω]\\)\\'" "\\right" (tex latex) math-compose-big ((nil . math-compose-normal) (flat . math-compose-normal) (big . math-compose-normal) (c . math-compose-c) (pascal . math-compose-pascal) (fortran . math-compose-fortran) (tex . math-compose-tex) (latex . math-compose-latex) (eqn . math-compose-eqn) (yacas . math-compose-yacas) (maxima . math-compose-maxima) (giac . math-compose-giac) (math . math-compose-math) (maple . math-compose-maple)) ((mod . calcFunc-makemod) (sdev . calcFunc-sdev) (+ . calcFunc-add) (- . calcFunc-sub) (* . calcFunc-mul) (/ . calcFunc-div) (% . calcFunc-mod) (^ . calcFunc-pow) (neg . calcFunc-neg) (| . calcFunc-vconcat)) math-remove-dashes "\\`calcFunc-\\([a-zA-Zα-ωΑ-Ω0-9']+\\)\\'" math-to-percentsigns math-to-underscores math-func-formatter ("(" "[" "{") (")" "]" "}") string-to-char] 27 (#$ . 610)])
#@10
(fn X)
(defalias 'math-prod-first-term #[257 "\211\242\300=\203 \211A@\262\202 \207" [*] 3 (#$ . 17053)])
#@10
(fn X)
(defalias 'math-prod-last-term #[257 "\211\242\300=\203 \3018\262\202 \207" [* 2] 3 (#$ . 17170)])
#@19
(fn A SEP PREC)
(defalias 'math-compose-vector #[771 "\203F \301\302D\303@\"CA\211\262\203? @\242\304=\203+ S\303@\305\")\2021 \303@\"\306DBBB\262\202 \211\237\262BB\207\307\207" [math-compose-level horiz set math-compose-expr calcFunc-bstring -123 break ""] 10 (#$ . 17288)])
#@10
(fn A)
(defalias 'math-vector-no-parens #[257 "\211AA\206
\211A@\242\300=?\207" [*] 3 (#$ . 17594)])
#@24
(fn A COL COLS BASE)
(defalias 'math-compose-matrix #[1028 "\301C\302\211\242T\240X\203# \303\304\305# \"BBB\262\202 \211\237\207" [math-comp-just 0 nil mapcar make-closure #[257 "\304\305\301\2428\n\"\301\242\300U\203 \306\202 \307PE\207" [V0 V1 math-comp-vector-prec math-comp-comma-spc horiz math-compose-expr "" " "] 5 "\n\n(fn R)"]] 13 (#$ . 17704)])
#@22
(fn A COUNT FIRST)
(defalias 'math-compose-rows #[771 "A\203N \305X\2032 \305W\203 \306A\307\310#\207\311N\211\203% \312P\202& \313\262 P\306A\307\310#B\207\314\203= \n\312P\202> \315\316@ \" F\306AS\310#B\207\314\203Y \n\312P\202Z \315\316@ \"\312\fPFC\207" [calc-language math-comp-comma math-comp-left-bracket math-comp-vector-prec math-comp-right-bracket 0 math-compose-rows -1 nil math-dots " " " ..." horiz " " math-compose-expr] 8 (#$ . 18084)])
#@10
(fn A)
(defalias 'math-vector-is-string #[257 "\211A\211\262\2039 \300@!\203 \211@\301X\204 \211@\242\302=\2039 \300@A@!\2039 \303@8\304=\2039 \211@A@\301X\204 \211?\207" [natnump 255 cplx 2 0] 3 (#$ . 18562)])
(defconst math-vector-to-string-chars '((34 . "\\\"") (92 . "\\\\") (7 . "\\a") (8 . "\\b") (27 . "\\e") (12 . "\\f") (10 . "\\n") (13 . "\\r") (9 . "\\t") (127 . "\\^?")))
#@27
(fn A &optional QUOTED)
(defalias 'math-vector-to-string #[513 "\301\302A\"\260\262\303\304\"\203\206 \305\203 \304\202 \306\203\" \202# \307\203+ \310\202, \311\312\303#\211\262\203\204 H\236\211\262\203b \305OAT\312OQ\262AG\\\262\202- \305O\313 H\314\\\"T\312OQ\262\315\\\262\202- \266\211\203\217 \316\316Q\207\207" [math-vector-to-string-chars mapcar #[257 "\211:\203 \211A@\207\207" [] 2 "\n\n(fn X)"] string-match "[ - \\\"]" 0 "[ - ]" ((127 . "^?")) "\\^%c" "^%c" nil format 64 2 "\""] 12 (#$ . 18961)])
#@10
(fn X)
(defalias 'math-to-underscores #[257 "\300\301\"\203 \302\303\304\"\305\303\306\"Q!\207\207" [string-match "\\`\\(.*\\)#\\(.*\\)\\'" math-to-underscores math-match-substring 1 "_" 2] 7 (#$ . 19535)])
#@10
(fn X)
(defalias 'math-to-percentsigns #[257 "\300\301\"\203 \302\303\304\"\305\303\306\"Q!\207\207" [string-match "\\`\\(.*\\)o'o\\(.*\\)\\'" math-to-underscores math-match-substring 1 "%" 2] 7 (#$ . 19754)])
#@10
(fn A)
(defalias 'math-tex-expr-is-flat #[257 "\300!\2064 \211@\301>\2064 \211@\302>\203( \211A\211\262\203# \303@!\204 \211?\2064 \211@\304>\2054 \303A@!\207" [Math-integerp (float var) (+ - * neg) math-tex-expr-is-flat (^ calcFunc-subscr)] 3 (#$ . 19976)])
#@99 Alist mapping bracket chars to (UPPER LOWER EXTENSION MIDPIECE).
Not all brackets have midpieces.
(defconst math--big-bracket-alist '((40 9115 9117 9116) (41 9118 9120 9119) (91 9121 9123 9122) (93 9124 9126 9125) (123 9127 9129 9130 9128) (125 9131 9133 9130 9132)) (#$ . 20248))
#@90 Composition for BRACKET-CHAR of HEIGHT with BASELINE.
(fn BRACKET-CHAR HEIGHT BASELINE)
(defalias 'math--big-bracket #[771 "\301X\203\n \302!\207\236A\303\304\305\">\203 \302!\207\211@A@\3068\3078\310\304\302\311C\203S \f\307Z\306\245\311\312\307ZZ \" C\312
\"#\262\202[ \312
\306Z \" C#\"BB\207" [math--big-bracket-alist 1 char-to-string nil mapcar char-displayable-p 2 3 vleft append make-list] 21 (#$ . 20535)])
#@103 Put the composition COMP inside LEFT-BRACKET and RIGHT-BRACKET.
(fn LEFT-BRACKET RIGHT-BRACKET COMP)
(defalias 'math--comp-bracket #[771 "\301=\203 \302!\303!S\304\305#\305#F\207\304\306!\306!F\207" [calc-language big math-comp-height math-comp-ascent horiz math--big-bracket char-to-string] 12 (#$ . 20986)])
#@60 Put the composition COMP inside plain brackets.
(fn COMP)
(defalias 'math--comp-round-bracket #[257 "\300\301\302#\207" [math--comp-bracket 40 41] 5 (#$ . 21321)])
(put 'calcFunc-log 'math-compose-big 'math-compose-log)
#@15
(fn A PREC)
(defalias 'math-compose-log #[514 "G\301U\205 \302\303\304\305\306\3078\310\")E\311\306A@\310\"!E\207" [calc-language 3 horiz subscr "log" flat math-compose-expr 2 1000 math--comp-round-bracket] 8 (#$ . 21549)])
(put 'calcFunc-log10 'math-compose-big 'math-compose-log10)
#@15
(fn A PREC)
(defalias 'math-compose-log10 #[514 "G\300U\205 \301\302\303\304E\305\306A@\307\"!E\207" [2 horiz subscr "log" "10" math--comp-round-bracket math-compose-expr 1000] 8 (#$ . 21847)])
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put calcFunc-deriv math-compose-big math-compose-deriv calcFunc-tderiv] 4)
#@15
(fn A PREC)
(defalias 'math-compose-deriv #[514 "G\300U\205 \301\302\303\304\305A@ED\303\304\306\3078EDE\"\207" [3 math-compose-expr / calcFunc-choriz vec (calcFunc-string (vec 100)) (calcFunc-string (vec 100)) 2] 10 (#$ . 22184)])
(put 'calcFunc-sqrt 'math-compose-big 'math-compose-sqrt)
#@15
(fn A PREC)
(defalias 'math-compose-sqrt #[514 "G\300U\205W \301A@\302\"\303!\304!\\\305!\306\307U\203% \310\202& \311\312\300\\\313\"P\314\307U\203B \315\316!\203> \317\202P \320\202P \321\306 SD\322S\323\"\324#\310\nFF\266\205\207" [2 math-compose-expr 0 math-comp-ascent math-comp-descent math-comp-width vleft 1 " " " " make-string 95 horiz char-displayable-p 8730 "√" "V" append make-list " |" ("\\|")] 16 (#$ . 22489)])
(put 'calcFunc-choose 'math-compose-big 'math-compose-choose)
#@15
(fn A PREC)
(defalias 'math-compose-choose #[514 "\300A@\301\"\300\3028\301\"\303\304\305!\306_\307\257!\207" [math-compose-expr 0 2 math--comp-round-bracket vcent math-comp-height 1 " "] 10 (#$ . 23003)])
(put 'calcFunc-integ 'math-compose-big 'math-compose-integ)
#@15
(fn A PREC)
(defalias 'math-compose-integ #[514 "G\301>\2052\3028\242\303=\2052\211\304Y\205 \211\305U?\306\3028\307\"\3028\242\303=\205V A@\242\310=\203F A@A@\211:?\206A \211@\311>\262\206V A@\242\312=\205V \313\302A@8!\306\203o \314A@\315\316\317\302 8A@\"!\"\202r A@\320\"\3218\205\205 \322\306\3218\307\")\3238\205\226 \322\306\3238\307\")\324\325!\205\237 \324\326!\211?\206\271 \324\327!\203\256 \330\202\271 \324\331!\203\270 \332\202\271 \333\334\335\336\203\314 \203\310 \302\202\325 \337\202\325 \203\324 \321\202\325 \302D\205\354 \203\346 \334\340E\202\353 \334\341EC\203\367 \342\343E\202\370 \344\205\203\n\334 \340E\202\334 \341EC$\203 \345\202!\334\346 EF\203-\347!\202.\211\262\266\210\207" [calc-language (3 5) 2 var 196 1000 math-compose-expr 0 / (frac float cplx polar) ^ math-looks-negp math-mul math-build-var-name format "d%s" 185 3 flat 4 char-displayable-p 8992 8993 9134 "⎮ " 9474 "│ " "| " horiz append vcent 1 " " " " "⌠ " "⌡ " (" /" " | " " | " " | " "/ ") "" " d" math--comp-round-bracket] 18 (#$ . 23283)])
(put 'calcFunc-sum 'math-compose-big 'math-compose-sum)
#@15
(fn A PREC)
(defalias 'math-compose-sum #[514 "G\301>\205} \302A@\303\"\304\302\3058\306\")\3078\205% \304\302\3078\306\")\3108\2056 \304\311\310\233\312\306#)\313\314\315\203A \307\202B \305D\205I C\316\203Z \313\317 FC\202] C$A@\242\320>\203l \321\202m \322F\323>\203z \324!\207\211\266\205\207" [calc-language (3 5 6) math-compose-expr 185 flat 2 0 3 4 math-compose-vector ", " horiz append vcent ("---- " "\\ " " > " "/ " "---- ") " = " (calcFunc-sum calcFunc-prod) " " "" (180 201) math--comp-round-bracket] 15 (#$ . 24458)])
(put 'calcFunc-prod 'math-compose-big 'math-compose-prod)
#@15
(fn A PREC)
(defalias 'math-compose-prod #[514 "G\301>\205} \302A@\303\"\304\302\3058\306\")\3078\205% \304\302\3078\306\")\3108\2056 \304\311\310\233\312\306#)\313\314\315\203A \307\202B \305D\205I C\316\203Z \313\317 FC\202] C$A@\242\320>\203l \321\202m \322F\323>\203z \324!\207\211\266\205\207" [calc-language (3 5 6) math-compose-expr 198 flat 2 0 3 4 math-compose-vector ", " horiz append vcent ("----- " " | | " " | | " " | | ") " = " (calcFunc-sum calcFunc-prod) " " "" (196 201) math--comp-round-bracket] 15 (#$ . 25090)])
#@10
(fn C)
(defalias 'math-stack-value-offset-fancy #[257 "\306!\307_\310=\203< \203 \311]\202 \250\203 \nZ\fG \250\2033 \2033 Z\312]\2024 \312Z\312]Z\202p \203c \313\245Z \250\203T
Z\fGZ^
\312Y\203p \n
\\]\202p \250\203j \nZ\313\245 \250\205\210
\312W\204\205 \205\210 V\205\210 \211\207" [calc-display-just calc-display-origin math-svo-wid calc-line-breaking calc-right-label math-svo-off math-comp-width 1 right 5 0 2] 6 (#$ . 25660)])
#@26
(fn C &optional WIDTH)
(defalias 'math-composition-to-string #[513 "\211\204 \301 \262\203 \302\303\"\207\304!\203 \305\"\207\306\307\"!\207" [calc-display-raw calc-window-width math-comp-to-string-raw 0 math-comp-is-flat math-comp-to-string-flat math-vert-comp-to-string math-comp-simplify] 6 (#$ . 26140)])
(defvar math-comp-buf-string (make-vector 10 ""))
(defvar math-comp-buf-margin (make-vector 10 0))
(defvar math-comp-buf-level (make-vector 10 0))
#@10
(fn C)
(defalias 'math-comp-is-flat #[257 "\211:\204 \300\207\211@\301>\203 \300\207\211@\302=\203) \211A\211\262\203& \303@!\204 \211?\207\211@\304>\203E \211G\305U\205S \211A@\306U\205S \303\3078!\207\211@\310=\203R \303\3078!\207\311\207" [t (set break) horiz math-comp-is-flat (vleft vcent vright) 3 0 2 tag nil] 4 (#$ . 26615)])
#@21
(fn C FULL-WIDTH)
(defalias 'math-comp-to-string-flat #[514 "\203 \306\307!)\207\310\211\306\211\n\205 \311 \312\313!\210\312!\210\312\314!\210\306H\310G\306V\203\202 \306H\315U\203\202 G\306V\203\202 GS\211\262H\316U\203L \315I\210\211TGW\203 TH\315U\203 T\316I\210\317\266\202\202\202 \320\266\202Q\266\202.\207" [math-comp-sel-hpos math-comp-pos math-comp-selected calc-show-selections math-comp-level math-comp-full-width 0 math-comp-sel-flat-term "" -1 math-comp-to-string-flat-term (set -1 0) (break -1) 32 10 " " "\n" math-comp-highlight math-comp-margin math-comp-word math-comp-buf math-comp-buf-string] 9 (#$ . 26964)])
#@10
(fn C)
(defalias 'math-comp-to-string-flat-term #[257 "\211:\204$ \203 \306!\262 G\307U\203 \211\202 P\nG\\\211\207\211@\310=\203; \211A\211\262\205\311@!\210\202+ \211@\312=\203} \211A@\205 T\211\fGY\203c \313\f\211\"\313
\211\"\313\211\"\f \314I\210
\n\3158\206r \307\\I\210 A@I\207\211@\316=\203\313\204\223 P \314\211\207\307\317\n V\203v\fH\262\211G\307U\203\265 W\203\265 T\262\202\234 \211G\307V\204\304 G\307V\203v\314\317\211
H\262\320V\203\336 \203\333 \321\202\334 \322\262G \\\262G\307V\2037\307H\323U\2037 G\307V\2037 G S\211\262H\324U\203\377 \323I\210\211T GW\2033 TH\323U\2033 T\324I\210\325\262\210\2027\326\262\210 \326\327\323\"\260 \nZ\\ \f\314I\210T\211\262 X\203t
HV\203S
HZ\\I\210\202S\266\266\211A@ HU\205\212\n
H\315\\W?\205\312\f H\211G\307U\203\234 \202\237\211 P\262\314A@ HW\203\304 S\f HG\307U\204\243\f HP\262\202\243\f I\262\207\211@\330=\203\375\211A@ =\203\346!?\311\3158!)\207\211A@\331=\203\367\317\311\3158!)\207\311\3158!\207\311\3158!\207" [math-comp-highlight math-comp-word math-comp-pos math-comp-level math-comp-buf-string math-comp-buf-margin math-comp-highlight-string 0 horiz math-comp-to-string-flat-term set vconcat "" 2 break nil 12 5 1 32 10 " " "\n" make-string tag t math-comp-buf-level calc-line-breaking math-comp-buf math-comp-full-width calc-line-numbering math-comp-margin math-comp-selected calc-show-selections] 14 (#$ . 27650)])
#@10
(fn S)
(defalias 'math-comp-highlight-string #[257 "\302!\262\203 \204 \303\304\305#\207\303\304\306#\207\211G\211S\211\262\307Y\203= H\310>\204 \2037 \311\2028 \312I\210\202 \210\207" [calc-highlight-selections-with-faces calc-show-selections copy-sequence propertize face calc-selected-face calc-nonselected-face 0 (32 10) 46 35] 5 (#$ . 29186)])
#@10
(fn C)
(defalias 'math-comp-sel-flat-term #[257 "\211:\204\f G\\\211\207\211@\303>\206[ \211@\304=\2031 \211A\211\262\2050 \305W\205[ \306@!\210\202 \207\211@\307=\203V X\203P \306\3108!\210 V\205U \211\305\211\207\306\3108!\207\306\3108!\207" [math-comp-pos math-comp-sel-cpos math-comp-sel-tag (set break) horiz 1000000 math-comp-sel-flat-term tag 2] 4 (#$ . 29559)])
#@21
(fn C FULL-WIDTH)
(defalias 'math-comp-simplify #[514 "\306C\307\310\307\211\205 \311 \f
\312!\210\313
.BB\207" [math-comp-selected calc-show-selections math-comp-tag math-comp-highlight math-comp-vpos math-comp-hpos "" 0 1 nil math-comp-simplify-term vleft math-comp-hgt math-comp-base math-comp-buf] 9 (#$ . 29952)])
#@14
(fn S H V)
(defalias 'math-comp-add-string #[771 "G\305V\205i \211\\ \203 \306G\307$\202g \211\305W\2034 \310[\311\"\n\244[ Z\305\262\202G \211 Y\203G \n\310 ZT\311\"\244\211T\211\n\233\211@\312@GZ\313\"\f\203a \314!\202c Q\240\262\262\207" [math-comp-base math-comp-sel-hpos math-comp-buf math-comp-hgt math-comp-highlight 0 math-comp-add-string-sel 1 make-list "" make-string 32 math-comp-highlight-string] 10 (#$ . 30294)])
#@16
(fn X Y W H)
(defalias 'math-comp-add-string-sel #[1028 "X\205! \\V\205! X\205! \\ V\205! \n\304\211\207" [math-comp-sel-vpos math-comp-sel-hpos math-comp-tag math-comp-sel-tag 10000] 6 (#$ . 30756)])
#@10
(fn C)
(defalias 'math-comp-simplify-term #[257 "\211;\203 \306 #\210G\\\211\207\211@\307>\203 \310\207\211@\311=\2032 \211A\211\262\205^\312@!\210\202\" \211@\313>\203\275 A@Z\314\3158!S\\\316\317AA\"\320\321\"@\322=\203[ \323\202g @\324=\203f \325\202g \315A\262A\211\262\203\266 @\242\326=\203\213 \306\327@A@\" #\210\202\234 @Z_\315\245\\\312@!\210)A\203k \330@!\314A@!\\\\A\262\202k \\\211)\207\211@\331=\203\364 \330\3158!\312A@!\210 TZ\312\3158!\210\n\205\362 \332 T\314\3158!ZZ\333!$)\207\211@\334=\203+\314\3158!\330A@! \312A@!\210 \\\\\312\3158!\210\n\205)\332Z\333 !$)\207\211@\335=\205^\211A@ =\203D\f? \312\3158!)\207\211A@\336=\203U\310 \312\3158!)\207\211 \312\3158!)\207" [math-comp-hpos math-comp-vpos math-comp-sel-hpos math-comp-selected calc-show-selections math-comp-highlight math-comp-add-string (set break) nil horiz math-comp-simplify-term (vleft vcent vright) math-comp-ascent 2 mapcar math-comp-width apply max vleft 0 vcent 1 rule make-string math-comp-descent supscr math-comp-add-string-sel math-comp-height subscr tag t math-comp-tag] 11 (#$ . 30976)])
#@10
(fn C)
(defalias 'math-comp-first-char #[257 "\211;\203 \211G\300V\205; \211\300\234\207\211@\301>\203/ \211A\211\262\203& \302@!\204 \211\205; \303@!\207\211@\304=\205; \303\3058!\207" [0 (horiz subscr supscr) math-comp-is-null math-comp-first-char tag 2] 4 (#$ . 32148)])
#@10
(fn C)
(defalias 'math-comp-first-string #[257 "\211;\203
\211G\300V\2058 \207\211@\301=\203, \211A\211\262\203# \302@!\204 \211\2058 \303@!\207\211@\304=\2058 \303\3058!\207" [0 horiz math-comp-is-null math-comp-first-string tag 2] 4 (#$ . 32436)])
#@10
(fn C)
(defalias 'math-comp-last-char #[257 "\211;\203 \211G\300V\205D \211GS\234\207\211@\301=\2038 \302A!\211\203/ \303@!\203/ \211A\262\202 \211\2057 \304@!\207\211@\305=\205D \304\3068!\207" [0 horiz reverse math-comp-is-null math-comp-last-char tag 2] 4 (#$ . 32700)])
#@10
(fn C)
(defalias 'math-comp-is-null #[257 "\211;\203\n \211G\300U\207\211@\301>\203# \211A\211\262\203 \302@!\204 \211?\207\211@\303=\2030 \302\3048!\207\211@\305>\2058 \306\207" [0 (horiz subscr supscr) math-comp-is-null tag 2 (set break) t] 4 (#$ . 32990)])
#@10
(fn C)
(defalias 'math-comp-width #[257 "\211:\204 \211G\207\211@\300>\203$ \301A\211\262\203# \211\302@!\\\262\202 \207\211@\303>\203D \211A\262\301A\211\262\203C \211\302@!]\262\2020 \207\211@\304=\203Q \302\3058!\207\301\207" [(horiz subscr supscr) 0 math-comp-width (vcent vleft vright) tag 2] 5 (#$ . 33263)])
#@10
(fn C)
(defalias 'math-comp-height #[257 "\211;\203 \300\207\301!\302!\\\207" [1 math-comp-ascent math-comp-descent] 4 (#$ . 33598)])
#@10
(fn C)
(defalias 'math-comp-ascent #[257 "\211:\204 \300\207\211@\301=\203# \302A\211\262\203\" \211\303@!]\262\202 \207\211@\304>\2039 \211A@\302V\2037 \211A@T\207\300\207\211@\305=\203M \303A@!\306\3078!T]\207\211@\310=\203Z \303A@!\207\211@\311=\203g \303\3078!\207\300\207" [1 horiz 0 math-comp-ascent (vcent vleft vright) supscr math-comp-height 2 subscr tag] 5 (#$ . 33743)])
#@10
(fn C)
(defalias 'math-comp-descent #[257 "\211:\204 \300\207\211@\301=\203# \300A\211\262\203\" \211\302@!]\262\202 \207\211@\303>\203J \211A@[A\262A\211\262\203E \211\304@!\\\262\2022 \211S\300]\207\211@\305=\203W \302A@!\207\211@\306=\203j \302A@!\304\3078!\\\207\211@\310=\203w \302\3078!\207\300\207" [0 horiz math-comp-descent (vcent vleft vright) math-comp-height supscr subscr 2 tag] 5 (#$ . 34143)])
#@25
(fn A &optional PREC)
(defalias 'calcFunc-cwidth #[513 "\211\203 \211\250\204 \300\301\"\210\302\303\206 \304\"!\207" [math-reject-arg fixnump math-comp-width math-compose-expr 0] 6 (#$ . 34576)])
#@25
(fn A &optional PREC)
(defalias 'calcFunc-cheight #[513 "\211\203 \211\250\204 \300\301\"\210@\302>\203& G\303>\203& A@\304=\203& \304\207\305\306\206. \304\"!\207" [math-reject-arg fixnump (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) 0 math-comp-height math-compose-expr] 6 (#$ . 34787)])
#@25
(fn A &optional PREC)
(defalias 'calcFunc-cascent #[513 "\211\203 \211\250\204 \300\301\"\210@\302>\203& G\303>\203& A@\304=\203& \304\207\305\306\206. \304\"!\207" [math-reject-arg fixnump (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) 0 math-comp-ascent math-compose-expr] 6 (#$ . 35107)])
#@25
(fn A &optional PREC)
(defalias 'calcFunc-cdescent #[513 "\211\203 \211\250\204 \300\301\"\210\302\303\206 \304\"!\207" [math-reject-arg fixnump math-comp-descent math-compose-expr 0] 6 (#$ . 35427)])
#@10
(fn C)
(defalias 'math-vert-comp-to-string #[257 "\211;\203 \207\300AA!\207" [math-vert-comp-to-string-step] 3 (#$ . 35642)])
#@10
(fn C)
(defalias 'math-vert-comp-to-string-step #[257 "\211A\203 \211@\300\301A!Q\207\211@\207" ["\n" math-vert-comp-to-string-step] 5 (#$ . 35778)])
#@17
(fn C INDENT)
(defalias 'math-comp-to-string-raw #[514 ":\203\f @\300=\203 \301!\207A\204 \302\303@!\304Q\207\211\305\\\303@!G\\\302\303@!\306\307A@\"\310AA\"\304\260\207" [set prin1-to-string "(" symbol-name ")" 2 " " math-comp-to-string-raw math-comp-to-string-raw-step] 10 (#$ . 35938)])
#@18
(fn CL INDENT)
(defalias 'math-comp-to-string-raw-step #[514 "\203 \300\301\302\"\303@\"\304A\"R\207\305\207" ["\n" make-string 32 math-comp-to-string-raw math-comp-to-string-raw-step ""] 8 (#$ . 36254)])
(provide 'calccomp)