4 day range Switch Expert w SAR & ATS win Loss Trend

N

ngocleasing

New Member
#1
#1
Could who give me file .DLL to run this file?
Thank you very much!

"You will need the following Add-on for this expert to work

PowerPivots Plus & Adaptive Trading Solutions

Highlights

Long

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0


Short

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0

Out

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0


Symbols

Long entry

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0


Short entry

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0


Long exit

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0


Short exit

d:=If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
Loss:= ExtFml("tsaequis1.eodlso");
Win:= ExtFml("tsaequis1.eodwso");
LE:=Cross(C,d) AND (SAR(.02,.2)<C) and Win > Loss;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) and Win < Loss;
SX:=((SAR(.02,.2)<C)) OR (Cross(d,C) AND SAR(.02,.2)<C);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
"
 
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
M range filter MetaStock 0
F Strange candles in options Options 1
S AFL for Opening range breakout Welcome 0
T Hammer vs Trend Candle with same range and color at bottom of strong down trend General Trading & Investing Chat 4
N 4 day range Switch Expert w SAR & ATS win Loss Trend MetaStock 2

Similar threads