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[delta] - Kronecker delta symbol

Calling Sequence:

     delta[i,j]

Parameters:

        i, j - variables or integers.

Description:

  •  The delta  table is used as Kronecker's delta symbol. The main syntax is as follows: delta[i,j] i.e. delta[i,j]  .
  • The definition for Kronecker delta symbol is as follows: delta[i,j] = PIECEWISE([1, i = j],[``, ``],[0, i <> j])
  • delta  is just the table: delta := table(symmetric,identity)

Examples:
restart:
with(atlas):

Declare Functions
Functions(f=f(x,y,z));

{f}

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

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

Declare forms:
Forms(e[i]=1,omega=2,sigma=p);

{sigma, omega, e[i]}

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)]

Declare frame:
Frame(E[k]);

[E[1] = Diff(``,x), E[2] = Diff(``,y), E[3] = Diff(``,z)]

Using delta  procedure:

Interior product of frame vector and coframe form:
'iota[E[j]](e[k])'=iota[E[j]](e[k]);

iota[E[j]](e[k]) = delta[j,k]

To basis decomposition:
X=ToBasis(X);

X = iota[X](e[1])*E[1]+iota[X](e[2])*E[2]+iota[X](e[3])*E[3]

And then:
iota[X](e[k])=iota[ToBasis(X)](e[k]);

iota[X](e[k]) = iota[X](e[1])*delta[1,k]+iota[X](e[2])*delta[2,k]+iota[X](e[3])*delta[3,k]

Some more examples:
'iota[E[n],E[i]](e[j]&^e[k])'=iota[E[n],E[i]](e[j]&^e[k]);

iota[E[n],E[i]](`&^`(e[j],e[k])) = -delta[i,k]*delta[j,n]+delta[i,j]*delta[k,n]

For function f:
'iota[E[k]](d(f))'=iota[E[k]](d(f));

iota[E[k]](d(f)) = Diff(f,x)*delta[1,k]+Diff(f,y)*delta[2,k]+Diff(f,z)*delta[3,k]

For exterior product:
'iota[E[j]](e[k]&^d(f))'=iota[E[j]](e[k]&^d(f));

iota[E[j]](`&^`(e[k],d(f))) = -Diff(f,x)*(delta[1,j]*e[k]-delta[j,k]*e[1])-Diff(f,y)*(delta[2,j]*e[k]-delta[j,k]*e[2])-Diff(f,z)*(delta[3,j]*e[k]-delta[j,k]*e[3])
iota[E[j]](`&^`(e[k],d(f))) = -Diff(f,x)*(delta[1,j]*e[k]-delta[j,k]*e[1])-Diff(f,y)*(delta[2,j]*e[k]-delta[j,k]*e[2])-Diff(f,z)*(delta[3,j]*e[k]-delta[j,k]*e[3])

See Also:

atlas , atlas[iota] , atlas[Frame] , atlas[Coframe] , atlas[ToBasis] .