1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-05 13:30:22 +00:00
QB64-PE/tests/compile_tests/const/math_funcs.bas
2022-09-30 11:23:34 -04:00

108 lines
5 KiB
QBasic

$CONSOLE:ONLY
_DEST _CONSOLE
' This list comprises all of the math functions usable in CONST
CONST const_PI = _PI
CONST const_ACOS = _ACOS(.2)
CONST const_ASIN = _ASIN(.2)
CONST const_ARCSEC = _ARCSEC(.2)
CONST const_ARCCOT = _ARCCOT(.2)
CONST const_ARCCSC = _ARCCSC(.2)
CONST const_SECH = _SECH(.2)
CONST const_CSCH = _CSCH(.2)
CONST const_COTH = _COTH(.2)
CONST const_COS = COS(.2)
CONST const_SIN = SIN(.2)
CONST const_TAN = TAN(.2)
CONST const_LOG = LOG(.2)
CONST const_EXP = EXP(.2)
CONST const_ATN = ATN(.2)
CONST const_D2R = _D2R(.2)
CONST const_D2G = _D2G(.2)
CONST const_R2D = _R2D(.2)
CONST const_R2G = _R2G(.2)
CONST const_G2D = _G2D(.2)
CONST const_G2R = _G2R(.2)
CONST const_ABS = ABS(2)
CONST const_SGN = SGN(-20)
CONST const_INT = INT(20.2)
CONST const_ROUND = _ROUND(20.2)
CONST const_CEIL = _CEIL(20.2)
CONST const_FIX = FIX(20.5)
CONST const_SEC = _SEC(2)
CONST const_CSC = _CSC(2)
CONST const_COT = _COT(2)
' CONST const_ASC = ASC("a") ' Bugged, not implemented
CONST const__RGB32 = _RGB32(2, 3, 4)
CONST const__RGBA32 = _RGBA32(2, 3, 4, 5)
CONST const__RGB32_1 = _RGB32(2)
CONST const__RGB32_2 = _RGB32(2, 3)
CONST const__RGB32_4 = _RGB32(2, 3, 4, 5)
CONST const__RGB = _RGB(2, 3, 4, 2)
CONST const__RGBA = _RGBA(2, 3, 4, 2, 2)
CONST const__RED32 = _RED32(22)
CONST const__GREEN32 = _GREEN32(22)
CONST const__BLUE32 = _BLUE32(22)
CONST const__ALPHA32 = _ALPHA32(22)
CONST const__RED = _RED(22, 0)
CONST const__GREEN = _GREEN(22, 0)
CONST const__BLUE = _BLUE(22, 0)
CONST const__ALPHA = _ALPHA(2222, 0)
CONST const_SQR = SQR(20)
CONST const_ROOT = 20 ROOT 3
' The answers have to be within the allowed range, to account for floating point
' differences.
PRINT "PI: "; 3.141592653589793 * .999999 < const_PI; 3.141592653589793 * 1.000001 > const_PI
PRINT "ACOS: "; 1.369438406004566 * .999999 < const_ACOS; 1.369438406004566 * 1.000001 > const_ACOS
PRINT "ASIN: "; .2013579207903308 * .999999 < const_ASIN; .2013579207903308 * 1.000001 > const_ASIN
PRINT "ARCSEC: "; .2013579207903308 * .999999 < const_ARCSEC; .2013579207903308 * 1.000001 > const_ARCSEC
PRINT "ARCCOT: "; 1.373400766945016 * .999999 < const_ARCCOT; 1.373400766945016 * 1.000001 > const_ARCCOT
PRINT "ARCCSC: "; .2013579207903308 * .999999 < const_ARCCSC; .2013579207903308 * 1.000001 > const_ARCCSC
PRINT "SECH: "; .9803279976447253 * .999999 < const_SECH; .9803279976447253 * 1.000001 > const_SECH
PRINT "CSCH: "; 4.966821568814516 * .999999 < const_CSCH; 4.966821568814516 * 1.000001 > const_CSCH
PRINT "COTH: "; 1.44280551632034 * .999999 < const_COTH; 1.44280551632034 * 1.000001 > const_COTH
PRINT "COS: "; .9800665778412416 * .999999 < const_COS; .9800665778412416 * 1.000001 > const_COS
PRINT "SIN: "; .1986693307950612 * .999999 < const_SIN; .1986693307950612 * 1.000001 > const_SIN
PRINT "TAN: "; .2027100355086725 * .999999 < const_TAN; .2027100355086725 * 1.000001 > const_TAN
PRINT "EXP: "; 1.22140275816017 * .999999 < const_EXP; 1.22140275816017 * 1.000001 > const_EXP
PRINT "ATN: "; .1973955598498808 * .999999 < const_ATN; .1973955598498808 * 1.000001 > const_ATN
PRINT "D2R: "; .0034906585 * .999999 < const_D2R; .0034906585 * 1.000001 > const_D2R
PRINT "D2G: "; .22222222222 * .999999 < const_D2G; .22222222222 * 1.000001 > const_D2G
PRINT "R2D: "; 11.4591559 * .999999 < const_R2D; 11.4591559 * 1.000001 > const_R2D
PRINT "R2G: "; .0031415926 * .999999 < const_R2G; .0031415926 * 1.000001 > const_R2G
PRINT "G2D: "; .18 * .999999 < const_G2D; .18 * 1.000001 > const_G2D
PRINT "G2R: "; 12.7323954474 * .999999 < const_G2R; 12.7323954474 * 1.000001 > const_G2R
PRINT "CSC: "; 1.099750170294616 * .999999 < const_CSC; 1.099750170294616 * 1.000001 > const_CSC
PRINT "SQR: "; 4.47213595499958 * .999999 < const_SQR; 4.47213595499958 * 1.000001 > const_SQR
PRINT "ROOT: "; 2.714417616594907 * .999999 < const_ROOT; 2.714417616594907 * 1.000001 > const_ROOT
PRINT "LOG: "; -1.6094379124341 * .999999 > const_LOG; -1.6094379124341 * 1.000001 < const_LOG
PRINT "SEC: "; -2.402997961722381 * .999999 > const_SEC; -2.402997961722381 * 1.000001 < const_SEC
PRINT "COT: "; -.4576575543602858 * .999999 > const_COT; -.4576575543602858 * 1.000001 < const_COT
PRINT "ABS: "; const_ABS
PRINT "SGN: "; const_SGN
PRINT "INT: "; const_INT
PRINT "ROUND: "; const_ROUND
PRINT "CEIL: "; const_CEIL
PRINT "FIX: "; const_FIX
PRINT "ASC: "; const_ASC
PRINT "RGB32: "; HEX$(const__RGB32)
PRINT "RGBA32: "; HEX$(const__RGBA32)
PRINT "1: "; HEX$(const__RGB32_1)
PRINT "2: "; HEX$(const__RGB32_2)
PRINT "4: "; HEX$(const__RGB32_4)
PRINT "RGB: "; HEX$(const__RGB)
PRINT "RGBA: "; HEX$(const__RGBA)
PRINT "RED32: "; HEX$(const__RED32)
PRINT "GREEN32: "; const__GREEN32
PRINT "BLUE32: "; const__BLUE32
PRINT "ALPHA32: "; const__ALPHA32
PRINT "RED: "; const__RED
PRINT "GREEN: "; const__GREEN
PRINT "BLUE: "; const__BLUE
PRINT "ALPHA: "; const__ALPHA
SYSTEM