Add files via upload

Examples/Maths/atan2.bas

@@ -0,0 +1,23 @@
+SUB MAIN
+  PRINT "---- ATAN2D (Degrees) ----"
+
+  PRINT "ATAN2D(0.0, 0.0)=" + STR$(ATAN2D(0.0, 0.0))
+  PRINT "ATAN2D(10.0, 10.0)=" + STR$(ATAN2D(10.0, 10.0))
+  PRINT "ATAN2D(10.0, 0.0)=" + STR$(ATAN2D(10.0, 0.0))
+  PRINT "ATAN2D(10.0, -10.0)=" + STR$(ATAN2D(10.0, -10.0))
+  PRINT "ATAN2D(0.0, -10.0)=" + STR$(ATAN2D(0.0, -10.0))
+  PRINT "ATAN2D(-10.0, -10.0)=" + STR$(ATAN2D(-10.0, -10.0))
+  PRINT "ATAN2D(-10.0, 0.0)=" + STR$(ATAN2D(-10.0, 0.0))
+  PRINT "ATAN2D(-10.0, 10.0)=" + STR$(ATAN2D(-10.0, 10.0))
+  
+  PRINT "\n---- ATAN2 (Radians) ----"
+
+  PRINT "ATAN2(0.0, 0.0)=" + STR$(ATAN2(0.0, 0.0))
+  PRINT "ATAN2(10.0, 10.0)=" + STR$(ATAN2(10.0, 10.0))
+  PRINT "ATAN2(10.0, 0.0)=" + STR$(ATAN2(10.0, 0.0))
+  PRINT "ATAN2(10.0, -10.0)=" + STR$(ATAN2(10.0, -10.0))
+  PRINT "ATAN2(0.0, -10.0)=" + STR$(ATAN2(0.0, -10.0))
+  PRINT "ATAN2(-10.0, -10.0)=" + STR$(ATAN2(-10.0, -10.0))
+  PRINT "ATAN2(-10.0, 0.0)=" + STR$(ATAN2(-10.0, 0.0))
+  PRINT "ATAN2(-10.0, 10.0)=" + STR$(ATAN2(-10.0, 10.0))
+END SUB

Examples/Maths/hyperbolic.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  PRINT "---- SINE, COSINE, TANGENTS (HYPERBOLIC) ----"
+
+  PRINT "COSH(1) = " + STRING(COSH(1))
+  PRINT "SINH(1) = " + STRING(SINH(1))
+  PRINT "TANH(1) = " + STRING(TANH(1))
+
+  PRINT "ACOSH(1.543) = " + STRING(ACOSH(1.543))
+  PRINT "ASINH(1.175) = " + STRING(ASINH(1.175))
+  PRINT "ATANH(0.762) = " + STRING(ATANH(0.762))
+
+  PRINT "\n---- SECANT, COSECANT, COTANGENT (HYPERBOLIC) ----"
+
+  PRINT "SECH(1) = " + STRING(SECH(1))
+  PRINT "CSCH(1) = " + STRING(CSCH(1))
+  PRINT "COTH(1) = " + STRING(COTH(1))
+
+  PRINT "ASECH(0.648) = " + STRING(ASECH(0.648))
+  PRINT "ACSCH(0.851) = " + STRING(ACSCH(0.851))
+  PRINT "ACOTH(1.313) = " + STRING(ACOTH(1.313))
+END SUB

Examples/Maths/maths.bas

@@ -0,0 +1,24 @@
+SUB MAIN
+  DIM I AS INTEGER
+
+  PRINT "---- Logarithm and Power Functions ----"
+
+  PRINT "SQRT(81.0) = " + STRING(SQRT(81.0))
+  PRINT "LOG(2.718) = " + STRING(LOG(2.718))
+  PRINT "EXP(1.0) = " + STRING(EXP(1.0))
+  PRINT "LOG10(100.0) = " + STRING(LOG10(100.0))
+  PRINT "EXP10(2) = " + STRING(EXP10(2.0))
+  PRINT "POW(5.0, 3.0) = " + STRING(POW(5.0, 3.0))
+
+  PRINT "---- Miscellaneous Functions ----"
+
+  PRINT "ABS(-3.142) = " + STRING(ABS(-3.142))
+  PRINT "ABS(3.142) = " + STRING(ABS(3.142))
+  PRINT "ABS(-321L) = " + STRING(ABS(-321L))
+  PRINT "ABS(321L) = " + STRING(ABS(321L))
+  PRINT "ROUND(" + STRING(PI) + ",3) = " + STRING(ROUND(PI,3))
+  
+  FOR I=1 TO 5
+    PRINT "I=" + STRING(I) + ", RND(10) = " + STRING(RND(10))
+  END FOR
+END SUB

Examples/Maths/trig.bas

@@ -0,0 +1,41 @@
+SUB MAIN
+  PRINT "---- SINE, COSINE, TANGENTS (DEGREES) ----"
+
+  PRINT "COSD(45)=" + STR$(COSD(45))
+  PRINT "SIND(45)=" + STR$(SIND(45))
+  PRINT "TAND(45)=" + STR$(TAND(45))
+
+  PRINT "ACOSD(0.707)=" + STR$(ACOSD(0.707))
+  PRINT "ASIND(0.707)=" + STR$(ASIND(0.707))
+  PRINT "ATAND(1)=" + STR$(ATAND(1))
+
+  PRINT "\n---- SINE, COSINE, TANGENTS (RADIANS) ----"
+
+  PRINT "COS(0.785)=" + STR$(COS(0.785))
+  PRINT "SIN(0.785)=" + STR$(SIN(0.785))
+  PRINT "TAN(0.785)=" + STR$(TAN(0.785))
+  
+  PRINT "ACOS(0.707)=" + STR$(ACOS(0.707))
+  PRINT "ASIN(0.707)=" + STR$(ASIN(0.707))
+  PRINT "ATAN(1)=" + STR$(ATAN(1))
+  
+  PRINT "\n---- SECANT, COSECANT, COTANGENT (DEGREES) ----"
+
+  PRINT "SECD(45)=" + STR$(SECD(45))
+  PRINT "CSCD(45)=" + STR$(CSCD(45))
+  PRINT "COTD(45)=" + STR$(COTD(45))
+	
+  PRINT "ASECD(1.414)=" + STR$(ASECD(1.414))
+  PRINT "ACSCD(1.414)=" + STR$(ACSCD(1.414))
+  PRINT "ACOTD(1)=" + STR$(ACOTD(1))
+  
+  PRINT "\n---- SECANT, COSECANT, COTANGENT (RADIANS) ----"
+
+  PRINT "SEC(0.785)=" + STR$(SEC(0.785))
+  PRINT "CSC(0.785)=" + STR$(CSC(0.785))
+  PRINT "COT(0.785)=" + STR$(COT(0.785))
+	
+  PRINT "ASEC(1.414)=" + STR$(ASEC(1.414))
+  PRINT "ACSC(1.414)=" + STR$(ACSC(1.414))
+  PRINT "ACOT(1)=" + STR$(ACOT(1))
+END SUB