Angle subtended by a yardstick
AST 402/830  2 February 1998

<< "a:Cosmology.m"

angle[a_, o_, yard_:  1] := yard/(a comovingCoordinate[a, o])

\($TextStyle = "Helvetica"; 
Needs["Graphics`Graphics`"]\)

LogLogPlot[{angle[1/(1 + z), 1], angle[1/(1 + z), 0]}, {
        z, .01, 10}, AxesLabel -> {z, θ}, GridLines -> Automatic, 
      PlotRange -> All, PlotLabel -> "Angle Subtended by YardStick", 
      AspectRatio -> Automatic, MaxBend -> .5];