?? u_estimateint.pas
字號:
unit u_EstimateInt;{可靠性參數估計接口}interfacetype 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;implementationfunction 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 + -