you need the powerpivots plus add-on for this expert to work Highlights Long TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 out TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long entry TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long Exit TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short exit TD:=ExtFml("PowerPivots.TrendDirection",1,2); A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); LE:=Cross(A,Ref(A,-1)) and SAR(.02,.2)<C AND TD=1; LX:=Cross(Ref(A,-1),A) or SAR(.02,.2)>C; SE:=Cross(Ref(A,-1),A) and SAR(.02,.2)>C and TD=-1; SX:=Cross(A,Ref(A,-1)) or SAR(.02,.2)<C; B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0

I would read the chapter on experts more than once, then click on the expert icon{The man with the hat} click new, type in the correct name of the expert you are copying, under the highlights tab, click new, name it long, cut and paste the formula under highlights long into the blank box and change the color to green, click ok and do the same for the rest of the formulas