home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / ASTROSET / GLOB1.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-04  |  768 b   |  35 lines
  1. 10 REM   GLOBULAR CLUSTER PLOT
  2. 12 REM
  3. 14 R1=3.14159265/180
  4. 16 M0=+0.6:  REM  RR LYRAE STARS
  5. 18 GOSUB 66
  6. 20 PRINT
  7. 22 INPUT "NAME ";N$
  8. 24 INPUT "APPAR. MAG. (H.B.)";M1
  9. 26 INPUT "VISUAL EXTINCTION ";M2
  10. 28 D=10^(.2*(M1-M2-M0)-2)
  11. 30 D=D*3262:  REM  LIGHT-YEARS
  12. 32 INPUT "LONGITUDE";L
  13. 34 INPUT "LATITUDE ";B
  14. 36 L=L*R1:  B=B*R1
  15. 38 PRINT
  16. 40 PRINT "DISTANCE = ";D
  17. 42 IF S>2 THEN 50
  18. 44 X=D*COS(L)*COS(B)
  19. 46 PRINT " X = ";X
  20. 48 IF S<2 THEN 56
  21. 50 Y=D*SIN(L)*COS(B)
  22. 52 PRINT " Y = ";Y
  23. 54 IF S=2 THEN 60
  24. 56 Z=D*SIN(B)
  25. 58 PRINT " Z + ";Z
  26. 60 INPUT "ANOTHER (Y OR N) ";Q$
  27. 62 IF Q$<>"N" THEN 20
  28. 64 END
  29. 66 PRINT "(1) X-Z EDGE-ON VIEW"
  30. 68 PRINT "(2) X-Y FACE-ON VIEW"
  31. 70 PRINT "(3) Y-Z EDGE-ON VIEW"
  32. 72 PRINT
  33. 74 INPUT "YOUR SELECTION ";S
  34. 76 RETURN
  35.