ADX Scanner, Exploration and Back Test

abhinkoi · #1 17th July 2008, 06:08 PM

Hi Seniors,

Can someone write an afl from the below mentioned conditions which can act as a scanner, explorer and backtester -

BUY when –

+DI crosses –DI from bottom to top
+DI crosses ADX from bottom to top

SELL when –

-DI crosses +DI from bottom to top
+DI crosses ADX from top to bottom
-DI crosses ADX from bottom to top

Thanks in advance.

Cheers
Abhi

dhakkan · #2 17th July 2008, 07:21 PM

Here's the AFL :

The backtest will not work properly as buy and sell are not balanced, you can use ExRem() to balance them (I have commented them, you can uncomment ).

//////////////////////////////////////////////////////////////////////////////
// TEST ADX
_SECTION_BEGIN("ADX TEST");
range = Param("Range",14,3,60,1);

px = PDI(range);
nx = MDI(range);
ax = ADX(range);

// Buy Conditions
bcon1 = Cross(px,nx);
bcon2 = Cross(px,ax);
Buy = bcon1 OR bcon2;

// Sell Conditions
scon1 = Cross(nx,px);
scon2 = Cross(ax,px);
scon3 = Cross(nx,ax);
Sell = scon1 OR scon2 OR scon3;

// Explorer
Filter = Buy OR Sell;
AddColumn(Buy,"Buy",1);
AddColumn(Sell,"Sell",1);

// balancing buy sell
///Buy = ExRem(Buy, Sell);
//Sell = ExRem(Sell, Buy);

/// Plots
Plot(px,"+DI",colorGreen,1);
Plot(nx,"-DI",colorRed,1);
Plot(ax,"ADX",colorBlue,5);

PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBl ue);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colo rDarkRed);
_SECTION_END();

abhinkoi · #3 17th July 2008, 08:29 PM

Thank you very much dear...its giving the desired results but when I click on scan it gives error 2 times and then show the results.

1st error -

Plot(nx,"-DI",colorRed,1);
Plot(ax,"ADX",colorBlue,5);

PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBl u
---------------------------------------------------^

Error 31.
Syntax error, expecting ')' or ','

==================

2nd error -

Plot(ax,"ADX",colorBlue,5);

PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBl ue);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colo r
---------------------------------------------------^

Error 31.
Syntax error, expecting ')' or ','

Can you please remove these errors?
Otherwise its working fine.

Thx a million
Abhinav

dhakkan · #4 17th July 2008, 08:40 PM

Oh.. It seems there are spaces... remove them "colorBl ue" and "colo r" remove the space...
and check all the lines...
I dont know how it happened...

also .. you can try to check the syntax... it will give you the exact error and you can fix it.

enjoy

abhinkoi · #5 17th July 2008, 09:16 PM

Yes it worked fine. YOu hit right on the target.
Thanks a ton again.
Much appreciated...

Thx
Abhi

abhinkoi · #6 19th July 2008, 01:37 PM

Hi Dhakkan,

In order to refine my scan results I have put in some additional conditions. Could you please modify the afl according to these -

BUY when –

+DI crosses –DI from bottom to top
+DI crosses ADX from bottom to top but only if –DI is lower than +DI

SELL when –

-DI crosses +DI from bottom to top
+DI crosses ADX from top to bottom but only if –DI is higher than +DI
-DI crosses ADX from bottom to top but only if +DI is lower than -DI

Thanks in advance

Cheers
Abhi

dhakkan · #7 19th July 2008, 03:40 PM

Quote:

Originally Posted by abhinkoi

Hi Dhakkan,

In order to refine my scan results I have put in some additional conditions. Could you please modify the afl according to these -

BUY when –

+DI crosses –DI from bottom to top
+DI crosses ADX from bottom to top but only if –DI is lower than +DI

SELL when –

-DI crosses +DI from bottom to top
+DI crosses ADX from top to bottom but only if –DI is higher than +DI
-DI crosses ADX from bottom to top but only if +DI is lower than -DI

Thanks in advance

Cheers
Abhi

Hi Abhi,

These are simple things, learn AFL .. it will help you, or you may end up reveling all your tricks to others..

Anyway's... edited the AFL and here it is....
Check if it suits your requirement or not...
/////////////////////////////////////////////////////////////////////////////////////
// TEST ADX
_SECTION_BEGIN("ADX TEST");
range = Param("Range",14,3,60,1);

px = PDI(range);
nx = MDI(range);
ax = ADX(range);

// Buy Conditions
bcon1 = Cross(px,nx);
bcon2 = Cross(px,ax) AND nx < px;
Buy = (bcon1) OR (bcon2);

// Sell Conditions
scon1 = Cross(nx,px);
scon2 = Cross(ax,px) AND nx > px;
scon3 = Cross(nx,ax) AND px < nx;
Sell = (scon1) OR (scon2) OR (scon3);

// Explorer
Filter = Buy OR Sell;
AddColumn(Buy,"Buy",1);
AddColumn(Sell,"Sell",1);

// balancing buy sell
///Buy = ExRem(Buy, Sell);
//Sell = ExRem(Sell, Buy);

/// Plots
Plot(px,"+DI",colorGreen,1);
Plot(nx,"-DI",colorRed,1);
Plot(ax,"ADX",colorBlue,5);

PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBl ue);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colo rDarkRed);
_SECTION_END();

abhinkoi · #8 19th July 2008, 05:52 PM

Thank you very much dear..yes its working absolutely the way I wanted it to work. You are amazing..I am in the process of learning it but till the time I get expert like you I need help and guidance from you experts in writing my mind (tricks which come to my mind). I hope you dont mind helping me and of course anyone who is seeing this thread...

If we are able to develop a strategy which can be beneficial to all it wud be a great help to the trading community.

Thanks a million for your unconditional and timely help. Much appreciated.

Thanks
Abhi