Program: !NOT a SpreadSheet
Version: 1.0a (Financial and Sample)

This program evaluates PRE-DEFINED Equations and displays results.

THIS IS A FINAL "PROOF OF CONCEPT" Version.
The equations it computes are hardcoded.
Try it.  See what it can do.
Then develope your own set of equations and email them to me.
I will compile a special personalized version just for you!!
This is easy and fast for me to do.

A future version will have the ability to read the 
calculation sequence from a text file.  However, I do not have time
to work on this.

_________________________________________________________

The values with a "X" NEXT to them are INPUTS.
If you tap on the value, The rexKeyBoard will come up and you
can enter the value you want.

The values without an "X" are outputs.

BE CAREFUL; The result is always calculated even if you have BAD INPUT!!
THERE IS NO ERROR CHECKING.  

TO EXIT: Press the "Home" Button on the REX.

/* ------------------------------------------------------------------- */

Currently there are 5 equations HARD-CODED in the program.

The hard coded equations are shown below.
Note that I indicates it is an input and O indicates an output
/* ------------------------------------------------------------------- */
SimpleSum;    $ Title
$Enter values in a thru E and the Sum appears in G
$Enter the number of values to use to compute an average
$Define Variable Names for DISPLAY
A#A,I;
B#B,I;
C#C,I;
D#D,I;
E#F,I;
G#SUM,O; 
H#NUM,I;        
I#AVG,O;
$ Do the calculation
G=A+B+C+D+E+F $ Calculate SUM of Left Column Cells
I=G/H;        $ Calculate Average

/* ------------------------------------------------------------------- */
#define SDI_S3
Functions;    $TITLE: Demonstartes available functions
$define Variables for Display
A#A, I;
B#B, I;
C#C, I;
D#D, I;
E#F, I;
G#A^B;       $variable name display is "A^B" etc....
H#A^(1/B),O;
I#Sqrt(C),O;
J#LOG(D), O;
K#EXP(E), O;
$ Do the calculation
G=A^B;       $ "^" executes the power function
H=A^(1/B);   $  do the inverse power
I=C^0.5;     $  this is a square root
J=@D;        $  This means LOG(D)
K=%E;        $  This means EXP(E)
#END

/* ------------------------------------------------------------------- */
Loan Amort;   $aMORTIZATION: fOR A LOAN CALCULATE A REGULAR PAYMENT
$define Variables for Display
A#PRINC,I;    $Principle
B#RATE,I;     $ANNUAL Rate Percent
C#MONTHS,I;   $Number of MONTHS (360 is 30 years)
D#PAYMNT,O;   $Monthly payment
$ Do the calculation
E=B/100;                                 $ Convert % to decimal
$    D=A*(E/12)/(1-1/(EXP(C*LOG(1+E/12))));  $Literal equation
D=A*(E/12)/(1-1/(%(C*@(1+E/12))));           $How it needs to be in !SS
#END

/* ------------------------------------------------------------------- */

Present/Future Values;    $FINANCIAL CALCULATIONS
$ First Column:  FV to PV
A#FVAMT, I;         $ Future Value
B#RATE%, I;         $ Interest rate per period
C#NUMPER, I;        $ Number of Periods
D#PVAMT, O;            $ Present Value
$  Second Column PV to FV
G#PVAMT, I;
H#RATE%, I;
I#NUMPER, I;
J#FVAMT, O;
$   CALCULATIONS
E=1+(B/100);
F=E^C;
D=A*(1/F);
K=1+(H/100);
L=K^I;
J=G*L

/* ------------------------------------------------------------------- */


/* ------------------------------------------------------------------- */

END OF FILE!!!!!