<code>
Dim Ival As Integer
Dim Ires As Integer
Dim Fval As Single
Dim Fres As Single
Dim Fval_x As Single
Dim Fval_y As Single

Wait 3000

Debug Cr
Debug "===== Math Function Test =====", Cr

Ival = -123
Ires = Abs(Ival)
Debug "Abs(-123)         = ", Dec Ires, Cr

Fval = -12.75
Fres = Fabs(Fval)
Debug "Fabs(-12.75)      = ", Float Fres, Cr

Fval = 25.0
Fres = Sqr(Fval)
Debug "Sqr(25.0)         = ", Float Fres, Cr

Fval = 27.0
Fres = Cbrt(Fval)
Debug "Cbrt(27.0)        = ", Float Fres, Cr

Fval_x = 3.0
Fval_y = 4.0
Fres = Hypot(Fval_x, Fval_y)
Debug "Hypot(3.0, 4.0)   = ", Float Fres, Cr

Fval_x = 2.0
Fval_y = 8.0
Fres = Pow(Fval_x, Fval_y)
Debug "Pow(2.0, 8.0)     = ", Float Fres, Cr

Fval_x = 10.5
Fval_y = 3.2
Fres = Fmod(Fval_x, Fval_y)
Debug "Fmod(10.5, 3.2)   = ", Float Fres, Cr

Ival = 100
Ires = Rnd(Ival)
Debug "Rnd(100)          = ", Dec Ires, Cr

Fval = -1.2
Ires = Floor(Fval)
Debug "Floor(-1.2)       = ", Dec Ires, Cr

Fval = -1.2
Ires = Ceil(Fval)
Debug "Ceil(-1.2)        = ", Dec Ires, Cr

Fval = 3.6
Ires = Round(Fval)
Debug "Round(3.6)        = ", Dec Ires, Cr

Fval = 3.4
Ires = Round(Fval)
Debug "Round(3.4)        = ", Dec Ires, Cr

Ival = 123
Fres = Float(Ival)
Debug "Float(123)        = ", Float Fres, Cr

Debug "============================", Cr

</code>

디버그창 출력 결과입니다.

<code>
Abs(-123)         = 123
Fabs(-12.75)      = 12.75
Sqr(25.0)         = 5.00
Cbrt(27.0)        = 3.00
Hypot(3.0, 4.0)   = 5.00
Pow(2.0, 8.0)     = 256.00
Fmod(10.5, 3.2)   = 0.90
Rnd(100)          = 48
Floor(-1.2)       = -2
Ceil(-1.2)        = -1
Round(3.6)        = 4
Round(3.4)        = 3
Float(123)        = 123.00
</code>


<code>
Dim Ival As Integer 
Dim Ires As Integer 
Dim Fval As Single 
Dim Fres As Single 
Dim Fval_x As Single 
Dim Fval_y As Single 
Wait 3000 
Debug Cr 
Debug "===== Math Function Test =====", Cr

Fval = 1.0
Fres = Exp(Fval)
Debug "Exp(1.0)          = ", Float Fres, Cr    '≈ 2.71828

Fval = 2.71828
Fres = Log(Fval)
Debug "Log(e)            = ", Float Fres, Cr    '≈ 1.0

Fval = 1000.0
Fres = Log10(Fval)
Debug "Log10(1000)       = ", Float Fres, Cr    '= 3.0

Fval = 0.0
Fres = Sin(Fval)
Debug "Sin(0)            = ", Float Fres, Cr    '= 0

Fval = 1.5708    '≈ π/2
Fres = Sin(Fval)
Debug "Sin(PI/2)         = ", Float Fres, Cr    '≈ 1

Fval = 0.0
Fres = Cos(Fval)
Debug "Cos(0)            = ", Float Fres, Cr    '= 1

Fval = 3.1416    '≈ π
Fres = Cos(Fval)
Debug "Cos(PI)           = ", Float Fres, Cr    '≈ -1

Fval = 0.0
Fres = Tan(Fval)
Debug "Tan(0)            = ", Float Fres, Cr    '= 0

Fval = 0.7854    '≈ π/4
Fres = Tan(Fval)
Debug "Tan(PI/4)         = ", Float Fres, Cr    '≈ 1

Fval = 1.0
Fres = Sinh(Fval)
Debug "Sinh(1.0)         = ", Float Fres, Cr

Fval = 1.0
Fres = Cosh(Fval)
Debug "Cosh(1.0)         = ", Float Fres, Cr

Fval = 1.0
Fres = Tanh(Fval)
Debug "Tanh(1.0)         = ", Float Fres, Cr
</code>

<code>
===== Math Function Test =====
Exp(1.0)          = 2.72
Log(e)            = 1.00
Log10(1000)       = 3.00
Sin(0)            = 0.00
Sin(PI/2)         = 1.00
Cos(0)            = 1.00
Cos(PI)           = -1.00
Tan(0)            = 0.00
Tan(PI/4)         = 1.00
Sinh(1.0)         = 1.18
Cosh(1.0)         = 1.54
Tanh(1.0)         = 0.76

</code>

<code>
Dim Ival As Integer 
Dim Ires As Integer 
Dim Fval As Single 
Dim Fres As Single 
Dim Fval_x As Single 
Dim Fval_y As Single 
Wait 3000 
Debug Cr 
Debug "===== Math Function Test =====", Cr

Fval = 0.0
Fres = Asin(Fval)
Debug "Asin(0.0)         = ", Float Fres, Cr    '= 0

Fval = 1.0
Fres = Asin(Fval)
Debug "Asin(1.0)         = ", Float Fres, Cr    '≈ +PI/2

Fval = -1.0
Fres = Asin(Fval)
Debug "Asin(-1.0)        = ", Float Fres, Cr    '≈ -PI/2

Fval = 1.0
Fres = Acos(Fval)
Debug "Acos(1.0)         = ", Float Fres, Cr    '= 0

Fval = 0.0
Fres = Acos(Fval)
Debug "Acos(0.0)         = ", Float Fres, Cr    '≈ PI/2

Fval = -1.0
Fres = Acos(Fval)
Debug "Acos(-1.0)        = ", Float Fres, Cr    '≈ PI

Fval = 0.0
Fres = Atan(Fval)
Debug "Atan(0.0)         = ", Float Fres, Cr    '= 0

Fval = 1.0
Fres = Atan(Fval)
Debug "Atan(1.0)         = ", Float Fres, Cr    '≈ PI/4

Fval = -1.0
Fres = Atan(Fval)
Debug "Atan(-1.0)        = ", Float Fres, Cr    '≈ -PI/4

Fval_x = 1.0
Fval_y = 1.0
Fres = Atan2(Fval_y, Fval_x)
Debug "Atan2(1,1)        = ", Float Fres, Cr    '≈ PI/4

Fval_x = -1.0
Fval_y = 1.0
Fres = Atan2(Fval_y, Fval_x)
Debug "Atan2(1,-1)       = ", Float Fres, Cr    '≈ 3PI/4

Fval_x = -1.0
Fval_y = -1.0
Fres = Atan2(Fval_y, Fval_x)
Debug "Atan2(-1,-1)      = ", Float Fres, Cr    '≈ -3PI/4

Fval_x = 1.0
Fval_y = -1.0
Fres = Atan2(Fval_y, Fval_x)
Debug "Atan2(-1,1)       = ", Float Fres, Cr    '≈ -PI/4
</code>

<code>
===== Math Function Test =====
Asin(0.0)         = 0.00
Asin(1.0)         = 1.57
Asin(-1.0)        = -1.57
Acos(1.0)         = 0.00
Acos(0.0)         = 1.57
Acos(-1.0)        = 3.14
Atan(0.0)         = 0.00
Atan(1.0)         = 0.79
Atan(-1.0)        = -0.79
Atan2(1,1)        = 0.79
Atan2(1,-1)       = 2.36
Atan2(-1,-1)      = -2.36
Atan2(-1,1)       = -0.79

</code>