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

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

Электроны

Итак, имеем тройку лептонов: электрон, мюон, таон. Точнее, это тройка электронов. Список нейтрино мы рассмотрим отдельно.

Настоящая Теория элементарных частиц X,Y-лептонов не предсказывает.
Здесь же осмелюсь предсказать, что таковые лептоны существуют.

Список электронов:
Электрон    - (xx)(xN)

Мюон         - (x(x(xx)))(xN)

Таон            - (x(x(x(x(xx)))))(xN)

X-электрон - (x(x(x(x(x(x(xx)))))))(xN)

Y-электрон - (x(x(x(x(x(x(x(x(xx)))))))))(xN)

...

и т.д.

Список их масс:
Электрон    - 0.5109989 MeV

Мюон         - 105.6584 MeV

Таон            - 1776.84 MeV

X-электрон - 0.312915 MeV

Y-электрон - 0.0336605 MeV

...

и т.д.

No = 0.000264;(* *)
s := 0.0416964;
y := (x^x)^(x^No);
ev := 0.5109989;
y0 = 0.692268; x0 = 0.367977;
x := N[((1 + x0) + s)^(1/(1 - y0))];
el = y;
Print["El = 0.5109989"]
Print["Muon = 105.6584"]
Print["Taon = 1776.84"]
Print["El = ", el - 1]
y0 = 0.512; x0 = 0.195521;
a1 = (x^(x^(x^(x^(x^(x^(x^x)))))))^(x^No);
y0 = 0.490895; x0 = 0.175122;
a2 = (x^(x^(x^(x^(x^(x^(x^(x^(x^x)))))))))^(x^No);
e1e = (a1 - 1)/(el - 1);
e2e = (a2 - 1)/(el - 1);
Print["Xe/El = ", e1e]
Print["X-e-Lepton = ", e1e*ev, " MeV"]
Print["Ye/El = ", e2e]
Print["Y-e-Lepton = ", e2e*ev, " MeV"]

Результат вычисления:
El = 0.5109989
Muon = 105.6584
Taon = 1776.84
El = 29.1516
Xe/El = 0.61236
X-e-Lepton = 0.312915 MeV
Ye/El = 0.065872
Y-e-Lepton = 0.0336605 MeV

No = 0.000264;
f := (x^(x^(x^(x^(x^(x^(x^x)))))))^(x^No);
FindMinimum[f, {x, 0.001, 0.3}]
f := (x^(x^(x^(x^(x^(x^(x^(x^(x^x)))))))))^(x^No);
FindMinimum[f, {x, 0.001, 0.25}]

Результат вычисления:
{0.512, {x -> 0.195521}}
{0.490895, {x -> 0.175122}}

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

Далее: Нейтрино