(require (quote calc-ext)) (defun calc-Need-calc-comp nil (byte-code "À‡" [nil] 1)) (defun math-compose-expr (a prec) (byte-code "T =… † … =?ƒ1Ä …! ‰ˆM N \"E)‚B :?…=O !?ƒLPQ !P‚BR !ƒ¹S !T=†uU8…u :?†u @V>ƒLW>ƒºX !ÄNYZ>ƒ§[U8!‚­U8\\8E \"*‚I]=…Ë@GUUƒDX !ÄÄ ^_U8!ƒñ`‚ôabcUdeU8!!fd\\8!%E  gUƒ* ‚@^h ijk !EF,‚Id !‚¶]=?ƒ_d \"‚¶S !l>ƒ¿m\\ 8!ƒ„NU 8 \"‚¼b^hNU 8n\" @o=ƒ¨p‚«qN\\ 8n\"j&‚¶ gU†ç :?†Ô @r>?†ç …çs t\"?ƒód \"‚¶d \"Ä u vVƒw‚x\"…Wy nzn!Oi{\\\"{U\"ED\" |n!ÄO‰ˆ‚þˆu}\"…b^nzn!O~{U\"{\\\"E{€\"%‰ˆ ƒ³^y C\"B‚µ*‚B @N…w‚=?…w @NÄă\"‰…'ƒ GSA\"‰…„A A\"‰…N \"†'ƒÄA\"‰…'…A \"†vƒÄ\"‰…vƒ GSA\"‰…]„A A\"‰…]N \"†vƒÄA\"‰…v…A \"+†B @†=ƒƒ”nUO‚—aƒªU\\O‚­a‡>ˆ>‰>†Ï~†Ùa…åŠ !†î‹>ƒ÷n‚úŒG=ƒ ‚Ž=ƒc‚! >…h!?…h‘ !…h‘U 8!?…h\"†h G’W…_U 8G’W†h߉ ˆÄƒ‹…yŠU 8!†‚‹>ƒ‹n‚ŽŒ‰ˆ G\\UƒÄ^~Q“U 8A~P#~QF‚ˆ GS#U 8GS$Y#S\\\"%”•–•—%C…ý~P…~PPC˜#S…™…#~PP\"$Cš AU$%$•›%C˜#SƒX~…TQ‚k…_ƒhœ‚ka\"…w~P…‚~PPC$C$,‚&…š A…š !ƒ¦ž ß\"‚ …· A…·”=?ƒ\"†Å G’W''ƒÒ GS‚ÕŸ#Y#S\\\"%Ä!^%  A'ƒ#‚€ß#BBD-‚\"† G’Wƒµ¡=…*‘ !ƒ@•¢£ A!¤#‚²¥=…N‘ !ƒh•¦§¨ !A!©#‚²ª=…v‘ !ƒœb^«“ A~P#j&‚²^“ A~P#F‚b^“U 8\\ 8€ 8E~P#¡=ƒê¬‚í­~àDN GS 8®a\"ƒŒ‚n\"& . ‚B @¯=ƒ AAƒáU 8†=ƒQ^°“ AApn#­F‚ÞU 8o=ƒw^h“ AApn#±F‚ÞU 8²=ƒ^h“ AAqn#³F‚ÞU 8´=ƒÖ^\\ 8µ>ƒ¾h‚Á°“ AAA¶n#·F‚Þ¸¹ \"‚U 8†=ƒóº‚U 8´=ƒ\\ 8»>ƒ¼‚º‚¼‚B @½=ƒS ¾\\ 8)\"((ƒB¿(@!‚O ¡=…j*…j*nU?…juÀ¿U 8!\"ƒ€¸Á¿U 8!\"‚O +…»-,U‰(ˆ,…ž®,@ \"?…·+ß=…«,A,(T‰(ˆ‚ˆ,)ƒÙ+U=ƒÍ‚Ö¸Ã(\"‚O Ä>ƒòÅ¿U 8!!‚O ¥=… uÆ¿\\ 8!\"ƒF NǽȿU 8!nÉO!È¿\\ 8!nÉO!ED \"‚O ¿U 8!)‚B @´=ƒè b^ª=ƒq a‚† U 8Ê>ƒƒ h‚† °N\\ 8n\"¡=ƒ¡ Ë‚³ ¥=ƒ° Ì‚³ ¶N€ 8n\"ª=ƒÎ a‚ã U 8Í>ƒà j‚ã Î&‚B @Ï=ƒ .@Ð=ƒ Ñ !‚ ÒÑ !ÓQ‚B @Ô=…' AA…' Õ>ƒª AA/Ö>…E SU 8!Ô=…b •U 8AA/\"/U 8‰ˆ‚/ ˆb^NU 8Œ\"×=ƒ„ h‚‡ °“/pn#×=ƒ¢ j‚¥ Î%)‚B @Ô=… G€U… ]=ƒE NU 8Œ\"0”N\\ 8n\"1S0!i=† S0!M=… S\\08!i=… \\08‰0ƒ9 iU08^\\08p1FE‚A i01E+‚B @Ô=…] G€U…] Ø=ƒˆ b^NU 8Œ\"ÙN\\ 8n\"Ú%‚B @Û=…— ¡=ƒ³ ^ÜNU 8n\"ÝF‚BÄ…Æ @Û=…Æ ¥=ƒâ ^ÞNU 8É\"ÝF‚B @ß=…ñ ]=ƒƒ àU 8!†@ SU 8!á>†@ SU 8!o=…@ _UU 88!…@ \\U 88n=ƒ\\ ^hNU 8n\"jF‚h NU 8â\"”g N\\ 8n\"*E‚B @Y=…’ ]=ƒ SU 8!ã>ƒ« ”‚® ]NU 8n\")S\\ 8!ä>ƒÓ ”‚Ö ]N\\ 8n\")10bcå0!0æ1%*‚B @ç>… ¡=… GŸUƒx b^ @è=ƒ1 é‚4 êëN\\ 8n\"ìN€ 8n\"íNî 8n\"ïNU 8n\"Ý& ‚B @ð=… G\\V… ñ>ƒ A- G€Uƒ¦ U‚§ ß+2,,A…½ ®,@2@\"…Ï ,A,2A‰2ˆ‚­ ˆ•ò,Aƒø “óô A!A!pn#õD‚ù ÄN GS 8n\"ÓD#+‚B @ö=…5 G\\U…5÷U 8!…5U 8!ƒb‚=ƒUøžU 8ß\"jQ‚_žU 8Ä\"‚B @ù=…‰ G\\U…‰÷U 8!…‰U 8!ƒ‚=ƒ©úžU 8ß\"jQ‚ÄžU 8Ä\"Ä, uû\"…ï|n!S,àDn,O BB ,ÄO‰ˆ‚»ˆó B!‰ ˆ üU†ý\\E B‰ ˆ^ B+‚B @þ=…C‚=?…C G€U…CO\\ 8!ƒ£NU 8É\" \\ 8Vƒ¡=ƒv^ÿ F‚š¥=ƒŽ^ F‚š^h jF‚Ÿ )‚B @=…‚=?… G>…÷U 8!…O\\ 8!ƒø€ 8?†õ÷€ 8!…õ€ 8!‚\\ 8?†÷\\ 8!…\\ 8!ƒuO\\ 8!…*\\ 833ƒ7€‚:\\ 84Ä54ƒ`“U 8Až4Ä\"3†\\ #‚q^U 8A\"B+‚B @>…¯‚=?…¯ G>…¯÷U 8!…¯\\ 8?†¯O\\ 8!ƒn%n(\\ 8†Å  U 8A\" Ä \"‰ ˆ ƒ @ =ƒôc‚ @ =ƒ‚% BB‚~,‚B @ >…D‚=?…D G>…D€ 8?†DO€ 8!ƒ} @=ƒV‚YiNU 8€ 8†ln\"N\\ 8n\"E‚B @=…«‚=?…« G>…«\\ 8?†«O\\ 8!ƒÙ>ƒ½”‚¿NU 8\\ 8†Ôn\")‚B @=…ô G>…ôU 8!ƒO\\ 8ƒ@^˜U 8÷\\ 8!…\\ 8!ƒ/ž\\ 8Ä\"‚;N\\ 8n\"\"B‚LU 8\"‚B @>…j G>…jU 8!ƒ(U 8nUƒa‚%\\ 8ƒ»÷\\ 8!…œ\\ 8!ƒ¬ž\\ 8Ä\"‚¸N\\ 8n\"‚¾~  !6 !7 @=ƒâ6S‚ @=ƒU 8S67\\\"6S\\‚YU 867\\\"S\\\"˜U 8 \"BB+‚B @=…Y߉8…Y >…Y ƒL\\‚OUU…Y G€Uƒ¢b^¡=ƒq!‚t\"NU 8n\"¡=ƒ#‚’$N\\ 8n\"%‚B‚=?…Ò @%=…» GîUƒÊs&:\"‚Ò' @:\"99…ø G€U†è @%=…ø(€98É\"ƒÓ î98†\\98€98^VƒÞ¡=…%) !?ƒ^S !Y=ƒI^*N É\"ÝF‚[^ÿN É\"F‚Û¥=ƒÉS !Y=†Y +\",Uƒ—^*N É\"ÝF‚Æ) !ƒ´^-N É\".F‚Æ^N É\"F‚Û^hN n\"jF‚С=…õ @/>…õ nYƒ ^*N É\"ÝF‚Ð @%=ƒQb^NU 8\\98\"0N\\ 8n\"õN€ 8€98\"&‚Ð …_1 !?…_  \\98€98^Uƒ{S‰ˆÄ‚|;NU 8\\98\"8\\ 8!?9!:>…a]=…a;@3=!†…S?!<>……]=……;A@…A…A=Y… A>X†çA?Y…²A@X†çA;Y…ÄAAX†çAB>†çAC=…çuDE=!\"?…S>!½=…ýAF=?…b^ý;UE<àD~=&,†Ïb^ý;UE<àD®9@2\"†œ®9@5\"†œ®9@G\"†œ®9@H\"…w98@&)‚¾ î98†Ê€98Vƒi¡=…Ý) !?ƒõ^ÿN É\"F‚f¥=ƒTY +\",Uƒ\"^*N É\"ÝF‚Q) !ƒ?^NN É\"OF‚Q^N É\"F‚f^hN n\"jF‚¾NU 8€98\"=^uR9@\"ƒ•9@UÄO‚˜9@CCGUV†«P=!?ƒ·C~P‚¹C)=E)‚A]=…Þ @TN‰9…Þ…9 #†AƒU\"‰9… @9AN‰9……9 #†A @DƒDV\"EÄFÄGÄ/E…*EA‰Dˆ¾DH\"‰E…?E@‰DˆWuX¿D!\"ƒc{¿D!U\"‚i¿D!!‰DˆY>…€ÅD!‰Dˆ¡=…¢*…¢*nU?…¢uÀD\"…ÍZ*!nWƒÁ¸[D\"‰D‚͸ÁD\"‰Dˆ¥=…àu\\D\"…]DGzn!U#IDnI[O‰DˆIS‰InY…D^P‰Dˆ‚)ˆ¡=…; G\\V†;)U 8!?ƒLÿF‰G‚¥=…h G\\V†h)U 8!?ƒyF‰G‚¡=…ŒDnHC=†¥=… @J>…×u_D\"?…× G\\U…×U 8:?†ÊU 8@`>†×U 8@a>ƒ÷¥=ƒéb‚ì*F݉G‚¥=ƒcF.‰G‚KFL‰Gˆb^DF“ A¥=ƒ6d‚9pn#G%-))‡" [math-compose-level a math-comp-selected math-comp-tagged nil prec calc-frac-format calc-language aa math-radix-explicit-format c calc-number-radix calc-group-digits calc-group-char s comps temp temp2 left-bracket calc-vector-brackets right-bracket inner-brackets calc-matrix-brackets outer-brackets row-commas comma-spc calc-vector-commas comma vector-prec just calc-matrix-just t break calc-break-vectors calc-full-vectors rows cols base calc-display-strings full v math-expr-variable-mapping calc-language-option math-compose-hash-args p calc-arg-values calc-date-format args a1 a2 ap cprec sep bprec ca cd calc-any-evaltos op math-expr-opers setlev lhs rhs prevt nextt prevc nextc lr ops func func2 left right math-expr-function-mapping n math-eqn-special-funcs calc-function-open calc-function-close tag math-compose-expr integerp "'" prin1-to-string math-scalarp car-safe frac 1 (bigpos bigneg) (tex eqn math maple c fortran pascal) math-adjust-fraction / (c fortran) math-float 2 big horiz math-negp "- " "" list 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., ]+\\)" nconc match-beginning math-match-substring match-end "\\*\\([0-9.]+\\)\\^\\(-?[0-9]+\\)\\()?\\)\\'" " " supscr 3 math-compose-forms unform assq apply funcall vec R O C math-vector-no-parens P 1000 vright center 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 tex (horiz "\\matrix{ ") math-compose-tex-matrix (" }") eqn (horiz "matrix { ") math-compose-eqn-matrix math-transpose ("}") maple "matrix(" " \\ldots" " ..." equal incomplete "[" ", ..." polar "; ..." intv (0 1) " .. " " .. ..." format "%s" "[ ..." (0 1) "( ..." var rassq symbol-name "\\`[a-zA-Z][a-zA-Z0-9]+\\'" "\\hbox{%s}" "#" "#%d" (c fortran pascal maple) math-to-underscores ".'\\'" calcFunc-Prime intern -1 (0 1) " \\ldots " " ... " (0 2) "]" date X math-format-date "<" ">" calcFunc-subscr (c pascal fortran maple) (pascal fortran) fortran math "[[" "]]" calcFunc-sqrt "\\sqrt{" "}" "sqrt {" ^ math-looks-negp (^ / frac calcFunc-sqrt) 201 (/ frac) (/ frac) math-comp-height (rule 45) (calcFunc-sum calcFunc-prod) calcFunc-sum "\\sum" "\\prod" "_{" "=" "}^{" 4 "}{" calcFunc-lambda (nil flat big) (horiz "<") nreverse reverse " : " calcFunc-string math-vectorp "string(" calcFunc-bstring "bstring(" "[^ ] +[^ ]" -123 set calcFunc-cprec "\\left( " " \\right)" "{left ( " " right )}" calcFunc-choriz (2 3 4) mapcar (lambda (x) (byte-code "Ä!Å=ƒÆ † † \"ljˆ‚#Æ †\" \"‡" [x bprec cprec prec car-safe calcFunc-bstring math-compose-expr -123] 5)) (calcFunc-cvert calcFunc-clvert calcFunc-crvert) (2 3) (lambda (x) (byte-code "ÁÁÁÁÉ !Ê>… GË>… @Ì 8‰ˆÉ !Í=…\\ GÎ>…\\Ì 8?†\\ÏÌ 8!…LÌ 8GÐU…LÑÌ 8!†\\ÒÌ 8!…\\Ì 8ÓXƒ€ÔÏÌ 8!ƒsÕÌ 8Á\"ÖH‚zÌ 8†z×D‰‚£É !Ø>…” GÙ>…”Ì 8Ö=†£ ?†£Ú \"‰ˆ ƒ®Û !‚¯Ö ƒºÜ !‚»Ö‰ˆÝ=ƒÐÞ ß#‰‚îà=ƒÞ‰‚îá=…îÞ ß$‰ˆÞ #‰ˆ ,‡" [b nil cc a d x prec base v car-safe (calcFunc-cbase calcFunc-ctbase calcFunc-cbbase) (1 2) 1 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] 17)) 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 (tex eqn) "\\evalto " "evalto " " \\to " " -> " calcFunc-if "?" math-assq2 /= math-tex-expr-is-flat "{" 100 9 "( " " )" (/ calcFunc-choose calcFunc-evalto) " ? " math-primp "^" math-comp-first-char 45 "_" "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 "=>" " => " "{( " " )}" math-comp-is-flat "\\left" "\\`u\\([^a-zA-Z]\\)\\'" "\\right" 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) (eqn . math-compose-eqn) (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']+\\)\\'" (c fortran pascal maple) prefix-numeric-value "\\%s" "[^']'+\\'" - " prime" "\\hbox{" (bigpos bigneg frac float) (var *) "~{" " ( " " , "] 306)) (defconst math-eqn-special-funcs (quote (calcFunc-log calcFunc-ln calcFunc-exp calcFunc-sin calcFunc-cos calcFunc-tan calcFunc-sinh calcFunc-cosh calcFunc-tanh calcFunc-arcsin calcFunc-arccos calcFunc-arctan calcFunc-arcsinh calcFunc-arccosh calcFunc-arctanh))) (defun math-prod-first-term (x) (byte-code "Á!Â=…Ã8‰ˆ‚ˆ‡" [x car-safe * 1] 4)) (defun math-prod-last-term (x) (byte-code "Á!Â=…Ã8‰ˆ‚ˆ‡" [x car-safe * 2] 4)) (defun math-compose-vector (a sep prec) (byte-code "ƒHÅÆ DÇ@ \"CA‰…>È@!É=ƒ+ SÇ@Ê\")‚0Ç@ \"Ë D BBB‰ˆ‚ˆÌ !)BB‚I͇" [a math-compose-level c prec sep horiz set math-compose-expr car-safe calcFunc-bstring -123 break nreverse ""] 11)) (defun math-vector-no-parens (a) (byte-code "AA†ÁÂ8!Ã=?‡" [a car-safe 1 *] 3)) (defun math-compose-matrix (a col cols base) (byte-code "ÇÂT‰ X… ÈÉ\"BB B‰ˆ‚ˆÊ !*‡" [col res nil cols just base a 0 mapcar (lambda (r) (byte-code "ÅÆ 8 \" UƒÇ‚ ÈPE‡" [col r vector-prec cols comma-spc horiz math-compose-expr "" " "] 5)) nreverse] 6)) (defun math-compose-rows (a count first) (byte-code "AƒQ ÉXƒ1 ÉWƒÊAËÂ#‚. Ì=ƒ$Í‚%Î PÊAËÂ#B‚NÏ ƒ=ÐP‚>ÑÒ@\" FÊA SÂ#B‚jÏ ƒ]ÐP‚^ÑÒ@\"ÐPFC‡" [a count nil calc-language comma first left-bracket vector-prec right-bracket 0 math-compose-rows -1 tex " \\ldots" " ..." horiz " " " " math-compose-expr] 10)) (defun math-compose-tex-matrix (a) (byte-code "AƒÁ@AÂÃ#ÄÅA!BB‚Á@AÂÃ#C‡" [a math-compose-vector " & " 0 " \\\\ " math-compose-tex-matrix] 6)) (defun math-compose-eqn-matrix (a) (byte-code "ƒ5 Å=ƒÆ‚ Ç=ƒÈ‚ÉÊ DË TÌ@AÍÎ#)ÏÐA!BBBBB‚6ć" [a calc-matrix-just t math-compose-level nil right "rcol " center "ccol " "lcol " break "{ " math-compose-vector " above " 1000 " } " math-compose-eqn-matrix] 8)) (defun math-vector-is-string (a) (byte-code "A‰…6Á@!…@ÂX†6Ã@!Ä=…6ÁÅ@8!…6Æ@8Ç=…6Å@8ÂX…>Ȉ‚ˆ?‡" [a natnump 255 car-safe cplx 1 2 0 nil] 5)) (defun math-vector-to-string (a &optional quoted) (byte-code "ÈÉÊA\"!‰ˆËÌ\"…‚Í ƒÌ‚Î ƒ# ‚$Ï ƒ,Ђ-ÑÒË  #‰…Ó H \"‰ƒdÍ OA TÒOQ AG\\‰‚}Í OÔ HÕ\\\" TÒOQ Ö\\‰ˆ‚5-ˆ ƒŽ××Q‚‡" [a p pat quoted codes math-vector-to-string-chars fmt new concat mapcar (lambda (x) (byte-code ":ƒ Á8‚ ‡" [x 1] 2)) string-match "[-\\\"]" 0 "[-]" ((127 . "^?")) "\\^%c" "^%c" nil assq format 64 2 "\""] 12)) (defconst math-vector-to-string-chars (quote ((34 . "\\\"") (92 . "\\\\") (7 . "\\a") (8 . "\\b") (27 . "\\e") (12 . "\\f") (10 . "\\n") (13 . "\\r") (9 . "\\t") (127 . "\\^?")))) (defun math-to-underscores (x) (byte-code "ÁÂ\"ƒÃÄÅ\"ÆÄÇ\"Q!‚‡" [x string-match "\\`\\(.*\\)#\\(.*\\)\\'" math-to-underscores math-match-substring 1 "_" 2] 8)) (defun math-tex-expr-is-flat (a) (byte-code ":?† @Á>†@@Â>†@@Ã>…1A‰…&Ä@!….ň‚ˆ?†@@Æ>…@ÄÇ8!‡" [a (bigpos bigneg) (float var) (+ - * neg) math-tex-expr-is-flat nil (^ calcFunc-subscr) 1] 4)) (put (quote calcFunc-log) (quote math-compose-big) (quote math-compose-log)) (defun math-compose-log (a prec) (byte-code "GÂU…ÃÄÅÆÇÈÉ8Ê\")EËÈÌ8Ê\"Í%‡" [a calc-language 3 list horiz subscr "log" flat math-compose-expr 2 1000 "(" 1 ")"] 8)) (put (quote calcFunc-log10) (quote math-compose-big) (quote math-compose-log10)) (defun math-compose-log10 (a prec) (byte-code "GÁU…ÂÃÄÅÆEÇÈÉ8Ê\"Ë%‡" [a 2 list horiz subscr "log" "10" "(" math-compose-expr 1 1000 ")"] 7)) (put (quote calcFunc-deriv) (quote math-compose-big) (quote math-compose-deriv)) (put (quote calcFunc-tderiv) (quote math-compose-big) (quote math-compose-deriv)) (defun math-compose-deriv (a prec) (byte-code "GÂU…ÃÄÅÆÇÈ8EDÅÆÉÊ8EDE \"‡" [a prec 3 math-compose-expr / calcFunc-choriz vec (calcFunc-string (vec 100)) 1 (calcFunc-string (vec 100)) 2] 8)) (put (quote calcFunc-sqrt) (quote math-compose-big) (quote math-compose-sqrt)) (defun math-compose-sqrt (a prec) (byte-code "GÅU…NÆÇ8È\"É !Ê ! \\Ë !Ì ÇUƒ*Í‚+ÎÏ Å\\Ð\"PÑ ÇUƒ=Ò‚IÓÌSDÔ SÕ\"Ö#Í FF-‡" [a c d h w 2 math-compose-expr 1 0 math-comp-ascent math-comp-descent math-comp-width vleft " " " " make-string 95 horiz "V" append make-list " |" ("\\|")] 14)) (put (quote calcFunc-choose) (quote math-compose-big) (quote math-compose-choose)) (defun math-compose-choose (a prec) (byte-code "ÃÄ 8Å\"ÃÆ 8Å\"ÇÈÉÊË!Ì %ÍF*‡" [a1 a a2 math-compose-expr 1 0 2 horiz "(" list vcent math-comp-height " " ")"] 11)) (put (quote calcFunc-integ) (quote math-compose-big) (quote math-compose-integ)) (defun math-compose-integ (a prec) (byte-code "GÉ>…ÙÊË8!Ã=…Ù ÌY…Í Î\"ÏË8Ð\"ÊË8!Ã=…RÊÑ8!Ò=…>ÓÑÑ88!†RÊÑ8!Ô=…RÕËÑ88!Ï ƒjÖÑ8×ØÙÑË88\"!\"‚mÑ8Ú\"ÛÜ8…ÏÜ8Ð\"Ý8…ÏÝ8Ð\"Þß ƒ™à‚šáâュ܂¦ËD…²ßäECå…¾ßäEC$ ƒÈá‚Ìßæ E ƒÔç‚Õá&.‡" [a parens prec var over expr calc-language low high (3 5) car-safe 2 196 /= 1000 math-compose-expr 0 1 / math-numberp ^ math-looks-negp math-mul math-build-var-name format "d%s" 185 flat 3 4 list horiz "(" "" append vcent " " (" /" " | " " | " " | " "/ ") " d" ")"] 24)) (put (quote calcFunc-sum) (quote math-compose-big) (quote math-compose-sum)) (defun math-compose-sum (a prec) (byte-code "GÇ>…ƒÈÉ8Ê\"ËÈÌ8Í\"Î8…#ÈÎ8Í\"Ï8…2ÐÑÏ\"ÒÍ#ÓÔÕ>ƒ@Ö‚A×ØÙ ƒK΂LÌD …S CÚ ƒaÔ Û FC‚c C$ÜÉ8!Ý>ƒrÞ‚s× ß>ƒà‚€×&-‡" [a expr calc-language var low high prec (3 5 6) math-compose-expr 1 185 flat 2 0 3 4 math-compose-vector nthcdr ", " list horiz (180 201) "(" "" append vcent ("---- " "\\ " " > " "/ " "---- ") " = " car-safe (calcFunc-sum calcFunc-prod) " " (180 201) ")"] 16)) (put (quote calcFunc-prod) (quote math-compose-big) (quote math-compose-prod)) (defun math-compose-prod (a prec) (byte-code "GÇ>…ƒÈÉ8Ê\"ËÈÌ8Í\"Î8…#ÈÎ8Í\"Ï8…2ÐÑÏ\"ÒÍ#ÓÔÕ>ƒ@Ö‚A×ØÙ ƒK΂LÌD …S CÚ ƒaÔ Û FC‚c C$ÜÉ8!Ý>ƒrÞ‚s× ß>ƒà‚€×&-‡" [a expr calc-language var low high prec (3 5 6) math-compose-expr 1 198 flat 2 0 3 4 math-compose-vector nthcdr ", " list horiz (196 201) "(" "" append vcent ("----- " " | | " " | | " " | | ") " = " car-safe (calcFunc-sum calcFunc-prod) " " (196 201) ")"] 16)) (defun math-stack-value-offset-fancy nil (byte-code "ÉÊ !! Ë=ƒE ƒ Ì]‰‚!Í !…! ‰ˆÎ GÍ !…/ ƒ: ZÏ]‚;ÏZÏ]#‰‚Œ ƒy ÐÑ\"Z‰ˆÍ !…fÎ G#^‰ˆÏY…v \\]‰‚ŒÍ !…‚ ‰ˆÐ ZÑ\"‰ˆÍ !…§ÏW†¡ …¡ V…§ ‰)‡" [cwid c calc-display-just calc-display-origin wid calc-line-breaking off calc-right-label t + math-comp-width right 5 integerp - 0 / 2] 13)) (defun math-composition-to-string (c &optional width) (byte-code "†à ‰ˆ ƒÄ Å\"‚'Æ !ƒ!Ç \"‚'ÈÉ \"!‡" [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] 8)) (defun math-comp-is-flat (c) (byte-code ":?ƒ Á‚c@Ã>ƒÁ‚c@Ä=ƒ5A‰…'Å@!…/ˆ‚ˆ?‚c@Æ>ƒSGÇU…PÈ8ÉU…PÅÊ8!‚c@Ë=ƒbÅÊ8!‚c‡" [c t nil (set break) horiz math-comp-is-flat (vleft vcent vright) 3 1 0 2 tag] 5)) (defun math-comp-to-string-flat (c full-width) (byte-code "ƒ ÎÏ !)‚œÐÐÎÎ…Ñ ÒÓ!ˆÒ !ˆÒÔ!ˆ ÎHÐ   GÎV…’ ÎHÕU…’ GÎV…’ G  S‰ HÖU?…e׈‚Rˆ  ÕIˆ T GW…|  THÕUƒ  TÖIˆØ‰ ‚‘Ù‰ )ˆ   Q*.‡" [math-comp-sel-hpos comp-pos c comp-buf comp-word comp-margin comp-highlight math-comp-selected calc-show-selections comp-level str math-comp-buf-string prefix k 0 math-comp-sel-flat-term "" -1 math-comp-to-string-flat-term (set -1 0) (break -1) 32 10 nil " " " "] 7)) (setq math-comp-buf-string (make-vector 10 "")) (setq math-comp-buf-margin (make-vector 10 0)) (setq math-comp-buf-level (make-vector 10 0)) (defun math-comp-to-string-flat-term (c) (byte-code ":?ƒ( …Ù!‰ˆ GÚUƒ‚ P G\\‰‚y@Û=ƒAA‰…>Ü@!ˆ‚/‚y@Ý=ƒŽÞ8…‹ T‰ˆ GY…pß \"ß\"ß\"‰ˆ àIˆ á8†Ú\\Iˆ Þ8I‚y@â=ƒ<?ƒ§ P à‰‚9ÚÕ   V…ã  H‰ ˆ GÚU…È W…Õ T‰ ˆ‚´ˆ GÚV†ã GÚV…ÕàÕÕ  H‰ˆãV… ƒ ä‚ Þ刉*ˆ G\\‰ˆ GÚV…… ÚHæU…… GÚV…… G S‰HçU?…TÕˆ‚@ˆ æIˆT GW…n THæUƒ€ TçIˆè‰ ‚„é‰ )ˆê   éëæ\"% Z\\‰ˆ  àIˆ T‰ X…Ô HV…Ð  HZ\\Iˆ‚ª+*ˆÞ8 HU…ê  Há\\WƒñÕ‚9 H  GÚUƒ ‚ P à‰ˆÞ8 HW…2 S‰ˆ HGÚU†. H P‰ ˆ‚ ˆ  I)‚y@ì=ƒtÞ8=ƒY?Üá8!)‚qÞ8Ø=ƒlÕÜá8!)‚qÜá8!‚yÜá8!‡" [c comp-highlight comp-word comp-pos comp-level math-comp-buf-string math-comp-buf-margin math-comp-buf-level calc-line-breaking comp-buf i str full-width prefix mrg wid j new calc-line-numbering comp-margin k nil math-comp-selected calc-show-selections t math-comp-highlight-string 0 horiz math-comp-to-string-flat-term set 1 vconcat "" 2 break 12 5 (while (<= j comp-level) (aset math-comp-buf-margin j (+ (aref math-comp-buf-margin j) (- new mrg))) (setq j (1+ j))) 32 10 " " " " concat make-string tag] 13)) (defun math-comp-highlight-string (s) (byte-code "Ã!‰ˆG S‰ÄY…* HÅ>†& ƒ$Æ‚%ÇIˆ‚ )ˆ‡" [s i calc-show-selections copy-sequence 0 (32 10) 46 35] 5)) (defun math-comp-sel-flat-term (c) (byte-code ":?ƒ G\\‰‚c@Å>†c@Æ=ƒ5A‰…' ÇW…2È@!ˆ‚‚c@É=ƒ^ XƒVÈÊ8!ˆ V…Slj‚[ÈÊ8!‚cÈÊ8!‡" [c comp-pos math-comp-sel-cpos math-comp-sel-tag t (set break) horiz 1000000 math-comp-sel-flat-term tag 2] 6)) (defun math-comp-simplify (c full-width) (byte-code "ËCÌÍÌÌ… ÉÎ !ˆÏ BB.‡" [comp-buf comp-base comp-height comp-hpos comp-vpos comp-highlight math-comp-selected calc-show-selections comp-tag nil c "" 0 1 math-comp-simplify-term vleft] 7)) (defun math-comp-add-string (s h v) (byte-code "GÊV…z \\ ƒË GÌ$‚y ÊWƒ9ÍÎ [Ï\"\" [ Zʉ‚S Y…SÍÎ ZTÏ\"\" T‰ˆÐ \"Ñ@Ò @GZÓ\" ƒuÔ!‚vQ\"))‡" [s vv v comp-base math-comp-sel-hpos h comp-buf comp-height str comp-highlight 0 math-comp-add-string-sel 1 nconc make-list "" nthcdr setcar make-string 32 math-comp-highlight-string] 13)) (defun math-comp-add-string-sel (x y w h) (byte-code " X… \\ V… X… \\ V…#ȉ‡" [y math-comp-sel-vpos h x math-comp-sel-hpos w math-comp-sel-tag comp-tag 10000] 2)) (defun math-comp-simplify-term (c) (byte-code ";ƒÑ #ˆ G\\‰‚™@Ò>ƒ™@Ó=ƒ8A‰…5Ô@!ˆ‚&‚™@Õ>ƒÌ Ö8Z×Ø8!S\\ÙÚAA\"ÛÜ \"@Ý=ƒcÞ‚o@ß=ƒnÖ‚oØA‰ˆA‰…Âà@!á=ƒ”Ñâ Ö@8\" #‚§ ãä @Z\"Ø\"\\Ô@!)ˆA…¾ å@!×Ö8!\\\\ A‰ˆ‚vˆ \\‰,‚™@æ=ƒÖ†Ü×Ö8!åØ8! ÔÖ8!ˆ  \\ZÔØ8!ˆ …ç è é×Ø8!#  Zê!$,‚™@ë=ƒ^×Ø8!åÖ8!  ÔÖ8!ˆ  \\\\ÔØ8!ˆ …Zç   Zê!$-‚™@ì=…™Ö8 =ƒ|?ÔØ8!)‚™Ö8Ç=ƒÃÔØ8!)‚™ÔØ8!)‡" [c comp-hpos comp-vpos nil widths maxwid bias t asc desc oldh math-comp-sel-hpos oldv math-comp-selected comp-highlight calc-show-selections comp-tag math-comp-add-string (set break) horiz math-comp-simplify-term (vleft vcent vright) 1 math-comp-ascent 2 mapcar math-comp-width apply max vleft 0 vcent car-safe rule make-string / * math-comp-descent supscr math-comp-add-string-sel - -1 math-comp-height subscr tag] 32)) (defun math-comp-first-char (c) (byte-code ";ƒGÁV…ÂÁ\"‚E@Ã>ƒ9A‰…%Ä@!…-ň‚ˆ…6Æ@!‚E@Ç=…EÆÈ8!‡" [c 0 elt (horiz subscr supscr) math-comp-is-null nil math-comp-first-char tag 2] 6)) (defun math-comp-first-string (c) (byte-code ";ƒGÁV… ‚B@Â=ƒ6A‰…\"Ã@!…*Ĉ‚ˆ…3Å@!‚B@Æ=…BÅÇ8!‡" [c 0 horiz math-comp-is-null nil math-comp-first-string tag 2] 5)) (defun math-comp-last-char (c) (byte-code ";ƒGÁV…ÂGS\"‚M@Ã=ƒAÄA!…)Å@!…4A‰ˆ‚!ˆ…=Æ@!)‚M@Ç=…MÆÈ8!‡" [c 0 elt horiz reverse math-comp-is-null math-comp-last-char tag 2] 7)) (defun math-comp-is-null (c) (byte-code ";ƒ GÂU‚C@Ã>ƒ,A‰…Ä@!…&ň‚ˆ?‚C@Æ=ƒ;ÄÇ8!‚C@È>…CÁ‡" [c t 0 (horiz subscr supscr) math-comp-is-null nil tag 2 (set break)] 4)) (defun math-comp-width (c) (byte-code ":?ƒ G‚d@Ã>ƒ-ÄA‰…' Å@!\\‰ˆ‚ˆ )‚d@Æ>ƒTA‰ˆÄA‰…N Å@!]‰ˆ‚;ˆ )‚d@Ç=ƒcÅÈ8!‚dć" [c accum t (horiz subscr supscr) 0 math-comp-width (vcent vleft vright) tag 2] 5)) (defun math-comp-height (c) (byte-code ";ƒ Á‚Â!Ã!\\‡" [c 1 math-comp-ascent math-comp-descent] 4)) (defun math-comp-ascent (c) (byte-code ":?ƒ Â{@Ä=ƒ,ÅA‰…& Æ@!]‰ˆ‚ˆ )‚{@Ç>ƒFÃ8ÅVƒBÃ8T‚CÂ{@È=ƒ\\ÆÃ8!ÉÊ8!T]‚{@Ë=ƒkÆÃ8!‚{@Ì=ƒzÆÊ8!‚{Ç" [c accum t 1 horiz 0 math-comp-ascent (vcent vleft vright) supscr math-comp-height 2 subscr tag] 7)) (defun math-comp-descent (c) (byte-code ":?ƒ Â@Ä=ƒ,ÃA‰…& Å@!]‰ˆ‚ˆ )‚@Æ>ƒYÇ8[A‰ˆA‰…P È@!\\‰ˆ‚=ˆ SÃ])‚@É=ƒhÅÇ8!‚@Ê=ƒ}ÅÇ8!ÈË8!\\‚@Ì=ƒŒÅË8!‚Ç" [c accum t 0 horiz math-comp-descent (vcent vleft vright) 1 math-comp-height supscr subscr 2 tag] 8)) (defun calcFunc-cwidth (a &optional prec) (byte-code "…Â!?…ÃÄ\"ˆÅÆ †Ç\"!‡" [prec a integerp math-reject-arg fixnump math-comp-width math-compose-expr 0] 6)) (defun calcFunc-cheight (a &optional prec) (byte-code "…Â!?…ÃÄ\"ˆ @Å>…# GÆ>…#Ç 8È=ƒ*È‚4ÉÊ †2È\"!‡" [prec a integerp math-reject-arg fixnump (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) 1 0 math-comp-height math-compose-expr] 6)) (defun calcFunc-cascent (a &optional prec) (byte-code "…Â!?…ÃÄ\"ˆ @Å>…# GÆ>…#Ç 8È=ƒ*È‚4ÉÊ †2È\"!‡" [prec a integerp math-reject-arg fixnump (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) 1 0 math-comp-ascent math-compose-expr] 6)) (defun calcFunc-cdescent (a &optional prec) (byte-code "…Â!?…ÃÄ\"ˆÅÆ †Ç\"!‡" [prec a integerp math-reject-arg fixnump math-comp-descent math-compose-expr 0] 6)) (defun math-vert-comp-to-string (c) (byte-code ";ƒ ‚ÁAA!‡" [c math-vert-comp-to-string-step] 2)) (defun math-vert-comp-to-string-step (c) (byte-code "Aƒ@ÁÂA!Q‚@‡" [c " " math-vert-comp-to-string-step] 4)) (defun math-comp-to-string-raw (c indent) (byte-code ":?† @Ä=ƒÅ!‚DA?ƒ#ÆÇ@!ÈQ‚DÉ ÊÇ@!G#ËÆÇ@!ÌÍÎ8 \"ÏAA \"È&)‡" [c t next-indent indent set prin1-to-string "(" symbol-name ")" + 2 concat " " math-comp-to-string-raw 1 math-comp-to-string-raw-step] 14)) (defun math-comp-to-string-raw-step (cl indent) (byte-code "ƒÂà Ä\"Å@ \"ÆA \"R‚LJ" [cl indent " " make-string 32 math-comp-to-string-raw math-comp-to-string-raw-step ""] 8))