Пересчитал массу космологического аксиона в свете привязки к АММ лептонов.
Масса аксиона равна 0.208923... MeV
P.S.
Это я к тому, что если они (частицепроводчики) откроют, что космологический аксион будет весить, допустим, ровно 0.20000... MeV, а не 0.208923... , то теория окажется под ударом.
pa3 = 200;
to4 = 20;
s = 0.0412564319700000000000;
Print["3gecb kpoMe s Huчего не нужно."];
A1 = 0.3500000000000000000000;
A7 = 0.3700000000000000000000;
(* _______________________ *)
x := N[((1 + x0) + s)^(1/(1 - y0)), to4];
(* _______________________ *)
f := N[(x^x)^t, to4];
b1 = 2.35800000000000000000000;
b7 =\[InvisibleSpace]2.35810000000000000000000;
Do[
pb = b7 - b1; g = pb/7;
b2 = b1 + g; b6 = b7 - g;
t = b1;
a1 = A1;
a2 = A7;
res = FindMinimum[f, {x, a1, a2}];
x0 = x /. Last[res];
y0 = First[res];
ax1 = f;
t = b1 + g;
a1 = A1;
a2 = A7;
res = FindMinimum[f, {x, a1, a2}];
x0 = x /. Last[res];
y0 = First[res];
ax2 = f;
t = b1 + 2*g;
a1 = A1;
a2 = A7;
res = FindMinimum[f, {x, a1, a2}];
x0 = x /. Last[res];
y0 = First[res];
ax3 = f;
t = b7 - 2*g;
a1 = A1;
a2 = A7;
res = FindMinimum[f, {x, a1, a2}];
x0 = x /. Last[res];
y0 = First[res];
ax5 = f;
t = b7 - g;
a1 = A1;
a2 = A7;
res = FindMinimum[f, {x, a1, a2}];
x0 = x /. Last[res];
y0 = First[res];
ax6 = f;
t = b7;
a1 = A1;
a2 = A7;
res = FindMinimum[f, {x, a1, a2}];
x0 = x /. Last[res];
y0 = First[res];
ax7 = f;
If[And[ax1 > ax2, ax2 > ax3], {b1 = b2}];
If[And[ax7 > ax6, ax6 > ax5], {b7 = b6}],
{pa3}];
Print["===================================="];
Print["Axion = ", ax3];
Print["===================================="];
q = t;
Print["q = ", q];
Print["__= 2.358"];
ev = 0.51099892800000000;
ew = 30.3662301353166480;
Print["_____________"];
Print["Macca Axion'a = ", ev*ax3/ew, " MeV"];