PVI Ratio Cross 1 Expert
You Need to have the PowerPivots Plus Add-on to use this Expert 

Highlights 

long 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

A:=Mov(PVI(),5,S)/Ref(Mov(PVI(),15,S),-5); 
LE:=Cross(A,1) and Mov(C,100,S)<C; 
LX:=Cross(1,A) and Mov(C,100,S)<C; 
SE:=Cross(1,A) and Mov(C,100,S)>C; 
SX:=Cross(A,1) and Mov(C,100,S)>C; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0