var center, upcl, lowcl: double;
  Data: Matrix;
  EWMAResult: Vector;
begin
  Data.LoadFromFile('ewma_data.mtx');
  // EWMA with r= 0.37
  EWMAChart(Data,DrawVec,center,upcl,lowcl,0.37,0.95);
  // setup TQCSeries
  Series1.CL := center;
  Series1.UCL := upcl;
  Series1.LCL := lowcl;
  Series1.ShowText := True;
  DrawValues(DrawVec,Series1);
end;

#include "MtxExpr.hpp"
#include "Math387.hpp"
#include "MtxVecTee.hpp"
#include "StatSeries.hpp"
void __fastcall WeibullPlot();
{
    sVector ewmaresult;
    sMatrix Data;
    double center, upcl,lowcl;
    Data.LoadFromFile("ewma_data.mtx");
    // EWMA with r= 0.37
    EWMAChart(Data,ewmaresult,center,upcl,lowcl,0.37,0.95);
      // setup TQCSeries
    Series1->CL = center;
    Series1->UCL = upcl;
    Series1->LCL = lowcl;
    Series1->ShowText = true;

    DrawValues(ewmaresult,Series1,0,1,false);
}