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

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

Нейтрино

Нейтрино не сходятся. С имеющимися данными. В том числе, с данными PDG. Возможно, я что-то не учёл. Да и невозможно всё учесть. Поэтому, просто приведу свои рассчёты. Без комментариев.

Список нейтрино:
e - x(x(xN))

m - x(x(x(x(xN))))

t - x(x(x(x(x(x(xN))))))

X - x(x(x(x(x(x(x(x(xN))))))))

Y - x(x(x(x(x(x(x(x(x(x(xN))))))))))

...

и т.д.

Список их масс:
e - 10.4392 KeV

m - 6.47895 KeV

t - 5.29794 KeV

X - 0.542058 MeV

Y - 0.539256 MeV

...

и т.д.

19 : 06 : 2012
Прошло немало времени со времени создания этой страницы. И вопрос, как всегда, решился предельно просто. Ларчик, так сказать, просто открывался. :)

Оказывается, надо просто рассматривать всю область определения функции, от минус бесконечности, до плюс бесконечности. А не от нуля до бесконечности, как рассматривал я.

Дело в том, что любая полистепенная функция, если её рассматривать в области определения от минус до плюс бесконечности, носит волновой характер. То есть, строго говоря, она имеет бесконечное множество минимумов.

Теперь следует уточнить формулировку нахождения энергии для любой частицы.

Энергию частицы определяет первый минимум, считая минимумы от плюс бесконечности.

В данном случае, с нейтрино, эти минимумы, показанные выше, соответствуют определённым энергиям. Если значение параметра N брать большее, то этот минимум, находящийся в положительной части области определения, пропадает. Но существует другой минимум, в области определения от нуля до минус бесконечности. Именно этот минимум и следует принимать во внимание, для вычисления энергии нейтрино.
19 : 06 : 2012

Нейтрино (электронное)

y = x(x(xN))

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;
Print["El = ", el - 1]
No = 0.16107 + p;
y0 = 0.625; x0 = 0.09;
a1 = x^(x^(x^No));
Print["ne = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["ne/El = ", e1e]
Print[e1e*ev*1000, " KeV"]

Результат вычисления:
El = 29.1516
ne = 1.59554
ne/El = 0.020429
10.4392 KeV

No = 0.16107;
f = (x^(x^(x^No)));
FindMinimum[f, {x, 0.095, 0.11}]
FindMaximum[f, {x, 0.08, 0.095}]
Plot[f, {x, 0.08, 0.11}]
Print[0.625 - 0.618];
Print[(2*N[Pi])];
Print[1/No];
Print[1 - No];

Результат вычисления:
{0.625009, {x -> 0.0981742}}
{0.625012, {x -> 0.088731}}
0.007
6.28319
6.20848
0.83893

Мюонное нейтрино

y = x(x(x(x(xN))))

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.23316 + p;
y0 = 0.521672; x0 = 0.075;
a1 = x^(x^(x^(x^(x^No))));
Print["ne = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["ne/El = ", e1e]
Print[e1e*ev*1000, " KeV"]

Результат вычисления:
ne = 1.36961
ne/El = 0.012679
6.47895 KeV

No = 0.23316;
f = x^(x^(x^(x^(x^No))));
FindMinimum[f, {x, 0.075, 0.077}]
FindMaximum[f, {x, 0.07, 0.075}]
Plot[f, {x, 0.07, 0.08}]
(*Plot[f, {x, 0.007, 0.25}]*)

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

Таонное нейтрино

y = x(x(x(x(x(x(xN))))))

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.2687631 + p;
y0 = 0.476863; x0 = 0.0702443;
M = x^(x^(x^(x^(x^No))));
a1 = x^(x^M);
Print["ne = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["ne/El = ", e1e]
Print[e1e*ev*1000, " KeV"]

Результат вычисления:
ne = 1.30224
ne/El = 0.0103678
5.29794 KeV

No = 0.2687631;
M = x^(x^(x^(x^(x^No))));
f = x^(x^M);
FindMinimum[f, {x, 0.0702, 0.0703}]
(*FindMaximum[f, {x, 0.07, 0.075}]*)
Plot[f, {x, 0.07018, 0.07028}]
(*Plot[f, {x, 0.007, 0.25}]*)

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

X - нейтрино

y = x(x(x(x(x(x(x(x(xN))))))))

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.2896282635 + p;
y0 := 0.452134; x0 := 0.06851;
M := x^(x^(x^(x^(x^No))));
a1 := x^(x^(x^(x^M)));
Print["ne = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["ne/El = ", e1e]
Print[e1e*ev, " MeV"]

Результат вычисления:
ne = 1.27559
ne/El = 1.06078
0.542058 MeV

No := 0.2896282635;
M := x^(x^(x^(x^(x^No))));
f := x^(x^(x^(x^M)));
(*FindMinimum[f, {x, 0.06851, 0.069}]*)
(*FindMaximum[f, {x, 0.07, 0.075}]*)
Plot[f, {x, 0.0685, 0.06852}]
(*Plot[f, {x, 0.007, 0.25}]*)

Результат вычисления:

Y - нейтрино

y = x(x(x(x(x(x(x(x(x(x(xN)))))))))

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.2896282635 + p;
y0 := 0.436509; x0 := 0.0676897;
M := x^(x^(x^(x^(x^No))));
a1 := x^(x^(x^(x^(x^(x^M)))));
Print["ne = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["ne/El = ", e1e]
Print[e1e*ev, " MeV"]

Результат вычисления:
ne = 1.26165
ne/El = 1.0553
0.539256 MeV

No := 0.30328031;
M := x^(x^(x^(x^(x^No))));
f := x^(x^(x^(x^(x^(x^M)))));
FindMinimum[f, {x, 0.06768, 0.06777}]
(*FindMaximum[f, {x, 0.07, 0.072}]*)
Plot[f, {x, 0.0676, 0.06772}]

Результат вычисления:

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

Далее: Up-Down кварки