Comet Hale-Bopp Location

RadialStarChart[Andromeda, RadialAngle -> 50 Degree, 
      MagnitudeScale -> 0.4, MagnitudeRange -> 4.0, 
      ConstellationLabels -> True, 
      Epilog -> {RGBColor[1, 0, 0], 
          OrbitTrack[HaleBopp, {1997, 3, 1}, {1997, 5, 1}, 
            PlotPoints -> 200], annotate[]}]; 1;

Star chart track of Comet Hale-Bopp (shown in red) during closest approach in March/April 1997. The track of the Sun (in orange) is also shown. Blue lines represent the direction of the comet tail.

Big Dipper with Greek Labels

Block[{$DefaultFontScale=2},
   RadialStarChart[UrsaMajor,
      StarColors->True,
      ConstellationLabels->True,
      Epilog->{RGBColor[1,1,.5],
              StarNames[UrsaMajor]}]];1;

Star chart of Ursa Major, also known as “The Big Dipper” or “The Plough”.

Annual Meteor Showers

RadialStarChart[NorthCelestialPole, RadialAngle -> 120 Degree, 
      MagnitudeScale -> 0.5, MagnitudeRange -> 3.5, 
      Prolog -> pshowers, Epilog -> eshowers]; 1;

Chart showing main annual meteor showers visible from the Northern Hemisphere. The yellow disks indicate viewing direction, with date and best viewing hour given inside.

Mercator Projection of Sky

StarChart[{{0, 360}, {-90, 90}}, MagnitudeScale -> 0.5, 
      MagnitudeRange -> 3.5, GalacticPlane -> True, 
      MilkyWay -> True]; 1;

Star chart showing entire celestial sphere in Mercator projection. The light blue shaded area is our own Milky Way galaxy with the galactic plane shown in red.

StarChart[
   MilkyWay -> True,
   Constellations -> False,
   Stars -> False, Clusters -> False, Nebulae -> False,
   Epilog -> Apply[Circle[{-#3,#4}, #5]&,
          TheGalaxies, 1]];1;

Star chart showing positions of many galaxies. Most galaxies lie in a plane (the plane of the local supercluster of galaxies). Note the Virgo Galaxy Cluster near the center of the graphic. The circles on the lower right are the Large and Small Magellanic Cloud Galaxies. The small circle to the top right is the Andromeda Galaxy.

Astrological Aspect Chart

AspectChart[{1997,1,1,7,0,0}];

Astrological aspect chart for the main planets on a given date and location. The symbols on the diagonal are, from top-left to bottom-right: the ascendant, the Sun, the Moon, Mercury, Venus, Mars, Jupiter, and Saturn.

Solar System Plot

SolarSystemPlot[{1993, 11, 17}]; 1;

Solar system plot showing positions of planets out to Saturn. The Earth is in the center with the Sun shown in yellow and Mercury very close to it.

Mars as Seen from Earth

PlanetPlot3D[Mars, {1993, 11, 17, 3, 20, 0}]; 1;

Plot of Mars as seen from Earth on a given date. The green cross on the far right is the position of zero Martian longitude and latitude.

Orbit Plot of Outer Planets

OrbitPlot3D[{Jupiter, Saturn, Uranus, Neptune, Pluto}, 
      Distance -> 48 AU, 
      PlotStyle 
        -> {RGBColor[0.9, 0.8, 0.6], RGBColor[1.0, 0.8, 0.6], 
          RGBColor[0.3, 0.7, 0.2], RGBColor[0.5, 0.7, 1.0], 
          RGBColor[1.0, 1.0, 1.0]}, Background -> GrayLevel[0.5], 
      PlotRegion -> {{-0.4, 1.4}, {-0.4, 1.4}}, 
      SphericalRegion -> True]; 1;

Plot showing orbits of the outer planets. Pluto's orbit is the outermost inclined ellipse, which can pass inside Neptune's orbit.