Digi Area Group - Math Tools for Professionals
   Maple and Mathematica packages - math tools for professionals

atlas™ - modern differential geometry for Maple™

> Features List & Examples
> Template Worksheets
> Screenshots
> Documentation & Downloads
> License & Pricing
> Buy Online

 
 
 
 
Google

Features List & Examples  |  Introduction  |  Dimension  |  Indexing  |  Forms  |  Metric  |  atlasWizard - Maplet™

atlas[Torsion] - calculation of torsion 2-forms

Calling Sequence:

     Torsion(Id)

Parameters:

      Id - variable - torsion identifier

Description:

  • The Torsion procedure calculates torsion 2-forms. If a connection is calculated or defined then torsion can be calculated completely otherwise just torsion identifier is declared as torsion. To get the result of the calculation use eval  or atlas[iota]  operators.
  • The definition is as follows: Omega^j = d(e^j)+Sum(`&^`(omega[l]^j,e^j),l = 1 .. n)  , where e^j  are coframe 1-forms,   omega[l]^j  are connection 1-forms, n  is the dimension.

Examples:

Example 1
restart:
with(atlas):

Declare forms:
Forms(e[j]=1,xi=1);

{xi, e[j]}

Declare vectors:
Vectors(X,Y,Z,E[j]);

{X, Y, Z, E[j]}

Declare coframe:
Coframe(e[1]=x*d(x)+y*d(y),e[2]=x*d(y)-y*d(x));

[e[1] = x*d(x)+y*d(y), e[2] = x*d(y)-y*d(x)]

Declare frame:
Frame(E[i]);

[E[1] = 1/(x^2+y^2)*x*Diff(``,x)+1/(x^2+y^2)*y*Diff(``,y), E[2] = -1/(x^2+y^2)*y*Diff(``,x)+1/(x^2+y^2)*x*Diff(``,y)]

Connection definition:
omega[1,1]:=x*e[1];

omega[1,1] := e[1]*x

omega[2,2]:=y*e[2];

omega[2,2] := y*e[2]

omega[1,2]:=y*e[1];

omega[1,2] := y*e[1]

omega[2,1]:=-x*e[2];

omega[2,1] := -x*e[2]

Connection declaration:
Connection(omega);

omega[i,j]

Torsion calculation:
Torsion(Omega);

Omega[i]

eval(Omega);

TABLE([1 = y*`&^`(e[1],e[2]), 2 = (2+x^3+x*y^2)/(x^2+y^2)*`&^`(e[1],e[2])])

'L[E[1]](E[2])'=L[E[1]](E[2]);

L[E[1]](E[2]) = E[2]*x+y*E[1]

See Also:

atlas , atlas[Frame] , atlas[Coframe] , atlas[Metric] .