Pruefung1a.mw

Allgemeine Relativitätstheorie mit dem Computer 

General Theory of Relativity on the Computer 

Vorlesung gehalten an der J.W.Goethe-Universität in Frankfurt am Main (Sommersemester 2016)  

von Dr.phil.nat. Dr.rer.pol. Matthias Hanauske 

Frankfurt am Main 11.04.2016 

 

Erster Vorlesungsteil: Allgemeine Relativitätstheorie mit Maple  

Probe Prüfung 

Probeprüfung 

Aufgabe 1a. Maple Worksheet Vorlesung1.mw verwendet: 

Grundlegende Größen der Allgemeinen Relativitätstheorie 

Im folgenden werden einige grundlegende Größen der allgemeinen Relativitätstheorie am Beispiel der allgemeinen statischen, isotropen Metrik erläutert.Zunächst wird das "tensor"-Paket eingebunden: 

> restart:
with( tensor );
 

[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
[Christoffel1, Christoffel2, Einstein, Jacobian, Killing_eqns, Levi_Civita, Lie_diff, Ricci, Ricciscalar, Riemann, RiemannF, Weyl, act, antisymmetrize, change_basis, commutator, compare, conj, connexF...
(2.1)
 

Definition der kovarianten Raumzeit-Metrik einer allgemeinen statischen, isotropen Metrik: 

> coord := [t, r, theta, phi]:
g_compts := array(symmetric,sparse, 1..4, 1..4):
g_compts[1,1] := A(r): g_compts[2,2] := -B(r):
g_compts[3,3] := -r^2:    g_compts[4,4] := -r^2*sin(theta)^2:
g := create( [-1,-1], eval(g_compts));
 

`:=`(g, table([compts = Matrix(%id = 44211920), index_char = [-1, -1]])) (2.2)
 

Kontravariante Raumzeit-Metrik: 

> ginv := invert( g, 'detg' );
 

`:=`(ginv, table([compts = Matrix(%id = 46493080), index_char = [1, 1]])) (2.3)
 

Erste partielle Ableitung der Metrik: 

> D1g := d1metric ( g, coord );
 

table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = 0, ( 2, 2, 4 ) = 0, ( 2, 4, 1 ) = 0, ( 3, 3, 2 )...
(2.4)
 

Chistoffel Symbole (kontravariante Form): 

> Cf1 := Christoffel1 ( D1g );
 

table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 1, 1, 1 ) = 0, ( 1, 4, 3 ) = 0, ( 1, 4, 4 ) = 0, ( 1, 2, 2 ) = 0, ( 2, 4, 4 ) = `+`(`-`(`*`(r, `*`(`^`(sin(theta), 2))))), ( 2, ...
(2.5)
 

Chistoffel Symbole (erster Index kontravariant, zweiter und dritter kontravariant): 

> Cf2:= Christoffel2( ginv, Cf1 );
 

table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 3, 4 ) = 0, ( 4, 1, 3 ) = 0, ( 1, 1, 1 ) = 0, ( 4, 1, 4 ) = 0, ( 3, 1, 4 ) = 0, ( 3, 2, 2 ) = 0, ( 3, 1, 2 ) = 0, ( 4, 2, 3 ) = 0, ( 1, 4, 4 )...
(2.6)
 

Angabe einzelner Komponenten eines Tensors: 

> get_compts(Cf2)[2,3,3];
 

`+`(`-`(`/`(`*`(r), `*`(B(r))))) (2.7)
 

Riemann Tensor: 

> D2g := d2metric ( D1g, coord ):
RMN := Riemann( ginv, D2g, Cf1 );
 

table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 2, 3, 2, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(B(r), r), `*`(r))), `*`(B(r))))), ( 1, 3, 1, 3 ) = `+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff...
(2.8)
 

Hier wurde das Maple-File verändert: 

> RMN1:=raise(ginv,RMN,1);
 

table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
table( [( compts ) = array( 1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, [( 1, 2, 2, 1 ) = `+`(`/`(`*`(`/`(1, 4), `*`(`+`(`*`(2, `*`(diff(diff(A(r), r), r), `*`(A(r), `*`(B(r))))), `-`(`*`(`^`(diff(A(r), r), 2), `...
(2.9)
 

> get_compts(RMN1)[1,3,1,3];
 

`+`(`-`(`/`(`*`(`/`(1, 2), `*`(diff(A(r), r), `*`(r))), `*`(A(r), `*`(B(r)))))) (2.10)