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 will need the PowerPivots Plus Add-on for this expert to work
highlights
Long
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long entry
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short entry
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long exit
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short exit
x:=20;
am:= Abs(C-Ref(C,-(x-1)));
td:= Sum(C-Ref(C,-(x-1)),x);
tdi:= (Abs(td)+Sum(am,x))-Sum(am,(2*x));
status:= If(tdi>0, If(td>0,1,-1), PREV);
trnd:=status*LastValue(Highest(Max(Abs(tdi),Abs(td))));
LE:=If(td>0 AND tdi>0 AND td>tdi ,true,false);
SE:=If(td<0 AND tdi<0 AND td<tdi,true,false);
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1);
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1);
LX:=Cross(lP,CLOSE);
SX:=Cross(CLOSE,hP);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|
