行列のコレスキー分解

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

Syntax

C#
public static int fnFIE_mat_chol(
	FMATRIX_PTR a,
	ref sbyte uplo
)
Visual Basic
Public Shared Function fnFIE_mat_chol ( 
	a As FMATRIX_PTR,
	ByRef uplo As SByte
) As Integer

Parameters

a
Type: fvalgcli..::..FMATRIX_PTR
入力時、分解を行う行列Ａ
  • UPLO = 'U'のとき、A の上三角部に 行列Ａの上三角部を格納する。 このとき、A の下三角部は参照されない。
  • UPLO = 'L'のとき、A の下三角部に 行列Ａの下三角部を格納する。 このとき、A の上三角部は参照されない。
uplo
Type: System..::..SByte%
  • 'U': Aの上三角部に値が格納されている
  • 'L': Aの下三角部に値が格納されている

Return Value

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

エラーコード：
f_err内容
F_ERR_NONE正常終了
F_ERR_CALC_IMPOSSIBLE計算不能エラー
F_ERR_INVALID_PARAMパラメータ異常
F_ERR_NO_LICENCEライセンスエラー、または未初期化エラー

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_mat_chol()
        {
            int status = (int)f_err.F_ERR_NONE;

            FMATRIX_PTR a = FMATRIX_PTR.Zero;
            sbyte uplo = (sbyte)'U';

            try
            {
                a = api.fnFIE_mat_aalloc(4, 4);

                a[0, 0] = 4.16; a[0, 1] = -3.12; a[0, 2] = 0.56; a[0, 3] = -0.10;
                a[1, 0] = -3.12; a[1, 1] = 5.03; a[1, 2] = -0.83; a[1, 3] = 1.18;
                a[2, 0] = 0.56; a[2, 1] = -0.83; a[2, 2] = 0.76; a[2, 3] = 0.34;
                a[3, 0] = -0.10; a[3, 1] = 1.18; a[3, 2] = 0.34; a[3, 3] = 1.18;

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

                status = api.fnFIE_mat_chol(a, ref uplo);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_mat_chol: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_mat_chol");
            }
            catch (System.Exception ex)
            {
                Assert.Fail(ex.Message);
            }
            finally
            {
                api.fnFIE_mat_afree(a);
            }
        }
    }
}

Visual Basic Copy imageCopy
'    $Revision: 1.1 $

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

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

        Dim a As FMATRIX_PTR = FMATRIX_PTR.Zero
        Dim uplo As SByte = CSByte(AscW("U"C))

        Try
            a = api.fnFIE_mat_aalloc(4, 4)

            a(0, 0) = 4.16
            a(0, 1) = -3.12
            a(0, 2) = 0.56
            a(0, 3) = -0.1
            a(1, 0) = -3.12
            a(1, 1) = 5.03
            a(1, 2) = -0.83
            a(1, 3) = 1.18
            a(2, 0) = 0.56
            a(2, 1) = -0.83
            a(2, 2) = 0.76
            a(2, 3) = 0.34
            a(3, 0) = -0.1
            a(3, 1) = 1.18
            a(3, 2) = 0.34
            a(3, 3) = 1.18

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

            status = api.fnFIE_mat_chol(a, uplo)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_mat_chol: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_mat_chol")
        Catch ex As System.Exception
            Assert.Fail(ex.Message)
        Finally
            api.fnFIE_mat_afree(a)
        End Try
    End Sub
End Class

See Also