ヒューリンクステクニカルサポート

SigmaPlot 製品ページ

更新日： 16/01/29

FitItem オブジェクト

FitItem オブジェクトは、SigmaPlot の方程式と方程式コードの全てのパラメーターと設定内容が該当します。FitItem オブジェクトを使えば、回帰曲線をプロットするだけでなく、その他の非線形カーブフィッティングを実行したり、関数のプロットや解を求めることができます。FitItem の結果にアクセスするには、FitResults オブジェクトを取得します。

FitItem オブジェクトを使用する

FitItem オブジェクトには、ノートブックアイテムの標準的なプロパティとメソッドが用意されています。FitItem オブジェクトを取得するには、NotebookItems コレクションの Item プロパティからコレクションインデックスを使用します。また、作成する場合は、NotebookItems コレクションの Add メソッドを使用します。FitItem オブジェクトには、ItemType プロパティが用意されており、NotebookItems.Add メソッドで指定する値は 6 になります。

Example

• 以下に示すサンプルは、ワークシート "Data to Fit" にある3番目と4番目の列データを使用して線形回帰モデルを当てはめるものです。同じノートブックに出力レポートとモデルグラフが追加されます。当てはめの結果は、6番目、7番目、８番目の列に格納され、その内容に関するタイトルがそれぞれの列に追加されます。

  ActiveDocument.NotebookItems.Item("Data To Fit").Open
  Dim Selection(3)
  Selection(0) = 2
  Selection(1) = 0
  Selection(2) = 3
  Selection(3) = &H7FFFFFF
  ActiveDocument.NotebookItems.Item("Data To Fit").SelectionExtent = Selection
  
  Dim MyFit As Object
  Set MyFit = ActiveDocument.NotebookItems.Add(SigmaPlot.CT_FIT)
  MyFit.Visible = False
  MyFit.DatasetType = CF_XYPAIR
  MyFit.Variable("x") = "col(3)"
  MyFit.Variable("y") = "col(4)"
  MyFit.Equation("f") = "a*x+b"
  MyFit.DependentVariableName = "y"
  MyFit.Parameter("a") = 1
  MyFit.Parameter("b") = 1
  
  Dim bConverged As Boolean
  bConverged = MyFit.Run
  If bConverged = False Then
  MsgBox("Failed to converge")
  End If
  
  MyFit.OutputReport=True
  MyFit.OutputEquation=False
  MyFit.OutputGraph = True
  
  MyFit.PredictedColumn=5
  MyFit.ResidualsColumn=6
  MyFit.ParametersColumn=7
  
  MyFit.Finish
  
  Dim colname(3) As String
  colname(1)="Predicted"
  colname(2)="Residuals"
  colname(3)="Estimates"
  For i=1 to 3
  ActiveDocument.CurrentDataItem.DataTable.NamedRanges.Add(colname(i),i+4,0,1,-1)
  Next i