| Главная | | | Введение | | | Модель: адроны | | | Tpu анкера для массы | | | Массы частиц | | | Уточнение для массы | | | Tpu анкера для времени | | | Смотреть браузером IE |
"Пространство Шакти"
"Час Быка", Иван Ефремов. ©
S2 - 2S + 2(F - E - 1) = 0
Где - F - Золотое сечение
- E - Константа Эйлера-Маскерони
Данная нехитрая формула даёт число Шакти
S = 0.041687236700211727372153602931645... против числа, полученного из привязки к лептонным анкерам
s = 0.041694495... Но как раз это число и делает гипотезу "притянутой за уши", вместе с так называемым мною "спиновым параметром". :)
Электрон, мюон
и их аномальные магнитные моменты
В данном случае, я предлагаю совсем отказаться от "физического" параметра S, используя исключительно математическое значение.
Таким образом, мы избавляемся ещё от одной лишней не математической константы.
Но тогда мы не получим привязки к анкерам? (То есть, к массам электрона, мюона и таона).На помощь приходит аномальный магнитный момент лептона.
Me = 0.001159659359 для электрона
Mm = 0.0011659240 для мюона.В данном случае, в качестве спинового параметра используется не подобранная методом подгона константа p, а совсем другое значение, где используется в качестве физической константы только аномальный магнитный момент.
Итак, используемые спиновые поправки для лептонных анкеров:
L - 2s _________________________ для электрона
L - 2s - (Me - Mm) ____________ для мюона
L - 2s - (1 - 4s)(Me - Mm) _____для таона
Где, L - константа Лежандра, минус единица. S - естественно, математическое число Шакти. Me и Mm соответственно, аномальные магнитные моменты.
В следующем примере программы на языке Вольфрамовской Математики, используя аномальные магнитные моменты электрона и мюона, можно привязаться всего лишь к двум лептонам: электрону и мюону. И, при этом, даже уточнить константу Лежандра. :) Щютка. ;-)
|
s = 0.041687236700211727372153602931645047; ev = 0.51099891000000000000000000000000000; Me = 0.00115965935900000000000000000000000; Mm = 0.00116592400000000000000000000000000; L = 0.083659250000000000000000000000000000; No = L - 2*s; Print["L-2s = ", No]; c = L - 2*s; Nm = c - (Mm - Me); Print["Muon = ", Nm]; Nt = c - (1 - 4*s)*(Mm - Me); Print["Taon = ", Nt]; Print["__________________________________"]; f[x_] := N[(x^x)^(x^No), 35]; a1 = 0.20000000000000000000000000000000000; a7 = 0.50000000000000000000000000000000000; Do[ pa = a7 - a1; d = pa/7; a2 = a1 + d; a6 = a7 - d; f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d]; f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d]; If[And[f1 > f2, f2 > f3], {a1 = a2}]; If[And[f7 > f6, f6 > f5], {a7 = a6}], {150}] xe = a2; ye = f2; f[x_] := N[(x^(x^(x^x)))^(x^Nm), 35]; a1 = 0.15000000000000000000000000000000000; a7 =0.40000000000000000000000000000000000; Do[ pa = a7 - a1; d = pa/7; a2 = a1 + d; a6 = a7 - d; f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d]; f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d]; If[And[f1 > f2, f2 > f3], {a1 = a2}]; If[And[f7 > f6, f6 > f5], {a7 = a6}], {150}] xm = a2; ym = f2; f[x_] := N[(x^(x^(x^(x^(x^x)))))^(x^Nt), 35]; a1 = 0.100000000000000000000000000000000000; a7 = 0.350000000000000000000000000000000000; Do[ pa = a7 - a1; d = pa/7; a2 = a1 + d; a6 = a7 - d; f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d]; f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d]; If[And[f1 > f2, f2 > f3], {a1 = a2}]; If[And[f7 > f6, f6 > f5], {a7 = a6}], {150}] xt = a2; yt = f2; Print["===================================="]; (* _______________________ *) x := N[((1 + x0) + s)^(1/(1 - y0)), 35]; (* _______________________ *) y0 = ye; x0 = xe; el = (x^x)^(x^No); y0 = ym; x0 = xm; mu = (x^(x^(x^x)))^(x^Nm); y0 = yt; x0 = xt; ta = (x^(x^(x^(x^(x^x)))))^(x^Nt); e1e = (mu - 1)/(el - 1); e2e = (ta - 1)/(el - 1); Print["El = ", 1*ev, " MeV"] Print["_______________________"] Print["Muon = 105.6583668"] Print["Muon = ", e1e*ev, " MeV"] Print["_______________________"] Print["Taon = 1776.84"] Print["Taon = ", e2e*ev, " MeV"] |
Константа Лежандра (1.08366) - самая "скользкая" из всего множества математических констант. Первое приближение к функции распределения простых чисел, полученное Лежандром в 1808 году.
Естественно, полученные позднее приближения Гаусса и Римана, отображают закон распределения простых чисел точнее. Но, мне думается, константу Лежандра рановато списывать в утиль.
Так или иначе, это очень важный момент для жизнеспособности гипотезы соответствия элементарных частиц полистепенным функциям.
Если будет доказано, что аномальный магнитный момент таона очень сильно отличается от аномального магнитного момента мюона, то гипотеза получит сокрушительный удар.
Пока таких достоверных данных на горизонте не просматривается.Данная поправка к версии лептонных анкеров почти не влияет на значения масс других частиц. Расхождения очень незначительные.
17 / 05 / 2010 г.Дополнение. Июль 2010 г.
Очень большие нарекания в адрес гипотезы были связаны с происхождением и точностью "параметров". Нарекания, надо сказать, справедливые. Например, на студенческом форуме "Дубинушка".
Особенно строгой и справедливой критике была подвергнута константа Лежандра. Как ни странно, но мне удалось найти эту константу не в прямом исследовании хитросплетений простых чисел (которое остаётся за математиками), а из полистепенных функций.
Теперь о параметрах и их точности. И о "подгоне", в котором меня обвиняют критики.
В трёх анкерах действительно имел место быть подгон под совпадение масс руководящей тройки лептонов с помощью параметров s и p. (Что само по себе должно насторожить исследователя, несмотря на "подгон".). Попытка уйти от "физического" параметра s к математическому, используя данные аномальных магнитных моментов электрона и мюона, оказалась удачной.
Единственным слабым моментом этой конструкции была константа Лежандра.Все константы, здесь используемые, делятся на две группы: математические и физические.
Точность математических констант проблем не представляет. В Вольфрамовской Математике мы можем их вычислить с любой точностью. К таким константам принадлежит константа S.В процессе поиска других математических констант используется метод нахождения координат экстремума полистепенной функции. При этом, точность полученного числа падает в два раза.
|
Fi = N[GoldenRatio, 201]; Eu = N[EulerGamma, 201]; S2 := N[2*((Fi - 1) - Eu), 201]; Print["S2 = ", S2]; Roots[x^2 - 2*x + S2 == 0, x] s = 0.0416872367002117273721536029316450472170048623250488650352055324746280405044354524475842838820374494354476\ 0416751590159473140110795401523924818850123995565139170766136263639629304104698910745399091575; |
Далее, перечислим все используемые физические константы: - Alpha (1/137)
- АММ электрона
- АММ мюона
- масса электрона
- масса мюона
- константа Лежандра
Данные по постоянной тонкой структуры: Fine Structure Constant -- from Eric Weisstein's World of Physics
137.03599976 +- 0.00000050Данные PDG на 2010 г.
Массы:
ev = 0.510998910 +- 0.000000013 для электрона
Mu = 105.6583668 +- 0.0000038 для мюона.Аномальные магнитные моменты:
El = 0.00115965218073 +- 0.00000000000028 для электрона
M = 0.00116592080000 +- 0.0000000008 для мюона.Формула для константы Лежандра:
L = 6 - (M - El)/(x - M) - a/(3 - F)
Где - F - Золотое сечение
- M и El - АММ мюона и электрона
- a - постоянная тонкой структуры
- x - координата экстремума функции "down-кварка"
О координатах экстремума функции "d-кварка" x(xw) следует сказать особо. При определённом значении w, одна из координат экстремума "подгоняется" под значение, равное 2S. Другое значение координаты экстремума, при этом, и является значением x.
Поскольку, формула для константы Лежандра содержит физические константы, то данный вариант константы Лежандра принадлежит физическим константам.
(: Математический вариант ждём от математиков. :)Итак, используя перечисленные выше 6 физических констант, получаем следующий "подгон" для подтверждения формулы.
Все используемые значения физических констант находятся в пределах, указанных PDGLive.
|
pa3 = 500; s = 0.0416872367002117273721536029316450472170048623250488650352055324746280405044354524475842838820374494354476; w = 0.1480749890319202680894686919425091018380276849089729043215823046113239564500000000000000000000000000000000; El = 0.0011596521807300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; M = 0.00116592079941933140100000000000000000000000000000000000000000000000000000000000000000000000000000000000000; (* El = 1159.65218073 + - 0.00000028 10^(-6) *) (* M = 11659208.0 + - 5.4 + - 3.3 10^(-10) *) wol = 137.03599976000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; (* wolfram alpha + - 0.00000050 *) a = 1/wol; ev = 0.51099891000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; (* ^^^^^^^^^^^^^^^^^^^^^ *) Print["___________________________________________________________________________d-quark_w"]; f[x_] := N[x^(x^w), 105]; a1 = 0.00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000; a7 = 0.10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; Do[ pa = a7 - a1; d = pa/7; a2 = a1 + d; a6 = a7 - d; f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d]; f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d]; If[And[f1 > f2, f2 > f3], {a1 = a2}]; If[And[f7 > f6, f6 > f5], {a7 = a6}], {pa3}] xw = a2; yw = f2; r = xw - M; me = M - El; G = N[GoldenRatio, 105]; L = 6 - me/r - a/(3 - G); Print["y = ", yw]; Print["2s = ", 2*s]; Print[L]; p = L - 2*s; Nm = p - (M - El); f[x_] := N[(x^x)^(x^p), 105]; a1 = 0.20000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; a7 = 0.50000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; Do[ pa = a7 - a1; d = pa/7; a2 = a1 + d; a6 = a7 - d; f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d]; f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d]; If[And[f1 > f2, f2 > f3], {a1 = a2}]; If[And[f7 > f6, f6 > f5], {a7 = a6}], {pa3}] xe = a2; ye = f2; f[x_] := N[(x^(x^(x^x)))^(x^Nm), 105]; a1 = 0.15000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; a7 = 0.40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; Do[ pa = a7 - a1; d = pa/7; a2 = a1 + d; a6 = a7 - d; f1 = f[a1]; f2 = f[a1 + d]; f3 = f[a1 + 2*d]; f7 = f[a7]; f6 = f[a7 - d]; f5 = f[a7 - 2*d]; If[And[f1 > f2, f2 > f3], {a1 = a2}]; If[And[f7 > f6, f6 > f5], {a7 = a6}], {pa3}] xm = a2; ym = f2; Print["===================================="]; (* _______________________ *) x := N[((1 + x0) + s)^(1/(1 - y0)), 105]; (* _______________________ *) y0 = ye; x0 = xe; el = N[(x^x)^(x^p), 105]; y0 = ym; x0 = xm; mu = N[(x^(x^(x^x)))^(x^Nm), 105]; e1e = (mu - 1)/(el - 1); Print["Elec = 0.510998910 +- 0.000000013"] Print["El = ", ev, " MeV"] Print["_______________________"] Print["Muon = 105.6583668 +- 0.0000038"] Print["Muon = ", e1e*ev, " MeV"] Print[105.65836680000 - e1e*ev] |
Отмахнуться от такого "подгона" конечно можно. Можно объявить всё это эзотерикой, нумерологией, нумерологической мистикой... Бредом, в конце концов. Но я не верю, что не найдётся ни один человек, которого бы такие, по меньшей мере, странные совпадения, не заинтересовали бы.
21 / 07 / 2010 г.Все тексты программ скачать здесь: apx.zip 0.429 Mb
Далее: Один анкер или число p