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

Notification

Icon
Error

Options
Go to last post Go to first unread
henry1224  
#1 Posted : Tuesday, April 19, 2005 3:04:32 AM(UTC)
henry1224

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
henry1224  
#2 Posted : Tuesday, April 19, 2005 3:14:42 AM(UTC)
henry1224

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)
henry1224  
#3 Posted : Sunday, July 31, 2005 11:32:12 PM(UTC)
henry1224

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
tonya030  
#4 Posted : Thursday, October 29, 2009 7:59:32 AM(UTC)
tonya030

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

henry1224  
#5 Posted : Friday, October 30, 2009 7:10:53 PM(UTC)
henry1224

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
henry1224  
#6 Posted : Friday, October 30, 2009 7:16:27 PM(UTC)
henry1224

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
Catano  
#7 Posted : Thursday, December 8, 2011 7:37:21 PM(UTC)
Catano

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
henry1224  
#8 Posted : Friday, December 9, 2011 7:22:43 AM(UTC)
henry1224

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
Catano  
#9 Posted : Monday, December 12, 2011 6:22:06 PM(UTC)
Catano

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
Catano  
#10 Posted : Monday, December 12, 2011 6:29:22 PM(UTC)
Catano

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
henry1224  
#11 Posted : Monday, December 12, 2011 7:13:00 PM(UTC)
henry1224

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
Catano  
#12 Posted : Tuesday, December 13, 2011 8:53:27 AM(UTC)
Catano

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
writetoevv  
#13 Posted : Thursday, January 7, 2016 8:28:55 PM(UTC)
writetoevv

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 Go to Quoted Post
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
mmalmusa  
#14 Posted : Sunday, February 21, 2016 11:59:29 AM(UTC)
mmalmusa

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
TimW  
#15 Posted : Friday, March 18, 2016 3:06:25 PM(UTC)
TimW

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
mstt  
#16 Posted : Saturday, March 19, 2016 2:37:14 AM(UTC)
mstt

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

thanks 1 user thanked mstt for this useful post.
TimW on 3/23/2016(UTC)
mutkan  
#17 Posted : Sunday, July 28, 2019 2:11:56 PM(UTC)
mutkan

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 Go to Quoted Post

 

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 Go to Quoted Post
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
mutkan  
#18 Posted : Sunday, July 28, 2019 2:14:16 PM(UTC)
mutkan

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 Go to Quoted Post
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

Users browsing this topic
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.