^ Первый поток

[BJIaquMup]

Also, весёлое число 0.005675...
Для начала дадим нумерологическую прогу.

Здесь всё просто.
Начиная с числа спутника Pi 3.14219...
Вычитая всем известное число Пи (3.1415) получаем число "гocnoдина ПЖ": 0.000599...
Ну и далее всё видно по тексту программы.

d2 = 2.29  -- это точка слияния всех линий бифуркационной диаграммы от функции f(x) = x^(1/x)
Остальное бы вроде всё понятно из текста программы.

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

pii = 3.1421918339232747990954601118628034609366220475354332097111093130078`\
50;
pj = N[pii - Pi, 50];
Print[pj"  pj  gospodin ПЖ"];
d2 = 2.2931662874119`50;
d2p = N[d2/Pi, 50];
Print["d2p = ", d2p];
xBo = N[2*Pi/E - d2, 50];
Print[xBo, "  = 2pi/e-d2 XBOCT E"];
Print[d2p, "  = d2 / Pi"];
Print[N[E - xBo, 50], " E-xBocT "];
A1 = 1/d2p;
Print["A1 = ", A1, " ==  1/pj"]
G = N[A1 - 1/E - 1, 50];
Print[G, "  = G == 1/pg - 1/E - 1"];
Z = N[E - xBo + pj, 50];
Print[Z, "  = Z == E - XBOCT + pj"];
Print[Z*G, " == ZG"];


[BJIaquMup]

И эту псевдоальфу 0.005675 даёт всё та же псевдопарабола (x+o)*(x-o)

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

ae = 0.00567504`50;
a = 1.18370401243`50;
o = a*ae;
two = 1.0`*10^(-50);
x1 = 176.2101`50;
c = 0.00002`50;
x2 = 1/ae + c;
Print["x2 = ", x2];
Print["o = ", o];
y2 = 3.0*10^(-6);
y1 = -y2;
BJIaquMup = Compile[{{J, _Real}}, ({J, #} &) /@ Union[Drop[
NestList[J*(o + #)*(o - #) &, two, 7000], 6000]]];
mm = Flatten[Table[BJIaquMup[J], {J, x1, x2, 2.0*10^(-6)}], 1];
ListPlot[mm, PlotStyle -> {PointSize[.01],
    Hue[.55]}, Frame ->
      True, FrameStyle -> GrayLevel[0.5], Axes -> False,
         ImageSize -> {500, 500}, PlotRange -> {y1, y2}]


[BJIaquMup]

Вот ещё одна прога на теме числа 0.005675... . Она же по числу 0.04

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

one = 0.040119005`50;
two = 1.0*10^(-100);
x1 = 29.50479`50;
x2 = 29.504825`50;
Print["Связь = число t, умноженное на one"];
t = 5 + one;
o = t*one;
Print["Далее, число o = 0.2022 , и далее == i^i - o"];
Print[o, " = t * one"];
Print[(5 + one)*one, " = (5 + one) * one"];
R = Re[N[\[ImaginaryI]^\[ImaginaryI], 50]];
Print[R, "   R_ii"];
Print["0,005675 == ", R - o];
y2 = 2.0*10^(-5);
y1 = -y2;
BJIaquMup = Compile[{{J, _Real}}, ({J, #} &) /@ Union[Drop[NestList[J*(one + \
#)*(one - #) &, two, 8000], 6000]]];
mm = Flatten[Table[BJIaquMup[J], {J, x1, x2, 3.0*10^(-7)}], 1];
ListPlot[mm, PlotStyle -> {PointSize[.01], Hue[.90]}, Frame ->
 True, FrameStyle -> GrayLevel[0.5], Axes ->
 False, ImageSize -> {500, 500}, PlotRange -> {y1, y2}];

Конечно здесь лёгкая натяжечка.  Как же без этого?
Но на самом деле все эти числа, и псевдоальфа и 0.04 , и много других, должны между собой коррелировать. А этого очень трудно добиться.
Здесь это число связывается с реальной частью i^i (мнимая единица в степени мнимой единицы.
И при числе 0.040119005 "метёлочка" бифуркации упирается в "стену" на 29.5 по оси "х". (Что за число, ещё предстоит выяснить).

[BJIaquMup]

И это всё, как ни странно, выявляется на псевдопараболе. То есть (x+o)*(x-o). Строго говоря, это самая что ни на есть парабола. То есть, вся физика начинается ещё задолго до выкрутасов типа, "свежепросольный в степени свежепросольного". (Это некоторые пытались сарказмить). 
И когда ИИ меня спросил:
— А y=x у тебя, что, вакуум?
Догадливый чувак, GPT-5.   

[BJIaquMup]

А вот и те самые числа, которые я озвучил в своей гипотезе.
Только у меня
a = 0.0412 — по реальным массам частиц
B = 1.1884 — как нейтринное число

А чистая математика из бифуркационных диаграмм даёт вот такие числа

a = 0.0399796782;
B = 1.189180;

И получается всё это из следующей формулы:

((x^B + a)*(B^(-x)  -  a))

Это ещё не полистепенные. Но уже и не псевдопарабола. Это похоже на формулу Волова с небольшой разницей, когда вместо B=2 используется B = 1.188 .

A на графике появляется "пузырь".
Величину пузыря сводим до минимума. И получаются эти числа a & B.

[BJIaquMup]

И, чтобы не быть голословным -- программа:

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

a = 0.0399796782;
B = 1.189180;
two = B;
x1 = 0.242`30;
x2 = 0.257`30;
y2 = 0.555`30;
y1 = 0.535`30;
Volov = Compile[{{J, _Real}}, ({J, #} &) /@
Union[Drop[NestList[J/((#^B + a)*(B^(-#) - a)) &, two, 500000], 499999]]];
mm = Flatten[Table[Volov[J], {J, x1, x2, 1.0*10^(-3)}], 1];
ListPlot[mm,
        PlotStyle -> {
          PointSize[.01], Hue[.77]},
              Frame -> True, FrameStyle -> GrayLevel[0.5], Axes -> False,
              ImageSize -> {500, 500}, PlotRange -> {y1, y2}]