Uses StatControlCharts, MtxExp, Math387;
procedure Example;
var Data: Vector;
    p, lb, ub,cp, cpk: double;
    CPConfInt, CPKConfInt: TTwoElmReal;
begin
  Data.LoadFromFile('PCDATA.vec');
  QCCapIndexes(Data,lb,ub,p,cp,cpk,CPConfInt,CPKConfInt, 0.05);
end;

#include "MtxExpr.hpp"
#include "StatControlCharts.hpp"
#include "Math387.hpp"
void __fastcall Example();
{
    sVector Data;
    double p, lb, ub,cp, cpk;
    TTwoElmReal CPConfInt;
    TTwoElmReal CPKConfInt;
    Data.LoadFromFile("PCDATA.vec");
    QCCapIndexes(Data,lb,ub,p,cp,cpk,CPConfInt,CPKConfInt, 0.05);
}