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
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long entry
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short entry
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long exit
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short exit
AMA:=If(Cum(1)=5,Ref(C,-1)+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/31))+(2/31),2))*(C-Ref(C,-1)),PREV+(Pwr((Abs((C-Ref(C,-4))/Sum(Abs(ROC(C,1,$)),4)))*((2/3)-(2/ 31))+ (2/31),2))*(C-PREV));
{And 3% Crossover is:}
SIG:=If((AMA*.97)>PREV,AMA*.97,If((AMA*1.03)<PREV,AMA*1.03,PREV));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=Cross(AMA,SIG) AND TD=1;
SE:=Cross(Sig,AMA) AND TD=-1;
LX:=Cross(Sig,AMA);
SX:=Cross(AMA,SIG);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|
