powered by
Function computes angular diameter distance
D.A(z, omega.m = 0.27, omega.lambda = 0.73, H.0 = 71)
Redshift
Omega matter parameter
Omega lambda parameter
Hubble constant in km/s/Mpc
Angular distance in Mpc
Hogg (2000), arXiv:astro-ph/9905116, equation (18)
# NOT RUN { D.A(2.3) z <- seq(0.1, 5, 0.1) d <- D.A(z) plot(z, d/max(d), t='l', xlab='z', ylab='Normalized D.A') # }
Run the code above in your browser using DataLab