Ну и завершающий штрих - \(\Delta^{++}\)-барион (uuu).
Решение пришло как-то неожиданно.
(Но слишком много я с ним до этого трахался).Оказалось, здесь наличествует нейтроноподобный разрыв графика. И момент, когда этот разрыв обращается в нуль, в простое преломление графика, он существует при параметре, равном 0.202437.. , при одной нулевой поправке, но, чтоб две другие были равны между собой и равнялись числу
0.7219647...
Именно тогда излом графика достигает
максимума по оси абцисс. И именно здесь определяется значение массы, где оно равно
382.02 МэВ.
А теперь тривиальное сложение всех трёх масс по цветным вариациям, кои в случае одинаковых кварков, тоже одинаковы.
То есть,
382.02 + 382.02 +382.02 = 1146.061146.06 MeV - такова масса \(\Delta^{++}\)-бариона.
Вот программа для \(\Delta^{++}\)-бариона
to4 = 28;
s = 0.0412564319700000000000000000000000000000;
ew = 30.36623013531664800000000000000000000000;
ev = 0.510998910000000000000000000000000000000;
(* *)
No = 0.20243650000000000000000000000000000000;
N2 = 0.20243750000000000000000000000000000000;
(* *)
on = 0;
(* *)
tw = 0.7219647000000000000000000000000000000;
tr = tw;
Print[(No + N2)/2];
x := N[((1 + x0) + s)^(1/(1 - y0)), to4];
x0 = 0; y0 = 0; ko := 0;
(*Quark*)
one := x^(x^(q1^x));
two := x^(x^(q2^x));
three := x^(x^(q3^x));
(*Barion*)
p[1] := one^(two^(1/three));
p[2] := one^(three^(1/two));
p[3] := two^(one^(1/three));
p[4] := two^(three^(1/one));
p[5] := three^(one^(1/two));
p[6] := three^(two^(1/one));
(*End Barion*)
kvo = 100;
kv1 = kvo + 1;
cnucok := Array[g, kvo];
m1 = 0.010000000000000000000000000000000000;
m2 = 0.300000000000000000000000000000000000;
dd = (N2 - No)/kvo;
For[j = 1, j < kv1,
ko = 0;
No = No + dd;
q1 = No + on;
q2 = No + tw;
q3 = No + tr;
For[i = 1, i < 7, res =
FindMinimum[p[i], {x, m1,
m2}, AccuracyGoal -> 28, PrecisionGoal -> 22, WorkingPrecision ->
to4];
(*res = FindMinimum[p[i], {x, m1, m2}];*)
x0 = x /. Last[res];
y0 = First[res];
k1 = p[i]/ew; ko = ko + k1;
i++];
ko = ko*ev/6;
g[j] = ko;
j++];
ListPlot[cnucok, PlotJoined -> True, PlotStyle -> Hue[.6],
ImageSize -> {400, 400}];
Print["uuu = ", 3*382.02, " MeV"];
Print["Macca = 1232.0 MeV"];
Все 4 дельта-бариона найдены. То что они отличаются от экспериментального
1232 MeV - ну, это уж вам решать, выкидывать эту идею в канализацию, или не выкидывать.
При всём при том, заметьте, что вот данный uuu-барион можно вычислить до какой угодно точности. Притом, легко. Значительно потруднее будет вычислять протон и нейтрон.
Таааак... сколько там в прОцентах я не попадаю в эксперимент? 93% получаеЦЦа, от эксперимента.
Задача частицепроводчиков в том, щтобы получить те же прОценты по SCC-бариону. Сколько там он предсказываеЦЦа-та? 4 ГэВа?...
Ну, так или иначе, теперь ясно хотя бы в какой тёмной комнате искать чёрную кошку. И вроде, похоже, она там есть.
А надёжно открытых барионов -- тьма-тьмущая. Тут много интересного.
_____________
p.s.
Добавлю ещё слова CASTRO от 2011 года из стартовой темы на основном научном форуме:
Забудьте пока про лептоны. Их всего три и для того, чтобы "предсказать" их массы достаточно квадратичной формулы. Возьмите барионы. Или мезоны. Причём, состоящие из разных кварков. Причём сразу десятка два. Потянете?
Так-с, значицца... 6 штук барионов уже есть. (SCC не в счёт, он пока ещё не открыт). И 2 штуки мезонов: \(\pi^{+-}\)-мезон и \(\pi^0\)-мезон.
Итого, 8 штук.
2 десятка, т.е. 20 штук... 20 - 8 = 12
12 штук ещё за мной. Это не так просто. Лично мне не осилить: слишком слаб комп. Ежели тока штюденты какие подмогнут... Ну да хиленькая надежда.
Во всяком случае, d(dc), c(dd), s(cs) и c(ss) взять должны. Надо стараться.
