| |
FibboGatto
1
((c +
ref(c,-1) +
ref(c,-2) +
ref(c,-3) +
ref(c,-5) +
ref(c,-8) +
ref(c,-13) +
ref(c,-21) +
ref(c,-34) +
ref(c,-55) +
ref(c,-89) +
ref(c,-144)) /
c) *
-1
|
FibboGatto 2
mov(((c +
ref(c,-1) +
ref(c,-2) +
ref(c,-3) +
ref(c,-5) +
ref(c,-8) +
ref(c,-13) +
ref(c,-21) +
ref(c,-34) +
ref(c,-55) +
ref(c,-89) +
ref(c,-144)) /
c) *
-1,
34,e)
|
|
 |
 |
|
Fib
Levels_In
eMonth1:=Input("Enter the Month-MM",1,12,1);
eDate1:=Input("Enter
the Date-DD",1,31,1);
eYear1:=Input("Enter the
Year-YYYY",0,2100,0);
eMonth2:=Input(".Enter the
Month-MM",1,12,1);
eDate2:=Input(".Enter the Date-DD",1,31,1);
eYear2:=Input(".Enter the Year-YYYY",0,2100,0);
h1:=valuewhen(1, dayofmonth()=eDate1 AND
month()=eMonth1 AND year()=eYear1,H);
l1:=valuewhen(1,
dayofmonth()=eDate1 AND month()=eMonth1 AND year()=eYear1,L);
h2:=valuewhen(1, dayofmonth()=eDate2 AND
month()=eMonth2 AND year()=eYear2,H);
l2:=valuewhen(1,
dayofmonth()=eDate2 AND month()=eMonth2 AND year()=eYear2,L);
aa:= Max(h1,h2);
bb:=Min(l1,l2);
cc:=Abs(aa-bb);
startpt:=If(h1>h2 AND l1>l2,l2,If(h2>h1 AND
l2>l1,h2,0));
sr1:=If(startpt=l2,l2+(cc*.236),If(startpt=h2,h2-(cc*.236),0));
SR2:=If(startpt=l2,l2+(cc*.3),If(startpt=h2,h2-(cc*.3),0));
SR3:=If(startpt=l2,l2+(cc*.382),If(startpt=h2,h2-(cc*.382),0));
SR4:=If(startpt=l2,l2+(cc*.486),If(startpt=h2,h2-(cc*.486),0));
SR5:=If(startpt=l2,l2+(cc*.618),If(startpt=h2,h2-(cc*.618),0));
SR6:=If(startpt=l2,l2+(cc*.786),If(startpt=h2,h2-(cc*.786),0));
aa;
sr1;
SR2;
SR3;
SR4;
SR5;
SR6;
bb;
|
Fib Levels_Out
eMonth1:=Input("Enter the Month-MM",1,12,1);
eDate1:=Input("Enter
the Date-DD",1,31,1);
eYear1:=Input("Enter the
Year-YYYY",0,2100,0);
eMonth2:=Input(".Enter the
Month-MM",1,12,1);
eDate2:=Input(".Enter the Date-DD",1,31,1);
eYear2:=Input(".Enter the Year-YYYY",0,2100,0);
h1:=ValueWhen(1, DayOfMonth()=eDate1 AND
Month()=eMonth1 AND Year()=eYear1,H);
l1:=ValueWhen(1,
DayOfMonth()=eDate1 AND Month()=eMonth1 AND Year()=eYear1,L);
h2:=ValueWhen(1, DayOfMonth()=eDate2 AND
Month()=eMonth2 AND Year()=eYear2,H);
l2:=ValueWhen(1,
DayOfMonth()=eDate2 AND Month()=eMonth2 AND Year()=eYear2,L);
aa:= Max(h1,h2);
bb:=Min(l1,l2);
cc:=Abs(aa-bb);
startpt:=If(h1>h2 AND l1>l2,l2,If(h1<h2 AND
l1<l2,h2,0));
sr1:=If(startpt=l2,l2-(cc*1.272),If(startpt=h2,h2+(cc*1.272),0));
SR2:=If(startpt=l2,l2-(cc*1.618),If(startpt=h2,h2+(cc*1.618),0));
SR3:=If(startpt=l2,l2-(cc*2.058),If(startpt=h2,h2+(cc*2.058),0));
SR4:=If(startpt=l2,l2-(cc*2.618),If(startpt=h2,h2+(cc*2.618),0));
SR5:=If(startpt=l2,l2-(cc*3.33),If(startpt=h2,h2+(cc*3.33),0));
SR6:=If(startpt=l2,l2-(cc*4.236),If(startpt=h2,h2+(cc*4.236),0));
aa;
sr1;
SR2;
SR3;
SR4;
SR5;
SR6;
bb;
|
Fibonacci
Levels II
ZigPerc:= Input("Zig-Zag Percentage", .1, 99, 1);
{basic peak and
trough level calculation}
P1:=ValueWhen(1,Peak(1,Zig(C,ZigPerc,%),ZigPerc),
Peak(1,Zig(H,ZigPerc,%),ZigPerc));
P2:=ValueWhen(1,Trough(1,Zig(C,ZigPerc,%),ZigPerc),
Trough(1,Zig(L,ZigPerc,%),ZigPerc));
{Fibonacci retracement levels calculation}
P3 := P2 + (P1-P2)*0.236;
P4 := P2 + (P1-P2)*0.382;
P5 := P2 +
(P1-P2)*0.5;
P6 := P2 + (P1-P2)*0.618;
P7 := P2 +
(P1-P2)*0.764;
{Plotting the levels}
P2; {through}
P3;
{23.6% (76.4%) retracement}
P4; {38.2% (61.8%) retracement}
P5; {50.0% retracement}
P6; {61.8% (38.2%) retracement}
P7;
{76.4% (23.6%) retracement}
P1; {peak}
|
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);
|
|
|
|
|
FT-DBP
dt:=DayOfWeek();
DBC:=(HighestSince(5,DayOfWeek()=dt,H)+
LowestSince(5,DayOfWeek()=dt,L)+CLOSE)/3;
DBC
|
FT-Dynamic
Balance Point Step
DPS:=(ValueWhen(1,FmlVar("FT-DBP","DBC"),
FmlVar("FT-DBP","DBC"))+
ValueWhen(5,FmlVar("FT-DBP","DBC"),
FmlVar("FT-DBP","DBC"))+
ValueWhen(10,FmlVar("FT-DBP","DBC"),
FmlVar("FT-DBP","DBC"))+
ValueWhen(15,FmlVar("FT-DBP","DBC"),
FmlVar("FT-DBP","DBC"))+
ValueWhen(20,FmlVar("FT-DBP","DBC"),
FmlVar("FT-DBP","DBC")))/5;
DPS;
|
FT-FBP
Mc1:=BarsSince(DayOfWeek()=1);
Fc1:=BarsSince(DayOfWeek()=5);
Fc2:=Ref(BarsSince(DayOfWeek()=5),-1)-1;
{Fixed Balance Point
Calculation}
FBC:=If(Mc1=0 AND Fc1>2,
{then}(Ref(HHV(H,LastValue(mc1)),-1)+
Ref(LLV(L,LastValue(Mc1)),-1)+
Ref(C,-1))/3,
{else}If(Fc1=0
AND Mc1>5,
{then}(HHV(H,LastValue(Fc2))+
LLV(L,LastValue(Fc2))+C)/3,
{else}If(Fc1=0,
{then}(HHV(H,LastValue(Mc1))+
LLV(L,LastValue(Mc1))+C)/3,
{else}0)));
{Fixed Balance Point Plot}
FBP:=ValueWhen(1,FBC>0,FBC);
FBP;
|
FT-Fixed
Balance Point Step
FPS:=(ValueWhen(1,FmlVar("FT-FBP","FBC")>0,
FmlVar("FT-FBP","FBC")) +
ValueWhen(2,FmlVar("FT-FBP","FBC")>0,
FmlVar("FT-FBP","FBC")) +
ValueWhen(3,FmlVar("FT-FBP","FBC")>0,
FmlVar("FT-FBP","FBC")) +
ValueWhen(4,FmlVar("FT-FBP","FBC")>0,
FmlVar("FT-FBP","FBC")) +
ValueWhen(5,FmlVar("FT-FBP","FBC")>0,
FmlVar("FT-FBP","FBC")))/5;
FPS
|
FT-Weekly Price
Range Calculation
Mc1:=BarsSince(DayOfWeek()=1);
Fc1:=BarsSince(DayOfWeek()=5);
Fc2:=Ref(BarsSince(DayOfWeek()=5),-1)-1;
WRC:=If(Mc1=0 AND Fc1>2,
{then}Ref(HHV(H,LastValue(mc1)),-1)-
Ref(LLV(L,LastValue(Mc1)),-1),
{else}If(Fc1=0 AND Mc1>5,
{then}HHV(H,LastValue(Fc2))-
LLV(L,LastValue(Fc2)),
{else}If(Fc1=0,
{then}HHV(H,LastValue(Mc1))-
LLV(L,LastValue(Mc1)),
{else}0)));
WRP:=ValueWhen(1,WRC>0,WRC);
{Resistance Range}
RR1:=
FmlVar("FT-FBP","FBP")+(WRP*.5);
RR2:=
FmlVar("FT-FBP","FBP")+(WRP*.618);
{Support Range}
SR1:=
FmlVar("FT-FBP","FBP")-(WRP*.5);
SR2:=
FmlVar("FT-FBP","FBP")-(WRP*.618);
{Plot Ranges}
RR1;
RR2;
SR1;
SR2;
|
|
|
|
|
Finite Volume
Elements (FVE) Basic
Period:= Input("Period for FVE",10,80,22);
MF:= C-(H+L) / 2 +
Typical() - Ref(Typical(),-1);
FVE:= Sum( If( MF > 0.3 * C /
100, + V,
If( MF > -0.3 * C / 100, - V, 0 )),
Period) /
Mov(V,Period,S) / Period * 100;
FVE
|
Finite Volume
Elements (FVE) - Lin Reg Slope
pds:=Input("period for FVE",10,80,22);
pds1:=Input("period
for regression line",5,100,35);
mf:=C-(H+L)/2+Typical()-Ref(Typical(),-1);
fve:=Sum(If(mf>0.3*C/100,+V, If(mf<-0.3*C/100,-V,0)),pds)
/Mov(V,pds,S)/pds*100;
If(LinRegSlope(fve,pds1)>0,1,-1)-
If(LinRegSlope(C,pds1)>0,1,-1);
|
|
|
|
|
Transform with Signal
pr:=(H+L)/2;
len:=10;
maxh:=HHV(pr,len);
minl:=LLV(pr,len);
val1:=.33*2*((pr-minl)/(maxh-minl)-.5)+.67*PREV;
value1:=If(val1>.99,.999,If(val1<-.99,-.999,val1));
fish:=.5*Log((1+value1)/(1-value1))+.5*PREV;
fish;
Ref(fish,-1);
|
Transform with
Rate of Change
pr:=(H+L)/2;
len:=10;
maxh:=HHV(pr,len);
minl:=LLV(pr,len);
val1:=.33*2*((pr-minl)/(maxh-minl)-.5)+.67*PREV;
value1:=If(val1>.99,.999,If(val1<-.99,-.999,val1));
fish:=.5*Log((1+value1)/(1-value1))+.5*PREV;
fish;
10*ROC(fish,1,$)
|
Fractal Adaptive Moving
Average
y:=Input("sample time periods",1,20,8);
y2:=2*y;
n1:=(HHV(H,y)-LLV(L,y))/y;
n2:=Ref((HHV(H,y)-LLV(L,y))/y,-y);
n3:=(HHV(H,y2)-LLV(L,y2))/y2;
x:=(Log(n1+n2)-Log(n3))/Log(2);
xt:=Exp(-4.6*(x-1));
x1:=If(xt<0.1,0.1,If(xt>1,1,xt));
x2:=1-x1;
If(Cum(1)=y2,
(MP() * x1) + (Ref(MP(),-1) * x2),
(MP() * x1) + (PREV * x2))
|
Fractal AMA (FRAMA)
D:=Input("Period of Fractal AMA (even 2!)",4,60,16);
Pr:=(H+L)/2;
N3:=(HHV(H,D)-LLV(L,D))/D;
N2:=(HHV(H,D/2)-LLV(L,D/2))/(D/2);
N1:=(Ref(HHV(H,D/2),-D/2)-Ref(LLV(L,D/2),-D/2))/(D/2);
Dimen:=If(N1>0 AND N2>0 AND N3>0, (Log(N1+N2)-Log(N3))/Log(2),0);
alpha:=Exp(-4.6*(Dimen-1));
SC:=If(alpha<.01, .01, If(alpha>1, 1,
alpha));
FRAMA:=if(Cum(1)<=2*D, Pr, Pr*SC+PREV*(1-SC));
FRAMA;
|
Fractal Efficiency %
If(C > Ref(C,-9),Sqr( Pwr( ROC(C,9,$),2) +Pwr(10,2)) /
Sum( Sqr(
Pwr( ROC(C,1,$),2)+1),9), - Sqr(Pwr( ROC(C,9,$),2) + Pwr(10,2)) /
Sum( Sqr( Pwr( ROC(C,1,$),2)+1),9)) * 100
|
| |
|
