ベクトル内積計算

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

Syntax

C#
public static int fnFIE_vect_inner(
	FVECTOR_PTR v1,
	FVECTOR_PTR v2,
	ref double sd
)
Visual Basic
Public Shared Function fnFIE_vect_inner ( 
	v1 As FVECTOR_PTR,
	v2 As FVECTOR_PTR,
	ByRef sd As Double
) As Integer

Parameters

v1
Type: fvalgcli..::..FVECTOR_PTR
内積を計算するベクトル
v2
Type: fvalgcli..::..FVECTOR_PTR
内積を計算するベクトル
sd
Type: System..::..Double%
計算結果

Return Value

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

エラーコード：
f_err内容
F_ERR_NONE正常終了
F_ERR_NOMEMORYメモリ不足エラー
F_ERR_INVALID_IMAGE画像オブジェクトの異常
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_vect_inner()
        {
            FVECTOR_PTR v1 = FVECTOR_PTR.Zero;
            FVECTOR_PTR v2 = FVECTOR_PTR.Zero;
            double sd = 0;

            try
            {
                int status = (int)f_err.F_ERR_NONE;
                v1 = api.fnFIE_mat_valloc(3);
                v2 = api.fnFIE_mat_valloc(3);
                v1[0] = 3.0; v1[1] = 6.0; v1[2] = 8.0;
                v2[0] = 4.0; v2[1] = 8.0; v2[2] = 15.0;

                Assert.IsTrue(v1 != FVECTOR_PTR.Zero, "エラーが発生しました。");
                Assert.IsTrue(v2 != FVECTOR_PTR.Zero, "エラーが発生しました。");


                status = api.fnFIE_vect_inner(v1, v2, ref sd);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);
            }
            finally
            {
                // 解放.
                api.fnFIE_mat_vfree(v1);
                api.fnFIE_mat_vfree(v2);
            }

        }
    }
}

Visual Basic Copy imageCopy
'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_vect_inner()
        Dim v1 As FVECTOR_PTR = FVECTOR_PTR.Zero
        Dim v2 As FVECTOR_PTR = FVECTOR_PTR.Zero
        Dim sd As Double = 0

        Try
            Dim status As Integer = CInt(f_err.F_ERR_NONE)
            v1 = api.fnFIE_mat_valloc(3)
            v2 = api.fnFIE_mat_valloc(3)
            v1(0) = 3.0
            v1(1) = 6.0
            v1(2) = 8.0
            v2(0) = 4.0
            v2(1) = 8.0
            v2(2) = 15.0

            Assert.IsTrue(v1 <> FVECTOR_PTR.Zero, "エラーが発生しました。")
            Assert.IsTrue(v2 <> FVECTOR_PTR.Zero, "エラーが発生しました。")


            status = api.fnFIE_vect_inner(v1, v2, sd)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))
        Finally
            ' 解放.
            api.fnFIE_mat_vfree(v1)
            api.fnFIE_mat_vfree(v2)
        End Try

    End Sub
End Class

See Also