MATH LIBRARY A Programming Language Manual

gs_sgn ( lib: Math, file: gslib_math.cpp ) int|float gs_sgn( n ) IN int|float n number OUT int|float sign -1=negative,0=zero,1=positive Returns the sign of the integer or float number n (accepts both types). Returns -1 if n is negative, 0 if equal to zero and 1 if positive. println( gs_sgn(-20) ); // will print -1 println( gs_sgn(5) ); // will print 1  C/C++ source code int gsSgn( gsVM* vm ) { guard(gsSgn) if(!gs_ckparams(vm,1)) GS_RETURNINT(vm,0); int type = gs_type(vm,0); if(type==GS_INT) { int a=gs_toint(vm,0); gs_pushint(vm, (a==0) ? 0 : (a>0) ? 1 : -1); return 1; } else if(type==GS_FLT) { float a=gs_toflt(vm,0); gs_pushflt(vm, (a==0.0f) ? 0.0f : (a>0.0f) ? 1.0f : -1.0f); return 1; } gs_error(vm, GSE_BADTYPE, GS_INT, type); GS_RETURNINT(vm,0); unguard() } gs_abs ( lib: Math, file: gslib_math.cpp ) int|float gs_abs( n ) IN int|float n number OUT int|float absolute value Returns the same value if n is positive and -n if it's negative. The result is always greater or equal to zero. println( gs_abs(-0.5) ); // will print 0.5  C/C++ source code int gsAbs( gsVM* vm ) { guard(gsAbs) if(!gs_ckparams(vm,1)) GS_RETURNINT(vm,0); int type = gs_type(vm,0); if(type==GS_INT) { gs_pushint(vm, abs(gs_toint(vm,0))); return 1; } else if(type==GS_FLT) { gs_pushflt(vm, (float)fabs((double)gs_toflt(vm,0))); return 1; } gs_error(vm, GSE_BADTYPE, GS_INT, type); GS_RETURNINT(vm,0); unguard() } gs_floor ( lib: Math, file: gslib_math.cpp ) float gs_floor( n ) IN float n number OUT float floor value Returns the integer part of n. println( gs_floor(3.8) ); // will print 3.0 println( 3.8 - gs_floor(3.8) ); // will print 0.8  C/C++ source code int gsFloor( gsVM* vm ) { guard(gsFloor) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)floor((double)gs_toflt(vm,0))); return 1; unguard() } gs_ceil ( lib: Math, file: gslib_math.cpp ) float gs_ceil( n ) IN float n number OUT float ceil value Returns the integer part n+1 println( gs_floor(15.2) ); // will print 16  C/C++ source code int gsCeil( gsVM* vm ) { guard(gsCeil) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)ceil((double)gs_toflt(vm,0))); return 1; unguard() } gs_round ( lib: Math, file: gslib_math.cpp ) float gs_round( n ) IN float n number OUT float rounded value Returns the closest integer value to the specified number. If the fractional part of the n is less than 0.5, it will return the floor, otherwise it will return the ceil. println( gs_round(1.2) ); // will print 1 println( gs_round(1.9) ); // will print 2  C/C++ source code int gsRound( gsVM* vm ) { guard(gsRound) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); float a = gs_toflt(vm,0); float b = (float)floor( (double)a ); gs_pushflt(vm,(a-b<0.5f) ? b : b+1.0f); return 1; unguard() } gs_trunc ( lib: Math, file: gslib_math.cpp ) float gs_trunc( n, decimals=5 ) IN float n number float decimals=5 count of decimals to keep (optional) OUT float truncated number Will return the same value of n, but only with the specifed number of decimals. Even if #decimals has a float type, only integer values will make sence for it. println( gs_trunc(1.23456,2) ); // will print 1.23  C/C++ source code int gsTrunc( gsVM* vm ) { guard(gsTrunc) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); int p = 5; if(gs_params(vm)==2 && gs_isint(vm,1)) p = gs_toint(vm,1); int a = (int)pow(10.0,(double)p); float b = (float)((int)(gs_toflt(vm,0) * a)) / a; gs_pushflt(vm,b); return 1; unguard() } gs_exp ( lib: Math, file: gslib_math.cpp ) float gs_exp( n ) IN float n number OUT float e rised to the power of n Returns the result of the exponential function, applied on n.  C/C++ source code int gsExp( gsVM* vm ) { guard(gsExp) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)exp((double)gs_toflt(vm,0))); return 1; unguard() } gs_log ( lib: Math, file: gslib_math.cpp ) float gs_log( n ) IN float n OUT float natural logarithm of n Returns the result of the natural logarithm function applied on n.  C/C++ source code int gsLog( gsVM* vm ) { guard(gsLog) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)log((double)gs_toflt(vm,0))); return 1; unguard() } gs_pow ( lib: Math, file: gslib_math.cpp ) float gs_pow( n, p ) IN float n number float p exponent OUT float n raised to power of p Returns the result of n raised to the power of p. println( gs_pow(2,2) ); will print 4 println( gs_pow(2,3) ); will print 8 println( gs_pow(2,4) ); will print 16  C/C++ source code int gsPow( gsVM* vm ) { guard(gsPow) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); if(!gs_cktype(vm,1,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)pow((double)gs_toflt(vm,0),(double)gs_toflt(vm,1))); return 1; unguard() } gs_sqrt ( lib: Math, file: gslib_math.cpp ) float gs_sqrt( n ) IN float n number OUT float square root of n Returns the square rood of n  C/C++ source code int gsSqrt( gsVM* vm ) { guard(gsSqrt) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)sqrt((double)gs_toflt(vm,0))); return 1; unguard() } gs_sin ( lib: Math, file: gslib_math.cpp ) float gs_sin( a ) IN float a radians OUT float sine of a Calculates sine from angle a in radians (~7 exact decimals).  C/C++ source code int gsSin( gsVM* vm ) { guard(gsSin) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)sin((double)gs_toflt(vm,0))); return 1; unguard() } gs_cos ( lib: Math, file: gslib_math.cpp ) float gs_cos( a ) IN float a radians OUT float cosine of a Calculates cosine from angle a in radians (~7 exact decimals).  C/C++ source code int gsCos( gsVM* vm ) { guard(gsCos) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)cos((double)gs_toflt(vm,0))); return 1; unguard() } gs_tan ( lib: Math, file: gslib_math.cpp ) float gs_tan( a ) IN float a radians OUT float tangent of a Calculates tangent from angle a in radians (~7 exact decimals).  C/C++ source code int gsTan( gsVM* vm ) { guard(gsTan) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)tan((double)gs_toflt(vm,0))); return 1; unguard() } gs_asin ( lib: Math, file: gslib_math.cpp ) float gs_asin( n ) IN float n number OUT float arcsine of n, in radians Calculate arcsine from n, returning angle in radians.  C/C++ source code int gsAsin( gsVM* vm ) { guard(gsAsin) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)asin((double)gs_toflt(vm,0))); return 1; unguard() } gs_acos ( lib: Math, file: gslib_math.cpp ) float gs_acos( n ) IN float n number OUT float arccosine of n, in radians Calculate arccosine from n, returning angle in radians.  C/C++ source code int gsAcos( gsVM* vm ) { guard(gsAcos) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)acos((double)gs_toflt(vm,0))); return 1; unguard() } gs_atan ( lib: Math, file: gslib_math.cpp ) float gs_atan( n ) IN float n number OUT float arctangent of n, in radians Calculate arctangent from n, returning angle radians.  C/C++ source code int gsAtan( gsVM* vm ) { guard(gsAtan) if(!gs_cktype(vm,0,GS_FLT)) GS_RETURNFLT(vm,0.0f); gs_pushflt(vm,(float)atan((double)gs_toflt(vm,0))); return 1; unguard() } PI ( lib: Math, file: gslib_math.cpp ) 3.1415926535897932385 Define with the value of PI. PI2 ( lib: Math, file: gslib_math.cpp ) 6.283185307179586477 Define with the value of 2*PI. DEG2RAD ( lib: Math, file: gslib_math.cpp ) PI / 180.0 Multiply this with degrees to convert them into radians. RAD2DEG ( lib: Math, file: gslib_math.cpp ) 180.0 / PI Multiply this with radians to convert them into degrees.