PNG  IHDRQgAMA a cHRMz&u0`:pQ<bKGDgmIDATxwUﹻ& ^CX(J I@ "% (** BX +*i"]j(IH{~R)[~>h{}gy)I$Ij .I$I$ʊy@}x.: $I$Ii}VZPC)I$IF ^0ʐJ$I$Q^}{"r=OzI$gRZeC.IOvH eKX $IMpxsk.쒷/&r[޳<v| .I~)@$updYRa$I |M.e JaֶpSYR6j>h%IRز if&uJ)M$I vLi=H;7UJ,],X$I1AҒJ$ XY XzI@GNҥRT)E@;]K*Mw;#5_wOn~\ DC&$(A5 RRFkvIR}l!RytRl;~^ǷJj اy뷦BZJr&ӥ8Pjw~vnv X^(I;4R=P[3]J,]ȏ~:3?[ a&e)`e*P[4]T=Cq6R[ ~ޤrXR Հg(t_HZ-Hg M$ãmL5R uk*`%C-E6/%[t X.{8P9Z.vkXŐKjgKZHg(aK9ڦmKjѺm_ \#$5,)-  61eJ,5m| r'= &ڡd%-]J on Xm|{ RҞe $eڧY XYrԮ-a7RK6h>n$5AVڴi*ֆK)mѦtmr1p| q:흺,)Oi*ֺK)ܬ֦K-5r3>0ԔHjJئEZj,%re~/z%jVMڸmrt)3]J,T K֦OvԒgii*bKiNO~%PW0=dii2tJ9Jݕ{7"I P9JKTbu,%r"6RKU}Ij2HKZXJ,妝 XYrP ެ24c%i^IK|.H,%rb:XRl1X4Pe/`x&P8Pj28Mzsx2r\zRPz4J}yP[g=L) .Q[6RjWgp FIH*-`IMRaK9TXcq*I y[jE>cw%gLRԕiFCj-ďa`#e~I j,%r,)?[gp FI˨mnWX#>mʔ XA DZf9,nKҲzIZXJ,L#kiPz4JZF,I,`61%2s $,VOϚ2/UFJfy7K> X+6 STXIeJILzMfKm LRaK9%|4p9LwJI!`NsiazĔ)%- XMq>pk$-$Q2x#N ؎-QR}ᶦHZډ)J,l#i@yn3LN`;nڔ XuX5pF)m|^0(>BHF9(cզEerJI rg7 4I@z0\JIi䵙RR0s;$s6eJ,`n 䂦0a)S)A 1eJ,堌#635RIgpNHuTH_SԕqVe ` &S)>p;S$魁eKIuX`I4춒o}`m$1":PI<[v9^\pTJjriRŭ P{#{R2,`)e-`mgj~1ϣLKam7&U\j/3mJ,`F;M'䱀 .KR#)yhTq;pcK9(q!w?uRR,n.yw*UXj#\]ɱ(qv2=RqfB#iJmmL<]Y͙#$5 uTU7ӦXR+q,`I}qL'`6Kͷ6r,]0S$- [RKR3oiRE|nӦXR.(i:LDLTJjY%o:)6rxzҒqTJjh㞦I.$YR.ʼnGZ\ֿf:%55 I˼!6dKxm4E"mG_ s? .e*?LRfK9%q#uh$)i3ULRfK9yxm܌bj84$i1U^@Wbm4uJ,ҪA>_Ij?1v32[gLRD96oTaR׿N7%L2 NT,`)7&ƝL*꽙yp_$M2#AS,`)7$rkTA29_Iye"|/0t)$n XT2`YJ;6Jx".e<`$) PI$5V4]29SRI>~=@j]lp2`K9Jaai^" Ԋ29ORI%:XV5]JmN9]H;1UC39NI%Xe78t)a;Oi Ҙ>Xt"~G>_mn:%|~ޅ_+]$o)@ǀ{hgN;IK6G&rp)T2i୦KJuv*T=TOSV>(~D>dm,I*Ɛ:R#ۙNI%D>G.n$o;+#RR!.eU˽TRI28t)1LWϚ>IJa3oFbu&:tJ*(F7y0ZR ^p'Ii L24x| XRI%ۄ>S1]Jy[zL$adB7.eh4%%누>WETf+3IR:I3Xה)3אOۦSRO'ٺ)S}"qOr[B7ϙ.edG)^ETR"RtRݜh0}LFVӦDB^k_JDj\=LS(Iv─aTeZ%eUAM-0;~˃@i|l @S4y72>sX-vA}ϛBI!ݎߨWl*)3{'Y|iSlEڻ(5KtSI$Uv02,~ԩ~x;P4ցCrO%tyn425:KMlD ^4JRxSهF_}شJTS6uj+ﷸk$eZO%G*^V2u3EMj3k%)okI]dT)URKDS 7~m@TJR~荪fT"֛L \sM -0T KfJz+nإKr L&j()[E&I ߴ>e FW_kJR|!O:5/2跌3T-'|zX ryp0JS ~^F>-2< `*%ZFP)bSn"L :)+pʷf(pO3TMW$~>@~ū:TAIsV1}S2<%ޟM?@iT ,Eūoz%i~g|`wS(]oȤ8)$ ntu`өe`6yPl IzMI{ʣzʨ )IZ2= ld:5+請M$-ї;U>_gsY$ÁN5WzWfIZ)-yuXIfp~S*IZdt;t>KūKR|$#LcԀ+2\;kJ`]YǔM1B)UbG"IRߊ<xܾӔJ0Z='Y嵤 Leveg)$znV-º^3Ւof#0Tfk^Zs[*I꯳3{)ˬW4Ւ4 OdpbZRS|*I 55#"&-IvT&/윚Ye:i$ 9{LkuRe[I~_\ؠ%>GL$iY8 9ܕ"S`kS.IlC;Ҏ4x&>u_0JLr<J2(^$5L s=MgV ~,Iju> 7r2)^=G$1:3G< `J3~&IR% 6Tx/rIj3O< ʔ&#f_yXJiގNSz; Tx(i8%#4 ~AS+IjerIUrIj362v885+IjAhK__5X%nV%Iͳ-y|7XV2v4fzo_68"S/I-qbf; LkF)KSM$ Ms>K WNV}^`-큧32ŒVؙGdu,^^m%6~Nn&͓3ŒVZMsRpfEW%IwdǀLm[7W&bIRL@Q|)* i ImsIMmKmyV`i$G+R 0tV'!V)֏28vU7͒vHꦼtxꗞT ;S}7Mf+fIRHNZUkUx5SAJㄌ9MqμAIRi|j5)o*^'<$TwI1hEU^c_j?Е$%d`z cyf,XO IJnTgA UXRD }{H}^S,P5V2\Xx`pZ|Yk:$e ~ @nWL.j+ϝYb퇪bZ BVu)u/IJ_ 1[p.p60bC >|X91P:N\!5qUB}5a5ja `ubcVxYt1N0Zzl4]7­gKj]?4ϻ *[bg$)+À*x쳀ogO$~,5 زUS9 lq3+5mgw@np1sso Ӻ=|N6 /g(Wv7U;zωM=wk,0uTg_`_P`uz?2yI!b`kĸSo+Qx%!\οe|އԁKS-s6pu_(ֿ$i++T8=eY; צP+phxWQv*|p1. ά. XRkIQYP,drZ | B%wP|S5`~́@i޾ E;Չaw{o'Q?%iL{u D?N1BD!owPHReFZ* k_-~{E9b-~P`fE{AܶBJAFO wx6Rox5 K5=WwehS8 (JClJ~ p+Fi;ŗo+:bD#g(C"wA^ r.F8L;dzdIHUX݆ϞXg )IFqem%I4dj&ppT{'{HOx( Rk6^C٫O.)3:s(۳(Z?~ٻ89zmT"PLtw䥈5&b<8GZ-Y&K?e8,`I6e(֍xb83 `rzXj)F=l($Ij 2*(F?h(/9ik:I`m#p3MgLaKjc/U#n5S# m(^)=y=đx8ŬI[U]~SцA4p$-F i(R,7Cx;X=cI>{Km\ o(Tv2vx2qiiDJN,Ҏ!1f 5quBj1!8 rDFd(!WQl,gSkL1Bxg''՞^ǘ;pQ P(c_ IRujg(Wz bs#P­rz> k c&nB=q+ؔXn#r5)co*Ũ+G?7< |PQӣ'G`uOd>%Mctz# Ԫڞ&7CaQ~N'-P.W`Oedp03C!IZcIAMPUۀ5J<\u~+{9(FbbyAeBhOSܳ1 bÈT#ŠyDžs,`5}DC-`̞%r&ڙa87QWWp6e7 Rϫ/oY ꇅ Nܶըtc!LA T7V4Jsū I-0Pxz7QNF_iZgúWkG83 0eWr9 X]㾮݁#Jˢ C}0=3ݱtBi]_ &{{[/o[~ \q鯜00٩|cD3=4B_b RYb$óBRsf&lLX#M*C_L܄:gx)WΘsGSbuL rF$9';\4Ɍq'n[%p.Q`u hNb`eCQyQ|l_C>Lb꟟3hSb #xNxSs^ 88|Mz)}:](vbۢamŖ࿥ 0)Q7@0=?^k(*J}3ibkFn HjB׻NO z x}7p 0tfDX.lwgȔhԾŲ }6g E |LkLZteu+=q\Iv0쮑)QٵpH8/2?Σo>Jvppho~f>%bMM}\//":PTc(v9v!gոQ )UfVG+! 35{=x\2+ki,y$~A1iC6#)vC5^>+gǵ@1Hy٪7u;p psϰu/S <aʸGu'tD1ԝI<pg|6j'p:tպhX{o(7v],*}6a_ wXRk,O]Lܳ~Vo45rp"N5k;m{rZbΦ${#)`(Ŵg,;j%6j.pyYT?}-kBDc3qA`NWQū20/^AZW%NQ MI.X#P#,^Ebc&?XR tAV|Y.1!؅⨉ccww>ivl(JT~ u`ٵDm q)+Ri x/x8cyFO!/*!/&,7<.N,YDŽ&ܑQF1Bz)FPʛ?5d 6`kQձ λc؎%582Y&nD_$Je4>a?! ͨ|ȎWZSsv8 j(I&yj Jb5m?HWp=g}G3#|I,5v珿] H~R3@B[☉9Ox~oMy=J;xUVoj bUsl_35t-(ՃɼRB7U!qc+x4H_Qo֮$[GO<4`&č\GOc[.[*Af%mG/ ňM/r W/Nw~B1U3J?P&Y )`ѓZ1p]^l“W#)lWZilUQu`-m|xĐ,_ƪ|9i:_{*(3Gѧ}UoD+>m_?VPۅ15&}2|/pIOʵ> GZ9cmíتmnz)yߐbD >e}:) r|@R5qVSA10C%E_'^8cR7O;6[eKePGϦX7jb}OTGO^jn*媓7nGMC t,k31Rb (vyܴʭ!iTh8~ZYZp(qsRL ?b}cŨʊGO^!rPJO15MJ[c&~Z`"ѓޔH1C&^|Ш|rʼ,AwĴ?b5)tLU)F| &g٣O]oqSUjy(x<Ϳ3 .FSkoYg2 \_#wj{u'rQ>o;%n|F*O_L"e9umDds?.fuuQbIWz |4\0 sb;OvxOSs; G%T4gFRurj(֍ڑb uԖKDu1MK{1^ q; C=6\8FR艇!%\YÔU| 88m)֓NcLve C6z;o&X x59:q61Z(T7>C?gcļxѐ Z oo-08jہ x,`' ҔOcRlf~`jj".Nv+sM_]Zk g( UOPyεx%pUh2(@il0ݽQXxppx-NS( WO+轾 nFߢ3M<;z)FBZjciu/QoF 7R¥ ZFLF~#ȣߨ^<쩡ݛкvџ))ME>ώx4m#!-m!L;vv#~Y[đKmx9.[,UFS CVkZ +ߟrY٧IZd/ioi$%͝ب_ֶX3ܫhNU ZZgk=]=bbJS[wjU()*I =ώ:}-蹞lUj:1}MWm=̛ _ ¾,8{__m{_PVK^n3esw5ӫh#$-q=A̟> ,^I}P^J$qY~Q[ Xq9{#&T.^GVj__RKpn,b=`żY@^՝;z{paVKkQXj/)y TIc&F;FBG7wg ZZDG!x r_tƢ!}i/V=M/#nB8 XxЫ ^@CR<{䤭YCN)eKOSƟa $&g[i3.C6xrOc8TI;o hH6P&L{@q6[ Gzp^71j(l`J}]e6X☉#͕ ׈$AB1Vjh㭦IRsqFBjwQ_7Xk>y"N=MB0 ,C #o6MRc0|$)ف"1!ixY<B9mx `,tA>)5ػQ?jQ?cn>YZe Tisvh# GMމȇp:ԴVuږ8ɼH]C.5C!UV;F`mbBk LTMvPʍϤj?ԯ/Qr1NB`9s"s TYsz &9S%U԰> {<ؿSMxB|H\3@!U| k']$U+> |HHMLޢ?V9iD!-@x TIî%6Z*9X@HMW#?nN ,oe6?tQwڱ.]-y':mW0#!J82qFjH -`ѓ&M0u Uγmxϵ^-_\])@0Rt.8/?ٰCY]x}=sD3ojަЫNuS%U}ԤwHH>ڗjܷ_3gN q7[q2la*ArǓԖ+p8/RGM ]jacd(JhWko6ڎbj]i5Bj3+3!\j1UZLsLTv8HHmup<>gKMJj0@H%,W΃7R) ">c, xixј^ aܖ>H[i.UIHc U1=yW\=S*GR~)AF=`&2h`DzT󑓶J+?W+}C%P:|0H܆}-<;OC[~o.$~i}~HQ TvXΈr=b}$vizL4:ȰT|4~*!oXQR6Lk+#t/g lԁߖ[Jڶ_N$k*". xsxX7jRVbAAʯKҎU3)zSNN _'s?f)6X!%ssAkʱ>qƷb hg %n ~p1REGMHH=BJiy[<5 ǁJҖgKR*倳e~HUy)Ag,K)`Vw6bRR:qL#\rclK/$sh*$ 6덤 KԖc 3Z9=Ɣ=o>X Ώ"1 )a`SJJ6k(<c e{%kϊP+SL'TcMJWRm ŏ"w)qc ef꒵i?b7b('"2r%~HUS1\<(`1Wx9=8HY9m:X18bgD1u ~|H;K-Uep,, C1 RV.MR5άh,tWO8WC$ XRVsQS]3GJ|12 [vM :k#~tH30Rf-HYݺ-`I9%lIDTm\ S{]9gOڒMNCV\G*2JRŨ;Rҏ^ڽ̱mq1Eu?To3I)y^#jJw^Ńj^vvlB_⋌P4x>0$c>K†Aļ9s_VjTt0l#m>E-,,x,-W)سo&96RE XR.6bXw+)GAEvL)͞K4$p=Ũi_ѱOjb HY/+@θH9޼]Nԥ%n{ &zjT? Ty) s^ULlb,PiTf^<À] 62R^V7)S!nllS6~͝V}-=%* ʻ>G DnK<y&>LPy7'r=Hj 9V`[c"*^8HpcO8bnU`4JȪAƋ#1_\ XϘHPRgik(~G~0DAA_2p|J묭a2\NCr]M_0 ^T%e#vD^%xy-n}-E\3aS%yN!r_{ )sAw ڼp1pEAk~v<:`'ӭ^5 ArXOI驻T (dk)_\ PuA*BY]yB"l\ey hH*tbK)3 IKZ򹞋XjN n *n>k]X_d!ryBH ]*R 0(#'7 %es9??ښFC,ՁQPjARJ\Ρw K#jahgw;2$l*) %Xq5!U᢯6Re] |0[__64ch&_}iL8KEgҎ7 M/\`|.p,~`a=BR?xܐrQ8K XR2M8f ?`sgWS%" Ԉ 7R%$ N}?QL1|-эټwIZ%pvL3Hk>,ImgW7{E xPHx73RA @RS CC !\ȟ5IXR^ZxHл$Q[ŝ40 (>+ _C >BRt<,TrT {O/H+˟Pl6 I B)/VC<6a2~(XwV4gnXR ϱ5ǀHٻ?tw똤Eyxp{#WK qG%5],(0ӈH HZ])ג=K1j&G(FbM@)%I` XRg ʔ KZG(vP,<`[ Kn^ SJRsAʠ5xՅF`0&RbV tx:EaUE/{fi2;.IAwW8/tTxAGOoN?G}l L(n`Zv?pB8K_gI+ܗ #i?ޙ.) p$utc ~DžfՈEo3l/)I-U?aԅ^jxArA ΧX}DmZ@QLےbTXGd.^|xKHR{|ΕW_h] IJ`[G9{).y) 0X YA1]qp?p_k+J*Y@HI>^?gt.06Rn ,` ?);p pSF9ZXLBJPWjgQ|&)7! HjQt<| ؅W5 x W HIzYoVMGP Hjn`+\(dNW)F+IrS[|/a`K|ͻ0Hj{R,Q=\ (F}\WR)AgSG`IsnAR=|8$}G(vC$)s FBJ?]_u XRvύ6z ŨG[36-T9HzpW̞ú Xg큽=7CufzI$)ki^qk-) 0H*N` QZkk]/tnnsI^Gu't=7$ Z;{8^jB% IItRQS7[ϭ3 $_OQJ`7!]W"W,)Iy W AJA;KWG`IY{8k$I$^%9.^(`N|LJ%@$I}ֽp=FB*xN=gI?Q{٥4B)mw $Igc~dZ@G9K X?7)aK%݅K$IZ-`IpC U6$I\0>!9k} Xa IIS0H$I H ?1R.Чj:4~Rw@p$IrA*u}WjWFPJ$I➓/6#! LӾ+ X36x8J |+L;v$Io4301R20M I$-E}@,pS^ޟR[/s¹'0H$IKyfŸfVOπFT*a$I>He~VY/3R/)>d$I>28`Cjw,n@FU*9ttf$I~<;=/4RD~@ X-ѕzἱI$: ԍR a@b X{+Qxuq$IЛzo /~3\8ڒ4BN7$IҀj V]n18H$IYFBj3̵̚ja pp $Is/3R Ӻ-Yj+L;.0ŔI$Av? #!5"aʄj}UKmɽH$IjCYs?h$IDl843.v}m7UiI=&=0Lg0$I4: embe` eQbm0u? $IT!Sƍ'-sv)s#C0:XB2a w I$zbww{."pPzO =Ɔ\[ o($Iaw]`E).Kvi:L*#gР7[$IyGPI=@R 4yR~̮´cg I$I/<tPͽ hDgo 94Z^k盇΄8I56^W$I^0̜N?4*H`237}g+hxoq)SJ@p|` $I%>-hO0eO>\ԣNߌZD6R=K ~n($I$y3D>o4b#px2$yڪtzW~a $I~?x'BwwpH$IZݑnC㧄Pc_9sO gwJ=l1:mKB>Ab<4Lp$Ib o1ZQ@85b̍ S'F,Fe,^I$IjEdù{l4 8Ys_s Z8.x m"+{~?q,Z D!I$ϻ'|XhB)=…']M>5 rgotԎ 獽PH$IjIPhh)n#cÔqA'ug5qwU&rF|1E%I$%]!'3AFD/;Ck_`9 v!ٴtPV;x`'*bQa w I$Ix5 FC3D_~A_#O݆DvV?<qw+I$I{=Z8".#RIYyjǪ=fDl9%M,a8$I$Ywi[7ݍFe$s1ՋBVA?`]#!oz4zjLJo8$I$%@3jAa4(o ;p,,dya=F9ً[LSPH$IJYЉ+3> 5"39aZ<ñh!{TpBGkj}Sp $IlvF.F$I z< '\K*qq.f<2Y!S"-\I$IYwčjF$ w9 \ߪB.1v!Ʊ?+r:^!I$BϹB H"B;L'G[ 4U#5>੐)|#o0aڱ$I>}k&1`U#V?YsV x>{t1[I~D&(I$I/{H0fw"q"y%4 IXyE~M3 8XψL}qE$I[> nD?~sf ]o΁ cT6"?'_Ἣ $I>~.f|'!N?⟩0G KkXZE]ޡ;/&?k OۘH$IRۀwXӨ<7@PnS04aӶp.:@\IWQJ6sS%I$e5ڑv`3:x';wq_vpgHyXZ 3gЂ7{{EuԹn±}$I$8t;b|591nءQ"P6O5i }iR̈́%Q̄p!I䮢]O{H$IRϻ9s֧ a=`- aB\X0"+5"C1Hb?߮3x3&gşggl_hZ^,`5?ߎvĸ%̀M!OZC2#0x LJ0 Gw$I$I}<{Eb+y;iI,`ܚF:5ܛA8-O-|8K7s|#Z8a&><a&/VtbtLʌI$I$I$I$I$I$IRjDD%tEXtdate:create2022-05-31T04:40:26+00:00!Î%tEXtdate:modify2022-05-31T04:40:26+00:00|{2IENDB`Mini Shell

HOME


Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/calc/
Upload File :
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/calc/calccomp.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

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

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


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'math-compose-var #[(a) "\306\211\n\203<\307\f\203&\f@
\232\204&\n\310=\205\fA	T\202\f\f)\203<\n\307=\2035\311\202[\312\313	\"\202[\314
A@!>\203N\315!>\203Z\316!*\207" [sn v math-compose-hash-args calc-arg-values p a nil 1 t "#" format "#%d" symbol-name math-to-percentsigns math-to-underscores calc-language calc-lang-allow-percentsigns calc-lang-allow-underscores] 3])
(defalias 'math-compose-expr #[(a prec &optional div) "\306T\307 \310\f
=\203\f\204 @\2036@\f=\2046\310@\203*\f@\311\f\312\fA\"E)\202\335\f:\204H\f\250\204H\313\314\f!P\202\335\f\242B\315N\236\211\203j	A\211:\203d	@\f	\"\202\335	\f!\202\335\316\f!\203\f\242\317=\204\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\335B\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\335\335\f!\202\335B\326=\2046\335\fA\"\202\335\f\242\345>\203o\346\325\f8!\203O\312\fA@A\"\202\335\330\341\312\fA@\347\"\f@\350=\203b\351\202c\352\312\325\f8\347\"\343\257\202\335H\340U\204\223\f\211:?\206\202\f@\353>)\203\223I\203\233\354J\355\"\204\233\335\fA\"\202\335\335\fA\"\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\335\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\335\f@\372=\203cO\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\212\267\202)\201\213\202,\334\202,\201\214[\\]B\201\215>\203b\\\204b\201\216\f!\203b\201\216\fA@!\204b^\204q\fG\201\217W\203k\fA@G\201\217W\204q\306]\202bV\203~\376\fA@!\204\205\377R>\203\211\347\202\214\201\211Y\fG\325U\203\262\330P\211\364Q\201\220\fA@AX\364PY#\364Q\211QF\202^\fGS_\fA@GS`_S\325\245a\201\221B\201\222\201\223\201\222\201\224aCT\205\342P\364PS\205\353P\364PPC\201\225_ST\205\373\201\226S\205P\364PP\"$C\201\227\fA\327`a$\201\222\201\230aC\201\225_SS\2035\364QU\2051XQ\202FT\203EU\203E\201\231\202F\333\"S\205P\364QPT\205Y\364QPPC$C$,\202^b\203}\fA\203}\201\232\f!\203}\201\233\f\306\"\202^]\203\324\fA\203\324B\201\221=\204\324^\206\233\fG\201\217W\211c\203\247\fGS\202\252\201\234\211_S\325\245a\310\\\330\201\214a\201\235\fAc\203\312_\202\313\366\306#,BBD\202^^\204\342\fG\201\217W\203B\201\236N\211\203\373\201\216\f!\203\373	\f!\202^\330P\201\220\fAX\364PY#QF\202^\330P\201\220\fA@\325\f8\366\f8EX\364PY#XB\201\237N\211\203:\364	P\202=\201\240X\364\201]D\312\fGS\f8X\333\232\203X\201\211\202Y\347\"Q\257\n.\n\202\335\f@\201\241=\2032\fAA\203\376\fA@\372=\203\216\330\201\242\201\220\fAA\351\347#\201\240F\202\335\fA@\350=\203\250\330\341\201\220\fAA\351\347#\201\243F\202\335\fA@\201\244=\203\304\330\341\201\220\fAA\352\347#\201\245F\202\335\fA@\201\246=\203\363\330\325\f8\201\247>\203\335\341\202\340\201\242\201\220\fAAA\201\250\347#\201\251F\202\335\201\252\201\253\f\"\202\335\fA@\372=\203\f\201\254\202\335\fA@\201\246=\203,\325\f8\201\255>\203&\201\256\202\335\201\254\202\335\201\256\202\335\f@\201\257=\203p\201\260\325\f8d\"\211e\203T\201\261e@!\202lB\201\262N\211\203g	\fA\"\202l\201\263\f!)\202\335\f@\201\246=\203\260\330\fA@\201\264>\203\210\341\202\213\201\242\312\325\f8\347\"\201\250\312\366\f8\347\"\fA@\201\265>\203\250\343\202\253\201\266\257\202\335\f@\201\267=\203\332f@\201\270=\203\313\201\271\f!\202\335\201\272\201\271\f!\201\273Q\202\335\f@\201\274=\203\364B\201\275N\211\203\364	\f!\202\335\f@\201\274=\203b\fG\366U\203bB\326=\203b\312\fA@\201\211\"g\201\221B\312\325\f8\347\"hg\242\342=\204Fg\242\311=\203X\325g8\242\342=\203X\325g8\211g\203X\342gA@\330\325g8\351hFE\202^\342ghE+\202\335\f@\201\276=\203\320B\326=\203\320\365\201\277\fA@!\204\245\fA@\242\201\300>\204\245\fA@\242\350=\203\262\331\fA@A@!\203\262\325\fA@8\347=\203\262\330\341\312\fA@\347\"\343F\202\272\312\fA@\201\301\"\201\221\340\310iHB\312\325\f8\347\"+E\202\335\f@\323=\203,B\326=\203,\fA@\242\201\302>\203\357\201\221\202\360\326B\312\fA@\347\")\325\f8\242\201\303>\203\n\201\221\202\326B\312\325\f8\347\")hg\334\201\304g!g\201\305h\257*\202\335\f@\201\306=\203\247\fG\325V\203\247B\201\307>\203\247\fAj\fG\366U\203T\327\202U\306klmmA\203xm@l@\232\203xmAmlAl\202[\201\222\201\310mA\205\226\201\220\201\311\fA!A\237\351\347#\201\312D\312\fGS\f8\347\"\201\273D#+\202\335\f@\201\313=\203\355\fG\325U\203\355\201\314\fA@!\203\355\201\232\fA@!\203\355B\370=\203\342\201\315\201\233\fA@\306\"\343Q\202\335\201\233\fA@\310\"\202\335\f@\201\316=\203\207	\fG\325U\203\207	\201\314\fA@!\203\207	\201\232\fA@!\203\207	B\370=\203(	\201\317\201\233\fA@\306\"\343Q\202\335\310\201\233\fA@\310\"\310mKG\356\201\320K\"\203c	\347\225Sm\201]DK\347mOGBBGKm\310OK\2028	KGB\237GA\201\321U\204	\201\322\325EGBG\330G+B\202\335\f@\201\323=\203\335	B\370=\204\335	\fG\366U\203\335	\325\f8\250\203\335	\312\fA@\201\324\"GA\325\f8V\203\327	B\201\325N\211\203\316	\330	@G	AF\202\331	\330\341G\343F\202\331	G)\202\335\f@\201\326=\203\206\nB\370=\204\206\n\fG\201\327>\203\206\n\201\314\fA@!\203\206\n\325\f8\250\203!\n\366\f8\203;\n\201\314\366\f8!\203\206\n\201\232\366\f8!\2028\n\325\f8\203;\n\201\314\325\f8!\203\206\n\201\232\325\f8!\203\206\n\325\f8\250\205E\n\325\f8\211n\203O\n\366\202P\n\325\f8o\310po\203u\n\201\220\fA@A\201\233o\310\"n\206q\nA#\202\202\n\330\201\330\201\331\fA@A\"B+\202\335\f@\201\332>\203
B\370=\204
\fG\201\333>\203
\201\314\fA@!\203
\325\f8\203\266\n\325\f8\250\203
\347\211ae\325\f8\206\304\nAA\201\330\201\334\fA@A\"G\201\335\310G\"\211G\203\f@\201\336=\203\355\n\334\202\377\n\f@\201\337=\203\374\n\201\214\202\377\n\201\213aGBB\202	\364,\202\335\f@\201\340>\203WB\370=\204W\fG\201\341>\203W\366\f8\2033\366\f8\250\203W\f@\201\342=\203@\365\202A\342\312\fA@\366\f8\206L\347\"\312\325\f8\347\"E\202\335\f@\201\343=\203\240B\370=\204\240\fG\201\344>\203\240\325\f8\203}\325\f8\250\203\240B\201\345>\203\214\201\221\202\216BB\312\fA@\325\f8\206\233\347\")\202\335\f@\201\346=\203\f\fG\201\347>\203\f\201\350\fA@!\203\f\325\f8\203\363\330\201\225\fA@\201\314\325\f8!\203\350\201\232\325\f8!\203\350\201\233\325\f8\310\"\202\356\312\325\f8\347\"\"B\202\335\201\351\fA@\201\352\"\202\335\f@\201\353>\203\260\f\fG\201\354>\203\260\f\201\350\fA@!\203\260\f\fA@\347U\203(\f\333\202\335\325\f8\203V\f\201\314\325\f8!\203M\f\201\232\325\f8!\203M\f\201\233\325\f8\310\"\202W\f\312\325\f8\347\"\202W\f\364G\201\355G!q\201\356G!r\201\214\f@\201\357=\203{\fqS\202\241\f\f@\201\360=\203\225\f\fA@Sqr\\_qS\\\202\241\f\fA@qr\\_S\325\245\201\225\fA@G\"+BB\202\335\f@\201\361=\203\367\f\306\211s\203\367\fB\201\362N\211\203\367\f@\203\325\f\325\202\326\f\327U\203\367\f\fG\366U\203\367\f\330	@\312\fA@\347\"	A\312\325\f8\347\"\257\202\335B\370=?\205!
\f@\201\363=\203
\fG\201\364U\203
\354\201\365\n\"\202!
\201\366\f@\n\"\211t\203\243\fG\366U\2047
\f@\201\363=\203\243\366t8\201\324U\204\243A\201\364t8\206V
\325t8\366t8^V\204h
u\203\f@\201\367=\203B\201\370>\203\242
\201\371\f!\204\242
\f\242\323=\203\221
\330\201\372\312\f\201\324\"\201\373F\202\334\330\201\374\312\f\201\324\"\201\375F\202\334B\201\376=\203\372
\f\242\323=\204\277
A\201\377\245\201U\203\320
\330\201\372\312\f\201\324\"\201\373F\202\334\201\371\f!\203\351
\330\201\312\f\201\324\"\201F\202\334\330\201\312\f\201\324\"\201F\202\334\330\341\312\f\347\"\343F\202\334B\201>\203/\f@\201>\203/A\347Y\203/\330\201\372\312\f\201\324\"\201\373F\202\334\f@\201\363=\203\\\330\312\fA@\325t8\"\201\312\325\f8\347\"\201\312\312\366\f8\366t8\"\257\202\334@\205l\201\f!?\205l@@A\325t8\366t8^U\203\204S\310\202\205v\312\fA@\325t8\"w\312\325\f8\366t8tA@\323=#xt@\201	\232\203\302\201\nw!\201=\203\302\330\341w\343FwB\201\f>\203\371t@\201	\232\204\337t@\201
\232\203\371x;\203\355xG\327U\204\371\330\201\372x\201\373Fx\f@\201\367=\203B\203\354\201\n\"\203\201\fA@!y\201\325\f8!z\201w!\206?y\242\201>\205?B\326=\205?\201{\201\nx!\206^z\242\201>\205^B\326=\205^\201|{\205
|\205
|\201Y\203||\201X\204\345|\201Y\203\216|\201X\204\345|\201Y\203\240|\201X\204\345|\201Y\203\262|\201X\204\345|\201Y\203\304|\201X\204\345|\201>\204\345|\201=\205
\356\201 \201!x!\"?\205
y\242\201\257=\205\365|\201\"=?\205
\330\201\322v\327Ew\201]D\364x\257,\206\237\330\201\322v\327Ew\201]Dt@\201	\232\204xt@\201
\232\204xt@\201#\232\204xt@\201$\232\203Z\201w!\203Z\201\nx!\204xt@\201%\232\203~\201&\fA@!\203~\201'\325\f8!\203~t@\202\233B\326=\203\225t@\201(\232\203\225\201)\202\233\364t@\364Qx\257,\202\334t\203\216\fG\325U\203\216\366t8\201\324U\203\216A\201\364t8\206\311\325t8V\204\340\354t@\n\"t=\204^A\347V\203^B\201*>\203\201\371\f!\204\330\201\374\312\f\201\324\"\201\375F\202\334B\201\376=\203SA\201\377\245\201U\203)\330\201\372\312\f\201\324\"\201\373F\202\334\201\371\f!\203B\330\201+\312\f\201\324\"\201,F\202\334\330\201\312\f\201\324\"\201F\202\334\330\341\312\f\347\"\343F\202\334\312\fA@\325t8\"w\330wt@G\327V\204~\201-w!\204\206\364t@P\202\211t@E)\202\334t\203\fG\325U\203\325t8\201\324U\203\366t8\347=\203,B\201.>\205\277\201\371\fA@!?}\330}\203\315\201/\202\316\333\356\2010t@\"\203\342t@\327\310O\202\345t@}\204\363t@G\325V\203\367\364\202\370\333\312\fA@\201\324\"}\204t@G\325V\203\364\202\333}\203\2011\202\333t\n>A@@\257)\202\334A\201\364t8\206;\366t8V\203\275B\2012>\203a\201\371\f!\204a\330\201\374\312\f\201\324\"\201\375F\202\334B\201\376=\203\262A\201\377\245\201U\203\210\330\201\372\312\f\201\324\"\201\373F\202\334\201\371\f!\203\241\330\201+\312\f\201\324\"\201,F\202\334\330\201\312\f\201\324\"\201F\202\334\330\341\312\f\347\"\343F\202\334\312\fA@\366t8\"x\330\356\2010t@\"\203\335t@\327\310O\202\340t@\211~G\327V\204\362\201-x!\204\371~\364P\202\373~)xE)\202\334B\326=\203\f@\2013N\211t\203t\fA\"\206\334B\2014\236\211t\203@\f@tAN\211t\203@t\fA\"\206\334\f@\211\2015\236\200\310\211\201\202\310\203\200\203^\200A\201\260\204\"\211\200\203q\200@\2016\356\2017\201\261!\"\203\216\362\201\261!\327\"\202\224\201\261!!B\205>\203\247\2018!B\206>\203\267\2019!B\201:N\211\203\312	\f\"\202\333\330\207\201\220\fA\351\347#\210\257-),\207" [math-compose-level spfn math-expr-opers calc-multiplication-has-precedence a math-comp-selected t math-expr-ops nil tag math-compose-expr "'" prin1-to-string math-special-function-table math-scalarp frac (bigpos bigneg) (flat big unform) math-adjust-fraction / math-float 2 big 1 horiz math-negp "- " "" vcent math-format-number math-abs (rule 45) 10 "(" subscr ")" int-to-string (cplx polar) math-zerop 0 cplx ", " "; " (bigpos bigneg frac float) assoc ((",") (" ")) string-match 14 "\\([0-9]+\\)#\\([0-9a-zA-Z., ]+\\)" "\\([0-9]+\\)#\\([0-9a-dA-D., ]+\\)" math-match-substring "\\*\\([0-9.]+\\)\\^\\(-?[0-9]+\\)\\()?\\)\\'" " " supscr 3 math-compose-forms unform apply vec R O C math-vector-no-parens P math-comp-tagged prec calc-language calc-frac-format aa calc-lang-slash-idiv math-radix-explicit-format c calc-number-radix calc-group-digits calc-group-char s temp2 temp comps calc-vector-brackets math-comp-left-bracket math-comp-right-bracket calc-matrix-brackets inner-brackets outer-brackets row-commas calc-vector-commas math-comp-comma-spc math-comp-comma math-comp-vector-prec calc-matrix-just math-comp-just calc-break-vectors break calc-full-vectors rows cols base calc-display-strings full math-expr-variable-mapping v calc-date-format a1 a2 calc-twos-complement-mode calc-arg-values math-compose-hash-args ap p cprec sep bprec ca cd calc-any-evaltos op div setlev lhs rhs prevt nextt prevc nextc lr ops func func2 left right args math-expr-function-mapping calc-lang-allow-percentsigns calc-lang-allow-underscores calc-function-open calc-function-close 1000 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 799 center 805)) vright vleft (nil big) math-matrixp 7 math-compose-vector flat append (horiz) (vleft) make-list "  " math-compose-matrix (vleft) ";" math-vector-is-string math-vector-to-string 5 math-compose-rows math-matrix-formatter math-dots " ..." incomplete "[" ", ..." polar "; ..." intv (0 1) " .. " " .. ..." format "%s" "[ ..." (0 1) "( ..." var rassq symbol-name math-var-formatter math-compose-var (0 1) (0 2) "]" date X math-format-date "<" ">" calcFunc-subscr math-compose-subscr ^ math-looks-negp (^ / frac calcFunc-sqrt) 201 (/ frac) (/ frac) math-comp-height (rule 45) calcFunc-lambda (nil flat big) (horiz "<") reverse " : " calcFunc-string math-vectorp "string(" calcFunc-bstring "bstring(" "[^ ] +[^ ]" -123 set calcFunc-cprec -1 math-big-parens calcFunc-choriz (2 3 4) mapcar #[(x) "\242\304=\203\305	\206\n\206\"\306\207\305\n\206\"\207" [x bprec cprec prec calcFunc-bstring math-compose-expr -123] 3] (calcFunc-cvert calcFunc-clvert calcFunc-crvert) (2 3) #[(x) "\306\211\211\211\f\242\307>\203\fG\310>\203\f@\fA@\f\242\311=\203z\fG\312>\203z\fA@\203Z\313\fA@!\203J\fA@G\314U\203J\315\fA@!\204Z\316\fA@!\203z\fA@\317X\203z\320\313\fA@!\203n\321\fA@\306\"\322H\202u\fA@\206u\323D\202\231\f\242\324>\203\220\fG\325>\203\220\fA@\322=\204\231\f\203\231\326\f
\"\n\203\243\327\n!\202\244\322\n\203\257\330\n!\202\260\322\331=\203\302\332	\333#\202\336\334=\203\317\202\336\335=\203\336\332	\333$\332	#\n,\207" [d a cc b x prec nil (calcFunc-cbase calcFunc-ctbase calcFunc-cbbase) (1 2) calcFunc-crule (1 2) math-vectorp 2 math-vector-is-string natnump 255 rule math-vector-to-string 0 45 (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) math-compose-expr math-comp-ascent math-comp-descent calcFunc-cbase + -1 calcFunc-ctbase calcFunc-cbbase v base] 5] delq calcFunc-cvert calcFunc-clvert (calcFunc-csup calcFunc-csub) (3 4) calcFunc-csup calcFunc-cflat (2 3) (nil big) calcFunc-cspace (2 3) natnump make-string 32 (calcFunc-cvspace calcFunc-ctspace calcFunc-cbspace) (2 3) math-comp-ascent math-comp-descent calcFunc-ctspace calcFunc-cbspace calcFunc-evalto math-evalto calcFunc-if 4 "?" math-assq2 * (tex latex) math-tex-expr-is-flat "{" "}" "\\left( " " \\right)" eqn 100 9 "( " " )" "{left ( " " right )}" (tex latex) (/ calcFunc-choose calcFunc-evalto) " ? " math-primp "^" math-comp-first-char 45 (tex latex) "_" "2x" math-prod-last-term math-prod-first-term math-comp-last-char (^ calcFunc-subscr calcFunc-sqrt frac) 48 (calcFunc-sqrt calcFunc-sum calcFunc-prod calcFunc-integ) 97 122 65 90 945 969 913 937 57 (46 95 35 40 91 123) 92 "\\`\\\\left(" math-comp-first-string 40 "**" "*" "/" math-num-integerp math-integerp "=>" "  =>  " (tex latex) "{( " " )}" math-comp-is-flat (tex latex) "\\left" "\\`u\\([^a-zA-Zα-ωΑ-Ω]\\)\\'" "\\right" (tex latex) math-compose-big ((nil . math-compose-normal) (flat . math-compose-normal) (big . math-compose-normal) (c . math-compose-c) (pascal . math-compose-pascal) (fortran . math-compose-fortran) (tex . math-compose-tex) (latex . math-compose-latex) (eqn . math-compose-eqn) (yacas . math-compose-yacas) (maxima . math-compose-maxima) (giac . math-compose-giac) (math . math-compose-math) (maple . math-compose-maple)) ((mod . calcFunc-makemod) (sdev . calcFunc-sdev) (+ . calcFunc-add) (- . calcFunc-sub) (* . calcFunc-mul) (/ . calcFunc-div) (% . calcFunc-mod) (^ . calcFunc-pow) (neg . calcFunc-neg) (| . calcFunc-vconcat)) math-remove-dashes "\\`calcFunc-\\([a-zA-Zα-ωΑ-Ω0-9']+\\)\\'" math-to-percentsigns math-to-underscores math-func-formatter] 13])
(defalias 'math-prod-first-term #[(x) "\242\301=\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\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])
(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\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>\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\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=\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\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\202aC$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\202aC$A@\242\330>\203o\331\202p\323	\332>\203|\333\202}\323\257-\207" [a expr calc-language var low high (3 5 6) math-compose-expr 198 flat 2 0 3 4 math-compose-vector ", " horiz (196 201) "(" "" append vcent ("----- " " | |  " " | |  " " | |  ") " = " (calcFunc-sum calcFunc-prod) " " (196 201) ")" prec] 10])
(defalias 'math-stack-value-offset-fancy #[nil "\306!\307\\\n\310\267\202?\203\311]\202
\250\203
\312\f	\fG
\250\2035\2035
Z\307]\2026\307Z\307]#
\202z\203l	\313\245Z

\250\203[
\312
	\fG#^

\307Y\203z\f
	\\]\202z
\250\203s
\f	Z\313\245

\250\205\223
\307W\204\220\205\223
V\205\223
\211)\207" [math-svo-c cwid calc-display-just calc-display-origin math-svo-wid calc-line-breaking math-comp-width 0 #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 12)) 5 - 2 calc-right-label math-svo-off] 6])
(defalias 'math-composition-to-string #[(c &optional width) "\204\303 	\203\304\n\305\"\207\306\n!\203\307\n\"\207\310\311\n\"!\207" [width calc-display-raw c calc-window-width math-comp-to-string-raw 0 math-comp-is-flat math-comp-to-string-flat math-vert-comp-to-string math-comp-simplify] 4])
(defvar math-comp-buf-string (make-vector 10 ""))
(defvar math-comp-buf-margin (make-vector 10 0))
(defvar math-comp-buf-level (make-vector 10 0))
(defalias 'math-comp-is-flat #[(c) ":\204\301\207@\302>\203\301\207@\303=\203(A\211\203%\304@!\204?\207@\305>\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\nPG\\\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#\207GS\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\202OY\203O\311ZT\312\"\244T\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)