High/Low of the bar previous to the signal bar

#12
Dear friend c.trader,
i can give it a try :happy:
help to add buy sell signal arrows in this afl
thise are 3 ma crossing with adx 14
1)LWMA,price field- close, 21periods,skye blue colour
2)EMA,price field-LWMA(21),3periods,yellow colour,style dasshed
3)EMA ,price field-close,periods-50,blue colour ,style thick
4)adx 14
buy=1)ema cross lwma >ema(50) with adx bullish cross(+DI cross -DI) with adx above 20
sell=1)lwma cross ema3<ema(50) with adx bearish cross(-DI cross +DI) with adx above 20






2)_SECTION_BEGIN("lwma");
function LWMA( P, per )
{
s=0;
pa=0;

for( i = 0; i < per; i++ )
{
s=s+(Ref(P,-i)*(per-i));
pa=pa+(per-i);
}
return (s/pa);
}

P = ParamField("Price field");
Periods = Param("Periods", 21 );

Plot(LWMA( P, Periods ), "LWMA("+Periods +")", ParamColor( "LWMA Color", colorCycle ), ParamStyle("LWMA Style") );
_SECTION_END();

3)_SECTION_BEGIN("EMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 3 );
Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
_SECTION_BEGIN("EMA1");
P = ParamField("Price field",-1);
Periods = Param("Periods",50, 2, 300, 1, 10 );
Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
_SECTION_BEGIN("ADX");
P = ParamField("Price field",-1);
range = Param("Periods", 14, 2, 200, 1 );
Plot( ADX(range), _DEFAULT_NAME(), ParamColor( "ADX color", colorBlue ), ParamStyle("ADX style", styleThick ) );
Plot( PDI(range), "+DI", ParamColor( "+DI color", colorGreen ), ParamStyle("+DI style") );
Plot( MDI(range), "-DI", ParamColor( "-DI color", colorRed ), ParamStyle("-DI style") );
_SECTION_END();
_SECTION_BEGIN("horizontal lines");
Middle=Param("Middle", 24, 25);
Plot(Middle,"",ParamColor( "ColorUpper", colorBlack ),styleLine);
_SECTION_END();
 

Attachments

Last edited:

Romeo1998

Well-Known Member
#13
Dear friend c.trader,
this code will show a green arrow on chart for the required buy condition and a red arrow for the required sell condition :happy:
here is the code :happy:
Code:
_SECTION_BEGIN( "Price1" );
SetChartOptions( 0, chartShowArrows | chartShowDates );
_N( Title = StrFormat( "{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );
Plot( C, "Close", ParamColor( "Color", colorDefault ), styleNoTitle | ParamStyle( "Style" ) | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN( "lwma" );
function LWMA( P, per )
{
    s = 0;
    pa = 0;

    for( i = 0; i < per; i++ )
    {
        s = s + ( Ref( P, -i ) * ( per - i ) );
        pa = pa + ( per - i );
    }

    return ( s / pa );
}
_SECTION_END();

_SECTION_BEGIN( "LWMA" );
P = ParamField( "Price field" );
Periods = Param( "Periods", 21 );
a = LWMA( P, Periods );
Plot( LWMA( P, Periods ), "LWMA(" + Periods + ")", ParamColor( "LWMA Color", colorSkyblue ), ParamStyle( "LWMA Style" ) );
_SECTION_END();

_SECTION_BEGIN( "ema" );
P = ParamField( "Price field", 8 );
Periods = Param( "Periods", 3 );
b = ( EMA( P, periods ) );
Plot( EMA( p, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorYellow ), ParamStyle( "Style", styleDashed ) );
_SECTION_END();

_SECTION_BEGIN( "ema1" );
P = ParamField( "Price field" );
Periods = Param( "Periods", 50 );
d = ( EMA( P, periods ) );
Plot( EMA( p, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorBlue ), ParamStyle( "Style" ) );
_SECTION_END();

cond1 = Cross( b, a ) AND b > d AND PDI( 14 ) > MDI( 14 ) AND ADX( 14 ) > 20;
cond2 = Cross( a, b ) AND a < d AND PDI( 14 )<MDI( 14 ) AND ADX( 14 )>20;

for( i = 0; i < BarCount; i++ )
{
    if( cond1[i] )
        PlotShapes( IIf( cond1, shapeUpArrow, shapeNone ), colorGreen, 0, L, -12 );

    if( cond2[i] )
        PlotShapes( IIf( cond2, shapedownArrow, shapeNone ), colorred, 0, H, -12 );
}
:happy:
 
Last edited:
#14
Dear friend c.trader,
this code will show a green arrow on chart for the required buy condition and a red arrow for the required sell condition :happy:
here is the code :happy:
Code:
_SECTION_BEGIN( "Price1" );
SetChartOptions( 0, chartShowArrows | chartShowDates );
_N( Title = StrFormat( "{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );
Plot( C, "Close", ParamColor( "Color", colorDefault ), styleNoTitle | ParamStyle( "Style" ) | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN( "lwma" );
function LWMA( P, per )
{
    s = 0;
    pa = 0;

    for( i = 0; i < per; i++ )
    {
        s = s + ( Ref( P, -i ) * ( per - i ) );
        pa = pa + ( per - i );
    }

    return ( s / pa );
}
_SECTION_END();

_SECTION_BEGIN( "LWMA" );
P = ParamField( "Price field" );
Periods = Param( "Periods", 21 );
a = LWMA( P, Periods );
Plot( LWMA( P, Periods ), "LWMA(" + Periods + ")", ParamColor( "LWMA Color", colorSkyblue ), ParamStyle( "LWMA Style" ) );
_SECTION_END();

_SECTION_BEGIN( "ema" );
P = ParamField( "Price field", 8 );
Periods = Param( "Periods", 3 );
b = ( EMA( P, periods ) );
Plot( EMA( p, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorYellow ), ParamStyle( "Style", styleDashed ) );
_SECTION_END();

_SECTION_BEGIN( "ema1" );
P = ParamField( "Price field" );
Periods = Param( "Periods", 50 );
d = ( EMA( P, periods ) );
Plot( EMA( p, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorBlue ), ParamStyle( "Style" ) );
_SECTION_END();

cond1 = Cross( b, a ) AND b > d AND PDI( 14 ) > MDI( 14 ) AND ADX( 14 ) > 20;
cond2 = Cross( a, b ) AND a < d AND PDI( 14 )<MDI( 14 ) AND ADX( 14 )>20;

for( i = 0; i < BarCount; i++ )
{
    if( cond1[i] )
        PlotShapes( IIf( cond1, shapeUpArrow, shapeNone ), colorGreen, 0, L, -12 );

    if( cond2[i] )
        PlotShapes( IIf( cond2, shapedownArrow, shapeNone ), colorred, 0, H, -12 );
}
:happy:
thanksssssssssssssssssssssssssss
broooooooooooooooooooo
u really help me for this afl