RPN: Script

		Contents	Links	Search

RPN Scripts

RPN Documentation

Submit Script

Conversion
Conversions
Convert
Euro
Euro_Calculator
Soundex
Engineering
Feet_&_Inch
Units
Water
Entertainment
Master_Mind
Sticks!
Finance
Annuity
Euro_Calculator
TVM_Financial_Functions
Math
3D_Vectors_v1.2
Base
Base_Conversions
Complex_Arithmetic
Complex_Math
Discrete_Math
EBBases
Fractions
Fractions
Least
Logs_&_Powers
Misc
Regressions
Scientific
Scientific_Functions
Scientific_Programmable
Simple_Complex_Math
Standard_Normal_Distribution
Trig
Misc
Health
Husband's_Calculator
Physics
Angle_of_View
Depth_of_Field
Physics_Functions
Time
Clock
Julian
Multiple_Timer
Stop5Watch
Stopwatch
Timer
Utility
Board_Foot_Calculator
Calendar_Functions
Checkbook_II
MiniG
Stack_Handling_and_Saving
WindChill

TVM Financial Functions

Noe Ramos - email

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;

top

August 03, 2001
contact