Examples

FOR DOWN INVERSE ENTRY ON PFIB

enter low as "h". and high as "L"

If HIGH IS 1.41 AND LOW IS 1.29

FOR NORMAL UP ENTER HIGH AS "H"(1.41) AND LOW AS "L"(1.29)

FOR DOWN ENTER HIGH (1.41) AS "L" AND LOW(1.29) AS "H"

:Menu("FIB","PFIB",PP,"FIB",MM)
:LBL PP:PROMPT H,L
:IF H>L:THEN
:H-L "STO" D
:D*(4.25)+L "STO" A:D*(2.618)+L "STO" B:D*(1.786)+L "STO" C:D*(1.618)+L "STO" E:D*(1.0)+L "STO" F:D*(.786)+L "STO" G:D*(.50)+L "STO" I:D*(.382)+L "STO" J
:Disp H,A,B,C,E,L
:ELSE
:L-H "STO" J
:J*(4.25) "STO" K:
:L-K "STO" M
:J*(2.618) "STO" N:L-N "STO" O:J*(1.618) "STO" P:L-P "STO"Q:J*(1.5) "STO" R:L-R "STO" S
:Disp L,S,Q,O,M,H
:STOP
:LABEL MM:PROMPT H,L,
:H-L "STO" D
:D*(1.618)=L "STO" A
:D*(1)+L "STO"B:D*(.786)+L "STO" C :D*(.5)+L "STO" E:D*(.382)+L "STO" F:D*(.250)+L "STO" G:D*(.125)+L "STO" I
:Disp A,H,C,E,F,L

Program for TI 84

using "list"

Using list you can easily create any program needed

just type in the fib. projection or retracement numbers in a list and then the appropriate calculations.

This program projects

FILL L1

4.25

2.618

1.618

:prompt H,L:H-L "sto>"A: A*L1 "sto>"L5 :L+L5 "sto>" L6

:Disp TableL6

This program retraces

Type

.875

.786

.618

.382

.270

.214

.125

into table L3

"2ND" (BLUE BUTTON TOP LEFT)

PRESS "STAT"

PRESS "STAT" AGAIN

PRESS "ENTER"

PUT NUMBERS IN LIST TO BE USED IN CALCULATION, REMEMBER TO LEAVE EMPTY LIST TO RECEIVE RESULTS OF CALCULATIONS AS WELL AS AN EMPTY LIST TO HOLD THE FINAL RESULT OF ALL COMBINED CALCULATIONS, WHICH IS THE LIST TO BE DISPLAYED

WHEN DISPLAYED USE RIGHT AND LEFT GREY CONTROL BUTTONS "UPPER RIGHT" TO SCROLL BACK AND FORTH THRU SOLUTIONS

:Prompt L,H

:H-L "STO>"B

:B*L3 "STO>"L4

:H-L4 "STO>"L5

:DISPTABLEL5