537d9b6c927223c796cac288cced29df

Edit file

File name : calccomp.elc

Content :

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(fn A)
(defalias 'math-compose-var #[257 "\305\211\203=�	\306\262\211\203&�\211@\232\204&�\307=\205�\211A\262T\262\202\n�\211\262\203=�\306=\2036�\310\202[�\311\312\"\202[�\313A@!\262\n>\203O�\314!\262\n\f>\203Z�\315!\262\211\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 (#$ . 480)])
#@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\330\341\342\343\344C!EF*\266\202\202\335!\202
\326=\204;\335\"\202\242\345>\203z\346\3258!\203W\312A@\"\202\330\341\312	A@\347\"	@\350=\203l\351\202m\352\312\325\f8\347\"\343\257\202C\340U\204\237\211:?\206\215\211@\353>\262\203\237D\203\250\354E\355\"\204\250\335\"\202\335\"\310\356C\357V\203\273\360\202\274\361\"\203\341\211\362\347\211\224#\342\363\325\"\363\327\"ED\244\262\362\347\225\"\262\202\257\356\364\"\203\330\362\347\211\224#\365\366\363\327\"\363\325\"E\363\367\"\257\262\211\203\330C\244B\202\266\202\202@\370N\203\251
\371=\204\251@\370N\310\211
\236\211\262\203j	GSA\236\211\262\203X\372AA\"\211\262\203X\312\n\"\206\244\310A\236\211\262\203j\211A\n!\206\244\310\236\211\262\205\244	GSA\236\211\262\203\225\372AA\"\211\262\203\225\312\n\"\206\244\310A\236\211\262\205\244\211A\n!\266\203\206@\373=\203hF\203\277\362F\347\327#\202\300\333GF\203\320\362F\327\325#\202\321\333H\374I>\375I>\376I>J\206\345\365KJ\206\355\333LJ\203\373\377\n!\204\201^�I>\203\347\202\201_�MN\201`�\267\202 \201a�\202#\334\202#\201b�OP
\201c�>\203[P\204[\201d�!\203[\201d�A@!\204[Q\204i\nG\201e�W\203c\nA@G\201e�W\204i\306\262\202[J\203w\377A@!\204\200\201^�I>\203\204\347\202\207\201_�M\nG\325U\203\257\330G\211\365Q\201f�
A@AL\365PM#\365H\211QF\202a\nGSA@GSS\325\245\201g�\201h�\201i�\201h�\201j�C\n\205\330G\365P\f\205\341G\365PPC\201k�	S
\205\361\201l�\205\372G\365PP\"$C\201m�A\327$\201h�\201n�C\201k�\nS\203,\365H\205(LQ\202=\203<
\203<\201o�\202=\333\"\205G\365HP\205P\365HPPC$C$)\266\203\202aR\203y\nA\203y\201p�!\203y\201q�\306\"\202a\211\203\315\nA\203\315
\201g�=\204\315Q\206\227\nG\201e�W\211\203\242GS\202\245\201r�\211S\325\245\310P\330\201b�\201s�A\203\301\202\302\367\306#)BBD\266\203\202aQ\204\334\nG\201e�W\203

\201t�N\211\262\203\367\201d�!\203\367!\202a\330G\201f�
AL\365PM#HF\202a\330G\201f�
A@\3258\3678EL\365PM#L
\201u�N\211\262\n\203;\365	P\202>\201v�L\365\201w�D\312GS8L\333\232\203[\201_�\202\\\347\"H\257\n.\266\204\202@\201x�=\203FAA\203A@\373=\203\227\330\201y�\201f�	AA\351\347#\201v�F\202A@\350=\203\263\330\341\201f�	AA\351\347#\201z�F\202A@\201{�=\203\321\330\341\201f�	AA\352\347#\201|�F\202A@\201}�=\203\330\3258\201~�>\203\354\341\202\357\201y�\201f�	AAA\201�\347#\201\200�F\202\201\201�\201\202�\"\202A@\373=\203\201\203�\202A@\201}�=\203@\3258\201\204�>\203:\201\205�\202\201\203�\202\201\205�\202@\201\206�=\203\206\201\207�\3258S\"\211\203g\201\210�@!\202\201
\201\211�N\211\262\203{\"\202\201\201\212�!\262\202@\201}�=\203\313\330A@\201\213�>\203\240\341\202\243\201y�\312\325\n8\347\"\201�\312\367\f8\347\"A@\201\214�>\203\303\343\202\306\201\215�\257\202@\201\216�=\203\370T@\201\217�=\203\350\201\220�!\202\201\221�\201\220�!\201\222�Q\202@\201\223�=\203
\201\224�N\211\262\203\211!\202@\201\223�=\203yG\367U\203y
\326=\203y\312A@\201_�\"\201g�\312\325	8\347\"\242\342=\204`\242\311=\203o\3258\242\342=\203o\3258\211\262\203o\342A@\330\3258\351FE\202s\342E)\266\202\202@\201\225�=\203\356
\326=\203\356\366\201\226�A@!\204\301A@\242\201\227�>\204\301A@\242\350=\203\317\331A@A@!\203\317\325A@8\347=\203\317\330\341\312\nA@\347\"\343F\202\330\312A@\201\230�\"\201g�\340\310UC\312\325\n8\347\"+E\202@\323=\203F
\326=\203FA@\242\201\231�>\203\201g�\202\326\312A@\347\")\3258\242\201\232�>\203*\201g�\202+\326\312\325	8\347\")\334\201\233�!\201\234�\257\266\202\202@\201\235�=\203\277G\325V\203\277
\201\236�>\203\277AVG\367U\203q\327\202r\306WA\203\214@@\232\203\214A\262\211A\262\202t\201h�\201\237�A\205\252\201f�\201\240�\fA!A\237\351\347#\201\241�D\312\fGS
8\347\"\201\222�D#)\266\202\202@\201\242�=\203\f	G\325U\203\f	A@\211\242\373=\262\203\f	\201p�A@!\203\f	
\371=\203�	\201\243�\201q�A@\306\"\343Q\202\201q�A@\310\"\202@\201\244�=\203\237	G\325U\203\237	A@\211\242\373=\262\203\237	\201p�A@!\203\237	
\371=\203M	\201\245�\201q�A@\306\"\343Q\202\310\201q�A@\310\"\310\356\201\246�\"\203~	\347\225S\262\201w�D\362\347#BB\262\362\"\262\202X	B\237\262\201\247�U\204\227	\201\250�\325EB\262\330B\266\203\202@\201\251�=\203\365	
\371=\204\365	G\367U\203\365	\3258\250\203\365	\312A@\201\252�\"\325	8V\203\357	
\201\253�N\211\262\203\347	\330@AF\202\360	\330\341\343F\202\360	\211\262\202@\201\254�=\203\311\n
\371=\204\311\nG\201\255�>\203\311\nA@\211\242\373=\262\203\311\n\3258\250\203C\n\3678\203b\n\3678\211\242\373=\262\203\311\n\201p�\3678!\202_\n\3258\203b\n\3258\211\242\373=\262\203\311\n\201p�\3258!\203\311\n\3258\250\205n\n\3258\211\203v\n\367\202w\n\3258\310C\203\230\n\201f�\nA@A\201q�\310\"\206\224\n#\202\304\n\330\201\256�\201\257�\201\260�\201\261�\201\262�\201\263�\n	#\201\264�\"\201\265�\201\266�%\fA@A\"B\266\203\202@\201\267�>\203q
\371=\204qG\201\270�>\203qA@\211\242\373=\262\203q\3258\203\377\n\3258\250\203q\347C\347C\325	8\206\f\201\256�\201\257�\201\260�\201\271�\201\262�\201\263�#\201\272�\"\201\273�\201\266�%A@A\"\201\274�\310\"\262\211\203k\n@\201\275�=\203P\334\202c\n@\201\276�=\203`\201b�\202c\201a�\242BB\202l\365\266\204\202@\201\277�>\203\302
\371=\204\302G\201\300�>\203\302\3678\203\232\3678\250\203\302@\201\301�=\203\250\366\202\251\342\312A@\367\n8\206\266\347\"\312\325\n8\347\"E\202@\201\302�=\203
\f
\371=\204
\fG\201\303�>\203
\f\3258\203\353\3258\250\203
\f
\201\304�>\203\371\201g�\202\372
\312A@\325	8\206\f\347\")\202@\201\305�=\203y\fG\201\306�>\203y\f\201\307�A@!\203y\f\3258\203k\f\330\201k�A@\325\n8\211\242\373=\262\203_\f\201p�\3258!\203_\f\201q�\3258\310\"\202f\f\312\3258\347\"\"B\202\201\310�A@\201\311�\"\202@\201\312�>\203,
G\201\313�>\203,
\201\307�A@!\203,
A@\347U\203\245\f\333\202\3258\203\332\f\3258\211\242\373=\262\203\320\f\201p�\3258!\203\320\f\201q�\3258\310\"\202\333\f\312\3258\347\"\202\333\f\365\201\314�!\201\315�!\201b�\n@\201\316�=\203\367\fS\202
\n@\201\317�=\203
\nA@S\\_S\\\202
\nA@\\_S\325\245\201k�\fA@\"BB\266\203\202@\201\320�=\203v
\306\211X\203v

\201\321�N\211\262\203v
\f\203Q
\325\202R
\327U\203v
G\367U\203v
\330@\312	A@\347\"A\312\325\f8\347\"\257\202
\371=?\205\242
@\201\322�=\203\232
G\201\265�U\203\232
\354\201\323�	\"\202\242
\201\324�@	\"\211\203\374G\367U\204\270
@\201\322�=\203\374\3678\201\252�U\204\374\201\265�8\206\323
\3258\3678^V\204\345
\203\212@\201\325�=\203\212
\201\326�>\203\"\201\327�!\204\"\242\323=\203\330\201\330�\312\n\201\252�\"\201\331�F\202	\330\201\332�\312\n\201\252�\"\201\333�F\202	
\201\334�=\203~\242\323=\204?\201\335�\245\201\336�U\203Q\330\201\330�\312\n\201\252�\"\201\331�F\202	\201\327�!\203l\330\201\337�\312\n\201\252�\"\201\340�F\202	\330\201\341�\312\n\201\252�\"\201\342�F\202	\330\341\312\n\347\"\343F\202	
\201\343�>\203\265@\201\344�>\203\265\347Y\203\265\330\201\330�\312\n\201\252�\"\201\331�F\202	@\201\322�=\203\345\330\312	A@\3258\"\201\345�\312\325\f8\347\"\201\241�\312\3678\3678\"\257\202	\f\205\364\201\346�!?\205\364\f\3258\3678^U\203	S\310\202\n\312	A@\3258\"\312\3258\3678A@\323=#@\201\347�\232\203=\201\350�!\201\351�=\203=\330\341\343F\262
\201\352�>\203n@\201\347�\232\204W@\201\353�\232\203n\211;\203c\211G\327U\204n\330\201\330�\201\331�F\262\n@\201\325�=\203k
\203\205\354\201\354�	\"\203k\201\355�A@!\201\356�\325
8!\201\357�!\206\257\242\201\360�>\205\257
\326=\205\257\201\361�\201\350�!\206\311\242\201\362�>\205\311
\326=\205\311\201\361�\205f\211\205f\211\201\363�Y\203\341\211\201\364�X\204@\211\201\365�Y\203\361\211\201\366�X\204@\211\201\367�Y\203\211\201\370�X\204@\211\201\371�Y\203\211\201\372�X\204@\211\201\361�Y\203!\211\201\373�X\204@\211\201\374�>\204@\211\201\375�=\205f\356\201\376�\201\377�!\"?\205f\242\201\206�=\205N\211\201�=?\205f\330\201\250�\327E\201w�D\365	\257\266\204\206\366\330\201\250�\327E\201w�D@\201\347�\232\204\321@\201\353�\232\204\321@\201\232\204\321@\201\232\203\261\201\357�!\203\261\201\350�!\204\321@\201\232\203\327\201A@!\203\327\201\3258!\203\327@\202\363
\326=\203\355@\201\232\203\355\201\202\363\365@\365Q\257)\266\203\202	\211\203\341G\325U\203\341\3678\201\252�U\203\341\201\265�8\206\3258V\2044\354@	\"=\204\267\347V\203\267
\201>\203W\201\327�!\204W\330\201\332�\312\n\201\252�\"\201\333�F\202	
\201\334�=\203\253\201\335�\245\201\336�U\203~\330\201\330�\312\n\201\252�\"\201\331�F\202	\201\327�!\203\231\330\201	\312\n\201\252�\"\201\nF\202	\330\201\341�\312\n\201\252�\"\201\342�F\202	\330\341\312\n\347\"\343F\202	\312A@\3258\"\330@G\327V\204\322\201!\204\331\365@P\202\333@E\262\202	\211\203GG\325U\203G\3258\201\252�U\203G\3678\347=\203v
\201\f>\205\201\327�A@!?\330\203\201
\202\333\356\201@\"\203.\362@\327\"\2020@\204<@G\325V\203@\365\202A\333\312
A@\201\252�\"\204W@G\325V\203[\365\202\\\333\203g\201\202h\333	>A@@\257\262\202	\201\265�8\206\203\3678V\203\n
\201>\203\252\201\327�!\204\252\330\201\332�\312\n\201\252�\"\201\333�F\202	
\201\334�=\203\376\201\335�\245\201\336�U\203\321\330\201\330�\312\n\201\252�\"\201\331�F\202	\201\327�!\203\354\330\201	\312\n\201\252�\"\201\nF\202	\330\201\341�\312\n\201\252�\"\201\342�F\202	\330\341\312\n\347\"\343F\202	\312A@\3678\"\330\356\201@\"\203&\362@\327\"\202(@\211G\327V\2047\201!\204=\211\365P\202>\211\262E\262\202	
\326=\203c@\201N\211\262\203c\211\"\206	
\201\236\211\262\203\203@AN\211\262\203\203\211\"\206	@\211\201\236\211\203\223\211A\262\201\207�Y\"\211\262\203\244\211@\262\201\356\201\201\210�!\"\203\277\363\201\210�!\327\"\202\304\201\210�!!\262
Z>\203\325\201!\262
[>\203\343\201!\262
\201N\211\262\203\366\"\202\330\\\201f�
A\351\347#]\257\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 ")" 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., ]+\$" substring math-match-substring "\\*\$[0-9.]+\$\\^\$-?[0-9]+\$\$)?\$\\'" " " supscr 3 math-compose-forms unform apply vec R O C math-vector-no-parens 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 P 1000 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 790 center 796)) 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 (0 1) (0 2) "]" 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-byte-code 257 "\211\242\303=\203�\304\302\242\206�\301\206�\300\"\302\305\240\210\207\304\301\206 �\300\"\207" vconcat vector [calcFunc-bstring math-compose-expr -123] 4 "\n\n(fn X)" (calcFunc-cvert calcFunc-clvert calcFunc-crvert) (2 3) "\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\316�\300\327\301\242\330#\240\210\202\354�\331=\203\334�\300\301\242\240\210\202\354�\332=\203\354�\300\327\301\242\330$\240\210\301\327\301\242#\240\210\207" [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 + -1 calcFunc-ctbase calcFunc-cbbase] 11 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 "?" 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 40 "**" "*" "/" 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] 27 (#$ . 942)])
#@10

(fn X)
(defalias 'math-prod-first-term #[257 "\211\242\300=\203�\211A@\262\202��\207" [*] 3 (#$ . 17347)])
#@10

(fn X)
(defalias 'math-prod-last-term #[257 "\211\242\300=\203�\3018\262\202��\207" [* 2] 3 (#$ . 17464)])
#@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 (#$ . 17582)])
#@10

(fn A)
(defalias 'math-vector-no-parens #[257 "\211AA\206
�\211A@\242\300=?\207" [*] 3 (#$ . 17888)])
#@24

(fn A COL COLS BASE)
(defalias 'math-compose-matrix #[1028 "\301C\302\211\242T\240X\203+�\303\304\305\306\307\310\n\"\311\"\312\313%	\"BBB\262\202�\211\237\207" [math-comp-just 0 nil mapcar make-byte-code 257 "\304\305\301\2428\n\"\301\242\300U\203�\306\202�\307PE\207" vconcat vector [math-comp-vector-prec math-comp-comma-spc horiz math-compose-expr "" " "] 5 "\n\n(fn R)"] 16 (#$ . 17998)])
#@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 (#$ . 18415)])
#@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 (#$ . 18893)])
(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\210�\305\203�\304\202�\306\203\"�\202#�\307\203+�\310\202,�\311\312\303#\211\262\203\206�H\236\211\262\203c�\313\305#A\313	T\"Q\262AG\\\262\202-�\313\305#\314	H\315\\\"\313	T\"Q\262\316\\\262\202-�\266\211\203\221�\317\317Q\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 substring format 64 2 "\""] 12 (#$ . 19292)])
#@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 (#$ . 19886)])
#@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 (#$ . 20105)])
#@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 (#$ . 20327)])
(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\"\312\257\207" [calc-language 3 horiz subscr "log" flat math-compose-expr 2 1000 "(" ")"] 8 (#$ . 20655)])
(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\"\310\257\207" [2 horiz subscr "log" "10" "(" math-compose-expr 1000 ")"] 8 (#$ . 20943)])
(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 (#$ . 21270)])
(put 'calcFunc-sqrt 'math-compose-big 'math-compose-sqrt)
#@15

(fn A PREC)
(defalias 'math-compose-sqrt #[514 "G\300U\205M�\301A@\302\"\303!\304!\\\305!\306\307U\203%�\310\202&�\311\312\300\\\313\"P\314\307U\2038�\315\202F�\316\306	SD\317S\320\"\321#\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 "V" append make-list " |" ("\\|")] 16 (#$ . 21575)])
(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\310F\207" [math-compose-expr 0 2 horiz "(" vcent math-comp-height " " ")"] 11 (#$ . 22034)])
(put 'calcFunc-integ 'math-compose-big 'math-compose-integ)
#@15

(fn A PREC)
(defalias 'math-compose-integ #[514 "G\301>\205\336�\3028\242\303=\205\336�\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\3028A@\"!\"\202r�A@\320\"\321\3228\205\204�\306\3228\307\"\3238\205\222�\306\3238\307\"\324\203\234�\325\202\235�\326\327\330\203\247�\322\202\250�\302D\205\263�\324\331EC\332\205\277�\324\331EC$\203\312�\326\202\317�\324\333\nE\n\203\330�\334\202\331�\326\257)\266\206\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 flat 3 4 horiz "(" "" append vcent "  " ("  /" " | " " | " " | " "/  ") " d" ")"] 17 (#$ . 22305)])
(put 'calcFunc-sum 'math-compose-big 'math-compose-sum)
#@15

(fn A PREC)
(defalias 'math-compose-sum #[514 "G\301>\205\204�\302A@\303\"\304\302\3058\306\"\3078\205!�\302\3078\306\"\3108\205/�\311\310\233\312\306#\313\314>\203:�\315\202;�\316\317\320\203E�\307\202F�\305D\205M�C\321\203^�\313	\322\nFC\202a�C$A@\242\323>\203p�\324\202q�\316	\325>\203~�\326\202�\316\257)\266\204\207" [calc-language (3 5 6) math-compose-expr 185 flat 2 0 3 4 math-compose-vector ", " horiz (180 201) "(" "" append vcent ("---- " "\\    " " >   " "/    " "---- ") " = " (calcFunc-sum calcFunc-prod) " " (180 201) ")"] 16 (#$ . 23188)])
(put 'calcFunc-prod 'math-compose-big 'math-compose-prod)
#@15

(fn A PREC)
(defalias 'math-compose-prod #[514 "G\301>\205\204�\302A@\303\"\304\302\3058\306\"\3078\205!�\302\3078\306\"\3108\205/�\311\310\233\312\306#\313\314>\203:�\315\202;�\316\317\320\203E�\307\202F�\305D\205M�C\321\203^�\313	\322\nFC\202a�C$A@\242\323>\203p�\324\202q�\316	\325>\203~�\326\202�\316\257)\266\204\207" [calc-language (3 5 6) math-compose-expr 198 flat 2 0 3 4 math-compose-vector ", " horiz (196 201) "(" "" append vcent ("----- " " | |  " " | |  " " | |  ") " = " (calcFunc-sum calcFunc-prod) " " (196 201) ")"] 16 (#$ . 23836)])
#@10

(fn C)
(defalias 'math-stack-value-offset-fancy #[257 "\306!\307\\\310=\203<�	\203�	\311]\202�\250\203�\312\n\fG\250\2033�	\2033�	Z\307]\2024�\307Z\307]#\202p�	\203c�	\313\245Z\250\203T�
\312\fG#^
\307Y\203p�\n
\\]\202p�\250\203j�\nZ\313\245\250\205\210�
\307W\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 0 right 5 - 2] 8 (#$ . 24422)])
#@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 (#$ . 24909)])
(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 (#$ . 25384)])
#@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\203�\306H\315U\203\203�G\306V\203\203�GS\211\262H\316U\203L�\315I\210\211TGW\203�TH\315U\203�T\316I\210\317\262\202\202�\320\262\210Q\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 (#$ . 25733)])
#@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@\205T\211\fGY\203c�\313\f\211\"\313
\211\"\313\211\"\f\314I\210
\n\3158\206r�\307\\I\210A@I\207\211@\316=\203\312\204\223�	P\314\211\207\307\317\nV\203u\fH\262\211G\307U\203\265�W\203\265�T\262\202\234�\211G\307V\204\304�G\307V\203u\314\317\211
H\262\320V\203\336�\203\333�\321\202\334�\322\262G\\\262G\307V\2036\307H\323U\2036G\307V\2036GS\211\262H\324U\203\377�\323I\210\211TGW\2032TH\323U\2032T\324I\210\325\262\2025\326\262\210\326\327\323\"\260\nZ\\\f\314I\210T\211\262X\203s
HV\203R

HZ\\I\210\202R\266\266\211A@HU\205\211\n
H\315\\W?\205\311\fH\211G\307U\203\233	\202\236\211	P\262\314A@HW\203\303S\fHG\307U\204\242\fHP\262\202\242\fI\262\207\211@\330=\203\374\211A@ =\203\345!?\311\3158!)\207\211A@\331=\203\366\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 (#$ . 26417)])
#@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 (#$ . 27949)])
#@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 (#$ . 28322)])
#@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 (#$ . 28715)])
#@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�\211Y\203G�\n\310ZT\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 (#$ . 29057)])
#@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 (#$ . 29519)])
#@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\205a\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\367�\325\330\3158!\312A@!\210	\\Z\312\3158!\210\n\205\365�\332\333	\334\314\315\n8!#Z\335!$)\207\211@\336=\203.\314\3158!\330A@!	\312A@!\210	\\\\\312\3158!\210\n\205,\332Z\335	!$)\207\211@\337=\205a\211A@=\203G\f?\312\3158!)\207\211A@\340=\203X\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 - -1 math-comp-height subscr tag t math-comp-tag] 12 (#$ . 29739)])
#@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 (#$ . 30930)])
#@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 (#$ . 31218)])
#@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 (#$ . 31482)])
#@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 (#$ . 31772)])
#@10

(fn C)
(defalias 'math-comp-width #[257 "\211:\204�\211G\207\211@\300>\203%�\301A\211\262\203#�\211\302@!\\\262\202�\211\207\211@\303>\203F�\211A\262\301A\211\262\203D�\211\302@!]\262\2021�\211\207\211@\304=\203S�\302\3058!\207\301\207" [(horiz subscr supscr) 0 math-comp-width (vcent vleft vright) tag 2] 5 (#$ . 32045)])
#@10

(fn C)
(defalias 'math-comp-height #[257 "\211;\203�\300\207\301!\302!\\\207" [1 math-comp-ascent math-comp-descent] 4 (#$ . 32388)])
#@10

(fn C)
(defalias 'math-comp-ascent #[257 "\211:\204�\300\207\211@\301=\203$�\302A\211\262\203\"�\211\303@!]\262\202�\211\207\211@\304>\203:�\211A@\302V\2038�\211A@T\207\300\207\211@\305=\203N�\303A@!\306\3078!T]\207\211@\310=\203[�\303A@!\207\211@\311=\203h�\303\3078!\207\300\207" [1 horiz 0 math-comp-ascent (vcent vleft vright) supscr math-comp-height 2 subscr tag] 5 (#$ . 32533)])
#@10

(fn C)
(defalias 'math-comp-descent #[257 "\211:\204�\300\207\211@\301=\203$�\300A\211\262\203\"�\211\302@!]\262\202�\211\207\211@\303>\203K�\211A@[A\262A\211\262\203F�\211\304@!\\\262\2023�\211S\300]\207\211@\305=\203X�\302A@!\207\211@\306=\203k�\302A@!\304\3078!\\\207\211@\310=\203x�\302\3078!\207\300\207" [0 horiz math-comp-descent (vcent vleft vright) math-comp-height supscr subscr 2 tag] 5 (#$ . 32937)])
#@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 (#$ . 33374)])
#@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 (#$ . 33585)])
#@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 (#$ . 33905)])
#@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 (#$ . 34225)])
#@10

(fn C)
(defalias 'math-vert-comp-to-string #[257 "\211;\203�\207\300AA!\207" [math-vert-comp-to-string-step] 3 (#$ . 34440)])
#@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 (#$ . 34576)])
#@17

(fn C INDENT)
(defalias 'math-comp-to-string-raw #[514 ":\203\f�@\300=\203�\301!\207A\204�\302\303@!\304Q\207\305\306\303@!G#\302\303@!\307\310A@\"\311AA\"\304\260\207" [set prin1-to-string "(" symbol-name ")" + 2 " " math-comp-to-string-raw math-comp-to-string-raw-step] 10 (#$ . 34736)])
#@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 (#$ . 35052)])
(provide 'calccomp)