START OF FORTRAN COMPILATION MACHINE SIZE SPECIFIED IS 08000 ACTUAL MACHINE SIZE IS 16000 PAGE 1 SEQ STMNT FORTRAN STATEMENT C APPENDIX E C EXERCISE LIBRARY FUNCTIONS 1 PRINT 8 2 8 FORMAT%48H1A#2I%SQRT%1-COS%X)**2)COS%X)SIN%X)/ABS%SIN%X)))) 3 PRINT 1 4 1 FORMAT%97H0 I DEGREES A EXPONENTIAL%A)#B 1 LOGARITHM%B)#C I SIN%2X)#D C-D//) 5 FI#1.0 6 DEGREE#7.5 7 DELTA#1.57079632679489661923/12.0 8 ARG#DELTA 9 3 A#%FI&FI)*SQRTF%1.0-COSF%ARG)**2)*COSF%ARG) 10 IF%FI-24.)7,7,6 11 6 A#-A 12 7 B#EXPF%A) 13 C#LOGF%B) 14 D#FI*SINF%ARG&ARG) 15 DIFF#C-D 16 PRINT 2,FI,DEGREE,A,B,C,D,DIFF 17 2 FORMAT%1X,F3.0,F9.1,F19.10,E19.10,2F19.10,E12.1) 18 FI#FI&1.0 19 DEGREE#DEGREE&7.5 20 ARG#ARG&DELTA 21 IF%FI-49.0)3,4,5 22 4 PRINT 9 23 9 FORMAT%1H1) 24 STOP 111 25 5 STOP 777 26 END 27 657 INPUT CHARACTERS MODULUS IS 5 MANTISSA IS 20 STORAGE ASSIGNMENT-ARRAYS & EQUATED VARIABLES NO ARRAYS STORAGE ASSIGNMENT - SIMPLE VARIABLES ARG 4301 30/ DEGREE 4323 32T FI 4345 34V DIFF 4367 36X D 4389 38Z C 4411 41/ B 4433 43T A 4455 45V DELTA 4477 47X CONSTANTS LOCATED FROM 07924 TO 07999 I2U-I9Z STARTING ADDRESS OF STATEMENTS SEQ STARTING ADDRESS DISPLAY 001 52W 4526 53| 003 53X 4537 54/ 005 54Y 4548 55S 006 56| 4560 56U 007 57S 4572 57W 008 58Y 4588 59S 009 60| 4600 60U 010 66| 4660 66U 011 68Y 4688 69S 012 70/ 4701 70V 013 71U 4714 71Y 014 72X 4727 73/ 015 74Y 4748 75S 016 76U 4764 76Y 018 77V 4775 77Z 019 79/ 4791 79V 020 80X 4807 81/ 021 82T 4823 82X 022 85Z 4859 86T 024 87| 4870 87U 025 87Z 4879 88T 028 88Y 4888 89S END OF COMPILATION PRESS START TO GO A#2I%SQRT%1-COS%X)**2)COS%X)SIN%X)/ABS%SIN%X))) I DEGREES A EXPONENTIAL%A)#B LOGARITHM%B)#C I SIN%2X)#D C-D/ 1. 7.5 0.0617600583 0.1063707086E 01 0.0012741419 0.0617600583 -0.6E-01 2. 15.0 0.2465686397 0.1279627013E 01 0.0055925548 0.2465686397 -0.2E 00 3. 22.5 0.5530136645 0.1738484340E 01 0.0147699553 0.5530136645 -0.5E 00 4. 30.0 0.9787506553 0.2661129496E 01 0.0332256462 0.9787506553 -0.9E 00 LNZ 71Y 000000000000000000000?0?| 5. 37.5 1.5205161724 0.0000000000E 00 X 1.5205161724 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 6. 45.0 2.1741465269 0.0000000000E 00 X 2.1741465269 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 7. 52.5 2.9346016774 0.0000000000E 00 X 2.9346016774 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 8. 60.0 3.7959941874 0.0000000000E 00 X 3.7959941874 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 9. 67.5 4.7516230960 0.0000000000E 00 X 4.7516230960 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 10. 75.0 5.7940125295 0.0000000000E 00 X 5.7940125295 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 11. 82.5 6.9149548567 0.0000000000E 00 X 6.9149548567 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 12. 90.0 8.1055581666 0.0000000000E 00 X 8.1055581666 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 13. 97.5 9.3562978267 0.0000000000E 00 X 9.3562978267 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 14. 105.0 10.6570718567 0.0000000000E 00 X 10.6570718567 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 15. 112.5 11.9972598350 0.0000000000E 00 X 11.9972598350 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 16. 120.0 13.3657850334 0.0000000000E 00 X 13.3657850334 -1.0E 99 LNZ 71Y 000000000000000000000?0?|