Ehler's Fama,Mama Expert
If you have downloaded the Ehler's Fama,Mama download from the Equis site you can then use this expert 
Symbol tab 

Long 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
Buy:=Cross(Mama,Fama); 
Sell:=Cross(Fama,Mama); 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)<=BarsSince(i OR sell)=0; 
X=0 AND Ref(X,-1)>0 

Short 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
Buy:=Cross(Mama,Fama); 
Sell:=Cross(Fama,Mama); 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)>=BarsSince(i OR sell)=0; 
X=0 AND Ref(X,-1)>0 

Highlights tab 

long 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
Buy:=Cross(Mama,Fama); 
Sell:=Cross(Fama,Mama); 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)<=BarsSince(i OR sell)=0; 
X=0 

Short 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
Buy:=Cross(Mama,Fama); 
Sell:=Cross(Fama,Mama); 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)>=BarsSince(i OR sell)=0; 
X=0 
*****Ehler's Fama,Mama w Trend Direction Expert*****
You will need the PowerPivots Plus Add-on for this expert 

Highlights 

Long 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long entry 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 


Short entry 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

Fama:= ExtFml("MAMA.FAMA", (H+L)/2, 0.5, 0.05); 
Mama:= ExtFml("MAMA.MAMA", (H+L)/2, 0.5, 0.05); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(Mama,Fama) and TD=1; 
SE:=Cross(Fama,Mama) and TD=-1; 
LX:=Cross(Fama,Mama) and TD>=0; 
SX:=Cross(Mama,Fama) and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0