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/calc-fin.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-fin-pv #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!B#\207\306 \203\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "pvl" calcFunc-pvl calc-top-list-n calc-is-inverse "pvb" calcFunc-pvb "pv" calcFunc-pv] 6]] 3 nil nil])
(defalias 'calc-fin-npv #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\f\302\303\304T#\207\302\305\306T#\207" [arg calc-is-inverse calc-vector-op "npvb" calcFunc-npvb "npv" calcFunc-npv] 4]] 3 nil "p"])
(defalias 'calc-fin-fv #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!B#\207\306 \203\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-inverse "fvb" calcFunc-fvb "fv" calcFunc-fv] 6]] 3 nil nil])
(defalias 'calc-fin-pmt #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!B#\207\306 \203\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-inverse "pmtb" calcFunc-pmtb "pmt" calcFunc-pmt] 6]] 3 nil nil])
(defalias 'calc-fin-nper #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!B#\207\306 \203\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "nprl" calcFunc-nperl calc-top-list-n calc-is-inverse "nprb" calcFunc-nperb "nper" calcFunc-nper] 6]] 3 nil nil])
(defalias 'calc-fin-rate #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302 \203\303\202\304 \203\305\202\306\307\310\302 \203 \311\202*\302 \203)\312\202*\313\314\301!B!!#\207" [calc-pop-push-record 3 calc-is-hyperbolic "ratl" calc-is-inverse "ratb" "rate" calc-to-percentage calc-normalize calcFunc-ratel calcFunc-rateb calcFunc-rate calc-top-list-n] 8]] 3 nil nil])
(defalias 'calc-fin-irr #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-vector-op "irrb" calcFunc-irrb "irr" calcFunc-irr] 4]] 3 nil "P"])
(defalias 'calc-fin-sln #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 3 "sln" calcFunc-sln calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-fin-syd #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 4 "syd" calcFunc-syd calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-fin-ddb #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 4 "ddb" calcFunc-ddb calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-to-percentage #[(x) "\211:?\206\f	@\302>)\203<\303\304\"\211\211:?\2060	@\305>\2060	@\306=\2050\307	8\310Y)\2038\311!\312D\207\211:\205G	@\313=)\203S\313\314\315A\"B\207\207" [x a (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-mul 100 (bigpos bigneg) float 2 0 math-trunc calcFunc-percent vec mapcar calc-to-percentage] 5])
(defalias 'calc-convert-percent #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!!#\207" [calc-pop-push-record 1 "c%" calc-to-percentage calc-top-n] 6]] 3 nil nil])
(defalias 'calc-percent-change #[nil "\300\301`\"\207" [calc-do #[nil "\301\302\303\304!B!\305\304\306\307!#)\207" [res calc-normalize calcFunc-relch calc-top-list 2 calc-pop-push-record "%ch" calc-to-percentage] 5]] 3 nil nil])
(defalias 'calcFunc-pv #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\316\313\315\313\"\"\"\"\315
\206&\317\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 10])
(put 'calcFunc-pv 'math-expandable t)
(defalias 'calcFunc-pvl #[(rate num amount) "\303	\304\n$\207" [rate num amount calcFunc-pv 0] 5])
(put 'calcFunc-pvl 'math-expandable t)
(defalias 'calcFunc-pvb #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\314\316\313\315\313\"\"\312\313\"\"\"\"\315
\206,\317\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 11])
(put 'calcFunc-pvb 'math-expandable t)
(defalias 'calcFunc-npv #[(rate &rest flows) "\306\307\"\210\310	\311\\\312\n!\313\307\"\211\314A\211\2032\313\315@
\"\"\316
\f\"\202-!\207" [rate calc-internal-prec flows flat pp p math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul accum] 7])
(put 'calcFunc-npv 'math-expandable t)
(defalias 'calcFunc-npvb #[(rate &rest flows) "\306\307\"\210\310	\311\\\312\n!\313\307\"\307\314A\211\2032\313\315@
\"\"\316
\f\"\202-!\207" [rate calc-internal-prec flows flat pp p math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul accum] 6])
(put 'calcFunc-npvb 'math-expandable t)
(defalias 'calcFunc-fv #[(rate num amount &optional initial) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\316\313\"\"\"\314
\206#\317\"\"*!\207" [rate num calc-internal-prec p amount initial math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 8])
(put 'calcFunc-fv 'math-expandable t)
(defalias 'calcFunc-fvl #[(rate num amount) "\303	\304\n$\207" [rate num amount calcFunc-fv 0] 5])
(put 'calcFunc-fvl 'math-expandable t)
(defalias 'calcFunc-fvb #[(rate num amount &optional initial) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\314\316\313\"\312\313\"\"\"\"\314
\206)\317\"\"*!\207" [rate num calc-internal-prec p amount initial math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 10])
(put 'calcFunc-fvb 'math-expandable t)
(defalias 'calcFunc-pmt #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\314\315\316\f\314
\206\317\"\"\"\316\313\314\313\"\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-div math-mul math-sub 0] 8])
(put 'calcFunc-pmt 'math-expandable t)
(defalias 'calcFunc-pmtb #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\314\315\316\f\314
\206\317\"\"\"\315\316\313\314\313\"\"\312\313\"\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-div math-mul math-sub 0] 9])
(put 'calcFunc-pmtb 'math-expandable t)
(defalias 'calcFunc-nper #[(rate pmt amount &optional lump) "\304	\n\305%\207" [rate pmt amount lump math-compute-nper nil] 6])
(put 'calcFunc-nper 'math-expandable t)
(defalias 'calcFunc-nperb #[(rate pmt amount &optional lump) "\304	\n\305%\207" [rate pmt amount lump math-compute-nper b] 6])
(put 'calcFunc-nperb 'math-expandable t)
(defalias 'calcFunc-nperl #[(rate pmt amount) "\303	\n\304\305%\207" [rate pmt amount math-compute-nper nil l] 6])
(put 'calcFunc-nperl 'math-expandable t)
(defalias 'math-compute-nper #[(rate pmt amount lump bflag) "\203\f\306!\203\f\307\203\306	!\203\307\310\311\f!\204/
\203*\203/\312\f\313\"\210\306\f!\203:\312\f\314\"\210\311	!\204M
\203H\203M\312	\313\"\210\311\n!\204`
\203[\203`\312\n\313\"\210\203\232\311!\204o\312\313\"\210\315\316\203y\317\202z\320\f\321	\257\nE\322\323\324$!\325!!\203\226!A@\202\230!)\207\326\"\327\\\"\310=\203\256\330\n	\"\202\306\331\332\330\333\n\f\"\203\303\333	\334\332\f\"\"\202\304	\"\"#\335#!\204\323
\203\340\336\337#\334\332\f\"\"!\202\344\312	\340\"*!\207" [lump pmt amount bflag rate math-expand-formulas math-zerop nil l math-objectp math-reject-arg numberp nonzerop math-find-root calcFunc-eq calcFunc-pvb calcFunc-pv (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 0 100) t math-vectorp math-normalize 2 math-div math-sub 1 math-mul math-add math-posp math-neg calcFunc-log "*Payment too small to cover interest rate" root calc-internal-prec temp] 10])
(defalias 'calcFunc-rate #[(num pmt amount &optional lump) "\304	\n\305%\207" [num pmt amount lump math-compute-rate calcFunc-pv] 6])
(defalias 'calcFunc-rateb #[(num pmt amount &optional lump) "\304	\n\305%\207" [num pmt amount lump math-compute-rate calcFunc-pvb] 6])
(defalias 'math-compute-rate #[(num pmt amount lump func) "\306!\204\307\310\"\210\306	!\204\307	\310\"\210\306\n!\204!\307\n\310\"\210\2030\306!\2040\307\310\"\210\311\312\f\313	\206;\314\257\nE\315\316\317$\320
!\203P
A@\202Q
)\207" [num pmt amount lump func root math-objectp math-reject-arg numberp math-find-root calcFunc-eq (var DUMMY var-DUMMY) 0 (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) t math-vectorp] 7])
(defalias 'calcFunc-ratel #[(num pmt amount) "\305!\204	\204\306\307\"\210\305\n!\204	\204\306\n\307\"\210\305!\204-	\204-\306\307\"\210\310\f\311\\\312\313\314\n\"\314\315\"\"\315\")!\207" [num math-expand-formulas pmt amount calc-internal-prec math-objectp math-reject-arg numberp math-normalize 2 math-sub math-pow math-div 1] 7])
(defalias 'calcFunc-irr #[(&rest vecs) "\301\302\"\207" [vecs math-compute-irr calcFunc-npv] 3])
(defalias 'calcFunc-irrb #[(&rest vecs) "\301\302\"\207" [vecs math-compute-irr calcFunc-npvb] 3])
(defalias 'math-compute-irr #[(vecs func) "\304!\305\n\306	E\307\310\311$\312!\203A@\202*\207" [vecs flat func root math-flatten-many-vecs math-find-root (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) t math-vectorp] 5])
(defalias 'math-check-financial #[(rate num) "\303!\204	\204\304\305\"\210\306!\203\304\307\"\210\303\n!\206(	\206(\304\n\305\"\207" [rate math-expand-formulas num math-objectp math-reject-arg numberp math-zerop nonzerop] 3])
(defalias 'calcFunc-sln #[(cost salvage life &optional period) "\306!\204	\204\307\310\"\210\306\n!\204	\204\307\n\310\"\210\306!\204-	\204-\307\310\"\210\311!\2038\307\312\"\210\f\203b\313\f!\203Y\f\314
\"\315U*\204`\316\f!?\202]\307\f\317\"\203b\320\207\321\322\n\"\"\207" [cost math-expand-formulas salvage life period b math-realp math-reject-arg realp math-zerop nonzerop math-num-integerp math-compare -1 math-posp integerp 0 math-div math-sub a] 4])
(put 'calcFunc-sln 'math-expandable t)
(defalias 'calcFunc-syd #[(cost salvage life period) "\306!\204	\204\307\310\"\210\306\n!\204	\204\307\n\310\"\210\306!\204-	\204-\307\310\"\210\311!\2038\307\312\"\210\306\f!\204G	\204G\307\f\310\"\210\f\313
\"\314U*\204]\315\f!\204_\316\207\317\320\321\n\"\322\321\f\"\323\"\"\317\320\322\323\"\"\324\"\"\207" [cost math-expand-formulas salvage life period b math-realp math-reject-arg realp math-zerop nonzerop math-compare -1 math-posp 0 math-div math-mul math-sub math-add 1 2 a] 8])
(put 'calcFunc-syd 'math-expandable t)
(defalias 'calcFunc-ddb #[(cost salvage life period) "\306!\203\n\307!\250\204\310\311\"\210\312	!\204\310	\313\"\210\312\n!\204*\310\n\313\"\210\312!\2045\310\313\"\210\314!\203@\310\315\"\210\316
\f\"\317U*\204T\320X\203V\320\207	\320S\211\320Y\203\226\321\322\323\"\"\324\"\211\n\316
\f\"\317U*\203\\\325\324\n\"\"\n\202\\*\207" [period cost salvage life b a math-messy-integerp math-trunc math-reject-arg fixnump math-realp realp math-zerop nonzerop math-compare -1 0 math-div math-mul 2 math-sub math-add res book] 6])
(provide 'calc-fin)