Metastock Explorer: Cup & Handle Pattern
Hi,
hat jemand Erfahrungen mit dem Programm zur Identifizierung von Cup & Handle Patterns, der Source Code ist in der Februar-Ausgabe 2006 von "Stocks & Commodities" erschienen (Autor Giorgos Siligardos) ?
Ich wünsche ein gesundes und finanziell erfolgreiches 2009.
J. Späth
Geschrieben von TudorJones
am
Hallo zusammen,
das Programm-Modul Iscup sollte in verschiedenen Zeitfenstern Cup & Handle-Formationen identifizieren können. Über den Explorer erhalte ich allerdings kein Ergebnis.
Zudem können müssen Werte einzeln gescannt werden; das Programm ist jedoch für die Untersuchung von großen Datenmengen gedacht.
Weiss jemand Rat ?
Danke
Iscup
{0}P1:=LastValue(HHV(Log(H),20));
HighBar:=LastValue(Cum(1)-BarsSince(Log(H)=P1));
cupperiod:=LastValue(BarsSince(Ref(Log(H),-
LastValue(Cum(1)-HighBar)-1)>P1)+1);
handleperiod:=LastValue(Cum(1)-highbar);
totalperiod:=LastValue(Max(1,cupperiod+handleperiod));
p0:=LastValue(LLV(Log(L),totalperiod));
b0:=LastValue(Highbar-cupperiod+1);
b1:=LastValue(Highbar-Int(4*cupperiod/5));
b2:=LastValue(Highbar-Int(3*cupperiod/5));
b3:=LastValue(Highbar-Int(2*cupperiod/5));
b4:=LastValue(Highbar-Int(cupperiod/5));
boxheight:=LastValue(Abs(P1-P0)/5);
L1:=P0+boxheight;
L2:=P0+2*boxheight;
L3:=P0+3*boxheight;
L4:=P0+4*boxheight;
iscup:=
{1}cupperiod>30 AND
{2}((Cum(If( Cum(1)>b1 AND Cum(1)<b4, Log(C)>=L3,0))+Cum(If( Cum(1)>b2 AND Cum(1)<b3, Log(C)>=L2,0)))=0)
AND
{3}(((Cum(If(Cum(1)>b1 AND Cum(1)<b2, Log(L)<(L1-boxheight/3),0))>0)
AND
(Cum(If(Cum(1)>b3 AND Cum(1)<b4, Log(L)<(L1-boxheight/3),0))>0)) OR
((Cum(If(Cum(1)>b0 AND Cum(1)<b1, Log(L)<(L2-boxheight/3),0))>0) AND
(Cum(If(Cum(1)>b4 AND Cum(1)<Highbar, Log(L)<(L2-boxheight/3),0))>0))) AND
{4}LLV(Log(C),handleperiod+1)>L2;
iscup;
Iscup-Plot
Iscup:=Fml( “IsCup”) ;
P0:= FmlVar(“IsCup”,”P0”);
P1:=FmlVar(“IsCup”,”P1”);
B0:=FmlVar(“IsCup”,”B0”);
Bcenter:=(FmlVar(“IsCup”,”B2”)+FmlVar(“IsCup”,”B3”))/2;
Handleperiod:=FmlVar(“IsCup”,”Handleperiod”);
{plot}
plotarea:=(1+BarsSince(Cum(1)>=b0))*Ref(1,LastValue(handleperiod-1));
halfper:=B0-Bcenter;
a:=(Exp(P1)-Exp(P0))/Power(If(halfper=0,1,halfper),6);
If(LastValue(iscup),plotarea,BarsSince(LastValue(iscup)))*Min(Exp(P1),(a*(Power(Cum(1)-Bcenter,6))+ Exp(P0)*0.99));
IsCup
Fml( “IsCup”) =1
CupPer
Cup Period
FmlVar(“IsCup”,”CUPPERIOD”)
HandlePer
CupPer
Handle Period
FmlVar(“IsCup”,”HANDLEPERIOD”)
CupHeig%
Cup Height % (from Bottom to Top)
( Exp(FmlVar(“IsCup”,”P1”)) /Exp(FmlVar(“IsCup”,”P0”) ) –1 )*100
@ TudorJones [#2]
Falls die Formel korrekt ist, musst du nur entweder die IsCup Funktion in Spalte A einer Exploration einstellen und eventuell den Filter auf Cola=1 setzen oder aber Fml( “IsCup”) =1 in Spalte A einer Exploration einsetzen.
Dann kannst du das das ganze Universum nach der Formation untersuchen.