CModel.Bounds FailureRate: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 31: Line 31:
  {{APIComment|'Set the confidence level to 90% two-sided bounds.}}
  {{APIComment|'Set the confidence level to 90% two-sided bounds.}}
   {{APIPrefix|Dim}} ErrorMsg {{APIPrefix|As}} String
   {{APIPrefix|Dim}} ErrorMsg {{APIPrefix|As}} String
   {{APIPrefix|Call}}AModel.SetConfidenceLevel(0.9, ConfBoundsSides_TwoSidedBoth, False, ErrorMsg)
   {{APIPrefix|Call}} AModel.SetConfidenceLevel(0.9, ConfBoundsSides_TwoSidedBoth, False, ErrorMsg)
   
   
  {{APIComment|'Calculate the bounds on the model's failure rate at time = 100.}}
  {{APIComment|'Calculate the bounds on the model's failure rate at time = 100.}}

Revision as of 21:01, 29 July 2015

APIWiki.png


Member of: SynthesisAPI9.cModel


Calculates the bounds on the failure rate at the specified time. Returns a BoundsValues object array that contains the result(s).

You must first use the SetConfidenceLevel method to specify the confidence bound settings, and then use this method to perform the calculations.

Syntax

.Bounds_FailureRate( Time, CurrentAge, DutyCycle) 

Parameters

Time

Double. The time at which to calculate the failure rate. (Required)

CurrentAge

Double. The current age. Default value = 0. (Optional)

DutyCycle

Double. The duty cycle. Default value = 1. (Optional)


Example

VBA

 ... 

 'Add code to get an existing model or create a new one. 
 Dim AModel As New cModel
 ... 
 
 'Set the confidence level to 90% two-sided bounds. 
 Dim ErrorMsg As String
 Call AModel.SetConfidenceLevel(0.9, ConfBoundsSides_TwoSidedBoth, False, ErrorMsg)

 'Calculate the bounds on the model's failure rate at time = 100. 
 Dim ResultValue As BoundsValues
 Set ResultValue = AModel.Bounds_FailureRate(100)

 'Output sample: Display the results for the upper and lower confidence bounds. 
 MsgBox (" Upper bound: " & ResultValue.Upper & ", Lower bound: " & ResultValue.Lower)
VB.NET

 ... 

 'Add code to get an existing model or create a new one. 
 Dim AModel As New cModel
 ... 
 
 'Set the confidence level to 90% two-sided bounds. 
 Dim ErrorMsg As String
 AModel.SetConfidenceLevel(0.9, ConfBoundsSides.TwoSidedBoth, False, ErrorMsg)

 'Calculate the bounds on the model's failure rate at time = 100. 
 Dim ResultValue As BoundsValues
 ResultValue = AModel.Bounds_FailureRate(100)

 'Output sample: Display the results for the upper and lower confidence bounds. 
 MsgBox (" Upper bound: " & ResultValue.Upper & ", Lower bound: " & ResultValue.Lower)