source: project/release/4/mathh/trunk/mathh-constants.scm @ 13567

Last change on this file since 13567 was 13567, checked in by Kon Lovett, 11 years ago

Save.

File size: 3.3 KB
Line 
1;;;; mathh-constants.scm
2;;;; Common flonum constants in <math.h> & others
3;;;; Public domain
4
5(define-constant E                                      2.7182818284590452353602874713526624977572)   ; e
6(define-constant 1/E                            0.3678794411714423215955237701614608674458)   ; 1/e
7(define-constant E^2                            7.3890560989306502272304274605750078131803)   ; e^2
8(define-constant E^PI/4                 2.1932800507380154565597696592787382234616)     ; e^(pi/4)
9
10(define-constant LOG2E                  1.44269504088896340735992468100189214)                          ; log_2(e)
11(define-constant LOG10E                 0.434294481903251827651128918916605082)                         ; log_10(e)
12
13(define-constant LN2                            0.6931471805599453094172321214581765680755)             ; ln(2)
14(define-constant LN3                            1.0986122886681096913952452369225257046475)             ; ln(3)
15(define-constant LNPI                           1.1447298858494001741434273513530587116473)   ; ln(pi)
16(define-constant LN10                           2.3025850929940456840179914546843642076011)   ; ln(10)
17(define-constant 1/LN2                  1.4426950408889634073599246810018921374266)   ; 1/ln(2)
18(define-constant 1/LN10                 0.4342944819032518276511289189166050822944)   ; 1/ln(10)
19
20(define-constant PI                                     3.1415926535897932384626433832795028841972)   ; pi
21(define-constant 2PI                      6.2831853071795862319959269370883703231812)   ; pi * 2
22(define-constant PI/2                           1.57079632679489661923132169163975144)                          ; pi/2
23(define-constant PI/4                           0.785398163397448309615660845819875721)                         ; pi/4
24(define-constant 1/PI                           0.3183098861837906715377675267450287240689)             ; 1/pi
25(define-constant 2/PI                           0.636619772367581343075535053490057448)                         ; 2/pi
26(define-constant 2/SQRTPI               1.12837916709551257389615890312154517)                          ; 2/sqrt(pi)
27(define-constant SQRTPI                 1.7724538509055160272981674833411451827975)   ; sqrt(pi)
28(define-constant PI^2                           9.8696044010893586188344909998761511353137)   ; pi^2
29(define-constant DEGREE                 0.0174532925199432957692369076848861271344)   ; pi/180
30
31(define-constant GAMMA1/2               1.7724538509055160272981674833411451827975)   ; gamma(1/2)
32(define-constant GAMMA1/3               2.6789385347077476336556929409746776441287)   ; gamma(1/3)
33(define-constant GAMMA2/3               1.3541179394264004169452880281545137855193)   ; gamma(2/3)
34
35(define-constant SQRT2                  1.4142135623730950488016887242096980785697)   ; sqrt(2)
36(define-constant SQRT3                  1.7320508075688772935274463415058723669428)   ; sqrt(3)
37(define-constant SQRT5                  2.2360679774997896964091736687312762354406)   ; sqrt(5)
38(define-constant SQRT10                 3.1622776601683793319988935444327185337196)   ; sqrt(10)
39
40(define-constant CUBERT2                1.2599210498948731647672106072782283505703)   ; cubert(2)
41(define-constant CUBERT3                1.4422495703074083823216383107801095883919)   ; cubert(3)
42
43(define-constant 4THRT2                 1.4422495703074083823216383107801095883919)   ; fourthrt(2)
44
45(define-constant 1/SQRT2                0.707106781186547524400844362104849039)                         ; 1/sqrt(2)
46
47(define-constant PHI                            1.6180339887498948482045868343656381177203)     ; phi
48(define-constant LNPHI                  0.4812118250596034474977589134243684231352)     ; ln(phi)
49(define-constant 1/LNPHI                0.4812118250596034474977589134243684231352)     ; 1/ln(phi)
50
51(define-constant EULER                  0.5772156649015328606065120900824024310422)     ; euler
52(define-constant E^EULER                1.7810724179901979852365041031071795491696)     ; e^euler
53
54
55(define-constant SIN1                           0.8414709848078965066525023216302989996226)     ; sin(1)
56(define-constant COS1                           0.5403023058681397174009366074429766037323)     ; cos(1)
57
58(define-constant ZETA3                  1.2020569031595942853997381615114499907650)     ; theta(3)
Note: See TracBrowser for help on using the repository browser.