Did you do a search in the forum?
Here is an expert using the Forum Dll
Ichimoku Kinko Hyo 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("ForumDll.Latch",LE,LX,SE,SX);
B = 1
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("ForumDll.Latch",LE,LX,SE,SX);
B = -1
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("ForumDll.Latch",LE,LX,SE,SX);
B = 0
Symbols tab
ENTER 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("ForumDll.Latch",LE,LX,SE,SX);
B = 1 AND Ref(B,-1) <> 1
ENTER 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("ForumDll.Latch",LE,LX,SE,SX);
B = -1 AND Ref(B,-1) <> -1
EXIT 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("ForumDll.Latch",LE,LX,SE,SX);
B = 0 AND Ref(B,-1) = 1
EXIT 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("ForumDll.Latch",LE,LX,SE,SX);
B = 0 AND Ref(B,-1) = -1