Code: Select all

// MA_Method=8: HMA - Hull Moving Average by Alan Hull
double HMA(double array[],int per,int bar)
{
   double tmp[];
   int len =  MathSqrt(per);
   ArrayResize(tmp,len);
   
   if(bar == per) double hma = array[bar]; 
   else
   if(bar > per)
   {
   for(int i = 0; i < len;i++) tmp[len-i-1] = 2*LWMA(array,per/2,bar-i) - LWMA(array,per,bar-i);  
   hma = LWMA(tmp,len,len-1); 
   }  
 
   return(hma);
}

Code: Select all

for (idx = 0; idx < 100; idx++) {
  bar = 100 - idx - 1;
  myClose[idx] = Close[bar];
  myHMA[idx] = HMA(myClose, 14, idx);
}

Code: Select all

void DisplayUserFeedback()
{
   SM("SMA "  + myHMA[idx]  + NL);

...

// MA_Method=0: SMA - Simple Moving Average
double SMA(double array[],int per,int bar)
{
   double Sum = 0;
   for(int i = 0;i < per;i++) Sum += array[bar-i];
   
   return(Sum/per);
}         

void ReadIndicatorValues()
{	

for (idx = 0; idx < 100; idx++) {
  bar = 100 - idx - 1;
  myClose[idx] = Close[bar];
  myHMA[idx] = SMA(myClose, 14, idx);
}

...

Code: Select all

int start()
{
   string com;
   
   ReadIndicatorValues();
   for (int i=90; i<100; i++) {
      int bar = 100 - i - 1;
      com = com + "i = " + i + ", bar = " + bar + ", Close[bar] = " + Close[bar] + ", myClose[i] = " + myClose[i] + ", myHMA[i] = " + myHMA[i] + "\n";
   }
   
   Comment(com);
   
   return(0);
}