public static CFviLine FitLine(
	DPNT_T_ARRAY points,
	FitMode fit_mode,
	double param
)

Public Shared Function FitLine ( 
	points As DPNT_T_ARRAY,
	fit_mode As FitMode,
	param As Double
) As CFviLine

using System;
using System.Collections.Generic;
using System.Text;
using fvalgcli;

namespace User.SampleCode
{
    public partial class CG
    {
        /// <summary>
        /// 点群からの直線近似.
        /// </summary>
        [FvPluginExecute]
        public void FitLine()
        {
            try
            {
                double a = 1.0;
                double b = 0.5;
                double c = -5.0;
                List<FVIL.Data.CFviPoint> srcData = getPoints_Line(a, b, c);

                // 0) 入力点群の準備.
                FVIL.DPNT_T_ARRAY points = new FVIL.DPNT_T_ARRAY();
                points.Resize(srcData.Count);

                fvalgcli.DPNT_T_PTR ptr = points.Address;
                for (int i = 0; i < points.Count; i++)
                {
                    ptr[0] = fvalgcli.DPNT_T.init(srcData[i].X, srcData[i].Y);
                    ptr += 1;
                }

                // 1) 処理実行.
                FVIL.Data.CFviLine line = FVIL.CG.Function.FitLine(points, FVIL.CG.FitMode.MESTIMATOR, 1.645);

                // E) 確認.
                Console.Out.WriteLine("-- Line");
                Console.Out.WriteLine(" Source... a = {0:f}, b = {1:f}, c = {2:f}",
                    a, b, c);
                Console.Out.WriteLine(" Result...  a = {0:f}, b = {1:f}, c = {2:f}",
                    line.a, line.b, line.c);
            }
            catch (FVIL.CFviException ex)
            {
                Assert.Fail("{0}: ErrorCode={1} {2}", ex.Function, ex.ErrorCode, ex.Message);
            }
        }

        /// <summary>
        /// 直線上の点を取得します.
        /// </summary>
        /// <param name="a"></param>
        /// <param name="b"></param>
        /// <param name="c"></param>
        /// <returns></returns>
        private List<FVIL.Data.CFviPoint> getPoints_Line(    double a,
                                                            double b,
                                                            double c )
        {
            List<FVIL.Data.CFviPoint> list = new List<FVIL.Data.CFviPoint>(5);

            for (int i = 0; i < 5; i++)
            {
                list.Add(new FVIL.Data.CFviPoint(i, -1 * (a * i + c) / b));
            }

            return list;
        }
    }
}

Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli

Namespace SampleCode
    Public Partial Class CG
        ''' <summary>
        ''' 点群からの直線近似.
        ''' </summary>
        <FvPluginExecute> _
        Public Sub FitLine()
            Try
                Dim a As Double = 1.0
                Dim b As Double = 0.5
                Dim c As Double = -5.0
                Dim srcData As List(Of FVIL.Data.CFviPoint) = getPoints_Line(a, b, c)

                ' 0) 入力点群の準備.
                Dim points As New FVIL.DPNT_T_ARRAY()
                points.Resize(srcData.Count)

                Dim ptr As fvalgcli.DPNT_T_PTR = points.Address
                For i As Integer = 0 To points.Count - 1
                    ptr(0) = fvalgcli.DPNT_T.init(srcData(i).X, srcData(i).Y)
                    ptr += 1
                Next

                ' 1) 処理実行.
                Dim line As FVIL.Data.CFviLine = FVIL.CG.[Function].FitLine(points, FVIL.CG.FitMode.MESTIMATOR, 1.645)

                ' E) 確認.
                Console.Out.WriteLine("-- Line")
                Console.Out.WriteLine(" Source... a = {0:f}, b = {1:f}, c = {2:f}", a, b, c)
                Console.Out.WriteLine(" Result...  a = {0:f}, b = {1:f}, c = {2:f}", line.a, line.b, line.c)
            Catch ex As FVIL.CFviException
                Assert.Fail("{0}: ErrorCode={1} {2}", ex.[Function], ex.ErrorCode, ex.Message)
            End Try
        End Sub

        ''' <summary>
        ''' 直線上の点を取得します.
        ''' </summary>
        ''' <param name="a"></param>
        ''' <param name="b"></param>
        ''' <param name="c"></param>
        ''' <returns></returns>
        Private Function getPoints_Line(a As Double, b As Double, c As Double) As List(Of FVIL.Data.CFviPoint)
            Dim list As New List(Of FVIL.Data.CFviPoint)(5)

            For i As Integer = 0 To 4
                list.Add(New FVIL.Data.CFviPoint(i, -1 * (a * i + c) / b))
            Next

            Return list
        End Function
    End Class
End Namespace