#!/usr/bin/perl
#
# Create data which can be used to make a graph
#    showing the behavior of angular size a function
#    of redshift at the limits
#
# MWR 5/9/2011

$debug = 1;


# first, for small redshift, we have theta ~ 1/z
$small_const = 0.005;

$start_z = 0.01;
$end_z = 0.2;
$mult_z = 1.05;
for ($z = $start_z; $z <= $end_z; $z *= $mult_z) {

  $theta = $small_const / $z;
  printf " %10.5e %10.5e \n", $z, $theta;

}

printf "\n\n\n";

# now, for large redshift, we have theta ~ z
$big_const = 0.008;
$start_z = 5.0;  
$end_z = 15.0;
$mult_z = 1.05;
for ($z = $start_z; $z <= $end_z; $z *= $mult_z) {

  $theta = $big_const * ($z);
  printf " %10.5e %10.5e \n", $z, $theta;

}




exit 0;

