;;;; mathh-constants.scm
;;;; Common flonum constants in <math.h> + more


;;; Flonum Constants

;; The precision is greater than those found in <math.h>

(define-constant E					2.7182818284590452353602874713526624977572)   ; e
(define-constant 1/E				0.3678794411714423215955237701614608674458)   ; 1/e
(define-constant E^2				7.3890560989306502272304274605750078131803)   ; e^2
(define-constant E^PI/4			2.1932800507380154565597696592787382234616)  	; e^(pi/4)

(define-constant LOG2E			1.44269504088896340735992468100189214)				; log_2(e)
(define-constant LOG10E			0.434294481903251827651128918916605082)				; log_10(e)

(define-constant LN2				0.6931471805599453094172321214581765680755)		; ln(2)
(define-constant LN3				1.0986122886681096913952452369225257046475)		; ln(3)
(define-constant LNPI				1.1447298858494001741434273513530587116473)   ; ln(pi)
(define-constant LN10				2.3025850929940456840179914546843642076011)   ; ln(10)
(define-constant 1/LN2			1.4426950408889634073599246810018921374266)   ; 1/ln(2)
(define-constant 1/LN10			0.4342944819032518276511289189166050822944)   ; 1/ln(10)

(define-constant PI					3.1415926535897932384626433832795028841972)   ; pi
(define-constant 2PI			  6.2831853071795862319959269370883703231812)   ; pi * 2
(define-constant PI/2				1.57079632679489661923132169163975144)				; pi/2
(define-constant PI/4				0.785398163397448309615660845819875721)				; pi/4
(define-constant 1/PI				0.3183098861837906715377675267450287240689)		; 1/pi
(define-constant 2/PI				0.636619772367581343075535053490057448)				; 2/pi
(define-constant 2/SQRTPI		1.12837916709551257389615890312154517)				; 2/sqrt(pi)
(define-constant SQRTPI			1.7724538509055160272981674833411451827975)   ; sqrt(pi)
(define-constant PI^2				9.8696044010893586188344909998761511353137)   ; pi^2
(define-constant DEGREE			0.0174532925199432957692369076848861271344)   ; pi/180

(define-constant GAMMA1/2		1.7724538509055160272981674833411451827975)   ; gamma(1/2)
(define-constant GAMMA1/3		2.6789385347077476336556929409746776441287)   ; gamma(1/3)
(define-constant GAMMA2/3		1.3541179394264004169452880281545137855193)   ; gamma(2/3)

(define-constant SQRT2			1.4142135623730950488016887242096980785697)   ; sqrt(2)
(define-constant SQRT3			1.7320508075688772935274463415058723669428)   ; sqrt(3)
(define-constant SQRT5			2.2360679774997896964091736687312762354406)   ; sqrt(5)
(define-constant SQRT10			3.1622776601683793319988935444327185337196)   ; sqrt(10)

(define-constant CUBERT2		1.2599210498948731647672106072782283505703)   ; cubert(2)
(define-constant CUBERT3		1.4422495703074083823216383107801095883919)   ; cubert(3)

(define-constant 4THRT2			1.4422495703074083823216383107801095883919)   ; fourthrt(2)

(define-constant 1/SQRT2		0.707106781186547524400844362104849039)				; 1/sqrt(2)

(define-constant PHI				1.6180339887498948482045868343656381177203)  	; phi
(define-constant LNPHI			0.4812118250596034474977589134243684231352)  	; ln(phi)
(define-constant 1/LNPHI		0.4812118250596034474977589134243684231352)  	; 1/ln(phi)

(define-constant EULER			0.5772156649015328606065120900824024310422)  	; euler
(define-constant E^EULER		1.7810724179901979852365041031071795491696)  	; e^euler


(define-constant SIN1				0.8414709848078965066525023216302989996226)  	; sin(1)
(define-constant COS1				0.5403023058681397174009366074429766037323)  	; cos(1)

(define-constant ZETA3			1.2020569031595942853997381615114499907650)  	; theta(3)