WeibullDataSet Class Example

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

Declare the WeibullDataSet. See New WeibullDataSet for additional details.

       Dim WDS as New WeibullDataSet

Add values to the raw data. See AddFailure for additional details.

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

Add values to the raw data. See AddSuspension for additional details.

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

Calculate the WeibullDataSet. See Calculate for additional details.

       WDS.Calculate

Get the number of failures. In this example, NumberOfFailures will be 3. See FailureCount for additional details.

       Dim NumberOfFailures as Integer
       NumberOfFailures = WDS.FailureCount

Calculate the Fitted Model using the raw data. See CalculateBestFit for additional details.

       WDS.CalculateBestFit

Use the Fitted Model using the raw data. See FittedModel for additional details.

       Dim WDSFittedModel as cModel
       WDSFittedModel = WDS.FittedModel

Use ClearDataSet to clear data and fitted model. See ClearDataSet for additional details.

       WDS.ClearDataSet

Get the number of failures. In this example, NumberOfFailures will be 0. See FailureCount for additional details.

       Dim NumberOfFailures as Integer
       NumberOfFailures = WDS.FailureCount

Navigation menu