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
디버그창 출력 결과입니다.
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
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
===== 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
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
===== 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