iACfunc_v1

//+------------------------------------------------------------------+
//|                                                  iACfunc.mq4     |
//|                                         Author:  paladin80       |
//|                                         E-mail:  forevex@mail.ru |
//+------------------------------------------------------------------+
#property copyright "paladin80"
#property link      "forevex@mail.ru"
#property library
//--------------------------------------------- iACfunc() - ñòàðò ------------------------------------------------------------
//+----------------------------------------------------------------------------+
//| Âõîäíûå ïàðàìåòðû:                                                         |
//|   Sy - ñèìâîë.                                                             |
//|   Tf - ïåðèîä ãðàôèêà.                                                     |
//|   MA_mode - ñêîëüçÿùàÿ ñðåäíÿÿ.                                            |
//|   Applied_price - ïðèìåíÿåìàÿ öåíà.                                        |
//|   Period_1 , Period_2 , Period_3 - ïåðèîäû äëÿ ðàñ÷¸òà èíäèêàòîðà          |
//|           (ñì. ôîðìóëû íèæå).                                              |
//|   Shift - èíäåêñ ïîëó÷àåìîãî çíà÷åíèÿ èç èíäèêàòîðíîãî áóôåðà.             |
//+----------------------------------------------------------------------------+----+
//| Ôîðìóëû äëÿ ðàñ÷¸òà ñòàíäàðòíîé AC (http://codebase.mql4.com/ru/230)            |
//|   Ôóíêöèÿ iACfunc() ðàññ÷èòûâàåòñÿ â ñîîòâåòñòâèè ñ íèæåïðèâåä¸ííûìè ôîðìóëàìè: |
//|   AO = MA_mode (Applied_price, Period_1) - MA_mode (Applied_price, Period_2)    |
//|   AC = AO - MA_mode (AO, Period_3)                                              |
//+---------------------------------------------------------------------------------+
double iACfunc(string Sy,int Tf,int MA_mode,int Applied_price,int Period_1,int Period_2,int Period_3,int Shift)
{
   double AOBuffer[], AC;
   if (Sy=="" || Sy=="0") Sy=Symbol();
   int limit=MathMax(MathMax(Period_1,Period_2),Period_3)-1+Shift;
   ArrayResize(AOBuffer,limit);
      for (int i=0; i<=limit; i++)
      {
      AOBuffer[i]=iMA(Sy,Tf,Period_1,0,MA_mode,Applied_price,i)-iMA(Sy,Tf,Period_2,0,MA_mode,Applied_price,i);
      }
   ArraySetAsSeries(AOBuffer,true);
   AC=AOBuffer[Shift]-iMAOnArray(AOBuffer,0,Period_3,0,MA_mode,Shift);
   return(AC);
}
//--------------------------------------------- iACfunc() - êîíåö ----------------------------------------------------------