複素数絶対値を計算する

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

Syntax

C#
public static double fnFIE_cabs(
	FCOMPLEX c
)
Visual Basic
Public Shared Function fnFIE_cabs ( 
	c As FCOMPLEX
) As Double

Parameters

c
Type: fvalgcli..::..FCOMPLEX
複素数

Return Value

Type: Double
cの複素数絶対値を返します。

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_cabs()
        {
            FCOMPLEX c1 = new FCOMPLEX();
            c1 = api.fnFIE_fcomplex(1.1, 2.2);
            double d;
            d = api.fnFIE_cabs(c1);

            Assert.IsTrue(compare(d, Math.Sqrt(1.1 * 1.1 + 2.2 * 2.2), defs.DBL_EPS), "エラーが発生しました。(d={0})", d);

            // 結果を出力する.
            ConsoleOut.WriteFunctionName(":\t");
            Console.Write(" ...");
            ConsoleOut.IsTrue(DblEqual(d, Math.Sqrt(1.1 * 1.1 + 2.2 * 2.2)));
        }
    }
}

Visual Basic Copy imageCopy
'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_cabs()
        Dim c1 As New FCOMPLEX()
        c1 = api.fnFIE_fcomplex(1.1, 2.2)
        Dim d As Double
        d = api.fnFIE_cabs(c1)

        Assert.IsTrue(compare(d, Math.Sqrt(1.1 * 1.1 + 2.2 * 2.2), defs.DBL_EPS), "エラーが発生しました。(d={0})", d)

        ' 結果を出力する.
        ConsoleOut.WriteFunctionName(":" & vbTab)
        Console.Write(" ...")
        ConsoleOut.IsTrue(DblEqual(d, Math.Sqrt(1.1 * 1.1 + 2.2 * 2.2)))
    End Sub
End Class

See Also