3 RSI over under w Trend Direction Expert You will need the powerpivots Plus Add-on for this Expert to work Highlights Long TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long Entry TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long Exit TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short exit TD:= ExtFml("PowerPivots.TrendDirection",1,2); A1:=RSI(C,10); A2:=RSI(C,20); A3:=RSI(C,40); UP:=If(A1>40 AND A2>40 AND A3>40,true,false); DN:=If(A1<60 AND A2<60 AND A3<60,True,False); D:=If(BarsSince(UP)BarsSince(DN),1,0)); LE:=D=-1 AND Ref(D,-1)>-1 AND TD=1; LX:=D=1 AND Ref(D,-1)<1; SE:=D=1 AND Ref(D,-1)<1 AND TD=-1; SX:=D=-1 AND Ref(D,-1)>-1; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0