User:Kate Racaza/test page2: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) No edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
Line 23: | Line 23: | ||
WDS.AddFailure(75, 1) | WDS.AddFailure(75, 1) | ||
WDS.AddFailure(93, 1) | WDS.AddFailure(93, 1) | ||
{{APIComment|'Add four suspensions to the data set.}} | {{APIComment|'Add four suspensions to the data set.}} | ||
WDS.AddSuspension(120, | WDS.AddSuspension(120, 5) | ||
{{APIComment|'Use the 2-parameter Weibull distribution with the rank regression on X (RRX) analysis method.}} | {{APIComment|'Use the 2-parameter Weibull distribution with the rank regression on X (RRX) analysis method.}} | ||
Line 41: | Line 40: | ||
model = WDS.FittedModel | model = WDS.FittedModel | ||
{{APIComment|'Using the model, calculate the | {{APIComment|'Using the model, calculate the probability of failure at 226 hrs and display the result.}} | ||
{{APIPrefix|Dim}} r {{APIPrefix|As}} Double | {{APIPrefix|Dim}} r {{APIPrefix|As}} Double | ||
r = model. | r = model.unreliability(226) | ||
MsgBox({{APIString|" | MsgBox({{APIString|"Prob. Fail: "}} & r) | ||
{{APIPrefix|End Sub}} | {{APIPrefix|End Sub}} | ||
{{APIPrefix|End Module}} | {{APIPrefix|End Module}} |
Revision as of 23:28, 10 May 2016
DRAFT
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) 'Add four suspensions to the data set. WDS.AddSuspension(120, 5) '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 probability of failure at 226 hrs and display the result. Dim r As Double r = model.unreliability(226) MsgBox("Prob. Fail: " & r) End Sub End Module