my_constants.mac

/* my_constants.mac */
/* Author: Zwicknagl Martin */
/* Datum: 8.6.2021 */
/* Version: 0.3 */

%k: 1.38064852e-23; /* Boltzmann */
%g: 9.80665; /* Gravitational acceleration */

%G: 6.67408e-11; /* Universal gravitational constant */

%c:2.99792458e8; /* Speed of light */
%qe:1.602176565e-19; /* Electron charge */
%h:6.62606957e-34; /* Planck */

%mu0:4*%pi*1e-7; /* Magnetic field const. */
%e0:1/%mu0/%c^2; /* Electrical field const. */
%me:9.10938346e-31; /* Electron mass */

%mp:1.672621898e-27; /* Proton mass */
%mn:1.674927471e-27; /* Neutron mass */

%u: 1.660539040e-27; /* Atomic unit */

%R:  8.3144598; /* Gas constant */
%Na: 6.02214076e23; /* Avogadro */

%sigma: 2*%pi^5*%k^4/15/%h^3/%c^2; /* Stefan-Boltzmann */

%E0: 1367;  /*Solar constant*/


%rSun: 6.96342e8; /* Radius of the sun */
%mSun: 1.98892e30; /* Mass of the sun */

%rEarthAquator: 12756.27e3/2; /* Äquatorial radius of the earth */
%rEarthPolar: 12713.50e3/2; /* Polar radius of the earth */
%rEarth: (rEarthAquator+rEarthPolar)/2;
%mEarth: 5.9724e24; /* Mass of the earth */

%AE: 149597870700; /* Astronomical unit */

%rMoon: 3474e3/2; /* Radius of the moon */
%mMoon: 7.346e22; /* Mass of the moon */


load("isotopemasses"); /* isopte-masses */

%malpha:4.001506179125*%u;

/* nuclei masses */

%mHe4Kern:%malpha;


%c_wasser: 4185.1;