Uses MtxExpr, StatProbPlots, StatSeries, Math387, MtxVecTee;
procedure Example(Series1: TStatProbSeries);
var Data, XVec, YVec: Vector;
  X1,Y1,X2,Y2: double;
begin
  // generate some random values for Data vec
  Data.Size(100);
  RandomWeibull(3,1.2,Data);
  StatWeibullPlot(Data,XVec,YVec,X1,X2,Y1,Y2,false);
  With Series1 do
  begin
    MinX := X1;
    MinY := Y1;
    MaxX := X2;
    MaxY := Y2;
  end;
  DrawValues(XVec,YVec,Series1);
end;

#include "Math387.hpp"
#include "MtxExpr.hpp"
#include "StatProbPlots.hpp"
#include "StatSeries.hpp"
#include "MtxVecTee.hpp"
void __fastcall Example(TStatProbSeries * Series1);
{
  sVector data,xvec,yvec;
  double x1,x2,y1,y2;

  data.Size(100,false);
  RandomWeibull(3, 1.2, data,-1);
  StatWeibullPlot(data,xvec,yvec,x1,x2,y1,y2,false);
  Series1->MinX = x1;
  Series1->MaxX = x2;
  Series1->MinY = y1;
  Series1->MaxY = y2;
  DrawValues(xvec,yvec,Series1);
}