Владимир Привалов

Полистепенные функции и элементарные частицы

Максимон Маркова и фридмон

Совершенно не ожидал увидеть частицу, по массе почти совпадающую с т.н. максимоном Маркова. Причём, эта частица находится в первом поколении частиц, вместе с аксионом, хиггсом и d-кварком. Только есть маленькое дополнение. Один из аргументов x дан в обратном значении. Фактически, это та же функция x(Nx), только "перевёрнутая".

Масса максимона Маркова предполагается 1.2209 * 10¹⁹ GeV или 2.176 * 10^-5 г.

Согласно моей трактовке, она принимает значение 1.63778 * 10¹⁹GeV
B случае, если параметр N будет равняться константе Лежандра, минус 1. Т.е. N = 0.08366...

y = x(N(1/x))

s = 0.0416944950000000000000000000000000;
p = 0.0002668400000000000000000000000000;
y := (v^v)^(v^p);
ev = 0.510998900000000000000000000000000;
y0 = 0.692268000000000000000000000000000;
x0 = 0.367977000000000000000000000000000;
v := N[(1 + s + x0)^(1/(1 - y0)), 35];
el = y;
(* +++++++++++++++++++++++++ *)
(*No = 2*s; Const Legendres const*)
No = 0.08366;
(* ------------------------- *)
f[x_] := N[x^(No^(1/x)), 35];
a1 =0.100000000000000000000000000000000;
a7 =0.990000000000000000000000000000000;
Do[
pa = a7 - a1; d = pa/7;
a2 = a1 + d; a6 = a7 - d;
f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d];
f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d];
If[And[f1 > f2, f2 > f3], {a1 = a2}];
If[And[f7 > f6, f6 > f5], {a7 = a6}],
{150}]
Print["Maximon = 1.2209 * 10^19 GeV"]
y0 = f2; x0 = a2;
x := N[(1 + s + x0)^(1/(1 - y0)), 35];
y1 = N[x^(No^(1/x)), 35];
e1e = (y1 - 1)/(el - 1);
Print[e1e*ev*0.001, " GeV"]

Результат вычисления:
Maximon = 1.2209 * 10¹⁹ GeV
1.63778 * 10¹⁹ GeV

Масса фридмона - 0.0254264 MeV
О фридмоне см. Вики
Частица, похожая на электрон. Функция обладает, как и функции лептонов, абсолютным экстремумом.

y = x(x(NN))

p = 0.000264;(* *)
s = 0.0416964;
y := (x^x)^(x^p);
ev = 0.5109989;
y0 = 0.692268; x0 = 0.367977;
x := N[(1 + s + x0)^(1/(1 - y0))];
el = y;
No = 0.367879;
y0 = 0.587744; x0 = 0.235824;
a1 = x^(x^(No^No));
Print["Xi = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["Xi/El = ", e1e]
Print[e1e*ev, " MeV"]

Результат вычисления:
Xi = 2.45054
Xi/El = 0.0497583
0.0254264 MeV

* * *

y = x(x(NN))

epi = 0.873423;
No = 0.367879;
f := (x^(x^(No^No)));
FindMinimum[f, {x, 0.001, 1}]
Plot[f, {x, 0, 1}]

Результат вычисления:
{0.587744, {x -> 0.235824}}

Все тексты программ скачать здесь: apx.zip 0.429 Mb

Далее: Фридмон-кварк