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

[BJIaquMup]

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

Print["И вот теперь, зная АММ математического электрона..."];
Print["AMM from file: AMM_e^e"];
Print["И, зная s from file: one=0,049119005_pa3Hocmb)005675"];
wv = 30;
s = 0.040119005`50;
ae = 0.001158821933639533722878709500802790197906595883`50;
x1 = 0.10`50;
x2 = 0.75`50;
x := N[((1 + x0) + s)^(1/(1 - y0)), 50];
ai := N[(x^x)^(x^ae), 50];
res = FindMinimum[ai, {x, x1, x2}];
x0 = x /. Last[res];
y0 = First[res];
res = FindMinimum[ai, {x, x1, x2}, AccuracyGoal -> Automatic, PrecisionGoal \
-> Automatic, WorkingPrecision -> wv];
x0 = x /. Last[res];
y0 = First[res];
Print[x0];
Print[y0];
k = ai;
Print[k];
Print["Это абсолютное массовое значение электрона."];

file: "Result".

[BJIaquMup]

Кстати, не впервые. Я это число (0.000599) назвал "гocпoдин ПЖ".
Вычисление 0.005675... .
Но, кроме "гocnoдина ПЖ", используется число 2.293166... ( о нём я говорил ранее, оно из формулы x^(1/x).
Впрочем, лучше скажет программа.

[BJIaquMup]

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

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

Peзультат == число 0.005675...