**TI-84 Plus CE: Updated TI-84 RPN Program**

For the original
TI84RPN program, click here:

**Introduction to TI84RPNS**

The program

**TI84RPNS**puts the TI-84 Plus CE into RPN (reverse polish notation) mode with arithmetic functions, power, square root, reciprocal, and π. The program contains room for one independent memory and a four level stack that works like the classic Hewlett Packard RPN calculators.
The program uses list 6 (L

**) as the stack, with six elements:**_{6}
L

**(1): X stack (displayed – bottom number)**_{6}
L

**(2): Y stack (displayed – top number)**_{6}
L

**(3): Z stack**_{6}
L

**(4): T stack**_{6}
L

**(5): Independent memory stack**_{6}
L

**(6): (temporary memory)**_{6}
What’s New: TI84PRNS adds
trigonometric, logarithmic, and additional numeric functions have been
added. Also, the [ XTθN ]/(link) key is
used to switch angle modes between Degrees and Radians.

If you need an idea how RPN works, please check this out: http://edspi31415.blogspot.com/2011/09/rpn-basics.html

You can download TI84PRNS here:
https://drive.google.com/open?id=0B7R8x9Yi26yGNHRSblRhNU5PQzQ

To enter numbers, this program requires you to press the [enter]
key prior to entering a number on the stack.

The following keys with the associated functions are available:

**Primary Keys**

[ enter ] Enter number

[ + ] Add: Y + X

[ - ] Subtract: Y - X

[ × ] Multiplication: Y * X

[ ÷ ] Divide: Y/X

[ ^ ] Exponent: Y^X

[ x

^{2}] Square: x^2
[ x

^{-1}] Reciprocal: 1/x
[ (-) ] Switch the sign of X (multiply X by -1)

[ sto> ] Store X in independent memory

[ alpha ] Recall memory

[ clear ] Clear X stack to 0

[ sin ] Sine of X

[ cos ] Cosine of X

[ tan ] Tangent of X

[ log ] Common Logarithm
(base 10) of X

[ ln ] Natural Logarithm (base e) of X

Function Keys:

[ Y= ] (F1): CIRC: Area of the Circle, radius is on stack X

[ window ] (F2): DIAG: Diagonal/Polar Radius, √(X^2 + Y^2)

[ zoom ] (F3): PRCH:
Percent Change from Y to X

[ trace ] (F4): ANGL:
Angle Function, angle(Yi+X)

[ graph ] (F5): REAL:
Real portion of the complex number in X

Stack operations:

[ ( ] Swap with X and Y

[ ) ] Roll stack down, result { Y, T, Z, X }

Mode operations:

[ XTθN ] Switch to Degrees Mode

Exit TI84PRNS:

Press [ mode ]

**Secondary Keys: Keys pressed after [ 2**

^{nd}] is pressed

[ 2

^{nd}] Cancels 2^{nd}
[ ^ ] ( π ) Enters π to
the Stack

[ x

^{2}] ( √ ) Square Root of X
[ sin ] (sin

^{-1}) Arcsine of X
[ cos ] (cos

^{-1}) Arccosine of X
[ tan ] (tan

^{-1}) Arctangent of X
[ log ] (10

^{x}) Common antilog (base 10) of X
[ ln ] (e

^{x}) Exponential function (base e) of X
Function Keys:

[ Y= ] (F1): ABS: Absolute Value of X

[ window ] (F2): INT: Integer Part of X

[ zoom ] (F3): FRC:
Fractional Part of X

[ trace ] (F4): SIGN:
Sign of X

[ graph ] (F5): IMAG: Imaginary
portion of the complex number in X

Mode operations:

[ 2

^{nd}], [ XTθN ] Switch to Radians Mode
Example: 2 + 3 + 9 = 14

Keys:

[ enter ], 2, [ enter ]

[ enter ], 3, [ enter ], [ + ],

[ enter ], 9, [ enter ], [ + ]

See more examples below.

**TI-84 Plus Program TI84RPNS:**

Disp
"TI-84+ BASIC RPNS"

Disp
"DEC. 2016"

Full

a+b

*i*
{0,0,0,0,0,0}→L6

ClrHome

Lbl
1

While
1

getKey→K

While
K=0

getKey→K

Output(2,1,L6(2))

Output(3,1,L6(1))

Output(4,1,"(:
SWAP, ): ROLL")

Output(5,1,"MODE:
EXIT, ALPHA: RCL")

Output(6,1,"XTθN:
DEG/RAD")

Output(7,1,"ENTER:
ENTER NUMBER")

Output(8,1,"CIRC/DIAG/PCHG/ANGL/REAL")

End

If
K=22:Then:ClrHome:Stop:End

If
K=21:Then:Goto 20:End

If
K=45:Then:0→L6(1):ClrHome:End

If
K=55:Then:L6(2)^L6(1)→L6(6)

Goto
2:End

If
K=65:Then:L6(2)/L6(1)→L6(6)

Goto
2:End

If
K=75:Then:L6(2)*L6(1)→L6(6)

Goto
2:End

If
K=85:Then:L6(2)-L6(1)→L6(6)

Goto
2:End

If
K=95:Then:L6(2)+L6(1)→L6(6)

Goto
2:End

If
K=105:Then:Goto 4:End

If
K=51:Then:1/L6(1)→L6(1):ClrHome:Goto 1:End

If
K=61:Then:L6(1)²→L6(1):ClrHome:Goto 1:End

If
K=52:Then:sin(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=53:Then:cos(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=54:Then:tan(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=71:Then:log(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=81:Then:ln(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=104:Then:L6(1)→L6(1):ClrHome:Goto 1:End

"CIRC"

If
K=11:Then:L6(1)²*π→L6(1):ClrHome:Goto 1:End

"DIAG"

If
K=12:Then:√(L6(1)²+L6(2)²)→L6(6)

L6(6)→L6(1):L6(3)→L6(2):L6(4)→L6(3)

ClrHome

Goto
1:End

"PCHG"

If
K=13:Then:100*(L6(1)-L6(2))/L6(2)→L6(6)

L6(6)→L6(1):L6(3)→L6(2):L6(4)→L6(3)

ClrHome

Goto
1:End

"ANGL"

If
K=14

Then:angle(L6(1)+L6(2)*

**)→L6(6)***i*
L6(6)→L6(1):L6(3)→L6(2):L6(4)→L6(3)

ClrHome

Goto
1:End

"REAL"

If
K=15:Then:real(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=63:Then:Goto 5:End

If
K=64:Then:Goto 6:End

If
K=91:Then:L6(1)→L6(5):Goto 1:End

If
K=31:Then:L6(5)→L6(6):Goto 3:End

If
K=32:Then:Degree:Goto 1:End

If
K=22:Then:ClrHome:Stop:End

Goto
1

Lbl
2

"TWO
OPERATION"

L6(6)→L6(1):L6(3)→L6(2):L6(4)→L6(3)

ClrHome

Goto
1

Lbl
3

"RCL/INPUT"

L6(3)→L6(4):L6(2)→L6(3):L6(1)→L6(2)

L6(6)→L6(1):ClrHome

Goto
1

Lbl
4

"INPUT
NUMBER"

ClrHome

Input
"NUMBER:",N

N→L6(6)

Goto
3

Lbl
5

"SWAP"

L6(1)→L6(6):L6(2)→L6(1):L6(6)→L6(2)

ClrHome

Goto
1

Lbl
6

"ROLL"

L6(1)→L6(6)

L6(2)→L6(1):L6(3)→L6(2):L6(4)→L6(3)

L6(6)→L6(4)

ClrHome

Goto
1

End

Lbl
20

ClrHome

While
1

getKey→K

While
K=0

getKey→K

Output(2,1,L6(2))

Output(3,1,L6(1))

Output(4,1,"2ND")

Output(8,1,"ABS
/INT /FRC /SIGN/IMAG")

End

If
K=21:Goto 1

"PI"

If
K=55:Then:

π→L6(6)

L6(3)→L6(4):L6(2)→L6(3):L6(1)→L6(2)

L6(6)→L6(1):ClrHome

Goto
1

End

"OTHERS"

If
K=32:Then:Radian:Goto 1:End

If
K=61:Then:√(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=52:Then:sin

^{-1}(L6(1))→L6(1):ClrHome:Goto 1:End
If
K=53:Then:cos

^{-1}(L6(1))→L6(1):ClrHome:Goto 1:End
If
K=54:Then:tan

^{-1}(L6(1))→L6(1):ClrHome:Goto 1:End
If
K=71:Then:10^(L6(1))→L6(1):ClrHome:Goto 1:End

If
K=81:Then:e^(L6(1))→L6(1):ClrHome:Goto 1:End

"ABS
"

If
K=11:Then:abs(L6(1))→L6(1):ClrHome:Goto 1:End

"INT
"

If
K=12:Then:iPart(L6(1))→L6(1):ClrHome:Goto 1:End

"FRC
"

If
K=13:Then:fPart(L6(1))→L6(1):ClrHome:Goto 1:End

"SIGN"

If
K=14:Then:abs(L6(1))/L6(1)→L6(1):ClrHome:Goto 1:End

"IMAG"

If
K=15:Then:imag(L6(1))→L6(1):ClrHome:Goto 1:End

End

Remember to keep the Order of Operations in mind when running
this program.

Example 1: 1/(10 – 1.5^2.5)
= 0.1380391041

[ enter ], 10, [ enter ]

[ enter ], 1.5, [ enter ]

[ enter ], 2.5, [ enter ]

[ ^ ], [ - ], [ x

^{-1}]
Example 2: √(6^2 + 7^2)
= 9.219544457

[ enter ], 6, [ enter ], [ x

^{2}]
[ enter ], 7, [ enter ], [ x

^{2}]
[ + ], [ , ]

Example 3: Store 1.758 in
memory. (Let M = 1.758)

Calculate 10 – 1.1^M + 2M = 12.33358933

[ enter ], 1.758, [ enter ], [ sto> ]

[ enter ], 10, [ enter ]

[ enter ], 1.1, [ enter ]

[ alpha ], [ ^ ], [ - ]

[ enter ], 2, [ enter ]

[ alpha ], [ × ], [ + ]

Example 4: (10 + (8 –
5%)) + 9% = (10 + (8 * .95)) * 1.09 = 19.184

[ enter ], 8, [ enter ]

[ enter ], .95, [ enter ], [ × ]

[ enter ], 10, [ enter ], [ + ]

[ enter ], 1.09, [ enter ], [ × ]

Example 5: e^(1.5) = 4.48168907

[ enter ], 1.5, [ enter ]

[ 2

^{nd}], [ ln ] (e^{x})
Example 6: sin((10/√(2^2
+ 2.5^2))°) = 0.0544879291

Use the DIAG function for √(2^2 + 2.5^2)

[ XTθN ] (set Degrees mode)

[ enter ], 2, [ enter ]

[ enter ], 2.5, [ enter ]

[ window ] (F2)

[ x

^{-1}], [ enter ], 10, [ enter ]
[ * ], [ sin ]

Example 7: What is the
percent change from 10.99 to 20.99? 90.99181074
(%)

[ enter ], 10.99, [ enter ]

[ enter ], 20.99, [ enter ]

[ zoom ] (F3)

This blog is property of Edward Shore, 2016

Eddie you are a God in third world countries. *third world countries including but not limited to Outer Needles, Greater Kingman, and Barstow proper.

ReplyDeleteThank you Jason. I accept donations in all forms of prayer, coin, and praise. LOL

Delete:)

I've spent some time working on an improved Ti84 RPN program. It's written in C and compiled to Assembly for the Ti's z80 CPU, so it's blazingly fast compared to anything written in Ti-BASIC. I actually used it in a competition setting!

DeleteCheck out a demo at git.io/ti84rpn !

I deviated from the spirit of the HPs a bit by allowing an (effectively) infinite stack and displaying up to 10 elements of it on screen.

If you think it's cool, please star the repo!

Your contents are a lot more than adequate for me.

ReplyDeleteunsecured merchant loans

Very helpful suggestions that help in the optimizing website.

ReplyDeleteI really like you post.Thanks for sharing.

Please click this post,if you wanna join casino online. Thank you

gclub casino

goldenslot

Gclub จีคลับ