Please find the formula below
Best regards
|_SECTION_BEGIN( "Fibonacci" );
Offset = 5; //use two sheets: one with 5 and another with 7, or maybe
other offset value
Avgmov = Offset * MA( abs( ROC( *C*, 1 ) ), 20 );
//per = LastValue( Avgmov );//original value
per = Param( "Pivot %", 0.3, 0.01, 6, 0.01 );
x = Cum( 1 );
Range = 0.01;
PS = TroughBars( *L*, per, 1 ) == 0;
xa = LastValue( ValueWhen( PS, x, 1 ) );//x from last trough
Ya = LastValue( ValueWhen( PS, *L*, 1 ) );//y (Low) last trough
PR = PeakBars( *H*, per, 1 ) == 0;
xb = LastValue( ValueWhen( PR, x, 1 ) );//x from last peak
Yb = LastValue( ValueWhen( PR, *H*, 1 ) );//y (High) last peak
Trough_ReTest = abs( ( *L* / ya ) - 1 ) < Range;
Peak_ReTest = abs( ( *H* / yb ) - 1 ) < Range;
Trough_Cross = Cross( ya, *C* );
Peak_Cross = Cross( *C*, yb );
//UP = upSwing DN = downSwing
UP = xb > xa;
//upSwing
DN = xa > xb;
//DownSwing
RT23_6 = IIf( UP, yb - ( yb - ya ) * 0.236, IIf( DN, ya + ( yb - ya ) *
0.236, -1e10 ) );
RT38_2 = IIf( UP, yb - ( yb - ya ) * 0.382, IIf( DN, ya + ( yb - ya ) *
0.382, -1e10 ) );
RT50_0 = IIf( UP, yb - ( yb - ya ) * 0.500, IIf( DN, ya + ( yb - ya ) *
0.500, -1e10 ) );
RT61_8 = IIf( UP, yb - ( yb - ya ) * 0.618, IIf( DN, ya + ( yb - ya ) *
0.618, -1e10 ) );
RT78_6 = IIf( UP, yb - ( yb - ya ) * 0.786, IIf( DN, ya + ( yb - ya ) *
0.786, -1e10 ) );
RT127_2 = IIf( UP, yb - ( yb - ya ) * 1.272, IIf( DN, ya + ( yb - ya ) *
1.272, -1e10 ) );
RT161_8 = IIf( UP, yb - ( yb - ya ) * 1.618, IIf( DN, ya + ( yb - ya ) *
1.618, -1e10 ) );
RT261_8 = IIf( UP, yb - ( yb - ya ) * 2.618, IIf( DN, ya + ( yb - ya ) *
2.618, -1e10 ) );
RT = IIf( UP, -100 * ( yb - *L* ) / ( yb - ya ), 100 * ( *H* - ya ) / (
yb - ya ) );//Retracement_Value
InZone = *C*<yb & *C*>ya;
Plot( IIf( x > xa, ya, -1e10 ), "", *colorBrown*, 1 + 8 );//"Bottom"
Plot( IIf( x > xb, yb, -1e10 ), "", *colorBrown*, 1 + 8 );//"Top"
xab = IIf( xb > xa, xb, xa );
//Retracements
Plot( IIf( x >= xab + 1, RT23_6, -1e10 ), "", *colorWhite*, 1 );//"23,6%
Retr."
Plot( IIf( x >= xab + 1, RT38_2, -1e10 ), "", *colorGreen*, 1 );//"38,2%
Retr."
Plot( IIf( x >= xab + 1, RT50_0, -1e10 ), "", *colorYellow*, 1
);//"50,0% Retr."
Plot( IIf( x >= xab + 1, RT61_8, -1e10 ), "", *colorRed*, 1 + 8
);//"61,8% Retr."
Plot( IIf( x >= xab + 1, RT78_6, -1e10 ), "", *colorBlue*, 1 + 8
);//"78,6% Retr."
Plot( IIf( x >= xab + 1, RT127_2, -1e10 ), "", *colorSkyblue*, 1 +
*styleNoRescale* );//"127,2% Retr."
Plot( IIf( x >= xab + 1, RT161_8, -1e10 ), "", *colorLavender*, 1 +
*styleNoRescale* );//"161,8% Retr."
Plot( IIf( x >= xab + 1, RT261_8, -1e10 ), "", *colorDarkGreen*, 1 +
*styleNoRescale* );//"261,8% Retr."
_SECTION_END();
|
Le 30/07/2010 19:01, prasantaroy36 a écrit :
Hi reinsley,
Ok thanks for your quick respone. Pl, spare your time for post it. If
some modification required i will let you know.
Thanks
--- In [email protected] <mailto:amibroker%40yahoogroups.com>,
reinsley <reins...@...> wrote:
>
>
> I have one based on Zig param....
>
> Best regards
>
> Le 30/07/2010 11:03, prasantaroy36 a écrit :
> >
> > Hi,
> >
> > I want automatic plot FIb retarce in which high to low select
> > manually. So, Pl, pl, give afl in this regard.
> >
> > Thanks
> >
> >
>
