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

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

Интересные частицы

Прямо скажем, небезынтересные. Гипотетические, разумеется.
Надеюсь, поживут до опровержения X-лептона. :)
Если таковое состоится.

Даже не буду и комментировать. Цифры говорят больше.

y = x(Nx)

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 = N[E^E];
y0 = 0.065988; x0 = 0.367879;
a1 = x^(No^x);
Print["Xi = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["Xi/El = ", e1e]
Print[e1e*ev*10^(-6), " TeV"]
Print["Это не Z-boson"]
Print["Это неизвестный векторный бозон."]

Результат вычисления:
Xi = 1.23279 * 10⁸
Xi/El = 4.22888 * 10⁶
2.16095 TeV
Это не Z-boson
Это неизвестный векторный бозон.

* * *

No = 15.15;
f := x^(No^x);
(*FindMinimum[f, {x, 0.1, 1}]*)
Plot[f, {x, 0, 1}]
Print["No= EE"]
Print["x = 1/E"]
Print["y = 0.065988"]

Результат вычисления:
No= EE
x = 1/E
y = 0.065988

y = x((Nx)x)

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 = N[E^E];
y0 = 0.256881; x0 = 0.06066;
a1 = x^((No^x)^x);
Print["Xi = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["Xi/El = ", e1e]
Print[e1e*ev*10^(-6), " TeV"]
Print["Это не W-boson"]
Print["Это неизвестный векторный бозон."]

Результат вычисления:
Xi = 1.606605 * 10⁹⁹²⁰
Xi/El = 5.511202 * 10⁹⁹¹⁸
2.816218 * 10⁹⁹¹² TeV
Это не W-boson
Это неизвестный векторный бозон.

* * *

No = N[E^E];
f := x^((No^x)^x);
(*FindMinimum[f, {x, 0.1, 1}]*)
Plot[f, {x, 0.606, 0.607}]
Print["No= EE"]
Print["y = 0.256881"]
Print["x = 0.06066"]

Результат вычисления:
No= EE
y = 0.256881
x = 0.06066

Максимальный векторный бозон

y = x(N(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 = N[E^E];
y0 = 0.835793; x0 = 0.93614;
a1 = x^(No^(x^No));
Print["Xi = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["Xi/El = ", e1e]
Print["Не хватило сил y Math 5.0 :-)"]

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

* * *

epi = 0.873423;
No = N[E^E];
f := (x^(No^(x^No)));
(*FindMinimum[f, {x, 0.9359, 0.9364}]*)
Plot[f, {x, 0.93612, 0.93616}]

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

Суперфермион

y = x((xx)N)

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 = N[2*Pi] - 0.07665;
y0 = 0.927058; x0 = 0.684;
a1 = x^((x^x)^No);
Print["Xi = ", a1]
e1e = (a1 - 1)/(el - 1);
Print["Xi/El = ", e1e]
Print[e1e*ev*10^(-6), " TeV"]
Print["Масса неизвестного супер-фермиона."]
Print["Вольфрам опять не справился :)"]

Результат вычисления:
Xi = Overflow[]
Xi/El = Overflow[]
Overflow[] TeV
Масса неизвестного супер-фермиона.
Вольфрам опять не справился :)

* * *

No = N[2*Pi] - 0.07665;
f := x^((x^x)^No);
Plot[f, {x, 0.681, 0.684}]
Print["No= EE"]
Print["x = 0.684"]
Print["y = 0.927058"]

Результат вычисления:
No= EE
x = 0.684
y = 0.927058

Up-кварк, привязанный к узелку.

y = x(x(Nx))

p = 0.000264;(* *)
s = 0.0416964;
h = 1.0856237;
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 = 14.35311506;
y0 = 0.891762; x0 = 0.114174;
a1 = x^(x^(No^x));
Print["Macca U-KBapka,"]
Print["привязанного к узелку."]
Print["No = ", No]
Print["Xi = ", a1]
Print["El = ", el]
e1e = (a1 - 1)/(el - 1);
Print["Xi/El = ", e1e]
Print[e1e*ev, " Mega eV"]
Print["Q = 2/3"]
Print["И снова мощности Вольфрама не хватило :)"]

Результат вычисления:
Macca U-KBapka,
привязанного к узелку.
No = 14.3531
Xi = Overflow[]
El = 30.1516
Xi/El = Overflow[]
Overflow[] Mega eV
Q = 2/3
И снова мощности Вольфрама не хватило :)

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

Далее: Число Шакти