ALTADataSet.Calculate

Member of: SynthesisAPI.ALTADataSet

Analyzes the data set based on the selected life distribution and life-stress relationship, and creates a cModel object that represents the fitted model. Returns a message box that shows the estimated parameters of the fitted model.

Use the AnalysisSettings property of the associated ALTADataSet object to specify the life distribution, life-stress relationship and other analysis settings.

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. 
  Call ADS.AddFailure_2(100, 1, 190)
  Call ADS.AddFailure_2(120, 1, 190)
  Call ADS.AddFailure_2(130, 1, 235)
  Call ADS.AddFailure_2(140, 1, 235)

 'Analyze the data set, 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)

 'Analyze the data set, 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)