Support Board

#include "sierrachart.h"

#define ADXVMA      sc.Subgraph[0]
#define DI_Sum      sc.Subgraph[3]
#define ma        sc.Subgraph[4]
#define pdm        sc.Subgraph[5]
#define mdm        sc.Subgraph[6]
#define pdi        sc.Subgraph[7]
#define mdi        sc.Subgraph[8]
#define HHV        sc.Subgraph[12]
#define LLV        sc.Subgraph[13]
#define out        sc.Subgraph[14]

#define FALSE 0
#define TRUE 1
#define LONG 1
#define SHORT -1
#define GREEN RGB(0,255,0)
#define DKGREEN RGB(0,128,0)
#define YELLOW RGB(255,255,0)
#define LTYELLOW RGB(255,255,128)
#define RED RGB(255,0,0)
#define DKRED RGB(198,0,0)
#define BLACK RGB(0,0,1)
#define WHITE RGB(255,255,255)
#define CYAN RGB(0,255,255)
#define PURPLE RGB(255,0,255)
#define GREY RGB(192,192,192)
#define BLUE RGB(0,128,255)
#define ORANGE RGB(255, 127, 0)

SCSFExport scsf_ADXVMA(SCStudyGraphRef sc)
{
  if (sc.SetDefaults)
  {
    // Set the configuration and defaults

    sc.GraphName = "ADXVMA";
    sc.StudyDescription = "ADXVMA";
    sc.FreeDLL = 0;

    sc.AutoLoop = 1; // true

    sc.GraphRegion = 0;

    // Set the name of the first subgraph
    sc.Subgraph[0].Name = "ADXVMA";
    sc.Subgraph[0].PrimaryColor = RED ;
    sc.Subgraph[0].DrawStyle = DRAWSTYLE_POINT ;
    sc.Subgraph[0].LineWidth = 2 ;

    sc.Input[0].Name = "Input Data";
    sc.Input[0].SetInputDataIndex(SC_LAST);
    
    sc.Input[1].Name = "Length";
    sc.Input[1].SetInt(14);
    
    sc.Input[2].Name = "RisingColor";
    sc.Input[2].SetColor(BLUE);
    
    sc.Input[3].Name = "FlatColor";
    sc.Input[3].SetColor(YELLOW);
    
    sc.Input[4].Name = "FallingColor";
    sc.Input[4].SetColor(RED);

    return;
  }

  int i ;
  
  SCFloatArrayRef Price = sc.BaseDataIn[sc.Input[0].GetInputDataIndex()];
  int len = sc.Input[1].GetInt();
  
  sc.DataStartIndex = len;
  i = sc.CurrentIndex;
  
  ma[i] = Price[i];
  
  if (Price[i] > Price[i-1]) {
    pdm[i] = Price[i] - Price[i-1];
    mdm[i] = mdm[i-1];
  }
  else if (Price[i] < Price[i-1]) {
    mdm[i] = Price[i-1] - Price[i]; //This array is not displayed.
    pdm[i] = pdm[i-1];
  }
  else {
    mdm[i] = 0.0f;
    pdm[i] = pdm[i-1];
  }
  

  pdm[i] = ((len - 1) * pdm[i-1] + pdm[i]) / len; //ema.
  mdm[i] = ((len - 1) * mdm[i-1] + mdm[i]) / len; //ema.

  float TR = pdm[i] + mdm[i];
  
  if (TR > 0)
  {
    pdi[i] =pdm[i] / TR;
    mdi[i] = mdm[i] / TR;
  }
  else
  {
    pdi[i] = 0;
    mdi[i] = 0;
  }
  
  pdi[i] = ((len - 1) * pdi[i-1] + pdi[i]) / len; //ema.
  mdi[i] = ((len - 1) * mdi[i-1] + mdi[i]) / len; //ema.
  
  double DI_Diff = pdi[i] - mdi[i];

  if (DI_Diff < 0) DI_Diff = -DI_Diff; //Only positive momentum signals are used.

  DI_Sum[i] = pdi[i] + mdi[i];
  double DI_Factor = 0; //Zero case, DI_Diff will also be zero when DI_Sum i s zero.

  if (DI_Sum[i] > 0)
    out[i] = (float) DI_Diff / DI_Sum[i];
  else
    out[i]= 0;

  out[i] = ((len - 1) * out[i-1] + out[i]) / len;

  if (out[i] > out[i-1]) {
    HHV[i] = out[i];
    LLV[i] = out[i-1];
  }
  else {
    HHV[i] = out[i-1];
    LLV[i] = out[i];
  }

  for (int j = 1; j < len; j++) {
    if (out[i-j-1] > HHV[i]) HHV[i] = out[i-j-1];
    if (out[i-j-1] < LLV[i]) LLV[i] = out[i-j-1];
  }

  double diff = HHV[i] - LLV[i];
  double VI = 0;

  if (diff > 0)
    VI = (out[i] - LLV[i]) / diff;

  ma[i] = (float) ((len - VI) * ma[i-1] + VI * Price[i]) / len; //Chande VMA formula with ema built in.

  ADXVMA[i] = ma[i];
  if (ADXVMA[i] > ADXVMA[i-1]) sc.Subgraph[0].DataColor[i] = sc.Input[2].GetColor();
  else if (ADXVMA[i] < ADXVMA[i-1]) sc.Subgraph[0].DataColor[i] = sc.Input[4].GetColor();
  else if (ADXVMA[i] == ADXVMA[i-1]) sc.Subgraph[0].DataColor[i] = sc.Input[3].GetColor();
}