WAPlots Class: Difference between revisions

Revision as of 17:40, 28 April 2014

Main Page

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 a times-to-failure data set to a life distribution and then use the fitted distribution to create a plot. Full application examples are available at Synthesis_API_Reference#Application_Examples.

 'Initialize a new WeibullDataSet object. See WeibullDataSet. 
 Dim ADS As New WeibullDataSet("DataSet1")
 
 'Set the life distribution. 
 WDS.AnalysisSettings.Distribution = WeibullSolverDistribution.Weibull
 WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters.MS_2Parameter
 
 'Set the 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 the 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 a WAPlots object. 
 Dim WeibullALTAPlot As New WAPlots
 
 'Initialize 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
 
 '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 of a reliability vs. time plot and save 
 'it in PlotPicture using the customized plot settings. 
 PlotPicture = WeibullALTAPlot.CreatePlot(WAPlotType.Reliability, NewPlotSettings)

@@ Line 57: / Line 57: @@
    WDS.Calculate()
-  {{APIComment|'Create a WAPlots object. See [[WAPlots Class|WAPlots]].}}
+  {{APIComment|'Create a WAPlots object.}}
    Dim WeibullALTAPlot As New WAPlots