T3 T8 OHLC w 100 ma Expert
Highlights 

long 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=-1 

Short 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=1 

Out 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=0 

Symbols 

Long entry 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=-1 AND Ref(D,-1)>-1 

short entry 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=1 AND Ref(D,-1)<1 

Long exit 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=0 AND Ref(D,-1)=-1 

Short exit 

A1:=(O+H+L+C)/4; 
e1:=Mov(A1,3,E); 
e2:=Mov(e1,3,E); 
e3:=Mov(e2,3,E); 
e4:=Mov(e3,3,E); 
e5:=Mov(e4,3,E); 
e6:=Mov(e5,3,E); 
e1a:=Mov(A1,8,E); 
e2a:=Mov(e1a,8,E); 
e3a:=Mov(e2a,8,E); 
e4a:=Mov(e3a,8,E); 
e5a:=Mov(e4a,8,E); 
e6a:=Mov(e5a,8,E); 
c1:=-.618*.618*.618; 
c2:=3*.618*.618+3*.618*.618*.618; 
c3:=-6*.618*.618-3*.618-3*.618*.618*.618; 
c4:=1+3*.618+.618*.618*.618+3*.618*.618; 
T8:=c1*e6a+c2*e5a+c3*e4a+c4*e3a; 
T3:=c1*e6+c2*e5+c3*e4+c4*e3; 
D:=If(T3>T8 AND A1>Mov(A1,100,S),-1,If(T3<T8 AND A1<Mov(A1,100,S),1,0)); 
D=0 AND Ref(D,-1)=1