Support Board

/*==========================================================================*/
SCFloatArrayRef WilliamsAD_S(SCBaseDataRef BaseDataIn, SCFloatArrayRef Out, int Index)
{
  if(Index > 0)
  {
    if (BaseDataIn[SC_LAST][Index] > BaseDataIn[SC_LAST][Index - 1])
      Out[Index] = Out[Index - 1] + (BaseDataIn[SC_LAST][Index] - min(BaseDataIn[SC_LOW][Index], BaseDataIn[SC_LAST][Index - 1]));

    else if (BaseDataIn[SC_LAST][Index] == BaseDataIn[SC_LAST][Index - 1])
      Out[Index] = Out[Index - 1];

    else if (BaseDataIn[SC_LAST][Index] < BaseDataIn[SC_LAST][Index - 1])
      Out[Index] = Out[Index - 1] +
      ( BaseDataIn[SC_LAST][Index] - max(BaseDataIn[SC_HIGH][Index], BaseDataIn[SC_LAST][Index - 1]) );
  }
  else
    Out[Index] = 0;
  
  return Out;
}



/*==========================================================================*/

/*==========================================================================*/
SCSFExport scsf_WilliamsAD(SCStudyInterfaceRef sc)
{
  SCSubgraphRef Subgraph_AccumulationDistribution = sc.Subgraph[0];

  if(sc.SetDefaults)  
  {
    sc.GraphName="Accumulation/Distribution (Williams)";

    sc.GraphRegion = 1;
    sc.ValueFormat = 2;

    Subgraph_AccumulationDistribution.Name = "AD";
    Subgraph_AccumulationDistribution.DrawStyle = DRAWSTYLE_LINE;
    Subgraph_AccumulationDistribution.PrimaryColor = RGB(0,255,0);


    sc.AutoLoop = 1;

    
    

    return;
  }

  sc.DataStartIndex = 1;

  sc.WilliamsAD(sc.BaseDataIn, Subgraph_AccumulationDistribution, sc.Index);

}

/*==========================================================================*/