The FibboGatto formula

[bbj@xxxx]

Oops, I forgot to attatched the formula.Here it is.

/*FibboGatto*/


X=ma(((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,5);



S=EMA(((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);
Y=X-S;
graph0=Y;
graph0style=6;
downbar =iif(Y<ref(Y,-1),Y,0) and Y<0 ;
upbar = iif(Y>ref(Y,-1),Y,0) and Y>0 ;
Ucon=Y>0 and Y<ref(Y,-1);
Dcon=Y<0 and Y>ref(Y,-1);
P=Ucon or Dcon;
barcolor = IIF( downbar,4, IIF( upbar, 5, iif(Ucon or Dcon,9,0 ) ));
graph0barcolor = ValueWhen( barcolor != 0, barcolor );

title="FibboGatto";