Uses StatSeries,StatControlCharts, MtxExp, Math387, MtxVecTee;
procedure Example;
var CL, UCL, LCL : double;
  Data: Matrix;
  DrawVec: Vector;
begin
  Data.LoadFromFile('ewma_data.mtx');
  QCRChart(Data,DrawVec,CL,UCL,LCL,0.025);
  // setup limit lines
  Series1.UCL := UCL;
  Series1.LCL := LCL;
  Series1.CL := CL;
  // now draw actual data
  DrawValues(DrawVec,Series1);
end;

#include "StatSeries.hpp"
#include "MtxVecTee.hpp"
#include "MtxExpr.hpp"
#include "StatControlCharts.hpp"
#include "Math387.hpp"
void __fastcall Example(TQCSeries* Series1);
{
  sVector drawvec;
  sMatrix data;
  double cl,lcl,ucl;

  data.LoadFromFile("data.mtx");
  QCRChart(data,drawvec,cl,ucl,lcl,0.025);
  Series1->UCL = ucl;
  Series1->LCL = lcl;
  Series1->CL = cl;
  DrawValues(drawVec,Series1,0,1,false);
}