Fibonacci Tool

[wander@xxxxxxxx]

Glad ya'll liked it....hope it proves helpful.:-)   I've made a few changes,
the most noticeable being that I added more extensions.  Feel free to bracket
off the ones you don't want, add additional ones, or create your own
retracement variations.

Regards,
Ken
--------------

        {FIBONACCI TOOL - custom}
                                      {Ken 9/8/99}
j:=Input("year to begin line study",
                         1800,3000,1999);
k:=Input("month to begin line study",1,12,1);
m:=Input("day of month to begin line study",
                                                       1,31,4);
ext:=
Input("Extension: 2=upward; 1=downward; 0=none"
                                                       ,0,2,0);
hi:=Input("high",0,20000,100);
lo:=Input("low",0,20000,50);
BeginPlot:=Year()=j AND Month()=k AND
                  DayOfMonth()=m;
n:=ValueWhen(1,BeginPlot,(hi-(hi-lo)*2.618));
q:=ValueWhen(1,BeginPlot,(hi-(hi-lo)*1.618));
u:=ValueWhen(1,BeginPlot,(hi-(hi-lo)*1.382));
x:=ValueWhen(1,BeginPlot,((hi-lo)*1.382)+lo);
y:=ValueWhen(1,BeginPlot,((hi-lo)*1.618)+lo);
z:=ValueWhen(1,BeginPlot,((hi-lo)*2.618)+lo);
If(ext=1,n,lo);
If(ext=1,q,lo);
If(ext=1,u,lo);
ValueWhen(1,BeginPlot,lo);
ValueWhen(1,BeginPlot,((hi-lo)*.236)+lo);
ValueWhen(1,BeginPlot,((hi-lo)*.382)+lo);
ValueWhen(1,BeginPlot,((hi-lo)*.5)+lo);
ValueWhen(1,BeginPlot,((hi-lo)*.618)+lo);
ValueWhen(1,BeginPlot,((hi-lo)*.764)+lo);
ValueWhen(1,BeginPlot,hi);
If(ext=2,x,hi);
If(ext=2,y,hi);
If(ext=2,z,hi);