Автор Тема: Зaдaча  (Прочитано 2018 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн BJIaquMup

  • Модератор
  • Местный мудрец
  • *****
  • Сообщений: 46138
  • Страна: ru
  • Рейтинг: +649/-1745
  • Пол: Мужской
  • Oшызденeвший Нумеролог
Зaдaча
« : 12 Май 2017, 10:06:59 »

:) Обождите смеяться  :)

Знаете, что обсуждают сии учёные мужи, бывшие интеллигентные человеки?
А я сейчас вам это расшифрую.

Задача

Дано:

1.  \(x^2 - 2x + 2(F - E - 1)\)

     Где \(F\) - число Фибоначчи ("золотое сечение"), \(E\) - число Эйлера-Маскерони.
     Отсюда, имеем корни: \(x_1 = s\) и \(x_2 = 2 - s\) \((s \approx 0.0416872367..)\)

2.  \(m = (1 + s + x_0)^{\frac{1}{1 - y_0}}\)

     Подробности здесь: http://privaloff/narod.ru

3.  \(f(x) = N^{(x^x)}\)


Вот три условия, при которых мы получаем число \(a = \) 0.026049959... .

Здесь всё просто.
  • a). В функции №3 находим координаты максимума \(x_0\) и \(y_0\).
  • b). Поставляем эти значения в выражение №2.
  • c). Подставляем \(m\) в выражение №3, т.е. \(f(m) = N^{(m^m)}\)
  • d). Находим максимум \(f(m)\). Это и есть число \(a\). (Значение \(N\) подбирается по ходу вычисления. В данном случае, максимум наблюдается только при значении \(N \approx\) 0.271644... ).


Доказать, что при условии

4.    \(x_{n+1}\rightarrow\frac{J}{x_n^{2 - a}(exp(-x_n) + a)}\)

линии итераций, при \(J\) стремящемся к бесконечности, находятся на грани касания в области определения между двух точек пересечения всех итераций (приблизительно, от 0.431 до 6.4058).


Но это ещё не всё.

Задача №2

На сей раз речь пойдёт о числе s.

Изменим условие №4. Оно будет выглядеть так:

5.    \(x_{n+1}\rightarrow\frac{J}{x_n^B(exp(-x_n) + s)}\)

Получим следующую диаграмму.


Привяжем это условие к точке, совпадающей по оси ординат с самой первой итерацией, там, где все линии итераций пересекаются. Добьёмся того, чтобы при определённом значении B (B = 1.6690476834..) эта точка свпадала по оси абцисс со значением

6.  \(f(x) = (x^x)^N\)

На графике, по оси абцисс, справа в зелёном круге -- минимум данной функции (6). Это значение приблизительно равно 12.4597590404... . Здесь то же самое. Находим минимум \(f(m)\). (Значение N подбирается по ходу вычисления. В данном случае, минимум наблюдается только при значении N=2.3580931451190...).

Требуется доказать, что второе пересечение всех итераций находится в точке \(\frac{1}{e}+s\)

На графике оно показано в синем круге.
Собственно, это и главное. Ибо, если это будет доказано, то это буквально значит, что число s получается не только из условия №1. Оно красной нитью проходит как через полистепенные функции, так и через логистические отображения. То есть, отмахнуться от этого числа, как от надоедливой осенней мухи, будет никак нельзя.

Второе, что нехудо бы доказать, это то, что точка бифукрации по оси абцисс, когда число итераций стремится к бесконечности, равна \(4 - \frac{1}{e+s}\)
Эта точка на графике выделена красным кругом.
Вычислить данную точку довольно сложно, поэтому, вопрос висит. Но это доказательство, если таковое состоитcя, будет только вишенкой на торте. А сам торт - в корреляции двух точек пересечения всех итераций.

Я не являюсь математиком и поэтому мне сложно доказать, что я не сферический верблюд в вакууме. Но простейшие вычисления, (а эти две точки очень легко вычислить), показывают, что корреляция данных двух точек пересечения имеет место быть.

P.S.
Выражения, отмеченные в условиях 4 и 6 в моей гипотезе о полистепенных функциях соответствуют обоим космологическим аксионам, и тому, который массой 0.2 MeV (6), и тому, который в PDG предвосхищается массой в 300 eV, тому самому, который там вписан, как Invisible Axion. То есть, простой космологический, массой не менее 0.2 MeV. А "невидимый" аксион -- не более 441 eV.
Ну, и ждём не дождёмся дважды очарованного бариона SCC, со странностью, равной 1. Который должен быть, как я предполагаю, более 50 ГэВ. (В отличие от предсказания СМ некоторых уважаемых физиков, 4 ГэВ).

_______________

Обсуждение здесь: http://bolshoyforum.com/forum/index.php?topic=536412.0
« Последнее редактирование: 06 Июнь 2017, 12:30:56 от BJIaquMup »

Большой Форум

Зaдaча
« : 12 Май 2017, 10:06:59 »
Загрузка...

Оффлайн BJIaquMup

  • Модератор
  • Местный мудрец
  • *****
  • Сообщений: 46138
  • Страна: ru
  • Рейтинг: +649/-1745
  • Пол: Мужской
  • Oшызденeвший Нумеролог
Re: Зaдaча
« Ответ #1 : 09 Июнь 2017, 12:37:50 »
ВНИМАНИЕ!

Ребята, здесь я в разъяснении допустил грубейшую ошибку. Каюсь и посыпаю голову пеплом. (Дяденька, прости засранца!  |^- ).
Дело заключается в том, что в данной формуле число J на графике является "иксом", т.е. на графике оно откладывается по оси абцисс. А итерации подчинён как раз параметр xn. То есть, он обновляется каждый раз при очередной итерации.
А по оси ординат выводится как раз тот результат, который соответствует последнему значению xn+1


Оффлайн BJIaquMup

  • Модератор
  • Местный мудрец
  • *****
  • Сообщений: 46138
  • Страна: ru
  • Рейтинг: +649/-1745
  • Пол: Мужской
  • Oшызденeвший Нумеролог
Зaдaча №3
« Ответ #2 : 07 Август 2017, 10:36:50 »
Задача №3


Вот две формулы:




Верхняя – если без слагаемого “alpha”, то это формула Рикера. В моей схеме нижняя формула принадлежит к ФРП, а верхняя – к АнтиФРП.
Обе эти формулы интересны тем, что в них отсутствует показатель степени при x. Точнее, он равен единице. В этом случае можно заметить очень важные точки, которые проявляются при определённых значениях “alpha” и “beta”.

Вот программа и график для верхней формулы:
 

Здесь “alpha” равна 0,0247. На графике ярко выражен «пузырь». При значении 0.02489374676… ,этот «пузырь» становится минимальным. Задача – вычислить это значение “alpha”.
В принципе, расстояние между двумя линиями соседних итераций, оно и далее будет наличествовать, и при большем значении “alpha”, но «пузырь» тогда пропадает вовсе.

Далее идёт «клешня». Вот программа и график для нижней формулы:


Здесь “beta” равно значению 0,024. Размер этой «клешни» уменьшается при увеличении числа “beta” и достигает значения 0.10977890… при полном её исчезновении. Задача – вычислить это значение “beta”.

Вот, собственно, и всё.

Здесь, замечу, что “alpha” отличается от того числа, которое вычисляется в первой задаче. Напомню, что там число было 0.02605…
И вот тут самое интересное: “alpha” (0.02489374676…) перехватывает это значение из «первой задачи». И эти две последние формулы становятся главными. Для описания так называемого «Большого Взрыва».   :)

Обсуждение будет в специальной теме "Большой Взрыв".  &-%

Оффлайн BJIaquMup

  • Модератор
  • Местный мудрец
  • *****
  • Сообщений: 46138
  • Страна: ru
  • Рейтинг: +649/-1745
  • Пол: Мужской
  • Oшызденeвший Нумеролог
Зaдaча №4
« Ответ #3 : 31 Март 2018, 20:27:20 »
Задача №4

Ну вот, пришла пора сформулировать ещё одну задачу. По счёту теперь уже четвёртую.  :)

Условие:

Производим интерполяцию данной функции

f(x) = (x^(1/x))^(N^x)

то есть, находим максимально возможное схождение максимумов гребней волны данной функции так, чтобы максимум по интерполяции слева как можно ближе был к минимуму по интерполяции справа.
Вот программа:
to4 = 30;
ai := N[Re[(x^(1/x))^(No^x)], to4];
No = 0.007772436179900000000000000000000;
i = -0.5830000000000000000000000000000000;
l = -0.5640000000000000000000000000000000;
r = FindMaximum[ai, {x, i, l}, AccuracyGoal -> 28, PrecisionGoal -> 22, \
WorkingPrecision -> to4];
x1 = x /. Last[r];
y1 = First[r];
i = -0.5640000000000000000000000000000000;
l = -0.5470000000000000000000000000000000;
r = FindMinimum[
      ai, {x, i, l}, AccuracyGoal -> 28,
         PrecisionGoal -> 22, WorkingPrecision -> to4];
x2 = x /. Last[r];
y2 = Abs[First[r]];
i = -0.547000000000000000000000000000000;
l = -0.530000000000000000000000000000000;
r = FindMaximum[ai, {x, i, l}, AccuracyGoal -> 28, PrecisionGoal -> 22, \
WorkingPrecision -> to4];
x3 = x /. Last[r];
y3 = First[r];
i = -0.530000000000000000000000000000000;
l = -0.510000000000000000000000000000000;
r = FindMinimum[
      ai, {x, i, l}, AccuracyGoal ->
        28, PrecisionGoal -> 22, WorkingPrecision -> to4];
x4 = x /. Last[r];
y4 = Abs[First[r]];
i = -0.510000000000000000000000000000000;
l = -0.490000000000000000000000000000000;
r = FindMaximum[ai, {x, i, l}, AccuracyGoal -> 28,
PrecisionGoal -> 22, WorkingPrecision -> to4];
x5 = x /. Last[r];
y5 = First[r];
u1 = -0.539000000000000000000000000000000;
u2 = -0.538989000000000000000000000000000;
Ha6op := {{x1, y1}, {x2, y2}, {x3, y3}, {x4, y4}, {x5, y5}};
fu = InterpolatingPolynomial[Ha6op, x];
Plot[fu, {x, u1, u2}, PlotStyle -> {RGBColor[0.8, 0, 0.3]}, ImageSize -> \
{500, 500}];

Вот результат:


С данным результатом a = 6.70742*10^(-6), (результат интерполяции можно уточнять сколько душе угодно),
идём в эту формулу.

\[ x_{n+1}\rightarrow\frac{J}{x_n^B(exp(-x_n) + a)} \]

Перед вами картина:



Красной стрелкой показана точка схождения линий всех итераций. Справа наблюдаете "хаотическую" стену "дождя"? Это массив опусков всех последних линий итерации. Он же - первая стена "дождя". Легко заметна граница зависания "дождя". Если провести "мысленную" черту по этой границе и далее влево до точки схождения линий, то по идее эта черта должна принадлежать точке схождения.

Доказать, что координата точки схождения линий итерации по оси абцисс, она же число J, является обратным значением степени ФРП, т.е. числом B.
То есть, \(B = \frac{1}{J}\)

Вот и всё.

a = 6.70742*10^(-6);
x1 = 0.7080952;
x2 = 0.7080973;
B = 2/(x1 + x2);
Print[(x1 + x2)/2];
Print[2/(x1 + x2)];
Print[1.437 - 2/(x1 + x2), " noBopom"];
y2 = 1.92479;
y1 = 1.92476;
Volov = Compile[{{J, _Real}}, ({J, #} &) /@
 Union[Drop[NestList[J/(#^B*N[Exp[-#] + a]) &, 1., 8], 0]]];
mm = Flatten[Table[Volov[J], {J, x1, x2, 1.0*10^(-8)}], 1];
ListPlot[mm, PlotStyle -> AbsolutePointSize[.01], Frame -> True, FrameStyle ->
       GrayLevel[0.5], Axes -> False,
         ImageSize -> {400, 400}, PlotRange -> {y1, y2}]
x1 = 0.7;
x2 = 0.85;
Print["Bce JIuHuu cxoqятся в точку."];
y2 = 1.94;
y1 = 1.75;
Volov = Compile[{{J, _Real}}, ({J, #} &) /@
         Union[Drop[NestList[J/(#^B*N[Exp[-#] + a]) &, 1., 50], 0]]];
mm = Flatten[Table[Volov[J], {J, x1, x2, 1.0*10^(-5)}], 1];
ListPlot[mm, PlotStyle -> AbsolutePointSize[.01], Frame ->
     True, FrameStyle -> GrayLevel[0.5], Axes -> False, ImageSize -> {600,
   600}, PlotRange -> {y1, y2}]
_______________

Обсуждение здесь: http://bolshoyforum.com/forum/index.php?topic=536412.0
« Последнее редактирование: 31 Март 2018, 20:31:29 от BJIaquMup »

Большой Форум

Зaдaча №4
« Ответ #3 : 31 Март 2018, 20:27:20 »
Loading...