Sample Applications

The sample applications are given in the form of notebooks. For the time being there are the following:

  • A notebook for the Klein - Gordon - equation
  • A notebook for the Dirac - equation

In addition to local rules, they contain a series of calculations, e.g. Hamilton - operator, 3 - momentum and evaluation of charge.

Klein - Gordon - Equation

In all cases, the free fields that solve the field equations are specified.

  1. The commutator of the fields, when applying the commutation relations for the coefficients of the fields, leads to the commutation relations of the fields themselves.

    (* Define the wave function solutions *) ΦC := ( 1 / Sqrt [ 2 ( 2 Pi ) ^ 3 k 0 ] a ^ k 1 , k 2 , k 3 Exp [ - exp ] ) 3 k + ( 1 / Sqrt [ 2 ( 2 Pi ) ^ 3 k 0 ] b ^ k 1 , k 2 , k 3 Exp [ exp ] ) 3 k ; phi = ΦC // QASimplify [ ] ; phicross = ( ΦC // QASimplify [ ] ) ; (* Define the time derivative of wave function solution *) phicrossdot = ( ( ? x 0 phicross ) /. { k "->" k1 , x "->" y } ) /. { y 0 "->" x 0 } ; (* Evaluate the Commutator *) QAEvaluate1 [ phi phicrossdot - phicrossdot phi ] DiracDelta [ x 1 - y 1 , x 2 - y 2 , x 3 - y 3 ] 1 ^

  2. The Hamiltonian as an expression dependent on the fields leads to an expression in the coefficients of the fields (creation and annihilation operators).

    Φ := k ( 1 / Sqrt [ 2 V k 0 ] a ^ k 1 , k 2 , k 3 Exp [ exp ] ) + k ( 1 / Sqrt [ 2 V k 0 ] b ^ k 1 , k 2 , k 3 Exp [ exp ] ) H 1 := ( D x 0 ( Φ // Evaluate ) ) ( D x 0 ( ( Φ // QASimplify [ ] ) // Evaluate ) /. { k k 1 } ) H 2 := i = 1 3 ( ( D x i ( Φ // QASimplify [ ] // Evaluate ) ) ( D x i ( Φ // Evaluate ) /. { k k 1 } ) ) H 3 := ( μ 2 ( Φ // QASimplify [ ] ) ( Φ /. { k k 1 } ) ) // QASimplify [ ] H 1 := V H 1 3 x H 2 := V H 2 3 x H 3 := V H 3 3 x hamiltonian = QAEvaluate 2 [ H 1 + H 2 + H 3 ] 1 ^ k k 0 + k a ^ k 1 , k 2 , k 3 a ^ k 1 , k 2 , k 3 k 0 + k b ^ k 1 , k 2 , k 3 b ^ k 1 , k 2 , k 3 k 0

  3. The same applies to the expression of the 3-momentum.

    P i_ := ( D x 0 ( Φ // Evaluate ) ) ( D x i ( ( Φ // QASimplify [ ] ) // Evaluate ) //. { k k 1 } ) + ( D x 0 ( ( Φ // QASimplify [ ] ) // Evaluate ) ) ( D x i ( Φ // Evaluate ) //. { k k 1 } ) P i_ := V P i 3 x Map [ ( P #1 // QAEvaluate2 ) & , { 1 , 2 , 3 } ] { k a ^ k 1 , k 2 , k 3 a ^ k 1 , k 2 , k 3 k 1 k b ^ k 1 , k 2 , k 3 b ^ k 1 , k 2 , k 3 k 1 k a ^ k 1 , k 2 , k 3 a ^ k 1 , k 2 , k 3 k 2 k b ^ k 1 , k 2 , k 3 b ^ k 1 , k 2 , k 3 k 2 , k a ^ k 1 , k 2 , k 3 a ^ k 1 , k 2 , k 3 k 3 k b ^ k 1 , k 2 , k 3 b ^ k 1 , k 2 , k 3 k 3 }

  4. The same applies to the expression for the charge, which results from a continuity equation.

    J i_ := ( ( D x i ( Φ // Evaluate ) ) ( ( Φ // QASimplify [ ] ) //. { k k 1 } ) ( D x i ( ( Φ // QASimplify [ ] ) // Evaluate ) ) ( Φ //. { k k 1 } ) ) J i_ := V J i 3 x QAEvaluate2 [ J 0 ] k a ^ k 1 , k 2 , k 3 a ^ k 1 , k 2 , k 3 k b ^ k 1 , k 2 , k 3 b ^ k 1 , k 2 , k 3