Fibonacci : Lucas

THIS PROGRAM IS GIVING ME A MAJOR FIT

HOWEVER

YOU CAN USE  THIS PROGRAME BY ENTERING

(STO) = The button 1 place up from the ON button

:Prompt H,L

:H-L (STO) A

:A * L1 (STO) L2

:L + L2 (STO) L4

:DISP TABLEL4

For projecting down enter low as high and high as low

use the right and left arrow buttons (top right) to scroll from beging to end of output

After  in serting  "menu" from program button be certain to press enter or you will get a label error

also note when it does not seem to work just hit the blue 2nd button then l3 or l5 enter

L1 etc... are list functions where you store the fib. numbers for the function, only put fib. numbers in L1 and L2, the others thru L6 Will be used by the program

:Menu("IFTL", "PROJ" AA, "RETR", BB)

:Lbl AA: Prompt L,H: If H>L: Then: H-L "STO BUTTON"A:

:(A*L1)+L(sto button)L3

:Display Table L3

:Else:L-H(sto button)b:L - (B*L1) (STO BUTTON)L4:

:Display Table4

:Lbl BB:Prompt H,L:H-L (STO) D:(D*L2) + L (STO) L5

:Display Table5

EVER NEED A FEW

Fib. Or Lucas Numbers ?

Here is a program for you T.I

Fib. retracement

"note it helps to down load the users guide from the texas instrument web site, it is more detailed than the user guide that comes with"

Fib. Tables

ALL PROGRAMS "AS IS"

• :Prompt H,L:H-L "STO" D
• :D*(.786)+L "STO" A:D*(.618)+L "STO" B:D*(.382)+L "STO" C:D*(.238)+L "STO" F:Disp ".786",A:Disp ".382",L

Fib Up 1.618 - 2.618 etc (1st leg to predict top of 5th wave)

• Prompt L,H:H-L "STO" A:A*(1.618)+L "STO" B:A*(2.618)+L "STO" C:A*(4.25)+L "STO" D:Disp "1.618",B:Disp "2.618",C

Fib. Down (1st leg, same as up only down)

• Prompt H,L:H-L "STO" A:A*(1.618)-H "STO" B:A*(2.618)-H "STO" C:A*(4.25)-H "STO" D:Disp "1.618",B:Disp "2.618",C:

COMBINED UP AND DOWN

To Use this for

UP

• Enter high,low normaly

For Down

• Enter the high as low "L" , And the Low as "H"
• Prompt L,H:IF H>L:THEN:H-L"STO"D:D*(1.618)+L "STO" A: ETC..
• ELSE:L-H "STO" Z:Z*(1.618) "STO" Y: L-Y "STO" X  ETC:
• :Disp "1.618",X
• :END

"STO" = BUTTON ON FRONT

ON,PRGM,NEW

PROGRAM (CTL,I/O EXEC) I/O = Disp etc..

> SYMBOLS IN (BLUE 2ND,TEST)