ALTADataSet.Calculate

Member of: SynthesisAPI.ALTADataSet

Returns a message box that shows the estimated parameters of the model (i.e., distribution and life-stress relationship), based on the settings specified in the AnalysisSettings property of the ALTADataSet object. In addition, it creates a retrievable cModel object that represents the fitted model from the accelerated life testing data analysis.

Syntax

.Calculate()

Example

VBA

 'Declare a new ALTADataSet object. 
  Dim ADS As New ALTADataSet
 
 'Define a stress type with use stress level = 300. 
  Call ADS.AddStressDefinition("Stress1",,300)

 'Add failure times for Stress1 = 190 and 235. 
  Dim Stress(0) As Variant
  Stress(0) = 190
  Call ADS.AddFailure(100, 1, Stress)
  Call ADS.AddFailure(120, 1, Stress)

  Stress(0) = 235
  Call ADS.AddFailure(130, 1, Stress)
  Call ADS.AddFailure(140, 1, Stress)

 'Fit the data to a model, using all default analysis settings. 
  Call ADS.Calculate()
  
 'Retrieve the fitted model. 
  Dim model As cModel
  Set model = ADS.FittedModel

 'Using the model, calculate the reliability at 100 hrs and display the result. 
  Dim r As Double
  r = model.reliability(100)
  MsgBox("Reliability at 100 hrs: " & r)

VB.NET

 'Declare a new ALTADataSet object. 
  Dim ADS As New ALTADataSet
 
 'Define a stress type with use stress level = 300. 
  ADS.AddStressDefinition("Stress1",,300)

 'Add failure times for Stress1 = 190 and 235. 
  ADS.AddFailure(100, 1, 190)
  ADS.AddFailure(120, 1, 190)
  ADS.AddFailure(130, 1, 235)
  ADS.AddFailure(140, 1, 235)

 'Fit the data to a model, using all default analysis settings. 
  ADS.Calculate()
  
 'Retrieve the fitted model. 
  Dim model As cModel
  model = ADS.FittedModel

 'Using the model, calculate the reliability at 100 hrs and display the result. 
  Dim r As Double
  r = model.reliability(100)
  MsgBox("Reliability at 100 hrs: " & r)