home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / MISCELLA.PAK / PHYSICAL.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  2.8 KB  |  116 lines
  1.  
  2. (* :Title: PhysicalConstants *)
  3.  
  4. (* :Author: Stephen Wolfram *)
  5.  
  6. (* :Summary: *)
  7.  
  8. (* :Package Version: 1.2 *)
  9.  
  10. (* :Copyright: *)
  11.  
  12. (* :Context: Miscellaneous`PhysicalConstants` *)
  13.  
  14. (* :History: 
  15.     Revised by ECM (Wolfram Research), November, 1990.
  16.     Version 1.1 by Stephen Wolfram (Wolfram Research), 1988. *)
  17.  
  18. (* :Keywords: *)
  19.  
  20. (* :Source: *)
  21.  
  22. (* :Warning: none. *)
  23.  
  24. (* :Mathematica Version: 2.0 *)
  25.  
  26. (* :Limitation: none. *)
  27. (* :Discussion: *)
  28.  
  29. BeginPackage["Miscellaneous`PhysicalConstants`","Miscellaneous`SIUnits`"]
  30.  
  31. Map[(#::"usage" =
  32.     StringJoin[ToString[#]," is a physical constant."])&,
  33.     {SpeedOfLight,PlanckConstant,PlanckConstantReduced,ElectronCharge,
  34.     ElectronMass,ProtonMass,AvogadroConstant,
  35.     FaradayConstant,GravitationalConstant,FineStructureConstant,
  36.     PlanckMass,BohrRadius,RydbergConstant,ElectronComptonWavelength,
  37.     ClassicalElectronRadius,ThomsonCrossSection,
  38.     ElectronMagneticMoment,ElectronGFactor,
  39.     MagneticFluxQuantum,BoltzmannConstant,MolarGasConstant,MolarVolume,
  40.     StefanConstant,IcePoint,WeakMixingAngle,AgeOfUniverse,HubbleConstant,
  41.     AccelerationDueToGravity,SolarRadius,
  42.     SolarConstant,EarthMass,EarthRadius,SpeedOfSound}]
  43.  
  44.  
  45. Begin["`Private`"]
  46.  
  47. SpeedOfLight = 2.99792458 10^8 Meter/Second
  48.  
  49. PlanckConstant = 6.6260755 10.^-34 Joule Second
  50.  
  51. PlanckConstantReduced = PlanckConstant / (2 Pi)
  52.  
  53. ElectronCharge = 1.60217733 10^-19 Coulomb
  54.  
  55. ElectronMass = 9.1093897 10^-31 Kilogram
  56.  
  57. ProtonMass = 1.6726231 10^-27 Kilogram
  58.  
  59. AvogadroConstant = 6.0221367 10.^23 Mole^-1  
  60.  
  61. FaradayConstant = 9.648456 10^4 Coulomb/Mole
  62.  
  63. GravitationalConstant = 6.67260 10^-11 Newton Meter^2 Kilogram^-2
  64.  
  65. FineStructureConstant = 1/137.0359895
  66.  
  67. PlanckMass = 2.17671 10^-8 Kilogram
  68.  
  69. BohrRadius = 0.529177249 10^-10 Meter  (* infinite mass nucleus *)
  70.  
  71. RydbergConstant = 1.09737318 10^7 Meter^-1
  72.  
  73. ElectronComptonWavelength = 2.426309 10^-12 Meter
  74.  
  75. ClassicalElectronRadius = 2.817938 10^-15 Meter
  76.  
  77. ThomsonCrossSection = 6.652245 10^-29 Meter^2
  78.  
  79. ElectronMagneticMoment = 9.284832 10^-24 Joule/Tesla
  80.  
  81. ElectronGFactor = 1.0011596567
  82.  
  83. MagneticFluxQuantum = 2.0678506 10^-15 Weber  (* h / ( 2 e ) *)
  84.  
  85. BoltzmannConstant = 1.380658 10^-23 Joule/Kelvin
  86.  
  87. MolarGasConstant = 8.3144 Joule Kelvin^-1 Mole^-1
  88.  
  89. MolarVolume = 22.41410 10^-3 Meter^3/Mole  (* ideal gas, STP *)
  90.  
  91. StefanConstant = 5.67051 10^-8 Watt Meter^-2 Kelvin^-4
  92.  
  93. IcePoint = 273.15 Kelvin
  94.  
  95. WeakMixingAngle = 0.230    (* Sin[ThetaW]^2 *)
  96.  
  97. AgeOfUniverse = 4.7 10^17 Second
  98.  
  99. HubbleConstant = 3.2 10^-18 Second^-1
  100.  
  101. AccelerationDueToGravity = 9.80665 Meter/Second^2
  102.  
  103. SolarRadius = 6.9599 10^8 Meter
  104.  
  105. SolarConstant = 1.37 10^3 Watt/Meter^2
  106.  
  107. EarthMass = 5.976 10^24 Kilogram
  108.  
  109. EarthRadius = 6.378164 10^6 Meter   (* equatorial radius *)
  110.  
  111. SpeedOfSound = 340.29205 Meter/Second  (* standard atmosphere *)
  112.  
  113. End[]
  114.  
  115. EndPackage[]
  116.