Follow

How can I add a fit curve to a line/scatter plot in Grapher via automation?

This article contains a sample script for creating a line/scatter plot and adding various types of fit curves.

To run this script:

  1. Copy the script below, or click here to download the BAS file: Fits.BAS.
  2. In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 12\Scripter.
  3. Double click on Scripter.exe to launch Scripter.
  4. Press Ctrl+A to select all of the existing lines then press Delete.
  5. If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
  6. Click Script | Run to run the script.
     

*********

Sub Main

 Dim GrapherApp As Object
 Set GrapherApp = CreateObject("Grapher.Application")

 GrapherApp.Visible = True
 Dim Docs As Object
 Set Docs = GrapherApp.Documents

 Dim Plot As Object
 Set Plot = Docs.Add(grfPlotDoc)
 Dim Shapes As Object
 Set Shapes = Plot.Shapes

 Set Graph = Shapes.AddLinePlotGraph(GrapherApp.Path+"\samples\tutorial.dat")

 Dim ScatterPlot As Object
 Set ScatterPlot = Graph.Plots.Item(1)

ScatterPlot.symbolFreq = 1
ScatterPlot.symbol.Index = 38
ScatterPlot.symbol.size = 0.35
ScatterPlot.symbol.color = RGB(255,0,0)
ScatterPlot.symbol.lineColor = grfColorBlue

ScatterPlot.line.style("invisible")

Set FitPolynomial = Graph.Plots(1).AddFit(grfPolynomialFit)
FitPolynomial.Option=4
FitPolynomial.line.foreColor(grfColorGreen)
FitPolynomial.line.width=0.03

Set FitSpline = Graph.Plots(1).AddFit(grfSplineFit)
FitSpline.line.foreColor(grfColorCyan)
FitSpline.line.width=0.03
FitSpline.Option=15


Set FitRunningAvg = Graph.Plots(1).AddFit(grfRunningAvgFit)
FitRunningAvg.line.foreColor(grfColorMagenta)
FitRunningAvg.line.width=0.03
FitRunningAvg.Option=9


Set FitWeightedAvg = Graph.Plots(1).AddFit(grfWeightedAvgFit)
FitWeightedAvg.line.foreColor(grfColorYellow)
FitWeightedAvg.line.width=0.03
FitWeightedAvg.Option=3

End Sub

 

Updated October 25, 2016

Was this article helpful?
0 out of 0 found this helpful
Have more questions? Submit a request

0 Comments

Please sign in to leave a comment.