Examples:
Example 1
Abstract metric
Declare forms:
![{xi, e[j]}](Maple/atlas/help/images/Metric_1.gif) | (2.1.1) |
Declare vectors:
![{X, Y, Z, E[j]}](Maple/atlas/help/images/Metric_2.gif) | (2.1.2) |
Declare functions:
 | (2.1.3) |
Declare coframe with 1-forms:
(see atlas[Coframe])
![{e[j]}[j = 1 .. n]](Maple/atlas/help/images/Metric_5.gif) | (2.1.4) |
Declare frame vectors (see atlas[Frame]):
![{E[i]}[i = 1 .. n]](Maple/atlas/help/images/Metric_6.gif) | (2.1.5) |
Declare indefinite metric tensor g:
 | (2.1.6) |
Interior product of E[j] and g (see atlas[iota]):
| > | 'iota[E[j]](g)'=iota[E[j]](g); |
![iota[E[j]](g) = Sum(`*`(g(E[j], E[l[1]]), `*`(e[l[1]])), l[1] = 1 .. n)](Maple/atlas/help/images/Metric_8.gif) | (2.1.7) |
Linear property of metric tensor (see atlas[ToBasis]):
| > | g(X,Y)=g(ToBasis(X),Y); |
, `*`(g(Y, E[l[1]]))), l[1] = 1 .. n)](Maple/atlas/help/images/Metric_9.gif) | (2.1.8) |
Example 2
Conformally flat metric of sphere -
Declare forms:
![{xi, e[j]}](Maple/atlas/help/images/Metric_11.gif) | (2.2.1) |
Declare vectors:
![{X, Y, Z, E[j]}](Maple/atlas/help/images/Metric_12.gif) | (2.2.2) |
Declare functions:
 | (2.2.3) |
Declare constant
:
Constants(lambda);
 | (2.2.4) |
Declare coframe:
Coframe(e[1]=d(x),e[2]=d(y),e[3]=d(z));
![[e[1] = d(x), e[2] = d(y), e[3] = d(z)]](Maple/atlas/help/images/Metric_16.gif) | (2.2.5) |
Declare frame:
Frame(E[i]);
![[E[1] = Diff(``, x), E[2] = Diff(``, y), E[3] = Diff(``, z)]](Maple/atlas/help/images/Metric_17.gif) | (2.2.6) |
Declare conformally flat metric of
:
Metric(g=4*(d(x)&.d(x)+d(y)&.d(y)+d(z)&.d(z))/(1+lambda*(x^2+y^2+z^2))^2);
![g = `+`(`/`(`*`(4, `*`(`+`(`&.`(e[1], e[1]), `&.`(e[2], e[2]), `&.`(e[3], e[3])))), `*`(`^`(`+`(1, `*`(lambda, `*`(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2)), `*`(`^`(z, 2)))))), 2))))](Maple/atlas/help/images/Metric_19.gif) | (2.2.7) |
Simple calculations:
'iota[E[k]](g)'=iota[E[k]](g);
![iota[E[k]](g) = `+`(`/`(`*`(4, `*`(`+`(`*`(delta[1, k], `*`(e[1])), `*`(delta[2, k], `*`(e[2])), `*`(delta[3, k], `*`(e[3]))))), `*`(`^`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2)))...](Maple/atlas/help/images/Metric_20.gif) | (2.2.8) |
| > | 'g(E[i],E[j])'=g(E[i],E[j]); |
![g(E[i], E[j]) = `+`(`/`(`*`(4, `*`(`+`(`*`(delta[1, i], `*`(delta[1, j])), `*`(delta[2, i], `*`(delta[2, j])), `*`(delta[3, i], `*`(delta[3, j]))))), `*`(`^`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(la...](Maple/atlas/help/images/Metric_21.gif) | (2.2.9) |
| > | 'g(E[j],X)'=g(E[j],ToBasis(X)); |
![g(E[j], X) = `+`(`/`(`*`(4, `*`(iota[X](e[1]), `*`(delta[1, j]))), `*`(`^`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2))), `*`(lambda, `*`(`^`(z, 2)))), 2))), `/`(`*`(4, `*`(iota[X](e...](Maple/atlas/help/images/Metric_22.gif)
![g(E[j], X) = `+`(`/`(`*`(4, `*`(iota[X](e[1]), `*`(delta[1, j]))), `*`(`^`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2))), `*`(lambda, `*`(`^`(z, 2)))), 2))), `/`(`*`(4, `*`(iota[X](e...](Maple/atlas/help/images/Metric_23.gif) | (2.2.10) |
![g = `+`(`/`(`*`(4, `*`(`+`(`&.`(e[1], e[1]), `&.`(e[2], e[2]), `&.`(e[3], e[3])))), `*`(`^`(`+`(1, `*`(lambda, `*`(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2)), `*`(`^`(z, 2)))))), 2))))](Maple/atlas/help/images/Metric_24.gif) | (2.2.11) |
Connection calculation (see atlas[Connection]):
![omega[i, j]](Maple/atlas/help/images/Metric_25.gif) | (2.2.12) |
Now connection 1-forms
are calculated:
| > | 'omega[3,2]'=omega[3,2]; |
![omega[3, 2] = `+`(`/`(`*`(2, `*`(lambda, `*`(z, `*`(e[2])))), `*`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2))), `*`(lambda, `*`(`^`(z, 2)))))), `-`(`/`(`*`(2, `*`(lambda, `*`(y, `*`...](Maple/atlas/help/images/Metric_27.gif) | (2.2.13) |
| > | 'iota[E[i]](omega[1,2])'=iota[E[i]](omega[1,2]); |
![iota[E[i]](omega[1, 2]) = `+`(`-`(`/`(`*`(2, `*`(lambda, `*`(y, `*`(delta[1, i])))), `*`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2))), `*`(lambda, `*`(`^`(z, 2))))))), `/`(`*`(2, `*...](Maple/atlas/help/images/Metric_28.gif) | (2.2.14) |
Verify that vector
is Killing one (see atlas[L]):
| > | Z:=x*E[2]-y*E[1]; 'L[Z](g)'=L[Z](g); |
![`+`(`*`(x, `*`(E[2])), `-`(`*`(y, `*`(E[1]))))](Maple/atlas/help/images/Metric_30.gif) |
 = 0](Maple/atlas/help/images/Metric_31.gif) | (2.2.15) |
Verify that there are no Killing vectors among frame ones:
| > | 'L[E[k]](g)'=L[E[k]](g); |
![L[E[k]](g) = `+`(`-`(`/`(`*`(8, `*`(`+`(`&.`(e[1], e[1]), `&.`(e[2], e[2]), `&.`(e[3], e[3])), `*`(lambda, `*`(`+`(`*`(2, `*`(x, `*`(delta[1, k]))), `*`(2, `*`(y, `*`(delta[2, k]))), `*`(2, `*`(z, `*`...](Maple/atlas/help/images/Metric_32.gif)
![L[E[k]](g) = `+`(`-`(`/`(`*`(8, `*`(`+`(`&.`(e[1], e[1]), `&.`(e[2], e[2]), `&.`(e[3], e[3])), `*`(lambda, `*`(`+`(`*`(2, `*`(x, `*`(delta[1, k]))), `*`(2, `*`(y, `*`(delta[2, k]))), `*`(2, `*`(z, `*`...](Maple/atlas/help/images/Metric_33.gif) | (2.2.16) |
Curvature calculation (see atlas[Curvature]):
![Omega[i, j]](Maple/atlas/help/images/Metric_34.gif) | (2.2.17) |
Now curvature 2-forms
are calculated:
| > | 'Omega[1,3]'=Omega[1,3]; |
![Omega[1, 3] = `+`(`/`(`*`(4, `*`(lambda, `*`(`&^`(e[1], e[3])))), `*`(`^`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2))), `*`(lambda, `*`(`^`(z, 2)))), 2))))](Maple/atlas/help/images/Metric_36.gif) | (2.2.18) |
| > | 'iota[E[k]](Omega[2,1])'=iota[E[k]](Omega[2,1]); |
![iota[E[k]](Omega[2, 1]) = `+`(`-`(`/`(`*`(4, `*`(lambda, `*`(`+`(`*`(delta[1, k], `*`(e[2])), `-`(`*`(delta[2, k], `*`(e[1]))))))), `*`(`^`(`+`(1, `*`(lambda, `*`(`^`(x, 2))), `*`(lambda, `*`(`^`(y, 2...](Maple/atlas/help/images/Metric_37.gif) | (2.2.19) |
Example 3
Schwarzchild metric
Declare vectors:
![{X, Y, Z, E[j]}](Maple/atlas/help/images/Metric_38.gif) | (2.3.1) |
Declare functions:
 | (2.3.2) |
Declare constant
![{`+`(`-`(I)), I, Pi, _Z, Catalan, r[g]}](Maple/atlas/help/images/Metric_41.gif) | (2.3.3) |
Declare vectors:
Vectors(L1,N,M,K);
 | (2.3.4) |
Declare forms:
Forms(e[j]=1,l=1,n=1,m=1,k=1,x=1,y=1,z=1);
![{k, l, m, n, x, y, z, e[j]}](Maple/atlas/help/images/Metric_43.gif) | (2.3.5) |
Using alias for vectors and forms:
alias(L1=E[1],N=E[2],M=E[3],K=E[4],l=e[1],n=e[2],m=e[3],k=e[4]);
 | (2.3.6) |
Now 1-forms
are:
![[l, n, m, k]](Maple/atlas/help/images/Metric_46.gif) | (2.3.7) |
Declare coframe:
Coframe(l=1/2*((1-r[g]/r)*d(t)+d(r)),
n=d(t)-1/(1-r[g]/r)*d(r),
m=r/sqrt(2)*(d(theta)-I*sin(theta)*d(phi)),
k=r/sqrt(2)*(d(theta)+I*sin(theta)*d(phi)));
Declare frame:
Frame(E[j]);
Declare metric:
Metric(g=e[1]&.e[2]+e[2]&.e[1]-e[3]&.e[4]-e[4]&.e[3] );
 | (2.3.10) |
Simple calculations:
| > | 'g(E[i],E[j])'=g(E[i],E[j]); |
![g(E[i], E[j]) = `+`(`*`(delta[1, i], `*`(delta[2, j])), `*`(delta[2, i], `*`(delta[1, j])), `-`(`*`(delta[3, i], `*`(delta[4, j]))), `-`(`*`(delta[4, i], `*`(delta[3, j]))))](Maple/atlas/help/images/Metric_54.gif) | (2.3.11) |
| > | 'g(E[j],X)'=g(E[j],ToBasis(X)); |
![g(E[j], X) = `+`(`*`(iota[X](l), `*`(delta[2, j])), `*`(iota[X](n), `*`(delta[1, j])), `-`(`*`(iota[X](m), `*`(delta[4, j]))), `-`(`*`(iota[X](k), `*`(delta[3, j]))))](Maple/atlas/help/images/Metric_55.gif) | (2.3.12) |
| > | 'iota[E[k]](g)'=iota[E[k]](g); |
![iota[E[k]](g) = `+`(`*`(delta[1, k], `*`(n)), `*`(delta[2, k], `*`(l)), `-`(`*`(delta[3, k], `*`(k))), `-`(`*`(delta[4, k], `*`(m))))](Maple/atlas/help/images/Metric_56.gif) | (2.3.13) |
 | (2.3.14) |
Connection calculation:
![Gamma[i, j]](Maple/atlas/help/images/Metric_58.gif) | (2.3.15) |
Now connection 1-forms are calculated:
| > | 'Gamma[4,2]'=Gamma[4,2]; |
![Gamma[4, 2] = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(`+`(r, `-`(r[g])), `*`(k))), `*`(`^`(r, 2)))))](Maple/atlas/help/images/Metric_59.gif) | (2.3.16) |
Simple calculation:
![d(r) = `+`(`/`(`*`(`/`(1, 2), `*`(`+`(`-`(`*`(n, `*`(r))), `*`(n, `*`(r[g])), `*`(2, `*`(l, `*`(r)))))), `*`(r)))](Maple/atlas/help/images/Metric_60.gif) | (2.3.17) |

 | (2.3.18) |
| > | 'L[M](E[i])'=L[M](E[i]); |