Vidya 5 w 1% Bands w Trend Direction Expert
This expert needs the PowerPivots Add-on to work 

Highlights 

long 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

Pds:=5; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Vidya 15 w 1% Bands w Trend Direction Expert*****
This expert needs the PowerPivots Add-on to work 

Highlights 

long 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

Pds:=15; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Vidya 10 w 1% Bands w Trend Direction Expert*****
This expert needs the PowerPivots Add-on to work 

Highlights 

long 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

Pds:=10; 
Vidya:= Mov(C,Pds,VAR); 
UB:=Vidya*1.01; 
LB:=(2*Vidya)-UB; 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(C,UB) AND TD=1; 
SE:=Cross(LB,C) AND TD=-1; 
LX:=Cross(Vidya,C) AND TD>=0; 
SX:=Cross(C,Vidya) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Vidya Expert explanation*****
You start with a variable MA and you develope 1% bands around it. 

The Idea is to go long if the close crosses above the upper band ,exit long if the close crosses below the MA, and reverse the idea for short entries. 

We then take the Trend Direction from the PowerPivots Plus Add-on and filter all trades Long Trades when we are in a positive trend, short trades when we are in a selling trend.