Support Board

#include "sierrachart.h"

SCDLLName("VatPriceDataV3")
SCSFExport scsf_VatPriceDataV3(SCStudyInterfaceRef sc)
{
  SCSubgraphRef PositiveDeltaSum      = sc.Subgraph[0];  
  SCSubgraphRef NegativeDeltaSum      = sc.Subgraph[1];  

  SCInputRef INStudyID           = sc.Input[0];


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

    sc.GraphName = "VbP Delta Sum V3";

    sc.AutoLoop = true;
    sc.GraphRegion = 1;

    INStudyID.Name="Study ID";
    INStudyID.SetInt(0);
    INStudyID.SetIntLimits(0,10000);  

    PositiveDeltaSum.Name = "Positive Delta Sum";
    PositiveDeltaSum.DrawStyle = DRAWSTYLE_IGNORE;
    PositiveDeltaSum.LineWidth = 2;    

    NegativeDeltaSum.Name = "Negative Delta Sum";
    NegativeDeltaSum.DrawStyle = DRAWSTYLE_IGNORE;
    NegativeDeltaSum.LineWidth = 2;      

    return;
  }
  
  const int StudyID             = INStudyID.GetInt();
  int PricesCount = sc.GetNumPriceLevelsForStudyProfile(StudyID, 0);

  int PositiveDeltaSumValue, NegativeDeltaSumValue;

  SCFloatArrayRef BidVolume      = sc.Subgraph[1].Arrays[0];  
  SCFloatArrayRef AskVolume      = sc.Subgraph[1].Arrays[1];    
  SCFloatArrayRef AskBidDelta      = sc.Subgraph[1].Arrays[2];      

  for (int PriceIndex = 0; PriceIndex < PricesCount; PriceIndex++)
  {

    s_VolumeAtPriceV2 VolumeAtPrice;

    int Result = sc.GetVolumeAtPriceDataForStudyProfile
    (StudyID
      , 0
      , PriceIndex
      , VolumeAtPrice
    );
    
    if(PriceIndex ==0)
    {
      PositiveDeltaSumValue = 0;
      NegativeDeltaSumValue = 0;
    }      

    BidVolume[PriceIndex] = VolumeAtPrice.BidVolume;
    AskVolume[PriceIndex] = VolumeAtPrice.AskVolume;  
    AskBidDelta[PriceIndex] = AskVolume[PriceIndex] - BidVolume[PriceIndex];
    
    if(AskBidDelta[PriceIndex]>0) PositiveDeltaSumValue = PositiveDeltaSumValue + AskBidDelta[PriceIndex];
    else NegativeDeltaSumValue = NegativeDeltaSumValue + AskBidDelta[PriceIndex];    

  }

    PositiveDeltaSum[sc.Index] = PositiveDeltaSumValue;
    NegativeDeltaSum[sc.Index] = NegativeDeltaSumValue;  
}