Support Board

#include <cmath>
#include <algorithm> // std::sort
#include <string>
#include <unordered_map>
#include <vector>
// The top of every source code file must include this line
#include "sierrachart.h"
using namespace std;

SCDLLName("Custom_Studies")

SCSFExport scsf_FXNews(SCStudyGraphRef sc)
{
  SCInputRef Symbol = sc.Input[0];
  SCInputRef DebugDaysMedian = sc.Input[1];
  SCInputRef Debug5MinChanges = sc.Input[2];

  if (sc.SetDefaults)
  {
    sc.FreeDLL = 1; //CHANGE THIS!

    sc.GraphName = "FXNews";
    sc.GraphRegion = 0;
    sc.HideStudy = 1;

    sc.AutoLoop = 1;

    Symbol.Name = "Chart Symbol?";
    Symbol.SetCustomInputStrings("ACa;ACh;AJ;AN;AU;CaCh;CaJ;ChJ;EA;ECa;ECh;EG;EJ;EN;EU;GA;GCa;GCh;GJ;GN;GU;NCa;NCh;NJ;NU;UCa;UCh;UJ");
    Symbol.SetCustomInputIndex(0);
    DebugDaysMedian.Name = "Debug getting days HL median?";
    DebugDaysMedian.SetYesNo(0);
    Debug5MinChanges.Name = "Debug 5 minute changes?";
    Debug5MinChanges.SetYesNo(0);
  }

  int& hasRunOrNot = sc.GetPersistentInt(1);
  if (sc.Index == 0) { hasRunOrNot = -1; }
  if (sc.DownloadingHistoricalData || sc.IsFullRecalculation) { return; }
  if (hasRunOrNot != -1) { return; }
  hasRunOrNot = 0;

  SCString debugStr;

  //Load data from matching daily chart to calculate median of daily high-lows.
  SCGraphData dailyData; sc.GetChartBaseData(Symbol.GetIndex() + 1, dailyData);
  SCDateTimeArray dailyDates; sc.GetChartDateTimeArray(Symbol.GetIndex() + 1, dailyDates);

  vector<float> dayHLs;

  for (int dayI = 0; dayI < dailyDates.GetArraySize(); dayI++) {
    if (dailyDates[dayI].GetDayOfWeek() != SUNDAY) {
      dayHLs.push_back(dailyData[SC_HIGH][dayI]-dailyData[SC_LOW][dayI]);
      if (DebugDaysMedian.GetYesNo()) {
        debugStr.Format("%d/%d/%d ... %6.4f",
          dailyDates[dayI].GetMonth(), dailyDates[dayI].GetDay(), dailyDates[dayI].GetYear(),
          dailyData[SC_HIGH][dayI] - dailyData[SC_LOW][dayI]
        );
        sc.AddMessageToLog(debugStr, 0);
      }
    }
  }
  nth_element(dayHLs.begin(), dayHLs.begin() + dayHLs.size() / 2, dayHLs.end());
  if (DebugDaysMedian.GetYesNo()) { debugStr.Format("Median: %6.4f ... %.1f", dayHLs[dayHLs.size() / 2]); sc.AddMessageToLog(debugStr, 1);}
  float median = dayHLs[dayHLs.size() / 2];
  
  //Get highest movement within each 5 minute period.
  vector<pair<float, int>> movements; float tempMovement = 0; int tempBarI = -1;
  for (int barI = 0; barI < sc.Index-5; barI++){
    if (barI > 0 && (barI % 5 == 0 || barI == sc.Index - 6)) {
      movements.emplace_back(tempMovement, tempBarI);
      tempMovement = 0; tempBarI = -1;
    }
    if (sc.BaseDateTimeIn[barI + 4] - sc.BaseDateTimeIn[barI] < 5 * MINUTES) {      
      if (abs(sc.Close[barI + 4] - sc.Open[barI]) > tempMovement) {
        tempMovement = abs(sc.Close[barI + 4] - sc.Open[barI]); tempBarI = barI;
      }
    }

  }

  if (Debug5MinChanges.GetYesNo()) {
    for (int i = 0; i < movements.size(); i++) {
      if (i > 2000) { break; }
      debugStr.Format("%d/%d/%d %d:%d ... %6.4f",
        sc.BaseDateTimeIn[movements[i].second].GetMonth(), sc.BaseDateTimeIn[movements[i].second].GetDay(), sc.BaseDateTimeIn[movements[i].second].GetYear(),
        sc.BaseDateTimeIn[movements[i].second].GetHour(), sc.BaseDateTimeIn[movements[i].second].GetMinute(), movements[i].first
      );
      sc.AddMessageToLog(debugStr, 0);
    }
  }

  //Sort 5 minute changes.
  sort(movements.begin(), movements.end());

}