HI!
Please the following afl-
_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( );
Thanks,
Shahariar
--- In amibroker@xxxxxxxxx ps.com, "ryuvaliant" <ryuvaliant@ ...> wrote:
>
> please help me
> does anyone have an afl for elliot wave?
> not like elliot wave oscilator or ell wave like zigzag but, more.
> like numbering and calculation like PTI, like the one i saw on
advance
> get
>
> anyone?
>