Chaos balance lines Osc >0 Expert
This expert needs the powerpivot Plus Add-on 

Highlights 

Long 

A1:=MP()-Ref(Wilders(MP(),5 ) ,-3 ); 
A2:=MP()-Ref(Wilders(MP(),8 ) ,-5 ); 
A3:=MP()-Ref(Wilders(MP(),13 ),-8 ); 
LE:=If(A1>0 AND A2>0 AND A3>0,True,False); 
SE:=If(A1<0 AND A2<0 AND A3<0,True,False); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A1:=MP()-Ref(Wilders(MP(),5 ),-3 ); 
A2:=MP()-Ref(Wilders(MP(),8 ) ,-5 ); 
A3:=MP()-Ref(Wilders(MP(),13 ),-8 ); 
LE:=If(A1>0 AND A2>0 AND A3>0,True,False); 
SE:=If(A1<0 AND A2<0 AND A3<0,True,False); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Symbols 

long entry 

A1:=MP()-Ref(Wilders(MP(),5 ),-3 ); 
A2:=MP()-Ref(Wilders(MP(),8 ),-5 ); 
A3:=MP()-Ref(Wilders(MP(),13 ),-8 ); 
LE:=If(A1>0 AND A2>0 AND A3>0,True,False); 
SE:=If(A1<0 AND A2<0 AND A3<0,True,False); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A1:=MP()-Ref(Wilders(MP(),5 ),-3 ); 
A2:=MP()-Ref(Wilders(MP(),8 ),-5 ); 
A3:=MP()-Ref(Wilders(MP(),13 ),-8 ); 
LE:=If(A1>0 AND A2>0 AND A3>0,True,False); 
SE:=If(A1<0 AND A2<0 AND A3<0,True,False); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0