LynxGAV
Вот написал код для
Mapla. Неплохое получилось упражнение:
>restart; # Это на всякий случай
>alias(r=r(t),theta=theta(t),phi=phi(t));
>x[1]:=r*sin(theta)*cos(phi); x[2]:=r*sin(theta)*sin(phi); x[3]:=r*cos(theta);
>a:=seq(simplify(diff(x[n],t$2)),n=1..3);
>e[r]:=sin(theta)*cos(phi),sin(theta)*sin(phi),cos(theta);
>e[theta]:=cos(theta)*cos(phi),cos(theta)*sin(phi),-sin(theta);
>e[phi]:=-sin(phi),cos(phi),0; simplify(sum(e[phi][n]^2,n=1..3));
>w[r]:=collect(simplify(sum(e[r][n]*a[n],n=1..3)),[r,diff(phi,t)]);
>w[theta]:=collect(simplify(sum(e[theta][n]*a[n],n=1..3)),[diff(phi,t)]);
>w[phi]:=collect(simplify(sum(e[phi][n]*a[n],n=1..3)),[sin(theta),cos(theta)]);
Можеш скопировать в Maple и запустить. На выходе получешь:
, и т.д.
Это и есть компоненты ускорения в сферической системе координат.
PS Кстати, символы Кристофеля здесь совсем не нужны. Если уж так хочется
воспользоваться принципом ковариантности, то нужно вычислить
ну а потом перейти, с помощью тетрад, в локальную систему координат.