2つの円の交点の算出
Namespace: fvalgcliAssembly: fvalgcli (in fvalgcli.dll) Version: 3.1.0.0 (3.1.0.11)
Syntax
C# |
---|
public static int fnFIE_cg_calc_cross_2circleB(
DPNT_T center1,
double radius1,
DPNT_T center2,
double radius2,
ref int cross_num,
ref DPNT_T cross1,
ref DPNT_T cross2
) |
Visual Basic |
---|
Public Shared Function fnFIE_cg_calc_cross_2circleB (
center1 As DPNT_T,
radius1 As Double,
center2 As DPNT_T,
radius2 As Double,
ByRef cross_num As Integer,
ByRef cross1 As DPNT_T,
ByRef cross2 As DPNT_T
) As Integer |
Return Value
Type:
Int32
以下のエラーコードを返します。
エラーコード:f_err | 内容 |
---|
F_ERR_NONE | 正常終了 |
F_ERR_INVALID_PARAM | 不正なパラメータが渡された |
F_ERR_CALC_IMPOSSIBLE | 計算不能エラー |
F_ERR_NO_LICENCE | ライセンスエラー、または未初期化エラー |
Remarks
Examples
C# | Copy |
---|
using System;
using System.Collections.Generic;
using System.Text;
using fvalgcli;
namespace TC
{
public partial class FIE
{
[FvPluginExecute]
public void fnFIE_cg_calc_cross_2circleB()
{
int status = (int)f_err.F_ERR_NONE;
DPNT_T center1 = new DPNT_T();
double radius1;
DPNT_T center2 = new DPNT_T();
double radius2;
int cross_num = 0;
DPNT_T cross1 = new DPNT_T();
DPNT_T cross2 = new DPNT_T();
const int ans_num = 2;
center1.x = 200;
center1.y = 200;
radius1 = 150.0;
center2.x = 300;
center2.y = 300;
radius2 = 150.0;
status = api.fnFIE_cg_calc_cross_2circleB(center1, radius1, center2, radius2, ref cross_num, ref cross1, ref cross2);
Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);
ConsoleOut.WriteFunctionName(":\n");
Console.WriteLine("cross_num: {0}", cross_num);
Console.WriteLine("2circleBcross1.x: {0}", cross1.x);
Console.WriteLine("2circleBcross1.y: {0}", cross1.y);
Console.WriteLine("2circleBcross2.x: {0}", cross2.x);
Console.WriteLine("2circleBcross2.y: {0}", cross2.y);
Console.Write(" ...");
ConsoleOut.IsTrue(cross_num == ans_num);
}
}
} |
Visual Basic | Copy |
---|
Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli
Public Partial Class FIE
<FvPluginExecute> _
Public Sub fnFIE_cg_calc_cross_2circleB()
Dim status As Integer = CInt(f_err.F_ERR_NONE)
Dim center1 As New DPNT_T()
Dim radius1 As Double
Dim center2 As New DPNT_T()
Dim radius2 As Double
Dim cross_num As Integer = 0
Dim cross1 As New DPNT_T()
Dim cross2 As New DPNT_T()
Const ans_num As Integer = 2
center1.x = 200
center1.y = 200
radius1 = 150.0
center2.x = 300
center2.y = 300
radius2 = 150.0
status = api.fnFIE_cg_calc_cross_2circleB(center1, radius1, center2, radius2, cross_num, cross1, _
cross2)
Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))
ConsoleOut.WriteFunctionName(":" & vbLf)
Console.WriteLine("cross_num: {0}", cross_num)
Console.WriteLine("2circleBcross1.x: {0}", cross1.x)
Console.WriteLine("2circleBcross1.y: {0}", cross1.y)
Console.WriteLine("2circleBcross2.x: {0}", cross2.x)
Console.WriteLine("2circleBcross2.y: {0}", cross2.y)
Console.Write(" ...")
ConsoleOut.IsTrue(cross_num = ans_num)
End Sub
End Class |
See Also