;;; This is derived from the srfi-144-constants.scm file at
;;; https://github.com/scheme-requests-for-implementation/srfi-144
;;; as of 19 June 2017, with two corrections and one improvement:
;;;
;;;     the value of fl-4thrt-2 has been corrected
;;;     the value of fl-1/log-phi has been corrected
;;;     The value of fl-1/sqrt-2 has been given to more digits
;;;
;;; Here are John's comments from srfi-144-constants.scm :

;;;; mathh-constants.scm
;;; Common flonum constants in <math.h> + more
;;; The values are derived from the Chicken mathh.egg,
;;; but are not subject to copyright.


;;; Flonum Constants

;; The precision is greater than those found in <math.h>
;; but in practice not perfectly representable

(define fl-e          2.7182818284590452353602874713526624977572) ; e
(define fl-1/e        0.3678794411714423215955237701614608674458) ; 1/e
(define fl-e-2        7.3890560989306502272304274605750078131803) ; e^2
(define fl-e-pi/4     2.1932800507380154565597696592787382234616) ; e^(pi/4)
(define fl-log2-e     1.44269504088896340735992468100189214)      ; log_2(e)
(define fl-log10-e    0.434294481903251827651128918916605082)     ; log_10(e)
(define fl-log-2      0.6931471805599453094172321214581765680755) ; ln(2)
(define fl-1/log-2    1.4426950408889634073599246810018921374266) ; 1/ln(2)
(define fl-log-3      1.0986122886681096913952452369225257046475) ; ln(3)
(define fl-log-pi     1.1447298858494001741434273513530587116473) ; ln(pi)
(define fl-log-10     2.3025850929940456840179914546843642076011) ; ln(10)
(define fl-1/log-10   0.4342944819032518276511289189166050822944) ; 1/ln(10)
(define fl-pi         3.1415926535897932384626433832795028841972) ; pi
(define fl-1/pi       0.3183098861837906715377675267450287240689) ; 1/pi
(define fl-2pi        6.2831853071795862319959269370883703231812) ; pi * 2
(define fl-pi/2       1.57079632679489661923132169163975144)      ; pi/2
(define fl-2/pi       0.636619772367581343075535053490057448)     ; 2/pi
(define fl-pi/4       0.785398163397448309615660845819875721)     ; pi/4
(define fl-2/sqrt-pi  1.12837916709551257389615890312154517)      ; 2/sqrt(pi)
(define fl-sqrt-pi    1.7724538509055160272981674833411451827975) ; sqrt(pi)
(define fl-pi-squared 9.8696044010893586188344909998761511353137) ; pi^2
(define fl-degree     0.0174532925199432957692369076848861271344) ; pi/180
(define fl-gamma-1/2  1.7724538509055160272981674833411451827975) ; gamma(1/2)
(define fl-gamma-1/3  2.6789385347077476336556929409746776441287) ; gamma(1/3)
(define fl-gamma-2/3  1.3541179394264004169452880281545137855193) ; gamma(2/3)
(define fl-sqrt-2     1.4142135623730950488016887242096980785697) ; sqrt(2)
(define fl-sqrt-3     1.7320508075688772935274463415058723669428) ; sqrt(3)
(define fl-sqrt-5     2.2360679774997896964091736687312762354406) ; sqrt(5)
(define fl-sqrt-10    3.1622776601683793319988935444327185337196) ; sqrt(10)
(define fl-cbrt-2     1.2599210498948731647672106072782283505703) ; cubert(2)
(define fl-cbrt-3     1.4422495703074083823216383107801095883919) ; cubert(3)
(define fl-4thrt-2    1.1892071150027210667174999705604759152930) ; fourthrt(2)
(define fl-1/sqrt-2   0.7071067811865475244008443621048490392848) ; 1/sqrt(2)
(define fl-phi        1.6180339887498948482045868343656381177203) ; phi
(define fl-log-phi    0.4812118250596034474977589134243684231352) ; ln(phi)
(define fl-1/log-phi  2.0780869212350275376013226061177957677422) ; 1/ln(phi)
(define fl-euler      0.5772156649015328606065120900824024310422) ; euler
(define fl-e-euler    1.7810724179901979852365041031071795491696) ; e^euler
(define fl-sin-1      0.8414709848078965066525023216302989996226) ; sin(1)
(define fl-cos-1      0.5403023058681397174009366074429766037323) ; cos(1)