Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calccomp.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:40 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calccomp.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calccomp.el' was compiled for Emacs 19.29 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) "T\306 \307\f=\203�\204�
\2030�
=\2040�\307
\203$�\310\311@\"E)\202\247:\204B�\250\204B�\312\313!P\202\247\242A\314N\236\211\203d�	A\211:\203^�	@	\"\202\247	!\202\247\315!\203\242\316=\204\210�BA@\203!\211:?\206\204�@\317>)\203!A\203\277�A\320>\204\277�\321!\307BC\311\322AD>\203\257�\323CA@!\202\263�CA@\324C8E@\"*\202\247A\325=\203B@G\326U\203\321!C\307\211BE\327\330CA@!\203\350�\331\202\351�\332\333\326\334\335CA@!!\336\334\324C8!\257EFG\337U\203F\202\327\340F\341\342\343G!EF,\202\247\334!\202\247A\325=\2040\334@\"\202\247\242\344>\203i\345\3248!\203I\311A@@\"\202\247\327\340\311A@\346\"@\347=\203\\\350\202]\351\311\3248\346\"\342\257\202\247G\337U\204\215\211:?\206|@\352>)\203\215H\203\225\353I\354\"\204\225\334@\"\202\247\334@\"\307FJ\355G\356V\203\253\357\202\254\360J\"\203\325FJ\346\211\224O\341\361J\324\"\361J\326\"ED\244FJ\346\225\307OJ\202\237\355\362J\"\203\372\327J\346\211\224O\363\364\361J\326\"\361J\324\"E\361J\365\"\257JF\203\n\327FJC\244B\202\fJ*\202\247@\366N\203\254A\367=\204\254@\366N\307\211KLMAM\236\211L\203kGSLA\236\211K\203X\370KAA\"\211L\203X\311L@\"\206\250\307LA\236\211K\203kKA!\206\250\307M\236\211L\205\250GSLA\236\211K\203\230\370KAA\"\211L\203\230\311L@\"\206\250\307LA\236\211K\205\250KA!+\206\247@\371=\203fN\203\300N\346\326O\202\301\332ON\203\320N\326\324O\202\321\332P\372Q>R\373Q>S\374Q>TU\206\353\363VU\206\363\332WU\203�\375!\204\376Q>\203\346\202\f\377XY\201�=\203\201\206�\202-Y\201\207�=\203*\333\202-\201\210�Z[\\A\201\211�>\203c[\204c\201\212�!\203c\201\212�A@!\204c]\204tG\201\213�W\203lA@G\201\213�W\204t\201\214�\\\202cU\203\201\375A@!\204\210\376Q>\203\214\346\202\215\377XG\324U\203\263\327O\211\363Q\201\215�A@AW\363PX#\363P\211QF\202aGS^A@GS_^S\324\245`\201\216�A\201\217�\201\220�\201\217�\201\221�`CS\205\343O\363PR\205\354O\363PPC\201\222�^SS\205\374\201\223�R\205O\363PP\"$C\201\224�A\326_`$\201\217�\201\225�`C\201\222�^SR\2036\363PT\2052WQ\202GS\203FT\203F\201\226�\202G\332\"R\205Q\363PPS\205Z\363PPPC$C$,\202aa\203\200A\203\200\201\227�!\203\200\201\230�\201\214�\"\202a\\\203\331A\203\331A\201\216�=\204\331]\206\236G\201\213�W\211b\203\252GS\202\255\201\231�\211^S\324\245`\307[\327\201\210�`\201\232�Ab\203\315^\202\316\365\201\214�#,BBD\202a]\204\347G\201\213�W\203A\201\233�N\211\203�\201\212�!\203�	!\202a\327O\201\215�AW\363PX#PF\202a\327O\201\215�A@\3248\3658EW\363PX#WA\201\234�N\211\203?\363	P\202B\201\235�W\363\201\\�D\311GS8W\332\232\203[\377\202\\\346\"P\257\n.\n\202\247@\201\236�=\2035AA\203A@\371=\203\221\327\201\237�\201\215�AA\350\346#\201\235�F\202\247A@\347=\203\253\327\340\201\215�AA\350\346#\201\240�F\202\247A@\201\241�=\203\307\327\340\201\215�AA\351\346#\201\242�F\202\247A@\201\243�=\203\366\327\3248\201\244�>\203\340\340\202\343\201\237�\201\215�AAA\201\245�\346#\201\246�F\202\247\201\247�\201\250�\"\202\247A@\371=\203\201\251�\202\247A@\201\243�=\203/\3248\201\252�>\203)\201\253�\202\247\201\251�\202\247\201\253�\202\247@\201\254�=\203s\201\255�\3248c\"\211d\203W\201\256�d@!\202oA\201\257�N\211\203j	@\"\202o\201\260�!)\202\247@\201\243�=\203\263\327A@\201\261�>\203\213\340\202\216\201\237�\311\3248\346\"\201\245�\311\3658\346\"A@\201\262�>\203\253\342\202\256\201\263�\257\202\247@\201\264�=\203\335e@\201\265�=\203\316\201\266�!\202\247\201\267�\201\266�!\201\270�Q\202\247@\201\271�=\203\367A\201\272�N\211\203\367	!\202\247@\201\271�=\203cG\365U\203cA\325=\203c\311A@\377\"f\201\216�A\311\3248\346\"gf\242\341=\204Gf\242\310=\203Y\324f8\242\341=\203Y\324f8\211f\203Y\341fA@\327\324f8\350gFE\202_\341fgE+\202\247@\201\273�=\203\316A\325=\203\316\364\201\274�A@!\204\246A@\242\201\275�>\204\246A@\242\347=\203\263\330A@A@!\203\263\324A@8\346=\203\263\327\340\311A@\346\"\342F\202\273\311A@\201\276�\"\201\216�\337GA\311\3248\346\"*E\202\247@\322=\203*A\325=\203*A@\242\201\277�>\203\355\201\216�\202\356\325A\311A@\346\")\3248\242\201\300�>\203\201\216�\202	\325A\311\3248\346\")gf\333\201\301�f!f\201\302�g\257*\202\247@\201\303�=\203\247G\324V\203\247A\201\304�>\203\247AhG\365U\203R\326\202U\201\214�ijkkA\203xk@j@\232\203xkAkjAj\202[\201\217�\201\305�kA\205\226\201\215�\201\306�A!A\237\350\346#\201\307�D\311GS8\346\"\201\270�D#+\202\247@\201\310�=\203\357G\324U\203\357\201\311�A@!\203\357\201\227�A@!\203\357A\367=\203\344\201\312�\201\230�A@\201\214�\"\342Q\202\247\201\230�A@\307\"\202\247@\201\313�=\203\213	G\324U\203\213	\201\311�A@!\203\213	\201\227�A@!\203\213	A\367=\203,	\201\314�\201\230�A@\201\214�\"\342Q\202\247\307\201\230�A@\307\"\307kJF\355\201\315�J\"\203g	\346\225Sk\201\\�DJ\346kOFBBFJk\307OJ\202<	JFB\237F@\201\316�U\204\203	\201\317�\324EFBF\327F+B\202\247@\201\320�=\203\341	A\367=\204\341	G\365U\203\341	\3248\250\203\341	\311A@\201\321�\"F@\3248V\203\333	A\201\322�N\211\203\322	\327	@F	AF\202\335	\327\340F\342F\202\335	F)\202\247@\201\323�=\203\212\nA\367=\204\212\nG\201\324�>\203\212\n\201\311�A@!\203\212\n\3248\250\203%\n\3658\203?\n\201\311�\3658!\203\212\n\201\227�\3658!\202<\n\3248\203?\n\201\311�\3248!\203\212\n\201\227�\3248!\203\212\n\3248\250\205I\n\3248\211l\203S\n\365\202T\n\3248m\307nm\203y\n\201\215�A@A\201\230�m\307\"l\206u\n@#\202\206\n\327\201\325�\201\326�A@A\"B+\202\247@\201\327�>\203A\367=\204G\201\330�>\203\201\311�A@!\203\3248\203\272\n\3248\250\203\346\211`d\3248\206\310\n@@\201\325�\201\331�A@A\"F\201\332�\307F\"\211F\203\f@\201\333�=\203\361\n\333\202@\201\334�=\203�\201\210�\202\201\206�`FBB\202
\363,\202\247@\201\335�>\203[A\367=\204[G\201\336�>\203[\3658\2037\3658\250\203[@\201\337�=\203D\364\202E\341\311A@\3658\206P\346\"\311\3248\346\"E\202\247@\201\340�=\203\244A\367=\204\244G\201\341�>\203\244\3248\203\201\3248\250\203\244A\201\342�>\203\220\201\216�\202\222AA\311A@\3248\206\237\346\")\202\247@\201\343�=\203\fG\201\344�>\203\f\201\345�A@!\203\f\3248\203\367\327\201\222�A@\201\311�\3248!\203\354\201\227�\3248!\203\354\201\230�\3248\307\"\202\362\311\3248\346\"\"B\202\247\201\346�A@\201\347�\"\202\247@\201\350�>\203\264\fG\201\351�>\203\264\f\201\345�A@!\203\264\fA@\346U\203,\f\332\202\247\3248\203Z\f\201\311�\3248!\203Q\f\201\227�\3248!\203Q\f\201\230�\3248\307\"\202[\f\311\3248\346\"\202[\f\363F\201\352�F!o\201\353�F!p\201\210�@\201\354�=\203\foS\202\245\f@\201\355�=\203\231\fA@Sop\\_oS\\\202\245\fA@op\\_S\324\245\201\222�A@F\"+BB\202\247@\201\356�=\203\374\f\201\214�\211q\203\374\fA\201\357�N\211\203\374\f
\203\332\f\324\202\333\f\326U\203\374\fG\365U\203\374\f\327	@\311A@\346\"	A\311\3248\346\"\257\202\247A\367=?\205&
@\201\360�=\203
G\201\361�U\203
\353\201\362�\n\"\202&
\201\363�@\n\"\211r\203mG\365U\204<
@\201\360�=\203m\365r8\201\321�U\204m@\201\361�r8\206[
\324r8\365r8^V\203\374
A\201\364�>\203\231
\201\365�!\204\231
\242\322=\203\210
\327\201\366�\311\201\321�\"\201\367�F\202\246\327\201\370�\311\201\321�\"\201\371�F\202\246A\201\372�=\203\361
\242\322=\204\266
@\201\373�\245\201\374�U\203\307
\327\201\366�\311\201\321�\"\201\367�F\202\246\201\365�!\203\340
\327\201\375�\311\201\321�\"\201\376�F\202\246\327\201\377�\311\201\321�\"\201�F\202\246\327\340\311\346\"\342F\202\246A\201>\203&@\201>\203&@\346Y\203&\327\201\366�\311\201\321�\"\201\367�F\202\246@\201\360�=\203S\327\311A@\324r8\"\201\311\3248\346\"\201\307�\311\3658\365r8\"\257\202\246
\205a\201!?\205a
@\324r8\365r8^U\203xS\307\202ys\311A@\324r8\"t\311\3248\365r8\"ur@\201\232\203\260\201t!\201=\203\260\327\340t\342FtA\201>\203\347r@\201\232\204\315r@\201	\232\203\347u;\203\333uG\326U\204\347\327\201\366�u\201\367�Fu@\201\n=\203\333A\203\376\353\201\n\"\203\333\201\fA@!v\201
\3248!w\201t!\206-v\242\201>\205-A\325=\205-\201x\201u!\206Lw\242\201>\205LA\325=\205L\201yx\205\327y\205\327y\201Y\203jy\201X\204\257y\201Y\203|y\201X\204\257y\201Y\203\216y\201X\204\257y\201>\204\257y\201=\205\327\355\201\201u!\"?\205\327v\242\201\254�=\205\277y\201=?\205\327\327\201\317�s\326Et\201\\�D\363u\257,\206i\327\201\317�s\326Et\201\\�Dr@\201\232\204Br@\201	\232\204Br@\201\232\204Br@\201\232\203$\201t!\203$\201u!\204Br@\201\232\203H\201A@!\203H\201 \3248!\203Hr@\202eA\325=\203_r@\201!\232\203_\201\"\202e\363r@\363Qu\257,\202\246r\203XG\324U\203X\365r8\201\321�U\203X@\201\361�r8\206\223\324r8V\204\252\353r@\n\"r=\204(@\346V\203(A\201#>\203\314\201\365�!\204\314\327\201\370�\311\201\321�\"\201\371�F\202\246A\201\372�=\203@\201\373�\245\201\374�U\203\363\327\201\366�\311\201\321�\"\201\367�F\202\246\201\365�!\203\f\327\201$\311\201\321�\"\201%F\202\246\327\201\377�\311\201\321�\"\201�F\202\246\327\340\311\346\"\342F\202\246\311A@\324r8\"t\327tr@G\326V\204H\201&t!\204P\363r@P\202Sr@E)\202\246r\203\315G\324U\203\315\324r8\201\321�U\203\315\365r8\346=\203\366A\201'>\205\211\201\365�A@!?z\327z\203\227\201(\202\230\332\355\201)r@\"\203\254r@\326\307O\202\257r@z\204\275r@G\324V\203\301\363\202\302\332\311A@\201\321�\"z\204\330r@G\324V\203\334\363\202\335\332z\203\350\201*\202\351\332r\n>A@@\257)\202\246@\201\361�r8\206\365r8V\203\207A\201+>\203+\201\365�!\204+\327\201\370�\311\201\321�\"\201\371�F\202\246A\201\372�=\203|@\201\373�\245\201\374�U\203R\327\201\366�\311\201\321�\"\201\367�F\202\246\201\365�!\203k\327\201$\311\201\321�\"\201%F\202\246\327\201\377�\311\201\321�\"\201�F\202\246\327\340\311\346\"\342F\202\246\311A@\365r8\"u\327\355\201)r@\"\203\247r@\326\307O\202\252r@\211{G\326V\204\274\201&u!\204\303{\363P\202\305{)uE)\202\246A\325=\203\351@\201,N\211r\203\351r@\"\206\246A\201-\236\211r\203\n@rAN\211r\203\nr@\"\206\246@\211|\201.\236}\307\211~\307\200}\203(}A|\201\255�|\201\"\211}\203;}@|\201/\355\2010\201\256�|!\"\203X\361\201\256�|!\326\"\202^\201\256�|!!|A\202>\203q\2011|!|A\203>\203\201\2012|!|A\2013N\211\203\224	|\"\202\245\327|\204\201\215�A\350\346#\205\257-)+\207" [math-compose-level spfn math-expr-opers a math-comp-selected math-comp-tagged 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 1000 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-arg-values math-compose-hash-args ap p cprec sep bprec ca cd calc-any-evaltos op 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 vright center vleft (nil big) math-matrixp 7 t 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 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-Z0-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\fBBB\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&�\313P\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])
(byte-code "\301B\302\303!\207" [current-load-list math-vector-to-string-chars (lambda (#1=#:defconst-tmp-var) (defconst math-vector-to-string-chars #1#)) ((34 . "\\\"") (92 . "\\\\") (7 . "\\a") (8 . "\\b") (27 . "\\e") (12 . "\\f") (10 . "\\n") (13 . "\\r") (9 . "\\t") (127 . "\\^?"))] 2)
(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�\312OAT\317OQAG\\\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\324S\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\337E\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=\203?�\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 right 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])
(byte-code "\301B\302\301!\204�\303\301\304\305\306\"\"\210\307B\302\307!\204$�\303\307\304\305\310\"\"\210\311B\302\311!\2046�\303\311\304\305\310\"\"\210\301\207" [current-load-list math-comp-buf-string default-boundp set-default make-vector 10 "" math-comp-buf-margin 0 math-comp-buf-level] 5)
(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\211G\306V\203\215�\306H\315U\203\215�G\306V\203\215�GS\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�\nPG\\\211\207@\310=\2039�A\211\2057\311@!\210\202*�@\312=\203~�A@\2057\fT\211
GY\203c�\313
\211\"\313\211\"\313\211\"
\f\314I\210\f\3158\206s�\307\\I\210\fA@I\207@\316=\203�\204\224�\nP\314\211\207\307\317 V\203\247
H\211G\307U\203\275�\fW\203\275�T\202\241�G\307V\204\315�G\307V\203\247\314\317\211!\"#H\211\"\320V\203\370�$\203\356�\321\202\357�\322%&%\"*G'\\!G\307V\203Z\307H\323U\203ZG\307V\203ZG((S\211(H\324U\203(\323I\210(TGW\203V(TH\323U\203V(T\324I\210\325#\202Y\326#)#\326\327\"\323\"\260\"!Z\\\"'
\314I\210T\211\fX\203\246H!V\203|H\"!Z\\I\210\202|+*A@\fHU\205\273\fH\315\\W?\205\377
\fH\211G\307U\203\317\n\202\323\nP\314A@\fHW\203\371\fS
\fHG\307U\204\327
\fHP\202\327
\fI)\207@\330=\2032A@)=\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 new j math-comp-margin k math-comp-selected calc-show-selections] 8])
(defalias 'math-comp-highlight-string #[(s) "\303!\211G	S\211\304Y\203(�	H\305>\204�	\n\203\"�\306\202#�\307I\210\202�)\207" [s i calc-show-selections copy-sequence 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�\311ZT\312\"\244T\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�\315AA\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)

${this.title}

Code Editor : calccomp.elc