Commit 48eef127 authored by Francesco Montanari's avatar Francesco Montanari

Remove cosmo-pedia

parent 3ad25972
......@@ -48,7 +48,6 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
expansion of the Universe.
Definitions follow Hogg (1999) [[[https://arxiv.org/abs/astro-ph/9905116][arXiv:astro-ph/9905116]]]. The
=cosmo-pedia= command is based on [[http://fiteoweb.unige.ch/~durrer/Book.html][Durrer (2008)]]. The
=cosmo-calculator= command is based on Gnuastro =astcosmiccal=
program (v0.2).
......@@ -135,9 +134,6 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
- cosmo-parallax-distance :: Display parallax distance in mini-buffer.
- cosmo-pedia :: Display a reference to basic cosmological
definitions.
- cosmo-set-params :: Change the values of cosmological parameters.
- cosmo-transverse-comoving-distance :: Display transverse
......
......@@ -3,9 +3,9 @@
;; Copyright (C) 2017 Francesco Montanari
;;
;; Author: Francesco Montanari <fmnt@fmnt.info>
;; Maintainer: Francesco Montanari <fmnt@fmnt.info>
;; Created: 22 April 2017
;; Version: 0.1
;; Package-Requires: ((emacs "24.4"))
;; Keywords: tools
;; Homepage: https://gitlab.com/montanari/cosmo-el
;;
......@@ -86,42 +86,6 @@
"Maximum number of steps in the numerical integral algorithm."
:group 'cosmo)
(defvar cosmo-pedia-text
;; Text appearing in the *Cosmopedia* buffer.
"(`q` to quite)
Units system: hbar = c = k_Boltzmann = 1.
Distances relations
-------------------
- Comoving distance (transverse): D_M
- Angular diameter distance: D_A = D_M / (1+z)
- Luminosity distance: D_L = (1+z) D_M = (1+z)^2 D_A
Conversion factors, units
-------------------------
- 1GeV = 1.6022e-3 erg
= 1.1605e13 K
= 1.7827e-24 g
= 5.0684e13 1/cm
= 1.5192 1/s
- 1 pc = 3.2612 light years
= 3.0856e18 cm
- 1 Mpc = 1e6pc ~ 3e24 cm ~ 1e14 s
- 1 AU = 1.4960e13 cm
- 1 Jy = 1e-23 erg/cm^2/s/Hz
= 2.4730e-48 GeV^3
- 1 yr ~ pi * 1e17 s
Important constants
-------------------
- Hubble constant: H0 = 100h km/s/Mpc
= 2.1332e-42 h GeV
- Hubble time, distance: 1/H0 = 3.0856e17/h s
= 9.7776e9/h yr
= 2997.9/h Mpc
= 9.2503e27/h cm")
;; Hash table containing all independent cosmological parameters.
(defvar cosmo--params
(let ((table (make-hash-table :test #'equal)))
......@@ -477,14 +441,6 @@ Argument ANGULAR-DIST angular diameter distance at given redshift."
los-dist transverse-dist luminosity-dist
angular-dist))))
(defun cosmo-pedia ()
"Display a reference to basic cosmological definitions."
(interactive)
(let* ((cosmo-buffer "*Cosmopedia*"))
(with-output-to-temp-buffer cosmo-buffer
(pop-to-buffer cosmo-buffer)
(insert cosmo-pedia-text))))
(provide 'cosmo)
;;; cosmo.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment