|
- REM ------------------------------------------------------------
- REM PURPOSE: TEST THE PARAMETER RANGE CHECKS
- REM AUTHOR: HOWARD WULF, AF5NE
- REM GENERATED: 02/21/2015 14:08:30
- REM FILENAME: F_RAD_X_N.BAS
- REM SYNTAX: N = RAD( X )
- REM UNIQUEID: F_RAD_X_N
- REM FUNCTION: RAD
- REM
- REM VARIABLE DESCRIPTION
- REM I CURRENT TESTCASE NUMBER
- REM E EXPECTED ERROR FLAG
- REM F ACTUAL ERROR FLAG
- REM R EXPECTED FUNCTION RESULT
- REM N ACTUAL FUNCTION RESULT
- REM X ACTUAL FUNCTION PARAMETER
- REM
- RESTORE 2000
- REM GET TESTCASE #
- READ I
- WHILE I > 0
- REM GET TESTCASE DATA
- READ E, R, X
- REM DISPLAY TESTCASE DATA
- PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X
- REM EXECUTE TESTCASE
- N = 0
- S$ = ""
- ON ERROR GOTO 9000
- F = 0
- 999 N = RAD( X )
- ERROR 0
- REM DISPLAY TESTCASE RESULTS
- PRINT ,"F=";F,"N=";N
- REM VERIFY EXPECTED ERROR
- IF E <> F THEN
- PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***"
- STOP
- END IF
- REM VERIFY EXPECTED RESULT
- IF R > 0 THEN
- LET RMIN = 0.99 * R
- IF R > MAXNUM / 1.012 THEN
- LET RMAX = MAXNUM
- ELSE
- LET RMAX = 1.01 * R
- END IF
- END IF
- IF R < 0 THEN
- IF R < - MAXNUM / 1.012 THEN
- LET RMIN = -MAXNUM
- ELSE
- LET RMIN = 1.01 * R
- END IF
- LET RMAX = 0.99 * R
- END IF
- IF R = 0 THEN
- LET RMIN = -.01
- LET RMAX = +.01
- END IF
- IF N < RMIN THEN
- PRINT "*** TEST FAILED, RESULT MISMATCH ***"
- STOP
- END IF
- IF N > RMAX THEN
- PRINT "*** TEST FAILED, RESULT MISMATCH ***"
- STOP
- END IF
- PRINT "*** TEST PASSED ***"
- REM GET NEXT TESTCASE #
- READ I
- WEND
- PRINT "*** ALL TESTS PASSED ***"
- GOTO 9999
- 1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS...
- DATA 1 , 0 , 0 , 0
- DATA 2 , 0 , 1.74533E-2 , 1
- DATA 3 , 0 , -1.74533E-2 , -1
- DATA 4 , 0 , 6.98132E-3 , .4
- DATA 5 , 0 , -6.98132E-3 , -.4
- DATA 6 , 0 , .010472 , .6
- DATA 7 , 0 , -.010472 , -.6
- DATA 8 , 0 , 4.43314 , 254
- DATA 9 , 0 , 4.45059 , 255
- DATA 10 , 0 , 4.46804 , 256
- DATA 11 , 0 , 558.505 , 32000
- DATA 12 , 0 , -3.96589E-3 , -.227229
- DATA 13 , 0 , -4.17408E-3 , -.239157
- DATA 14 , 0 , -3.72778E-3 , -.213586
- DATA 15 , 0 , 4.79398E-3 , .274675
- DATA 16 , 0 , 2.96298E-3 , .169766
- DATA 17 , 0 , 5.56352E-3 , .318766
- DATA 18 , 0 , 3.60686E-4 , 2.06658E-2
- DATA 19 , 0 , 3.2857E-3 , .188257
- DATA 20 , 0 , -4.84393E-3 , -.277537
- DATA 21 , 0 , -8.40032E-3 , -.481303
- DATA 22 , 0 , 7.60196E-3 , .43556
- DATA 23 , 0 , -3.68214E-3 , -.210971
- DATA 24 , 0 , -7.94502E-3 , -.455216
- DATA 25 , 0 , -1.93569 , -110.907
- DATA 26 , 0 , 1.84363 , 105.632
- DATA 27 , 0 , -1.99563 , -114.341
- DATA 28 , 0 , 1.91473 , 109.706
- DATA 29 , 0 , 1.90586 , 109.198
- DATA 30 , 0 , 1.49884 , 85.8773
- DATA 31 , 0 , -1.01848 , -58.3548
- DATA 32 , 0 , .51731 , 29.6397
- DATA 33 , 0 , -1.89124 , -108.36
- DATA 34 , 0 , -.811925 , -46.5199
- DATA 35 , 0 , 1.96386 , 112.521
- DATA 36 , 0 , .792643 , 45.4151
- DATA 37 , 0 , 1.76503 , 101.129
- DATA 38 , 0 , 1.13529 , 65.0473
- DATA 39 , 0 , .84476 , 48.4012
- DATA 40 , 0 , 2.13443 , 122.294
- DATA 41 , 0 , -.979294 , -56.1094
- DATA 42 , 0 , -2.11337 , -121.087
- DATA 43 , 0 , -2.15578 , -123.517
- DATA 44 , 0 , -1.70397 , -97.6301
- DATA 45 , 0 , -1.11701 , -64.0001
- DATA 46 , 0 , -.448354 , -25.6888
- DATA 47 , 0 , .258319 , 14.8006
- DATA 48 , 0 , -1.06618 , -61.0877
- DATA 49 , 0 , -1.16305 , -66.6381
- DATA 50 , 0 , -95.583 , -5476.5
- DATA 51 , 0 , -370.19 , -21210.3
- DATA 52 , 0 , -501.908 , -28757.2
- DATA 53 , 0 , -501.471 , -28732.2
- DATA 54 , 0 , 222.186 , 12730.3
- DATA 55 , 0 , -31.9516 , -1830.69
- DATA 56 , 0 , 95.7556 , 5486.39
- DATA 57 , 0 , 391.057 , 22405.9
- DATA 58 , 0 , 537.732 , 30809.8
- DATA 59 , 0 , -504.934 , -28930.6
- DATA 60 , 0 , -104.973 , -6014.53
- DATA 61 , 0 , 303.942 , 17414.6
- DATA 62 , 0 , -183.928 , -10538.3
- DATA 63 , 0 , -306.066 , -17536.3
- DATA 64 , 0 , -154.577 , -8856.62
- DATA 65 , 0 , -89.712 , -5140.12
- DATA 66 , 0 , -150.016 , -8595.31
- DATA 67 , 0 , -59.0422 , -3382.87
- DATA 68 , 0 , -87.3026 , -5002.07
- DATA 69 , 0 , -101.242 , -5800.72
- DATA 70 , 0 , 518.125 , 29686.4
- DATA 71 , 0 , 44.8724 , 2571.
- DATA 72 , 0 , 542.64 , 31091.
- DATA 73 , 0 , 258.64 , 14819.
- DATA 74 , 0 , 66.1637 , 3790.9
- DATA 75 , 0 , -7.5016E+7 , -4.2981E+9
- DATA 76 , 0 , -1.23125E+7 , -7.05453E+8
- DATA 77 , 0 , -5.41364E+7 , -3.10179E+9
- DATA 78 , 0 , -8.48508E+7 , -4.86159E+9
- DATA 79 , 0 , -1.50606E+7 , -8.62908E+8
- DATA 80 , 0 , -5.95175E+7 , -3.4101E+9
- DATA 81 , 0 , 5.91475E+7 , 3.3889E+9
- DATA 82 , 0 , 4.36029E+7 , 2.49826E+9
- DATA 83 , 0 , 4.09995E+7 , 2.3491E+9
- DATA 84 , 0 , 3.39894E+6 , 1.94745E+8
- DATA 85 , 0 , 3.53386E+7 , 2.02475E+9
- DATA 86 , 0 , -3.9575E+7 , -2.26748E+9
- DATA 87 , 0 , -3.67544E+7 , -2.10587E+9
- DATA 88 , 0 , 7.39295E+7 , 4.23585E+9
- DATA 89 , 0 , -4.65172E+7 , -2.66524E+9
- DATA 90 , 0 , 6.99968E+7 , 4.01052E+9
- DATA 91 , 0 , -8.51567E+7 , -4.87912E+9
- DATA 92 , 0 , 3.09894E+7 , 1.77556E+9
- DATA 93 , 0 , 5.0214E+6 , 2.87705E+8
- DATA 94 , 0 , 3.49026E+6 , 1.99977E+8
- DATA 95 , 0 , -5.93309E+7 , -3.39941E+9
- DATA 96 , 0 , -6.09328E+7 , -3.49119E+9
- DATA 97 , 0 , -4.9973E+7 , -2.86324E+9
- DATA 98 , 0 , 7.33768E+7 , 4.20418E+9
- DATA 99 , 0 , -5.50093E+7 , -3.1518E+9
- DATA 100 , 0 , 8.03925E+7 , 4.60615E+9
- DATA 0
- 9000 REM ERROR HANDLER
- IF ERL = 999 THEN
- F = ABS(SGN(ERR))
- RESUME NEXT
- END IF
- PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***"
- 9999 END
|
Ye Ol' π Shack