ALTADataSet.Calculate

From ReliaWiki
Revision as of 17:40, 19 April 2016 by Kate Racaza (talk | contribs)
Jump to navigation Jump to search
APIWiki.png


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.

If no data set has been defined, the API prompts the user to enter the parameters for the specified distribution.

Syntax

.Calculate()


Example

VBA

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

 'Add failure times for Stress1 = 190. 
  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 = 25. 
  ADS.AddStressDefinition("Stress1",,300)

 'Add failure times for Stress1 = 190. 
  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)