Удивительно, то же самое теперь при попытке вывести тензор Римана.
Quit Kerner не помогает. Формулу уже сам набирал по аналогии (на видео нет), но по-моему правильно.
Код:
riemann[a_, b_, c_, d_] :=
riemann[a, b, c, d] =
Simplify[D[christ[[a, b, d]], coord[[c]]] -
D[christ[[a, b, c]], coord[[d]]] + \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(n = 1\), \(3\)]\(christ[\([\)\(a,
c, n\)\(]\)] christ[\([\)\(n, b, d\)\(]\)]\)\) - \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(n = 1\), \(3\)]\(christ[\([\)\(a,
d, n\)\(]\)] christ[\([\)\(n, b, c\)\(]\)]\)\)]
после выполнения
Код:
riemann[1, 2, 1, 2]
снова получаю ошибку
Код:
Part::partd : Part specification...is longer than depth of object.