;ELC
;;; Compiled
;;; in Emacs version 26.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)
(defalias 'math-compose-var #[(a) "\306\211\n\203< \307\f\203& \f@
\232\204& \n\310=\205 \fA T\202\f \f)\203< \n\307=\2035 \311\202[ \312\313 \"\202[ \314
A@!>\203N \315!>\203Z \316!*\207" [sn v math-compose-hash-args calc-arg-values p a nil 1 t "#" format "#%d" symbol-name math-to-percentsigns math-to-underscores calc-language calc-lang-allow-percentsigns calc-lang-allow-underscores] 3])
(defalias 'math-compose-expr #[(a prec &optional div) "\306T\307 \310\f
=\203 \f\204 @\2036 @\f=\2046 \310 @\203* \f@\311\f\312\fA\"E)\202\335\f:\204H \f\250\204H \313\314\f!P\202\335\f\242B\315N\236\211\203j A\211:\203d @\f \"\202\335 \f!\202\335\316\f!\203\f\242\317=\204\216 CA@\203'\f\211 :?\206\212 \f@\320>)\203'B\203\305 B\321>\204\305 \322\f!\310 C D\312\323BE>\203\265 \324DA@!\202\271 DA@\325D8EA\"*\202\335B\326=\203!C@G\327U\203!\322\f! D\310\211 C F\330\331DA@!\203\356 \332\202\357 \333\334\327\335\336DA@!!\337\335\325D8!\257E GH\340U\203G\202 \330\341G\342\343\344H!EF,\202\335\335\f!\202\335B\326=\2046\335\fA\"\202\335\f\242\345>\203o\346\325\f8!\203O\312\fA@A\"\202\335\330\341\312\fA@\347\"\f@\350=\203b\351\202c\352\312\325\f8\347\"\343\257\202\335H\340U\204\223\f\211 :?\206\202\f@\353>)\203\223I\203\233\354J\355\"\204\233\335\fA\"\202\335\335\fA\"\310 G K\356H\357V\203\261\360\202\262\361K\"\203\333GK\347\211\224O\342\362K\325\"\362K\327\"ED\244GK\347\225\310OK\202\245\356\363K\"\203 \330K\347\211\224O\364\365\362K\327\"\362K\325\"E\362K\366\"\257KG\203\330GKC\244B\202K*\202\335\f@\367N\203\262B\370=\204\262\f@\367N\310\211 L M NBN\236\211M\203q\fGSMA\236\211L\203^\371LA\fA\"\211M\203^\312MA\"\206\256\310MA\236\211L\203qLA\f!\206\256\310N\236\211M\205\256\fGSMA\236\211L\203\236\371LA\fA\"\211M\203\236\312MA\"\206\256\310MA\236\211L\205\256LA\f!+\206\335\f@\372=\203cO\203\306O\347\327O\202\307\333 PO\203\326O\327\325O\202\327\333 Q\373R> S\374R> T\375R> UV\206\361\364 WV\206\371\333 XV\203\376\f!\204
\377R>\203\347\202\201\211 YZ\201\212 \267\202)\201\213 \202,\334\202,\201\214 [\\ ]B\201\215 >\203b\\\204b\201\216 \f!\203b\201\216 \fA@!\204b^\204q\fG\201\217 W\203k\fA@G\201\217 W\204q\306]\202bV\203~\376\fA@!\204\205\377R>\203\211\347\202\214\201\211 Y\fG\325U\203\262\330P\211\364Q\201\220 \fA@AX\364PY#\364Q\211QF\202^\fGS _\fA@GS `_S\325\245 a\201\221 B\201\222 \201\223 \201\222 \201\224 aCT\205\342P\364PS\205\353P\364PPC\201\225 _ST\205\373\201\226 S\205P\364PP\"$C\201\227 \fA\327`a$\201\222 \201\230 aC\201\225 _SS\2035\364QU\2051XQ\202FT\203EU\203E\201\231 \202F\333\"S\205P\364QPT\205Y\364QPPC$C$,\202^b\203}\fA\203}\201\232 \f!\203}\201\233 \f\306\"\202^]\203\324\fA\203\324B\201\221 =\204\324^\206\233\fG\201\217 W\211 c\203\247\fGS\202\252\201\234 \211 _S\325\245 a\310 \\\330\201\214 a\201\235 \fAc\203\312_\202\313\366\306#,BBD\202^^\204\342\fG\201\217 W\203B\201\236 N\211\203\373\201\216 \f!\203\373 \f!\202^\330P\201\220 \fAX\364PY#QF\202^\330P\201\220 \fA@\325\f8\366\f8EX\364PY#XB\201\237 N\211\203:\364 P\202=\201\240 X\364\201] D\312\fGS\f8X\333\232\203X\201\211 \202Y\347\"Q\257\n.\n\202\335\f@\201\241 =\2032\fAA\203\376\fA@\372=\203\216\330\201\242 \201\220 \fAA\351\347#\201\240 F\202\335\fA@\350=\203\250\330\341\201\220 \fAA\351\347#\201\243 F\202\335\fA@\201\244 =\203\304\330\341\201\220 \fAA\352\347#\201\245 F\202\335\fA@\201\246 =\203\363\330\325\f8\201\247 >\203\335\341\202\340\201\242 \201\220 \fAAA\201\250 \347#\201\251 F\202\335\201\252 \201\253 \f\"\202\335\fA@\372=\203\f\201\254 \202\335\fA@\201\246 =\203,\325\f8\201\255 >\203&\201\256 \202\335\201\254 \202\335\201\256 \202\335\f@\201\257 =\203p\201\260 \325\f8d\"\211 e\203T\201\261 e@!\202lB\201\262 N\211\203g \fA\"\202l\201\263 \f!)\202\335\f@\201\246 =\203\260\330\fA@\201\264 >\203\210\341\202\213\201\242 \312\325\f8\347\"\201\250 \312\366\f8\347\"\fA@\201\265 >\203\250\343\202\253\201\266 \257\202\335\f@\201\267 =\203\332f@\201\270 =\203\313\201\271 \f!\202\335\201\272 \201\271 \f!\201\273 Q\202\335\f@\201\274 =\203\364B\201\275 N\211\203\364 \f!\202\335\f@\201\274 =\203b\fG\366U\203bB\326=\203b\312\fA@\201\211 \" g\201\221 B\312\325\f8\347\" hg\242\342=\204Fg\242\311=\203X\325g8\242\342=\203X\325g8\211g\203X\342gA@\330\325g8\351hFE\202^\342ghE+\202\335\f@\201\276 =\203\320B\326=\203\320\365\201\277 \fA@!\204\245\fA@\242\201\300 >\204\245\fA@\242\350=\203\262\331\fA@A@!\203\262\325\fA@8\347=\203\262\330\341\312\fA@\347\"\343F\202\272\312\fA@\201\301 \"\201\221 \340\310 i H B\312\325\f8\347\"+E\202\335\f@\323=\203,B\326=\203,\fA@\242\201\302 >\203\357\201\221 \202\360\326 B\312\fA@\347\")\325\f8\242\201\303 >\203\n\201\221 \202 \326 B\312\325\f8\347\") h g\334\201\304 g!g\201\305 h\257*\202\335\f@\201\306 =\203\247\fG\325V\203\247B\201\307 >\203\247\fAj\fG\366U\203T\327\202U\306 k l mmA\203xm@l@\232\203xmAmlAl\202[\201\222 \201\310 mA\205\226\201\220 \201\311 \fA!A\237\351\347#\201\312 D\312\fGS\f8\347\"\201\273 D#+\202\335\f@\201\313 =\203\355\fG\325U\203\355\201\314 \fA@!\203\355\201\232 \fA@!\203\355B\370=\203\342\201\315 \201\233 \fA@\306\"\343Q\202\335\201\233 \fA@\310\"\202\335\f@\201\316 =\203\207 \fG\325U\203\207 \201\314 \fA@!\203\207 \201\232 \fA@!\203\207 B\370=\203( \201\317 \201\233 \fA@\306\"\343Q\202\335\310\201\233 \fA@\310\"\310 m K G\356\201\320 K\"\203c \347\225Sm\201] DK\347mOGBBGKm\310OK\2028 KGB\237GA\201\321 U\204 \201\322 \325EGBG\330G+B\202\335\f@\201\323 =\203\335 B\370=\204\335 \fG\366U\203\335 \325\f8\250\203\335 \312\fA@\201\324 \" GA\325\f8V\203\327 B\201\325 N\211\203\316 \330 @G AF\202\331 \330\341G\343F\202\331 G)\202\335\f@\201\326 =\203\206\nB\370=\204\206\n\fG\201\327 >\203\206\n\201\314 \fA@!\203\206\n\325\f8\250\203!\n\366\f8\203;\n\201\314 \366\f8!\203\206\n\201\232 \366\f8!\2028\n\325\f8\203;\n\201\314 \325\f8!\203\206\n\201\232 \325\f8!\203\206\n\325\f8\250\205E\n\325\f8\211 n\203O\n\366\202P\n\325\f8 o\310 po\203u\n\201\220 \fA@A\201\233 o\310\"n\206q\nA#\202\202\n\330\201\330 \201\331 \fA@A\"B+\202\335\f@\201\332 >\203
B\370=\204
\fG\201\333 >\203
\201\314 \fA@!\203
\325\f8\203\266\n\325\f8\250\203
\347\211 a e\325\f8\206\304\nA A\201\330 \201\334 \fA@A\" G\201\335 \310G\"\211G\203 \f@\201\336 =\203\355\n\334\202\377\n\f@\201\337 =\203\374\n\201\214 \202\377\n\201\213 aGBB\202 \364,\202\335\f@\201\340 >\203W B\370=\204W \fG\201\341 >\203W \366\f8\2033 \366\f8\250\203W \f@\201\342 =\203@ \365\202A \342\312\fA@\366\f8\206L \347\"\312\325\f8\347\"E\202\335\f@\201\343 =\203\240 B\370=\204\240 \fG\201\344 >\203\240 \325\f8\203} \325\f8\250\203\240 B\201\345 >\203\214 \201\221 \202\216 B B\312\fA@\325\f8\206\233 \347\")\202\335\f@\201\346 =\203 \f\fG\201\347 >\203 \f\201\350 \fA@!\203 \f\325\f8\203\363 \330\201\225 \fA@\201\314 \325\f8!\203\350 \201\232 \325\f8!\203\350 \201\233 \325\f8\310\"\202\356 \312\325\f8\347\"\"B\202\335\201\351 \fA@\201\352 \"\202\335\f@\201\353 >\203\260\f\fG\201\354 >\203\260\f\201\350 \fA@!\203\260\f\fA@\347U\203(\f\333\202\335\325\f8\203V\f\201\314 \325\f8!\203M\f\201\232 \325\f8!\203M\f\201\233 \325\f8\310\"\202W\f\312\325\f8\347\"\202W\f\364 G\201\355 G! q\201\356 G! r\201\214 \f@\201\357 =\203{\fqS\202\241\f\f@\201\360 =\203\225\f\fA@Sqr\\_qS\\\202\241\f\fA@qr\\_S\325\245\201\225 \fA@G\"+BB\202\335\f@\201\361 =\203\367\f\306\211s\203\367\fB\201\362 N\211\203\367\f@\203\325\f\325\202\326\f\327U\203\367\f\fG\366U\203\367\f\330 @\312\fA@\347\" A\312\325\f8\347\"\257\202\335B\370=?\205!
\f@\201\363 =\203
\fG\201\364 U\203
\354\201\365 \n\"\202!
\201\366 \f@\n\"\211 t\203\243\fG\366U\2047
\f@\201\363 =\203\243\366t8\201\324 U\204\243A\201\364 t8\206V
\325t8\366t8^V\204h
u\203\f@\201\367 =\203B\201\370 >\203\242
\201\371 \f!\204\242
\f\242\323=\203\221
\330\201\372 \312\f\201\324 \"\201\373 F\202\334\330\201\374 \312\f\201\324 \"\201\375 F\202\334B\201\376 =\203\372
\f\242\323=\204\277
A\201\377 \245\201 U\203\320
\330\201\372 \312\f\201\324 \"\201\373 F\202\334\201\371 \f!\203\351
\330\201\312\f\201\324 \"\201F\202\334\330\201\312\f\201\324 \"\201F\202\334\330\341\312\f\347\"\343F\202\334B\201>\203/\f@\201>\203/A\347Y\203/\330\201\372 \312\f\201\324 \"\201\373 F\202\334\f@\201\363 =\203\\\330\312\fA@\325t8\"\201\312\325\f8\347\"\201\312 \312\366\f8\366t8\"\257\202\334@\205l\201\f!?\205l@ @A\325t8\366t8^U\203\204S\310\202\205 v\312\fA@\325t8\" w\312\325\f8\366t8tA@\323=# xt@\201 \232\203\302\201\nw!\201 =\203\302\330\341w\343FwB\201\f>\203\371t@\201 \232\204\337t@\201
\232\203\371x;\203\355xG\327U\204\371\330\201\372 x\201\373 Fx\f@\201\367 =\203B\203\354\201\n\"\203\201\fA@! y\201\325\f8! z\201w!\206?y\242\201>\205?B\326=\205?\201 {\201\nx!\206^z\242\201>\205^B\326=\205^\201 |{\205
|\205
|\201Y\203||\201X\204\345|\201Y\203\216|\201X\204\345|\201Y\203\240|\201X\204\345|\201Y\203\262|\201 X\204\345|\201Y\203\304|\201 X\204\345|\201 >\204\345|\201 =\205
\356\201 \201!x!\"?\205
y\242\201\257 =\205\365|\201\"=?\205
\330\201\322 v\327Ew\201] D\364x\257,\206\237\330\201\322 v\327Ew\201] Dt@\201 \232\204xt@\201
\232\204xt@\201#\232\204xt@\201$\232\203Z\201w!\203Z\201\nx!\204xt@\201%\232\203~\201&\fA@!\203~\201'\325\f8!\203~t@\202\233B\326=\203\225t@\201(\232\203\225\201)\202\233\364t@\364Qx\257,\202\334t\203\216\fG\325U\203\216\366t8\201\324 U\203\216A\201\364 t8\206\311\325t8V\204\340\354t@\n\"t=\204^A\347V\203^B\201*>\203\201\371 \f!\204\330\201\374 \312\f\201\324 \"\201\375 F\202\334B\201\376 =\203SA\201\377 \245\201 U\203)\330\201\372 \312\f\201\324 \"\201\373 F\202\334\201\371 \f!\203B\330\201+\312\f\201\324 \"\201,F\202\334\330\201\312\f\201\324 \"\201F\202\334\330\341\312\f\347\"\343F\202\334\312\fA@\325t8\" w\330wt@G\327V\204~\201-w!\204\206\364t@P\202\211t@E)\202\334t\203\fG\325U\203\325t8\201\324 U\203\366t8\347=\203,B\201.>\205\277\201\371 \fA@!? }\330}\203\315\201/\202\316\333\356\2010t@\"\203\342t@\327\310O\202\345t@}\204\363t@G\325V\203\367\364\202\370\333\312\fA@\201\324 \"}\204t@G\325V\203\364\202\333}\203 \2011\202 \333t\n>A@@\257)\202\334A\201\364 t8\206;\366t8V\203\275B\2012>\203a\201\371 \f!\204a\330\201\374 \312\f\201\324 \"\201\375 F\202\334B\201\376 =\203\262A\201\377 \245\201 U\203\210\330\201\372 \312\f\201\324 \"\201\373 F\202\334\201\371 \f!\203\241\330\201+\312\f\201\324 \"\201,F\202\334\330\201\312\f\201\324 \"\201F\202\334\330\341\312\f\347\"\343F\202\334\312\fA@\366t8\" x\330\356\2010t@\"\203\335t@\327\310O\202\340t@\211 ~G\327V\204\362\201-x!\204\371~\364P\202\373~)xE)\202\334B\326=\203 \f@\2013N\211t\203 t\fA\"\206\334B\2014\236\211t\203@\f@tAN\211t\203@t\fA\"\206\334\f@\211 \2015\236 \200\310\211 \201 \202\310 \203\200\203^\200A\201\260 \204\"\211\200\203q\200@\2016\356\2017\201\261 !\"\203\216\362\201\261 !\327\"\202\224\201\261 !!B\205>\203\247\2018!B\206>\203\267\2019!B\201:N\211\203\312 \f\"\202\333\330\207\201\220 \fA\351\347#\210\257-),\207" [math-compose-level spfn math-expr-opers calc-multiplication-has-precedence a math-comp-selected t math-expr-ops nil tag math-compose-expr "'" prin1-to-string math-special-function-table math-scalarp frac (bigpos bigneg) (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 ", " "; " (bigpos bigneg 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 math-comp-tagged prec calc-language calc-frac-format aa calc-lang-slash-idiv math-radix-explicit-format c calc-number-radix calc-group-digits calc-group-char s temp2 temp comps calc-vector-brackets math-comp-left-bracket math-comp-right-bracket calc-matrix-brackets inner-brackets outer-brackets row-commas calc-vector-commas math-comp-comma-spc math-comp-comma math-comp-vector-prec calc-matrix-just math-comp-just calc-break-vectors break calc-full-vectors rows cols base calc-display-strings full math-expr-variable-mapping v calc-date-format a1 a2 calc-twos-complement-mode calc-arg-values math-compose-hash-args ap p cprec sep bprec ca cd calc-any-evaltos op div setlev lhs rhs prevt nextt prevc nextc lr ops func func2 left right args math-expr-function-mapping calc-lang-allow-percentsigns calc-lang-allow-underscores calc-function-open calc-function-close 1000 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 799 center 805)) 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 " ..." 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 math-vectorp "string(" calcFunc-bstring "bstring(" "[^ ] +[^ ]" -123 set calcFunc-cprec -1 math-big-parens calcFunc-choriz (2 3 4) mapcar #[(x) "\242\304=\203 \305 \206 \n\206 \"\306\207\305\n\206 \"\207" [x bprec cprec prec calcFunc-bstring math-compose-expr -123] 3] (calcFunc-cvert calcFunc-clvert calcFunc-crvert) (2 3) #[(x) "\306\211\211\211\f\242\307>\203 \fG\310>\203 \f@\fA@\f\242\311=\203z \fG\312>\203z \fA@\203Z \313\fA@!\203J \fA@G\314U\203J \315\fA@!\204Z \316\fA@!\203z \fA@\317X\203z \320\313\fA@!\203n \321\fA@\306\"\322H\202u \fA@\206u \323D\202\231 \f\242\324>\203\220 \fG\325>\203\220 \fA@\322=\204\231 \f\203\231 \326\f
\"\n\203\243 \327\n!\202\244 \322\n\203\257 \330\n!\202\260 \322 \331=\203\302 \332 \333# \202\336 \334=\203\317 \202\336 \335=\203\336 \332 \333$ \332 # \n,\207" [d a cc b x prec nil (calcFunc-cbase calcFunc-ctbase calcFunc-cbbase) (1 2) calcFunc-crule (1 2) math-vectorp 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 v base] 5] 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 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] 13])
(defalias 'math-prod-first-term #[(x) "\242\301=\203 A@\211\202 \207" [x *] 3])
(defalias 'math-prod-last-term #[(x) "\242\301=\203 \3028\211\202 \207" [x * 2] 3])
(defalias 'math-compose-vector #[(a sep prec) "\203A \305\306 D\307@\n\"CA\211\203; @\242\310=\203* S\307@\311\")\202/ \307@\n\"\312 D\f BBB\202 \237)BB\207\313\207" [a math-compose-level prec c sep horiz set math-compose-expr calcFunc-bstring -123 break ""] 6])
(defalias 'math-vector-no-parens #[(a) "AA\206
A@\242\301=?\207" [a *] 2])
(defalias 'math-compose-matrix #[(a col cols base) "\306\307 T\211\nX\203 \f\310\311
\"BBB\202 \237*\207" [res col cols math-comp-just base a 0 nil mapcar #[(r) "\305\306 8\n\" U\203 \307\202 \f\310PE\207" [col r math-comp-vector-prec cols math-comp-comma-spc horiz math-compose-expr "" " "] 4]] 5])
(defalias 'math-compose-rows #[(a count first) "A\203P \306X\2032 \306W\203 \307A\310\311#\207\n\312N\211\203& \313 P\202' \314)\fP\307A\310\311#B\207\315
\203> \313P\202? \316\317@\"\fF\307A S\311#B\207\315
\203\\ \313P\202] \316\317@\"\313PFC\207" [a count calc-language mdots math-comp-comma first 0 math-compose-rows -1 nil math-dots " " " ..." horiz " " math-compose-expr math-comp-left-bracket math-comp-vector-prec math-comp-right-bracket] 6])
(defalias 'math-vector-is-string #[(a) "A\211\2038 \301@!\203 @\302X\204 @\242\303=\2038 \301@A@!\2038 \304@8\305=\2038 @A@\302X\204 ?\207" [a natnump 255 cplx 2 0] 2])
(defconst math-vector-to-string-chars '((34 . "\\\"") (92 . "\\\\") (7 . "\\a") (8 . "\\b") (27 . "\\e") (12 . "\\f") (10 . "\\n") (13 . "\\r") (9 . "\\t") (127 . "\\^?")))
(defalias 'math-vector-to-string #[(a &optional quoted) "\306\307A\"\260\310\311\"\203\205 \312 \203 \311\202 \313 \203! \n\202\" \314 \203* \315\202+ \316\317 \310#\211\203\204 H
\236\211\203e \312O AT\317OQ AG\\\2023 \312O\320\fH\321\\\"T\317OQ\322\\\2023 - \203\216 \323\323Q\207\207" [a quoted math-vector-to-string-chars new fmt codes mapcar #[(x) ":\203 A@\207\207" [x] 1] string-match "[ - \\\"]" 0 "[ - ]" ((127 . "^?")) "\\^%c" "^%c" nil format 64 2 "\"" pat p] 5])
(defalias 'math-to-underscores #[(x) "\301\302\"\203 \303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)#\\(.*\\)\\'" math-to-underscores math-match-substring 1 "_" 2] 6])
(defalias 'math-to-percentsigns #[(x) "\301\302\"\203 \303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)o'o\\(.*\\)\\'" math-to-underscores math-match-substring 1 "%" 2] 6])
(defalias 'math-tex-expr-is-flat #[(a) "\211:?\206\f @\301>)\206= @\302>\206= @\303>\2031 A\211\203, \304@!\204 ?\206= @\305>\205= \304A@!\207" [a (bigpos bigneg) (float var) (+ - * neg) math-tex-expr-is-flat (^ calcFunc-subscr)] 3])
(put 'calcFunc-log 'math-compose-big 'math-compose-log)
(defalias 'math-compose-log #[(a prec) "G\302U\205 \303\304\305\306\307\3108\311\")E\312\307A@\311\"\313\257\207" [a calc-language 3 horiz subscr "log" flat math-compose-expr 2 1000 "(" ")"] 6])
(put 'calcFunc-log10 'math-compose-big 'math-compose-log10)
(defalias 'math-compose-log10 #[(a prec) "G\301U\205 \302\303\304\305E\306\307A@\310\"\311\257\207" [a 2 horiz subscr "log" "10" "(" math-compose-expr 1000 ")"] 6])
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put calcFunc-deriv math-compose-big math-compose-deriv calcFunc-tderiv] 4)
(defalias 'math-compose-deriv #[(a prec) "G\302U\205 \303\304\305\306\307A@ED\305\306\310\3118EDE \"\207" [a prec 3 math-compose-expr / calcFunc-choriz vec (calcFunc-string (vec 100)) (calcFunc-string (vec 100)) 2] 8])
(put 'calcFunc-sqrt 'math-compose-big 'math-compose-sqrt)
(defalias 'math-compose-sqrt #[(a prec) "G\305U\205N \306A@\307\"\310 !\311 !\n\\\312 ! \313 \314U\203* \315\202+ \316\317\f\305\\\320\"P\321 \314U\203= \322\202I \323\313SD\324 S\325\"\326#\315 FF-\207" [a c d h w 2 math-compose-expr 0 math-comp-ascent math-comp-descent math-comp-width vleft 1 " " " " make-string 95 horiz "V" append make-list " |" ("\\|")] 9])
(put 'calcFunc-choose 'math-compose-big 'math-compose-choose)
(defalias 'math-compose-choose #[(a prec) "\303A@\304\"\303\3058\304\"\306\307\310\311\n!\n\312 \257\313F*\207" [a a2 a1 math-compose-expr 0 2 horiz "(" vcent math-comp-height " " ")"] 7])
(put 'calcFunc-integ 'math-compose-big 'math-compose-integ)
(defalias 'math-compose-integ #[(a prec) "G\306>\205\324 \3078\242\303=\205\324 \310Y\205 \311U?\312\3078\313\"\3078\242\303=\205N A@\242\314=\203> \315A@A@!\206N A@\242\316=\205N \317\307A@8! \312\f\203f \320A@\321\322\323\3078A@\"!\"\202i A@\324\" \325 !\3268\205{ \312\3268\313\" \"\3278\205\211 \312\3278\313\" #\330\n\203\224 \331\202\225 \332\333\334#\203\240 \326\202\241 \307D#\205\255 \330\335#EC\336\"\205\271 \330\"\335EC$
\f\203\303 \332\202\307 \330\337 E\n\203\317 \340\202\320 \332\257.\207" [a prec parens var over expr (3 5) 2 196 1000 math-compose-expr 0 / math-numberp ^ math-looks-negp math-mul math-build-var-name format "d%s" 185 flat 3 4 horiz "(" "" append vcent " " (" /" " | " " | " " | " "/ ") " d" ")" calc-language low high] 9])
(put 'calcFunc-sum 'math-compose-big 'math-compose-sum)
(defalias 'math-compose-sum #[(a prec) "G\306>\205\200 \307A@\310\"\311\307\3128\313\"\3148\205# \307\3148\313\" \3158\2051 \316\315\233\317\313# \320 \321>\203> \322\202? \323\324\325
\203I \314\202J \312D
\205Q
C\326\f\203_ \320 \327\fFC\202a C$A@\242\330>\203o \331\202p \323 \332>\203| \333\202} \323\257-\207" [a expr calc-language var low high (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) ")" prec] 10])
(put 'calcFunc-prod 'math-compose-big 'math-compose-prod)
(defalias 'math-compose-prod #[(a prec) "G\306>\205\200 \307A@\310\"\311\307\3128\313\"\3148\205# \307\3148\313\" \3158\2051 \316\315\233\317\313# \320 \321>\203> \322\202? \323\324\325
\203I \314\202J \312D
\205Q
C\326\f\203_ \320 \327\fFC\202a C$A@\242\330>\203o \331\202p \323 \332>\203| \333\202} \323\257-\207" [a expr calc-language var low high (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) ")" prec] 10])
(defalias 'math-stack-value-offset-fancy #[nil "\306!\307\\\n\310\267\202? \203 \311]\202
\250\203
\312\f \fG
\250\2035 \2035
Z\307]\2026 \307Z\307]#
\202z \203l \313\245Z
\250\203[
\312
\fG#^
\307Y\203z \f
\\]\202z
\250\203s
\f Z\313\245
\250\205\223
\307W\204\220 \205\223
V\205\223
\211)\207" [math-svo-c cwid calc-display-just calc-display-origin math-svo-wid calc-line-breaking math-comp-width 0 #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 12)) 5 - 2 calc-right-label math-svo-off] 6])
(defalias 'math-composition-to-string #[(c &optional width) "\204 \303 \203 \304\n\305\"\207\306\n!\203 \307\n\"\207\310\311\n\"!\207" [width calc-display-raw c 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] 4])
(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))
(defalias 'math-comp-is-flat #[(c) ":\204 \301\207@\302>\203 \301\207@\303=\203( A\211\203% \304@!\204 ?\207@\305>\203D G\306U\205R A@\307U\205R \304\3108!\207@\311=\203Q \304\3108!\207\312\207" [c t (set break) horiz math-comp-is-flat (vleft vcent vright) 3 0 2 tag nil] 3])
(defalias 'math-comp-to-string-flat #[(c math-comp-full-width) "\203 \306\307\n!)\207\310\211\306\211 \205 \f\311 \312\313!\210\312\n!\210\312\314!\210\306H\310 \211 G\306V\203\215 \306H\315U\203\215 G\306V\203\215 G S\211H\316U\203Q \315I\210TGW\203\211 TH\315U\203\211 T\316I\210\317\202\214 \320)Q.\207" [math-comp-sel-hpos math-comp-pos c math-comp-selected calc-show-selections math-comp-level 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 prefix str k] 7])
(defalias 'math-comp-to-string-flat-term #[(c) ":\204# \203
\306!\nG\307U\203 \202 \nP G\\\211\207@\310=\2039 A\211\205.\311@!\210\202* @\312=\203~ A@\205.\fT\211
GY\203c \313
\211\"\313\211\"\313\211\"
\f\314I\210\f \3158\206s \307\\I\210\fA@I\207@\316=\203\367 \204\224 \nP \314\211\207\307\317 V\203\236
H\211 G\307U\203\275 \fW\203\275 T \202\241 G\307V\204\315 G\307V\203\236\314\317\211 ! \" # H\211\"\320V\203\357 $\203\354 \321\202\355 \322\" G%\\! G\307V\203Q \307H\323U\203Q G\307V\203Q G & &S\211&H\324U\203 &\323I\210&T GW\203M &TH\323U\203M &T\324I\210\325#\202P\326#) # \326\327\"\323\"\260 \"!Z\\\"%
\314I\210 T\211 \fX\203\235 H!V\203s H\"!Z\\I\210\202s+*A@\fHU\205\262 \fH\315\\W?\205\366
\fH\211 G\307U\203\306\n\202\312 \nP \314A@\fHW\203\360\fS
\fHG\307U\204\316
\fH P \202\316
\f I)\207@\330=\203)A@'=\203(?\311\3158!)\207A@\331=\203#\317\311\3158!)\207\311\3158!\207\311\3158!\207" [c math-comp-highlight math-comp-word math-comp-pos math-comp-level math-comp-buf-string 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-margin math-comp-buf-level calc-line-breaking math-comp-buf str i math-comp-full-width wid mrg prefix calc-line-numbering math-comp-margin k math-comp-selected calc-show-selections] 8])
(defalias 'math-comp-highlight-string #[(s) "\304! \203 \n\204 \305\306\307#\207\305\306\310#\207G S\211\311Y\203< H\312>\204 \n\2036 \313\2027 \314I\210\202 )\207" [s calc-highlight-selections-with-faces calc-show-selections i copy-sequence propertize face calc-selected-face calc-nonselected-face 0 (32 10) 46 35] 4])
(defalias 'math-comp-sel-flat-term #[(c) ":\204\f G\\\211\207@\304>\206Z @\305=\2030 A\211\205/ \n\306W\205Z \307@!\210\202 \207@\310=\203U \nX\203O \307\3118!\210 \nV\205T \306\211\207\307\3118!\207\307\3118!\207" [c math-comp-pos math-comp-sel-cpos math-comp-sel-tag (set break) horiz 1000000 math-comp-sel-flat-term tag 2] 3])
(defalias 'math-comp-simplify #[(c full-width) "\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 c] 7])
(defalias 'math-comp-add-string #[(s h v) "G\306V\205q \n\\\f\203 \307
G\310$\202p \306W\2037 \311 [\312\"\244 [ Z\306\202O Y\203O \311 ZT\312\"\244 T \233\211 \211@\313
@GZ\314\"\203l \315!\202m Q\240))\207" [s v math-comp-base vv math-comp-sel-hpos h 0 math-comp-add-string-sel 1 make-list "" make-string 32 math-comp-highlight-string math-comp-buf math-comp-hgt str math-comp-highlight] 6])
(defalias 'math-comp-add-string-sel #[(x y w h) " X\205# \n\\ V\205# \fX\205#
\\\fV\205# \306\211\207" [y math-comp-sel-vpos h x math-comp-sel-hpos w 10000 math-comp-tag math-comp-sel-tag] 2])
(defalias 'math-comp-simplify-term #[(c) ";\203 \306 \n#\210 G\\\211\207@\307>\203 \310\207@\311=\2031 A\211\205w\312@!\210\202\" @\313>\203\272 \nA@Z\314\3158!S\\\316\317AA\"\320\321 \" @\322=\203\\ \323\202h @\324=\203g \325\202h \315 AA\211\203\263 @\242\326=\203\212 \306\327\f@A@\" \n#\210\202\233
\f @Z_\315\245\\\312@!\210)A\203l \n\330@!\314A@!\\\\ A\202l \f\\\211,\207@\331=\203\375 \325 !\330\3158! \" \312A@!\210 #\n!\"\\Z\312\3158!\210$\205\373 \332#\333\n\334\314\3158!# #Z\335!$,\207@\336=\203@\314\3158! !\330A@! \"\n % \312A@!\210 #\n!\"\\\\\312\3158!\210$\205>\332#% #Z\335!$-\207@\337=\205wA@&=\203\\'? (\312\3158!)\207A@\340=\203n\310 (\312\3158!)\207 )\312\3158!)\207" [c math-comp-hpos math-comp-vpos widths maxwid bias 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 asc desc oldh math-comp-sel-hpos oldv math-comp-selected calc-show-selections math-comp-highlight math-comp-tag] 8])
(defalias 'math-comp-first-char #[(c) ";\203 G\301V\205: \301\234\207@\302>\203. A\211\203% \303@!\204 \205: \304@!\207@\305=\205: \304\3068!\207" [c 0 (horiz subscr supscr) math-comp-is-null math-comp-first-char tag 2] 3])
(defalias 'math-comp-first-string #[(c) ";\203 G\301V\2058 \207@\302=\203, A\211\203# \303@!\204 \2058 \304@!\207@\305=\2058 \304\3068!\207" [c 0 horiz math-comp-is-null math-comp-first-string tag 2] 3])
(defalias 'math-comp-last-char #[(c) ";\203 G\301V\205F \211GS\234\207@\302=\203: \303A!\211\2030 \304@!\2030 A\211\204\" \2058 \305@!)\207@\306=\205F \305\3078!\207" [c 0 horiz reverse math-comp-is-null math-comp-last-char tag 2] 4])
(defalias 'math-comp-is-null #[(c) ";\203\n G\301U\207@\302>\203\" A\211\203 \303@!\204 ?\207@\304=\203/ \303\3058!\207@\306>\2057 \307\207" [c 0 (horiz subscr supscr) math-comp-is-null tag 2 (set break) t] 3])
(defalias 'math-comp-width #[(c) ":\204 G\207@\302>\203% \303A\211\203\" \304@!\\\202 )\207@\305>\203E A\303A\211\203B \304@!]\2021 )\207@\306=\203R \304\3078!\207\303\207" [c accum (horiz subscr supscr) 0 math-comp-width (vcent vleft vright) tag 2] 3])
(defalias 'math-comp-height #[(c) ";\203 \301\207\302!\303!\\\207" [c 1 math-comp-ascent math-comp-descent] 3])
(defalias 'math-comp-ascent #[(c) ":\204 \302\207@\303=\203$ \304A\211\203! \305@!]\202 )\207@\306>\203: A@\304V\2038 A@T\207\302\207@\307=\203N \305A@!\310\3118!T]\207@\312=\203[ \305A@!\207@\313=\203h \305\3118!\207\302\207" [c accum 1 horiz 0 math-comp-ascent (vcent vleft vright) supscr math-comp-height 2 subscr tag] 4])
(defalias 'math-comp-descent #[(c) ":\204 \302\207@\303=\203$ \302A\211\203! \304@!]\202 )\207@\305>\203J A@[AA\211\203D \306@!\\\2023 S\302])\207@\307=\203W \304A@!\207@\310=\203j \304A@!\306\3118!\\\207@\312=\203w \304\3118!\207\302\207" [c accum 0 horiz math-comp-descent (vcent vleft vright) math-comp-height supscr subscr 2 tag] 4])
(defalias 'calcFunc-cwidth #[(a &optional prec) "\203 \250\204 \302\303\"\210\304\305 \206 \306\"!\207" [prec a math-reject-arg fixnump math-comp-width math-compose-expr 0] 4])
(defalias 'calcFunc-cheight #[(a &optional prec) "\203 \250\204 \302\303\"\210 @\304>\203& G\305>\203& A@\306=\203& \306\207\307\310 \206. \306\"!\207" [prec a math-reject-arg fixnump (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) 0 math-comp-height math-compose-expr] 4])
(defalias 'calcFunc-cascent #[(a &optional prec) "\203 \250\204 \302\303\"\210 @\304>\203& G\305>\203& A@\306=\203& \306\207\307\310 \206. \306\"!\207" [prec a math-reject-arg fixnump (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) 0 math-comp-ascent math-compose-expr] 4])
(defalias 'calcFunc-cdescent #[(a &optional prec) "\203 \250\204 \302\303\"\210\304\305 \206 \306\"!\207" [prec a math-reject-arg fixnump math-comp-descent math-compose-expr 0] 4])
(defalias 'math-vert-comp-to-string #[(c) ";\203 \207\301AA!\207" [c math-vert-comp-to-string-step] 2])
(defalias 'math-vert-comp-to-string-step #[(c) "A\203 @\301\302A!Q\207@\207" [c "\n" math-vert-comp-to-string-step] 4])
(defalias 'math-comp-to-string-raw #[(c indent) ":\203\f @\303=\203 \304!\207A\204 \305\306@!\307Q\207\310 \311\306@!G#\305\306@!\312\313A@\n\"\314AA\n\"\307\260)\207" [c indent next-indent set prin1-to-string "(" symbol-name ")" + 2 " " math-comp-to-string-raw math-comp-to-string-raw-step] 7])
(defalias 'math-comp-to-string-raw-step #[(cl indent) "\203 \302\303 \304\"\305@ \"\306A \"R\207\307\207" [cl indent "\n" make-string 32 math-comp-to-string-raw math-comp-to-string-raw-step ""] 6])
(provide 'calccomp)
|