Ｎ点間の距離の算出

Namespace: fvalgcli
Assembly: fvalgcli (in fvalgcli.dll) Version: 3.1.0.0 (3.1.0.11)

Syntax

C#
public static int fnFIE_cg_calc_distance_npoint(
	DPNT_T_PTR pnts,
	int num,
	ref double dist
)
Visual Basic
Public Shared Function fnFIE_cg_calc_distance_npoint ( 
	pnts As DPNT_T_PTR,
	num As Integer,
	ByRef dist As Double
) As Integer

Parameters

pnts
Type: fvalgcli..::..DPNT_T_PTR
座標点群G1。 num 個の点が必要です。
num
Type: System..::..Int32
点群 pnts に入っている点の数N
dist
Type: System..::..Double%
積算距離

Return Value

Type: Int32
以下のエラーコードを返します。

エラーコード：
f_err内容
F_ERR_NONE正常終了
F_ERR_INVALID_PARAM 不正なパラメータが渡された
F_ERR_NO_LICENCEライセンスエラー、または未初期化エラー

Remarks

Examples

C# Copy imageCopy
//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_cg_calc_distance_npoint()
        {
            int status = (int)f_err.F_ERR_NONE;

            DPNT_T_PTR pnts = IntPtr.Zero;
            int num = 20;
            double dist = 0;

            const double ans_dist = 3916.9503443367;

            try
            {
                pnts = DPNT_T_PTR.alloc(num);

                for (int i = 0; i < num; i += 2)
                {
                    pnts[i] = DPNT_T.init(50 + 50 * i, 150);
                    pnts[i + 1] = DPNT_T.init(50 + 50 * (i + 1), 350);
                }
                status = api.fnFIE_cg_calc_distance_npoint(pnts, num, ref dist);

                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // 結果を出力する.
                ConsoleOut.WriteFunctionName(":\n");
                Console.WriteLine("distance {0}", dist);
                Console.Write(" ...");
                ConsoleOut.IsTrue(DblEqual(dist, ans_dist));
            }
            finally
            {
                pnts.Dispose();
            }
        }
    }
}

Visual Basic Copy imageCopy
'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_cg_calc_distance_npoint()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim pnts As DPNT_T_PTR = IntPtr.Zero
        Dim num As Integer = 20
        Dim dist As Double = 0

        Const  ans_dist As Double = 3916.9503443367

        Try
            pnts = DPNT_T_PTR.alloc(num)

            For i As Integer = 0 To num - 1 Step 2
                pnts(i) = DPNT_T.init(50 + 50 * i, 150)
                pnts(i + 1) = DPNT_T.init(50 + 50 * (i + 1), 350)
            Next
            status = api.fnFIE_cg_calc_distance_npoint(pnts, num, dist)

            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' 結果を出力する.
            ConsoleOut.WriteFunctionName(":" & vbLf)
            Console.WriteLine("distance {0}", dist)
            Console.Write(" ...")
            ConsoleOut.IsTrue(DblEqual(dist, ans_dist))
        Finally
            pnts.Dispose()
        End Try
    End Sub
End Class

See Also