Ну, давайте ещё раз. Вот формула для масс частиц.
\[ M = (1+x_0+s)^\left(\frac{1}{1-y_0}\right) \]
Вот руководящая тройка лептонов, т.е. электрон, мюон, таон.
(x^x)^(x^A1)
(x^(x^(x^x)))^(x^A2)
(x^(x^(x^(x^(x^x)))))^(x^A3)
Где
A1, A2,A3 - соответственно, аномальные магнитные моменты электрона, мюона и таона.
A1 и A2 известны с большой точностью. Неизвестен только АММ таона. Здесь его нетрудно вычислить. Он получается примерно 0.001086
Теперь вычисляем пион, \(\pi\)-мезон.
В моей версии, пион представляет собой суперпозицию двух пар связанных кварковых состояний. Выражается это двумя формулами
(x^(x^(Y^x)))^(x^(x^V))
(x^(x^V))^(x^(x^(Y^x)))
Притом, если V = 1, то наблюдается минимум массы при определённом значении Y.
Вот это значение: 117.491 MeV
При экспериментальном значении: 139.57018 MeV
Что составляет 84.18%
(Уря-уря нипапал!! &/ )
Да, кстати, любителям доё6blваться до параметров (а пачиму единица?), можно сделать и без единицы.
(x^(x^(Y^x)))^(x^x)
(x^x)^(x^(x^(Y^x)))
Вот вам - никаких свободных параметров. Ибо, вся эта система имеет минимум, при Y = 0.00001261466
И минимум этот - 117.491 MeV
Вот прога:
to4 = 20; pa3 = 100;
s = 0.0412564319700000000000;
ew = 30.3662301353166480;
ev = 0.51099891000000;
x := N[((1 + x0) + s)^(1/(1 - y0)), to4];
x0 = 0; y0 = 0;
ko := 0;
ui := x^(x^(Y^x));
di := x^x;
p[1] := di^ui;
p[2] := ui^di;
x1 = 0.00100000000000000000000000000;
x2 = 0.12000000000000000000000000000;
b1 = 0.00000100000000000000000000000;
b7 =\[InvisibleSpace]0.00010000000000000000000000000;
Do[
pb = b7 - b1; g = pb/7;
b2 = b1 + g; b6 = b7 - g;
Y = b1;
ko = 0;
For[i = 1, i < 3,
res = FindMinimum[p[i], {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ax1 = ko;
Y = b1 + g;
ko = 0;
For[i = 1, i < 3,
res = FindMinimum[p[i], {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ax2 = ko;
Y = b1 + 2*g;
ko = 0;
For[i = 1, i < 3,
res = FindMinimum[p[i], {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ax3 = ko;
Y = b7 - 2*g;
ko = 0;
For[i = 1, i < 3,
res = FindMinimum[p[i], {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ax5 = ko;
Y = b7 - g;
ko = 0;
For[i = 1, i < 3,
res = FindMinimum[p[i], {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ax6 = ko;
Y = b7;
ko = 0;
For[i = 1, i < 3,
res = FindMinimum[p[i], {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ax7 = ko;
If[And[ax1 > ax2, ax2 > ax3], {b1 = b2}];
If[And[ax7 > ax6, ax6 > ax5], {b7 = b6}],
{pa3}];
o = ax3*ev;
Print["======================="]
Print["Pi +- = 139.57018"];
Print["Macca = ", o, " MeV"];
Print["========================"];
Print["A = ", Y];
Print[100*o/139.57018];
