Support Board

SCFloatArrayRef ATR(SCBaseDataRef BaseDataIn, SCFloatArrayRef FloatArrayOut_1, SCFloatArrayRef FloatArrayOut_2 , int Length, unsigned int MovingAverageType);

sc.AutoLoop = 1;

SCFloatArray TrueRangeArray;
SCFloatArray AverageTrueRangeArray;

if (CalculationMethod == 1)

{
BarIndex = sc.Index;
}

else if (CalculationMethod == 0) { BarIndex = sc.Index - 1; }

int ATRPeriodLength = Input_ATRPeriodLength.GetInt();

sc.DataStartIndex = ATRPeriodLength - 1;

sc.ATR(sc.BaseDataIn, TrueRangeArray, AverageTrueRangeArray, ATRPeriodLength, MOVAVGTYPE_SIMPLE);

float actualTR = TrueRangeArray[BarIndex];
float actualATR = AverageTrueRangeArray[BarIndex];

#include "sierrachart.h"

SCDLLName("Test_scATR")

SCSFExport scsf_Test_scATR(SCStudyInterfaceRef sc){
  
  SCString DebugMessage;
  
  SCSubgraphRef Subgraph = sc.Subgraph[0];
  SCFloatArrayRef TR = Subgraph.Arrays[0]; // output array 1
  SCFloatArrayRef ATR = Subgraph.Arrays[1]; // output array 2

  SCInputRef Length = sc.Input[0];
  SCInputRef MAtype = sc.Input[1];
  
  if (sc.SetDefaults){
    
    sc.GraphName = "Test_scATR";
    sc.AutoLoop = 0;
    
    Subgraph.Name = "Subgraph";
    Subgraph.DrawStyle = DRAWSTYLE_IGNORE;
    
    Length.Name = "Length";
    Length.SetInt(14);
    
    MAtype.Name = "Moving Average Type";
    MAtype.SetMovAvgType(MOVAVGTYPE_SIMPLE);
    
    return;
  }
  
  // prevent write to log on exit
  
  if (sc.LastCallToFunction)
    return;
  
  // fill arrays
  
  for (int i = Length.GetInt(); i < sc.ArraySize; i++){
    sc.ATR(sc.BaseDataIn, TR, ATR, i, Length.GetInt(), MAtype.GetMovAvgType());
  }
  
  // check array values
  
  for (int i = Length.GetInt(); i < sc.ArraySize; i++){
DebugMessage.Format("TR[%d]=%g | ATR[%d]=%g", i, TR[i], i, ATR[i]);
    sc.AddMessageToLog(DebugMessage,0);
  }
}

SCSFExport scsf_AverageTrueRangeExample(SCStudyInterfaceRef sc)
{
  SCSubgraphRef Subgraph_ATR = sc.Subgraph[0];
  SCInputRef Subgraph_Length = sc.Input[1];

  if (sc.SetDefaults)
  {
    sc.GraphName = "Average True Range Example";

    sc.GraphRegion = 1;
    sc.ValueFormat = VALUEFORMAT_INHERITED;
    sc.AutoLoop = 1; //Automatic looping

    Subgraph_ATR.Name = "ATR";
    Subgraph_ATR.DrawZeros = false;
    Subgraph_ATR.PrimaryColor = RGB(0,255,0);
    Subgraph_ATR.DrawStyle = DRAWSTYLE_LINE;

    Subgraph_Length.Name = "Moving Average Length";
    Subgraph_Length.SetInt(14);
    Subgraph_Length.SetIntLimits(1, MAX_STUDY_LENGTH);

    return;
  }

  sc.DataStartIndex = Subgraph_Length.GetInt() - 1;

  sc.ATR(sc.BaseDataIn, Subgraph_ATR.Arrays[0], Subgraph_ATR, Subgraph_Length.GetInt(), MOVAVGTYPE_SIMPLE);

  float TrueRange = Subgraph_ATR.Arrays[0][sc.Index];
}