(* ::Package:: *)

(* :Title: PhysicalConstantErrors 2002 CODATA *)

(* :Author: J. Gregory Moxness *)
(* modified J. Gregory Moxness 2006/07/28 *)

(* :Summary:
This package provides the relative standard error values of various commonly used physical constants.
*)

(* :Package Version: 0.2 *)

(* :Context: Miscellaneous`PhysicalConstantErrors` *)

(* :History: 
	Version 0.1 by J. Gregory Moxness, 2001. used 1998 CODATA
	Version 0.2 by J. Gregory Moxness, 2006. changed to 2002 CODATA
*)

(* :Keywords: *)

(* :Source:
	NIST CODATA, http://physics.nist.gov/cuu/Constants, 2006.
*)

(* :Warning: None. *)

(* :Mathematica Version: 4.0 *)

(* :Limitation: None. *)
(* :Discussion: *)

BeginPackage["PhysicalConstantErrors`"]

(* ================= FUNDAMENTAL CONSTANT RELATIVE STANDARD UNCERTAINTY ========================== *)

VacuumPermeabilityError = 0
VacuumPermittivityError = VacuumPermeabilityError
SpeedOfLightError=VacuumPermeabilityError

ElectronMagneticMomentAnomalyError = 7.6 10^-13
RydbergConstantError = 6.6 10^-12

FineStructureConstantError = 7.0 10^-10
InverseFineStructureConstantError = FineStructureConstantError

ElementaryChargeError = 8.5 10^-8
PlanckConstantError = 2 ElementaryChargeError

ElectronMassError = PlanckConstantError         (* Relative Electron/Atomic Mass (u) Error = 4.4 10^-10 *)
ProtonElectronMassRatioError = ElectronMassError
ProtonMassError = ProtonElectronMassRatioError

NeutronMassError = ProtonMassError
MuonMassError = ProtonMassError
DeuteronMassError = ProtonMassError
AvagadroConstantError = ProtonMassError

ProtonMagneticMomentError = 8.7 10^-8		(* 1.02 ElementaryChargeError *)
DeuteronMagneticMomentError = ProtonMagneticMomentError
NeutronMagneticMomentError = 2.4 10^-7
MuonMagneticMomentAnomalyError = 5.5 10^-7

Pion0MassError = 9 10^-7
PionMassError = 5.0 10^-6

BoltzmannConstantError = 1.7 10^-6
SackurTetrodeConstantError = 3.8 10^-6
FermiConstantError = 8.6 10^-6

GravitationalConstantError = 1.5 10^-4 (* Most accurate recent measure of 14 ppm *)
GravitationalConstantError = 1.4 10^-5

WeakBosonMassError = 3.2 10^-3
ZBosonMassError = WeakBosonMassError
WeakMixingRatioError = 3.4 10^-3 (* 1.2 10^-3 @ .23101 *)

CosmicMicrowaveBackgroundRadiationTemperatureError = 1.1 10^-3

StrongCouplingConstantError = 0.01 
CabibboAngleError = 0.01 

HubbleConstantError = 0.05

VectorAxialCouplingConstantError = 0.1

HiggsMassError = 0.1

Begin["`Private`"]


End[ ] (* Private` *)

EndPackage[]