StatControlCharts.QCRChart Function

R-Chart.

Pascal

procedure QCRChart(const Data: TMtx; const DrawVec: TVec; out CL: double; out UCL: double; out LCL: double; Confidence: double = 0.997);

File

StatControlCharts

Parameters

Parameters	Description
Data	Each Data row contains replicated observation taken at specific time.
DrawVec	Returns values to be drawn.
CL	Returns control Chart centerline.
UCL	Returns control Chart upper control limit.
LCL	Returns control Chart lower control limit.
Confidence	Confidence level for upper and lower control limit. Confidence must lie in the (0,1) interval.

Description

Calculates R-Chart drawing values, center line, upper and lower control limit.

See Also

TQCSeries, Dew.Stats.Tee.QCSeries, QCXChart, QCSChart

Example

The following code will create R chart:

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);
}

StatControlCharts, Functions, Example, See Also

What do you think about this topic? Send feedback!