home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / ASTROSET / PHOTOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-04  |  640 b   |  26 lines
  1.  
  2. 100 REM  PHOTOMETRIC REDUCTION
  3. 110 REM
  4. 115 PRINT: PRINT
  5. 120 PRINT "INPUT OBSERVATIONS:
  6. 125 PRINT
  7. 130 INPUT "VARIABLE STAR:";V
  8. 140 INPUT "SKY NEAR VARIABLE:";S
  9. 150 INPUT "COMPARISON STAR:";C
  10. 160 INPUT "SKY NEAR C STAR:";CS
  11. 165 PRINT
  12. 170 INPUT "MAG. OF C STAR:";M
  13. 180 V=V-S: C=C-CS
  14. 190 MV=2.5*LOG(C/V)/LOG(10)
  15. 195 MV=M+MV
  16. 200 PRINT: PRINT "RESULTS:"
  17. 210 PRINT "VALUE COM STAR: ";C
  18. 220 PRINT "VALUE VARIABLE: ";V
  19. 230 PRINT "MAG. COM. STAR: ";M
  20. 240 PRINT "MAG. VAR. STAR: ";MV
  21. 250 PRINT
  22. 260 INPUT "ANOTHER (Y, N)";Q$
  23. 270 IF Q$="Y" THEN GOTO 100
  24. 280 END
  25.  
  26.