?? u_estimateint.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -