ALTADataSet.AddStressProfile

 Other Versions: Version 10

Adds a cProfile object, which represents a time-dependent stress profile, to the data set. Applies to the cumulative damage (CD) model only.

Syntax
.AddStressProfile(Profile)

Parameters
Profile
 * Required. The cProfile object.

Example
The following example demonstrates how to analyze an ALTA data set with a stress profile.

VBA myResource cProfile myResource.Name = myResource.ProfileType = ProfileTypeEnum_Stress myResource.IsCyclical = True segment ProfileSegment listOfSegments(2) ProfileSegment segment = ProfileSegment segment.SegmentEnd = 1 segment.Value = 100 listOfSegments(0) = segment segment = ProfileSegment segment.SegmentEnd = 2 segment.Value = 120 listOfSegments(1) = segment segment = ProfileSegment segment.SegmentEnd = 3 segment.Value = 150 listOfSegments(2) = segment myResource.SetSegments listOfSegments ADS ALTADataSet ADS.AddStressDefinition(,,100) ADS.AddStressProfile(myResource) ADS.AddFailure_2(61, 1, myResource) ADS.AddFailure_2(75, 1, myResource) ADS.AddFailure_2(90, 1, myResource) ADS.AddFailure_2(95, 1, myResource) ADS.AddFailure_2(100, 1, myResource) ADS.AnalysisSettings.ModelType = ALTASolverModel_CumDamage ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull ADS.Calculate MsgBox( & ADS.FittedModel.Reliability(50))

VB.NET myResource SynthesisAPI.cProfile myResource.ProfileType = SynthesisAPI.ProfileTypeEnum.Stress myResource.IsCyclical = True listOfSegments SynthesisAPI.ProfileSegment = _ { SynthesisAPI.ProfileSegment {.SegmentEnd = 1, .Value = 100}, _ SynthesisAPI.ProfileSegment {.SegmentEnd = 2, .Value = 120}, _ SynthesisAPI.ProfileSegment {.SegmentEnd = 3, .Value = 150}} myResource.SetSegments(listOfSegments) ADS SynthesisAPI.ALTADataSet ADS.AddStressDefinition(,,100) ADS.AddStressProfile(myResource) 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) ADS.AnalysisSettings.ModelType = SynthesisAPI.ALTASolverModel.CumDamage ADS.AnalysisSettings.Distribution = SynthesisAPI.ALTASolverDistribution.Weibull ADS.Calculate MsgBox( & ADS.FittedModel.Reliability(50))