CModel.SetUseStress: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
mNo edit summary
 
(6 intermediate revisions by the same user not shown)
Line 1: Line 1:
{{DISPLAYTITLE:cModel.SetUseStress}}
{{DISPLAYTITLE:cModel.SetUseStress}}{{Template:API}}{{Template:APIBreadcrumb|.[[CModel Class|cModel]]}}
{{Template:APIClass|cModel Class|cModel}}  
 
Updates the use stress level for one or multiple stresses.
 
<onlyinclude>For ALTA models only. Specifies the use stress level(s) to use for calculations.</onlyinclude>


== Syntax ==
== Syntax ==
*SetUseStress( Index {{APIPrefix|As Integer}}, StressValue{{APIPrefix|As Double}}) {{APIComment|{{Template:CModel.SetUseStress1}}}}
*SetUseStress( StressValues() {{APIPrefix|As Double}}) {{APIComment|{{Template:CModel.SetUseStress2}}}}


Parameters
'''VBA'''
:''Index'': The 0-based index of the stress for which the use stress level will be updated.
 
:''StressValue'': The value to use for the new use stress level.
'''.SetUseStress'''(''Index'', ''StressValue'')
:''StressValues'': An array of new use stress values that correspond to the array of stresses in the model (e.g., the first stress value will become the use stress level for the first stress).
'''.SetUseStress_2'''(''StressValues()'')
 
'''VB.NET'''
'''.SetUseStress'''(''Index'', ''StressValue'')
'''.SetUseStress'''(''StressValues()'')
===Parameters===
''Index''
:Required. Integer. The 0-based index of the stress (e.g., the first stress in the model has an index = 0, the second stress has an index = 1, etc.).


== Usage Example ==
''StressValue''
  {{APIComment|'Declare a new repository connection object. See [[Repository Class|Repository]].}}
:Required. Double. The value to use for the use stress level.
  Dim MyRepository As New Repository
 
''StressValues()''
:Required. Double. An array of the use stress values. The order of the elements in the array correspond to the order of the stresses in the model (e.g., the first element of the array defines the use stress value of the first stress in the model, etc.)
 
 
== Example ==
This example assumes that an ALTA model with ID #47 exists in project ID #1 of a repository.
 
'''VBA'''
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
    
    
  {{APIComment|'Connect to the Synthesis repository.}}
  {{APIComment|'Get ALTA model #47 from project #1.}}
  Dim Success As Boolean = False
  {{APIPrefix|Dim}} AModel {{APIPrefix|As}} cModel
  Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
  MyRepository.Project.SetCurrentProject(1) 
 
  {{APIPrefix|Set}} AModel = MyRepository.Model.GetModel(47)
  {{APIComment|'Get the list of projects in the connected repository.}}
  Dim ListOfModels() As [[NameIdPair Class|NameIdPair]]
  {{APIComment|'Get the number of stresses in the model.}}
  ListOfModels = MyRepository.GetAllModelsInfo()
  {{APIPrefix|Dim}} MyNumStresses {{APIPrefix|As Integer}}
 
  MyNumStresses = AModel.NumStresses
  {{APIComment|'Select the ID of the model and retrieve it. In this example, the first model is used.}}
  Dim AModel as cModel
{{APIComment|'Assume that the number of stresses in this example is 2.}}
  AModel = MyRepository.GetModel(ListOfModels(0).ID)
{{APIComment|'Set the use stress values for each of the stresses.}}
  {{APIPrefix|Dim}} UseStressArray() {{APIPrefix|As Double}}
  {{APIPrefix|ReDim}} UseStressArray(MyNumStresses)
  UseStressArray(0) = 500
  UseStressArray(1) = 750
  {{APIComment|'Set the use stress values for the model. This is intended for calculations}}
{{APIComment|'only; it does not save the changes to the model in the repository.}}
  {{APIPrefix|Call}} AModel.SetUseStress_2(UseStressArray)
{{APIComment|'Calculations using the specified stress values are now possible. For example,}}
{{APIComment|'the following code returns the model's reliability at 100 hrs}}
{{APIComment|'at the specified use stress levels.}}
  {{APIPrefix|Dim}} ResultValue {{APIPrefix|As Double}}
  ResultValue = AModel.Reliability(100)
  MsgBox(ResultValue)
 
'''VB.NET'''
{{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
    
    
{{APIComment|'Get ALTA model #47 from project #1.}}
  {{APIPrefix|Dim}} AModel {{APIPrefix|As}} cModel
  MyRepository.Project.SetCurrentProject(1) 
  AModel = MyRepository.Model.GetModel(47)
  {{APIComment|'Get the number of stresses in the model.}}
  {{APIComment|'Get the number of stresses in the model.}}
  Dim MyNumStresses As Integer
  {{APIPrefix|Dim}} MyNumStresses {{APIPrefix|As Integer}}
  MyNumStresses = AModel.NumStresses
  MyNumStresses = AModel.NumStresses  
 
  {{APIComment|'Create an array and specify the use stress values for each of the stresses.}}
  {{APIComment|'Assume that the number of stresses in this example is 2.}}
  {{APIComment|'Assume the MyNumStresses in this example is 2.}}
  {{APIComment|'Set the use stress values for each of the stresses.}}
  Dim UseStressArray(MyNumStresses - 1) As Double
  {{APIPrefix|Dim}} UseStressArray(MyNumStresses-1) {{APIPrefix|As Double}}
  UseStressArray(0) = 500
  UseStressArray(1) = 750
  UseStressArray(0) = 500
 
  UseStressArray(1) = 750
  {{APIComment|'Set the UseStress for the model.}}
  AModel.SetUseStress(UseStressArray)
  {{APIComment|'Set the use stress values for the model. This is intended for calculations}}
{{APIComment|'only; it does not save the changes to the model in the repository.}}
  AModel.SetUseStress(UseStressArray)
{{APIComment|'Calculations using the specified stress values are now possible. For example,}}
{{APIComment|'the following code returns the model's reliability at 100 hrs}}
{{APIComment|'at the specified use stress levels.}}
  {{APIPrefix|Dim}} ResultValue {{APIPrefix|As Double}}
  ResultValue = AModel.Reliability(100)
  MsgBox(ResultValue)

Latest revision as of 21:17, 13 November 2015

APIWiki.png


Member of: SynthesisAPI.cModel


For ALTA models only. Specifies the use stress level(s) to use for calculations.

Syntax

VBA
  
.SetUseStress(Index, StressValue)
.SetUseStress_2(StressValues())

VB.NET

.SetUseStress(Index, StressValue)
.SetUseStress(StressValues())

Parameters

Index

Required. Integer. The 0-based index of the stress (e.g., the first stress in the model has an index = 0, the second stress has an index = 1, etc.).

StressValue

Required. Double. The value to use for the use stress level.

StressValues()

Required. Double. An array of the use stress values. The order of the elements in the array correspond to the order of the stresses in the model (e.g., the first element of the array defines the use stress value of the first stress in the model, etc.)


Example

This example assumes that an ALTA model with ID #47 exists in project ID #1 of a repository. 

VBA

 'Add code to connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  ... 

 
 'Get ALTA model #47 from project #1. 
  Dim AModel As cModel
  MyRepository.Project.SetCurrentProject(1)  
  Set AModel = MyRepository.Model.GetModel(47)

 'Get the number of stresses in the model. 
  Dim MyNumStresses As Integer
  MyNumStresses = AModel.NumStresses 

 'Assume that the number of stresses in this example is 2. 
 'Set the use stress values for each of the stresses. 
  Dim UseStressArray() As Double
  ReDim UseStressArray(MyNumStresses)

  UseStressArray(0) = 500
  UseStressArray(1) = 750

 'Set the use stress values for the model. This is intended for calculations 
 'only; it does not save the changes to the model in the repository. 
  Call AModel.SetUseStress_2(UseStressArray)

 'Calculations using the specified stress values are now possible. For example, 
 'the following code returns the model's reliability at 100 hrs 
 'at the specified use stress levels. 
  Dim ResultValue As Double
  ResultValue = AModel.Reliability(100)
  MsgBox(ResultValue)

VB.NET

 'Add code to connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  ... 

 
 'Get ALTA model #47 from project #1. 
  Dim AModel As cModel
  MyRepository.Project.SetCurrentProject(1)  
  AModel = MyRepository.Model.GetModel(47)

 'Get the number of stresses in the model. 
  Dim MyNumStresses As Integer
  MyNumStresses = AModel.NumStresses 

 'Assume that the number of stresses in this example is 2. 
 'Set the use stress values for each of the stresses. 
  Dim UseStressArray(MyNumStresses-1) As Double

  UseStressArray(0) = 500
  UseStressArray(1) = 750

 'Set the use stress values for the model. This is intended for calculations 
 'only; it does not save the changes to the model in the repository. 
  AModel.SetUseStress(UseStressArray)

 'Calculations using the specified stress values are now possible. For example, 
 'the following code returns the model's reliability at 100 hrs 
 'at the specified use stress levels. 
  Dim ResultValue As Double
  ResultValue = AModel.Reliability(100)
  MsgBox(ResultValue)
Retrieved from "https://www.reliawiki.com/index.php?title=CModel.SetUseStress&oldid=61360"