WeibullDataSet Class Example

This example illustrates how to use some of the elements in the WeibullDataSet class.

Dim WDS as New WeibullDataSet

WDS.AddFailure(1, 1) WDS.AddFailure(2, 1) WDS.AddFailure(3, 1)

WDS.AddSuspension(1, 1) WDS.AddSuspension(2, 1) WDS.AddSuspension(3, 1)

WDS.Calculate

Dim NumberOfFailures as Integer NumberOfFailures = WDS.FailureCount

WDS.CalculateBestFit

Dim WDSFittedModel as cModel WDSFittedModel = WDS.FittedModel

WDS.ClearDataSet

Dim NumberOfFailures as Integer NumberOfFailures = WDS.FailureCount