line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Astro::Constants::CGS; |
2
|
|
|
|
|
|
|
# ABSTRACT: This library provides physical constants for use in Physics and Astronomy based on values from CODATA2014. |
3
|
|
|
|
|
|
|
$Astro::Constants::CGS::VERSION = '0.13'; |
4
|
1
|
|
|
1
|
|
86873
|
use 5.006; |
|
1
|
|
|
|
|
16
|
|
5
|
1
|
|
|
1
|
|
8
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
32
|
|
6
|
1
|
|
|
1
|
|
7
|
use warnings; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
40
|
|
7
|
1
|
|
|
1
|
|
8
|
use base qw/Exporter/; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
136
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
warn "use of Astro::Constants::CGS is deprecated and will be removed from the package in version 0.15"; |
10
|
|
|
|
|
|
|
warn "write new code to use Astro::Constants::MKS instead"; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
warn "use of Astro::Constants::CGS is deprecated and will be removed from the package in version 0.15"; |
13
|
|
|
|
|
|
|
warn "write new code to use Astro::Constants::MKS instead"; |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
1
|
|
8
|
use constant LIGHT_SPEED => 2.99792458e10; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
90
|
|
18
|
1
|
|
|
1
|
|
9
|
use constant SPEED_LIGHT => 2.99792458e10; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
85
|
|
19
|
|
|
|
|
|
|
*A_c = \2.99792458e10; |
20
|
1
|
|
|
1
|
|
8
|
use constant BOLTZMANN => 1.38064852e-16; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
92
|
|
21
|
|
|
|
|
|
|
*A_k = \1.38064852e-16; |
22
|
1
|
|
|
1
|
|
8
|
use constant GRAVITATIONAL => 6.67408e-8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
87
|
|
23
|
|
|
|
|
|
|
*A_G = \6.67408e-8; |
24
|
1
|
|
|
1
|
|
8
|
use constant ELECTRON_VOLT => 1.6021766208e-12; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
82
|
|
25
|
|
|
|
|
|
|
*A_eV = \1.6021766208e-12; |
26
|
1
|
|
|
1
|
|
8
|
use constant PLANCK => 6.626070040e-27; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
71
|
|
27
|
|
|
|
|
|
|
*A_h = \6.626070040e-27; |
28
|
1
|
|
|
1
|
|
9
|
use constant HBAR => 1.054571800e-27; |
|
1
|
|
|
|
|
11
|
|
|
1
|
|
|
|
|
65
|
|
29
|
1
|
|
|
1
|
|
8
|
use constant H_BAR => 1.054571800e-27; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
90
|
|
30
|
|
|
|
|
|
|
*A_hbar = \1.054571800e-27; |
31
|
1
|
|
|
1
|
|
8
|
use constant ELECTRON_CHARGE => 4.8032046729e-10; |
|
1
|
|
|
|
|
12
|
|
|
1
|
|
|
|
|
60
|
|
32
|
1
|
|
|
1
|
|
8
|
use constant CHARGE_ELEMENTARY => 4.8032046729e-10; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
81
|
|
33
|
|
|
|
|
|
|
*A_e = \4.8032046729e-10; |
34
|
1
|
|
|
1
|
|
7
|
use constant STEFAN_BOLTZMANN => 5.670367e-5; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
89
|
|
35
|
|
|
|
|
|
|
*A_sigma = \5.670367e-5; |
36
|
1
|
|
|
1
|
|
8
|
use constant A_RAD => 7.565723e-15; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
57
|
|
37
|
1
|
|
|
1
|
|
8
|
use constant DENSITY_RADIATION => 7.565723e-15; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
78
|
|
38
|
|
|
|
|
|
|
*A_arad = \7.565723e-15; |
39
|
1
|
|
|
1
|
|
8
|
use constant WIEN => 2.8977729e-1; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
81
|
|
40
|
|
|
|
|
|
|
*A_Wien = \2.8977729e-1; |
41
|
1
|
|
|
1
|
|
8
|
use constant ALPHA => 7.2973525664e-3; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
70
|
|
42
|
|
|
|
|
|
|
*A_alpha = \7.2973525664e-3; |
43
|
1
|
|
|
1
|
|
7
|
use constant VACUUM_IMPEDANCE => 376.730313461; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
74
|
|
44
|
1
|
|
|
1
|
|
9
|
use constant IMPEDANCE_VACUUM => 376.730313461; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
93
|
|
45
|
|
|
|
|
|
|
*A_Z0 = \376.730313461; |
46
|
1
|
|
|
1
|
|
8
|
use constant PERMITIVITY_0 => 1; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
79
|
|
47
|
1
|
|
|
1
|
|
8
|
use constant PERMITIV_FREE_SPACE => 1; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
111
|
|
48
|
|
|
|
|
|
|
*A_eps0 = \1; |
49
|
1
|
|
|
1
|
|
8
|
use constant PERMEABILITY_0 => 1; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
61
|
|
50
|
1
|
|
|
1
|
|
7
|
use constant CONSTANT_MAGNETIC => 1; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
65
|
|
51
|
1
|
|
|
1
|
|
8
|
use constant PERMEABL_FREE_SPACE => 1; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
66
|
|
52
|
|
|
|
|
|
|
*A_mu0 = \1; |
53
|
1
|
|
|
1
|
|
7
|
use constant PI => 3.14159265358979324; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
89
|
|
54
|
|
|
|
|
|
|
*A_pi = \3.14159265358979324; |
55
|
1
|
|
|
1
|
|
9
|
use constant FOURPI => 12.5663706143592; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
72
|
|
56
|
1
|
|
|
1
|
|
9
|
use constant FOUR_PI => 12.5663706143592; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
69
|
|
57
|
|
|
|
|
|
|
*A_4pi = \12.5663706143592; |
58
|
1
|
|
|
1
|
|
7
|
use constant STERADIAN => 57.2957795130823; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
91
|
|
59
|
|
|
|
|
|
|
*A_ster = \57.2957795130823; |
60
|
1
|
|
|
1
|
|
8
|
use constant EXP => 2.71828182846; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
66
|
|
61
|
|
|
|
|
|
|
*A_exp = \2.71828182846; |
62
|
1
|
|
|
1
|
|
7
|
use constant ATOMIC_MASS_UNIT => 1.660539040e-24; |
|
1
|
|
|
|
|
13
|
|
|
1
|
|
|
|
|
72
|
|
63
|
|
|
|
|
|
|
*A_amu = \1.660539040e-24; |
64
|
1
|
|
|
1
|
|
9
|
use constant PARSEC => 3.08567758149e18; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
96
|
|
65
|
|
|
|
|
|
|
*A_pc = \3.08567758149e18; |
66
|
1
|
|
|
1
|
|
8
|
use constant ASTRONOMICAL_UNIT => 1.496e13; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
88
|
|
67
|
|
|
|
|
|
|
*A_AU = \1.496e13; |
68
|
1
|
|
|
1
|
|
8
|
use constant LIGHT_YEAR => 9.4607304725808e17; |
|
1
|
|
|
|
|
11
|
|
|
1
|
|
|
|
|
72
|
|
69
|
|
|
|
|
|
|
*A_ly = \9.4607304725808e17; |
70
|
1
|
|
|
1
|
|
8
|
use constant ANGSTROM => 1e-8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
76
|
|
71
|
|
|
|
|
|
|
*A_AA = \1e-8; |
72
|
1
|
|
|
1
|
|
8
|
use constant JANSKY => 1e-23; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
77
|
|
73
|
|
|
|
|
|
|
*A_Jy = \1e-23; |
74
|
1
|
|
|
1
|
|
9
|
use constant AVOGADRO => 6.022140857e23; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
77
|
|
75
|
|
|
|
|
|
|
*A_NA = \6.022140857e23; |
76
|
1
|
|
|
1
|
|
9
|
use constant YEAR_JULIAN => 31_557_600; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
78
|
|
77
|
1
|
|
|
1
|
|
9
|
use constant YEAR => 31_557_600; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
77
|
|
78
|
|
|
|
|
|
|
*A_yr = \31_557_600; |
79
|
1
|
|
|
1
|
|
8
|
use constant YEAR_TROPICAL => 31_556_925.1; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
56
|
|
80
|
1
|
|
|
1
|
|
8
|
use constant YEAR_SIDEREAL => 31_558_149.8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
75
|
|
81
|
1
|
|
|
1
|
|
8
|
use constant YEAR_ANOMALISTIC => 31_558_432.6; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
55
|
|
82
|
1
|
|
|
1
|
|
8
|
use constant YEAR_ECLIPSE => 29_947_974.3; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
79
|
|
83
|
1
|
|
|
1
|
|
8
|
use constant SOLAR_MASS => 1.9884e33; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
73
|
|
84
|
1
|
|
|
1
|
|
9
|
use constant MASS_SOLAR => 1.9884e33; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
81
|
|
85
|
|
|
|
|
|
|
*A_msun = \1.9884e33; |
86
|
1
|
|
|
1
|
|
9
|
use constant SOLAR_LUMINOSITY => 3.846e33; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
66
|
|
87
|
1
|
|
|
1
|
|
17
|
use constant LUMINOSITY_SOLAR => 3.846e33; |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
89
|
|
88
|
|
|
|
|
|
|
*A_Lsun = \3.846e33; |
89
|
1
|
|
|
1
|
|
9
|
use constant RHO_C => 1.8791e-29; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
58
|
|
90
|
1
|
|
|
1
|
|
7
|
use constant DENSITY_CRITICAL_RHOc => 1.8791e-29; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
120
|
|
91
|
|
|
|
|
|
|
*A_rhoc = \1.8791e-29; |
92
|
1
|
|
|
1
|
|
9
|
use constant HUBBLE_TIME => 3.0853056e17; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
70
|
|
93
|
|
|
|
|
|
|
*A_tH = \3.0853056e17; |
94
|
1
|
|
|
1
|
|
7
|
use constant CMB_TEMPERATURE => 2.725; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
66
|
|
95
|
1
|
|
|
1
|
|
9
|
use constant TEMPERATURE_CMB => 2.725; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
80
|
|
96
|
|
|
|
|
|
|
*A_TCMB = \2.725; |
97
|
1
|
|
|
1
|
|
8
|
use constant SOLAR_V_MAG => -26.74; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
58
|
|
98
|
1
|
|
|
1
|
|
8
|
use constant MAGNITUDE_SOLAR_V => -26.74; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
78
|
|
99
|
|
|
|
|
|
|
*A_Vsun = \-26.74; |
100
|
1
|
|
|
1
|
|
9
|
use constant SOLAR_V_ABS_MAG => 4.83; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
55
|
|
101
|
1
|
|
|
1
|
|
8
|
use constant MAGNITUDE_SOLAR_V_ABSOLUTE => 4.83; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
91
|
|
102
|
|
|
|
|
|
|
*A_MVsun = \4.83; |
103
|
1
|
|
|
1
|
|
8
|
use constant SOLAR_RADIUS => 6.96e10; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
65
|
|
104
|
1
|
|
|
1
|
|
9
|
use constant RADIUS_SOLAR => 6.96e10; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
66
|
|
105
|
|
|
|
|
|
|
*A_rsun = \6.96e10; |
106
|
1
|
|
|
1
|
|
9
|
use constant EARTH_MASS => 5.9722e27; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
68
|
|
107
|
1
|
|
|
1
|
|
8
|
use constant MASS_EARTH => 5.9722e27; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
76
|
|
108
|
|
|
|
|
|
|
*A_mearth = \5.9722e27; |
109
|
1
|
|
|
1
|
|
8
|
use constant EARTH_RADIUS => 6.378_136_6e8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
55
|
|
110
|
1
|
|
|
1
|
|
7
|
use constant RADIUS_EARTH => 6.378_136_6e8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
79
|
|
111
|
|
|
|
|
|
|
*A_rearth = \6.378_136_6e8; |
112
|
1
|
|
|
1
|
|
8
|
use constant SOLAR_TEMPERATURE => 5778; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
77
|
|
113
|
1
|
|
|
1
|
|
8
|
use constant TEMPERATURE_SOLAR_SURFACE => 5778; |
|
1
|
|
|
|
|
37
|
|
|
1
|
|
|
|
|
92
|
|
114
|
|
|
|
|
|
|
*A_Tsun = \5778; |
115
|
1
|
|
|
1
|
|
8
|
use constant SOLAR_DENSITY => 1.408; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
55
|
|
116
|
1
|
|
|
1
|
|
8
|
use constant DENSITY_SOLAR => 1.408; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
67
|
|
117
|
|
|
|
|
|
|
*A_dsun = \1.408; |
118
|
1
|
|
|
1
|
|
8
|
use constant EARTH_DENSITY => 5.514; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
65
|
|
119
|
1
|
|
|
1
|
|
8
|
use constant DENSITY_EARTH => 5.514; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
79
|
|
120
|
|
|
|
|
|
|
*A_dearth = \5.514; |
121
|
1
|
|
|
1
|
|
9
|
use constant SOLAR_GRAVITY => 27400; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
91
|
|
122
|
1
|
|
|
1
|
|
9
|
use constant GRAVITY_SOLAR => 27400; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
78
|
|
123
|
|
|
|
|
|
|
*A_gsun = \27400; |
124
|
1
|
|
|
1
|
|
8
|
use constant EARTH_GRAVITY => 978; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
77
|
|
125
|
1
|
|
|
1
|
|
8
|
use constant GRAVITY_EARTH => 978; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
68
|
|
126
|
|
|
|
|
|
|
*A_gearth = \978; |
127
|
1
|
|
|
1
|
|
7
|
use constant LUNAR_RADIUS => 1.7381e8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
66
|
|
128
|
1
|
|
|
1
|
|
8
|
use constant RADIUS_LUNAR => 1.7381e8; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
71
|
|
129
|
|
|
|
|
|
|
*A_rmoon = \1.7381e8; |
130
|
1
|
|
|
1
|
|
7
|
use constant LUNAR_MASS => 7.342e25; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
69
|
|
131
|
1
|
|
|
1
|
|
8
|
use constant MASS_LUNAR => 7.342e25; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
77
|
|
132
|
|
|
|
|
|
|
*A_mmoon = \7.342e25; |
133
|
1
|
|
|
1
|
|
9
|
use constant LUNAR_SM_AXIS => 3.844e10; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
74
|
|
134
|
1
|
|
|
1
|
|
9
|
use constant AXIS_SM_LUNAR => 3.844e10; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
87
|
|
135
|
|
|
|
|
|
|
*A_amoon = \3.844e10; |
136
|
1
|
|
|
1
|
|
8
|
use constant LUNAR_ECCENTRICITY => 0.0549; |
|
1
|
|
|
|
|
11
|
|
|
1
|
|
|
|
|
76
|
|
137
|
1
|
|
|
1
|
|
9
|
use constant ECCENTRICITY_LUNAR => 0.0549; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
83
|
|
138
|
|
|
|
|
|
|
*A_emoon = \0.0549; |
139
|
1
|
|
|
1
|
|
8
|
use constant THOMSON_XSECTION => 6.6524587158e-25; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
66
|
|
140
|
1
|
|
|
1
|
|
8
|
use constant THOMSON_CROSS_SECTION => 6.6524587158e-25; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
108
|
|
141
|
|
|
|
|
|
|
*A_sigmaT = \6.6524587158e-25; |
142
|
1
|
|
|
1
|
|
9
|
use constant ELECTRON_MASS => 9.10938356e-28; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
67
|
|
143
|
1
|
|
|
1
|
|
9
|
use constant MASS_ELECTRON => 9.10938356e-28; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
68
|
|
144
|
|
|
|
|
|
|
*A_me = \9.10938356e-28; |
145
|
1
|
|
|
1
|
|
8
|
use constant PROTON_MASS => 1.672621898e-24; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
60
|
|
146
|
1
|
|
|
1
|
|
7
|
use constant MASS_PROTON => 1.672621898e-24; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
86
|
|
147
|
|
|
|
|
|
|
*A_mp = \1.672621898e-24; |
148
|
1
|
|
|
1
|
|
7
|
use constant NEUTRON_MASS => 1.674927471e-24; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
58
|
|
149
|
1
|
|
|
1
|
|
6
|
use constant MASS_NEUTRON => 1.674927471e-24; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
74
|
|
150
|
|
|
|
|
|
|
*A_mn = \1.674927471e-24; |
151
|
1
|
|
|
1
|
|
7
|
use constant HYDROGEN_MASS => 1.6738e-27; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
49
|
|
152
|
1
|
|
|
1
|
|
7
|
use constant MASS_HYDROGEN => 1.6738e-27; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
66
|
|
153
|
|
|
|
|
|
|
*A_mH = \1.6738e-27; |
154
|
1
|
|
|
1
|
|
7
|
use constant MASS_ALPHA => 6.644_657_230e-27; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
111
|
|
155
|
|
|
|
|
|
|
*A_ma = \6.644_657_230e-27; |
156
|
1
|
|
|
1
|
|
8
|
use constant ELECTRON_RADIUS => 2.8179403227e-13; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
51
|
|
157
|
1
|
|
|
1
|
|
6
|
use constant RADIUS_ELECTRON => 2.8179403227e-13; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
74
|
|
158
|
|
|
|
|
|
|
*A_re = \2.8179403227e-13; |
159
|
1
|
|
|
1
|
|
7
|
use constant BOHR_RADIUS => 5.2917721067e-9; |
|
1
|
|
|
|
|
11
|
|
|
1
|
|
|
|
|
51
|
|
160
|
1
|
|
|
1
|
|
7
|
use constant RADIUS_BOHR => 5.2917721067e-9; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
1133
|
|
161
|
|
|
|
|
|
|
*A_a0 = \5.2917721067e-9; |
162
|
|
|
|
|
|
|
|
163
|
|
|
|
|
|
|
my %_precision = ( |
164
|
|
|
|
|
|
|
ALPHA => {value => 2.3e-10, type => 'relative'}, |
165
|
|
|
|
|
|
|
ANGSTROM => {value => 0, type => 'relative'}, |
166
|
|
|
|
|
|
|
ASTRONOMICAL_UNIT => {value => 0, type => 'relative'}, |
167
|
|
|
|
|
|
|
ATOMIC_MASS_UNIT => {value => 1.2e-8, type => 'relative'}, |
168
|
|
|
|
|
|
|
AVOGADRO => {value => 1.2e-8, type => 'relative'}, |
169
|
|
|
|
|
|
|
AXIS_SM_LUNAR => {value => 0.0003, type => 'relative'}, |
170
|
|
|
|
|
|
|
BOLTZMANN => {value => 5.7e-7, type => 'relative'}, |
171
|
|
|
|
|
|
|
CHARGE_ELEMENTARY => {value => 6.1e-9, type => 'relative'}, |
172
|
|
|
|
|
|
|
DENSITY_CRITICAL_RHOc => {value => 0.0001, type => 'relative'}, |
173
|
|
|
|
|
|
|
DENSITY_EARTH => {value => 0.0002, type => 'relative'}, |
174
|
|
|
|
|
|
|
DENSITY_RADIATION => {value => 2.3e-6, type => 'relative'}, |
175
|
|
|
|
|
|
|
DENSITY_SOLAR => {value => 0.001, type => 'relative'}, |
176
|
|
|
|
|
|
|
ECCENTRICITY_LUNAR => {value => 0.002, type => 'relative'}, |
177
|
|
|
|
|
|
|
ELECTRON_VOLT => {value => 6.1e-9, type => 'relative'}, |
178
|
|
|
|
|
|
|
EXP => {value => 0.00000000001, type => 'relative'}, |
179
|
|
|
|
|
|
|
FOUR_PI => {value => 0.0000000000001, type => 'relative'}, |
180
|
|
|
|
|
|
|
GRAVITATIONAL => {value => 4.7e-5, type => 'relative'}, |
181
|
|
|
|
|
|
|
GRAVITY_EARTH => {value => 0.001, type => 'relative'}, |
182
|
|
|
|
|
|
|
GRAVITY_SOLAR => {value => 0.0004, type => 'relative'}, |
183
|
|
|
|
|
|
|
HUBBLE_TIME => {value => 0.0000001, type => 'relative'}, |
184
|
|
|
|
|
|
|
H_BAR => {value => 1.2e-8, type => 'relative'}, |
185
|
|
|
|
|
|
|
IMPEDANCE_VACUUM => {value => 1e-50, type => 'relative'}, |
186
|
|
|
|
|
|
|
JANSKY => {value => 0, type => 'relative'}, |
187
|
|
|
|
|
|
|
LIGHT_YEAR => {value => 0, type => 'relative'}, |
188
|
|
|
|
|
|
|
LUMINOSITY_SOLAR => {value => 0.0003, type => 'relative'}, |
189
|
|
|
|
|
|
|
MAGNITUDE_SOLAR_V => {value => 0.0004, type => 'relative'}, |
190
|
|
|
|
|
|
|
MAGNITUDE_SOLAR_V_ABSOLUTE => {value => 0.002, type => 'relative'}, |
191
|
|
|
|
|
|
|
MASS_ALPHA => {value => 1.2e-8, type => 'relative'}, |
192
|
|
|
|
|
|
|
MASS_EARTH => {value => 6e20, type => 'absolute'}, |
193
|
|
|
|
|
|
|
MASS_ELECTRON => {value => 1.2e-8, type => 'relative'}, |
194
|
|
|
|
|
|
|
MASS_HYDROGEN => {value => 3.3e-31, type => 'absolute'}, |
195
|
|
|
|
|
|
|
MASS_JUPITER => {value => 5e-6, type => 'relative'}, |
196
|
|
|
|
|
|
|
MASS_LUNAR => {value => 0.0002, type => 'relative'}, |
197
|
|
|
|
|
|
|
MASS_NEUTRON => {value => 1.2e-8, type => 'relative'}, |
198
|
|
|
|
|
|
|
MASS_PROTON => {value => 1.2e-8, type => 'relative'}, |
199
|
|
|
|
|
|
|
MASS_SOLAR => {value => 0.0001, type => 'relative'}, |
200
|
|
|
|
|
|
|
PARSEC => {value => 1e-11, type => 'relative'}, |
201
|
|
|
|
|
|
|
PERMEABL_FREE_SPACE => {value => 1e-10, type => 'relative'}, |
202
|
|
|
|
|
|
|
PERMITIV_FREE_SPACE => {value => 1e-30, type => 'relative'}, |
203
|
|
|
|
|
|
|
PI => {value => 0.00000000000000001, type => 'relative'}, |
204
|
|
|
|
|
|
|
PLANCK => {value => 1.2e-8, type => 'relative'}, |
205
|
|
|
|
|
|
|
RADIUS_BOHR => {value => 2.3e-10, type => 'relative'}, |
206
|
|
|
|
|
|
|
RADIUS_EARTH => {value => 0.1, type => 'absolute'}, |
207
|
|
|
|
|
|
|
RADIUS_ELECTRON => {value => 6.8e-10, type => 'relative'}, |
208
|
|
|
|
|
|
|
RADIUS_JUPITER => {value => 1.5e-5, type => 'relative'}, |
209
|
|
|
|
|
|
|
RADIUS_LUNAR => {value => 6e-5, type => 'relative'}, |
210
|
|
|
|
|
|
|
RADIUS_SOLAR => {value => 0.002, type => 'relative'}, |
211
|
|
|
|
|
|
|
SPEED_LIGHT => {value => 0, type => 'relative'}, |
212
|
|
|
|
|
|
|
STEFAN_BOLTZMANN => {value => 2.3e-6, type => 'relative'}, |
213
|
|
|
|
|
|
|
STERADIAN => {value => 0.00000000000001, type => 'relative'}, |
214
|
|
|
|
|
|
|
TEMPERATURE_CMB => {value => 0.0007, type => 'relative'}, |
215
|
|
|
|
|
|
|
TEMPERATURE_SOLAR_SURFACE => {value => 0.0002, type => 'relative'}, |
216
|
|
|
|
|
|
|
THOMSON_CROSS_SECTION => {value => 1.4e-9, type => 'relative'}, |
217
|
|
|
|
|
|
|
WIEN => {value => 5.7e-7, type => 'relative'}, |
218
|
|
|
|
|
|
|
YEAR => {value => 0, type => 'relative'}, |
219
|
|
|
|
|
|
|
YEAR_ANOMALISTIC => {value => 0.1, type => 'absolute'}, |
220
|
|
|
|
|
|
|
YEAR_ECLIPSE => {value => 0.1, type => 'absolute'}, |
221
|
|
|
|
|
|
|
YEAR_SIDEREAL => {value => 1, type => 'absolute'}, |
222
|
|
|
|
|
|
|
YEAR_TROPICAL => {value => 0.1, type => 'absolute'}, |
223
|
|
|
|
|
|
|
); |
224
|
|
|
|
|
|
|
|
225
|
|
|
|
|
|
|
# some helper functions |
226
|
|
|
|
|
|
|
sub pretty { |
227
|
0
|
0
|
|
0
|
0
|
|
if (@_ > 1) { |
228
|
0
|
|
|
|
|
|
return map { sprintf("%1.3e", $_) } @_; |
|
0
|
|
|
|
|
|
|
229
|
|
|
|
|
|
|
} |
230
|
0
|
|
|
|
|
|
return sprintf("%1.3e", shift); |
231
|
|
|
|
|
|
|
} |
232
|
|
|
|
|
|
|
|
233
|
|
|
|
|
|
|
sub precision { |
234
|
0
|
|
|
0
|
0
|
|
my ($name, $type) = @_; |
235
|
|
|
|
|
|
|
warn "precision() requires a string, not the constant value" |
236
|
0
|
0
|
|
|
|
|
unless exists $_precision{$name}; |
237
|
|
|
|
|
|
|
|
238
|
0
|
|
|
|
|
|
return $_precision{$name}->{value}; |
239
|
|
|
|
|
|
|
} |
240
|
|
|
|
|
|
|
|
241
|
|
|
|
|
|
|
our @EXPORT_OK = qw( |
242
|
|
|
|
|
|
|
LIGHT_SPEED SPEED_LIGHT BOLTZMANN GRAVITATIONAL ELECTRON_VOLT PLANCK HBAR H_BAR ELECTRON_CHARGE CHARGE_ELEMENTARY STEFAN_BOLTZMANN A_RAD DENSITY_RADIATION WIEN ALPHA VACUUM_IMPEDANCE IMPEDANCE_VACUUM PERMITIVITY_0 PERMITIV_FREE_SPACE PERMEABILITY_0 CONSTANT_MAGNETIC PERMEABL_FREE_SPACE PI FOURPI FOUR_PI STERADIAN EXP ATOMIC_MASS_UNIT PARSEC ASTRONOMICAL_UNIT LIGHT_YEAR ANGSTROM JANSKY AVOGADRO YEAR_JULIAN YEAR YEAR_TROPICAL YEAR_SIDEREAL YEAR_ANOMALISTIC YEAR_ECLIPSE SOLAR_MASS MASS_SOLAR SOLAR_LUMINOSITY LUMINOSITY_SOLAR RHO_C DENSITY_CRITICAL_RHOc HUBBLE_TIME CMB_TEMPERATURE TEMPERATURE_CMB SOLAR_V_MAG MAGNITUDE_SOLAR_V SOLAR_V_ABS_MAG MAGNITUDE_SOLAR_V_ABSOLUTE SOLAR_RADIUS RADIUS_SOLAR EARTH_MASS MASS_EARTH EARTH_RADIUS RADIUS_EARTH SOLAR_TEMPERATURE TEMPERATURE_SOLAR_SURFACE SOLAR_DENSITY DENSITY_SOLAR EARTH_DENSITY DENSITY_EARTH SOLAR_GRAVITY GRAVITY_SOLAR EARTH_GRAVITY GRAVITY_EARTH LUNAR_RADIUS RADIUS_LUNAR LUNAR_MASS MASS_LUNAR LUNAR_SM_AXIS AXIS_SM_LUNAR LUNAR_ECCENTRICITY ECCENTRICITY_LUNAR THOMSON_XSECTION THOMSON_CROSS_SECTION ELECTRON_MASS MASS_ELECTRON PROTON_MASS MASS_PROTON NEUTRON_MASS MASS_NEUTRON HYDROGEN_MASS MASS_HYDROGEN MASS_ALPHA ELECTRON_RADIUS RADIUS_ELECTRON BOHR_RADIUS RADIUS_BOHR RADIUS_JUPITER MASS_JUPITER |
243
|
|
|
|
|
|
|
$A_c $A_k $A_G $A_eV $A_h $A_hbar $A_e $A_sigma $A_arad $A_Wien $A_alpha $A_Z0 $A_eps0 $A_mu0 $A_pi $A_4pi $A_ster $A_exp $A_amu $A_pc $A_AU $A_ly $A_AA $A_Jy $A_NA $A_yr $A_msun $A_Lsun $A_rhoc $A_tH $A_TCMB $A_Vsun $A_MVsun $A_rsun $A_mearth $A_rearth $A_Tsun $A_dsun $A_dearth $A_gsun $A_gearth $A_rmoon $A_mmoon $A_amoon $A_emoon $A_sigmaT $A_me $A_mp $A_mn $A_mH $A_ma $A_re $A_a0 $A_rjup $A_mjup |
244
|
|
|
|
|
|
|
LIGHT_SPEED HBAR ELECTRON_CHARGE A_RAD VACUUM_IMPEDANCE PERMITIVITY_0 PERMEABILITY_0 CONSTANT_MAGNETIC FOURPI YEAR_JULIAN SOLAR_MASS SOLAR_LUMINOSITY RHO_C CMB_TEMPERATURE SOLAR_V_MAG SOLAR_V_ABS_MAG SOLAR_RADIUS EARTH_MASS EARTH_RADIUS SOLAR_TEMPERATURE SOLAR_DENSITY EARTH_DENSITY SOLAR_GRAVITY EARTH_GRAVITY LUNAR_RADIUS LUNAR_MASS LUNAR_SM_AXIS LUNAR_ECCENTRICITY THOMSON_XSECTION ELECTRON_MASS PROTON_MASS NEUTRON_MASS HYDROGEN_MASS ELECTRON_RADIUS BOHR_RADIUS |
245
|
|
|
|
|
|
|
pretty precision |
246
|
|
|
|
|
|
|
); |
247
|
|
|
|
|
|
|
|
248
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
249
|
|
|
|
|
|
|
alternates => [qw/ LIGHT_SPEED HBAR ELECTRON_CHARGE A_RAD VACUUM_IMPEDANCE PERMITIVITY_0 PERMEABILITY_0 CONSTANT_MAGNETIC FOURPI YEAR_JULIAN SOLAR_MASS SOLAR_LUMINOSITY RHO_C CMB_TEMPERATURE SOLAR_V_MAG SOLAR_V_ABS_MAG SOLAR_RADIUS EARTH_MASS EARTH_RADIUS SOLAR_TEMPERATURE SOLAR_DENSITY EARTH_DENSITY SOLAR_GRAVITY EARTH_GRAVITY LUNAR_RADIUS LUNAR_MASS LUNAR_SM_AXIS LUNAR_ECCENTRICITY THOMSON_XSECTION ELECTRON_MASS PROTON_MASS NEUTRON_MASS HYDROGEN_MASS ELECTRON_RADIUS BOHR_RADIUS /], |
250
|
|
|
|
|
|
|
conversion => [qw/ ELECTRON_VOLT STERADIAN ATOMIC_MASS_UNIT PARSEC ASTRONOMICAL_UNIT LIGHT_YEAR ANGSTROM JANSKY AVOGADRO YEAR YEAR_JULIAN YEAR_TROPICAL YEAR_SIDEREAL YEAR_ANOMALISTIC YEAR_ECLIPSE /], |
251
|
|
|
|
|
|
|
cosmology => [qw/ SPEED_LIGHT LIGHT_SPEED GRAVITATIONAL PLANCK H_BAR HBAR STEFAN_BOLTZMANN DENSITY_RADIATION A_RAD WIEN ALPHA IMPEDANCE_VACUUM VACUUM_IMPEDANCE PARSEC ASTRONOMICAL_UNIT LIGHT_YEAR JANSKY YEAR YEAR_JULIAN YEAR_TROPICAL YEAR_SIDEREAL MASS_SOLAR SOLAR_MASS LUMINOSITY_SOLAR SOLAR_LUMINOSITY DENSITY_CRITICAL_RHOc RHO_C HUBBLE_TIME TEMPERATURE_CMB CMB_TEMPERATURE MAGNITUDE_SOLAR_V SOLAR_V_MAG MAGNITUDE_SOLAR_V_ABSOLUTE SOLAR_V_ABS_MAG /], |
252
|
|
|
|
|
|
|
electromagnetic => [qw/ SPEED_LIGHT LIGHT_SPEED BOLTZMANN ELECTRON_VOLT PLANCK H_BAR HBAR CHARGE_ELEMENTARY ELECTRON_CHARGE STEFAN_BOLTZMANN DENSITY_RADIATION A_RAD WIEN ALPHA IMPEDANCE_VACUUM VACUUM_IMPEDANCE PERMITIV_FREE_SPACE PERMITIVITY_0 PERMEABL_FREE_SPACE CONSTANT_MAGNETIC ANGSTROM JANSKY THOMSON_CROSS_SECTION THOMSON_XSECTION MASS_ELECTRON ELECTRON_MASS RADIUS_ELECTRON ELECTRON_RADIUS RADIUS_BOHR BOHR_RADIUS /], |
253
|
|
|
|
|
|
|
fundamental => [qw/ SPEED_LIGHT LIGHT_SPEED BOLTZMANN GRAVITATIONAL ELECTRON_VOLT PLANCK H_BAR HBAR CHARGE_ELEMENTARY ELECTRON_CHARGE STEFAN_BOLTZMANN DENSITY_RADIATION A_RAD WIEN ALPHA IMPEDANCE_VACUUM VACUUM_IMPEDANCE PERMITIV_FREE_SPACE PERMITIVITY_0 PERMEABL_FREE_SPACE CONSTANT_MAGNETIC /], |
254
|
|
|
|
|
|
|
long => [qw/ LIGHT_SPEED SPEED_LIGHT BOLTZMANN GRAVITATIONAL ELECTRON_VOLT PLANCK HBAR H_BAR ELECTRON_CHARGE CHARGE_ELEMENTARY STEFAN_BOLTZMANN A_RAD DENSITY_RADIATION WIEN ALPHA VACUUM_IMPEDANCE IMPEDANCE_VACUUM PERMITIVITY_0 PERMITIV_FREE_SPACE PERMEABILITY_0 CONSTANT_MAGNETIC PERMEABL_FREE_SPACE PI FOURPI FOUR_PI STERADIAN EXP ATOMIC_MASS_UNIT PARSEC ASTRONOMICAL_UNIT LIGHT_YEAR ANGSTROM JANSKY AVOGADRO YEAR_JULIAN YEAR YEAR_TROPICAL YEAR_SIDEREAL YEAR_ANOMALISTIC YEAR_ECLIPSE SOLAR_MASS MASS_SOLAR SOLAR_LUMINOSITY LUMINOSITY_SOLAR RHO_C DENSITY_CRITICAL_RHOc HUBBLE_TIME CMB_TEMPERATURE TEMPERATURE_CMB SOLAR_V_MAG MAGNITUDE_SOLAR_V SOLAR_V_ABS_MAG MAGNITUDE_SOLAR_V_ABSOLUTE SOLAR_RADIUS RADIUS_SOLAR EARTH_MASS MASS_EARTH EARTH_RADIUS RADIUS_EARTH SOLAR_TEMPERATURE TEMPERATURE_SOLAR_SURFACE SOLAR_DENSITY DENSITY_SOLAR EARTH_DENSITY DENSITY_EARTH SOLAR_GRAVITY GRAVITY_SOLAR EARTH_GRAVITY GRAVITY_EARTH LUNAR_RADIUS RADIUS_LUNAR LUNAR_MASS MASS_LUNAR LUNAR_SM_AXIS AXIS_SM_LUNAR LUNAR_ECCENTRICITY ECCENTRICITY_LUNAR THOMSON_XSECTION THOMSON_CROSS_SECTION ELECTRON_MASS MASS_ELECTRON PROTON_MASS MASS_PROTON NEUTRON_MASS MASS_NEUTRON HYDROGEN_MASS MASS_HYDROGEN MASS_ALPHA ELECTRON_RADIUS RADIUS_ELECTRON BOHR_RADIUS RADIUS_BOHR RADIUS_JUPITER MASS_JUPITER /], |
255
|
|
|
|
|
|
|
mathematical => [qw/ PI FOUR_PI FOURPI EXP /], |
256
|
|
|
|
|
|
|
nuclear => [qw/ ELECTRON_VOLT PLANCK H_BAR HBAR CHARGE_ELEMENTARY ELECTRON_CHARGE STEFAN_BOLTZMANN DENSITY_RADIATION A_RAD WIEN ALPHA IMPEDANCE_VACUUM VACUUM_IMPEDANCE PERMITIV_FREE_SPACE PERMITIVITY_0 PERMEABL_FREE_SPACE CONSTANT_MAGNETIC ATOMIC_MASS_UNIT ANGSTROM AVOGADRO THOMSON_CROSS_SECTION THOMSON_XSECTION MASS_ELECTRON ELECTRON_MASS MASS_PROTON PROTON_MASS MASS_NEUTRON NEUTRON_MASS MASS_HYDROGEN HYDROGEN_MASS MASS_ALPHA RADIUS_ELECTRON ELECTRON_RADIUS RADIUS_BOHR BOHR_RADIUS /], |
257
|
|
|
|
|
|
|
planetary => [qw/ GRAVITATIONAL WIEN PARSEC ASTRONOMICAL_UNIT LIGHT_YEAR YEAR_ANOMALISTIC YEAR_ECLIPSE MASS_SOLAR SOLAR_MASS LUMINOSITY_SOLAR SOLAR_LUMINOSITY MAGNITUDE_SOLAR_V SOLAR_V_MAG MAGNITUDE_SOLAR_V_ABSOLUTE SOLAR_V_ABS_MAG RADIUS_SOLAR SOLAR_RADIUS MASS_EARTH EARTH_MASS RADIUS_EARTH EARTH_RADIUS TEMPERATURE_SOLAR_SURFACE SOLAR_TEMPERATURE DENSITY_SOLAR SOLAR_DENSITY DENSITY_EARTH EARTH_DENSITY GRAVITY_SOLAR SOLAR_GRAVITY GRAVITY_EARTH EARTH_GRAVITY RADIUS_LUNAR LUNAR_RADIUS MASS_LUNAR LUNAR_MASS AXIS_SM_LUNAR LUNAR_SM_AXIS ECCENTRICITY_LUNAR LUNAR_ECCENTRICITY RADIUS_JUPITER MASS_JUPITER /], |
258
|
|
|
|
|
|
|
short => [qw/ $A_c $A_k $A_G $A_eV $A_h $A_hbar $A_e $A_sigma $A_arad $A_Wien $A_alpha $A_Z0 $A_eps0 $A_mu0 $A_pi $A_4pi $A_ster $A_exp $A_amu $A_pc $A_AU $A_ly $A_AA $A_Jy $A_NA $A_yr $A_msun $A_Lsun $A_rhoc $A_tH $A_TCMB $A_Vsun $A_MVsun $A_rsun $A_mearth $A_rearth $A_Tsun $A_dsun $A_dearth $A_gsun $A_gearth $A_rmoon $A_mmoon $A_amoon $A_emoon $A_sigmaT $A_me $A_mp $A_mn $A_mH $A_ma $A_re $A_a0 $A_rjup $A_mjup /], |
259
|
|
|
|
|
|
|
); |
260
|
|
|
|
|
|
|
|
261
|
|
|
|
|
|
|
'Perl is my Igor'; |
262
|
|
|
|
|
|
|
|
263
|
|
|
|
|
|
|
__END__ |