cModel Class

From ReliaWiki
Jump to navigation Jump to search



The model class allows you to represent probabilities, durations or costs, either fixed or time-dependent. It also contains methods for accessing the calculations performed with the Quick Calculation Pad (QCP).

Constructors

Methods

Set/Return Model Properties

Set the Use Stress for ALTA Calculations

Standard Calculations

Confidence Bound Calculations

Properties

  • Name (as string) Gets or sets the name of the model.
  • ID (as string) Gets the numerical ID of the model.
  • ProjectID (as integer) Gets the numerical ID of the project the model belongs to.
  • Type (as ModelTypeEnum) Gets the model type (e.g., 2-parameter Weibull).
  • Category (as ModelCategoryEnum) Gets the model category (e.g., reliability).
  • Designation (as string) Gets a string representing the model type (for example "2P-Weibull").
  • ErrorHappened (as boolean) Whether or not the last calculation produced an error.
  • ConfLevel (as double) Gets the confidence level that is currently used for calculations.
  • NumStresses (as integer) Gets the number of stresses in the model.

Usage Example

 'Declare the WeibullDataSet. See WeibullDataSet Constructors. 
 Dim WDS as New WeibullDataSet
 
 'Add values to the raw data. See AddFailure. 
 WDS.AddFailure(10, 1)
 WDS.AddFailure(20, 1)
 WDS.AddFailure(30, 1)
 
 'Calculate the fitted model using default settings. See Calculate.  
 WDS.Calculate
 
 'Assign the fitted model to a variable. See FittedModel. 
 Dim WDSFittedModel as cModel
 WDSFittedModel = WDS.FittedModel
 
 'Calculate the reliability at time = 50 and save result. See Reliability. 
 Dim Rel as Double
 Rel = WDSFittedModel.Reliability(50)
 
 'Set the confidence bound settings. See SetConfidenceLevel. 
 Dim Success as Boolean
 Dim ErrorMsg as String
 Success = WDSFittedModel.SetConfidenceLevel(90, ConfBoundsSides.TwoSidedBoth, False, ErrorMsg)
 
 'Save the calculated bounds as a BoundsValues object. See Bounds_Reliability. 
 Dim RelBounds as BoundsValues
 RelBounds = Bounds_Reliability( Double, [Double], [Double] )  
 
 'Save the lower bound value See BoundsValues. 
 Dim RelLowerBound as Double
 RelLowerBound = RelBounds.Lower