А вот другой вариант для "массового" числа 0.4 (которое я использую для вычисления масс частиц).
one = 0.0393437739`50;
F = 4.66920160910299067185320382046620161`50;
o = 0.183704012399`50;
Print["Идеология."];
Print["one умножаем на F. Получаем число, похожее на 'o'"];
Print["Далее, подгоняем onF == o "];
two = 1.0*10^(-100);
x1 = 30.06`50;
x2 = 30.1`50;
onF = one*F;
Print[o, " o=0.1883923447"];
Print[onF, " ?? one*F подгоняем"];
Print[onF - o];
pi2 = N[2*Pi, 30]*F;
y2 = 1.0*10^(-3);
y1 = -y2;
BJIaquMup = Compile[{{J, _Real}}, ({J, #} &) /@ Union[
Drop[NestList[J*(one + #)*(one - #) &, two, 800], 600]]];
mm = Flatten[Table[BJIaquMup[J], {J, x1, x2, 1.0*10^(-4)}], 1];
ListPlot[mm, PlotStyle -> {PointSize[.01],
Hue[.90]}, Frame -> True, FrameStyle -> GrayLevel[0.5], Axes ->
False, ImageSize -> {500, 500}, PlotRange -> {y1, y2}];
Тут фигурирует число, это которое, Где я сам себя обосрал в теме "Первый поток".
o = 0.183704012399`50;