WeibullDataSet.Calculate: Difference between revisions
Jump to navigation
Jump to search
Chris Kahn (talk | contribs) No edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
(27 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
{{Template: | {{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}} | ||
<onlyinclude>Fits a life distribution to the current data set and creates a [[CModel Class|cModel]] object that represents the fitted model.</onlyinclude> | |||
'''Remarks''': To specify the distribution, parameter estimation method and other analysis settings, use the <code>AnalysisSettings</code> and <code>GeneralSettings</code> properties of the object. To return the <code>cModel</code> object that is produced, use the <code>FittedModel</code> property of the <code>WeibullDataSet</code> object. | |||
== Syntax == | |||
'''.Calculate | |||
{{APIComment|Calculate the WeibullDataSet.}} | |||
== Example == | |||
'''VBA''' | |||
{{APIComment|'Declare a new WeibullDataSet object.}} | |||
{{APIPrefix|Dim}} WDS {{APIPrefix|As New}} WeibullDataSet | |||
{{APIComment|'Add failure times to the data set.}} | |||
{{APIPrefix|Call}} WDS.AddFailure(100, 1) | |||
{{APIPrefix|Call}} WDS.AddFailure(120, 1) | |||
{{APIPrefix|Call}} WDS.AddFailure(130, 1) | |||
{{APIComment|'Set the life distribution. Leave all other settings at default.}} | |||
WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull | |||
WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter | |||
{{APIComment|'Analyze the data set.}} | |||
WDS.Calculate() | |||
{{APIComment|'Calculate the reliability at 100 hrs and display the result.}} | |||
{{APIPrefix|Dim}} r {{APIPrefix|As}} Double | |||
r = WDS.FittedModel.Reliability(100) | |||
MsgBox({{APIString|"Reliability at 100 hrs: "}} & r) | |||
'''VB.NET''' | |||
{{APIComment|'Declare a new WeibullDataSet object.}} | |||
{{APIPrefix|Dim}} WDS {{APIPrefix|As New}} WeibullDataSet | |||
{{APIComment|'Add failure times to the data set.}} | |||
WDS.AddFailure(100, 1) | |||
WDS.AddFailure(120, 1) | |||
WDS.AddFailure(130, 1) | |||
{{APIComment|'Set the life distribution. Leave all other settings at default.}} | |||
WDS.AnalysisSettings.Distribution = WeibullSolverDistribution.Weibull | |||
WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters.MS_2Parameter | |||
{{APIComment|'Analyze the data set.}} | |||
WDS.Calculate() | |||
{{APIComment|'Calculate the reliability at 100 hrs and display the result.}} | |||
{{APIPrefix|Dim}} r {{APIPrefix|As}} Double | |||
r = WDS.FittedModel.Reliability(100) | |||
MsgBox({{APIString|"Reliability at 100 hrs: "}} & r) |
Latest revision as of 22:23, 4 May 2017
Member of: SynthesisAPI.WeibullDataSet
Fits a life distribution to the current data set and creates a cModel object that represents the fitted model.
Remarks: To specify the distribution, parameter estimation method and other analysis settings, use the AnalysisSettings
and GeneralSettings
properties of the object. To return the cModel
object that is produced, use the FittedModel
property of the WeibullDataSet
object.
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. Leave all other settings at default. WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter 'Analyze the data set. WDS.Calculate() 'Calculate the reliability at 100 hrs and display the result. Dim r As Double r = WDS.FittedModel.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. Leave all other settings at default. WDS.AnalysisSettings.Distribution = WeibullSolverDistribution.Weibull WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters.MS_2Parameter 'Analyze the data set. WDS.Calculate() 'Calculate the reliability at 100 hrs and display the result. Dim r As Double r = WDS.FittedModel.Reliability(100) MsgBox("Reliability at 100 hrs: " & r)