clear_constants.red 785 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. % speed of light
  2. clear(c)$
  3. % Planck's constant
  4. clear(h)$
  5. % elementary charge
  6. clear(el)$
  7. % newtonian constant of gravity
  8. clear(g)$
  9. % Avogadro's number
  10. clear(a)$
  11. % Boltzmann's constant
  12. clear(b)$
  13. % mass of electron
  14. clear(me)$
  15. % mass of neutron
  16. clear(mn)$
  17. % mass of proton
  18. clear(mp)$
  19. % dielectric constant
  20. clear(epsilon0)$
  21. % permeability coefficient mue_0 = 4*pi*1e-7
  22. clear(mu0)$
  23. % Einstein's gravitational constant kappa = 8*pi*G / c^4
  24. clear(kappa)$
  25. % radius of universe [m]
  26. clear(ru)$
  27. % age of universe [s]
  28. clear(tu)$
  29. % critical mass density for a closing universe [cmd]
  30. clear(cmd)$
  31. % astronomical unit
  32. clear(au)$
  33. % Parsec
  34. clear(pc)$
  35. % seconds per sidereal day
  36. clear(sidd)$
  37. % days per tropical year
  38. clear(tropy)$
  39. % Planck mass
  40. clear(pm)$
  41. % Planck time
  42. clear(pt)$
  43. off rounded;
  44. end;