Function declaration:
Functions(f=f(x,y),h=h(x,y),g=g(x,y),z=z(x,y));
 | (2.1) |
Vector fields:
Vectors(E[i],X,Y,Z);
![{X, Y, Z, E[i]}](Maple/atlas/examples/images/conntor_2.gif) | (2.2) |
Differential p-forms:
Forms(e[j]=1);
![{e[j]}](Maple/atlas/examples/images/conntor_3.gif) | (2.3) |
Coframe 1-forms:
Coframe(e[1]=d(x),e[2]=d(y));
![[e[1] = d(x), e[2] = d(y)]](Maple/atlas/examples/images/conntor_4.gif) | (2.4) |
Frame vector fields:
Frame(E[i]);
![[E[1] = Diff(``, x), E[2] = Diff(``, y)]](Maple/atlas/examples/images/conntor_5.gif) | (2.5) |
Connection definition:
![`*`(f, `*`(e[2]))](Maple/atlas/examples/images/conntor_6.gif) | (2.6) |
 | (2.7) |
 | (2.8) |
![`*`(h, `*`(e[1]))](Maple/atlas/examples/images/conntor_9.gif) | (2.9) |
Connection declaration:
Connection(omega);
![omega[i, j]](Maple/atlas/examples/images/conntor_10.gif) | (2.10) |
Curvature calculation:
Curvature(Omega);
![Omega[i, j]](Maple/atlas/examples/images/conntor_11.gif) | (2.11) |
Result:
eval(Omega);
![table( [( 1, 1 ) = `*`(Diff(f, x), `*`(`&^`(e[1], e[2]))), ( 1, 2 ) = 0, ( 2, 2 ) = `+`(`-`(`*`(Diff(h, y), `*`(`&^`(e[1], e[2]))))), ( 2, 1 ) = 0 ] )](Maple/atlas/examples/images/conntor_12.gif)
![table( [( 1, 1 ) = `*`(Diff(f, x), `*`(`&^`(e[1], e[2]))), ( 1, 2 ) = 0, ( 2, 2 ) = `+`(`-`(`*`(Diff(h, y), `*`(`&^`(e[1], e[2]))))), ( 2, 1 ) = 0 ] )](Maple/atlas/examples/images/conntor_13.gif) | (2.12) |
Torsion calculation:
Torsion(T);
![T[i]](Maple/atlas/examples/images/conntor_14.gif) | (2.13) |
Result:
eval(T);
![table( [( 1 ) = `+`(`-`(`*`(f, `*`(`&^`(e[1], e[2]))))), ( 2 ) = `*`(h, `*`(`&^`(e[1], e[2]))) ] )](Maple/atlas/examples/images/conntor_15.gif) | (2.14) |
Curvature tensor calculation:
Riemann(R);
![R = `+`(`*`(`/`(1, 2), `*`(Diff(f, x), `*`(`&.`(E[1], e[1], `&^`(e[1], e[2]))))), `-`(`*`(`/`(1, 2), `*`(Diff(h, y), `*`(`&.`(E[2], e[2], `&^`(e[1], e[2])))))))](Maple/atlas/examples/images/conntor_16.gif)
![R = `+`(`*`(`/`(1, 2), `*`(Diff(f, x), `*`(`&.`(E[1], e[1], `&^`(e[1], e[2]))))), `-`(`*`(`/`(1, 2), `*`(Diff(h, y), `*`(`&.`(E[2], e[2], `&^`(e[1], e[2])))))))](Maple/atlas/examples/images/conntor_17.gif) | (2.15) |
Ricci tensor calculation:
Ricci(r);
![r = `+`(`*`(Diff(f, x), `*`(`&.`(e[1], e[2]))), `*`(Diff(h, y), `*`(`&.`(e[2], e[1]))))](Maple/atlas/examples/images/conntor_18.gif) | (2.16) |
Some more simple calculations:
Covariant derivatives:
'cov[E[j]](e[1])'=cov(E[j],e[1]);
'cov[E[j]](e[2])'=cov(E[j],e[2]);
![cov[E[j]](e[1]) = `+`(`-`(`*`(f, `*`(delta[2, j], `*`(e[1])))))](Maple/atlas/examples/images/conntor_19.gif) |
![cov[E[j]](e[2]) = `+`(`-`(`*`(h, `*`(delta[1, j], `*`(e[2])))))](Maple/atlas/examples/images/conntor_20.gif) | (2.17) |
Lie derivative:
'L[E[1]](E[2])'=L[E[1]](E[2]);
![L[E[1]](E[2]) = `+`(`-`(`*`(f, `*`(E[1]))), `*`(h, `*`(E[2])))](Maple/atlas/examples/images/conntor_21.gif) | (2.18) |
Interior products:
'iota[E[k]](T[1])'=iota[E[k]](T[1]);
'iota[E[k]](Omega[1,1])'=iota[E[k]](Omega[1,1]);
![iota[E[k]](T[1]) = `+`(`-`(`*`(f, `*`(`+`(`*`(delta[1, k], `*`(e[2])), `-`(`*`(delta[2, k], `*`(e[1]))))))))](Maple/atlas/examples/images/conntor_22.gif) |
![iota[E[k]](Omega[1, 1]) = `*`(Diff(f, x), `*`(`+`(`*`(delta[1, k], `*`(e[2])), `-`(`*`(delta[2, k], `*`(e[1]))))))](Maple/atlas/examples/images/conntor_23.gif) | (2.19) |