share/physics/physconst.mac

   1 /* Filename physicalconstants.mac
   2
   3        ***************************************************************
   4        *        Definitions of Fundamental Physical Constants        *
   5        *                  CODATA Recommended Values                  *
   6        *            (Version .4 - current as of March 2002)          *
   7        *                                                             *
   8        *         Source, Peter J. Mohr and Barry N. Taylor,          *
   9        *         CODATA Recommended Values of the Fundamental        *
  10        *         Physical Constants, 1998                            *
  11        *                                                             *
  12        *         Website: physics.nist.gov/constants                 *
  13        *                 --------------------------                  *
  14        *                  Programmed by Cliff Yapp                   *
  15        ***************************************************************
  16
  17    Abbreviations,
  18       RSU: Relative Standard Uncertainty
  19
  20     Variables with two percent signs: %%c, %%h, %%e, %%F, %%R
  21
  22    Changes:
  23       .1  -  first version uploaded
  24       .2  -  converted to numerval usage, added units to value
  25              assignments, converted to E notation
  26       .3  -  added RSU into definitions via qput
  27       .4  -  minor cleanup, added %h_bar to definitions
  28 =========================================================================*/
  29
  30 ttyoff: nolabels, true$
  31
  32 /*Universal Constants
  33 -------------------------------------------------------------------------*/
  34
  35 /*speed of light in vacuum*/
  36    numerval(%%c, 299792458*m/s)$
  37    numerval(%c_0, 299792458*m/s)$
  38
  39 /*magnetic constant*/
  40    numerval(%u_0, 4*%pi*1E-7*N/(A^2))$
  41    numerval(%mu_0, 4*%pi*1E-7*N/(A^2))$
  42
  43 /*electric constant*/
  44    numerval(%e_0, 8.854187817E-12*F/m)$
  45    numerval(%epsilon_0, 8.854187817E-12*F/m)$
  46
  47 /*characteristic impedance of vacuum*/
  48    numerval(%Z_0, 376.730313461*Ohms)$
  49
  50 /*Newtonian constant of gravitation*/
  51    numerval(%G, 6.673E-11*m^3/(kg*s^2))$
  52    qput(%G, 1.5E-3, RSU)$
  53
  54 /*Planck constant*/
  55    numerval(%%h, 6.62606876E-34*J*s)$
  56    qput(%%h, 7.8E-8, RSU)$
  57
  58 /*Planck constant in eVs*/
  59    numerval(%h_eV, 4.13566727E-15*eV*s)$
  60    qput(%h_eV, 3.9E-8, RSU)$
  61
  62 /*Hbar*/
  63    numerval(%h_bar, 1.054571596E-34*J*s)$
  64    qput(%h_bar, 7.8E-8, RSU)$
  65
  66 /*Hbar in eV*/
  67    numerval(%h_bar_eV, 6.58211889E-16*eV*s)$
  68    qput(%h_bar_eV, 3.9E-8, RSU)$
  69
  70 /*Planck mass*/
  71    numerval(%P_m, 2.1767E-8*kg)$
  72    qput(%P_m, 7.5E-4, RSU)$
  73
  74 /*Planck length*/
  75    numerval(%P_l, 1.6160E-35*m)$
  76    qput(%P_l, 7.5E-4, RSU)$
  77
  78 /*Planck time*/
  79    numerval(%P_t, 5.3906E-44*s)$
  80     qput(%P_t, 7.5E-4, RSU)$
  81
  82 /*Electromagnetic Constants
  83 ------------------------------------------------------------------------*/
  84 /*elementary charge*/
  85    numerval(%%e, 1.602176462E-19*C)$
  86    qput(%%e, 3.9E-8, RSU)$
  87
  88 /*magnetic flux quantum*/
  89    numerval(%capitalphi_0, 2.067833636E-15*Wb)$
  90    qput(%capitalphi_0, 3.9E-8, RSU)$
  91    numerval(%mfq_0, 2.067833636E-15*Wb)$
  92    qput(%mfq_0, 3.9E-8, RSU)$
  93
  94 /*conductance quantum*/
  95    numerval(%G_0, 7.748091696E-5*S)$
  96    qput(%G_0, 3.7E-9, RSU)$
  97
  98 /*Josephson constant*/
  99    numerval(%K_J, 483597.898E9*Hz/V)$
 100    qput(%K_J, 3.9E-8, RSU)$
 101
 102 /*von Klitzing constant*/
 103    numerval(%R_K, 25812.807572*Ohms)$
 104    qput(%R_K, 3.7E-9, RSU)$
 105
 106 /*Bohr magneton*/
 107    numerval(%u_B, 927.400899E-26*J/T)$
 108    qput(%u_B, 4.0E-8, RSU)$
 109 /*Bohr magneton in eV T-1*/
 110    numerval(%ueVT_B, 5.788381749E-5*eV/T)$
 111    qput(%ueVT_B, 7.3E-9, RSU)$
 112
 113 /*nuclear magneton*/
 114    numerval(%u_N, 5.05078317E-27*J/T)$
 115    qput(%u_N, 4.0E-8, RSU)$
 116 /*nuclear magneton in eV T-1*/
 117    numerval(%ueVT_N, 3.152451238E-8*eV/T)$
 118    qput(%ueVT_N, 7.6E-9, RSU)$
 119
 120
 121 /*Atomic and Nuclear Constants*/
 122 /*General
 123 -------------------------------------------------------------------------*/
 124
 125 /*fine-structure constant*/
 126    numerval(%alpha, 7.297352533E-3)$
 127    qput(%alpha, 3.7E-9, RSU)$
 128
 129 /*Rydberg constant*/
 130    numerval(%Ry, 10973731.568549/m)$
 131    qput(%Ry, 7.6E-12, RSU)$
 132    numerval(%Ry_INF, 10973731.568549/m)$
 133    qput(%Ry_INF, 7.6E-12, RSU)$
 134
 135 /*Bohr radius*/
 136    numerval(%a_0, 0.5291772083E-10*m)$
 137    qput(%a_0, 3.7E-9, RSU)$
 138
 139 /*Hartree energy*/
 140    numerval(%E_h, 4.35974381E-18*J)$
 141    qput(%E_h, 7.8E-8, RSU)$
 142 /*Hartree energy in eV*/
 143    numerval(%Eev_h, 27.2113834*eV)$
 144    qput(%Eev_h, 3.9E-8, RSU)$
 145
 146 /*quantum of circulation   h/(2me)*/
 147    numerval(%qcir2, 3.636947516E-4*m^2/s)$
 148    qput(%qcir2, 7.3E-9, RSU)$
 149 /*quantum of circulation   h/(me)*/
 150    numerval(%qcir, 7.273895032E-4*m^2/s)$
 151    qput(%qcir, 7.3E-9, RSU)$
 152
 153 /*Electroweak
 154 -------------------------------------------------------------------------*/
 155
 156 /*Fermi coupling constant*/
 157    numerval(%Fcc, 1.16639E-5/GeV^2)$
 158    qput(%Fcc, 8.6E-6, RSU)$
 159 /*weak mixing angled  W (on-shell scheme)*/
 160    numerval(%wma_W, 0.2224)$
 161    qput(%wma_W, 8.7E-3, RSU)$
 162
 163 /*Electron, e-
 164 -------------------------------------------------------------------------*/
 165
 166 /*electron mass*/
 167    numerval(%m_e, 9.10938188E-31*kg)$
 168    qput(%m_e, 7.9E-8, RSU)$
 169 /*electron mass (electron relative atomic mass times u)*/
 170    numerval(%m_e_u, 5.485799110E-4*u)$
 171    qput(%m_e_u,  2.1E-9, RSU)$
 172 /*electron mass - energy equivalent*/
 173    numerval(%me_J, 8.18710414E-14*J)$
 174    qput(%me_J, 7.9E-8, RSU)$
 175 /*electron mass - energy equivalent in MeV*/
 176    numerval(%me_MeV, 0.510998902*MeV)$
 177    qput(%me_MeV, 4.0E-8, RSU)$
 178
 179 /*electron-muon mass ratio*/
 180    numerval(%memu, 4.83633210E-3)$
 181     qput(%memu, 3.0E-8, RSU)$
 182
 183 /*electron-tau mass ratio*/
 184    numerval(%metau, 2.87555E-4)$
 185    qput(%metau, 1.6E-4, RSU)$
 186
 187 /*electron-proton mass ratio*/
 188    numerval(%memp, 5.446170232E-4)$
 189     qput(%memp, 2.1E-9, RSU)$
 190
 191 /*electron-neutron mass ratio*/
 192    numerval(%memn, 5.438673462E-4)$
 193    qput(%memn, 2.2E-9, RSU)$
 194
 195 /*electron-deuteron mass ratio*/
 196    numerval(%memd, 2.7244371170E-4)$
 197    qput(%memd, 2.1E-9, RSU)$
 198
 199 /*electron to alpha particle mass ratio*/
 200    numerval(%memalpha, 1.3709335611E-4)$
 201    qput(%memalpha, 2.1E-9, RSU)$
 202
 203 /*electron charge to mass quotient*/
 204    numerval(%echargeemass, -1.758820174E11*C/kg)$
 205    qput(%echargeemass,  4.0E-8, RSU)$
 206
 207 /*electron molar mass*/
 208    numerval(%Molar_e, 5.485799110E-7*kg/mol)$
 209    qput(%Molar_e, 2.1E-9, RSU)$
 210
 211 /*Compton wavelength*/
 212    numerval(%lambdaC, 2.426310215E-12*m)$
 213      qput(%lambdaC, 7.3E-9, RSU)$
 214
 215 /*classical electron radius*/
 216    numerval(%r_e, 2.817940285E-15*m)$
 217    qput(%r_e, 1.1E-8, RSU)$
 218
 219 /*Thomson cross section*/
 220    numerval(%sigma_e, 0.665245854E-28*m^2)$
 221    qput(%sigma_e, 2.2E-8, RSU)$
 222
 223 /*electron magnetic moment*/
 224    numerval(%u_e, -928.476362E-26*J/T)$
 225    qput(%u_, 4.0E-8, RSU)$
 226
 227 /*electron magnetic moment to Bohr magneton ratio*/
 228    numerval(%ueuB, -1.0011596521869)$
 229    qput(%ueuB, 4.1E-12, RSU)$
 230
 231 /*electron magnetic moment to nuclear magneton ratio*/
 232    numerval(%ueuN, -1838.2819660)$
 233    qput(%ueuN, 2.1E-9, RSU)$
 234
 235 /*electron magnetic moment anomaly |ue|/uB - 1*/
 236    numerval(%a_e, 1.1596521869E-3)$
 237    qput(%a_e, 3.5E-9, RSU)$
 238
 239 /*electron g-factor*/
 240    numerval(%g_e, -2.0023193043737)$
 241    qput(%g_e, 4.1E-12, RSU)$
 242
 243 /*electron-muon magnetic moment ratio*/
 244    numerval(%ueuu, 206.7669720)$
 245    qput(%ueuu, 3.0E-8, RSU)$
 246
 247 /*electron-proton magnetic moment ratio */
 248    numerval(%ueup, -658.2106875)$
 249        qput(%ueup, 1.0E-8, RSU)$
 250
 251 /*electron to shielded proton magnetic moment ratio  (H2O, sphere, 25  C)*/
 252    numerval(%ueusp, -658.2275954)$
 253    qput(%ueusp, 1.1E-8, RSU)$
 254
 255 /*electron-neutron magnetic moment ratio*/
 256    numerval(%ueun, 960.92050)$
 257    qput(%ueun, 2.4E-7, RSU)$
 258
 259 /*electron-deuteron magnetic moment ratio*/
 260    numerval(%ueud, -2143.923498)$
 261    qput(%ueud, 1.1E-8, RSU)$
 262
 263 /*electron to shielded helione magnetic moment ratio  (gas, sphere, 25  C)*/
 264    numerval(%ueush, 864.058255)$
 265    qput(%ueush, 1.2E-8, RSU)$
 266
 267 /*electron gyromagnetic ratio*/
 268    numerval(%gamma_e, 1.760859794E11/(s*T))$
 269    qput(%gamma_e, 4.0E-8, RSU)$
 270
 271 /*Muon, u-
 272 -------------------------------------------------------------------------*/
 273
 274 /*muon mass*/
 275    numerval(%m_u, 1.88353109E-28*kg)$
 276    qput(%m_u, 8.4E-8, RSU)$
 277 /*muon mass in muon relative atomic mass times u*/
 278    numerval(%mu_u, 0.1134289168*u)$
 279    qput(%mu_u, 3.0E-8, RSU)$
 280
 281 /*energy equivalent*/
 282    numerval(%muc2_J, 1.69283332E-11*J)$
 283    qput(%muc2_J, 8.4E-8, RSU)$
 284 /*energy equivalent in MeV*/
 285    numerval(%muc2_MeV, 105.6583568*MeV)$
 286    qput(%muc2_MeV, 4.9E-8, RSU)$
 287
 288 /*muon-electron mass ratio*/
 289    numerval(%mume, 206.7682657)$
 290    qput(%mume, 3.0E-8, RSU)$
 291
 292 /*muon-tau mass ratio*/
 293    numerval(%mum, 5.94572E-2)$
 294    qput(%mum, 1.6E-4, RSU)$
 295
 296 /*muon-proton mass ratio*/
 297    numerval(%mump, 0.1126095173)$
 298    qput(%mump, 3.0E-8, RSU)$
 299
 300 /*muon-neutron mass ratio*/
 301    numerval(%mumn, 0.1124545079)$
 302    qput(%mumn, 3.0E-8, RSU)$
 303
 304 /*muon molar mass*/
 305    numerval(%Molar_u, 0.1134289168E-3*kg/mol)$
 306    qput(%Molar_u, 3.0E-8, RSU)$
 307
 308 /*muon Compton wavelength*/
 309    numerval(%lambda_C_u, 11.73444197E-15*m)$
 310    qput(%lambda_C_u, 2.9E-8, RSU)$
 311
 312 /*muon magnetic moment*/
 313    numerval(%uu, -4.49044813E-26*J/T)$
 314    qput(%uu, 4.9E-8, RSU)$
 315
 316 /*ratio of muon magnetic moment to Bohr magneton ratio*/
 317    numerval(%uuuB, -4.84197085E-3)$
 318    qput(%uuuB, 3.0E-8, RSU)$
 319
 320 /*ratio of muon magnetic moment to nuclear magneton ratio*/
 321    numerval(%uuuN, -8.89059770)$
 322    qput(%uuuN, 3.0E-8, RSU)$
 323
 324 /*muon magnetic moment anomaly |uu|/(e /2mu) - 1*/
 325    numerval(%a_u, 1.16591602E-3)$
 326    qput(%a_u, 5.5E-7, RSU)$
 327
 328 /*muon g-factor -2(1 + au)*/
 329    numerval(%g_u, -2.0023318320)$
 330    qput(%g_u, 6.4E-10, RSU)$
 331
 332 /*muon-proton magnetic moment ratio*/
 333    numerval(%uuup, -3.18334539)$
 334    qput(%uuup, 3.2E-8, RSU)$
 335
 336 /*Tau, tau-
 337 -------------------------------------------------------------------------*/
 338
 339 /*tau mass*/
 340    numerval(%m_tau, 3.16788E-27*kg)$
 341    qput(%m_tau, 1.6E-4, RSU)$
 342 /*tau mass  (tau relative atomic mass times u)*/
 343    numerval(%mu_tau, 1.90774*u)$
 344    qput(%mu_tau, 1.6E-4, RSU)$
 345
 346 /*tau mass energy equivalent*/
 347    numerval(%mtauc2_J, 2.84715E-10*J)$
 348    qput(%mtauc2_J, 1.6E-4, RSU)$
 349
 350 /*tau mass energy equivalent in MeV*/
 351    numerval(%mtauc2_MeV, 1777.05*MeV)$
 352    qput(%mtauc2_MeV, 1.6E-4, RSU)$
 353
 354 /*tau-electron mass ratio*/
 355    numerval(%mtaume, 3477.60)$
 356    qput(%mtaume, 1.6E-4, RSU)$
 357
 358 /*tau-muon mass ratio*/
 359    numerval(%mtaumu, 16.8188)$
 360    qput(%mtaumu, 1.6E-4, RSU)$
 361
 362 /*tau-proton mass ratio*/
 363    numerval(%mtaump, 1.89396)$
 364    qput(%mtaump, 1.6E-4, RSU)$
 365
 366 /*tau-neutron mass ratio*/
 367    numerval(%mtaumn, 1.89135)$
 368    qput(%mtaumn, 1.6E-4, RSU)$
 369
 370 /*tau molar mass*/
 371    numerval(%Molar_tau, 1.90774E-3*kg/mol)$
 372    qput(%Molar_tau, 1.6E-4, RSU)$
 373
 374 /*tau Compton wavelength*/
 375    numerval(%lambda_C_tau, 0.69770E-15*m)$
 376    qput(%lambda_C_tau, 1.6E-4, RSU)$
 377
 378 /*Proton, p
 379 -------------------------------------------------------------------------*/
 380
 381 /*proton mass*/
 382    numerval(%m_p, 1.67262158E-27*kg)$
 383     qput(%m_p, 7.9E-8, RSU)$
 384 /*proton mass (proton relative atomic mass times u)*/
 385    numerval(%mu_p, 1.00727646688*u)$
 386    qput(%mu_p, 1.3E-10, RSU)$
 387
 388 /*energy equivalent*/
 389    numerval(%mpc2_J, 1.50327731E-10*J)$
 390     qput(%mpc2_J, 7.9E-8, RSU)$
 391 /*energy equivalent in MeV*/
 392    numerval(%mpc2_MeV, 938.271998*MeV)$
 393    qput(%mpc2_MeV, 4.0E-8, RSU)$
 394
 395 /*proton-electron mass ratio*/
 396    numerval(%mpme, 1836.1526675)$
 397    qput(%mpme, 2.1E-9, RSU)$
 398
 399 /*proton-muon mass ratio*/
 400    numerval(%mpmu, 8.88024408)$
 401    qput(%mpmu, 3.0E-8, RSU)$
 402
 403 /*proton-tau mass ratio*/
 404    numerval(%mpmtau, 0.527994)$
 405    qput(%mpmtau, 1.6E-4, RSU)$
 406
 407 /*proton-neutron mass ratio*/
 408    numerval(%mpmn, 0.99862347855)$
 409    qput(%mpmn, 5.8E-10, RSU)$
 410
 411 /*proton charge to mass quotient*/
 412    numerval(%emp, 9.57883408E7*C/kg)$
 413    qput(%emp, 4.0E-8, RSU)$
 414
 415 /*proton molar mass*/
 416    numerval(%Molar_p, 1.00727646688E-3*kg/mol)$
 417    qput(%Molar_p, 1.3E-10, RSU)$
 418
 419 /*proton Compton wavelength h/mpc*/
 420    numerval(%lambda_C_p, 1.321409847E-15*m)$
 421    qput(%lambda_C_p, 7.6E-9, RSU)$
 422
 423 /*proton magnetic moment*/
 424    numerval(%up, 1.410606633E-26*J/T)$
 425    qput(%up, 4.1E-8, RSU)$
 426
 427 /*proton magnetic moment to Bohr magneton ratio*/
 428    numerval(%upuB, 1.521032203E-3)$
 429    qput(%upuB, 1.0E-8, RSU)$
 430
 431 /*proton magnetic moment to nuclear magneton ratio*/
 432    numerval(%upuN, 2.792847337)$
 433    qput(%upuN, 1.0E-8, RSU)$
 434
 435 /*proton g-factor 2up/uN*/
 436    numerval(%g_p, 5.585694675)$
 437    qput(%g_p, 1.0E-8, RSU)$
 438
 439 /*proton-neutron magnetic moment ratio*/
 440    numerval(%upun, -1.45989805)$
 441    qput(%upun, 2.4E-7, RSU)$
 442
 443 /*shielded proton magnetic moment  (H2O, sphere, 25  C)*/
 444    numerval(%usp, 1.410570399E-26*J/T)$
 445    qput(%usp, 4.2E-8, RSU)$
 446
 447 /*shielded proton magnetic moment to Bohr magneton ratio*/
 448    numerval(%uspuB, 1.520993132E-3)$
 449    qput(%uspuB, 1.1E-8, RSU)$
 450
 451 /*shielded proton magnetic moment to nuclear magneton ratio*/
 452    numerval(%uspuN, 2.792775597)$
 453    qput(%uspuN, 1.1E-8, RSU)$
 454
 455 /*proton magnetic shielding correction 1 - u p/up  (H2O, sphere, 25  C)*/
 456    numerval(%spc, 25.687E-6)$
 457    qput(%spc, 5.7E-4, RSU)$
 458
 459 /*proton gyromagnetic ratio*/
 460    numerval(%gamma_p, 2.67522212E8/(s*T))$
 461    qput(%gamma_p, 4.1E-8, RSU)$
 462
 463 /*shielded proton gyromagnetic ratio (H2O, sphere, 25  C)*/
 464    numerval(%gamma_sp, 2.67515341E8/(s*T))$
 465    qput(%gamma_sp, 4.2E-8, RSU)$
 466
 467 /*Neutron, n
 468 -------------------------------------------------------------------------*/
 469
 470 /*neutron mass*/
 471    numerval(%m_n, 1.67492716E-27*kg)$
 472     qput(%m_n, 7.9E-8, RSU)$
 473 /*neutron mass (neutron relative atomic mass times u)*/
 474    numerval(%mu_n, 1.00866491578*u)$
 475    qput(%mu_n, 5.4E-10, RSU)$
 476
 477 /*neutron mass energy equivalent*/
 478    numerval(%mnc2_J, 1.50534946E-10*J)$
 479    qput(%mnc2_J, 7.9E-8, RSU)$
 480
 481 /*neutron mass energy equivalent  in MeV*/
 482    numerval(%mnc2_MeV, 939.565330*MeV)$
 483    qput(%mnc2_MeV, 4.0E-8, RSU)$
 484
 485 /*neutron-electron mass ratio*/
 486    numerval(%mnme, 1838.6836550)$
 487    qput(%mnme, 2.2E-9, RSU)$
 488
 489 /*neutron-muon mass ratio*/
 490    numerval(%mnmu, 8.89248478)$
 491    qput(%mnmu, 3.0E-8, RSU)$
 492
 493 /*neutron-tau mass ratio*/
 494    numerval(%mnm, 0.528722)$
 495    qput(%mnm, 1.6E-4, RSU)$
 496
 497 /*neutron-proton mass ratio*/
 498    numerval(%mnmp, 1.00137841887)$
 499    qput(%mnmp, 5.8E-10, RSU)$
 500
 501 /*neutron molar mass*/
 502    numerval(%Molar_n, 1.00866491578E-3*kg/mol)$
 503    qput(%Molar_n, 5.4E-10, RSU)$
 504
 505 /*neutron Compton wavelength*/
 506    numerval(%lambda_C_n, 1.319590898E-15*m)$
 507    qput(%lambda_C_n, 7.6E-9, RSU)$
 508
 509 /*neutron magnetic moment*/
 510    numerval(%un, -0.96623640E-26*J/T)$
 511    qput(%un, 2.4E-7, RSU)$
 512
 513 /*neutron magnetic moment to Bohr magneton ratio*/
 514    numerval(%unuB, -1.04187563E-3)$
 515    qput(%unuB, 2.4E-7, RSU)$
 516
 517 /*neutron magnetic moment to nuclear magneton ratio*/
 518    numerval(%unuN, -1.91304272)$
 519    qput(%unuN, 2.4E-7, RSU)$
 520
 521 /*neutron g-factor*/
 522    numerval(%g_n, -3.82608545)$
 523    qput(%g_n, 2.4E-7, RSU)$
 524
 525 /*neutron-electron magnetic moment ratio*/
 526    numerval(%unue, 1.04066882E-3)$
 527    qput(%unue, 2.4E-7, RSU)$
 528
 529 /*neutron-proton magnetic moment ratio*/
 530    numerval(%unup, -0.68497934)$
 531    qput(%unup, 2.4E-7, RSU)$
 532
 533 /*neutron to shielded proton magnetic moment ratio (H2O, sphere, 25  C)*/
 534    numerval(%unusp, -0.68499694)$
 535    qput(%unusp, 2.4E-7, RSU)$
 536
 537 /*neutron gyromagnetic ratio*/
 538    numerval(%gamma_n, 1.83247188E8/(s*T))$
 539    qput(%gamma_n, 2.4E-7, RSU)$
 540
 541 /*Deuteron, d
 542 -------------------------------------------------------------------------*/
 543
 544 /*deuteron mass*/
 545    numerval(%m_d, 3.34358309E-27*kg)$
 546    qput(%m_d, 7.9E-8, RSU)$
 547
 548 /*deuteron mass (deuteron relative atomic mass times u)*/
 549    numerval(%mu_d, 2.01355321271*u)$
 550    qput(%mu_d, 1.7E-10, RSU)$
 551
 552 /*deuteron mass energy equivalent*/
 553    numerval(%mdc2_J, 3.00506262E-10*J)$
 554      qput(%mdc2_J, 7.9E-8, RSU)$
 555
 556 /*deuteron mass energy equivalent in MeV*/
 557    numerval(%mdc2_eV, 1875.612762*MeV)$
 558    qput(%mdc2_eV, 4.0E-8, RSU)$
 559
 560 /*deuteron-electron mass ratio*/
 561    numerval(%mdme, 3670.4829550)$
 562    qput(%mdme, 2.1E-9, RSU)$
 563
 564 /*deuteron-proton mass ratio*/
 565    numerval(%mdmp, 1.99900750083)$
 566    qput(%mdmp, 2.0E-10, RSU)$
 567
 568 /*deuteron molar mass*/
 569    numerval(%Molar_d, 2.01355321271E-3*kg/mol)$
 570    qput(%Molar_d, 1.7E-10, RSU)$
 571
 572 /*deuteron magnetic moment*/
 573    numerval(%ud, 0.433073457E-26*J/T)$
 574    qput(%ud, 4.2E-8, RSU)$
 575
 576 /*deuteron magnetic moment to Bohr magneton ratio*/
 577    numerval(%uduB, 0.4669754556E-3)$
 578    qput(%uduB, 1.1E-8, RSU)$
 579
 580 /*deuteron magnetic moment to nuclear magneton ratio*/
 581    numerval(%uduN, 0.8574382284)$
 582    qput(%uduN, 1.1E-8, RSU)$
 583
 584 /*deuteron-electron magnetic moment ratio*/
 585    numerval(%udue, -4.664345537E-4)$
 586    qput(%udue, 1.1E-8, RSU)$
 587
 588 /*deuteron-proton magnetic moment ratio*/
 589    numerval(%udup, 0.3070122083)$
 590    qput(%udup, 1.5E-8, RSU)$
 591
 592 /*deuteron-neutron magnetic moment ratio*/
 593    numerval(%udun, -0.44820652)$
 594    qput(%udun, 2.4E-7, RSU)$
 595
 596 /*Helion, h
 597 -------------------------------------------------------------------------*/
 598
 599 /*helion mass*/
 600    numerval(%m_h, 5.00641174E-27*kg)$
 601    qput(%m_h, 7.9E-8, RSU)$
 602
 603 /*helion mass (helion relative atomic mass times u)*/
 604    numerval(%mu_h, 3.01493223469*u)$
 605    qput(%mu_h, 2.8E-10, RSU)$
 606
 607 /*helion mass energy equivalent*/
 608    numerval(%mhc2_J, 4.49953848E-10*J)$
 609    qput(%mhc2_J, 7.9E-8, RSU)$
 610 /*helion mass energy equivalent in MeV*/
 611    numerval(%mhc2_MeV, 2808.39132*MeV)$
 612    qput(%mhc2_MeV, 4.0E-8, RSU)$
 613
 614 /*helion-electron mass ratio*/
 615    numerval(%mhme, 5495.885238)$
 616    qput(%mhme, 2.1E-9, RSU)$
 617
 618 /*helion-proton mass ratio*/
 619    numerval(%mhmp, 2.99315265850)$
 620    qput(%mhmp, 3.1E-10, RSU)$
 621
 622 /*helion molar mass*/
 623    numerval(%Molar_h, 3.01493223469E-3*kg/mol)$
 624    qput(%Molar_h, 2.8E-10, RSU)$
 625
 626 /*shielded helion magnetic moment (gas, sphere, 25  C)*/
 627    numerval(%ush, -1.074552967E-26*J/T)$
 628    qput(%ush, 4.2E-8, RSU)$
 629
 630 /*shielded helion magnetic moment to Bohr magneton ratio*/
 631    numerval(%ushuB, -1.158671474E-3)$
 632    qput(%ushuB, 1.2E-8, RSU)$
 633
 634 /*shielded helion magnetic moment to nuclear magneton ratio*/
 635    numerval(%ushuN, -2.127497718)$
 636    qput(%ushuN, 1.2E-8, RSU)$
 637
 638 /*shielded helion to proton magnetic moment ratio  (gas, sphere, 25  C)*/
 639    numerval(%ushup, -0.761766563)$
 640    qput(%ushup, 1.5E-8, RSU)$
 641
 642 /*shielded helion to shielded proton magnetic moment ratio  (gas/H2O, spheres, 25  C)*/
 643    numerval(%ushusp, -0.7617861313)$
 644    qput(%ushusp, 4.3E-9, RSU)$
 645
 646 /*shielded helion gyromagnetic  (gas, sphere, 25  C)*/
 647    numerval(%gamma_h, 2.037894764E8/(s*T))$
 648    qput(%gamma_h, 4.2E-8, RSU)$
 649
 650 /*Alpha particle,
 651 -------------------------------------------------------------------------*/
 652
 653 /*alpha particle mass*/
 654    numerval(%m_alpha, 6.64465598E-27*kg)$
 655    qput(%m_alpha, 7.9E-8, RSU)$
 656 /*alpha particle mass (alpha particle relative atomic mass times u)*/
 657    numerval(%mu_alpha, 4.0015061747*u)$
 658    qput(%mu_alpha, 2.5E-10, RSU)$
 659
 660 /*alpha particle mass energy equivalent*/
 661    numerval(%malphac2_J, 5.97191897E-10*J)$
 662      qput(%malphac2_J, 7.9E-8, RSU)$
 663
 664 /*alpha particle mass energy equivalent in MeV*/
 665    numerval(%malphac2_MeV, 3727.37904*MeV)$
 666    qput(%malphac2_MeV, 4.0E-8, RSU)$
 667
 668 /*alpha particle to electron mass ratio*/
 669    numerval(%malphame, 7294.299508)$
 670    qput(%malphame, 2.1E-9, RSU)$
 671
 672 /*alpha particle to proton mass ratio*/
 673    numerval(%malphamp, 3.9725996846)$
 674    qput(%malphamp, 2.8E-10, RSU)$
 675
 676 /*alpha particle molar mass*/
 677    numerval(%Molar_alpha, 4.0015061747E-3*kg/mol)$
 678    qput(%Molar_alpha, 2.5E-10, RSU)$
 679
 680 /*PHYSICO-CHEMICAL
 681 -------------------------------------------------------------------------*/
 682
 683 /*Avogadro constant*/
 684    numerval(%N_A, 6.02214199E23/mol)$
 685    qput(%N_A, 7.9E-8, RSU)$
 686    numerval(%L, 6.02214199E23/mol)$
 687    qput(%L, 7.9E-8, RSU)$
 688
 689 /*atomic mass constant mu = 112m(12C) = 1 u = 10E-3 kg mol-1/NA*/
 690    numerval(%m_u, 1.66053873E-27*kg)$
 691    qput(%m_u, 7.9E-8, RSU)$
 692
 693 /*energy equivalent of the atomic mass constant*/
 694    numerval(%muc2_J, 1.49241778E-10*J)$
 695    qput(%muc2_J, 7.9E-8, RSU)$
 696
 697 /*energy equivalent of the atomic mass constant in MeV*/
 698    numerval(%muc2_MeV, 931.494013*MeV)$
 699    qput(%muc2_MeV, 4.0E-8, RSU)$
 700
 701 /*Faraday constant*/
 702    numerval(%%F, 96485.3415*C/mol)$
 703    qput(%%F, 4.0E-8, RSU)$
 704
 705 /*molar Planck constant*/
 706    numerval(%N_Ah, 3.990312689E-10*J*s/mol)$
 707    qput(%N_Ah, 7.6E-9, RSU)$
 708
 709 /*molar gas constant*/
 710    numerval(%%R, 8.314472*J/(mol*K))$
 711    qput(%%R, 1.7E-6, RSU)$
 712
 713 /*Boltzmann constant*/
 714    numerval(%k_J, 1.3806503E-23*J/K)$
 715    qput(%k_J, 1.7E-6, RSU)$
 716
 717 /*Boltzmann constant in eV*/
 718    numerval(%k_eV, 8.617342E-5*eV/K)$
 719    qput(%k_eV, 1.7E-6, RSU)$
 720
 721 /*Loschmidt constant  NA/Vm*/
 722    numerval(%n_0, 2.6867775E25/m^3)$
 723    qput(%n_0, 1.7E-6, RSU)$
 724
 725 /*molar volume of ideal gas RT/p   T = 273.15 K, p = 101.325 kPa*/
 726    numerval(%Vm_1, 22.413996E-3*m^3/mol)$
 727    qput(%Vm_1, 1.7E-6, RSU)$
 728 /*molar volume of ideal gas RT/p   T = 273.15 K, p = 100 kPa*/
 729    numerval(%Vm_2, 22.710981E-3*m^3/mol)$
 730    qput(%Vm_2, 1.7E-6, RSU)$
 731
 732
 733 /*Sackur-Tetrode constant (absolute entropy constant) 52 + ln_(2 mukT1/h2)3/2kT1/p0*/
 734 /*T1 = 1 K, p0 = 100 kPa*/
 735    numerval(%S_0R_1, -1.1517048)$
 736    qput(%S_0R_1, 3.8E-6, RSU)$
 737 /*T1 = 1 K, p0 = 101.325 kPa*/
 738    numerval(%S_0R_2, -1.1648678)$
 739    qput(%S_0R_2, 3.7E-6, RSU)$
 740
 741 /*Stefan-Boltzmann constant*/
 742    numerval(%sigma, 5.670400E-8*W/(m^2*K^4))$
 743    qput(%sigma, 7.0E-6, RSU)$
 744
 745 /*first radiation constant*/
 746    numerval(%c_1, 3.74177107E-16*W*m^2)$
 747    qput(%c_1, 7.8E-8, RSU)$
 748
 749 /*first radiation constant for spectral radiance*/
 750    numerval(%c_1L, 1.191042722E-16*W*m^2/sr)$
 751    qput(%c_1L, 7.8E-8, RSU)$
 752
 753 /*second radiation constant*/
 754    numerval(%c_2, 1.4387752E-2*m*K)$
 755    qput(%c_2, 1.7E-6, RSU)$
 756
 757 /*Wien displacement law constant b =  maxT = c2/4.965 114231...*/
 758    numerval(%b, 2.8977686E-3*m*K)$
 759    qput(%b, 1.7E-6, RSU)$
 760
 761 ttyoff: nolabels, false$