Hi,
This formula can inspire you ...
Best regards
//Patterns Wave
_SECTION_BEGIN("Patterns Wave");
Change = Param("Wave Period",7,0,100,1);
SupResA = Param("Sup-Res A Period",20,0,100,1);
SupResB = Param("Sup-Res B Period",25,0,100,1);
Res1 = ParamColor("Resistance High", colorRed );
Res2 = ParamColor("Resistance Low", colorDarkRed );
Sup1 = ParamColor("Support High", colorDarkGreen );
Sup2 = ParamColor("Support Low", colorBrightGreen );
procedure PlotShapeAt( x, y, shape, shift )
{
PlotShapes( IIf( BarIndex() == x, shape, 0 ), colorWhite, 0, y,
shift );
}
bi = BarIndex();
sbi = SelectedValue( bi );
GraphXSpace = 2;
Plot( Zig( C, Change ), "", colorWhite, styleThick );
upshift = 15;
if( SelectedValue( PeakBars( C, Change ) < TroughBars( C, Change ) ) )
{
pt1 = PeakBars( C, Change, 1 ) == 0 ;
pt2 = TroughBars( C, Change, 1 ) == 0 ;
}
else
{
pt1 = TroughBars( C, Change, 1 ) == 0 ;
pt2 = PeakBars( C, Change, 1 ) == 0 ;
upshift = -upshift;
}
bpt1 = SelectedValue( ValueWhen( pt1, bi ) );
bpt2 = SelectedValue( ValueWhen( pt2, bi ) );
bpt3 = SelectedValue( ValueWhen( pt1, bi, 2 ) );
bpt4 = SelectedValue( ValueWhen( pt2, bi, 2 ) );
bpt5 = SelectedValue( ValueWhen( pt1, bi, 3 ) );
bpt6 = SelectedValue( ValueWhen( pt2, bi, 3 ) );
PlotShapeAt( bpt1, C, shapeDigit5, upshift );
PlotShapeAt( bpt2, C, shapeDigit4, -upshift );
PlotShapeAt( bpt3, C, shapeDigit3, upshift );
PlotShapeAt( bpt4, C, shapeDigit2, -upshift );
PlotShapeAt( bpt5, C, shapeDigit1, upshift );
Plot( C, "", colorWhite, styleThick + styleCandle);
_SECTION_END();
cvanhaesendonck a écrit :
>
>
> My pleasure:
> http://books.google.be/books?id=GZtlA991lNYC&pg=PT105&lpg=PT105&dq=demark+d-wave&source=bl&ots=GsizxkEprO&sig=W4nDwR5okjqzZXGvugIwH589EKU&hl=fr&ei=eW7DSvCkI83A-Qb04v3uCw&sa=X&oi=book_result&ct=result&resnum=6&ved=0CBwQ6AEwBQ#v=onepage&q=demark%20
>
> <http://books.google.be/books?id=GZtlA991lNYC&pg=PT105&lpg=PT105&dq=demark+d-wave&source=bl&ots=GsizxkEprO&sig=W4nDwR5okjqzZXGvugIwH589EKU&hl=fr&ei=eW7DSvCkI83A-Qb04v3uCw&sa=X&oi=book_result&ct=result&resnum=6&ved=0CBwQ6AEwBQ#v=onepage&q=demark%20>
>
> Basically, time and sequence constraints are added; something like this
> TD1 (that is EW1 D-wave) is completed when pre-TD1 conditions are
> filled; so here we go based on Perl interpretation on the link above:
>
> PreTD1= C==LLV(C,21);
> TD1= follows PreTD1 and C== HHV(C,13) ;
> TD2= follows TD1 and C==LLV(C,8);
> TD3= follows ...and.. C==HHV(C,21);
> TD4= follows ...and..C==LLV(C,13);
> TD5= follows ...and..C==HHV(C,34);
> TDA= follows ...and..C==LLV(C,13);
> TDB= follows ...and..C==HHV(C,8);
> TDC= follows ...and..C==LLV(C,21);
>
> I have to admit I have some difficulty to code at least a Plotshape
> thing pointing a Digit1, 2, 3 on the chart to show the d-waves but
> hopefully someone here will b e able to do this??
>
> Carl
>
> --- In amibroker@yahoogroups.com <mailto:amibroker%40yahoogroups.com>,
> Keith McCombs <kmcco...@...> wrote:
> >
> > Carl --
> > Can you summarize those rules and post them here?
> > -- Keith
> >
> > cvanhaesendonck wrote:
> > >
> > >
> > > Tom Demark has made a great job simplifying Elliott wave count and
> > > making it more objective thanks to a straight rule set. Those rules
> > > can be summarized in few lines. Has anyone ever developed AFL coding
> > > on this. AFL library contains some Demark codes (now public domain)
> > > but nothing on d-waves.
> > >
> > > Carl
> > >
> > >
> >
>
>
