User:Kate Racaza/test page2

DRAFT

<< Back to Tutorials Main Page

xxx

Tutorial: Life Data Analysis

The following example demonstrates how to define a Weibull++ data set, fit a life distribution to the data and obtain analysis results from the model. A discussion of the example follows.

VB.NET

Imports SynthesisAPI 

Module Module1
   Sub Main()

  'Declare a new WeibullDataSet object.  
   Dim WDS As New WeibullDataSet
  
  'Add the failure times to the data set. 
   WDS.AddFailure(16, 1)
   WDS.AddFailure(34, 1)
   WDS.AddFailure(53, 1)  
   WDS.AddFailure(75, 1)
   WDS.AddFailure(93, 1)
   WDS.AddFailure(120, 1)
  
  'Add four suspensions to the data set. 
   WDS.AddSuspension(120, 4)   

  'Use the 2-parameter Weibull distribution with the rank regression on X (RRX) analysis method. 
  'Keep all other analysis settings at default. 
   WDS.AnalysisSettings.Distribution = WeibullSolverDistribution.Weibull
   WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters.MS_2Parameter
   WDS.AnalysisSettings.Analysis = WeibullSolverMethod.RRX
 
  'Analyze the data set. 
   WDS.Calculate()
  
  'Retrieve the fitted life distribution model. 
   Dim model As cModel
   model = WDS.FittedModel

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

   End Sub
End Module