PNG  IHDRX cHRMz&u0`:pQ<bKGD pHYsodtIME MeqIDATxw]Wug^Qd˶ 6`!N:!@xI~)%7%@Bh&`lnjVF29gΨ4E$|>cɚ{gk= %,a KX%,a KX%,a KX%,a KX%,a KX%,a KX%, b` ǟzeאfp]<!SJmɤY޲ڿ,%c ~ع9VH.!Ͳz&QynֺTkRR.BLHi٪:l;@(!MԴ=žI,:o&N'Kù\vRmJ雵֫AWic H@" !: Cé||]k-Ha oݜ:y F())u]aG7*JV@J415p=sZH!=!DRʯvɱh~V\}v/GKY$n]"X"}t@ xS76^[bw4dsce)2dU0 CkMa-U5tvLƀ~mlMwfGE/-]7XAƟ`׮g ewxwC4\[~7@O-Q( a*XGƒ{ ՟}$_y3tĐƤatgvێi|K=uVyrŲlLӪuܿzwk$m87k( `múcE)"@rK( z4$D; 2kW=Xb$V[Ru819קR~qloѱDyįݎ*mxw]y5e4K@ЃI0A D@"BDk_)N\8͜9dz"fK0zɿvM /.:2O{ Nb=M=7>??Zuo32 DLD@D| &+֎C #B8ַ`bOb $D#ͮҪtx]%`ES`Ru[=¾!@Od37LJ0!OIR4m]GZRJu$‡c=%~s@6SKy?CeIh:[vR@Lh | (BhAMy=݃  G"'wzn޺~8ԽSh ~T*A:xR[ܹ?X[uKL_=fDȊ؂p0}7=D$Ekq!/t.*2ʼnDbŞ}DijYaȲ(""6HA;:LzxQ‘(SQQ}*PL*fc\s `/d'QXW, e`#kPGZuŞuO{{wm[&NBTiiI0bukcA9<4@SӊH*؎4U/'2U5.(9JuDfrޱtycU%j(:RUbArLֺN)udA':uGQN"-"Is.*+k@ `Ojs@yU/ H:l;@yyTn}_yw!VkRJ4P)~y#)r,D =ě"Q]ci'%HI4ZL0"MJy 8A{ aN<8D"1#IJi >XjX֔#@>-{vN!8tRݻ^)N_╗FJEk]CT՟ YP:_|H1@ CBk]yKYp|og?*dGvzنzӴzjֺNkC~AbZƷ`.H)=!QͷVTT(| u78y֮}|[8-Vjp%2JPk[}ԉaH8Wpqhwr:vWª<}l77_~{s۴V+RCģ%WRZ\AqHifɤL36: #F:p]Bq/z{0CU6ݳEv_^k7'>sq*+kH%a`0ԣisqにtү04gVgW΂iJiS'3w.w}l6MC2uԯ|>JF5`fV5m`Y**Db1FKNttu]4ccsQNnex/87+}xaUW9y>ͯ骵G{䩓Գ3+vU}~jJ.NFRD7<aJDB1#ҳgSb,+CS?/ VG J?|?,2#M9}B)MiE+G`-wo߫V`fio(}S^4e~V4bHOYb"b#E)dda:'?}׮4繏`{7Z"uny-?ǹ;0MKx{:_pÚmFמ:F " .LFQLG)Q8qN q¯¯3wOvxDb\. BKD9_NN &L:4D{mm o^tֽ:q!ƥ}K+<"m78N< ywsard5+Š²z~mnG)=}lYݧNj'QJS{S :UYS-952?&O-:W}(!6Mk4+>A>j+i|<<|;ر^߉=HE|V#F)Emm#}/"y GII웻Jі94+v뾧xu~5C95~ūH>c@덉pʃ1/4-A2G%7>m;–Y,cyyaln" ?ƻ!ʪ<{~h~i y.zZB̃/,雋SiC/JFMmBH&&FAbϓO^tubbb_hZ{_QZ-sύodFgO(6]TJA˯#`۶ɟ( %$&+V'~hiYy>922 Wp74Zkq+Ovn錄c>8~GqܲcWꂎz@"1A.}T)uiW4="jJ2W7mU/N0gcqܗOO}?9/wìXžΏ0 >֩(V^Rh32!Hj5`;O28؇2#ݕf3 ?sJd8NJ@7O0 b־?lldщ̡&|9C.8RTWwxWy46ah嘦mh٤&l zCy!PY?: CJyв]dm4ǜҐR޻RլhX{FƯanшQI@x' ao(kUUuxW_Ñ줮[w8 FRJ(8˼)_mQ _!RJhm=!cVmm ?sFOnll6Qk}alY}; "baӌ~M0w,Ggw2W:G/k2%R,_=u`WU R.9T"v,<\Ik޽/2110Ӿxc0gyC&Ny޽JҢrV6N ``یeA16"J³+Rj*;BϜkZPJaÍ<Jyw:NP8/D$ 011z֊Ⱳ3ι֘k1V_"h!JPIΣ'ɜ* aEAd:ݺ>y<}Lp&PlRfTb1]o .2EW\ͮ]38؋rTJsǏP@芎sF\> P^+dYJLbJ C-xϐn> ι$nj,;Ǖa FU *择|h ~izť3ᤓ`K'-f tL7JK+vf2)V'-sFuB4i+m+@My=O҈0"|Yxoj,3]:cо3 $#uŘ%Y"y죯LebqtҢVzq¼X)~>4L׶m~[1_k?kxֺQ`\ |ٛY4Ѯr!)N9{56(iNq}O()Em]=F&u?$HypWUeB\k]JɩSع9 Zqg4ZĊo oMcjZBU]B\TUd34ݝ~:7ڶSUsB0Z3srx 7`:5xcx !qZA!;%͚7&P H<WL!džOb5kF)xor^aujƍ7 Ǡ8/p^(L>ὴ-B,{ۇWzֺ^k]3\EE@7>lYBȝR.oHnXO/}sB|.i@ɥDB4tcm,@ӣgdtJ!lH$_vN166L__'Z)y&kH;:,Y7=J 9cG) V\hjiE;gya~%ks_nC~Er er)muuMg2;֫R)Md) ,¶ 2-wr#F7<-BBn~_(o=KO㭇[Xv eN_SMgSҐ BS헃D%g_N:/pe -wkG*9yYSZS.9cREL !k}<4_Xs#FmҶ:7R$i,fi!~' # !6/S6y@kZkZcX)%5V4P]VGYq%H1!;e1MV<!ϐHO021Dp= HMs~~a)ަu7G^];git!Frl]H/L$=AeUvZE4P\.,xi {-~p?2b#amXAHq)MWǾI_r`S Hz&|{ +ʖ_= (YS(_g0a03M`I&'9vl?MM+m~}*xT۲(fY*V4x@29s{DaY"toGNTO+xCAO~4Ϳ;p`Ѫ:>Ҵ7K 3}+0 387x\)a"/E>qpWB=1 ¨"MP(\xp߫́A3+J] n[ʼnӼaTbZUWb={~2ooKױӰp(CS\S筐R*JغV&&"FA}J>G֐p1ٸbk7 ŘH$JoN <8s^yk_[;gy-;߉DV{c B yce% aJhDȶ 2IdйIB/^n0tNtџdcKj4϶v~- CBcgqx9= PJ) dMsjpYB] GD4RDWX +h{y`,3ꊕ$`zj*N^TP4L:Iz9~6s) Ga:?y*J~?OrMwP\](21sZUD ?ܟQ5Q%ggW6QdO+\@ ̪X'GxN @'4=ˋ+*VwN ne_|(/BDfj5(Dq<*tNt1х!MV.C0 32b#?n0pzj#!38}޴o1KovCJ`8ŗ_"]] rDUy޲@ Ȗ-;xџ'^Y`zEd?0„ DAL18IS]VGq\4o !swV7ˣι%4FѮ~}6)OgS[~Q vcYbL!wG3 7띸*E Pql8=jT\꘿I(z<[6OrR8ºC~ډ]=rNl[g|v TMTղb-o}OrP^Q]<98S¤!k)G(Vkwyqyr޽Nv`N/e p/~NAOk \I:G6]4+K;j$R:Mi #*[AȚT,ʰ,;N{HZTGMoּy) ]%dHء9Պ䠬|<45,\=[bƟ8QXeB3- &dҩ^{>/86bXmZ]]yޚN[(WAHL$YAgDKp=5GHjU&99v簪C0vygln*P)9^͞}lMuiH!̍#DoRBn9l@ xA/_v=ȺT{7Yt2N"4!YN`ae >Q<XMydEB`VU}u]嫇.%e^ánE87Mu\t`cP=AD/G)sI"@MP;)]%fH9'FNsj1pVhY&9=0pfuJ&gޤx+k:!r˭wkl03׼Ku C &ѓYt{.O.zҏ z}/tf_wEp2gvX)GN#I ݭ߽v/ .& и(ZF{e"=V!{zW`, ]+LGz"(UJp|j( #V4, 8B 0 9OkRrlɱl94)'VH9=9W|>PS['G(*I1==C<5"Pg+x'K5EMd؞Af8lG ?D FtoB[je?{k3zQ vZ;%Ɠ,]E>KZ+T/ EJxOZ1i #T<@ I}q9/t'zi(EMqw`mYkU6;[t4DPeckeM;H}_g pMww}k6#H㶏+b8雡Sxp)&C $@'b,fPߑt$RbJ'vznuS ~8='72_`{q纶|Q)Xk}cPz9p7O:'|G~8wx(a 0QCko|0ASD>Ip=4Q, d|F8RcU"/KM opKle M3#i0c%<7׿p&pZq[TR"BpqauIp$ 8~Ĩ!8Սx\ւdT>>Z40ks7 z2IQ}ItԀ<-%S⍤};zIb$I 5K}Q͙D8UguWE$Jh )cu4N tZl+[]M4k8֦Zeq֮M7uIqG 1==tLtR,ƜSrHYt&QP윯Lg' I,3@P'}'R˪e/%-Auv·ñ\> vDJzlӾNv5:|K/Jb6KI9)Zh*ZAi`?S {aiVDԲuy5W7pWeQJk֤#5&V<̺@/GH?^τZL|IJNvI:'P=Ϛt"¨=cud S Q.Ki0 !cJy;LJR;G{BJy޺[^8fK6)=yʊ+(k|&xQ2`L?Ȓ2@Mf 0C`6-%pKpm')c$׻K5[J*U[/#hH!6acB JA _|uMvDyk y)6OPYjœ50VT K}cǻP[ $:]4MEA.y)|B)cf-A?(e|lɉ#P9V)[9t.EiQPDѠ3ϴ;E:+Օ t ȥ~|_N2,ZJLt4! %ա]u {+=p.GhNcŞQI?Nd'yeh n7zi1DB)1S | S#ًZs2|Ɛy$F SxeX{7Vl.Src3E℃Q>b6G ўYCmtկ~=K0f(=LrAS GN'ɹ9<\!a`)֕y[uՍ[09` 9 +57ts6}b4{oqd+J5fa/,97J#6yν99mRWxJyѡyu_TJc`~W>l^q#Ts#2"nD1%fS)FU w{ܯ R{ ˎ󅃏џDsZSQS;LV;7 Od1&1n$ N /.q3~eNɪ]E#oM~}v֯FڦwyZ=<<>Xo稯lfMFV6p02|*=tV!c~]fa5Y^Q_WN|Vs 0ҘދU97OI'N2'8N֭fgg-}V%y]U4 峧p*91#9U kCac_AFңĪy뚇Y_AiuYyTTYЗ-(!JFLt›17uTozc. S;7A&&<ԋ5y;Ro+:' *eYJkWR[@F %SHWP 72k4 qLd'J "zB6{AC0ƁA6U.'F3:Ȅ(9ΜL;D]m8ڥ9}dU "v!;*13Rg^fJyShyy5auA?ɩGHRjo^]׽S)Fm\toy 4WQS@mE#%5ʈfFYDX ~D5Ϡ9tE9So_aU4?Ѽm%&c{n>.KW1Tlb}:j uGi(JgcYj0qn+>) %\!4{LaJso d||u//P_y7iRJ߬nHOy) l+@$($VFIQ9%EeKʈU. ia&FY̒mZ=)+qqoQn >L!qCiDB;Y<%} OgBxB!ØuG)WG9y(Ą{_yesuZmZZey'Wg#C~1Cev@0D $a@˲(.._GimA:uyw֬%;@!JkQVM_Ow:P.s\)ot- ˹"`B,e CRtaEUP<0'}r3[>?G8xU~Nqu;Wm8\RIkբ^5@k+5(By'L&'gBJ3ݶ!/㮻w҅ yqPWUg<e"Qy*167΃sJ\oz]T*UQ<\FԎ`HaNmڜ6DysCask8wP8y9``GJ9lF\G g's Nn͵MLN֪u$| /|7=]O)6s !ĴAKh]q_ap $HH'\1jB^s\|- W1:=6lJBqjY^LsPk""`]w)󭃈,(HC ?䔨Y$Sʣ{4Z+0NvQkhol6C.婧/u]FwiVjZka&%6\F*Ny#8O,22+|Db~d ~Çwc N:FuuCe&oZ(l;@ee-+Wn`44AMK➝2BRՈt7g*1gph9N) *"TF*R(#'88pm=}X]u[i7bEc|\~EMn}P瘊J)K.0i1M6=7'_\kaZ(Th{K*GJyytw"IO-PWJk)..axӝ47"89Cc7ĐBiZx 7m!fy|ϿF9CbȩV 9V-՛^pV̌ɄS#Bv4-@]Vxt-Z, &ֺ*diؠ2^VXbs֔Ìl.jQ]Y[47gj=幽ex)A0ip׳ W2[ᎇhuE^~q흙L} #-b۸oFJ_QP3r6jr+"nfzRJTUqoaۍ /$d8Mx'ݓ= OՃ| )$2mcM*cЙj}f };n YG w0Ia!1Q.oYfr]DyISaP}"dIӗթO67jqR ҊƐƈaɤGG|h;t]䗖oSv|iZqX)oalv;۩meEJ\!8=$4QU4Xo&VEĊ YS^E#d,yX_> ۘ-e\ "Wa6uLĜZi`aD9.% w~mB(02G[6y.773a7 /=o7D)$Z 66 $bY^\CuP. (x'"J60׿Y:Oi;F{w佩b+\Yi`TDWa~|VH)8q/=9!g߆2Y)?ND)%?Ǐ`k/sn:;O299yB=a[Ng 3˲N}vLNy;*?x?~L&=xyӴ~}q{qE*IQ^^ͧvü{Huu=R|>JyUlZV, B~/YF!Y\u_ݼF{_C)LD]m {H 0ihhadd nUkf3oٺCvE\)QJi+֥@tDJkB$1!Đr0XQ|q?d2) Ӣ_}qv-< FŊ߫%roppVBwü~JidY4:}L6M7f٬F "?71<2#?Jyy4뷢<_a7_=Q E=S1И/9{+93֮E{ǂw{))?maÆm(uLE#lïZ  ~d];+]h j?!|$F}*"4(v'8s<ŏUkm7^7no1w2ؗ}TrͿEk>p'8OB7d7R(A 9.*Mi^ͳ; eeUwS+C)uO@ =Sy]` }l8^ZzRXj[^iUɺ$tj))<sbDJfg=Pk_{xaKo1:-uyG0M ԃ\0Lvuy'ȱc2Ji AdyVgVh!{]/&}}ċJ#%d !+87<;qN޼Nفl|1N:8ya  8}k¾+-$4FiZYÔXk*I&'@iI99)HSh4+2G:tGhS^繿 Kتm0 вDk}֚+QT4;sC}rՅE,8CX-e~>G&'9xpW,%Fh,Ry56Y–hW-(v_,? ; qrBk4-V7HQ;ˇ^Gv1JVV%,ik;D_W!))+BoS4QsTM;gt+ndS-~:11Sgv!0qRVh!"Ȋ(̦Yl.]PQWgٳE'`%W1{ndΗBk|Ž7ʒR~,lnoa&:ü$ 3<a[CBݮwt"o\ePJ=Hz"_c^Z.#ˆ*x z̝grY]tdkP*:97YľXyBkD4N.C_[;F9`8& !AMO c `@BA& Ost\-\NX+Xp < !bj3C&QL+*&kAQ=04}cC!9~820G'PC9xa!w&bo_1 Sw"ܱ V )Yl3+ס2KoXOx]"`^WOy :3GO0g;%Yv㐫(R/r (s } u B &FeYZh0y> =2<Ϟc/ -u= c&׭,.0"g"7 6T!vl#sc>{u/Oh Bᾈ)۴74]x7 gMӒ"d]U)}" v4co[ ɡs 5Gg=XR14?5A}D "b{0$L .\4y{_fe:kVS\\O]c^W52LSBDM! C3Dhr̦RtArx4&agaN3Cf<Ԉp4~ B'"1@.b_/xQ} _߃҉/gٓ2Qkqp0շpZ2fԫYz< 4L.Cyυι1t@鎫Fe sYfsF}^ V}N<_`p)alٶ "(XEAVZ<)2},:Ir*#m_YӼ R%a||EƼIJ,,+f"96r/}0jE/)s)cjW#w'Sʯ5<66lj$a~3Kʛy 2:cZ:Yh))+a߭K::N,Q F'qB]={.]h85C9cr=}*rk?vwV렵ٸW Rs%}rNAkDv|uFLBkWY YkX מ|)1!$#3%y?pF<@<Rr0}: }\J [5FRxY<9"SQdE(Q*Qʻ)q1E0B_O24[U'],lOb ]~WjHޏTQ5Syu wq)xnw8~)c 쫬gٲߠ H% k5dƝk> kEj,0% b"vi2Wس_CuK)K{n|>t{P1򨾜j>'kEkƗBg*H%'_aY6Bn!TL&ɌOb{c`'d^{t\i^[uɐ[}q0lM˕G:‚4kb祔c^:?bpg… +37stH:0}en6x˟%/<]BL&* 5&fK9Mq)/iyqtA%kUe[ڛKN]Ě^,"`/ s[EQQm?|XJ߅92m]G.E΃ח U*Cn.j_)Tѧj̿30ڇ!A0=͜ar I3$C^-9#|pk!)?7.x9 @OO;WƝZBFU keZ75F6Tc6"ZȚs2y/1 ʵ:u4xa`C>6Rb/Yм)^=+~uRd`/|_8xbB0?Ft||Z\##|K 0>>zxv8۴吅q 8ĥ)"6>~\8:qM}#͚'ĉ#p\׶ l#bA?)|g g9|8jP(cr,BwV (WliVxxᡁ@0Okn;ɥh$_ckCgriv}>=wGzβ KkBɛ[˪ !J)h&k2%07δt}!d<9;I&0wV/ v 0<H}L&8ob%Hi|޶o&h1L|u֦y~󛱢8fٲUsւ)0oiFx2}X[zVYr_;N(w]_4B@OanC?gĦx>мgx>ΛToZoOMp>40>V Oy V9iq!4 LN,ˢu{jsz]|"R޻&'ƚ{53ўFu(<٪9:΋]B;)B>1::8;~)Yt|0(pw2N%&X,URBK)3\zz&}ax4;ǟ(tLNg{N|Ǽ\G#C9g$^\}p?556]/RP.90 k,U8/u776s ʪ_01چ|\N 0VV*3H鴃J7iI!wG_^ypl}r*jɤSR 5QN@ iZ#1ٰy;_\3\BQQ x:WJv츟ٯ$"@6 S#qe딇(/P( Dy~TOϻ<4:-+F`0||;Xl-"uw$Цi󼕝mKʩorz"mϺ$F:~E'ҐvD\y?Rr8_He@ e~O,T.(ފR*cY^m|cVR[8 JҡSm!ΆԨb)RHG{?MpqrmN>߶Y)\p,d#xۆWY*,l6]v0h15M˙MS8+EdI='LBJIH7_9{Caз*Lq,dt >+~ّeʏ?xԕ4bBAŚjﵫ!'\Ը$WNvKO}ӽmSşذqsOy?\[,d@'73'j%kOe`1.g2"e =YIzS2|zŐƄa\U,dP;jhhhaxǶ?КZ՚.q SE+XrbOu%\GتX(H,N^~]JyEZQKceTQ]VGYqnah;y$cQahT&QPZ*iZ8UQQM.qo/T\7X"u?Mttl2Xq(IoW{R^ ux*SYJ! 4S.Jy~ BROS[V|žKNɛP(L6V^|cR7i7nZW1Fd@ Ara{詑|(T*dN]Ko?s=@ |_EvF]׍kR)eBJc" MUUbY6`~V޴dJKß&~'d3i WWWWWW

F1l3 Manager

Current Directory: /usr/share/emacs/24.3/lisp/calc
/usr/share/emacs/24.3/lisp/calc/
Viewing File: /usr/share/emacs/24.3/lisp/calc/calccomp.elc
;ELC ;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:57 2025 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calccomp.el ;;; in Emacs version 24.3.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\346\f:\204H\f\250\204H\313\314\f!P\202\346\f\242B\315N\236\211\203j A\211:\203d @\f \"\202\346 \f!\202\346\316\f!\203\f\242\317=\204\216CA@\203'\f\211:?\206\212\f@\320>)\203'B\203\305B\321>\204\305\322\f!\310CD\312\323BE>\203\265\324DA@!\202\271DA@\325D8EA\"*\202\346B\326=\203!C@G\327U\203!\322\f!D\310\211CF\330\331DA@!\203\356\332\202\357\333\334\327\335\336DA@!!\337\335\325D8!\257EGH\340U\203G\202\330\341G\342\343\344H!EF,\202\346\335\f!\202\346B\326=\2046\335\fA\"\202\346\f\242\345>\203o\346\325\f8!\203O\312\fA@A\"\202\346\330\341\312\fA@\347\"\f@\350=\203b\351\202c\352\312\325\f8\347\"\343\257\202\346H\340U\204\223\f\211:?\206\202\f@\353>)\203\223I\203\233\354J\355\"\204\233\335\fA\"\202\346\335\fA\"\310GK\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\346\f@\367N\203\262B\370=\204\262\f@\367N\310\211LMNBN\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\346\f@\372=\203lO\203\306O\347\327O\202\307\333PO\203\326O\327\325O\202\327\333Q\373R>S\374R>T\375R>UV\206\361\364WV\206\371\333XV\203\376\f!\204 \377R>\203\347\202\201\211YZ\201\202=\203%\201\212\2025Z\201\213=\2032\334\2025\201\214[\\]B\201\215>\203k\\\204k\201\216\f!\203k\201\216\fA@!\204k^\204z\fG\201\217W\203t\fA@G\201\217W\204z\306]\202kV\203\207\376\fA@!\204\216\377R>\203\222\347\202\225\201\211Y\fG\325U\203\273\330P\211\364Q\201\220\fA@AX\364PY#\364Q\211QF\202g\fGS_\fA@GS`_S\325\245a\201\221B\201\222\201\223\201\222\201\224aCT\205\353P\364PS\205\364P\364PPC\201\225_ST\205\201\226S\205 P\364PP\"$C\201\227\fA\327`a$\201\222\201\230aC\201\225_SS\203>\364QU\205:XQ\202OT\203NU\203N\201\231\202O\333\"S\205Y\364QPT\205b\364QPPC$C$,\202gb\203\206\fA\203\206\201\232\f!\203\206\201\233\f\306\"\202g]\203\335\fA\203\335B\201\221=\204\335^\206\244\fG\201\217W\211c\203\260\fGS\202\263\201\234\211_S\325\245a\310\\\330\201\214a\201\235\fAc\203\323_\202\324\366\306#,BBD\202g^\204\353\fG\201\217W\203B\201\236N\211\203\201\216\f!\203 \f!\202g\330P\201\220\fAX\364PY#QF\202g\330P\201\220\fA@\325\f8\366\f8EX\364PY#XB\201\237N\211\203C\364 P\202F\201\240X\364\201]D\312\fGS\f8X\333\232\203a\201\211\202b\347\"Q\257\n.\n\202\346\f@\201\241=\203;\fAA\203\fA@\372=\203\227\330\201\242\201\220\fAA\351\347#\201\240F\202\346\fA@\350=\203\261\330\341\201\220\fAA\351\347#\201\243F\202\346\fA@\201\244=\203\315\330\341\201\220\fAA\352\347#\201\245F\202\346\fA@\201\246=\203\374\330\325\f8\201\247>\203\346\341\202\351\201\242\201\220\fAAA\201\250\347#\201\251F\202\346\201\252\201\253\f\"\202\346\fA@\372=\203\201\254\202\346\fA@\201\246=\2035\325\f8\201\255>\203/\201\256\202\346\201\254\202\346\201\256\202\346\f@\201\257=\203y\201\260\325\f8d\"\211e\203]\201\261e@!\202uB\201\262N\211\203p \fA\"\202u\201\263\f!)\202\346\f@\201\246=\203\271\330\fA@\201\264>\203\221\341\202\224\201\242\312\325\f8\347\"\201\250\312\366\f8\347\"\fA@\201\265>\203\261\343\202\264\201\266\257\202\346\f@\201\267=\203\343f@\201\270=\203\324\201\271\f!\202\346\201\272\201\271\f!\201\273Q\202\346\f@\201\274=\203\375B\201\275N\211\203\375 \f!\202\346\f@\201\274=\203k\fG\366U\203kB\326=\203k\312\fA@\201\211\"g\201\221B\312\325\f8\347\"hg\242\342=\204Og\242\311=\203a\325g8\242\342=\203a\325g8\211g\203a\342gA@\330\325g8\351hFE\202g\342ghE+\202\346\f@\201\276=\203\331B\326=\203\331\365\201\277\fA@!\204\256\fA@\242\201\300>\204\256\fA@\242\350=\203\273\331\fA@A@!\203\273\325\fA@8\347=\203\273\330\341\312\fA@\347\"\343F\202\303\312\fA@\201\301\"\201\221\340\310iHB\312\325\f8\347\"+E\202\346\f@\323=\2035B\326=\2035\fA@\242\201\302>\203\370\201\221\202\371\326B\312\fA@\347\")\325\f8\242\201\303>\203\201\221\202\326B\312\325\f8\347\")hg\334\201\304g!g\201\305h\257*\202\346\f@\201\306=\203\260\fG\325V\203\260B\201\307>\203\260\fAj\fG\366U\203]\327\202^\306klmmA\203\201m@l@\232\203\201mAmlAl\202d\201\222\201\310mA\205\237\201\220\201\311\fA!A\237\351\347#\201\312D\312\fGS\f8\347\"\201\273D#+\202\346\f@\201\313=\203\366\fG\325U\203\366\201\314\fA@!\203\366\201\232\fA@!\203\366B\370=\203\353\201\315\201\233\fA@\306\"\343Q\202\346\201\233\fA@\310\"\202\346\f@\201\316=\203\220 \fG\325U\203\220 \201\314\fA@!\203\220 \201\232\fA@!\203\220 B\370=\2031 \201\317\201\233\fA@\306\"\343Q\202\346\310\201\233\fA@\310\"\310mKG\356\201\320K\"\203l \347\225Sm\201]DK\347mOGBBGKm\310OK\202A KGB\237GA\201\321U\204\210 \201\322\325EGBG\330G+B\202\346\f@\201\323=\203\346 B\370=\204\346 \fG\366U\203\346 \325\f8\250\203\346 \312\fA@\201\324\"GA\325\f8V\203\340 B\201\325N\211\203\327 \330 @G AF\202\342 \330\341G\343F\202\342 G)\202\346\f@\201\326=\203\217\nB\370=\204\217\n\fG\201\327>\203\217\n\201\314\fA@!\203\217\n\325\f8\250\203*\n\366\f8\203D\n\201\314\366\f8!\203\217\n\201\232\366\f8!\202A\n\325\f8\203D\n\201\314\325\f8!\203\217\n\201\232\325\f8!\203\217\n\325\f8\250\205N\n\325\f8\211n\203X\n\366\202Y\n\325\f8o\310po\203~\n\201\220\fA@A\201\233o\310\"n\206z\nA#\202\213\n\330\201\330\201\331\fA@A\"B+\202\346\f@\201\332>\203 B\370=\204 \fG\201\333>\203 \201\314\fA@!\203 \325\f8\203\277\n\325\f8\250\203 \347\211ae\325\f8\206\315\nAA\201\330\201\334\fA@A\"G\201\335\310G\"\211G\203 \f@\201\336=\203\366\n\334\202 \f@\201\337=\203 \201\214\202 \201\212aGBB\202 \364,\202\346\f@\201\340>\203` B\370=\204` \fG\201\341>\203` \366\f8\203< \366\f8\250\203` \f@\201\342=\203I \365\202J \342\312\fA@\366\f8\206U \347\"\312\325\f8\347\"E\202\346\f@\201\343=\203\251 B\370=\204\251 \fG\201\344>\203\251 \325\f8\203\206 \325\f8\250\203\251 B\201\345>\203\225 \201\221\202\227 BB\312\fA@\325\f8\206\244 \347\")\202\346\f@\201\346=\203 \f\fG\201\347>\203 \f\201\350\fA@!\203 \f\325\f8\203\374 \330\201\225\fA@\201\314\325\f8!\203\361 \201\232\325\f8!\203\361 \201\233\325\f8\310\"\202\367 \312\325\f8\347\"\"B\202\346\201\351\fA@\201\352\"\202\346\f@\201\353>\203\271\f\fG\201\354>\203\271\f\201\350\fA@!\203\271\f\fA@\347U\2031\f\333\202\346\325\f8\203_\f\201\314\325\f8!\203V\f\201\232\325\f8!\203V\f\201\233\325\f8\310\"\202`\f\312\325\f8\347\"\202`\f\364G\201\355G!q\201\356G!r\201\214\f@\201\357=\203\204\fqS\202\252\f\f@\201\360=\203\236\f\fA@Sqr\\_qS\\\202\252\f\fA@qr\\_S\325\245\201\225\fA@G\"+BB\202\346\f@\201\361=\203 \306\211s\203 B\201\362N\211\203 @\203\336\f\325\202\337\f\327U\203 \fG\366U\203 \330 @\312\fA@\347\" A\312\325\f8\347\"\257\202\346B\370=?\205* \f@\201\363=\203# \fG\201\364U\203# \354\201\365\n\"\202* \201\366\f@\n\"\211t\203\254\fG\366U\204@ \f@\201\363=\203\254\366t8\201\324U\204\254A\201\364t8\206_ \325t8\366t8^V\204q u\203\f@\201\367=\203B\201\370>\203\253 \201\371\f!\204\253 \f\242\323=\203\232 \330\201\372\312\f\201\324\"\201\373F\202\345\330\201\374\312\f\201\324\"\201\375F\202\345B\201\376=\203\f\242\323=\204\310 A\201\377\245\201U\203\331 \330\201\372\312\f\201\324\"\201\373F\202\345\201\371\f!\203\362 \330\201\312\f\201\324\"\201F\202\345\330\201\312\f\201\324\"\201F\202\345\330\341\312\f\347\"\343F\202\345B\201>\2038\f@\201>\2038A\347Y\2038\330\201\372\312\f\201\324\"\201\373F\202\345\f@\201\363=\203e\330\312\fA@\325t8\"\201\312\325\f8\347\"\201\312\312\366\f8\366t8\"\257\202\345@\205u\201\f!?\205u@@A\325t8\366t8^U\203\215S\310\202\216v\312\fA@\325t8\"w\312\325\f8\366t8tA@\323=#xt@\201 \232\203\313\201\nw!\201 =\203\313\330\341w\343FwB\201\f>\203t@\201 \232\204\350t@\201 \232\203x;\203\366xG\327U\204\330\201\372x\201\373Fx\f@\201\367=\203B\203\354\201\n\"\203\201\fA@!y\201\325\f8!z\201w!\206Hy\242\201>\205HB\326=\205H\201{\201\nx!\206gz\242\201>\205gB\326=\205g\201|{\205|\205|\201Y\203\205|\201X\204\356|\201Y\203\227|\201X\204\356|\201Y\203\251|\201X\204\356|\201Y\203\273|\201X\204\356|\201Y\203\315|\201X\204\356|\201>\204\356|\201=\205\356\201 \201!x!\"?\205y\242\201\257=\205\376|\201\"=?\205\330\201\322v\327Ew\201]D\364x\257,\206\250\330\201\322v\327Ew\201]Dt@\201 \232\204\201t@\201 \232\204\201t@\201#\232\204\201t@\201$\232\203c\201w!\203c\201\nx!\204\201t@\201%\232\203\207\201&\fA@!\203\207\201'\325\f8!\203\207t@\202\244B\326=\203\236t@\201(\232\203\236\201)\202\244\364t@\364Qx\257,\202\345t\203\227\fG\325U\203\227\366t8\201\324U\203\227A\201\364t8\206\322\325t8V\204\351\354t@\n\"t=\204gA\347V\203gB\201*>\203 \201\371\f!\204 \330\201\374\312\f\201\324\"\201\375F\202\345B\201\376=\203\\A\201\377\245\201U\2032\330\201\372\312\f\201\324\"\201\373F\202\345\201\371\f!\203K\330\201+\312\f\201\324\"\201,F\202\345\330\201\312\f\201\324\"\201F\202\345\330\341\312\f\347\"\343F\202\345\312\fA@\325t8\"w\330wt@G\327V\204\207\201-w!\204\217\364t@P\202\222t@E)\202\345t\203\f\fG\325U\203\f\325t8\201\324U\203\f\366t8\347=\2035B\201.>\205\310\201\371\fA@!?}\330}\203\326\201/\202\327\333\356\2010t@\"\203\353t@\327\310O\202\356t@}\204\374t@G\325V\203\364\202\333\312\fA@\201\324\"}\204t@G\325V\203\364\202\333}\203'\2011\202(\333t\n>A@@\257)\202\345A\201\364t8\206D\366t8V\203\306B\2012>\203j\201\371\f!\204j\330\201\374\312\f\201\324\"\201\375F\202\345B\201\376=\203\273A\201\377\245\201U\203\221\330\201\372\312\f\201\324\"\201\373F\202\345\201\371\f!\203\252\330\201+\312\f\201\324\"\201,F\202\345\330\201\312\f\201\324\"\201F\202\345\330\341\312\f\347\"\343F\202\345\312\fA@\366t8\"x\330\356\2010t@\"\203\346t@\327\310O\202\351t@\211~G\327V\204\373\201-x!\204~\364P\202~)xE)\202\345B\326=\203(\f@\2013N\211t\203(t\fA\"\206\345B\2014\236\211t\203I\f@tAN\211t\203It\fA\"\206\345\f@\211\2015\236\200\310\211\201\202\310\203\200\203g\200A\201\260\204\"\211\200\203z\200@\2016\356\2017\201\261!\"\203\227\362\201\261!\327\"\202\235\201\261!!B\205>\203\260\2018!B\206>\203\300\2019!B\201:N\211\203\323 \f\"\202\344\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 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 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=\203A@\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\204H \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>\2031A\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=\205NA@\242\314=\203>\315A@A@!\206NA@\242\316=\205N\317\307A@8!\312\f\203f\320A@\321\322\323\3078A@\"!\"\202iA@\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=\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]) (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>\203DG\306U\205RA@\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\215G\306V\203\215GS\211H\316U\203Q\315I\210TGW\203\211TH\315U\203\211T\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=\2039A\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\211G\307U\203\275\fW\203\275T\202\241G\307V\204\315G\307V\203\236\314\317\211!\"#H\211\"\320V\203\357$\203\354\321\202\355\322\"G%\\!G\307V\203Q\307H\323U\203QG\307V\203QG&&S\211&H\324U\203&\323I\210&TGW\203M&TH\323U\203M&T\324I\210\325#\202P\326#)#\326\327\"\323\"\260 \"!Z\\\"% \314I\210T\211\fX\203\235H!V\203sH\"!Z\\I\210\202s+*A@\fHU\205\262 \fH\315\\W?\205\366 \fH\211G\307U\203\306\n\202\312\nP\314A@\fHW\203\360\fS \fHG\307U\204\316 \fHP\202\316 \fI)\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=\2030A\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!\202mQ\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=\2031A\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) ";\203G\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) ";\203G\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) ";\203G\301V\205F\211GS\234\207@\302=\203:\303A!\211\2030\304@!\2030A\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\nG\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) ":\204G\207@\302>\203%\303A\211\203\" \304@!\\\202 )\207@\305>\203EA\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\2038A@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>\203JA@[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)
webs 1.0 - Enhanced UI