Financial function on 50g?
in [HP48]
|
From: Manatee on 20 Dec 2006 22:52 I'm trying to find a way to fold the functionality of my 17bII+ into my 50g. If I could do _everything_ with the 50g, that would be great. Are functions available in the 50g solver like the FLOW, SPFV, SPPV, etc. financial functions from the 17b? And if not, can I create my own callable functions on the 50g -- so I could create the equivalents of those functions? Thanks. Peter
From: John H Meyers on 21 Dec 2006 00:12 On Wed, 20 Dec 2006 21:52:11 -0600, Peter wrote: > I'm trying to find a way to fold the functionality of my 17bII+ into my 50g. > If I could do _everything_ with the 50g, that would be great. > > Are functions available in the 50g solver like the FLOW, SPFV, SPPV, etc. > financial functions from the 17b? > > And if not, can I create my own callable functions on the 50g -- so I could > create the equivalents of those functions? SPFV and SPPV can be considered particular cases of the more general TVMROOT (just type TVM for the good old uniform payments interactive menu), or you can simply use their algebraic definitions from the 17B manuals; discounted cash flows can be treated as polynomials (see PROOT and PEVAL). "Finance" is not a recognized category at www.hpcalc.org, but several financial software bundles (including the substantial FIN49A by MacDonald R. Phillips) can be found at http://www.hpcalc.org/hp49/apps/misc/ A trivial TVM and cash flow helper for 48/49/50 series using built-in functions: http://groups.google.com/group/comp.sys.hp48/msg/fba69b8f240340d4?dmode=source With best wishes from http://www.mum.edu and http://www.maharishischooliowa.org
From: John H Meyers on 21 Dec 2006 04:40 By the way, as to SPFV etc: 'SPFV(I%,N)=EXPM(LNP1(I%/100.)*N)+1.' DEFINE 'SPPV(I%,N)=EXPM(-LNP1(I%/100.)*N)+1.' DEFINE 'USFV(I%,N)=EXPM(LNP1(I%/100.)*N)/I%*100.' DEFINE 'USPV(I%,N)=-EXPM(-LNP1(I%/100.)*N)/I%*100.' DEFINE This creates variables named SPFV etc. which calculate each result from args on stack, or may also be used algebraically, e.g. 'SPFV(2,50)' EVAL ==> 2.69158802908 'USPV(2,50)' EVAL ==> 31.4236058936 Although there is a built-in TVM solver (TVM command), you can also write the TVM equation as below, and then solve it via STEQ 30 MENU: 'PV/USPV(I%YR/PYR,N)+PMT*(1+B*I%YR/PYR/100.)+FV/USFV(I%YR/PYR,N)' Where PYR is the number of payments per year, and B is 0 for payments at END, or 1 for BEGin mode; actually you should multiply this entire equation by N if you expect to need to solve it for N. Captain Video decoder ring info: SPFV Single Payment Future Value SPPV Single Payment Present Value USFV Uniform Series Future Value USPV Uniform Series Present Value LNP1 LN(x+1) [preserves accuracy for x near zero] EXPM1 EXP(x)-1 [named EXPM on 48/49/50] The complete, one-page HP17B manual :) http://www.finseth.com/hpdata/hp17b.html Does anyone have an original Captain Video Decoder Ring? http://www.slick-net.com/space/box/sptoys/pic13.phtml http://www.museum.tv/archives/etv/S/htmlS/scienceficti/scienceficti.htm http://members.aol.com/cingram/television/dumont12.htm http://www.440.com/twtd/archives/jun27.html [see 1949] http://www.slick-net.com/space/box/ [r->] [OFF]
From: Tanya on 21 Dec 2006 08:28 Great post, John! There is much to be gleaned from this, thank you! -Tanya- On Thu, 21 Dec 2006 03:40:17 -0600, "John H Meyers" <jhmeyers(a)nomail.invalid> wrote: >By the way, as to SPFV etc: > >'SPFV(I%,N)=EXPM(LNP1(I%/100.)*N)+1.' DEFINE > >'SPPV(I%,N)=EXPM(-LNP1(I%/100.)*N)+1.' DEFINE > >'USFV(I%,N)=EXPM(LNP1(I%/100.)*N)/I%*100.' DEFINE > >'USPV(I%,N)=-EXPM(-LNP1(I%/100.)*N)/I%*100.' DEFINE > >This creates variables named SPFV etc. >which calculate each result from args on stack, >or may also be used algebraically, e.g. > >'SPFV(2,50)' EVAL ==> 2.69158802908 >'USPV(2,50)' EVAL ==> 31.4236058936 > >Although there is a built-in TVM solver (TVM command), >you can also write the TVM equation as below, >and then solve it via STEQ 30 MENU: > >'PV/USPV(I%YR/PYR,N)+PMT*(1+B*I%YR/PYR/100.)+FV/USFV(I%YR/PYR,N)' > >Where PYR is the number of payments per year, >and B is 0 for payments at END, or 1 for BEGin mode; >actually you should multiply this entire equation by N >if you expect to need to solve it for N. > >Captain Video decoder ring info: > >SPFV Single Payment Future Value >SPPV Single Payment Present Value >USFV Uniform Series Future Value >USPV Uniform Series Present Value >LNP1 LN(x+1) [preserves accuracy for x near zero] >EXPM1 EXP(x)-1 [named EXPM on 48/49/50] > >The complete, one-page HP17B manual :) >http://www.finseth.com/hpdata/hp17b.html > >Does anyone have an original Captain Video Decoder Ring? >http://www.slick-net.com/space/box/sptoys/pic13.phtml >http://www.museum.tv/archives/etv/S/htmlS/scienceficti/scienceficti.htm >http://members.aol.com/cingram/television/dumont12.htm >http://www.440.com/twtd/archives/jun27.html [see 1949] >http://www.slick-net.com/space/box/ > >[r->] [OFF]
From: Peter A. Gebhardt on 21 Dec 2006 10:22
You might also take a look at: http://www.hpmuseum.org/cgi-sys/cgiwrap/hpmuseum/archv016.cgi?read=99895#99895 Best regards Peter A. Gebhardt Manatee wrote: > > If I could do _everything_ with the 50g, that would be great. > |