home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / astrmenu.lbr / PHOTOM.BZS / PHOTOM.BAS
Encoding:
BASIC Source File  |  1987-04-26  |  1.3 KB  |  38 lines
  1. 1 PRINT "From the February 1985 SKY & TELESCOPE, p. 158."
  2. 2 PRINT
  3. 3 PRINT "This program converts photoelectric meter readings to stellar"
  4. 4 PRINT "magnitudes.  It deals only with basics--no attempt is made to correct"
  5. 5 PRINT "for atmospheric extinction, color differences, or for nonlinearity of"
  6. 6 PRINT "the detector."
  7. 7 PRINT
  8. 8 PRINT "INPUT:  Meter readings for variable star, sky near variable star,"
  9. 9 PRINT "        comparison star, sky near comparison star, magnitude of"
  10. 10 PRINT "        comparison star."
  11. 11 PRINT
  12. 12 PRINT "OUTPUT:  Values for comparison star and variable star, magnitudes of"
  13. 13 PRINT "         comparison star and variable star."
  14. 14 PRINT
  15. 100 REM  PHOTOMETRIC REDUCTION
  16. 110 REM
  17. 115 PRINT: PRINT
  18. 120 PRINT "INPUT OBSERVATIONS:
  19. 125 PRINT
  20. 130 INPUT "VARIABLE STAR:";V
  21. 140 INPUT "SKY NEAR VARIABLE:";S
  22. 150 INPUT "COMPARISON STAR:";C
  23. 160 INPUT "SKY NEAR C STAR:";CS
  24. 165 PRINT
  25. 170 INPUT "MAG. OF C STAR:";M
  26. 180 V=V-S: C=C-CS
  27. 190 MV=2.5*LOG(C/V)/LOG(10)
  28. 195 MV=M+MV
  29. 200 PRINT: PRINT "RESULTS:"
  30. 210 PRINT "VALUE COM STAR: ";C
  31. 220 PRINT "VALUE VARIABLE: ";V
  32. 230 PRINT "MAG. COM. STAR: ";M
  33. 240 PRINT "MAG. VAR. STAR: ";MV
  34. 250 PRINT
  35. 260 INPUT "ANOTHER (Y, N)";Q$
  36. 270 IF Q$="Y" THEN GOTO 100
  37. 280 RUN"ASTRMENU.BAS"
  38. 240 PRINT