Req-Help : I need help to modify this AFL with Scanner!!

L

LorDOGlenn

New Member
#1
#1
_SECTION_BEGIN("BackGroundColorSetting");
SetChartBkGradientFill( ParamColor("BackGroundTop", colorBlack),

ParamColor("BackGroundBottom", colorBlack),ParamColor("TitleBlock",colorBlack ));
_SECTION_END();


_SECTION_BEGIN("HIGHER HIGH LOWER LOW");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - HIGHER HIGH LOWER LOW - {{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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

Q = Param( "% Change", 2, 0.1, 10, 0.1 );
Z = Zig( C , q ) ;
HH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( z, q, 1 ) > Peak( Z, q, 2 ) ) );
LH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( Z, q, 1 ) < Peak( Z, q, 2 ) ) );
HL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) > Trough( Z, q, 2 ) ) );
LL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) < Trough( Z, q, 2 ) ) );
GraphXSpace = 5;
dist = 0.5 * ATR( 20 );

for ( i = 0; i < BarCount; i++ )
{
if ( HH )
PlotText( "HH", i, H[ i ] + dist, colorRed );

if ( LH )
PlotText( "LH", i, H[ i ] + dist, colorRed );

if ( HL )
PlotText( "HL", i, L[ i ] - dist, colorBrightGreen );

if ( LL )
PlotText( "LL", i, L[ i ] - dist, colorBrightGreen );

}



Please help me to modify this AFL with scanner. Thanks
 
A

asnavale

Well-Known Member
#2
#2
LorDOGlenn said:
_SECTION_BEGIN("BackGroundColorSetting");
SetChartBkGradientFill( ParamColor("BackGroundTop", colorBlack),

ParamColor("BackGroundBottom", colorBlack),ParamColor("TitleBlock",colorBlack ));
_SECTION_END();


_SECTION_BEGIN("HIGHER HIGH LOWER LOW");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - HIGHER HIGH LOWER LOW - {{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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

Q = Param( "% Change", 2, 0.1, 10, 0.1 );
Z = Zig( C , q ) ;
HH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( z, q, 1 ) > Peak( Z, q, 2 ) ) );
LH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( Z, q, 1 ) < Peak( Z, q, 2 ) ) );
HL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) > Trough( Z, q, 2 ) ) );
LL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) < Trough( Z, q, 2 ) ) );
GraphXSpace = 5;
dist = 0.5 * ATR( 20 );

for ( i = 0; i < BarCount; i++ )
{
if ( HH )
PlotText( "HH", i, H[ i ] + dist, colorRed );

if ( LH )
PlotText( "LH", i, H[ i ] + dist, colorRed );

if ( HL )
PlotText( "HL", i, L[ i ] - dist, colorBrightGreen );

if ( LL )
PlotText( "LL", i, L[ i ] - dist, colorBrightGreen );

}



Please help me to modify this AFL with scanner. Thanks
Click to expand...


This AFL is for plotting and marking peaks and troughs. Not for scanning.

-Anant
 
RudalR1

RudalR1

New Member
#4
#4
Mr. Anant,

Is there other way for me to find out which stocks are in the position on Lower Low n Higher low to make easy n fast to look?

Thanks
 
Last edited:
A

asnavale

Well-Known Member
#5
#5
RudalR1 said:
Mr. Anant,

Is there other way for me to find out which stocks are in the position on Lower Low n Higher low to make easy n fast to look?

Thanks
Click to expand...
Hi Rudal,

You can compare the current price with most recent HH or LL. Add the comparison code to the Above AFL posted by Glenn.

-Anant
 
P

pkgmtnl

Well-Known Member
#6
#6
LorDOGlenn said:
_SECTION_BEGIN("BackGroundColorSetting");
SetChartBkGradientFill( ParamColor("BackGroundTop", colorBlack),

ParamColor("BackGroundBottom", colorBlack),ParamColor("TitleBlock",colorBlack ));
_SECTION_END();


_SECTION_BEGIN("HIGHER HIGH LOWER LOW");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - HIGHER HIGH LOWER LOW - {{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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

Q = Param( "% Change", 2, 0.1, 10, 0.1 );
Z = Zig( C , q ) ;
HH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( z, q, 1 ) > Peak( Z, q, 2 ) ) );
LH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( Z, q, 1 ) < Peak( Z, q, 2 ) ) );
HL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) > Trough( Z, q, 2 ) ) );
LL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) < Trough( Z, q, 2 ) ) );
GraphXSpace = 5;
dist = 0.5 * ATR( 20 );

for ( i = 0; i < BarCount; i++ )
{
if ( HH )
PlotText( "HH", i, H[ i ] + dist, colorRed );

if ( LH )
PlotText( "LH", i, H[ i ] + dist, colorRed );

if ( HL )
PlotText( "HL", i, L[ i ] - dist, colorBrightGreen );

if ( LL )
PlotText( "LL", i, L[ i ] - dist, colorBrightGreen );

}



Please help me to modify this AFL with scanner. Thanks
Click to expand...


Put in Buy and Sell conditions to make it expl AFL
 
SwingKing

SwingKing

Well-Known Member
#7
#7
A user had asked for the same AFL ... I have modified it and sent it to him ... Tht users name is kooldude1411 ... ask him to post it on this thread ...

Tc
 
indicators

indicators

New Member
#8
#8
Try this :)
-------------------------------------------------
_SECTION_BEGIN("BackGroundColorSetting");
SetChartBkGradientFill( ParamColor("BackGroundTop", colorBlack),

ParamColor("BackGroundBottom", colorBlack),ParamColor("TitleBlock",colorBlack ));
_SECTION_END();


_SECTION_BEGIN("HIGHER HIGH LOWER LOW");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - HIGHER HIGH LOWER LOW - {{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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

Q = Param( "% Change", 2, 0.1, 10, 0.1 );
Z = Zig( C , q ) ;
HH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( z, q, 1 ) > Peak( Z, q, 2 ) ) );
LH = ( ( Z < Ref( Z, -1 ) AND Ref( Z, -1 ) > Ref( Z, -2 ) ) AND (Peak( Z, q, 1 ) < Peak( Z, q, 2 ) ) );
HL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) > Trough( Z, q, 2 ) ) );
LL = ( ( Z > Ref( Z, -1 ) AND Ref( Z, -1 ) < Ref( Z, -2 ) ) AND (Trough( Z, q, 1 ) < Trough( Z, q, 2 ) ) );
GraphXSpace = 5;
dist = 0.5 * ATR( 20 );

for ( i = 0; i < BarCount; i++ )
{
if ( HH )
PlotText( "HH", i, H[ i ] + dist, colorRed );

if ( LH )
PlotText( "LH", i, H[ i ] + dist, colorRed );

if ( HL )
PlotText( "HL", i, L[ i ] - dist, colorBrightGreen );

if ( LL )
PlotText( "LL", i, L[ i ] - dist, colorBrightGreen );

}

Filter=HH OR HL OR LH OR LL;
AddColumn(HH,"HH",1);
AddColumn(LH,"LH",1);
AddColumn(HL,"HL",1);
AddColumn (LL,"LL",1);
 
RudalR1

RudalR1

New Member
#9
#9
Mr Indicators,

Thanks for your reply n help. I have tried but still didnt work. How do i have to do next?

If i add

Buy = (C=LL=HL>LH=HH);
Sell = (HH=LH<HL=LL=C);

Its working but
It doesnt look right to me but its better than before.
Could you help to fix it, please?

Thanks
-Rossi
 
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
S Help needed - Required AFL AmiBroker 2
V AFL Request: Help Needed Introductions 6
N Need help regarding brokerage and margin required. Options 11
W Urgent help required before market closes-need to square off Day Trading 7
B Req-Help : I need help for AFL with Scanner!! AmiBroker 0

Similar threads