WAPlots Class

Creates a plot based on a fitted model in a WeibullDataSet or ALTADataSet object.

Constructors

• WAPlots Creates a new WAPlots object.

Methods

• AddDataset( WADataSet ) Adds the specified WeibullDataSet or ALTADataSet object that the plot will be based on.
• CreatePlot( WAPlotType, [WAPlotSettings], [Integer], [Integer] ) Returns a bitmap object with the specified plot. Not for use with VB6/VBA.
• CreatePlotVB6( WAPlotType, [WAPlotSettings], [Integer], [Integer] ) Returns an IPicture object with the specified plot. For VBA/VB6 only.
• Clear Removes the added WeibullDataSet/ALTADataSet object. (Required before a new data set can be added.)

Properties

• ErrorHappened (as boolean) Whether an error happened during the creation of the plot.
• ErrorMessage (as string) The error that happened during the creation of the plot. Set only if ErrorHappened is true.

Usage Example

This example demonstrates how to fit five failure times to a life distribution and then use the fitted distribution to create a plot. Full application examples (in VBA) are available at Synthesis_API_Reference#Application_Examples.

 'Initialize a new WeibullDataSet object 
 Dim ADS As New WeibullDataSet("DataSet1")
 
 'Set life distribution 
 WDS.AnalysisSettings.Distribution = WeibullSolverDistribution.Weibull
 WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters.MS_2Parameter
 
 'Set applicable analysis settings 
 WDS.AnalysisSettings.Analysis = WeibullSolverMethod.MLE
 WDS.AnalysisSettings.RankingMethod = WeibullSolverRankMethod.Median
 WDS.AnalysisSettings.UseRSRegression = False
 WDS.AnalysisSettings.ConfBounds = WeibullSolverCBMethod.FisherMatrix
 WDS.AnalysisSettings.SortBeforeCalculations = True
 WDS.AnalysisSettings.UngroupGroupedData = False
 
 'Set Application Setup options  
 WDS.AnalysisSettings.UseSpecialSort = True
 WDS.GeneralSettings.AllowBiasingNormal = False
 WDS.GeneralSettings.DiscardNegLocation = False
 WDS.GeneralSettings.ResetExpLocation = False
 WDS.GeneralSettings.Use3PTrueMLE = False
 WDS.GeneralSettings.UseExtendedGGamma = False
 WDS.GeneralSettings.UsePlottedYPoints = False
 WDS.GeneralSettings.WarnNegLocation = False
 
 'Add failure times 
 WDS.AddFailure(16, 1)
 WDS.AddFailure(34, 1)
 WDS.AddFailure(53, 1)
 WDS.AddFailure(75, 1)
 WDS.AddFailure(93, 1)
 WDS.AddFailure(120, 1)
 
 'Add 4 suspensions 
 WDS.AddFailure(120, 4)
 
 'Fit failure times to the specified distribution 
 WDS.Calculate()
 
 'Create and populate a new WAPlotSettings object with customized plot settings. See WAPlotSettings. 
 Dim NewPlotSettings As New WAPlotSettings
 NewPlotSettings.UserName = User Name
 NewPlotSettings.UserCompany = Company
 NewPlotSettings.AutoscaleX = True
 NewPlotSettings.AutoscaleY = True
 NewPlotSettings.ShowTargetReliability = False
 NewPlotSettings.ShowTargetTime = False
 NewPlotSettings.ShowTargetMarker = False
 NewPlotSettings.ShowSuspensionPoints = True
 NewPlotSettings.ShowLeftCensoredPoints = True
 NewPlotSettings.ShowLinesAroundInterval = True
 NewPlotSettings.AdjustMLEPoints = True
 NewPlotSettings.StraightenGammaLine = True
 NewPlotSettings.ShowNumberInGroup = True
 NewPlotSettings.PlotXPrecision = 3
 NewPlotSettings.PlotyPrecision = 3
 NewPlotSettings.PlotXTolerance = 6
 NewPlotSettings.PlotYTolerance = 6
 NewPlotSettings.ConfBounds_TypesSelected = ConfBoundsTypes.None
 
 'Create a WAPlots object. 
 Dim WeibullALTAPlot As New WAPlots
 
 'Add the WeibullDataSet to the WAPlots object. 
 WeibullALTAPlot.AddDataset(WDS)
 
 'Define an image object to store the plot picture. 
 Dim PlotPicture as Image
 
 'Create an image image of a reliability vs. time plot and save 
 'it in PlotPicture using the customized plot settings. 
 PlotPicture = WeibullALTAPlot.CreatePlot(WAPlotType.Reliability, NewPlotSettings)