ALTADataSet Class Example

This examples only uses constructors, methods, and properties found in WeibullDataSet.

Dim ALTADS as New ALTADataSet

Dim sp = New ALTAStressProfile("Profile1") sp.RepeatCycle = True sp.AddSegment(1, 250) sp.AddSegment(2, 300) sp.AddSegment(3, 400)

ALTADS.AddFailure(1, 1, sp) ALTADS.AddFailure(2, 1, sp) ALTADS.AddFailure(3, 1, sp)

ALTADS.AddSuspension(1, 1, sp) ALTADS.AddSuspension(2, 1, sp) ALTADS.AddSuspension(3, 1, sp)

Dim NumberOfFailures as Integer NumberOfFailures = ALTADataSet.FailureCount

Dim NumberOfSuspension as Integer NumberOfSuspension = ALTADS.SuspensionCount

ALTADS.Calculate

}}       ALTADS.ClearDataSet

}}       Dim NumberOfFailures as Integer NumberOfFailures = ALTADS.FailureCount