unit u_EstimateInt;
{可靠性參數估計接口}

interface
type
  TSample=record
    Time:Double;
    Failed:Boolean;//失效為True
  end;
  TTimeList=Array of TSample;
  TSampleR=record
    Time:Double;
    R:Double;
  end;
  TSampleRList=Array of TSampleR;
  TPoint=record
    X:Double;
    Y:Double;
  end;
  TPointList=Array of TPoint;

{指數分布密度函數}
function ExpDistf(lambda,t:Double):Double;StdCall;
{指數分布累計函數}
function ExpDistFT(lambda,t:Double):Double;StdCall;
{指數分布點估計}
function ExpDistPointEsti(WorkTime:TTimeList):Double;StdCall;
{威布爾分布密度函數}
function WeibullDistf(beta,eta,gamma,t:Double):Double;StdCall;
{威布爾分布累計函數}
function WeibullDistFT(beta,eta,gamma,t:Double):Double;StdCall;
{威布爾分布累計函數反函數}
function WeibullDistFA(beta,eta,gamma,F:Double):Double;StdCall;
{截尾數據可靠度計算}
function TruncationR(var WorkTime:TTimeList;CalResult:TSampleRList):integer;StdCall;
{最小二乘法直線擬合y=a+bx}
function LeastSquaresFit(PointList:TPointList;var a,b:Double):Double;StdCall;
{二參數威布爾分布點估計-最小二乘估計}
function Weibull2PointEstiLeast(WorkTime:TTimeList;var beta, eta:Double):Boolean;StdCall;

implementation

function ExpDistf; external 'Estimate.dll' name 'ExpDistf';
function ExpDistFT; external 'Estimate.dll' name 'ExpDistFT';
function ExpDistPointEsti; external 'Estimate.dll' name 'ExpDistPointEsti';
function WeibullDistf; external 'Estimate.dll' name 'WeibullDistf';
function WeibullDistFT; external 'Estimate.dll' name 'WeibullDistFT';
function WeibullDistFA; external 'Estimate.dll' name 'WeibullDistFA';
function Weibull2PointEstiLeast; external 'Estimate.dll' name 'Weibull2PointEstiLeast';
function TruncationR; external 'Estimate.dll' name 'TruncationR';
function LeastSquaresFit; external 'Estimate.dll' name 'LeastSquaresFit';

end.