Гипотеза о соответствии полистепенных функций элементарным частицам

[BJIaquMup]

а чем тут думать? Надо дать определение времени - что это и как измерить, а потом уже можно и время жизни определить. 

Думать всегда надо. А определение дал Ильич, электрону, более 100 лет тому назад. Напоминаю: "Электрон так же неисчерпаем, как и атом". В.И.Ленин, ПСС том х.з. какой.

[BJIaquMup]

Вот мне, например, орт говорит следующее:

Владимир, напоследок сформулирую только серьезные аргументы:

Действительно, если величины х и у связаны формулой х=у*const, то величину х можно измерять в единицах у, как это делается при выражении массы в единицах энергии эВ, поскольку Е=m*const.

Однако в соотношении неопределенности 1) не измеряемое время 2) обратная пропорциональность  3) ограниченная применимость.

Поэтому не  получится измерять время в эВ

Однако, в PDG сплошь и рядом ширина распада именно в  эВ 
http://pdglive.lbl.gov/Viewer.action

И ещё раз:
"Частица с шириной распада 1 эВ имеет время жизни 6.58211889(26)*10-16 с. Напротив, квантовомеханическое состояние с временем жизни 1 с имеет ширину 4.13566733(10)*10-15 эВ".
( http://dic.academic.ru/dic.nsf/ruwiki/8813 )

[Petrovich_Tot]

Вот мне, например, орт говорит следующее:

Однако, в PDG сплошь и рядом ширина распада именно в  эВ 
http://pdglive.lbl.gov/Viewer.action

И ещё раз:
"Частица с шириной распада 1 эВ имеет время жизни 6.58211889(26)*10-16 с. Напротив, квантовомеханическое состояние с временем жизни 1 с имеет ширину 4.13566733(10)*10-15 эВ".
( http://dic.academic.ru/dic.nsf/ruwiki/8813 )

Отсюда и вопрос - как определить время физической системы, чтобы выражение время жизни имело бы физический смысл?

[BJIaquMup]

Отсюда и вопрос - как определить время физической системы, чтобы выражение время жизни имело бы физический смысл?

Петрович, а чё, в PDG несут околесицу, что ли?  Не понимают, о чём говорят?

Меня это словосочетание забавляет. Интересно то, что о физическом смысле одинаково лихо треплются как орты, так и самые замшелые альты, пробы на которых уже ставить негде. 

[Petrovich_Tot]

Петрович, а чё, в PDG несут околесицу, что ли?  Не понимают, о чём говорят?

Меня это словосочетание забавляет. Интересно то, что о физическом смысле одинаково лихо треплются как орты, так и самые замшелые альты, пробы на которых уже ставить негде. 

Они то как раз понимают о чем говорят, так как исповедуют идею Пифагора о виртуальной Вселенной. А вот о чем говорят те, кто исповедуют материализм, я не совсем понимаю.

[BJIaquMup]

Они то как раз понимают о чем говорят, так как исповедуют идею Пифагора о виртуальной Вселенной. А вот о чем говорят те, кто исповедуют материализм, я не совсем понимаю.

Петрович, ты чего, марксистско-ленинский философ, что ли?  

Ширина распада - это экспериментальные данные. От них отмахиваться нельзя, как от надоедливой осенней мухи.

...Сейчас пытаюсь сам себя опровергнуть. На предмет бариона SCC. Что его масса именно 4 ГэВа, как и говорит теория.
В принципе, не обязательно 4 ГэВ, так жоско. 4 ТэВ тоже будет нормально.

p.s.
Хм.. Вот будет интересно, если самого себя удастся опровергнуть. 
Пока всё к тому идёт...
Но мне не привыкать признавать себя ослом. А пепла на голову у меня заготовлено очень дo*y9l. Для такиф случаефф.

Однако, случай с нейтрино меня, прям скажем, как Red Bull, окрылил. 

[aid]

Они то как раз понимают о чем говорят, так как исповедуют идею Пифагора о виртуальной Вселенной. А вот о чем говорят те, кто исповедуют материализм, я не совсем понимаю.

Можете пояснить, в чем проблема?

[BJIaquMup]

Петрович, в процессе поиска развала (нет, не СССР) своего тезиса о барионе SCC, я натолкнулся на очень небезынтересные вещички. 
Но в барионе SCC я действительно нашел лазейку. Вполне может быть и что я не прав. Вполне может быть и 4 Гига. Но доказательств нет. Параметры чисто от дуры. Исчу. 

[BJIaquMup]

Нихрена себе!! Гы-гы-гы.  +@>
А ведь барион SCC-то, он есть! И 4 гига, сколько Кастра и говорит...
Вот это даааа...  Итерееесно.... Очень даже.

[BJIaquMup]

2 Ost

Ну, давайте вот здесь сначала разберемся с мезонами. Вот прога для самого простого случая с ud-мезонами

Код: [Выделить]

to4 = 50; pa3 = 100;
s = 0.04168723670021172737215360293164504721700486232504;
ew = 30.1567307802595803785344923081668874541094417852214;
ev = 0.51099891000000;
V = 1;
(* _______________________ *)
x := N[((1 + x0) + s)^(1/(1 - y0)), to4];
(* _______________________ *)
x0 = 0; y0 = 0;
ko := 0;
(* Quark *)
ui := x^(x^(Y^x));
di := x^(x^V);
(*Meson*)
p[1] := di^ui;
p[2] := ui^di;
(*Calculate*)
(* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ *)
x1 = 0.00100000000000000000000000000000000000000000000000000;
x2 = 0.12000000000000000000000000000000000000000000000000000;
b1 = 0.00000100000000000000000000000000000000000000000000000;
b7 =\[InvisibleSpace]0.00010000000000000000000000000000000000000000000000000;
Do[
    pb = b7 - b1; g = pb/7;
    b2 = b1 + g; b6 = b7 - g;
    Y = b1;
    ko = 0;
    For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]/ew; ko = ko + k1;
      i++];
    ax1 = ko;
    Y = b1 + g;
    ko = 0;
    For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]/ew; ko = ko + k1;
      i++];
    ax2 = ko;
    Y = b1 + 2*g;
    ko = 0;
    For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]/ew; ko = ko + k1;
      i++];
    ax3 = ko;
    Y = b7 - 2*g;
    ko = 0;
    For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]/ew; ko = ko + k1;
      i++];
    ax5 = ko;
    Y = b7 - g;
    ko = 0;
    For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]/ew; ko = ko + k1;
      i++];
    ax6 = ko;
    Y = b7;
    ko = 0;
    For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]/ew; ko = ko + k1;
      i++];
    ax7 = ko;
    If[And[ax1 > ax2, ax2 > ax3], {b1 = b2}];
    If[And[ax7 > ax6, ax6 > ax5], {b7 = b6}],
    {pa3}];
o = ax3*ev;
Print["======================="]
Print["Pi +- = 139.57018"];
Print["Macca = ", o, " MeV"];
Print["========================"];
Print["V = ", V];
Print["A = ", Y];
Здесь вычисляется минимум массы пи-мезона (+-)
Один из параметров равен единице, а другой контрпараметр имеет строго определённое значение, которое соответствует минимуму массы.

[Ost]

2 Ost

Ну, давайте вот здесь сначала разберемся с мезонами. Вот прога для самого простого случая с ud-мезонами
...
Здесь вычисляется минимум массы пи-мезона (+-)
Один из параметров равен единице, а другой контрпараметр имеет строго определённое значение, которое соответствует минимуму массы.

Формально с программой всё ясно.
Поиск точки в которой первая и вторая производная равна нулю.
Вот более структурированный вариант программы.

Код: [Выделить]

pa3 = 1000;(*Циклов поиска.*)
n = 40;(*Дискретность по Y*)
s = 0.04168723670021172737215360293164504721700486232504;
ew = 30.1567307802595803785344923081668874541094417852214;
ev = 0.51099891;
V = 1;

(*_______________________*)
x := ((1 + x0) + s)^(1/(1 - y0));
(*_______________________*)

(*Quark*)
ui := x^(x^(Y^x));
di := x^(x^V);

(*Meson*)
p[1] := di^ui;
p[2] := ui^di; m = 2;

(*Calculate*)
(* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^*)
x1 = 0.001;
x2 = 0.12;
b1 = 0.00000100000000000000000000000000000000000000000000000;
b7 = 0.00010000000000000000000000000000000000000000000000000;

Do[ g = (b7 - b1)/n; ax1 = ax2 = ax3 = ax5 = ax6 = ax7 = 0;
  Y = b1;
  For[i = 1, i <= m, res = FindMinimum[p[i], {x, x1, x2}];
   x0 = x /. Last[res];
   y0 = First[res];
   ax1 += p[i];
   i++];
 
  Y += g;
  For[i = 1, i <= m, res = FindMinimum[p[i], {x, x1, x2}];
   x0 = x /. Last[res];
   y0 = First[res];
   ax2 += p[i];
   i++];
 
  Y += g;
  For[i = 1, i <= m, res = FindMinimum[p[i], {x, x1, x2}];
   x0 = x /. Last[res];
   y0 = First[res];
   ax3 += p[i];
   i++];
 
  Y = b7;
  For[i = 1, i <= m, res = FindMinimum[p[i], {x, x1, x2}];
   x0 = x /. Last[res];
   y0 = First[res];
   ax7 += p[i];
   i++];
 
  Y -= g;
  For[i = 1, i <= m, res = FindMinimum[p[i], {x, x1, x2}];
   x0 = x /. Last[res];
   y0 = First[res];
   ax6 += p[i];
   i++];
 
  Y -= g;
  For[i = 1, i <= m, res = FindMinimum[p[i], {x, x1, x2}];
   x0 = x /. Last[res];
   y0 = First[res];
   ax5 += p[i];
   i++];
 
  If[And[ax1 > ax2, ax2 > ax3], {b1 += g}];
  If[And[ax7 > ax6, ax6 > ax5], {b7 -= g}],
  {pa3}];

Print["======================="]
Print["Pi +- = 139.57018"];
Print["Macca = ", ax3*ev/ew, " MeV"];
Print["========================"];
Print["V = ", V];
Print["A = ", Y];
Print["b1 = ", b1];
Print["b7 = ", b7];

=======================
Pi +- = 139.57018
Macca = 133.919 MeV
========================
V = 1
A = 0.000013616014475072291757864114021814838668036906
b1 = 0.00001361238431894819700950734008143091141925108244
b7 = 0.000013616205535920928323567102123940308523236160

В математическом направлении у меня появляется такой вопрос:
Когда Вы вычисляете минимум от каждой функции p(i) и результаты суммируете, то это действие теоретически
обусловлено или Вы просто не видите разницы между минимумом от суммы функций и суммой минимумов от функций?

[BJIaquMup]

В математическом направлении у меня появляется такой вопрос:
Когда Вы вычисляете минимум от каждой функции p(i) и результаты суммируете, то это действие теоретически
обусловлено или Вы просто не видите разницы между минимумом от суммы функций и суммой минимумов от функций?

Конечно обусловлено. Это суперпозиция состояний. Для любых сложных систем с несколькими значениями N. Ну, в данном случае V & Y.
Истинно элементарные, как то, лептоны, фотон, кварки, векторные бозоны - они идут с одним параметром. Там суперпозиция не нужна.

[Ost]

BJIaquMup, вы знаете, что в циклах

Код: [Выделить]

For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]; ko = ko + k1;
      i++];
    в ko суммируется не минимальное значение функции p(i), вычисленное в строке res = FindMinimum ... .

[BJIaquMup]

А какое?

[Ost]

А какое?

Это как раз тот случай когда счастье в неведении.
Может не надо?

[BJIaquMup]

Это как раз тот случай когда счастье в неведении.
Может не надо?

Не понял...
Мораль мне про щастье читать не надо. Ладушки?

пысы
____

А вообще это серьёзный сигнал. Он говорит о многом. 
Но вам придётся меня терпеть, ребята.  Вы уж извините...

[ieom]

BJIaquMup, вы знаете, что в циклах

Код: [Выделить]

For[i = 1, i < 3,
      res = FindMinimum[p[i], {x, x1, x2}];
      x0 = x /. Last[res];
      y0 = First[res];
      k1 = p[i]; ko = ko + k1;
      i++];
    в ko суммируется не минимальное значение функции p(i), вычисленное в строке res = FindMinimum ... .

Вообще-то k1 = p(i), т.е. в ko суммируются сами значения функции p(i), а не вычисленное в строке res.

[Ost]

Вообще-то k1 = p(i), т.е. в ko суммируются сами значения функции p(i), а не вычисленное в строке res.

Уже при другом x, не равном в сроке res.

[ieom]

Уже при другом x, не равном в сроке res.

Я не вижу, где между строками "res=..." и "k1=..." меняется х.

[Ost]

Я не вижу, где между строками "res=..." и "k1=..." меняется х.

Подобный пример.

Код: [Выделить]

x0 = 0;
x := x0 + 0.4;
p[1] := x Cos[x];
res = FindMinimum[p[1], {x, 3, 4}]
x0 = x /. Last[res]
First[res]
x Cos[x]
p[1]
(x0 + 0.4) Cos[x0 + 0.4]

{-3.28837, {0.4 -> 3.42562}}
3.42562
-3.28837
-2.96499
-2.96499
-2.96499