Немного оживлю тему об Альфе Дмитрия Волова.
На мой страх, но всё же состоялось единение числа 0.866 и Альфы (постоянной Зоммерфельда (или постоянной тонкой структуры)). Довольно неожиданно для меня. Так-то я уже убедил себя, что никаких математических подступов к Альфе быть не может. Но в очередной раз ошибся.
a = 0.0072973525649`50;
H = 0.86698326`50;
B = 3.86698326`50;
one = B;
x1 = 20.3788;
x2 = 20.387;
Print["A Bom emo yzce sehr interesant!!!"];
c = 0.0000000001;
y2 = one + c;
y1 = one - c;
BJIaquMup1 = Compile[{{J, _Real}}, ({J, #} &) /@ \
Union[Drop[NestList[J/(#^B*N[Exp[-#] + a]) &, one, 10], 0]]];
mm = Flatten[Table[BJIaquMup1[J], {J, x1, x2, 1.0*10^(-5)}], 1];
ListPlot[mm, PlotStyle -> {AbsolutePointSize[.01], Hue[.74]},
Frame -> True, FrameStyle ->
GrayLevel[0.5], Axes ->
False, ImageSize -> {500, 500}, PlotRange -> {y1, y2}];
Вот текст программы, когда к реальной экспериментально полученной п.т.с. 1/137 притягивается за уши некоторое значение 0.866...
А теперь пытаемся найти это число в математике. (Если оно там есть).
P.S.
Да, кстати, спешу заметить, что получено это число от псевдопараболы. Той самой.
Взят максимум.
Вычислить больно просто, так как на графике это бантик. В отличие от пузыря вычисляется легче лёгкого.
