home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / t.universe < prev    next >
Text File  |  2022-08-26  |  21KB  |  772 lines
  1.  
  2.  
  3.    C O R K Y ' S   U N I V E R S E
  4.  
  5.   Programs and Text by Corky Cochran
  6.  
  7.  
  8.  [FENDER'S PREMUMBLE:] I asked for
  9. some small, elegant programs and sure
  10. enough, Corky Cochran of Ontario CA
  11. responded with several useful and
  12. interesting astronomy programs. So,
  13. fool that I am, I bunched five of
  14. them together to make a large
  15. program. The five are actually in
  16. separate PRG files linked together by
  17. a small presenter. All five are quite
  18. similar; you enter data and see
  19. information on the screen. You may
  20. only return to the UNIVERSE presenter
  21. after running an 'experiment'. From
  22. the presenter you may return to
  23. LOADSTAR.
  24.  
  25.  You [must] run the presenter
  26. (b.universe) to see the programs.
  27. Corky's working on some more programs
  28. like this, so keep an eye out for
  29. them on a future LOADSTAR. Also, just
  30. to be safe, KEEP WATCHING THE SKIES!
  31.  
  32.  
  33.  [L U N A R   L O C A T O R]
  34.  [{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}]
  35.  
  36.  Inspired by Roger Sinnott, Sky &
  37.   Telescope Magazine, April 1994
  38.  
  39.  
  40.     LUNAR LOCATOR will tell you
  41. everything you wanted to know about
  42. the moon. But first you have to enter
  43. the date you want the lunar
  44. information for. For the year, use
  45. any year you wish, but if it's before
  46. October 15, 1582, then it's the
  47. Julian calendar you are using. So to
  48. enter the date 1 B.C. you input 0,
  49. for 100 B.C. it's -99 years. You will
  50. also be asked for the month and day.
  51. If you enter something you didn't
  52. want to, you will be given a chance
  53. to change your inputs.
  54.  
  55.     Then the program will display the
  56. following information about that
  57. date:
  58.  
  59.  (1) How old the Moon is in days (0-
  60. 29).
  61.  
  62.  (2) What phase the Moon is in for
  63. the input date.
  64.  
  65. The Moon is said to be in the waxing
  66. phase from New to Full, while it's a
  67. waning Moon from Full to New.
  68.  
  69.  (3) The Moon's distance from Earth
  70. in radii, from a perigee (closest) of
  71. 56 Earth's radii, to an apogee
  72. (farthest) of 64 Earth's radii. This
  73. is calculated using an average of
  74. 60.3 radii. Earth's radius is 6378.14
  75. kilometers in length.
  76.  
  77.  (4) The Moon's distance from Earth
  78. in kilometers. This is a ballpark
  79. figure; the program averages the Moon
  80. distance for its calculations. It's
  81. not off by more than a couple hundred
  82. kilometers.
  83.  
  84.  (5) The Ecliptic latitude in
  85. degrees. As the Moon orbits Earth,
  86. its orbit varies from 5 degrees above
  87. the ecliptic to -5 degrees below.
  88.  
  89.  (6) The Moon's celestial longitude,
  90. or where it is in orbit (from 0-360
  91. degrees).
  92.  
  93.     At this point you can try another
  94. date or return to the UNIVERSE
  95. presenter.
  96.  
  97.  [ECLIPSES]
  98.  
  99.     If the Moon is full or new and
  100. the Moon crosses the Ecliptic at
  101. these phases it's eclipse time!
  102. Either a solar or lunar eclipse will
  103. happen somewhere on Earth, as is
  104. displayed on screen.
  105.  
  106.     The degree of eclipse depends on
  107. two things: the Moon's distance from
  108. Earth, and how close to zero is its
  109. ecliptic latitude. In other words, if
  110. the Moon is in its new phase, and
  111. crosses the ecliptic at or near zero
  112. degrees, you get a solar eclipse. The
  113. same is true for the full Moon and a
  114. lunar eclipse. The distance and
  115. latitude will determine the type of
  116. solar or lunar eclipse you see: an
  117. annual, (Sun only) Total, partial
  118. (both), or penumbra (Moon only). Your
  119. local newspaper or TV News should
  120. have a report as to the exact type it
  121. will be. Periodicals such as the Old
  122. Farmer's Almanac or Sky & Telescope
  123. magazine can be helpful as well.
  124.  
  125.  [NOTE:] There will be NO solar
  126. eclipses seen from the USA until
  127. August 2017 -- 2024 for Canada.
  128.  
  129.     Will there be an eclipse
  130. somewhere on Earth soon? (HINT: Feb.
  131. 26, 1998, Aug. 21, 1998, both
  132. solar).
  133.  
  134.     All of these things can be
  135. determined quickly with LUNAR
  136. LOCATOR. I hope you enjoy having the
  137. power to find out all of this
  138. information about the moon on a
  139. particular date.
  140.  
  141.  
  142.  [C R A T E R   M A K E R]
  143.  [{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}]
  144.  
  145.   Inspired by John Kennewell, Sky
  146.  & Telescope Magazine, November 1996
  147.  
  148.     This program is dedicated to the
  149. memory of the late and great Eugene
  150. Shoemaker (April 28, 1928-July 18,
  151. 1997). He died in central Australia
  152. in a head-on vehicular crash. He was
  153. doing research on impact craters, one
  154. of his many loves in life. His wife,
  155. Carolyn, who was with him, has
  156. luckily survived.
  157.  
  158.     They were the co-discoverers of
  159. Comet Shoemaker-Levy, the one the
  160. broke up into 20 pieces and struck
  161. Jupiter, as well as 31 other comets
  162. and 800 asteriods. He was the man who
  163. taught the Apollo astronauts what to
  164. look for while they were on the moon
  165. -- what rocks to look for and
  166. collect. He also helped on TV to
  167. describe what the astronauts were
  168. finding in their visits to our Moon.
  169.  
  170.     Recently there have been several
  171. TV movies and much speculating about
  172. objects striking the Earth. Even in
  173. the scientific community the amount
  174. of material that can plummet to Earth
  175. is just now being realized. Over the
  176. last few years, three large objects
  177. have come very close to our home
  178. planet. One passed between the Earth
  179. and Moon!
  180.  
  181.     There is now a project among
  182. astronomers known as Near-Earth
  183. Asteriod Tracking. It uses an Air
  184. Force satellite-tracking telescope to
  185. search and catalog all the objects
  186. that make close passes by Earth.
  187. Eleanor F. Helin of JPL recently
  188. reported that 10% of the sky has been
  189. searched thus far and 5000 asteriods
  190. have been identified. These asteriods
  191. are about 1000 meters in size, and of
  192. these, seven are a future threat to
  193. planet Earth.
  194.  
  195.     There are another 800 of smaller
  196. size that were cataloged. Helin has
  197. spent 25 years searching for
  198. asteriods throughout the solar
  199. system. After all, the most plausible
  200. theory on the extinction of the
  201. dinosauars was that it was caused by
  202. an asteriod around 6 miles in
  203. diameter striking Earth 65 million
  204. years ago. In 1972 a very large rock
  205. was seen tearing through the
  206. atmosphere across Canada and the
  207. western part of the U.S. In 1908
  208. something exploded over Tunguska,
  209. Russia, laying waste to an area of
  210. 100 square miles.
  211.  
  212.     But an object that can do real
  213. damage to the Earth has some
  214. limitations on its size and speed.
  215. For instance, if an object is below
  216. 50 meters or so in diameter, or it's
  217. made of very light material such as
  218. ice mixed with pebbles (as most
  219. comets are), it probably won't
  220. survive its trip through the
  221. atmosphere. Or if its speed on entry
  222. is very high, it will likely burn up
  223. or explode in the atmosphere. The
  224. high and low parameters to enter in
  225. this program are listed below:
  226.  
  227.  Object's Size - Must be larger than
  228. 49 meters and less than 9999 meters.
  229.  
  230.  Density - Must be at least 2000
  231. kilograms per cubic meter and less
  232. than 9999. (Earth's crust is 2600
  233. kg's/cu/m on average.)
  234.  
  235.  Velocity - Must be at least 5
  236. kilometers per second and less than
  237. 999.
  238.  
  239.  Angle of descent - Ranges from 20 to
  240. 90 degrees. Below 20 degrees the
  241. object would pass through, or bounce
  242. off of, the atmosphere. 90 degrees =
  243. a vertical dive.
  244.  
  245.     The program won't allow
  246. parameters outside these limits. You
  247. will be allowed to correct any
  248. mistakes you have entered.
  249.  
  250.     The following information on the
  251. OBJECT will be displayed:
  252.  
  253.  Volume - Expressed in cubic meters
  254.  
  255.  Mass - Expressed in metric tons
  256.  
  257.  Kinetic Energy - Expressed in
  258. joules
  259.  
  260.  Explosive Power - Expressed in
  261. kilotons
  262.  
  263.  Below this will be the data on the
  264. CRATER itself. Two figures are given
  265. for both diameter and depth:
  266.  
  267.  Actual diameter - How big a hole was
  268. punched out (in kms)
  269.  
  270.  Apparent diameter - How large it
  271. seems (in kms)
  272.  
  273.  Actual depth - How deep the punch
  274. was (in kms)
  275.  
  276.  Apparent depth - How deep it seems
  277. (in kms)
  278.  
  279.  Material Ejected - How much was
  280. blown out (in cubic kms)
  281.  
  282.  Ejecta Spread - How far from point
  283. zero the ejecta was blown (in kms)
  284.  
  285.  A short message will be displayed as
  286. to how much damage the impact would
  287. cause, along with a cross section of
  288. the crater in question.
  289.  
  290.     The reason for the differences in
  291. actual and apparent sizes is caused
  292. by the material thrown up and out
  293. from the impact. It collects deeper
  294. at the edges. This material will
  295. follow the shape of the crater,
  296. adding to its width. Also, this
  297. material adds height to the
  298. surrounding area making the crater
  299. appear deeper than it actually is.
  300.  
  301.     At this point you can return to
  302. the UNIVERSE presenter or send
  303. another devastating meteor crashing
  304. down on innocent heads.
  305.  
  306.     The only thing the program can't
  307. tell you is the disastrous effects of
  308. seismic waves,