24 lines
997 B
QBasic
24 lines
997 B
QBasic
|
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
|