Page images
PDF
EPUB
[blocks in formation]

3180 DATA

0.995855000E-37, 0.944647000E-00, 0.940731438E-37 3190 DATA 0.940728997E-37, 0.940733879E-37

3200 DATA 0.999000000E+00, 0.999000000E+00, 0.998001000E+00 3210 DATA 0.997998502E+00, 0.998003499E+00

3220 DATA 0.774758000E+06, 0.758675000E+06, 0.587789526E+12 3230 DATA 0.587787492E+12, 0.587791560E+12

3240 DATA

0.365341000E+05,-0.338383000E-02,-0.123625184E+03

3250 DATA -0.123626388E+03,-0.123623979E+03

3260 DATA -0.989878000E-01, 0.985342000E-01,-0.975368368E-02 3270 DATA

-0.975370844E-02,-0.975365893E-02

3280 DATA -0.228373000E+00, -0.955664000E+03, 0.218247855E+03 3290 DATA 0.218246170E+03, 0.218249539E+03

3300 DATA 0.390625000E+00, -0.248864000E+00, -0.972125000E-01 3310 DATA

-0.972131895E-01,-0.972118105E-01

3320 DATA -0.390625000E-29, 0.248864000E+33,-0.972125000E+03 3330 DATA -0.972131895E+03,-0.972118105E+03

5000 DATA 999,0,0,0,0

5010 END

PROGRAM FILE 41: ACCURACY OF MULTIPLICATION

ANSI STANDARD 7.2, 7.4, 7.6

*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'
WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW
THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE
VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL.

SECTION 41.1 ACCURACY OF MULTIPLICATION.

THIS SECTION TESTS THE ACCURACY OF MULTIPLICATION. THE
COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY
PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT
PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY
THIS PERTURBATION (ACCURATE TO SIX DIGITS).

THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD
DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS.

[blocks in formation]

9.95855E+18 9.44647E+18 9.40731E+37 9.40731E+37 PASS

[merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][ocr errors][merged small]

10 PRINT "PROGRAM FILE 42: ACCURACY OF DIVISION"

20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6"

30 PRINT

40 PRINT "*** 50 PRINT"

60 PRINT "

70 PRINT " 80 PRINT

NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'"
WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW"
THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE"
VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL."

100 PRINT "SECTION 42.1 ACCURACY OF DIVISION."

110 PRINT

120 PRINT "THIS SECTION TESTS THE ACCURACY OF DIVISION. THE "

130 PRINT "COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY" 140 PRINT "PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT" 150 PRINT "PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY" 160 PRINT "THIS PERTURBATION (ACCURATE TO SIX DIGITS)."

220 PRINT

230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" 240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." 250 PRINT

[blocks in formation]

280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST"

290 PRINT "OPERAND","OPERAND", "VALUE", "VALUE", "RESULT"

300 PRINT

310 LET F=0

320 READ A1, A2,T,L, H

330 IF A1=999 THEN 480

335 LET M$="PASS"

340 LET C=A1/A2

350 IF C<L THEN 380

360 IF C>H THEN 380

370 GOTO 400

380 LET M$="FAIL"

***

390 LET F=F+1

400 PRINT A1, A2,T,C,M$

410 GOTO 320

480 PRINT

490 IF F=0 THEN 520

500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***"❗ 510 GOTO 530

520 PRINT "*** INFORMATIVE TEST PASSED ***"

[blocks in formation]

3000 DATA

0.972125000E+13, 0.248864000E-02, 0.390625000E+16

3010 DATA 0.390622528E+16, 0.390627472E+16

3020 DATA -0.972125000E-04,-0.248864000E+14, 0.390625000E-17 3030 DATA 0.390622528E-17, 0.390627472E-17

3040 DATA 0.936467000E-01, 0.954647000E-01, 0.980956312E+00 3050 DATA 0.980953736E+00, 0.980958887E+00

3060 DATA 0.376465000E+38, 0.895857000E+38, 0.420228898E+00 3070 DATA 0.420226812E+00, 0.420230984E+00

3080 DATA 0.958764000E+18, 0.558589000E+16, 0.171640329E+03 3090 DATA 0.171639343E+03, 0.171641316E+03

3100 DATA -0.457858000E-16,-0.879796000E-13, 0.520413823E-03 3110 DATA 0.520411595E-03, 0.520416052E-03

3120 DATA 0.237847000E-37, 0.117265000E-37, 0.202828636E+01 3130 DATA 0.202825553E+01, 0.202831719E+01

3140 DATA

0.684776000E+38,-0.697536000E+00, -0.981707037E+38 3150 DATA -0.981710379E+38,-0.981703696E+38

3160 DATA -0.346756000E+21, 0.222736000E-16,-0.155680267E+38 3170 DATA -0.155681916E+38,-0.155678619E+38

3200 DATA 0.987645000E+00, 0.987897000E-37, 0.999744913E+37 3210 DATA 0.999742388E+37, 0.999747437E+37

3220 DATA -0.447563000E-36, 0.668575000E+01,-0.669428262E-37 3230 DATA -0.669431259E-37,-0.669425264E-37

3240 DATA 0.857653000E-19,-0.889763000E+18, -0.963911738E-37 3250 DATA -0.963914446E-37,-0.963909031E-37

3260 DATA -0.557645000E+01,-0.786453000E+38, 0.709063352E-37 3270 DATA 0.709060678E-37, 0.709066025E-37

5000 DATA 999,0,0,0,0

5010 END

PROGRAM FILE 42: ACCURACY OF DIVISION

ANSI STANDARD 7.2, 7.4, 7.6

*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'
WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW
THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE
VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL.

SECTION 42.1 ACCURACY OF DIVISION.

THIS SECTION TESTS THE ACCURACY OF DIVISION. THE
COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY
PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT
PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY
THIS PERTURBATION (ACCURATE TO SIX DIGITS).

THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD
DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS.

[blocks in formation]

10 PRINT "PROGRAM FILE 43: ACCURACY OF INVOLUTION"

20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6"

30 PRINT

40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'"

50 PRINT "

60 PRINT "

70 PRINT "

80 PRINT

WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW"
THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE"
VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL."

100 PRINT "SECTION 43.1 ACCURACY OF INVOLUTION."

110 PRINT

120 PRINT "THIS SECTION TESTS THE ACCURACY OF INVOLUTION. THE

130 PRINT "COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY" 140 PRINT "PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT" 150 PRINT "PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY" 160 PRINT "THIS PERTURBATION (ACCURATE TO SIX DIGITS)."

220 PRINT

230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" 240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." 250 PRINT

[blocks in formation]

280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST"

290 PRINT "OPERAND","OPERAND", "VALUE","VALUE","RESULT"

300 PRINT

310 LET F=0

320 READ A1, A2,T,L, H

330 IF A1=999 THEN 480

335 LET M$="PASS"

340 LET C=A1^A2

350 IF C<L THEN 380

360 IF C>H THEN 380

370 GOTO 400

380 LET M$="FAIL"

390 LET F=F+1

400 PRINT A1, A2,T,C,M$

410 GOTO 320

480 PRINT

490 IF F=0 THEN 520

500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" 510 GOTO 530

520 PRINT "*** INFORMATIVE TEST PASSED ***11

[blocks in formation]

3000 DATA -0.376354000E+01,-0.440000000E+02, 0.471793993E-25 3010 DATA

0.471738338E-25, 0.471849655E-25

3020 DATA -0.687465000E+01,-0.110000000E+02,-0.616940788E-09 3030 DATA -0.616951160E-09,-0.616930416E-09

3040 DATA -0.736443000E+04,-0.100000000E+01,-0.135787834E-03 3050 DATA -0.135788519E-03,-0.135787149E-03

3060 DATA -0.333874000E+02, 0.100000000E+01,-0.333874000E+02 3070 DATA -0.333875500E+02,-0.333872500E+02

3080 DATA -0.984343000E+03, 0.700000000E+01,-0.895416722E+21 3090 DATA -0.895423590E+21,-0.895409854E+21

3100 DATA -0.336353000E+01, 0.120000000E+02, 0.209673559E+07 3110 DATA 0.209665578E+07, 0.209681540E+07

3115 REM TEST −1^X

3120 DATA -0.100000000E+01,-0.330000000E+02,-0.100000000E+01 3130 DATA -0.100033506E+01,-0.999669556E+00

3140 DATA -0.100000000E+01,-0.600000000E+01, 0.100000000E+01

« PreviousContinue »