home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / astrmenu.lbr / SHUTTR.BZS / SHUTTR.BAS
BASIC Source File  |  1987-04-26  |  2KB  |  71 lines
  1. 1 PRINT "From the June 1985 SKY & TELESCOPE, p. 544."
  2. 2 PRINT
  3. 3 PRINT "This program computes equivalent shutter speeds based on an example
  4. 4 PRINT "photograph and information about another telescope and camera system."
  5. 5 PRINT "The program works very well for surface features of the Moon and
  6. 6 PRINT "planets, aurorae, the corona and prominences at a total solar"
  7. 7 PRINT "eclipse, and in many similar circumstances.  It is not intended for"
  8. 8 PRINT "photography of faint stars and nebulae owing to reciprocity failure."
  9. 9 PRINT
  10. 10 PRINT "INPUT:  Photographic method, objective focal length (mm), aperture
  11. 11 PRINT "        (mm), Barlow power, space from eyepiece to film (mm),"
  12. 12 PRINT "        eyepiece focal length (mm), telescope power, camera focal"
  13. 13 PRINT "        length (mm), example f/ number, example film index (ISO),"
  14. 14 PRINT "        example time (s), system film index (ISO)."
  15. 15 PRINT
  16. 16 PRINT "OUTPUT:  Equivalent shutter speed (s)."
  17. 17 PRINT
  18. 100 REM    SHUTTER SPEEDS
  19. 110 REM
  20. 120 PRINT "SELECT PHOTO METHOD--"
  21. 130 PRINT "  (A) PRIME FOCUS"
  22. 140 PRINT "  (B) BARLOW PROJ."
  23. 150 PRINT "  (C) EYEPIECE PROJ."
  24. 160 PRINT "  (D) AFOCAL METHOD"
  25. 170 PRINT "  (E) QUIT"
  26. 180 INPUT A$: PRINT
  27. 190 IF A$="A" THEN 250
  28. 200 IF A$="B" THEN 250
  29. 210 IF A$="C" THEN 330
  30. 220 IF A$="D" THEN 410
  31. 230 IF A$="E" THEN RUN "ASTRMENU.BAS"
  32. 240 GOTO 120
  33. 250 REM    CALCULATE F/NUMBER
  34. 260 INPUT "OBJECTIVE F.L.";A
  35. 270 INPUT "APERTURE";B
  36. 280 C=A/B: IF A$="A" THEN K=C
  37. 290 IF A$="A" THEN 470
  38. 300 INPUT "BARLOW POWER";D
  39. 310 K=C*D: GOTO 470
  40. 320 REM
  41. 330 REM  EYEPIECE PROJECTION
  42. 340 PRINT "SPACE FROM EYEPIECE"
  43. 350 INPUT "   TO FILM";A
  44. 360 INPUT "EYEPIECE F.L.";B
  45. 370 INPUT "OBJECTIVE F.L.";D
  46. 380 INPUT "APERTURE";F
  47. 390 K=(A*D)/(B*F): GOTO 470
  48. 400 REM
  49. 410 REM  AFOCAL METHOD
  50. 420 INPUT "SCOPE POWER";A
  51. 430 INPUT "APERTURE";D
  52. 440 INPUT "CAMERA F.L.";B
  53. 450 C=A*B: K=C/D
  54. 460 REM
  55. 470 REM  CALC. SHUTTER SPEEDS
  56. 480 PRINT
  57. 490 INPUT "EXAMPLE F/NUMBER";L
  58. 500 INPUT "EXAMPLE FILM INDEX";M
  59. 510 INPUT "EXAMPLE TIME";O
  60. 520 PRINT
  61. 530 INPUT "YOUR FILM INDEX";N
  62. 540 R=(K*K)/(L*L)
  63. 550 V=R*O*M/N
  64. 560 PRINT V;" IS YOUR TIME"
  65. 570 PRINT: INPUT "NEXT";A$
  66. 580 GOTO 120
  67.  "YOUR FILM INDEX";N
  68. 540 R=(K*K)/(L*L)
  69. 550 V=R*O*M/N
  70. 560 PRINT V;" IS YOUR TIME"
  71. 570 PRINT: INPUT "NEXT