public static int fnFIE_mat_rand(
	FMATRIX_PTR a
)

Public Shared Function fnFIE_mat_rand ( 
	a As FMATRIX_PTR
) As Integer

//    $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_rand()
        {
            const int ROW = 4;            // 入力行列の行数 (M)
            const int COL = 3;            // 入力行列の列数 (N)
            fvalgcli.FMATRIX_PTR a = fvalgcli.FMATRIX_PTR.Zero;
            try
            {
                // 行列の生成.
                a = fvalgcli.api.fnFIE_mat_aalloc(ROW, COL);

                Assert.IsTrue(a != fvalgcli.FMATRIX_PTR.Zero, "行列 a (ROW x COL) の生成に失敗しました。");

                int size = Math.Min(ROW, COL);    // 何れか小さい方.
    //            double[] sigma = new double[size];

                int status = (int)fvalgcli.f_err.F_ERR_NONE;
                status = fvalgcli.api.fnFIE_mat_rand(a);
                Assert.IsTrue(status == (int)fvalgcli.f_err.F_ERR_NONE, "エラーが発生しました。({0})", (fvalgcli.f_err)status);
            }
            catch (System.Exception ex)
            {
                Assert.Fail(ex.Message);
            }
            finally
            {
                // 上記の処理が正常終了しても、異常終了して catch しても、この finally を通る.
                // アンマネージドのオブジェクトの開放を安全に行える.
                fvalgcli.api.fnFIE_mat_afree(a);

            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_mat_rand()
        Const  ROW As Integer = 4
        ' 入力行列の行数 (M)
        Const  COL As Integer = 3
        ' 入力行列の列数 (N)
        Dim a As fvalgcli.FMATRIX_PTR = fvalgcli.FMATRIX_PTR.Zero
        Try
            ' 行列の生成.
            a = fvalgcli.api.fnFIE_mat_aalloc(ROW, COL)

            Assert.IsTrue(a <> fvalgcli.FMATRIX_PTR.Zero, "行列 a (ROW x COL) の生成に失敗しました。")

            Dim size As Integer = Math.Min(ROW, COL)
            ' 何れか小さい方.
            '            double[] sigma = new double[size];
            Dim status As Integer = CInt(fvalgcli.f_err.F_ERR_NONE)
            status = fvalgcli.api.fnFIE_mat_rand(a)
            Assert.IsTrue(status = CInt(fvalgcli.f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, fvalgcli.f_err))
        Catch ex As System.Exception
            Assert.Fail(ex.Message)
        Finally
            ' 上記の処理が正常終了しても、異常終了して catch しても、この finally を通る.
            ' アンマネージドのオブジェクトの開放を安全に行える.

            fvalgcli.api.fnFIE_mat_afree(a)
        End Try
    End Sub
End Class