File Coverage

blib/lib/Astro/Constants/CGS.pm
Criterion Covered Total %
statement 287 294 97.6
branch 0 4 0.0
condition n/a
subroutine 96 98 97.9
pod 0 2 0.0
total 383 398 96.2


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__