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

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

Up и Down кварки

Macca up-квapкa по Teopuu: 1 ~ 5 MeV
Здесь: 2.50021 MeV

Macca down-кварка по Teopuu: 3 ~ 7 MeV
Здесь: 7.36471 Mega eV

К сожалению, для инициальных кварков пришлось искать поправку параметру N:
для up-кваркa N = 1 + 2*s
для down-кваркa N = 1 + 3*s
(cм. ниже).

Для всех остальных пар кварков параметр N:
для top кварков N = 1 + s + p
для bottom кварков N = 1 + p
где s - число Шакти, а p - спиновая поправка (0.000264)

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 = 1 + 2*s;
y0 = 0.699744; x0 = 0.367712;
a1 = x^(x^(No^x));
Print["Macca KBapka no Teopuu:"]
Print["1 ~ 5 MeV"]
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"]

Результат вычисления:
Macca KBapka no Teopuu:
1 ~ 5 MeV
No = 1.08339
Xi = 143.633
El = 30.1516
Xi/El = 4.89279
2.50021 Mega eV
Q = 2/3

s := 0.0416964;
h = 1.0856237;
No = 1 + 2*s;
f := x^(x^(No^x));
FindMinimum[f, {x, 0.1, 1}]
Plot[f, {x, 0, 1}]

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

y = x(xN)

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 = 1 + 3*s;
y0 = 0.7211; x0 = 0.411141;
a1 = x^(x^No);
Print["Macca KBapka no Teopuu:"]
Print["3 ~ 7 MeV"]
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 = 1/3"]

Результат вычисления:
Macca KBapka no Teopuu:
3 ~ 7 MeV
No = 1.12509
Xi = 421.144
El = 30.1516
Xi/El = 14.4124
7.36471 Mega eV
Q = 1/3

s := 0.0416964;
No = 1 + 3*s;
f := x^(x^No);
FindMinimum[f, {x, 0.1, 1}]
Plot[f, {x, 0, 1}]

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

Это единственная пара, где замечено второе схождение по массам верхнего и нижнего кварков, кроме N=1 Поэтому, здесь уместна поправка + 2s u + 3s.

Двойное схождение пары кварков up & down.

s=0.04169640000000000000000000000000000;
p=0.00026400000000000000000000000000000;
No=1.08562370000000000000000000000000000;
ev=0.510998910000000000000000;(* E = MeV *)
(*__________________________________*)
f[x_]:=N[(x^x)^(x^p),35];
a1=0.2000000000000000000000000000000000;
a7=0.5000000000000000000000000000000000;
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;
f[x_]:=N[x^(x^(No^x)),35];
a1=0.1000000000000000000000000000000000;
a7=0.7000000000000000000000000000000000;
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}]
xm=a2;ym=f2;
f[x_]:=N[x^(x^No),35];
a1=0.1000000000000000000000000000000000;
a7=0.7000000000000000000000000000000000;
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}]
xt=a2;yt=f2;
Print["===================================="];
(* _______________________ *)
x:=N[((1+x0)+s)^(1/(1-y0)), 35];
(* _______________________ *)
y0=ye;x0=xe;
el=(x^x)^(x^p);
y0=ym;x0=xm;
tq=x^(x^(No^x));
y0=yt;x0=xt;
bq=x^(x^No);
e1e=(tq-1)/(el-1);
e2e=(bq-1)/(el-1);
Print["Up = 2.5"]
Print["Top = ",e1e*ev," MeV"]
Print["_______________________"]
Print["Down = 7.0"]
Print["Bottom = ",e2e*ev," MeV"]
Print["_______________________"]
Print[e2e-e1e]
Print["Это единственная пара, где замечено второе схождение"]
Print["по массам верхнего и нижнего кварков, кроме N=1"]
Print["Поэтому, здесь уместна поправка + 2s u + 3s."]

Результат вычисления:
====================================
Up = 2.5
Top = 2.6470018411769886934091 MeV
_______________________
Down = 7.0
Bottom = 2.6470034185501344609011 MeV
_______________________
Это единственная пара, где замечено второе схождение
по массам верхнего и нижнего кварков, кроме N=1
Поэтому, здесь уместна поправка + 2s u + 3s.

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

Далее: Charm-Str кварки