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

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

 Главная |  Введение |  Модель: адроны  |  Tpu анкера для массы |  Массы частиц |  Уточнение для массы |  Tpu анкера для времени |  Смотреть браузером IE
Полистепенные функции
Предтеча
Вместо введения
Mathematica 5.0
Барионы
Мезоны
Позитроний и ядра атомов
Лирические отступления
Tpu aнкера для массы: e m, t
Энергия частиц
S-узелки
Электроны
Нейтрино
Up-Down кварки
Charm-Strange
Top-Bottom
X-top и X-bottom
Y-top и Y-bottom
Фотоны
Векторные бозоны
Аксион
Бозон Хиггса
Heavy boson
Фридмон
Фридмон-кварк
Сверхтяжелые частицы
Два анкера: e и m
Всё из математических констант
Адроны
Максимон Маркова
Tpu aнкера для времени: e m, t
Число, "близкое" к числу p
W, Z бозоны
Время жизни адронов
Mаксимон Маркова
Ложка дёгтя

Адроны

время жизни и ширина распада

 

D-гипероны

 

d(dd') - D--гиперон

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = N[(Pi^2)/6, 35];
f[x_] := N[(x^(x^No))^((x^(x^No))^(1/(x^(x^No)))), 35];
a1 = 0.2000000000000000000000000000000000;
a7 = 0.800000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = N[(x^(x^No))^((x^(x^No))^(1/(x^(x^No)))), 35];
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Ширина N = 1.18 * 10^8 eV"]
o = J/(uud*ev*r);
Print["cek = ", o]

Здесь N = p2/6
Ширина распада D--гиперона соответствует экспериментальной.

 

d(uu') - D+-гиперон

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = 1.48162000000000000000000000000000000;
f[x_] := N[((x^(x^No)))^((x^(x^(No^x)))^(1/(x^(x^(No^x))))), 35];
a1 = 0.3000000000000000000000000000000000;
a7 = 0.800000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = N[((x^(x^No)))^((x^(x^(No^x)))^(1/(x^(x^(No^x))))), 35];
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Ширина N = 1.18 * 10^8 eV"]
o = J/(uud*ev*r);
Print["cek = ", o]

Ширина распада D+-гиперона соответствует экспериментальной при N = 1.48162

 

u(dd') - D0-гиперон

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = 4.1750000000000000000000000000000000;
f[x_] := N[(x^(x^(No^x)))^((x^(x^No))^(1/(x^(x^No)))), 35];
a1 = 0.1000000000000000000000000000000000;
a7 = 0.900000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = N[(x^(x^(No^x)))^((x^(x^No))^(1/(x^(x^No)))), 35];
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Ширина N = 1.18 * 10^8 eV"]
o = J/(uud*ev*r);
Print["cek = ", o]
Print["Долгоживущий дельта-барион"]

Время жизни D0-гиперона почему-то очень велико и примерно равно времени жизни протона. Что не соответствует действительности.
Об этом см. Ложку дёгтя

 

u(uu') - D++-гиперон

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = 2.6934500000000000000000000000000000;
f[x_] := N[(x^(x^(No^x)))^((x^(x^(No^x)))^(1/(x^(x^(No^x))))), 35];
a1 = 0.1000000000000000000000000000000000;
a7 = 0.800000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = N[(x^(x^(No^x)))^((x^(x^(No^x)))^(1/(x^(x^(No^x))))), 35];
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Ширина N = 1.18 * 10^8 eV"]
o = J/(uud*ev*r);
Print["cek = ", o]
Print["E-N = ", E - No]

Ширина распада D++-гиперона соответствует экспериментальной при N = 2.69345

Всё эта нумерологическая цифирь требует исследования. Здесь далеко не всё ясно даже на уровне масс покоя, где присутствуют, казалось бы, "незначительные" расхождения с экспериментальными данными. Эти расхождения в случае ширины распада увеличиваются.

 

Нуклоны

 

В данном случае, для всех "половинок" нуклонов, величина параметра N одинакова и равна 1.517333

 

d(du')

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = 1.5173330000000000000000000000;
f[x_] := N[(x^(x^No))^((x^(x^No))^(1/(x^(x^(No^x))))), 35];
a1 = 0.3000000000000000000000000000000000;
a7 = 0.800000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = (x^(x^No))^((x^(x^No))^(1/(x^(x^(No^x)))));
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Время нейтрона = 885.7 cek"];
o = J/(uud*ev*r);
Print["cek = ", o]

 

d(ud')

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = 1.335700000000000000000000000000000;
f[x_] := N[(x^(x^No))^((x^(x^(No^x)))^(1/(x^(x^No)))), 35];
a1 = 0.3000000000000000000000000000000000;
a7 = 0.9000000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = (x^(x^No))^((x^(x^(No^x)))^(1/(x^(x^No))));
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Время нейтрона = 885.7 cek"]
Print["cek = ", J/(uud*ev*r)]

Здесь, если вы заметили, величина N не равна заявленной.
В данном случае N = 1.3357. Почему? Потому, что программа Mathematica 5.0 не справляется с числом больше, чем данное. Но тенденция направлена в сторону уменьшения времени жизни частицы.
Предполагается, что время жизни нейтрона 885.7 секунд будет соответствовать N = 1.517333

Здесь серьёзнейшее доказательство или опровержение всей гипотезы. Если по всей области определения данной функции не будет определено значение времени жизни нейтрона меньше или равно экспериментальному, то гипотезу можно считать опровергнутой.

 

u(du')

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
No = 1.5173330000000000000000000000;
f[x_] := N[(x^(x^(No^x)))^((x^(x^No))^(1/(x^(x^(No^x))))), 35];
a1 = 0.0100000000000000000000000000000000;
a7 = 0.9000000000000000000000000000000000;
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}],
{250}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = (x^(x^(No^x)))^((x^(x^No))^(1/(x^(x^(No^x)))));
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Время протона = 5 * 10^29 cek"]
Print["cek = ", J/(uud*ev*r)]

 

u(ud')

t = 0.232142036766647050549206710449359530;
s = 0.041687236700211727372153602931645047217;
ev = 0.51099891000000000000000000000000000;
ew = 30.1567498951464687327772000000000000;
a = 0.007297352000000000000000000000000000;
J = 4.13566733000000000000*10^(-15);
Print[N[E - 2 - t + s, 35]];
No = 1.5173330000000000000000000000;
f[x_] := N[(x^(x^(No^x)))^((x^(x^(No^x)))^(1/(x^(x^No)))), 35];
a1 = 0.1000000000000000000000000000000000;
a7 = 0.9000000000000000000000000000000000;
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}]
xe = a2; ye = f2;
Print["===================================="];
(* _______________________ *)
x := N[((1 - t) + x0)^(1/((1 - s) - y0)), 35];
(* _______________________ *)
y0 = ye; x0 = xe;
pro = (x^(x^(No^x)))^((x^(x^(No^x)))^(1/(x^(x^No))));
uud = pro/ew;
r = 2*10^(-43);
Print["x0 = ", xe];
Print["x = ", x];
Print["eV = ", uud*ev*r]
Print["Время протона = 5 * 10^29 cek"]
Print["cek = ", J/(uud*ev*r)]

Здесь замечу, что для всех "половинок" протонов, т.е. кварковых триплетов u(du') и u(ud') время жизни более 1029с. при любом положительном значении N.

 

Далее: Ложка дёгтя

Hosted by uCoz