public static CFviEllipse FitEllipse(
	DPNT_T_ARRAY points,
	FitMode fit_mode,
	double param
)

Public Shared Function FitEllipse ( 
	points As DPNT_T_ARRAY,
	fit_mode As FitMode,
	param As Double
) As CFviEllipse

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

namespace User.SampleCode
{
    public partial class CG
    {
        /// <summary>
        /// 点群からの楕円近似.
        /// </summary>
        [FvPluginExecute]
        public void FitEllipse()
        {
            try
            {
                double center_x = 60.0;
                double center_y = 70.0;
                double axis_x = 80.0;
                double axis_y = 40.0;
                double degree = 45.0;
                List<FVIL.Data.CFviPoint> srcData = getPoints_Ellipse(center_x, center_y, axis_x, axis_y, degree);

                // 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.CFviEllipse ellipse = FVIL.CG.Function.FitEllipse(points, FVIL.CG.FitMode.MESTIMATOR, 1.645);

                // E) 確認.
                Console.Out.WriteLine("-- Ellipse");
                Console.Out.WriteLine(" Source... Center = ({0:f},{1:f}), AxisX = {2:f}, AxisY = {3:f} Angle = {4:f}",
                    center_x, center_y, axis_x, axis_y, degree);
                Console.Out.WriteLine(" Result... Center = ({0:f},{1:f}), AxisX = {2:f}, AxisY = {3:f} Angle = {4:f}",
                    ellipse.Center.X, ellipse.Center.Y, ellipse.AxisX, ellipse.AxisY, ellipse.Angle.Degree );
            }
            catch (FVIL.CFviException ex)
            {
                Assert.Fail("{0}: ErrorCode={1} {2}", ex.Function, ex.ErrorCode, ex.Message);
            }
        }

        /// <summary>
        /// 楕円の外周上の点を取得します.
        /// </summary>
        /// <param name="center_x"></param>
        /// <param name="center_y"></param>
        /// <param name="axis_x"></param>
        /// <param name="axis_y"></param>
        /// <param name="degree"></param>
        /// <returns></returns>
        private  List<FVIL.Data.CFviPoint> getPoints_Ellipse(double center_x,
                                                            double center_y,
                                                            double axis_x,
                                                            double axis_y,
                                                            double degree)
        {
            FVIL.Data.CFviEllipse src = new FVIL.Data.CFviEllipse(center_x, center_y, axis_x, axis_y, degree);
            FVIL.Data.CFviPolyline polyline = src.ToCFviPolyline();

            return polyline.ToList();
        }
    }
}

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

Namespace SampleCode
    Public Partial Class CG
        ''' <summary>
        ''' 点群からの楕円近似.
        ''' </summary>
        <FvPluginExecute> _
        Public Sub FitEllipse()
            Try
                Dim center_x As Double = 60.0
                Dim center_y As Double = 70.0
                Dim axis_x As Double = 80.0
                Dim axis_y As Double = 40.0
                Dim degree As Double = 45.0
                Dim srcData As List(Of FVIL.Data.CFviPoint) = getPoints_Ellipse(center_x, center_y, axis_x, axis_y, degree)

                ' 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 ellipse As FVIL.Data.CFviEllipse = FVIL.CG.[Function].FitEllipse(points, FVIL.CG.FitMode.MESTIMATOR, 1.645)

                ' E) 確認.
                Console.Out.WriteLine("-- Ellipse")
                Console.Out.WriteLine(" Source... Center = ({0:f},{1:f}), AxisX = {2:f}, AxisY = {3:f} Angle = {4:f}", center_x, center_y, axis_x, axis_y, degree)
                Console.Out.WriteLine(" Result... Center = ({0:f},{1:f}), AxisX = {2:f}, AxisY = {3:f} Angle = {4:f}", ellipse.Center.X, ellipse.Center.Y, ellipse.AxisX, ellipse.AxisY, ellipse.Angle.Degree)
            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="center_x"></param>
        ''' <param name="center_y"></param>
        ''' <param name="axis_x"></param>
        ''' <param name="axis_y"></param>
        ''' <param name="degree"></param>
        ''' <returns></returns>
        Private Function getPoints_Ellipse(center_x As Double, center_y As Double, axis_x As Double, axis_y As Double, degree As Double) As List(Of FVIL.Data.CFviPoint)
            Dim src As New FVIL.Data.CFviEllipse(center_x, center_y, axis_x, axis_y, degree)
            Dim polyline As FVIL.Data.CFviPolyline = src.ToCFviPolyline()

            Return polyline.ToList()
        End Function
    End Class
End Namespace