ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: v3.00
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'v3.00'
${ noResults }
bwBASIC/NBS2/P040.run

62 lines
4.8 KiB
Raw Permalink Blame History 

  1. PROGRAM FILE 40: ACCURACY OF SUBTRACTION                                        

  2.     ANSI STANDARD 7.2, 7.4, 7.6                                                 

  3.                                                                                 

  4. *** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'                           

  5.     WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW                    

  6.     THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE                      

  7.     VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL.                   

  8.                                                                                 

  9. SECTION 40.1 ACCURACY OF SUBTRACTION.                                           

  10.                                                                                 

  11. THIS SECTION TESTS THE ACCURACY OF SUBTRACTION. THE COMPUTED                    

  12. RESULT IS COMPARED WITH A RANGE ESTABLISHED BY PERTURBING                       

  13. EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT PASSES IF                        

  14. IT FALLS WITHIN THE EXTREME VALUES GENERATED BY THIS                            

  15. PERTURBATION (ACCURATE TO SIX DIGITS).                                          

  16.                                                                                 

  17. THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD                          

  18. DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS.                          

  19.                                                                                 

  20.               BEGIN TEST                                                        

  21.                                                                                 

  22. FIRST          SECOND         TRUE           COMPUTED       TEST                

  23. OPERAND        OPERAND        VALUE          VALUE          RESULT              

  24.                                                                                 

  25.  0              0              0              0             PASS                

  26.  0             -765.432        765.432        765.432       PASS                

  27.  876.543       -123.453        999.996        999.996       PASS                

  28.  8.11111E-2    -1.11111E-2     9.22222E-2     9.22222E-2    PASS                

  29. -57.9999        .111111       -58.111        -58.111        PASS                

  30.  1.11111E+6    -1.11111E+6     2.22222E+6     2.22222E+6    PASS                

  31.  6.54321       -1.23456        7.77777        7.77777       PASS                

  32.  6.54321E-10   -1.23456E-10    7.77777E-10    7.77777E-10   PASS                

  33. -6.54321E-20    1.23456E-20   -7.77777E-20   -7.77777E-20   PASS                

  34.  6.54321E-30   -1.23456E-30    7.77777E-30    7.77777E-30   PASS                

  35.  6.54321E-38   -1.23456E-38    7.77777E-38    7.77777E-38   PASS                

  36.  1.23456E+10   -6.54321E+10    7.77777E+10    7.77777E+10   PASS                

  37. -1.23456E+20    6.54321E+20   -7.77777E+20   -7.77777E+20   PASS                

  38.  1.23456E+30   -6.54321E+30    7.77777E+30    7.77777E+30   PASS                

  39.  1.23456E+37   -6.54321E+37    7.77777E+37    7.77777E+37   PASS                

  40.  4.99997E-2    -4.99996E-2     9.99993E-2     9.99993E-2    PASS                

  41.  9.99993E-2    -4.E-7          9.99997E-2     9.99997E-2    PASS                

  42.  9.99993E-2    -4.E-8          9.99993E-2     9.99993E-2    PASS                

  43.  9.99993E-2    -4.E-9          9.99993E-2     9.99993E-2    PASS                

  44.  9.99993E-2    -4.E-10         9.99993E-2     9.99993E-2    PASS                

  45.  9.99993E-2    -4.E-11         9.99993E-2     9.99993E-2    PASS                

  46. -1.0203E+6     -4             -1.0203E+6     -1.0203E+6     PASS                

  47.  1.0203E+6      304            1.02E+6        1.02E+6       PASS                

  48. -1.0203E+6     -20304         -1.E+6         -1.E+6         PASS                

  49. -1.0203E+6     -1.0203E+6      0              0             PASS                

  50. -.10203        -4.E-7         -.10203        -.10203        PASS                

  51.  .10203         3.04E-5        .102           .102          PASS                

  52. -.10203        -2.0304E-3     -.1            -.1            PASS                

  53. -.10203        -.10203         0              0             PASS                

  54. -.10203        -.10203        -1.E-7         -1.E-7         PASS                

  55. -.10203        -.10203         1.E-7          1.E-7         PASS                

  56.                                                                                 

  57. *** INFORMATIVE TEST PASSED ***                                                 

  58.                                                                                 

  59.                END TEST                                                         

  60.                                                                                 

  61. END PROGRAM 40