NMA AFL Code Analysis

14 Replies to “NMA AFL Code Analysis”

1. Respected Sir,

   Pls also check if v use k=5 & atr=20 in Hourly chart. In this we will have minimum of 80 points in every trade.

   Regards,

   Dipak

2. Hi rajanderan try the undermentioned formulae on EOD charts

   For NIFTY 01 year it gives NET 65.23 % profit ( 31 MAR 2009 to Mar 2010 )

   For BANKNIFTY 01 year it gives NET 79 % profit ( 31 MAR 2009 to Mar 2010 )

   Really amazing !

   following is the code

   _SECTION_BEGIN(“Price”);
   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”, colorBlack ), styleNoTitle | ParamStyle(“Style”) | GetPriceStyle() );
   _SECTION_END();

   _SECTION_BEGIN(“MA”);
   P = ParamField(“Price field”,-1);
   Periods = Param(“Periods”, 8, 2, 200, 1 );
   Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”) | styleNoRescale );
   _SECTION_END();

   _SECTION_BEGIN(“Mid MA”);
   P = ParamField(“Price field”,-1);
   Periods = Param(“Periods”, 34, 2, 300, 1 );
   Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”) | styleNoRescale );
   _SECTION_END();

   _SECTION_BEGIN(“Long MA”);
   P = ParamField(“Price field”,-1);
   Periods = Param(“Periods”, 200, 2, 400, 1 );
   Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”) | styleNoRescale );
   _SECTION_END();
   _SECTION_END();

   _SECTION_BEGIN(“SAR”);
   acc = Param(“Acceleration”, 0.02, 0, 1, 0.001 );
   accm = Param(“Max. acceleration”, 0.2, 0, 1, 0.001 );
   Plot( SAR( acc, accm ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”, styleDots | styleNoLine, maskDefault | styleDots | styleNoLine ) );
   _SECTION_END();
   RSIperiod = 15; // Param(“RSI p”,3,14,30,1);
   Percent = 5; // Param(“ZIG %”,8,9,15,1);
   EMAperiod = 5; //Param(“EMA p”,4,5,10,1);
   HHVperiod = 8; //Param(“HHV p”,3,5,10,1);
   NumLine = 2; //Param(“Num Lines”,3,1,20,1);

   Base = DEMA(RSI(RSIperiod),EMAperiod);

   for( i = 1; i <= numline; i++ )
   {
   ResBase = LastValue(Peak(Base,Percent,i));
   SupBase = LastValue(Trough(Base,Percent,i));
   Plot(ValueWhen( ResBase==Base, HHV(H,HHVperiod) ), "Resist Level", colorRed, styleLine);
   Plot(ValueWhen( supbase==Base, LLV(L,HHVperiod) ), "Support Level", colorGreen, styleLine);
   }
   Title = Name() + "; " + Date() + ": Support & Resistance Levels using RSI: " + /*EncodeColor(colorGreen)+ "Support Levels are Green; "+EncodeColor(colorRed)+ "Resistance Levels are Red: "+EncodeColor(colorBlack)+*/ "Num lines ="+WriteVal(numline,1) ;

   _SECTION_BEGIN("heikin");

   // Calculate Moving Average
   MAPeriod = Param("MA Period", 15, 1, 100);
   MAOpen = EMA(Open, MAPeriod);
   MAHigh = EMA(High, MAPeriod);
   MALow = EMA(Low, MAPeriod);
   MAClose = EMA(Close, MAPeriod);

   HaClose = (MAOpen + MAHigh + MALow + MAClose) / 4;
   HaOpen = AMA(Ref(HaClose, -1), 0.5);

   // for graph collapse
   for(i = 0; i <= MAPeriod; i++) HaClose[i] = Null;
   /*
   // same
   // HaOpen = (Ref(HaOpen, -1) + Ref(HaClose, -1)) / 2;
   HaOpen[ 0 ] = HaClose[ 0 ];
   for(i = 1; i < BarCount; i++) {
   HaOpen[i] = (HaOpen[i – 1] + HaClose[i – 1]) / 2;
   }
   */

   HaHigh = Max(MAHigh, Max(HaClose, HaOpen));
   HaLow = Min(MALow, Min(HaClose, HaOpen));

   // outs comments
   "BarIndex = " + BarIndex();
   "Open = " + Open;
   "High = " + High;
   "Low = " + Low;
   "Close = "+ Close;
   "HaOpen = " + HaOpen;
   "HaHigh = " + HaHigh;
   "HaLow = " + HaLow;
   "HaClose = "+ HaClose;

   /* **********************************

   Code to automatically identify pivots

   ********************************** */

   // — what will be our lookback range for the hh and ll?
   farback=Param("How Far back to go",100,50,5000,10);
   nBars = Param("Number of bars", 12, 5, 40);

   // — Create 0-initialized arrays the size of barcount

   aHPivs = H – H;

   aLPivs = L – L;

   // — More for future use, not necessary for basic plotting

   aHPivHighs = H – H;

   aLPivLows = L – L;

   aHPivIdxs = H – H;

   aLPivIdxs = L – L;

   nHPivs = 0;

   nLPivs = 0;

   lastHPIdx = 0;

   lastLPIdx = 0;

   lastHPH = 0;

   lastLPL = 0;

   curPivBarIdx = 0;

   // — looking back from the current bar, how many bars

   // back were the hhv and llv values of the previous

   // n bars, etc.?

   aHHVBars = HHVBars(H, nBars);

   aLLVBars = LLVBars(L, nBars);

   aHHV = HHV(H, nBars);

   aLLV = LLV(L, nBars);

   // — Would like to set this up so pivots are calculated back from

   // last visible bar to make it easy to "go back" and see the pivots

   // this code would find. However, the first instance of

   // _Trace output will show a value of 0

   aVisBars = Status("barvisible");

   nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));

   _TRACE("Last visible bar: " + nLastVisBar);

   // — Initialize value of curTrend

   curBar = (BarCount-1);

   curTrend = "";

   if (aLLVBars[curBar] <

   aHHVBars[curBar]) {

   curTrend = "D";

   }

   else {

   curTrend = "U";

   }

   // — Loop through bars. Search for

   // entirely array-based approach

   // in future version

   for (i=0; i<farback; i++) {

   curBar = (BarCount – 1) – i;

   // — Have we identified a pivot? If trend is down…

   if (aLLVBars[curBar] lastHPIdx) {

   // — Bar and price info for candidate pivot

   candIdx = curBar – aHHVBars[curBar];

   candPrc = aHHV[curBar];

   if (

   lastHPH lastLPIdx AND

   candIdx < curBar) {

   // — OK, we'll add this as a pivot…

   aHPivs[candIdx] = 1;

   // …and then rearrange elements in the

   // pivot information arrays

   for (j=0; j candPrc AND

   candIdx > lastHPIdx AND

   candIdx < curBar) {

   // — OK, we'll add this as a pivot…

   aLPivs[candIdx] = 1;

   // …and then rearrange elements in the

   // pivot information arrays

   for (j=0; j<nLPivs; j++) {

   aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];

   aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];

   }

   aLPivLows[0] = candPrc;

   aLPivIdxs[0] = candIdx;

   nLPivs++;

   }

   }

   // — Dump inventory of high pivots for debugging

   /*

   for (k=0; k<nHPivs; k++) {

   _TRACE("High pivot no. " + k

   + " at barindex: " + aHPivIdxs[k] + ", "

   + WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],

   DateTime(), 1), formatDateTime)

   + ", " + aHPivHighs[k]);

   }

   */

   // — OK, let's plot the pivots using arrows

   PlotShapes(

   IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,

   High, Offset=-15);

   PlotShapes(

   IIf(aLPivs==1, shapeUpArrow , shapeNone), colorBrightGreen, 0,

   Low, Offset=-15);

   AlertIf( aLPivs==1, "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Audio alert", 2 );
   AlertIf( aHPivs==1, "SOUND C:\\Windows\\Media\\Ringin.wav", "Audio alert", 2 );

   Buy=(aLPivs==1);
   Cover=(aLPivs==1);
   Sell=(aHPivs==1);
   Short=(aHPivs==1);
   SellPrice=ValueWhen(Sell,C,1);
   BuyPrice=ValueWhen(Buy,C,1);
   Long=Flip(Buy,Sell);
   Shrt=Flip(Sell,Buy );
   _SECTION_END();
   //=================TITLE============================ ================================================== ==================
   _SECTION_BEGIN("Title");
   if( Status("action") == actionIndicator )
   (
   Title = EncodeColor(colorLightBlue)+ "Heikin-Ashi pivot + NMA Swing system – Boxed arrows NMA buy-sell – Normal Arrows Heikin Pivot Buy-Sell" + " – " + Name() + " – " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
   " – " + Date() +" – "+"
   " +EncodeColor(colorYellow) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
   "Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"
   "+
   EncodeColor(colorRed)+
   WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
   WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"
   "+EncodeColor(colorWhite)+
   WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
   WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","")+
   WriteIf(Long AND NOT Buy, "Trade : Long – Entry price Rs."+(BuyPrice),"")+
   WriteIf(shrt AND NOT Sell, "Trade : Short – Entry price Rs."+(SellPrice),"")+"
   "+
   WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
   WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
   AlertIf( Buy, "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Audio alert", 2 );
   AlertIf( Sell, "SOUND C:\\Windows\\Media\\Ringin.wav", "Audio alert", 2 );
   _SECTION_END();

3. Hi sandhu348,

   Could u pls send this afl as file attachment to my e-mail id at [email protected]. It is showing some errors. Thanx in advance.

   Regards,

   Dipak

4. Dear sandhu348, I`m also getting error in my AB 5.29. It says : error 31. Syntex error, expecting ‘)’ or ‘,’. Please post a solution or the afl.
   Piash

5. Hi sandhu348,

   Could u pls send this afl as file attachment to my e-mail id at [email protected]. It is showing some errors in the pivot section . Thanx in advance.

6. Hi Mr. Sandhu348,

   Want to try ur AFL but contains lot of errors. Can u please rectify and repost..

   Thanks
   Shree

7. _SECTION_BEGIN(“MA”);
   P = ParamField(“Price field”,-1);
   Periods = Param(“Periods”, 8, 2, 200, 1 );
   Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”) | styleNoRescale );
   _SECTION_END();

   _SECTION_BEGIN(“Mid MA”);
   P = ParamField(“Price field”,-1);
   Periods = Param(“Periods”, 34, 2, 300, 1 );
   Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”) | styleNoRescale );
   _SECTION_END();

   _SECTION_BEGIN(“Long MA”);
   P = ParamField(“Price field”,-1);
   Periods = Param(“Periods”, 200, 2, 400, 1 );
   Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”) | styleNoRescale );
   _SECTION_END();
   _SECTION_END();

   _SECTION_BEGIN(“SAR”);
   acc = Param(“Acceleration”, 0.02, 0, 1, 0.001 );
   accm = Param(“Max. acceleration”, 0.2, 0, 1, 0.001 );
   Plot( SAR( acc, accm ), _DEFAULT_NAME(), ParamColor( “Color”, colorCycle ), ParamStyle(“Style”, styleDots | styleNoLine, maskDefault | styleDots | styleNoLine ) );
   _SECTION_END();
   RSIperiod = 15; // Param(“RSI p”,3,14,30,1);
   Percent = 5; // Param(“ZIG %”,8,9,15,1);
   EMAperiod = 5; //Param(“EMA p”,4,5,10,1);
   HHVperiod = 8; //Param(“HHV p”,3,5,10,1);
   NumLine = 2; //Param(“Num Lines”,3,1,20,1);

   Base = DEMA(RSI(RSIperiod),EMAperiod);

   for( i = 1; i <= numline; i++ )
   {
   ResBase = LastValue(Peak(Base,Percent,i));
   SupBase = LastValue(Trough(Base,Percent,i));
   Plot(ValueWhen( ResBase==Base, HHV(H,HHVperiod) ), "Resist Level", colorRed, styleLine);
   Plot(ValueWhen( supbase==Base, LLV(L,HHVperiod) ), "Support Level", colorGreen, styleLine);
   }
   Title = Name() + "; " + Date() + ": Support & Resistance Levels using RSI: " + /*EncodeColor(colorGreen)+ "Support Levels are Green; "+EncodeColor(colorRed)+ "Resistance Levels are Red: "+EncodeColor(colorBlack)+*/ "Num lines ="+WriteVal(numline,1) ;

   _SECTION_BEGIN("heikin");

   // Calculate Moving Average
   MAPeriod = Param("MA Period", 15, 1, 100);
   MAOpen = EMA(Open, MAPeriod);
   MAHigh = EMA(High, MAPeriod);
   MALow = EMA(Low, MAPeriod);
   MAClose = EMA(Close, MAPeriod);

   HaClose = (MAOpen + MAHigh + MALow + MAClose) / 4;
   HaOpen = AMA(Ref(HaClose, -1), 0.5);

   // for graph collapse
   for(i = 0; i <= MAPeriod; i++) HaClose[i] = Null;
   /*
   // same
   // HaOpen = (Ref(HaOpen, -1) + Ref(HaClose, -1)) / 2;
   HaOpen[ 0 ] = HaClose[ 0 ];
   for(i = 1; i < BarCount; i++) {
   HaOpen[i] = (HaOpen[i – 1] + HaClose[i – 1]) / 2;
   }
   */

   HaHigh = Max(MAHigh, Max(HaClose, HaOpen));
   HaLow = Min(MALow, Min(HaClose, HaOpen));

   // outs comments
   "BarIndex = " + BarIndex();
   "Open = " + Open;
   "High = " + High;
   "Low = " + Low;
   "Close = "+ Close;
   "HaOpen = " + HaOpen;
   "HaHigh = " + HaHigh;
   "HaLow = " + HaLow;
   "HaClose = "+ HaClose;

   /* **********************************

   Code to automatically identify pivots

   ********************************** */

   // — what will be our lookback range for the hh and ll?
   farback=Param("How Far back to go",100,50,5000,10);
   nBars = Param("Number of bars", 12, 5, 40);

   // — Create 0-initialized arrays the size of barcount

   aHPivs = H – H;

   aLPivs = L – L;

   // — More for future use, not necessary for basic plotting

   aHPivHighs = H – H;

   aLPivLows = L – L;

   aHPivIdxs = H – H;

   aLPivIdxs = L – L;

   nHPivs = 0;

   nLPivs = 0;

   lastHPIdx = 0;

   lastLPIdx = 0;

   lastHPH = 0;

   lastLPL = 0;

   curPivBarIdx = 0;

   // — looking back from the current bar, how many bars

   // back were the hhv and llv values of the previous

   // n bars, etc.?

   aHHVBars = HHVBars(H, nBars);

   aLLVBars = LLVBars(L, nBars);

   aHHV = HHV(H, nBars);

   aLLV = LLV(L, nBars);

   // — Would like to set this up so pivots are calculated back from

   // last visible bar to make it easy to "go back" and see the pivots

   // this code would find. However, the first instance of

   // _Trace output will show a value of 0

   aVisBars = Status("barvisible");

   nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));

   _TRACE("Last visible bar: " + nLastVisBar);

   // — Initialize value of curTrend

   curBar = (BarCount-1);

   curTrend = "";

   if (aLLVBars[curBar] <

   aHHVBars[curBar]) {

   curTrend = "D";

   }

   else {

   curTrend = "U";

   }

   // — Loop through bars. Search for

   // entirely array-based approach

   // in future version

   for (i=0; i<farback; i++) {

   curBar = (BarCount – 1) – i;

   // — Have we identified a pivot? If trend is down…

   if (aLLVBars[curBar] lastHPIdx) {

   // — Bar and price info for candidate pivot

   candIdx = curBar – aHHVBars[curBar];

   candPrc = aHHV[curBar];

   if (

   lastHPH lastLPIdx AND

   candIdx < curBar) {

   // — OK, we'll add this as a pivot…

   aHPivs[candIdx] = 1;

   // …and then rearrange elements in the

   // pivot information arrays

   for (j=0; j candPrc AND

   candIdx > lastHPIdx AND

   candIdx < curBar) {

   // — OK, we'll add this as a pivot…

   aLPivs[candIdx] = 1;

   // …and then rearrange elements in the

   // pivot information arrays

   for (j=0; j<nLPivs; j++) {

   aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];

   aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];

   }

   aLPivLows[0] = candPrc;

   aLPivIdxs[0] = candIdx;

   nLPivs++;

   }

   }

   // — Dump inventory of high pivots for debugging

   /*

   for (k=0; k<nHPivs; k++) {

   _TRACE("High pivot no. " + k

   + " at barindex: " + aHPivIdxs[k] + ", "

   + WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],

   DateTime(), 1), formatDateTime)

   + ", " + aHPivHighs[k]);

   }

   */

   // — OK, let's plot the pivots using arrows

   PlotShapes(

   IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,

   High, Offset=-15);

   PlotShapes(

   IIf(aLPivs==1, shapeUpArrow , shapeNone), colorBrightGreen, 0,

   Low, Offset=-15);

   AlertIf( aLPivs==1, "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Audio alert", 2 );
   AlertIf( aHPivs==1, "SOUND C:\\Windows\\Media\\Ringin.wav", "Audio alert", 2 );

   Buy=(aLPivs==1);
   Cover=(aLPivs==1);
   Sell=(aHPivs==1);
   Short=(aHPivs==1);
   SellPrice=ValueWhen(Sell,C,1);
   BuyPrice=ValueWhen(Buy,C,1);
   Long=Flip(Buy,Sell);
   Shrt=Flip(Sell,Buy );
   _SECTION_END();
   //=================TITLE============================ ================================================== ==================
   _SECTION_BEGIN("Title");
   if( Status("action") == actionIndicator )
   (
   Title = EncodeColor(colorLightBlue)+ "Heikin-Ashi pivot + NMA Swing system – Boxed arrows NMA buy-sell – Normal Arrows Heikin Pivot Buy-Sell" + " – " + Name() + " – " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
   " – " + Date() +" – "+"
   " +EncodeColor(colorYellow) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
   "Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"
   "+
   EncodeColor(colorRed)+
   WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
   WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"
   "+EncodeColor(colorWhite)+
   WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
   WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","")+
   WriteIf(Long AND NOT Buy, "Trade : Long – Entry price Rs."+(BuyPrice),"")+
   WriteIf(shrt AND NOT Sell, "Trade : Short – Entry price Rs."+(SellPrice),"")+"
   "+
   WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
   WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
   AlertIf( Buy, "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Audio alert", 2 );
   AlertIf( Sell, "SOUND C:\\Windows\\Media\\Ringin.wav", "Audio alert", 2 );
   _SECTION_END();

8. still the error begins from this line upper side is ok no problem till this lines
   pls rectify the same thanks

   // — Have we identified a pivot? If trend is down…

   if (aLLVBars[curBar] lastHPIdx) {

   // — Bar and price info for candidate pivot

   candIdx = curBar – aHHVBars[curBar];

   candPrc = aHHV[curBar];

   if (

   lastHPH >lastLPIdx AND

   candIdx lastHPIdx AND

   candIdx < curBar) {

   // — OK, we'll add this as a pivot…

   aLPivs[candIdx] = 1;

   // …and then rearrange elements in the

   // pivot information arrays

   for (j=0; j<nLPivs; j++) {

   aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];

   aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];

   }

   aLPivLows[0] = candPrc;

   aLPivIdxs[0] = candIdx;

   nLPivs++;

   }

   }

   // — Dump inventory of high pivots for debugging

   /*

   for (k=0; k<nHPivs; k++) {

   _TRACE("High pivot no. " + k

   + " at barindex: " + aHPivIdxs[k] + ", "

   + WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],

   DateTime(), 1), formatDateTime)

   + ", " + aHPivHighs[k]);

   }

   */

   // — OK, let's plot the pivots using arrows

   PlotShapes(

   IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,

   High, Offset=-15);

   PlotShapes(

   IIf(aLPivs==1, shapeUpArrow , shapeNone), colorBrightGreen, 0,

   Low, Offset=-15);

   AlertIf( aLPivs==1, "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Audio alert", 2 );
   AlertIf( aHPivs==1, "SOUND C:\\Windows\\Media\\Ringin.wav", "Audio alert", 2 );

   Buy=(aLPivs==1);
   Cover=(aLPivs==1);
   Sell=(aHPivs==1);
   Short=(aHPivs==1);
   SellPrice=ValueWhen(Sell,C,1);
   BuyPrice=ValueWhen(Buy,C,1);
   Long=Flip(Buy,Sell);
   Shrt=Flip(Sell,Buy );
   _SECTION_END();
   //=================TITLE============================ ================================================== ==================
   _SECTION_BEGIN("Title");
   if( Status("action") == actionIndicator )
   (
   Title = EncodeColor(colorLightBlue)+ "Heikin-Ashi pivot + NMA Swing system – Boxed arrows NMA buy-sell – Normal Arrows Heikin Pivot Buy-Sell" + " – " + Name() + " – " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
   " – " + Date() +" – "+"
   " +EncodeColor(colorYellow) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
   "Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"
   "+
   EncodeColor(colorRed)+
   WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
   WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"
   "+EncodeColor(colorWhite)+
   WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
   WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","")+
   WriteIf(Long AND NOT Buy, "Trade : Long – Entry price Rs."+(BuyPrice),"")+
   WriteIf(shrt AND NOT Sell, "Trade : Short – Entry price Rs."+(SellPrice),"")+"
   "+
   WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
   WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
   AlertIf( Buy, "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Audio alert", 2 );
   AlertIf( Sell, "SOUND C:\\Windows\\Media\\Ringin.wav", "Audio alert", 2 );
   _SECTION_END();

9. Hi , i don’t know why after pasting / coping into this page it miss some data. kindly contact me at [email protected] i will attach the AFL as attachment

   thanks !

10. Dear Rajandran sir
    I am using NMA signals. It is working fine and getting maximum points in nifty , my settings are ATR=4 and K=1 . Chances of whipsaws r more but that is OK for me .

11. Yeah amol 1,4 can be used for short term bias. I am using 2,20 to guage the overal trend. As the whipsaws are minimum and 2,20 supports medium term bias

12. Amol Vaidya sir i tried but not working my side. Sir kindly send the afl file in my email id : [email protected]

    Thank U

    Raj

13. Rajandran NMA AFL codes seems to be bugged. Can you please send mail ([email protected]) or update the code afresh in your website?

14. plz send thios afl plzzzzzzzzzzzzz i give 5 star to this afl plz send on my mail ……thanks