Equis International Online Community - Ichimoku Kinko Hyo Expert

in Search

Equis International Online Com... » Product and Service Developmen... » Formula Assistance » Re: Expert using Patrick's Latch

Ichimoku Kinko Hyo Expert

Last post 10-30-2009, 19:16 by henry1224. 5 replies.


	Sort Posts: Previous Next

04-19-2005, 3:04 1314

henry1224
Joined on 10-29-2004
Glastonbury, CT
Posts 912

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

Post Points: 0
Report abuse

04-19-2005, 3:14 1315 in reply to 1314

henry1224
Joined on 10-29-2004
Glastonbury, CT
Posts 912

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)

Post Points: 0
Report abuse

07-31-2005, 23:32 5482 in reply to 1314

henry1224
Joined on 10-29-2004
Glastonbury, CT
Posts 912

Expert using Patrick's Latch

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

Post Points: 20
Report abuse

10-29-2009, 7:59 31031 in reply to 5482

tonya030
Joined on 04-29-2005
Posts 3

Re: Expert using Patrick's Latch

Have a question on the expert. After creating same, it seems its signals are based on a stock rising above the upper portion of the cloud. However, everything I have read on the ichimoku relates to signals being generated by the tenkan and kijun lines, but all the experts on the forum do not address these or use them as part of the expert.

I would like to know if I am missing something or have not done enough reading on the indicator.

Knowing my lack of expertise with MS I am probably wrong but if someone would steer me in the right direction would be most appreciative.

Thanks

Tonya030

Post Points: 20
Report abuse

10-30-2009, 19:10 31044 in reply to 31031

henry1224
Joined on 10-29-2004
Glastonbury, CT
Posts 912

Re: Expert using Patrick's Latch

Tenkan Kijun line 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,"!@#$#@!");
Buy:=If(TL>ST AND B>0,1,0);
Sell:=If(TL
Buy+Sell=1

Tenkan Kijun line 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,"!@#$#@!");
Buy:=If(TL>ST AND B>0,1,0);
Sell:=If(TL
Buy+Sell=-1

Tenkan kijun line 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,"!@#$#@!");
Buy:=If(TL>ST AND B>0,1,0);
Sell:=If(TL
Buy+Sell=0

Post Points: 5
Report abuse

10-30-2009, 19:16 31045 in reply to 31044

henry1224
Joined on 10-29-2004
Glastonbury, CT
Posts 912

Re: Expert using Patrick's Latch

The buy and sell lines should read

Buy:=If(TL>ST AND B>0,1,0);
Sell:=If(TL
it seems that the sell line of code doesn't post correctly

just reverse the buy line and make the result a negative 1

Post Points: 5
Report abuse