Ichimoku Kinko Hyo Expert
This expert uses the default values from the standard indicators. 

You will need the PowerPivots plus Add-on to use this Expert 

Highlights 

long 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

out 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbol Tab 

Long entry 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short entry 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

ST:=(HHV(H,26)+LLV(L,26))/2; 
TL:=(HHV(H,9)+LLV(L,9))/2; 
A1:=Ref((ST+TL)/2,-25); 
A2:=Ref((HHV(H,52)+LLV(L,52))/2,-25); 
LE:= If(A1>=A2,Cross(C,A1),Cross(C,A2)); 
LX:= If(A1>=A2,Cross(A1,C),Cross(A2,C)); 
SE:= If(A1>=A2,Cross(A2,C),Cross(A1,C)); 
SX:= If(A1>=A2,Cross(C,A2),Cross(C,A1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Heikin-Ashi Expert *****
Highlights 

Long 

HaClose:=(O+H+L+C)/4; 
HaOpen:=ValueWhen(2,1,(O+C)/2); 
HaHigh:=Max(H,HaOpen); 
HaLow:=Min(L,HaOpen); 
HAOpen<HaClose 

Short 

HaClose:=(O+H+L+C)/4; 
HaOpen:=ValueWhen(2,1,(O+C)/2); 
HaHigh:=Max(H,HaOpen); 
HaLow:=Min(L,HaOpen); 
HAOpen>HaClose 

Symbols 

Long Entry 

HaClose:=(O+H+L+C)/4; 
HaOpen:=ValueWhen(2,1,(O+C)/2); 
HaHigh:=Max(H,HaOpen); 
HaLow:=Min(L,HaOpen); 
HAOpen<HaClose and Ref(HAOpen,-1)>Ref(HAClose,-1) 

Short Entry 

HaClose:=(O+H+L+C)/4; 
HaOpen:=ValueWhen(2,1,(O+C)/2); 
HaHigh:=Max(H,HaOpen); 
HaLow:=Min(L,HaOpen); 
HAOpen>HaClose and Ref(HAOpen,-1)<Ref(HAClose,-1)