You can adjust the band width 5% is a little to wide
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=C>Mov(Ref(C,-3),3,S)*1.02
AND Ref(C,-1)>Ref(Mov(Ref(C,-3),3,S),-1)*1.02 AND Sum(TD=1,2)>1;
SE:=C<Mov(Ref(C,-3),3,S)*.998
AND Ref(C,-1)<Ref(Mov(Ref(C,-3),3,S),-1)*.998 AND Sum(TD=-1,2)>1;
LX:=C<Mov(Ref(C,-3),3,S)*.998
AND Ref(C,-1)<Ref(Mov(Ref(C,-3),3,S),-1)*.998;
SX:=C>Mov(Ref(C,-3),3,S)*1.02
AND Ref(C,-1)>Ref(Mov(Ref(C,-3),3,S),-1)*1.02;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
