History of TVM Financial Functions Script
Webb - all rights reserved - ©2004
spacer


modified by Russ Webb on  2004-04-22 20:54:41

Author - Noe Ramos
Email: nramos@geocities.com
Webpage:

Summary: TVM Financial Functions for RPN

Instructions: n: Set periods.
N: Get Periods.
i%: Set annual interest rate.
I%: Get annual interest rate.
pv: Set present value.
PV: Get present value.
pm: Set payment.
PM: Get payment.
fv: Set future value.
FV: Get future value.
p/y: Set number of payments per year.
amt: Get in the stack the balance, principal and interest.
mode: Set BEGIN or END mode.
view: Display some variable.
clear: Clear all variables (Sets 12 to p/y)


Code:

RPN.1.p+1 \ TVM
[z]#'100'xb*/Xg;
[y]Cz1xg+xanPXh;
[x]Cy1xh-xg/Xi;
[w]Cx1xgxm*+xi*Xj;
[v]Cwxdxexh*+xj/;
[u]VxcCyxd11xg+vxa-P-1xh-/*Xoxdxg1xh-/*1xg+vxa-1-P*Xpxoxpxoxp+xg*;
[s]
#'2600'#'108'
#'2000'#'108'
#'1600'#'108'SSS;
[a]xcCzxfxg/nVvxd+vxe-/l1xg+l/nXa;
[c]#'1000'VvXc{vHVxcCvXlxlxf=9(B:xlxf>(vn:v)xcUd+Xc)};
[d]xcCwxjxf*xhxe*-Xd;
[e]xcCwxjxf*xd-xh/Xe;
[f]xcCvXf;
"TVM"
"_n: Periods" Xa;
"N: Get periods" CaCsxa;
"_i%: Set interest rate" Xc;
"I%: Get interest rate" CcCsxc;
~
"_pv: Set present value" Xd;
"PV: Get present value" CdCsxd;
"_pm: Set payment" Xf;
"PM: Get payment" CfCsxf;
~
"_fv: Future value" Xe;
"FV: Get future value" CeCsxe;
"_p/y: Payments per year" Xb;
"amt: Balance\Principal\Interest"CuCs;
~
"mode"xm0=0(D'End|End|Begin|':D'Begin|End|Begin|')Xm;
"view"D'Display which?|n|p/y|i%|pv|fv|pmt|'1+x@;
"clear"0Xa#'12'Xb0Xc0Xd0Xe0Xf;