# cModel.Bounds FailureRate

Jump to navigation
Jump to search

**Member of**: SynthesisAPI.cModel

Calculates the bounds on the failure rate at a specified time for an associated cModel object. Returns a **BoundsValues** object that represents the confidence bounds.

**Remarks**: Use the SetConfidenceLevel method to specify the confidence bound settings, and then use this method to perform the calculations. This method applies to published models only. Returns nothing if the calculation is performed on a non-published model.

## Syntax

.Bounds_FailureRate(Time,CurrentAge,DutyCycle)

### Parameters

*Time*

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

*CurrentAge*

- Optional. Double. The current age. Default value = 0.

*DutyCycle*

- Optional. Double. The duty cycle. Default value = 1.

## Example

This example assumes that a published model with ID #47 exists in the repository.

VBA... 'Get model ID #47 from project ID #1 in the repository. Dim AModel As cModel MyRepository.Project.SetCurrentProject(1) Set AModel = MyRepository.Model.GetModel(47) '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... 'Get model ID #47 from project ID #1 in the repository. Dim AModel As cModel MyRepository.Project.SetCurrentProject(1) AModel = MyRepository.Model.GetModel(47) '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)