Если в начальный момент времени совместимы, то и дальше совместимы, это же задача Коши, разве нет?
А вначале они совместны? В данном случае.
Вот и приведите сюда эту пару строчек.
Без проблем
Код:
dimension = 4;
coordinates = {t, r, \[Theta], \[Phi]};
metric = {{1, 0, 0, 0}, {0, -a[t]^2, 0, 0}, {0,
0, -a[t]^2 Sin[Sqrt[\[Kappa]] r]^2/\[Kappa], 0}, {0, 0,
0, -a[t]^2 Sin[Sqrt[\[Kappa]] r]^2/\[Kappa] Sin[\[Theta]]^2}};
inversemetric = Inverse[metric];
affine = Table[
1/2 Sum[inversemetric[[i,
s]] (D[metric[[s, j]], coordinates[[k]]] +
D[metric[[s, k]], coordinates[[j]]] -
D[metric[[j, k]], coordinates[[s]]]), {s, dimension}], {i,
dimension}, {j, dimension}, {k, dimension}];
ricci = Table[
Sum[inversemetric[[i,
m]] (Sum[
D[affine[[k, m, j]], coordinates[[k]]] -
D[affine[[k, m, k]], coordinates[[j]]], {k, dimension}] +
Sum[affine[[k, l, k]] affine[[l, m, j]] -
affine[[k, j, l]] affine[[l, m, k]], {k, dimension}, {l,
dimension}]), {m, dimension}], {i, dimension}, {j,
dimension}];
einstein =
Table[ricci[[i, j]] -
Sum[ricci[[k, k]], {k, dimension}] KroneckerDelta[i, j]/2, {i,
dimension}, {j, dimension}];
stress = {{\[Epsilon][t] + \[CapitalLambda]/(8 \[Pi]), 0, 0,
0}, {0, -(p[t] - \[CapitalLambda]/(8 \[Pi])), 0, 0}, {0,
0, -(p[t] - \[CapitalLambda]/(8 \[Pi])), 0}, {0, 0,
0, -(p[t] - \[CapitalLambda]/(8 \[Pi]))}};
Union[Simplify[
Table[einstein[[i, i]] == 8 \[Pi] stress[[i, i]], {i, 1,
dimension}]]]
Результат
Сравните с википедией (
http://en.wikipedia.org/wiki/Friedmann-Lemaître-Robertson-Walker_metric) или любым букварем. Нас интересует более частный случай, когда
и
.
вы примерно в той же форме
Не переубедил? :)
Вообще-то
"Вообще-то" - есть стандартные обозначения. Особенно в "классических" вещах, что называется. Выбор координат в стандартной космологии и соглашение о
- одно из.
Я их обе уже прочитал. Естественно, там
не рассмотрено.
Естественно, рассмотрено. Просто там не догадались написать прописными буквами, что знак сей штуки при выводе уравнений Фридмана ну абсолютно не важен.