public static void fnFIE_mtrand_init(
	uint seed,
	ref F_RANDDESC r
)

Public Shared Sub fnFIE_mtrand_init ( 
	seed As UInteger,
	ByRef r As F_RANDDESC
)

//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_mtrand_init()
        {
            uint seed = 11111;        // 適当な値.
            uint seed2 = 22222;        // 適当な値.
            uint seed_eq = 11111;    // 適当な値.
            F_RANDDESC r = new F_RANDDESC();
            F_RANDDESC r2 = new F_RANDDESC();
            F_RANDDESC r_eq = new F_RANDDESC();

            // 初期化1.
            api.fnFIE_mtrand_init(seed, ref r);
            // 初期化2.
            api.fnFIE_mtrand_init(seed2, ref r2);
            // 初期化3.
            api.fnFIE_mtrand_init(seed_eq, ref r_eq);

            Assert.IsTrue(r.mt[1] == r_eq.mt[1], "エラーが発生しました。");
            Assert.IsFalse(r.mt[1] == r2.mt[1], "エラーが発生しました。");

            // 結果を出力する.
            ConsoleOut.WriteFunctionName(":\n");
            Console.Write(" ...");
            ConsoleOut.IsTrue(r.mt[1] == r_eq.mt[1]);
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_mtrand_init()
        Dim seed As UInteger = 11111
        ' 適当な値.
        Dim seed2 As UInteger = 22222
        ' 適当な値.
        Dim seed_eq As UInteger = 11111
        ' 適当な値.
        Dim r As New F_RANDDESC()
        Dim r2 As New F_RANDDESC()
        Dim r_eq As New F_RANDDESC()

        ' 初期化1.
        api.fnFIE_mtrand_init(seed, r)
        ' 初期化2.
        api.fnFIE_mtrand_init(seed2, r2)
        ' 初期化3.
        api.fnFIE_mtrand_init(seed_eq, r_eq)

        Assert.IsTrue(r.mt(1) = r_eq.mt(1), "エラーが発生しました。")
        Assert.IsFalse(r.mt(1) = r2.mt(1), "エラーが発生しました。")

        ' 結果を出力する.
        ConsoleOut.WriteFunctionName(":" & vbLf)
        Console.Write(" ...")
        ConsoleOut.IsTrue(r.mt(1) = r_eq.mt(1))
    End Sub
End Class