Talk:ALTADataSet.AddStressProfile/Notes: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) (Created page with '===Parameters=== ''Profile'' :Required. The cProfile object. ==Example== The following example demonstrates how to analyze an ALTA data set with a stress pro…') |
Kate Racaza (talk | contribs) No edit summary |
||
Line 17: | Line 17: | ||
{{APIComment|'Define two segments for the profile.}} | {{APIComment|'Define two segments for the profile.}} | ||
{{APIPrefix|Dim}} segment {{APIPrefix|As}} ProfileSegment | {{APIPrefix|Dim}} segment {{APIPrefix|As}} ProfileSegment | ||
{{APIPrefix|Dim}} listOfSegments( | {{APIPrefix|Dim}} listOfSegments(2) {{APIPrefix|As}} ProfileSegment | ||
{{APIPrefix|Set}} segment = {{APIPrefix|New}} ProfileSegment | {{APIPrefix|Set}} segment = {{APIPrefix|New}} ProfileSegment | ||
segment.SegmentEnd = 1 | segment.SegmentEnd = 1 | ||
segment.Value = | segment.Value = 100 | ||
{{APIPrefix|Set}} listOfSegments(0) = segment | {{APIPrefix|Set}} listOfSegments(0) = segment | ||
{{APIPrefix|Set}} segment = {{APIPrefix|New}} ProfileSegment | {{APIPrefix|Set}} segment = {{APIPrefix|New}} ProfileSegment | ||
segment.SegmentEnd = 2 | segment.SegmentEnd = 2 | ||
segment.Value = | segment.Value = 120 | ||
{{APIPrefix|Set}} listOfSegments(1) = segment | {{APIPrefix|Set}} listOfSegments(1) = segment | ||
{{APIPrefix|Set}} segment = {{APIPrefix|New}} ProfileSegment | |||
segment.SegmentEnd = 3 | |||
segment.Value = 150 | |||
{{APIPrefix|Set}} listOfSegments(2) = segment | |||
{{APIComment|'Add the segments to the profile.}} | {{APIComment|'Add the segments to the profile.}} | ||
Line 35: | Line 40: | ||
{{APIPrefix|Dim}} ADS {{APIPrefix|As New}} ALTADataSet | {{APIPrefix|Dim}} ADS {{APIPrefix|As New}} ALTADataSet | ||
{{APIComment|'Define a stress type, with use stress = | {{APIComment|'Define a stress type, with use stress = 100.}} | ||
{{APIPrefix|Call}} ADS.AddStressDefinition({{APIString|" | {{APIPrefix|Call}} ADS.AddStressDefinition({{APIString|"Temperature"}},,100) | ||
{{APIComment|'Add the stress profile to the ALTADataSet object.}} | {{APIComment|'Add the stress profile to the ALTADataSet object.}} | ||
Line 67: | Line 72: | ||
{{APIComment|'Define two segments for the profile.}} | {{APIComment|'Define two segments for the profile.}} | ||
{{APIPrefix|Dim}} listOfSegments() {{APIPrefix|As}} SynthesisAPI.ProfileSegment = _ | {{APIPrefix|Dim}} listOfSegments() {{APIPrefix|As}} SynthesisAPI.ProfileSegment = _ | ||
{{{APIPrefix|New}} SynthesisAPI.ProfileSegment {{APIPrefix|With}} {.SegmentEnd = 1, .Value = | {{{APIPrefix|New}} SynthesisAPI.ProfileSegment {{APIPrefix|With}} {.SegmentEnd = 1, .Value = 100}, _ | ||
{{APIPrefix|New}} SynthesisAPI.ProfileSegment {{APIPrefix|With}} {.SegmentEnd = 2, .Value = | {{APIPrefix|New}} SynthesisAPI.ProfileSegment {{APIPrefix|With}} {.SegmentEnd = 2, .Value = 120}, _ | ||
{{APIPrefix|New}} SynthesisAPI.ProfileSegment {{APIPrefix|With}} {.SegmentEnd = 3, .Value = 150}} | |||
{{APIComment|'Add the segments to the profile.}} | {{APIComment|'Add the segments to the profile.}} | ||
Line 76: | Line 82: | ||
{{APIPrefix|Dim}} ADS {{APIPrefix|As New}} SynthesisAPI.ALTADataSet | {{APIPrefix|Dim}} ADS {{APIPrefix|As New}} SynthesisAPI.ALTADataSet | ||
{{APIComment|'Define a stress type, with use stress = | {{APIComment|'Define a stress type, with use stress = 100.}} | ||
ADS.AddStressDefinition({{APIString|" | ADS.AddStressDefinition({{APIString|"Temperature"}},,100) | ||
{{APIComment|'Add the stress profile to the ALTADataSet object.}} | {{APIComment|'Add the stress profile to the ALTADataSet object.}} |
Revision as of 20:42, 4 October 2016
Parameters
Profile
- Required. The cProfile object.
Example
The following example demonstrates how to analyze an ALTA data set with a stress profile.
VBA 'Create a new resource profile and define its properties. Dim myResource As New cProfile myResource.Name = "SampleProfile" myResource.ProfileType = ProfileTypeEnum_Stress myResource.IsCyclical = True 'Define two segments for the profile. Dim segment As ProfileSegment Dim listOfSegments(2) As ProfileSegment Set segment = New ProfileSegment segment.SegmentEnd = 1 segment.Value = 100 Set listOfSegments(0) = segment Set segment = New ProfileSegment segment.SegmentEnd = 2 segment.Value = 120 Set listOfSegments(1) = segment Set segment = New ProfileSegment segment.SegmentEnd = 3 segment.Value = 150 Set listOfSegments(2) = segment 'Add the segments to the profile. myResource.SetSegments listOfSegments 'Declare an ALTADataSet object. Dim ADS As New ALTADataSet 'Define a stress type, with use stress = 100. Call ADS.AddStressDefinition("Temperature",,100) 'Add the stress profile to the ALTADataSet object. Call ADS.AddStressProfile(myResource) 'Add failure times to the data set. Call ADS.AddFailure_2(61, 1, myResource) Call ADS.AddFailure_2(75, 1, myResource) Call ADS.AddFailure_2(90, 1, myResource) Call ADS.AddFailure_2(95, 1, myResource) Call ADS.AddFailure_2(100, 1, myResource) 'Use the cumulative damage model with the Weibull distribution. ADS.AnalysisSettings.ModelType = ALTASolverModel_CumDamage ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull 'Calculate results. Call ADS.Calculate() 'Calculate the reliability at 50 hours and display the result. MsgBox("Reliability: " & ADS.FittedModel.Reliability(50))
VB.NET 'Create a new resource profile and define its properties. Dim myResource As New SynthesisAPI.cProfile("SampleProfile") myResource.ProfileType = SynthesisAPI.ProfileTypeEnum.Stress myResource.IsCyclical = True 'Define two segments for the profile. Dim listOfSegments() As SynthesisAPI.ProfileSegment = _ {New SynthesisAPI.ProfileSegment With {.SegmentEnd = 1, .Value = 100}, _ New SynthesisAPI.ProfileSegment With {.SegmentEnd = 2, .Value = 120}, _ New SynthesisAPI.ProfileSegment With {.SegmentEnd = 3, .Value = 150}} 'Add the segments to the profile. myResource.SetSegments(listOfSegments) 'Declare an ALTADataSet object. Dim ADS As New SynthesisAPI.ALTADataSet 'Define a stress type, with use stress = 100. ADS.AddStressDefinition("Temperature",,100) 'Add the stress profile to the ALTADataSet object. ADS.AddStressProfile(myResource) 'Add failure times to the data set. ADS.AddFailure(61, 1, myResource) ADS.AddFailure(75, 1, myResource) ADS.AddFailure(90, 1, myResource) ADS.AddFailure(95, 1, myResource) ADS.AddFailure(100, 1, myResource) 'Use the cumulative damage model with the Weibull distribution. ADS.AnalysisSettings.ModelType = SynthesisAPI.ALTASolverModel.CumDamage ADS.AnalysisSettings.Distribution = SynthesisAPI.ALTASolverDistribution.Weibull 'Calculate results. ADS.Calculate() 'Calculate the reliability at 50 hours and display the result. MsgBox("Reliability: " & ADS.FittedModel.Reliability(50))