public static double fnFIE_mtrand_gauss(
	ref F_RANDDESC r
)

Public Shared Function fnFIE_mtrand_gauss ( 
	ByRef r As F_RANDDESC
) As Double

//    $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_gauss()
        {
            uint seed = 11111;    // ?K????l.
            F_RANDDESC r = new F_RANDDESC();
            double random = 100;    // ?[??????(?K?E?X???z).

            // ??????.
            api.fnFIE_mtrand_init(seed, ref r);

            // ?????o?????. 
            ConsoleOut.WriteFunctionName(":\n");
            for (int i = 0; i < 5; i++)
            {
                random = api.fnFIE_mtrand_gauss(ref r);
                Console.WriteLine("random = {0}", random);
            }
            Console.Write(" ...");
            ConsoleOut.IsTrue(random != 100);
        }    
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_mtrand_gauss()
        Dim seed As UInteger = 11111
        ' ?K????l.
        Dim r As New F_RANDDESC()
        Dim random As Double = 100
        ' ?[??????(?K?E?X???z).
        ' ??????.
        api.fnFIE_mtrand_init(seed, r)

        ' ?????o?????. 
        ConsoleOut.WriteFunctionName(":" & vbLf)
        For i As Integer = 0 To 4
            random = api.fnFIE_mtrand_gauss(r)
            Console.WriteLine("random = {0}", random)
        Next
        Console.Write(" ...")
        ConsoleOut.IsTrue(random <> 100)
    End Sub
End Class