Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers
Joined: 10/29/2004(UTC)
Posts: 1,394
Location: Glastonbury, CT
Was thanked: 2 time(s) in 2 post(s)
|
You need the powerpivots plus add-on for this expert to work
Highlight
Long
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
d:=If(C>Ref(Max(H,Ref(H,-1)),-1),Min(L,Ref(L,-1)),If(C<Ref(Min(L,Ref(L,-1)),-1),Max(H,Ref(H,-1)),PREV));
LE:=Cross(C,d) AND (SAR(.02,.2)<C) AND Sum(TD>0,2)>1;
LX:=(SAR(.02,.2)>C) OR (Cross(C,d) AND SAR(.02,.2)>C);
SE:=Cross(d,C) AND (SAR(.02,.2)>C) AND Sum(TD<0,2)>1;
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
|
