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

[ieom]

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

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

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


Но в этом блоке стоит в явном виде оператор присваивания, меняющий х
x := x0 + 0.4;

В приведенном в предыдущем цикле его нет.

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++];
   

Возможно, я что-то не понимаю. Но где здесь оператор , изменяющий х?

[Ost]

Но в этом блоке стоит в явном виде оператор присваивания, меняющий х
x := x0 + 0.4;

В приведенном в предыдущем цикле его нет.

Возможно, я что-то не понимаю. Но где здесь оператор , изменяющий х?

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

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];

Это в начале программы предопределение x := ((1 + x0) + s)^(1/(1 - y0));

[ieom]

Это в начале программы предопределение x := ((1 + x0) + s)^(1/(1 - y0));

Это-то мне понятно. Просто я не вижу в цикле перехода к вычислению нового значения х.

Вычисление p(i) вроде не связано с пересчетом х. Или связано?

Возможно я туплю. Извините

[Ost]

Это-то мне понятно. Просто я не вижу в цикле перехода к вычислению нового значения х.

Вычисление p(i) вроде не связано с пересчетом х. Или связано?

Возможно я туплю. Извините

Как только меняются x0, y0 автоматически пересчитывается x при входе на расчёт p(i). Для меня это тоже сюрприз.

[BJIaquMup]

Ага, уже пошел разбор программ. Это уже совершенно новый виток. Я премного рад и благодарен. 
Вы можете перепроверить и пересчитать другими программами на других языках. Я все результаты приму к сведению.

[ieom]

Как только меняются x0, y0 автоматически пересчитывается x при входе на расчёт p(i). Для меня это тоже сюрприз.

Спасибо. Неожиданно и странно. Все-таки изменение переменной должно быть явным, а то возможны, как вы выразились, сюрпризы.

Видимо, это особенность программы. Я работал в маткаде - там такого нет.

[ieom]

Вы можете перепроверить и пересчитать другими программами на других языках. Я все результаты приму к сведению.

Могу попробовать в маткаде, если еще раз точно сформулируете конкретную задачу.

[Ost]

Спасибо. Неожиданно и странно. Все-таки изменение переменной должно быть явным, а то возможны, как вы выразились, сюрпризы.

Видимо, это особенность программы. Я работал в маткаде - там такого нет.

Если в цикле задать x=x/.Last[res], то этого эффекта уже не наблюдается.

[ieom]

Если в цикле задать x=x/.Last[res], то этого эффекта уже не наблюдается.

 
Увы, этого я понять не смогу....

[BJIaquMup]

Могу попробовать в маткаде, если еще раз точно сформулируете конкретную задачу.

Какую задачу? Задачу чего??
Я не знаю, в чём вы сомневаетесь. По-моему, так вы сомневаетесь во всём.
До сих пор я видел, что всё, что бы я ни говорил воспринимается только в штыки. Это значит, что я несу исключительно ахинею, начиная с первого слова.
Поэтому, я даже не знаю, что и говорить.
Чтобы разговаривать, надо сначала придти к какому-то общему знаменателю. А такого пока что не замечается.

Я предлагаю начать с самого начала, то есть, с функций
1. x^x
2. x^(x^(x^x))
3. x^(x^(x^(x^(x^x))))

Именно здесь идёт привязка к реальным значениям масс.
Если аффтар не прав, то ловить надо аффтара с самого начала. А не тогда, когда уже нагорожено чёрт-те чё.

[Ost]

Какую задачу? Задачу чего??
Я не знаю, в чём вы сомневаетесь. По-моему, так вы сомневаетесь во всём.
До сих пор я видел, что всё, что бы я ни говорил воспринимается только в штыки. Это значит, что я несу исключительно ахинею, начиная с первого слова.
Поэтому, я даже не знаю, что и говорить.
Чтобы разговаривать, надо сначала придти к какому-то общему знаменателю. А такого пока что не замечается.

Я предлагаю начать с самого начала, то есть, с функций
1. x^x
2. x^(x^(x^x))
3. x^(x^(x^(x^(x^x))))

Именно здесь идёт привязка к реальным значениям масс.
Если аффтар не прав, то ловить надо аффтара с самого начала. А не тогда, когда уже нагорожено чёрт-те чё.

Какую задачу? Задачу чего??

Для начала напишите полистепенную формулу со всеми параметрами и укажите через какую переменную
искать минимум.

[ieom]

Какую задачу? Задачу чего??
Я не знаю, в чём вы сомневаетесь. По-моему, так вы сомневаетесь во всём.
До сих пор я видел, что всё, что бы я ни говорил воспринимается только в штыки. Это значит, что я несу исключительно ахинею, начиная с первого слова.
Поэтому, я даже не знаю, что и говорить.
Чтобы разговаривать, надо сначала придти к какому-то общему знаменателю. А такого пока что не замечается.

Я предлагаю начать с самого начала, то есть, с функций
1. x^x
2. x^(x^(x^x))
3. x^(x^(x^(x^(x^x))))

Именно здесь идёт привязка к реальным значениям масс.
Если аффтар не прав, то ловить надо аффтара с самого начала. А не тогда, когда уже нагорожено чёрт-те чё.

Ну, в маткаде можно решить только конкретную задачу типа
Дано:....
Найти....

например
Дано у=х²
Найти минимум функции у
Ответ: х=0, у=0  

Такую задачу я решу. А что такое задача: "начать с самого начала, то есть, с функций..", я увы не понимаю....

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

[BJIaquMup]

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

Тогда сама "задача" не имеет никакого смысла. Её можно не решать с чистой совестью.
О чём, собственно, я и говорил.

ps
___

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

[BJIaquMup]

Для начала напишите полистепенную формулу

\[ f(x) = x^x \]

со всеми параметрами и укажите через какую переменную
искать минимум.

1. Параметров здесь нет.
2. По-моему, это задача даже не для студента ВУЗа. Это чисто школьная задача. Вы не в состоянии найти минимум этой функции? 

[Ost]

\[ f(x) = x^x \]
1. Параметров здесь нет.
2. По-моему, это задача даже не для студента ВУЗа. Это чисто школьная задача. Вы не в состоянии найти минимум этой функции?  

Нужна конкретная формула из вашей задачи с входными параметрами.

[BJIaquMup]

А чем не ндравиЦЦа эта? Она такая красивая... 

\[ f(x) = x^x \]

Я вообще не понимаю, чё вам надо указывать? 

[Ost]

\[ f(x) = x^x \]
1. Параметров здесь нет.
2. По-моему, это задача даже не для студента ВУЗа. Это чисто школьная задача. Вы не в состоянии найти минимум этой функции?  

Например,

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

(*_______________________*)
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; , но надо пояснить, как Вы собираетесь использовать x0, y0, .... и др.
Ваш алгоритм обработки этой формулы? Как Вы себе это представляете? Расскажите нам.

[ieom]

\[ f(x) = x^x \]

Ну вот здесь минимум при х=е^-1~0.37 и что?

[ieom]

Тогда сама "задача" не имеет никакого смысла. Её можно не решать с чистой совестью.
О чём, собственно, я и говорил.

ps
___

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

Решение математической задачи - это одно, а вот физическая интерпретация полученного результата - это другое. Нет никаких оснований полагать, что ваши функции имеют какое-то отношение к физике.

Ну, не надо вам проверять результат в другой программе и не надо. Сами предлагали, я не навязываюсь.

[BJIaquMup]

Например,
, но надо пояснить, как Вы собираетесь использовать x0, y0, .... и др.
Ваш алгоритм обработки этой формулы? Как Вы себе это представляете? Расскажите нам.

Этот пример можете выкинуть в канализацию.
Для вас пример пока что только икс в степени икс.