Ichimoku Kinko Hyo Expert - MetaStock.com Forum

Welcome Guest! To enable all features please Login or Register.

Search

Notification

Error

Ichimoku Kinko Hyo Expert - Ichimoku Kinko Hyo Expert

Options

Go to last post

Go to first unread

Previous Topic Next Topic

henry1224		#1 Posted : Tuesday, April 19, 2005 3:04:32 AM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		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


User Profile View All Posts by User View Thanks


	Wanna join the discussion?! Login to your Discussions forum account or Register a new forum account.

henry1224		#2 Posted : Tuesday, April 19, 2005 3:14:42 AM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		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)


User Profile View All Posts by User View Thanks

henry1224		#3 Posted : Sunday, July 31, 2005 11:32:12 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		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


User Profile View All Posts by User View Thanks

tonya030		#4 Posted : Thursday, October 29, 2009 7:59:32 AM(UTC)
Rank: Newbie Groups: Registered, Registered Users Joined: 4/28/2005(UTC) Posts: 3		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


User Profile View All Posts by User View Thanks

henry1224		#5 Posted : Friday, October 30, 2009 7:10:53 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		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<ST AND B<0,-1,0); 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<ST AND B<0,-1,0); 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<ST AND B<0,-1,0); Buy+Sell=0


User Profile View All Posts by User View Thanks

henry1224		#6 Posted : Friday, October 30, 2009 7:16:27 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		The buy and sell lines should read Buy:=If(TL>ST AND B>0,1,0); Sell:=If(TL


User Profile View All Posts by User View Thanks

Catano		#7 Posted : Thursday, December 8, 2011 7:37:21 PM(UTC)
Rank: Newbie Groups: Registered, Registered Users Joined: 10/25/2005(UTC) Posts: 7		Hello, i have installed the forum dll. But the Experts doesn´t run. Can anyone help me? Best regards Catano 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


User Profile View All Posts by User View Thanks

henry1224		#8 Posted : Friday, December 9, 2011 7:22:43 AM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		Catano, the formula calls for the PowerPivots Plus add-on If you want to use the Forum dll then you have to change the B variable you may also have to rename LE,LX,SE,SX Also the Sell variable is not complete in your code Sell:=If( TL < ST AND B < 0,-1,0); Look under the post using Patrick's Latch


User Profile View All Posts by User View Thanks

Catano		#9 Posted : Monday, December 12, 2011 6:22:06 PM(UTC)
Rank: Newbie Groups: Registered, Registered Users Joined: 10/25/2005(UTC) Posts: 7		Hello henry1224, many thanks for the answer. I have installed the Pivot Plus Tool. I think the Tenkan Kijun line Long; Tenkan Kijun line shor and Tenkan kijun line Out with Patrick´s Latch is the same as Hightlight long, short and out with the Pivot Tool. Is that correct? Best regards Catano


User Profile View All Posts by User View Thanks

Catano		#10 Posted : Monday, December 12, 2011 6:29:22 PM(UTC)
Rank: Newbie Groups: Registered, Registered Users Joined: 10/25/2005(UTC) Posts: 7		hmm, i see it is not the same. Can you tell my where is the mistake? 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 < ST AND B < 0,-1,0); Buy+Sell=0 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 < ST AND B < 0,-1,0); Buy+Sell=-1 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 < ST AND B < 0,-1,0); Buy+Sell=1 When i activate this in the expert, every candle has an symbol. That is not correct, or? Best regard Catano


User Profile View All Posts by User View Thanks

henry1224		#11 Posted : Monday, December 12, 2011 7:13:00 PM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT Was thanked: 2 time(s) in 2 post(s)		The code you posted is for the highlight section. if you want the individual symbol 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=1 and Ref(Buy+Sell,-1)<>1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=-1 and Ref(Buy+Sell,-1)<>-1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>1 and Ref(Buy+Sell,-1)=1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>-1 and Ref(Buy+Sell,-1)=-1


User Profile View All Posts by User View Thanks

Catano		#12 Posted : Tuesday, December 13, 2011 8:53:27 AM(UTC)
Rank: Newbie Groups: Registered, Registered Users Joined: 10/25/2005(UTC) Posts: 7		Hello henry1224, great, now it run´s. Can you tell me, how i become the cloud beyound the Closeprice? Need i then the VST Pro from www.Metastocktools.com? Best regards Catano


User Profile View All Posts by User View Thanks

writetoevv		#13 Posted : Thursday, January 7, 2016 8:28:55 PM(UTC)
Rank: Newbie Groups: Registered Users, Subscribers Joined: 10/30/2015(UTC) Posts: 7		Hi henry1224, Thank you for the Expert of Ichimoku. I Have been searching for Ichimoku Kinko Hyo Expert & Explorations. Could you help to update the expert for below conditions. 1. Close open positions(long) based on Tenken Sen crossover Kijun sen downwards. This helps to exit from Long positions. 2. Close Short positions based on Tenken Sen crossover with Kijun sen upwards. This helps to exit short positions. Also, can we mark strong, neutral & weak on price chart for below rules (of bullish & bearish signals) except Point 1. 1) The Kumo Breakout signal occurs when the price leaves or crosses the Kumo (Cloud). 2) Tenkan Sen / Kijun Sen Cross signal: it occurs when the Tenkan Sen (Turning line) crosses the Kijun Sen (Standard line) and vice versa. 3) The Kijun Sen Cross signal: It occurs when the price crosses the Kijun Sen (Standard line) and vice versa. 4) The Senkou Span Cross signal: It occurs when the Senkou Span A (1st leading line) crosses the Senkou Span B (2nd leading line) and vice versa. 5) The Chikou Span Cross signal: It occurs when the Chikou Span (Lagging line) rises above or falls below the price and vice versa. Thanks in advance. Originally Posted by: henry1224 The code you posted is for the highlight section. if you want the individual symbol 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=1 and Ref(Buy+Sell,-1)<>1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=-1 and Ref(Buy+Sell,-1)<>-1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>1 and Ref(Buy+Sell,-1)=1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>-1 and Ref(Buy+Sell,-1)=-1


User Profile View All Posts by User View Thanks

mmalmusa		#14 Posted : Sunday, February 21, 2016 11:59:29 AM(UTC)
Rank: Newbie Groups: Registered Users, Subscribers, Unverified Users Joined: 2/21/2016(UTC) Posts: 1		Hello everyone If possible, I have some questions 1) All the equations where there is a problem in the Yellow line will be made that clear pictures 2) There are equations in large operational, whichever is by a large margin 3) Is my business is located in the pictures are not true either 4) Why did Noda Filter 5) Why all the equations like each other, except for the last line 6) I hope you, if one used the Navigator, which was working with him teach me where I have a problem In waiting for a reply on tenterhooks Finally, thank you for a lovely Thanksgiving http://www13.0zz0.com/2016/02/21/14/979432296.jpg http://www13.0zz0.com/2016/02/21/14/260561240.jpg http://www13.0zz0.com/2016/02/21/14/110703264.jpg http://www4.0zz0.com/2016/02/21/14/632059211.jpg http://www4.0zz0.com/2016/02/21/14/113476397.jpg http://www4.0zz0.com/2016/02/21/14/125726305.jpg http://www4.0zz0.com/2016/02/21/14/393503599.jpg http://www4.0zz0.com/2016/02/21/14/192072135.jpg


User Profile View All Posts by User View Thanks

TimW		#15 Posted : Friday, March 18, 2016 3:06:25 PM(UTC)
Rank: Member Groups: Registered, Registered Users Joined: 6/6/2011(UTC) Posts: 27 Thanks: 2 times		Forgive a newbie question on Ichimoku... Two articles (including Stockcharts.com) that I've read on Ichimoku show the cloud plotted ahead of the last bar. I gather that this is an important feature of Ichimoku, intended to 'predict the future'. But when I add the Ichimoku indicator to my charts, the cloud ends with the last bar. Can anyone explain? Thanks, Tim


User Profile View All Posts by User View Thanks

mstt		#16 Posted : Saturday, March 19, 2016 2:37:14 AM(UTC)
Rank: Advanced Member Groups: Registered, Registered Users, Subscribers Joined: 7/25/2005(UTC) Posts: 1,042 Was thanked: 57 time(s) in 54 post(s)		Hi Tim MetaStock Support recently answered a related question, and the answer was that indicators (and experts) cannot plot beyond the last data bar. This has always been the situation with MetaStock as far as I'm aware, and although I hope I'm wrong this is unlikely to change in the near future. Roy Edited by user Saturday, March 19, 2016 2:37:49 AM(UTC) \| Reason: Not specified

1 user thanked mstt for this useful post.		TimW on 3/23/2016(UTC)
User Profile View All Posts by User View Thanks

mutkan		#17 Posted : Sunday, July 28, 2019 2:11:56 PM(UTC)
Rank: Newbie Groups: Registered Users, Subscribers, Unverified Users Joined: 12/14/2015(UTC) Posts: 6 Thanks: 1 times		Hi All Can anyone explain the logic behind B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); Do you know how to port it to a C# language ? Originally Posted by: writetoevv Hi henry1224, Thank you for the Expert of Ichimoku. I Have been searching for Ichimoku Kinko Hyo Expert & Explorations. Could you help to update the expert for below conditions. 1. Close open positions(long) based on Tenken Sen crossover Kijun sen downwards. This helps to exit from Long positions. 2. Close Short positions based on Tenken Sen crossover with Kijun sen upwards. This helps to exit short positions. Also, can we mark strong, neutral & weak on price chart for below rules (of bullish & bearish signals) except Point 1. 1) The Kumo Breakout signal occurs when the price leaves or crosses the Kumo (Cloud). 2) Tenkan Sen / Kijun Sen Cross signal: it occurs when the Tenkan Sen (Turning line) crosses the Kijun Sen (Standard line) and vice versa. 3) The Kijun Sen Cross signal: It occurs when the price crosses the Kijun Sen (Standard line) and vice versa. 4) The Senkou Span Cross signal: It occurs when the Senkou Span A (1st leading line) crosses the Senkou Span B (2nd leading line) and vice versa. 5) The Chikou Span Cross signal: It occurs when the Chikou Span (Lagging line) rises above or falls below the price and vice versa. Thanks in advance. Originally Posted by: henry1224 The code you posted is for the highlight section. if you want the individual symbol 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=1 and Ref(Buy+Sell,-1)<>1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=-1 and Ref(Buy+Sell,-1)<>-1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>1 and Ref(Buy+Sell,-1)=1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>-1 and Ref(Buy+Sell,-1)=-1


User Profile View All Posts by User View Thanks

mutkan		#18 Posted : Sunday, July 28, 2019 2:14:16 PM(UTC)
Rank: Newbie Groups: Registered Users, Subscribers, Unverified Users Joined: 12/14/2015(UTC) Posts: 6 Thanks: 1 times		Hi Henry Do you know what the external function is doing ? B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); What is the logic behind it ? How can I port it to C# language ? Originally Posted by: henry1224 The code you posted is for the highlight section. if you want the individual symbol 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=1 and Ref(Buy+Sell,-1)<>1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell=-1 and Ref(Buy+Sell,-1)<>-1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>1 and Ref(Buy+Sell,-1)=1 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,"!@#$#@!"); Buy:=If(TL>ST AND B>0,1,0); Sell:=If( TL < ST AND B < 0,-1,0); Buy+Sell<>-1 and Ref(Buy+Sell,-1)=-1


User Profile View All Posts by User View Thanks

Users browsing this topic
Guest (Hidden)

Similar Topics

Ichimoku Kinko Hyo Expert - Tenkan Sen / Kijun Sen Cross / Kumo Breakout Explorer (Formula Assistance)
by Dax 3/26/2016 3:22:11 PM(UTC)

Forum Jump

You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET