MACD w Kase Dev Stop Expert
Highlights 

Long 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=1 

Short 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=-1 

Symbol tab 

Long 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=1 AND Ref(State,-1)<1 {EL} 

Short 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=-1 AND Ref(State,-1)>-1 {ES} 

Close Long 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=0 AND Ref(State,-1)=1 {CL} 

Close Short 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=0 AND Ref(State,-1)=-1 {CS}