WeibullDataSet.Calculate: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
mNo edit summary
Line 11: Line 11:


== Example ==
== Example ==
  '''VB.NET'''
  '''VBA'''
   
   
  {{APIComment|'Declare a new WeibullDataSet object.}}  
  {{APIComment|'Declare a new WeibullDataSet object.}}  

Revision as of 21:39, 13 April 2016

APIWiki.png


Member of: SynthesisAPI.WeibullDataSet


Returns a message box that shows the estimated parameters of the life distribution, based on the settings specified in the AnalysisSettings property of the WeibullDataSet object. In addition, it creates a retrievable cModel object that represents the fitted model from the life 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 WeibullDataSet object.  
  Dim WDS As New WeibullDataSet
  
 'Add failure times to the data set. 
  Call WDS.AddFailure(100, 1)
  Call WDS.AddFailure(120, 1)
  Call WDS.AddFailure(130, 1)  
 
 'Set the life distribution. 
  WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull
  WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter
 
 'Fit the data to the life distribution, using all default analysis settings. 
  WDS.Calculate()
  
 'Retrieve the fitted life distribution model. 
  Dim model As cModel
  Set model = WDS.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 WeibullDataSet object.  
  Dim WDS As New WeibullDataSet
  
 'Add failure times to the data set. 
  WDS.AddFailure(100, 1)
  WDS.AddFailure(120, 1)
  WDS.AddFailure(130, 1)  
 
 'Set the life distribution. 
  WDS.AnalysisSettings.Distribution = WeibullSolverDistribution.Weibull
  WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters.MS_2Parameter
 
 'Fit the data to the life distribution, using all default analysis settings. 
  WDS.Calculate()
  
 'Retrieve the fitted life distribution model. 
  Dim model As cModel
  model = WDS.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)