File Coverage

blib/lib/Astro/Constants/MKS.pm
Criterion Covered Total %
statement 292 299 97.6
branch 0 4 0.0
condition n/a
subroutine 98 100 98.0
pod 0 3 0.0
total 390 406 96.0


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