Inacio Aprendanet

Ask a Question

Create a Post

6 Badges

Member for: 16 years, 227 days

Contact Inacio Aprendanet

MaplePrimes Activity

These are replies submitted by Inacio Aprendanet

Thanks!!!...

Answered: Inacio Aprendanet 65

August 07 2018

0 0

@Christopher2222 thanks a lot for your help!!!!

Thanks!!!...

Answered: Inacio Aprendanet 65

August 01 2018

0 0

@Carl Love thanks for the quick response and the commentary.

Thanks a lot!

Yes! Very Misterious! Thanks a lot again...

Answered: Inacio Aprendanet 65

May 02 2017

0 0

@John Fredsted I just changed phi to phi_A and it worked!

I will continue to do that, the work cannot stop!

Thanks a lot for your contribution!

Here´s the file:

Field_A-MaplePrimes.mw

Initial Definitions:

I wish in this work to express the Maxwell equations deriving from the Lagrangian in the fields and

(1.1)

but expressed in vectorial form;

(1.2)

$`Detected \`t\`, the time variable, in position 1. Changing the signature of the spacetime metric accordingly, to: + - - - `$

$`Default differentiation variables for d_, D_ and dAlembertian are: `*{X = (t, x, y, z)}$

(1.3)

$`Default differentiation variables for d_, D_ and dAlembertian are: `*{X = (t, x, y, z)}$

(1.4)

Some definitions

Defining the Maxwell tensor

(2.1)

Defining the field A with their components:

A[mu] = Vector[column](%id = 18446744074362908294)

${F, A[mu], Physics:-Dgamma[mu], Physics:-Psigma[mu], Physics:-d_[mu], Physics:-g_[mu, nu], Physics:-KroneckerDelta[mu, nu], Physics:-LeviCivita[alpha, beta, mu, nu], Physics:-SpaceTimeVector[mu](X)}$

(2.2)

(2.3)

Applying:

(3.1)

Term 1:

(4.1)

(4.2)

(4.3)

(4.4)

(4.5)

(4.6)

(4.7)

eval(op(1, Physics:-d_[beta](diff(phi__A(X), t), [X])-Physics:-d_[beta](diff(A__1(X), x), [X])-Physics:-d_[beta](diff(A__2(X), y), [X])-Physics:-d_[beta](diff(A__3(X), z), [X])-Physics:-dAlembertian(A[beta], [X])), beta = 2);