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 652 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 027 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.2588190451 0.1295399375E 01 0.2588190451 0.2588190451 0.4E-19 2. 15.0 1.0000000000 0.2718281828E 01 1.0000000000 1.0000000000 0.0E 00 3. 22.5 2.1213203436 0.8342144716E 01 2.1213203436 2.1213203436 0.0E 00 4. 30.0 3.4641016151 0.3194774551E 02 3.4641016151 3.4641016151 0.0E 00 5. 37.5 4.8296291314 0.1251645325E 03 4.8296291314 4.8296291314 0.0E 00 6. 45.0 6.0000000000 0.4034287935E 03 6.0000000000 6.0000000000 0.0E 00 7. 52.5 6.7614807840 0.8639205288E 03 6.7614807840 6.7614807840 0.0E 00 8. 60.0 6.9282032303 0.1020658443E 04 6.9282032303 6.9282032303 0.0E 00 9. 67.5 6.3639610307 0.5805413502E 03 6.3639610307 6.3639610307 0.0E 00 10. 75.0 5.0000000000 0.1484131591E 03 5.0000000000 5.0000000000 0.0E 00 11. 82.5 2.8470094961 0.1723615989E 02 2.8470094961 2.8470094961 0.0E 00 12. 90.0 0.0000000000 1.0000000000E 00 0.0000000000 0.0000000000 -0.4E-20 13. 97.5 -3.3646475863 0.3457419839E-01 -3.3646475863 -3.3646475863 0.0E 00 14. 105.0 -7.0000000000 0.9118819656E-03 -7.0000000000 -7.0000000000 0.0E 00 15. 112.5 -10.6066017178 0.2475206303E-04 -10.6066017178 -10.6066017178 0.0E 00 16. 120.0 -13.8564064606 0.9599290509E-06 -13.8564064606 -13.8564064606 0.0E 00 17. 127.5 -16.4207390469 0.7388625308E-07 -16.4207390469 -16.4207390469 0.0E 00 18. 135.0 -18.0000000000 0.1522997974E-07 -18.0000000000 -18.0000000000 0.0E 00 19. 142.5 -18.3525906995 0.1070461693E-07 -18.3525906995 -18.3525906995 0.0E 00 20. 150.0 -17.3205080757 0.3004684793E-07 -17.3205080757 -17.3205080757 0.0E 00 21. 157.5 -14.8492424049 0.3556771481E-06 -14.8492424049 -14.8492424049 0.0E 00 22. 165.0 -11.0000000000 0.1670170079E-04 -11.0000000000 -11.0000000000 0.0E 00 23. 172.5 -5.9528380374 0.2598455530E-02 -5.9528380374 -5.9528380374 0.0E 00 24. 180.0 0.0000000000 0.1000000000E 01 0.0000000000 0.0000000000 -0.3E-16 25. 187.5 6.4704761276 0.6457911327E 03 6.4704761276 6.4704761276 0.1E-18 26. 195.0 13.0000000000 0.4424133920E 06 13.0000000000 13.0000000000 0.0E 00 27. 202.5 19.0918830920 0.1956588407E 09 19.0918830920 19.0918830920 0.0E 00 28. 210.0 24.2487113060 0.3396890234E 11 24.2487113060 24.2487113060 0.0E 00 29. 217.5 28.0118489624 0.1463495638E 13 28.0118489624 28.0118489624 0.0E 00 30. 225.0 30.0000000000 0.1068647458E 14 30.0000000000 30.0000000000 0.0E 00 31. 232.5 29.9437006150 0.1010145526E 14 29.9437006150 29.9437006150 0.0E 00 32. 240.0 27.7128129211 0.1085229847E 13 27.7128129211 27.7128129211 0.0E 00 33. 247.5 23.3345237792 0.1361616844E 11 23.3345237792 23.3345237792 0.0E 00 34. 255.0 17.0000000000 0.2415495275E 08 17.0000000000 17.0000000000 0.0E 00 35. 262.5 9.0586665786 0.8592685341E 04 9.0586665786 9.0586665786 0.0E 00 36. 270.0 0.0000000000 1.0000000000E 00 0.0000000000 0.0000000000 0.4E-20 37. 277.5 -9.5763046688 0.6935275619E-04 -9.5763046688 -9.5763046688 0.0E 00 38. 285.0 -19.0000000000 0.5602796438E-08 -19.0000000000 -19.0000000000 0.0E 00 39. 292.5 -27.5771644663 0.1055333309E-11 -27.5771644663 -27.5771644663 0.0E 00 40. 300.0 -34.6410161514 0.9028130704E-15 -34.6410161514 -34.6410161514 0.0E 00 41. 307.5 -39.6029588779 0.6319074743E-17 -39.6029588779 -39.6029588779 0.0E 00 42. 315.0 -42.0000000000 0.5749522264E-18 -42.0000000000 -42.0000000000 0.0E 00 43. 322.5 -41.5348105304 0.9155055464E-18 -41.5348105304 -41.5348105304 0.0E 00 44. 330.0 -38.1051177665 0.2825905416E-16 -38.1051177665 -38.1051177665 0.0E 00 45. 337.5 -31.8198051534 0.1516471339E-13 -31.8198051534 -31.8198051534 0.0E 00 46. 345.0 -23.0000000000 0.1026187963E-09 -23.0000000000 -23.0000000000 0.0E 00 47. 352.5 -12.1644951198 0.5212269879E-05 -12.1644951198 -12.1644951198 0.0E 00 48. 360.0 0.0000000000 0.1000000000E 01 0.0000000000 0.0000000000 -0.1E-15