Code: Select all

// Indicator buffers
double	AUDbuffer[];

// Arrays to hold pair data and calculated index values
double AUDUSD[], AUDindex[], AUDspeed[], AUDsmooth[]; 

void start()
{
   double minArraySize;
   double AUDEMA;
   
   minArraySize = <<size of shortest chart of the 7 USD pairs>>;
   
   // Resize all arrays to the size of the shortest pair
   
   ArrayResize(AUDUSD, minArraySize); 
   ArrayResize(AUDindex, minArraySize); 
   ArrayResize(AUDsmooth, minArraySize); 
   ArrayResize(AUDspeed, minArraySize); 

   // Set them all as series so they access data in same direction as the bars data

   ArraySetAsSeries(AUDUSD, true); 
   ArraySetAsSeries(AUDindex, true); 
   ArraySetAsSeries(AUDsmooth, true); 
   ArraySetAsSeries(AUDspeed, true); 

   for(int i=limit-1; i>=0; i--)
   {
      AUDUSD[i] = iClose("AUDUSD",0,i);

      // Calculate currency strengths for each currency for this bar

      AUDindex[i] = <<currency index>>;

      // Optionally smooth the resulting lines with another EMA.
      
      if (SmoothLen > 1.0)   // Smooth the raw speed value
      {
         AUDsmooth[i] = iMAOnArray(AUDindex, 0, SmoothLen, 0, MODE_EMA, i);
      }
      else                    // No smoothing
      {
         AUDsmooth[i] = AUDindex[i];
      } // if Smooth

      // If SpeedLen > 1, calculate the distance between the index and an EMA of the index.
      // This is the "relative" value compared to its recent value --
      // basically the "speed" the index is moving.

      if (SpeedLen > 1)
      {
         if ((minArraySize-i) > SpeedLen)    // Don't start calculating EMA until we have sufficient data in speed array
         {
            // Calculate the difference between the current value & the EMA.
         
            AUDspeed[i] = AUDsmooth[i] / iMAOnArray(AUDsmooth, 0, SpeedLen, 0, MODE_EMA, i) - 1.0;
         }
      }      
      else
      {
         // If not calculating Speed, just use the smoothed index value (and call it speed anyway :-)
      
         AUDspeed[i] = AUDsmooth[i];
      } // if not Speed
   
      // Finally, optionally calculate the "acceleration" of the smoothed line.
      // We do this by just doing another "relative" calculation -- basically taking the 2nd derivative.

      if (AccelLen > 1.0 && SpeedLen > 1.0)     // Calculate accel; only works properly if calc Speed first
      {
         AUDbuffer[i] = AUDspeed[i] - iMAOnArray(AUDspeed, 0, AccelLen, 0, MODE_EMA, i);
      }
      else
      {
         AUDbuffer[i] = AUDspeed[i];
      } // if accel
   } // for i
} // start()