eschnett/cactusamrex - Change 4LA7YF6C6ZYSSTNT5PV3GK4ZAMO3IZNHNPZOKN3KZPBFIEJBFSIQC

Maxwell: Rewrite thorn. Works now.

Created by Erik Schnetter on December 17, 2019

4LA7YF6C6ZYSSTNT5PV3GK4ZAMO3IZNHNPZOKN3KZPBFIEJBFSIQC

Dependencies

In channels

master

main

Change contents

Insertion in Maxwell/README at line 3 [3.20]

[3.99]

               David Radice <dradice@astro.princeton.edu>,

Replacement in Maxwell/README at line 21 [3.20]

B:BD[3.488] → [3.488:515]

Magnetic field: B = curl A

[3.488]

[3.515]

Electric flux:  D = *E + P (polarization)
Magnetic flux:  B = curl A
Magnetic field: H = *B - M (magnetization)

Replacement in Maxwell/README at line 28 [3.20]

B:BD[3.607] → [3.607:703]

Inhomogeneous electric equation: div E = rho
Inhomogeneous magnetic equation: curl B - dt E = J

[3.607]

[3.703]

Inhomogeneous electric equation: div D = rho
Inhomogeneous magnetic equation: curl H - dt E = J

Deletion in Maxwell/README at line 35 [3.20]

B:BD[3.785] → [2.0:163]


Poynting vector:     S    = E cross B
                     S_j  = E^i B_ij
Energy density:      u    = 1/2 (E^2 + B^2)
Energy conservation: dt u = - grad S - J E

Replacement in Maxwell/README at line 40 [3.20]
B:BD[3.836] → [3.836:859]
```
                     E
```
[3.836]
[3.859]
```
                     D
```

Insertion in Maxwell/README at line 42 [3.20]

[3.882]

Auxiliaries:         E = *D
                     H = *B

Replacement in Maxwell/README at line 46 [3.20]

B:BD[3.965] → [3.965:1006]

                     dt E   = curl B - J

[3.965]

[3.1006]

                     dt D   = curl H - J

Replacement in Maxwell/README at line 48 [3.20]

B:BD[3.1045] → [3.1045:1078]

Constraints:         div E = rho

[3.1045]

[3.1078]

Constraints:         B = curl A
                     div D = rho

Deletion in Maxwell/README at line 51 [3.20]
B:BD[3.1109] → [3.1109:1145]
```
                     B     = curl A
```

Deletion in Maxwell/README at line 52 [3.20]

B:BD[3.1146] → [2.164:266]

DECIDE WHICH VARIABLES NEED TO BE HANDLED WELL (FOR EVOLUTION) AND
WHICH NOT (ONLY USED FOR ANALYSIS)

Deletion in Maxwell/README at line 53 [3.20]
B:BD[3.1147] → [2.267:322]
```
PROLONGATE VIA STAR-PROLONGATE-STAR (BUT ONLY DELTA-A)
```
Insertion in Maxwell/README at line 54 [3.20]
[3.1148]
[2.323]
```
3. Discretization
```

Replacement in Maxwell/README at line 56 [3.20]

B:BD[2.324] → [2.324:544]

∅:D[2.544] → [3.1179:1180]

B:BD[3.1179] → [3.1179:1180]

B:BD[3.1180] → [2.545:559]

∅:D[2.559] → [3.1238:1239]

B:BD[3.1238] → [3.1238:1239]

B:BD[3.1239] → [2.560:685]

∅:D[2.685] → [3.1273:1274]

B:BD[3.1273] → [3.1273:1274]

B:BD[3.1274] → [2.686:1383]


3. Ansatz for initial conditions:
phi = ht exp i (omega t - kx x - ky y - kz z)
Ax  = hx exp i (omega t - kx x - ky y - kz z)
Ay  = hy exp i (omega t - kx x - ky y - kz z)
Az  = hz exp i (omega t - kx x - ky y - kz z)
Lorenz gauge:
sinc x = sin x / x
omega^2 = sinc(kx dx/2)^2 kx^2 + sinc(ky dy/2)^2 ky^2 + sinc(kz dz/2)^2 kz^2
discrete div E constraint:
ht omega = -I (ax/dx (-1 + E^(I dx kx)) + ay/dy (-1 + E^(I dy ky)) +  az/dz (-1 + E^(I dz kz)))
ht omega = -i (ax/dx (exp i kx dx/2) (2 i sin (kx dx/2)) + ay/dy (exp i ky dy/2) (2 i sin (ky dy/2)) + az/dz (exp i kz dz/2) (2 i sin (kz dz/2)))
ht omega = ax kx (exp i kx dx/2) sinc(kx dx/2) + ay ky (exp i ky dy/2) sinc(ky dy/2)) + az kz (exp i kz dz/2) sinc(kz dz/2)
4. Discrete ansatz:
- Choose E and B field
- Choose phi and A analytically
- Calculate E and B discretely to ensure constraints
Ex = cos (omega t - kz z)
Ey = 0
Ez = 0
Byz = 0
Bzx = cos (omega t - kz z)
Bxy = 0
phi = 0
E = curl C
Cx = 0
Cy = 1/kz sin (omega t - kz z)
Cz = 0
Ax = -1/kz sin (omega t - kz z)
Ay = 0
Az = 0

[2.324]

phi: not present
A:   not present
D:   faces of primal grid
B:   faces of primal grid
E:   edges of primal grid (calculated via lossy Hodge dual)
H:   edges of primal grid (calculated via lossy Hodge dual)
rho: cells of primal grid
J:   faces of primal grid
div D: cells of primal grid
div B: cells of primal grid

Deletion in Maxwell/configuration.ccl at line 2 [3.1332]
B:BD[3.1379] → [3.1379:1397]
```
REQUIRES Vectors
```
Deletion in Maxwell/interface.ccl at line 8 [3.1414]
B:BD[3.1510] → [3.1510:1541]
```
USES INCLUDE HEADER: vectors.h
```
Deletion in Maxwell/interface.ccl at line 16 [3.1414]
B:BD[3.1702] → [2.1384:1445]
```
void FUNCTION SolvePoisson()
REQUIRES FUNCTION SolvePoisson
```

Replacement in Maxwell/interface.ccl at line 21 [3.1414]

B:BD[3.1721] → [3.1721:1830]

# TODO: phi needs no ghost zones
CCTK_REAL phi TYPE=gf TAGS='index={0 0 0} rhs="dtphi"' "Electric potential"

[3.1721]

[3.1830]

CCTK_REAL dyz TYPE=gf TAGS='index={0 1 1} rhs="dtdyz"' "Electric flux"
CCTK_REAL dzx TYPE=gf TAGS='index={1 0 1} rhs="dtdzx"' "Electric flux"
CCTK_REAL dxy TYPE=gf TAGS='index={1 1 0} rhs="dtdxy"' "Electric flux"

Replacement in Maxwell/interface.ccl at line 25 [3.1414]

B:BD[3.1831] → [3.1831:2053]

CCTK_REAL ax TYPE=gf TAGS='index={1 0 0} rhs="dtax"' "Magnetic potential"
CCTK_REAL ay TYPE=gf TAGS='index={0 1 0} rhs="dtay"' "Magnetic potential"
CCTK_REAL az TYPE=gf TAGS='index={0 0 1} rhs="dtaz"' "Magnetic potential"

[3.1831]

[3.2053]

CCTK_REAL byz TYPE=gf TAGS='index={0 1 1} rhs="dtbyz"' "Magnetic flux"
CCTK_REAL bzx TYPE=gf TAGS='index={1 0 1} rhs="dtbzx"' "Magnetic flux"
CCTK_REAL bxy TYPE=gf TAGS='index={1 1 0} rhs="dtbxy"' "Magnetic flux"

Deletion in Maxwell/interface.ccl at line 29 [3.1414]

B:BD[3.2054] → [3.2054:2482]

CCTK_REAL ex TYPE=gf TAGS='index={1 0 0} rhs="dtex"' "Electric field"
CCTK_REAL ey TYPE=gf TAGS='index={0 1 0} rhs="dtey"' "Electric field"
CCTK_REAL ez TYPE=gf TAGS='index={0 0 1} rhs="dtez"' "Electric field"
CCTK_REAL byz TYPE=gf TAGS='index={0 1 1} rhs="dtbyz"' "Magnetic field"
CCTK_REAL bzx TYPE=gf TAGS='index={1 0 1} rhs="dtbzx"' "Magnetic field"
CCTK_REAL bxy TYPE=gf TAGS='index={1 1 0} rhs="dtbxy"' "Magnetic field"

Replacement in Maxwell/interface.ccl at line 33 [3.1414]

B:BD[3.2491] → [3.2491:2573]

CCTK_REAL dtphi TYPE=gf TAGS='index={0 0 0} checkpoint="no"' "Electric potential"

[3.2491]

[3.2573]

CCTK_REAL dtdyz TYPE=gf TAGS='index={0 1 1} checkpoint="no"' "Electric flux RHS"
CCTK_REAL dtdzx TYPE=gf TAGS='index={1 0 1} checkpoint="no"' "Electric flux RHS"
CCTK_REAL dtdxy TYPE=gf TAGS='index={1 1 0} checkpoint="no"' "Electric flux RHS"

Replacement in Maxwell/interface.ccl at line 37 [3.1414]

B:BD[3.2574] → [3.2574:2817]

CCTK_REAL dtax TYPE=gf TAGS='index={1 0 0} checkpoint="no"' "Magnetic potential"
CCTK_REAL dtay TYPE=gf TAGS='index={0 1 0} checkpoint="no"' "Magnetic potential"
CCTK_REAL dtaz TYPE=gf TAGS='index={0 0 1} checkpoint="no"' "Magnetic potential"

[3.2574]

[3.2817]

CCTK_REAL dtbyz TYPE=gf TAGS='index={0 1 1} checkpoint="no"' "Magnetic flux RHS"
CCTK_REAL dtbzx TYPE=gf TAGS='index={1 0 1} checkpoint="no"' "Magnetic flux RHS"
CCTK_REAL dtbxy TYPE=gf TAGS='index={1 1 0} checkpoint="no"' "Magnetic flux RHS"

Deletion in Maxwell/interface.ccl at line 41 [3.1414]

B:BD[3.2818] → [3.2818:3049]

CCTK_REAL dtex TYPE=gf TAGS='index={1 0 0} checkpoint="no"' "Electric field"
CCTK_REAL dtey TYPE=gf TAGS='index={0 1 0} checkpoint="no"' "Electric field"
CCTK_REAL dtez TYPE=gf TAGS='index={0 0 1} checkpoint="no"' "Electric field"

Deletion in Maxwell/interface.ccl at line 42 [3.1414]

B:BD[3.3050] → [3.3050:3284]

CCTK_REAL dtbyz TYPE=gf TAGS='index={0 1 1} checkpoint="no"' "Magnetic field"
CCTK_REAL dtbzx TYPE=gf TAGS='index={1 0 1} checkpoint="no"' "Magnetic field"
CCTK_REAL dtbxy TYPE=gf TAGS='index={1 1 0} checkpoint="no"' "Magnetic field"

Deletion in Maxwell/interface.ccl at line 43 [3.1414]
B:BD[3.3285] → [3.3285:3287]

Replacement in Maxwell/interface.ccl at line 45 [3.1414]

B:BD[3.3302] → [2.1446:1731]

∅:D[2.1731] → [3.3584:3667]

B:BD[3.3584] → [3.3584:3667]

CCTK_REAL curlayz TYPE=gf TAGS='index={0 1 1} checkpoint="no"' "Magnetic potential constraint"
CCTK_REAL curlazx TYPE=gf TAGS='index={1 0 1} checkpoint="no"' "Magnetic potential constraint"
CCTK_REAL curlaxy TYPE=gf TAGS='index={1 1 0} checkpoint="no"' "Magnetic potential constraint"
CCTK_REAL dive TYPE=gf TAGS='index={0 0 0} checkpoint="no"' "Electric constraint"

[3.3302]

[3.3667]

CCTK_REAL divd TYPE=gf TAGS='index={1 1 1} checkpoint="no"' "Electric constraint"

Replacement in Maxwell/interface.ccl at line 53 [3.1414]

B:BD[2.1761] → [2.1761:2553]

CCTK_REAL avgphi TYPE=gf TAGS='checkpoint="no"' "Averaged electric potential"
CCTK_REAL avga TYPE=gf TAGS='checkpoint="no"' { avgax avgay avgaz } "Averaged magnetic potential"
CCTK_REAL avge TYPE=gf TAGS='checkpoint="no"' { avgex avgey avgez } "Averaged electric field"
CCTK_REAL avgb TYPE=gf TAGS='checkpoint="no"' { avgbyz avgbzx avgbxy } "Averaged magnetic field"
CCTK_REAL avgcurla TYPE=gf TAGS='checkpoint="no"'  { avgcurlyz avgcurlzx avgcurlxy } "Averaged magnetic potential constraint"
CCTK_REAL avgdive TYPE=gf TAGS='checkpoint="no"' "Averaged electric constraint"
CCTK_REAL avgdivb TYPE=gf TAGS='checkpoint="no"' "Averaged magnetic constraint"
# CCTK_REAL phi1 TYPE=gf TAGS='index={0 0 0}' "Electric potential"
# CCTK_REAL dive1 TYPE=gf TAGS='index={0 0 0}' "Electric constraint"

[2.1761]

CCTK_REAL avgd TYPE=gf TAGS='checkpoint="no"' { avgdyz avgdzx avgdxy } "Cell-averaged electric flux"
CCTK_REAL avgb TYPE=gf TAGS='checkpoint="no"' { avgbyz avgbzx avgbxy } "Cell-averaged magnetic flux"

File move: maxwell-gaussian.par → maxwell.par
BF:BFD[3.3757] → [3.3758:3780]
[3.3757]
[3.3781]
Insertion in Maxwell/par/maxwell.par at line 3 [3.3781]
[3.3811]
[3.3811]
```
    ErrorEstimator
```
Replacement in Maxwell/par/maxwell.par at line 12 [3.3781]
B:BD[3.3902] → [2.2554:2577]
```
$nlevels = 2   #TODO 3
```
[3.3902]
[2.2577]
```
$nlevels = 3
```
Replacement in Maxwell/par/maxwell.par at line 18 [3.3781]
B:BD[3.4070] → [2.2591:2631]
```
Cactus::cctk_final_time = 0   #TODO 1.0
```
[3.4070]
[3.4100]
```
Cactus::cctk_final_time = 1.0
```
Replacement in Maxwell/par/maxwell.par at line 20 [3.3781]
B:BD[3.4101] → [2.2632:2665]
```
CarpetX::verbose = no   #TODO no
```
[3.4101]
[3.4135]
```
CarpetX::verbose = no
```
Replacement in Maxwell/par/maxwell.par at line 38 [3.3781]
B:BD[3.4451] → [2.2705:2763]
```
CarpetX::prolongation_type = "ddf"   # was "conservative"
```
[3.4451]
[3.4495]
```
CarpetX::prolongation_type = "ddf"
```

Replacement in Maxwell/par/maxwell.par at line 56 [3.3781]

B:BD[3.4917] → [2.2866:2927]

IO::out_every = 1   #TODO $ncells * 2 ** ($nlevels - 1) / 32

[3.4917]

[3.4968]

IO::out_every = $ncells * 2 ** ($nlevels - 1) / 32

Replacement in Maxwell/par/maxwell.par at line 58 [3.3781]
B:BD[3.4969] → [2.2928:2962]
```
CarpetX::out_tsv = yes   #TODO no
```
[3.4969]
[3.4991]
```
CarpetX::out_tsv = no
```

Replacement in Maxwell/par/maxwell.par at line 60 [3.3781]

B:BD[3.4992] → [2.2963:3033]

TimerReport::out_every = 0   #TODO $ncells * 2 ** ($nlevels - 1) / 32

[3.4992]

[3.5052]

TimerReport::out_every = $ncells * 2 ** ($nlevels - 1) / 32

Deletion in Maxwell/param.ccl at line 7 [3.5230]
B:BD[3.5355] → [2.3034:3058]
```
  "triangle wave" :: ""
```
Deletion in Maxwell/param.ccl at line 43 [3.5230]
B:BD[3.5799] → [2.3074:3144]
```
CCTK_INT num_coefficients "number of coefficients"
{
  0:* :: ""
} 3
```
Replacement in Maxwell/schedule.ccl at line 3 [3.5933]
B:BD[3.5976] → [3.5976:6025]
```
STORAGE: phi
STORAGE: ax ay az
STORAGE: ex ey ez
```
[3.5976]
[3.6025]
```
STORAGE: dyz dzx dxy
```
Replacement in Maxwell/schedule.ccl at line 6 [3.5933]
B:BD[3.6047] → [3.6047:6110]
```
STORAGE: dtphi
STORAGE: dtax dtay dtaz
STORAGE: dtex dtey dtez
```
[3.6047]
[3.6110]
```
STORAGE: dtdyz dtdzx dtdxy
```
Replacement in Maxwell/schedule.ccl at line 9 [3.5933]
B:BD[3.6138] → [3.6138:6152]
```
STORAGE: dive
```
[3.6138]
[3.6152]
```
STORAGE: divd
```
Deletion in Maxwell/schedule.ccl at line 11 [3.5933]
B:BD[3.6166] → [2.3145:3178]
```
STORAGE: curlayz curlazx curlaxy
```
Replacement in Maxwell/schedule.ccl at line 12 [3.5933]
B:BD[2.3179] → [2.3179:3223]
```
STORAGE: avgphi
STORAGE: avga
STORAGE: avge
```
[2.3179]
[2.3223]
```
STORAGE: avgd
```
Deletion in Maxwell/schedule.ccl at line 14 [3.5933]
B:BD[2.3237] → [2.3237:3289]
```
STORAGE: avgcurla
STORAGE: avgdive
STORAGE: avgdivb
```

Replacement in Maxwell/schedule.ccl at line 22 [3.5933]

B:BD[3.6239] → [3.6239:6361]

  WRITES: phi(interior)
  WRITES: ax(interior) ay(interior) az(interior)
  WRITES: ex(interior) ey(interior) ez(interior)

[3.6239]

[3.6361]

  WRITES: dyz(interior) dzx(interior) dxy(interior)

Replacement in Maxwell/schedule.ccl at line 24 [3.5933]
B:BD[3.6413] → [3.6413:6459]
```
  SYNC: phi
  SYNC: ax ay az
  SYNC: ex ey ez
```
[3.6413]
[3.6459]
```
  SYNC: dyz dzx dxy
```

Replacement in Maxwell/schedule.ccl at line 26 [3.5933]

B:BD[3.6479] → [3.6479:6515]

B:BD[3.6515] → [2.3290:5462]

∅:D[2.5462] → [3.6515:6516]

B:BD[3.6515] → [3.6515:6516]

B:BD[3.6516] → [2.5463:5773]

} "Set up hydro initial conditions"
# SCHEDULE Maxwell_EstimateError AT postinitial
# {
#   LANG: C
#   READS: phi(everywhere)
#   READS: ax(everywhere) ay(everywhere) az(everywhere)
#   READS: ex(everywhere) ey(everywhere) ez(everywhere)
#   READS: byz(everywhere) bzx(everywhere) bxy(everywhere)
#   WRITES: CarpetX::regrid_error(interior)
# } "Estimate local error for regridding initial conditions"
# SCHEDULE Maxwell_Constraints AT postinitial
# {
#   LANG: C
#   READS: ax(interior) ay(interior) az(interior)
#   READS: ex(everywhere) ey(everywhere) ez(everywhere)
#   READS: byz(interior) bzx(interior) bxy(interior)
#   WRITES: curlayz(interior) curlazx(interior) curlaxy(interior)
#   WRITES: dive(interior)
#   WRITES: divb(interior)
#   SYNC: curlayz curlazx curlaxy
#   SYNC: dive
#   SYNC: divb
# } "Calculate constraints"
# 
# SCHEDULE Maxwell_Solve AT postinitial AFTER Maxwell_Constraints
# {
#   LANG: C
#   OPTIONS: global
#   READS: dive(interior)
#   WRITES: phi1(interior)
#   # WRITES: dive1(interior)
# } "Solve div E constraint"
# 
# SCHEDULE Maxwell_UpdatePhi AT postinitial AFTER Maxwell_Solve
# {
#   LANG: C
#   READS: phi(interior)
#   READS: phi1(interior)
#   WRITES: phi(interior)
#   INVALIDATES: phi1(interior)
#   # INVALIDATES: dive1(interior)
#   INVALIDATES: curlayz(everywhere) curlazx(everywhere) curlaxy(everywhere)
#   INVALIDATES: dive(everywhere)
#   INVALIDATES: divb(everywhere)
#   SYNC: phi
# } "Update electric potential"
# SCHEDULE Maxwell_Average AT postinitial AFTER Maxwell_Constraints
# {
#   LANG: C
#   READS: phi(interior)
#   READS: ax(interior) ay(interior) az(interior)
#   READS: ex(interior) ey(interior) ez(interior)
#   READS: byz(interior) bzx(interior) bxy(interior)
#   READS: curlayz(interior) curlazx(interior) curlaxy(interior)
#   READS: dive(interior)
#   READS: divb(interior)
#   WRITES: avgphi(interior)
#   WRITES: avga(interior)
#   WRITES: avge(interior)
#   WRITES: avgb(interior)
#   WRITES: avgcurla(interior)
#   WRITES: avgdive(interior)
#   WRITES: avgdivb(interior)
#   SYNC: avgphi
#   SYNC: avga
#   SYNC: avge
#   SYNC: avgb
#   SYNC: avgcurla
#   SYNC: avgdive
#   SYNC: avgdivb
# } "Average to cell-centred values"
SCHEDULE Maxwell_EstimateError AT postinitial AFTER (Maxwell_Average, Maxwell_Solve)
{
  LANG: C
  # READS: avgphi(everywhere)
  # READS: avga(everywhere)
  # READS: avge(everywhere)
  # READS: avgb(everywhere)
  WRITES: CarpetX::regrid_error(interior)
} "Estimate local error for regridding during evolution"

[3.6479]

[3.6516]

} "Set up initial conditions"

Replacement in Maxwell/schedule.ccl at line 35 [3.5933]
B:BD[3.6586] → [3.6586:6632]
```
  SYNC: phi
  SYNC: ax ay az
  SYNC: ex ey ez
```
[3.6586]
[3.6632]
```
  SYNC: dyz dzx dxy
```

Replacement in Maxwell/schedule.ccl at line 46 [3.5933]

B:BD[3.6754] → [3.6754:6879]

  READS: phi(interior)
  READS: ax(everywhere) ay(everywhere) az(everywhere)
  READS: ex(interior) ey(interior) ez(interior)

[3.6754]

[3.6879]

  READS: dyz(everywhere) dzx(everywhere) dxy(everywhere)

Replacement in Maxwell/schedule.ccl at line 48 [3.5933]

B:BD[3.6936] → [3.6936:7072]

  WRITES: dtphi(interior)
  WRITES: dtax(interior) dtay(interior) dtaz(interior)
  WRITES: dtex(interior) dtey(interior) dtez(interior)

[3.6936]

[3.7072]

  WRITES: dtdyz(interior) dtdzx(interior) dtdxy(interior)

Replacement in Maxwell/schedule.ccl at line 50 [3.5933]

B:BD[3.7130] → [3.7130:7256]

  SYNC: dtphi
  SYNC: dtax dtay dtaz
  SYNC: dtex dtey dtez
  SYNC: dtbyz dtbzx dtbxy       # we could calculate B everywhere

[3.7130]

[3.7256]

  SYNC: dtdyz dtdzx dtdxy
  SYNC: dtbyz dtbzx dtbxy

Replacement in Maxwell/schedule.ccl at line 61 [3.5933]

B:BD[3.7342] → [3.7342:7495]

B:BD[3.7495] → [2.5776:5840]

∅:D[2.5840] → [3.7556:7581]

B:BD[3.7556] → [3.7556:7581]

  READS: ax(interior) ay(interior) az(interior)
  READS: ex(everywhere) ey(everywhere) ez(everywhere)
  READS: byz(interior) bzx(interior) bxy(interior)
  WRITES: curlayz(interior) curlazx(interior) curlaxy(interior)
  WRITES: dive(interior)

[3.7342]

[3.7581]

  READS: dyz(everywhere) dzx(everywhere) dxy(everywhere)
  READS: byz(everywhere) bzx(everywhere) bxy(everywhere)
  WRITES: divd(interior)

Insertion in Maxwell/schedule.ccl at line 65 [3.5933]
[3.7606]
[3.7606]
```
  SYNC: divd
  SYNC: divb
```

Deletion in Maxwell/schedule.ccl at line 68 [3.5933]

B:BD[3.7632] → [2.5841:6204]


# SCHEDULE Maxwell_EstimateError AT poststep
# {
#   LANG: C
#   READS: phi(everywhere)
#   READS: ax(everywhere) ay(everywhere) az(everywhere)
#   READS: ex(everywhere) ey(everywhere) ez(everywhere)
#   READS: byz(everywhere) bzx(everywhere) bxy(everywhere)
#   WRITES: CarpetX::regrid_error(interior)
# } "Estimate local error for regridding during evolution"

Replacement in Maxwell/schedule.ccl at line 69 [3.5933]
B:BD[2.6205] → [2.6205:6268]
```
SCHEDULE Maxwell_Average AT poststep AFTER Maxwell_Constraints
```
[2.6205]
[2.6268]
```
SCHEDULE Maxwell_Average AT analysis
```

Replacement in Maxwell/schedule.ccl at line 72 [3.5933]

B:BD[2.6280] → [2.6280:6789]

  READS: phi(interior)
  READS: ax(interior) ay(interior) az(interior)
  READS: ex(interior) ey(interior) ez(interior)
  READS: byz(interior) bzx(interior) bxy(interior)
  READS: curlayz(interior) curlazx(interior) curlaxy(interior)
  READS: dive(interior)
  READS: divb(interior)
  WRITES: avgphi(interior)
  WRITES: avga(interior)
  WRITES: avge(interior)
  WRITES: avgb(interior)
  WRITES: avgcurla(interior)
  WRITES: avgdive(interior)
  WRITES: avgdivb(interior)
  SYNC: avgphi
  SYNC: avga
  SYNC: avge

[2.6280]

[2.6789]

  READS: dyz(everywhere) dzx(everywhere) dxy(everywhere)
  READS: byz(everywhere) bzx(everywhere) bxy(everywhere)
  WRITES: avgdyz(interior) avgdzx(interior) avgdxy(interior)
  WRITES: avgbyz(interior) avgbzx(interior) avgbxy(interior)
  SYNC: avgd

Replacement in Maxwell/schedule.ccl at line 78 [3.5933]

B:BD[2.6802] → [2.6802:7177]

  SYNC: avgcurla
  SYNC: avgdive
  SYNC: avgdivb
} "Average to cell-centred values"
SCHEDULE Maxwell_EstimateError AT poststep AFTER Maxwell_Average
{
  LANG: C
  # READS: avgphi(everywhere)
  # READS: avga(everywhere)
  # READS: avge(everywhere)
  # READS: avgb(everywhere)
  WRITES: CarpetX::regrid_error(interior)
} "Estimate local error for regridding during evolution"

[2.6802]

} "Average fluxes"

File deletion: MaxwellDiscrete2.nb

BF:BFD[3.7639] → [2.7178:7199]

BF:BFD[2.7199] → [2.7200:7200]

B:BD[2.7200] → [2.7201:164702]

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    157342,       3985]
NotebookOptionsPosition[    142358,       3734]
NotebookOutlinePosition[    142694,       3749]
CellTagsIndexPosition[    142651,       3746]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Maxwell", "Title",
 CellChangeTimes->{{3.783278666344694*^9, 
  3.783278667280623*^9}},ExpressionUUID->"5daa6eec-1c23-49f0-b677-\
398d3c0e5c87"],
Cell[CellGroupData[{
Cell["Derivatives", "Section",
 CellChangeTimes->{{3.7832790541636543`*^9, 
  3.783279057019659*^9}},ExpressionUUID->"309acfd7-df7c-43a1-8a14-\
7d4f1c14bc58"],
Cell[CellGroupData[{
Cell["Continuous", "Subsection",
 CellChangeTimes->{{3.7833355871611156`*^9, 
  3.783335588832024*^9}},ExpressionUUID->"2c77964e-4c6e-4ce0-951a-\
231d35518fc6"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dtc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
     "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7832880539881067`*^9, 3.7832881207522993`*^9}, {
  3.783342692863599*^9, 3.7833426973034353`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e531f5b9-3ce5-47e2-9af3-4efc822e79ad"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "t"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750528883*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"be0be999-0bac-49a0-80e1-0adc96ce93b2"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750537653*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"0ca7a915-c479-471a-8281-30755e3fc398"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "y"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750543111*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"971c4321-3df3-4ccb-aad1-6889d10326a1"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "z"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750548348*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"bbd55860-da07-4956-b9e2-f5526a441379"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete (d)", "Subsection",
 CellChangeTimes->{{3.78333559148041*^9, 
  3.7833355977003593`*^9}},ExpressionUUID->"9adcbc96-cbc1-4885-aa6a-\
95da0920c2e6"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dtp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{
         RowBox[{"t", "+", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dt"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", 
         RowBox[{"x", "+", "dx"}], ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dx"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", 
         RowBox[{"y", "+", "dy"}], ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dy"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", 
         RowBox[{"z", "+", "dz"}]}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dz"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.78327905819149*^9, 3.783279114768916*^9}, {
  3.7832792410522823`*^9, 3.783279261448201*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"558d86ab-6558-4a5e-8d99-1dab16026d83"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
       RowBox[{"t", "+", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dt"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750714368*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"0e0a1f4e-9af3-439d-8fec-57d0d425d843"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", 
       RowBox[{"x", "+", "dx"}], ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dx"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750718791*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"11d5d4a1-f2b1-4327-9b16-2b348c078e66"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", 
       RowBox[{"y", "+", "dy"}], ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dy"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750722776*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"6c28497c-44c2-4971-8adc-522399757fa3"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", 
       RowBox[{"z", "+", "dz"}]}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dz"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750726903*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"fc7eb8f0-9955-4bca-a320-afe5a7fc2b2a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete (*d*)", "Subsection",
 CellChangeTimes->{{3.7833356100210457`*^9, 
  3.783335613193626*^9}},ExpressionUUID->"ae90f738-5678-4909-92a2-\
326681337536"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dtm", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{
         RowBox[{"t", "-", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      ")"}], "/", "dt"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxm", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", 
         RowBox[{"x", "-", "dx"}], ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dx"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dym", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", 
         RowBox[{"y", "-", "dy"}], ",", "z"}], "]"}]}], ")"}], "/", "dy"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzm", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", 
         RowBox[{"z", "-", "dz"}]}], "]"}]}], ")"}], "/", "dz"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.783279123557006*^9, 3.783279140354414*^9}, {
  3.78327926509931*^9, 3.7832792770024967`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"b2df124e-fb05-4c17-8cfc-dfd976a00f20"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{
       RowBox[{"t", "-", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}]}], 
    "dt"]}], "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.784938750740046*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"65cd6d03-48ce-4862-9f31-21cdaeb95ae8"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", 
       RowBox[{"x", "-", "dx"}], ",", "y", ",", "z"}], "]"}]}], "dx"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.7849387507454023`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"224c8413-0885-4f4e-96e7-8f80fa2ae62d"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", 
       RowBox[{"y", "-", "dy"}], ",", "z"}], "]"}]}], "dy"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.784938750750112*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"ffe48bfd-2ef9-4022-ac47-6e6f8b13fb11"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", 
       RowBox[{"z", "-", "dz"}]}], "]"}]}], "dz"]}], "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.7849387507547913`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"301facbd-4155-450f-b31c-f8e3508006da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Continuum", "Section",
 CellChangeTimes->{{3.7832921364050426`*^9, 
  3.783292137643628*^9}},ExpressionUUID->"82737873-c38b-4079-9e72-\
759febe07267"],
Cell[CellGroupData[{
Cell["Ansatz", "Subsection",
 CellChangeTimes->{{3.7832786692233467`*^9, 
  3.783278670172369*^9}},ExpressionUUID->"7a610bbb-d444-4bc6-bd2f-\
33507cdeec50"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"phi", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"at", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ax", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"ax", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ay", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"ay", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Az", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"az", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.783293559923594*^9, 3.783293610009444*^9}, {
   3.783293643031323*^9, 3.783293670098229*^9}, {3.783297081931128*^9, 
   3.783297094640275*^9}, {3.783297137353818*^9, 3.783297145503969*^9}, {
   3.78329718385878*^9, 3.783297185302513*^9}, {3.783297216120719*^9, 
   3.783297217754815*^9}, {3.7832973813760843`*^9, 3.783297424572748*^9}, {
   3.783297474558353*^9, 3.783297504385687*^9}, {3.783297546962953*^9, 
   3.783297548798359*^9}, {3.783297623190208*^9, 3.7832976550449877`*^9}, {
   3.783298020719532*^9, 3.783298028896812*^9}, {3.783298152546899*^9, 
   3.783298160241498*^9}, 3.783298270049233*^9, {3.783298375760313*^9, 
   3.783298383690412*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"d86d17fa-1397-4732-8e2c-5f9e786218db"],
Cell[BoxData[
 RowBox[{"at", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", 
    RowBox[{"kx", " ", "x"}], "-", 
    RowBox[{"ky", " ", "y"}], "-", 
    RowBox[{"kz", " ", "z"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.783458583927294*^9, 3.783458796989012*^9, 
  3.783530556008945*^9, 3.784916050957971*^9, 3.7849265015879*^9, 
  3.7849274259917793`*^9, 3.784928203834056*^9, 3.784936801883614*^9, 
  3.784938750836995*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"2a4bfbb4-e839-4536-96d2-a90e0521ba7d"],
Cell[BoxData[
 RowBox[{"ax", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", 
    RowBox[{"kx", " ", "x"}], "-", 
    RowBox[{"ky", " ", "y"}], "-", 
    RowBox[{"kz", " ", "z"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.783458583927294*^9, 3.783458796989012*^9, 
  3.783530556008945*^9, 3.784916050957971*^9, 3.7849265015879*^9, 
  3.7849274259917793`*^9, 3.784928203834056*^9, 3.784936801883614*^9, 
  3.784938750843506*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"6de70322-a2b0-472d-9d02-6270b7996db7"],
Cell[BoxData[
 RowBox[{"ay", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", 
    RowBox[{"kx", " ", "x"}], "-", 
    RowBox[{"ky", " ", "y"}], "-", 
    RowBox[{"kz", " ", "z"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.783458583927294*^9, 3.783458796989012*^9, 
  3.783530556008945*^9, 3.784916050957971*^9, 3.7849265015879*^9, 
  3.7849274259917793`*^9, 3.784928203834056*^9, 3.784936801883614*^9, 
  3.784938750849689*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"13226659-13c9-4227-be4b-53e90f193b97"],
Cell[BoxData[
 RowBox[{"az", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", 
    RowBox[{"kx", " ", "x"}], "-", 
    RowBox[{"ky", " ", "y"}], "-", 
    RowBox[{"kz", " ", "z"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.783458583927294*^9, 3.783458796989012*^9, 
  3.783530556008945*^9, 3.784916050957971*^9, 3.7849265015879*^9, 
  3.7849274259917793`*^9, 3.784928203834056*^9, 3.784936801883614*^9, 
  3.78493875085676*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"9ebe0d71-20e9-4620-9ba0-1e6a78b06bd6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Lorenz gauge", "Subsection",
 CellChangeTimes->{{3.783278675932311*^9, 
  3.783278677989027*^9}},ExpressionUUID->"3ca731d6-e4ee-42ba-ba40-\
c37fe76f9659"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeL", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dtc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dxc", "[", "Ax", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dyc", "[", "Ay", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzc", "[", "Az", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.7832786280467653`*^9, 3.7832786396971073`*^9}, {
   3.783278695580089*^9, 3.783278790218914*^9}, {3.783279480319312*^9, 
   3.7832794853012457`*^9}, 3.7832977146054583`*^9, {3.783342722985669*^9, 
   3.783342762289012*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"3aca25ed-47d9-4a8d-94f1-587b412987d6"],
Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ax", " ", "kx"}], "+", 
    RowBox[{"ay", " ", "ky"}], "+", 
    RowBox[{"az", " ", "kz"}], "-", 
    RowBox[{"at", " ", "omega"}]}], ")"}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", 
    RowBox[{"kx", " ", "x"}], "-", 
    RowBox[{"ky", " ", "y"}], "-", 
    RowBox[{"kz", " ", "z"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.783458584018943*^9, 3.783458797084251*^9, 
  3.7835305560921783`*^9, 3.784916051110269*^9, 3.784926501697509*^9, 
  3.7849274260704517`*^9, 3.784928203914144*^9, 3.7849368019851017`*^9, 
  3.784938750940786*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"1f85ca5c-4a79-4431-9114-7d325bb5903e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"omegaL", "=", 
  RowBox[{"{", 
   RowBox[{"omega", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], "/", "at"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783298406145071*^9, 3.783298407550537*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"c46aa1fd-9e58-4d5f-babe-2b5fddbb2d4d"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"ax", " ", "kx"}], "+", 
     RowBox[{"ay", " ", "ky"}], "+", 
     RowBox[{"az", " ", "kz"}]}], "at"]}], "}"}]], "Output",
 CellChangeTimes->{3.783458584030664*^9, 3.7834587970974503`*^9, 
  3.783530556102255*^9, 3.784916051126195*^9, 3.7849265017073708`*^9, 
  3.784927426081574*^9, 3.78492820392487*^9, 3.784936801996333*^9, 
  3.784938750952591*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"e785f063-d02b-4ff7-a5e9-cbb4bee527db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeL", "/.", "omegaL"}]], "Input",
 CellChangeTimes->{{3.783278763705964*^9, 3.7832787941746397`*^9}, {
   3.7832972484958878`*^9, 3.783297253360993*^9}, 3.7832984126865187`*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"ff4d4a00-358c-4c0e-8728-89a6b4fb8505"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.783458584103804*^9, 3.7834587971688128`*^9, 
  3.783530556169647*^9, 3.784916051231578*^9, 3.7849265017990103`*^9, 
  3.784927426146573*^9, 3.784928203986271*^9, 3.78493680208035*^9, 
  3.7849387510377607`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"76e282b9-501e-4811-93af-7d9ae08585b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"atL", "=", 
  RowBox[{"{", 
   RowBox[{"at", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], "/", "omega"}]}], "}"}]}]], "Input",\
 CellChangeTimes->{{3.7849261146459723`*^9, 3.784926122458349*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"0de64bfa-32a4-4fc3-b8c9-7fb6f5dd26fe"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"at", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"ax", " ", "kx"}], "+", 
     RowBox[{"ay", " ", "ky"}], "+", 
     RowBox[{"az", " ", "kz"}]}], "omega"]}], "}"}]], "Output",
 CellChangeTimes->{3.784926122800357*^9, 3.7849265018165207`*^9, 
  3.784927426163952*^9, 3.784928204004326*^9, 3.7849368020982523`*^9, 
  3.784938751056059*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"c9d98cbd-0a0a-48b0-9c4d-d9f9f1d57597"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeL", "/.", "atL"}]], "Input",
 CellChangeTimes->{{3.783278763705964*^9, 3.7832787941746397`*^9}, {
   3.7832972484958878`*^9, 3.783297253360993*^9}, 3.7832984126865187`*^9, {
   3.784926131269825*^9, 3.784926131757403*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"745776bb-1060-4fcc-b4a3-b53d4bd2d45d"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.783458584103804*^9, 3.7834587971688128`*^9, 
  3.783530556169647*^9, 3.784916051231578*^9, 3.784926132093837*^9, 
  3.784926501913939*^9, 3.784927426230124*^9, 3.7849282040682573`*^9, 
  3.784936802185281*^9, 3.7849387511456842`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"e2a7050e-fcd5-42de-9897-b07c5e1c5532"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Fields", "Subsection",
 CellChangeTimes->{{3.7832920875212*^9, 
  3.783292088741645*^9}},ExpressionUUID->"b96c20a8-4bd1-47b9-9d6b-\
67dea3fe4fc2"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Ex", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dxc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "Ax", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ey", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dyc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "Ay", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ez", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dzc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "Az", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7832920906913013`*^9, 3.783292103336358*^9}, {
  3.783297309924884*^9, 3.783297333304551*^9}, {3.783342767985236*^9, 
  3.7833427718350058`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"3ce44874-35b2-4bf1-b923-88d4b1364353"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "at"}], " ", "kx", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}], "+", 
  RowBox[{"ax", " ", "omega", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.783458584117043*^9, 3.783458797182013*^9, 
  3.7835305561809397`*^9, 3.784916051252658*^9, 3.784926502447402*^9, 
  3.784927426257268*^9, 3.78492820408825*^9, 3.7849368022033052`*^9, 
  3.784938751751162*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"fd601a66-373e-42de-afde-958f6708bd62"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "at"}], " ", "ky", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}], "+", 
  RowBox[{"ay", " ", "omega", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.783458584117043*^9, 3.783458797182013*^9, 
  3.7835305561809397`*^9, 3.784916051252658*^9, 3.784926502447402*^9, 
  3.784927426257268*^9, 3.78492820408825*^9, 3.7849368022033052`*^9, 
  3.784938751758111*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"8196555a-e6e6-4a34-b8bf-0f0b58180735"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "at"}], " ", "kz", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}], "+", 
  RowBox[{"az", " ", "omega", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.783458584117043*^9, 3.783458797182013*^9, 
  3.7835305561809397`*^9, 3.784916051252658*^9, 3.784926502447402*^9, 
  3.784927426257268*^9, 3.78492820408825*^9, 3.7849368022033052`*^9, 
  3.784938751764441*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"c0a1e1f8-aece-4d8b-9625-fbeb23bcdb13"]
}, Open  ]],
Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Bx", " ", "=", " ", "Byz"}], ",", " ", 
   RowBox[{"By", " ", "=", " ", "Bzx"}], ",", " ", 
   RowBox[{"Bz", " ", "=", " ", "Bxy"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.783297799358304*^9, 3.7832978197269487`*^9}, {
  3.783335684716264*^9, 3.783335691544757*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"86408b88-fca3-444e-a934-ef71a469abbc"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Byz", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dyc", "[", "Az", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dzc", "[", "Ay", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bzx", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dzc", "[", "Ax", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dxc", "[", "Az", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxy", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dxc", "[", "Ay", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dyc", "[", "Ax", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.783297781024535*^9, 3.783297784175955*^9}, {
  3.783297833322309*^9, 3.7832979380086603`*^9}, {3.7833427776474733`*^9, 
  3.783342781107462*^9}, {3.7849266937818403`*^9, 3.784926696803831*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"cad26d85-7c12-44de-9431-f87ccc967c05"],
Cell[BoxData[
 RowBox[{
  RowBox[{"az", " ", "ky", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}], "-", 
  RowBox[{"ay", " ", "kz", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.783458584207567*^9, 3.783458797271298*^9, 
  3.783530556259944*^9, 3.7849160513956347`*^9, 3.784926502746584*^9, 
  3.784926697733878*^9, 3.784927426925686*^9, 3.784928204698098*^9, 
  3.7849368023069344`*^9, 3.784938751979926*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"d3ce27ee-4452-44b5-906b-2481c879c029"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "az"}], " ", "kx", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}], "+", 
  RowBox[{"ax", " ", "kz", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.783458584207567*^9, 3.783458797271298*^9, 
  3.783530556259944*^9, 3.7849160513956347`*^9, 3.784926502746584*^9, 
  3.784926697733878*^9, 3.784927426925686*^9, 3.784928204698098*^9, 
  3.7849368023069344`*^9, 3.784938751986661*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"634a0da9-8b3f-4452-a1ab-3ca12883139c"],
Cell[BoxData[
 RowBox[{
  RowBox[{"ay", " ", "kx", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}], "-", 
  RowBox[{"ax", " ", "ky", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"omega", " ", "t"}], "-", 
     RowBox[{"kx", " ", "x"}], "-", 
     RowBox[{"ky", " ", "y"}], "-", 
     RowBox[{"kz", " ", "z"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.783458584207567*^9, 3.783458797271298*^9, 
  3.783530556259944*^9, 3.7849160513956347`*^9, 3.784926502746584*^9, 
  3.784926697733878*^9, 3.784927426925686*^9, 3.784928204698098*^9, 
  3.7849368023069344`*^9, 3.784938751993395*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"12208d92-b00e-4dfe-aaeb-3d4875f83678"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choice1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"kx", "\[Rule]", "1"}], ",", 
    RowBox[{"ky", "\[Rule]", "0"}], ",", 
    RowBox[{"kz", "\[Rule]", "0"}], ",", 
    RowBox[{"ax", "\[Rule]", "0"}], ",", 
    RowBox[{"ay", "\[Rule]", "0"}], ",", 
    RowBox[{"az", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783293690479371*^9, 3.783293697319968*^9}, {
   3.783297112634514*^9, 3.7832971156012297`*^9}, {3.7832971518157673`*^9, 
   3.783297153095839*^9}, {3.783297225648275*^9, 3.783297265671896*^9}, 
   3.783297482690221*^9, {3.7832975180031776`*^9, 3.7832975271096973`*^9}, {
   3.783297663436022*^9, 3.783297665769375*^9}, {3.783297721026963*^9, 
   3.783297723035541*^9}, {3.783298034144896*^9, 3.783298036111335*^9}, {
   3.783298189823325*^9, 3.783298209254932*^9}, {3.783298352444013*^9, 
   3.783298368388586*^9}, {3.783298434311064*^9, 3.783298449213387*^9}, {
   3.783349842646282*^9, 3.783349854362007*^9}, {3.784925831965479*^9, 
   3.784925887854484*^9}, 3.784926142118132*^9, {3.78492618329879*^9, 
   3.7849261955725527`*^9}, {3.784926423171694*^9, 3.784926424693924*^9}, 
   3.784926738473052*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"67a36832-fec5-4dc4-95af-29f823cb758e"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"kx", "\[Rule]", "1"}], ",", 
   RowBox[{"ky", "\[Rule]", "0"}], ",", 
   RowBox[{"kz", "\[Rule]", "0"}], ",", 
   RowBox[{"ax", "\[Rule]", "0"}], ",", 
   RowBox[{"ay", "\[Rule]", "0"}], ",", 
   RowBox[{"az", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784925844997364*^9, {3.784925875622726*^9, 3.784925888993204*^9}, 
   3.784926143163872*^9, {3.78492618611799*^9, 3.784926196613308*^9}, {
   3.784926401303854*^9, 3.784926425057732*^9}, 3.784926502773642*^9, 
   3.7849267393753347`*^9, 3.784927427125629*^9, 3.7849282048902893`*^9, 
   3.7849368024065933`*^9, 3.78493875200848*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"db15c614-5820-47e8-8a3e-e66cb1c8e8ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choice2", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"kx", "\[Rule]", "1"}], ",", 
    RowBox[{"ky", "\[Rule]", "0"}], ",", 
    RowBox[{"kz", "\[Rule]", "0"}], ",", 
    RowBox[{"ax", "\[Rule]", "0"}], ",", 
    RowBox[{"ay", "\[Rule]", "0"}], ",", 
    RowBox[{"az", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.784926197400957*^9, 3.784926240338882*^9}, {
  3.784926443957716*^9, 3.784926445097734*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"a9debbc4-df26-4aae-a474-291813135398"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"kx", "\[Rule]", "1"}], ",", 
   RowBox[{"ky", "\[Rule]", "0"}], ",", 
   RowBox[{"kz", "\[Rule]", "0"}], ",", 
   RowBox[{"ax", "\[Rule]", "0"}], ",", 
   RowBox[{"ay", "\[Rule]", "0"}], ",", 
   RowBox[{"az", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784926210881054*^9, {3.784926402773844*^9, 3.7849264455004683`*^9}, 
   3.784926502870956*^9, 3.784926741270917*^9, 3.784927427189045*^9, 
   3.784928204950227*^9, 3.784936802421217*^9, 3.7849387520950747`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"68621bf2-4d5b-4f1d-81b9-4ceff460d181"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ex", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ey", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ez", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Byz", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bzx", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bxy", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}]}], "Input",
 CellChangeTimes->{{3.783297319872204*^9, 3.783297345381654*^9}, {
  3.783298459026963*^9, 3.7832984835732203`*^9}, {3.783349844753883*^9, 
  3.7833498471186333`*^9}, {3.784926213171278*^9, 3.784926217761086*^9}, {
  3.7849265255484943`*^9, 3.784926528921398*^9}, {3.784926752636107*^9, 
  3.78492675565306*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"add04d04-1654-491b-a827-41ceefda6ef9"],
Cell[BoxData[
 RowBox[{"at", " ", 
  RowBox[{"Sin", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"a14d8857-d72e-451c-b761-d57920cb3abe"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.784938752121482*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"ef879e95-f7ea-4725-ae95-e320c8fbd678"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.784938752128508*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"8d3a280c-55d4-4a4a-9197-432ae4320a21"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.784938752135326*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"b34133d7-0c66-4145-b7b5-517481fc2296"],
Cell[BoxData[
 RowBox[{"Sin", "[", "x", "]"}]], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521419067`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"6107771c-f3a0-4ac6-954a-94ff4cc05ff4"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.784938752148238*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"3c3df83d-2c85-491b-ab13-28b021bf0601"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ex", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ey", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ez", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Byz", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bzx", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bxy", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}]}], "Input",
 CellChangeTimes->{{3.783297319872204*^9, 3.783297345381654*^9}, {
  3.783298459026963*^9, 3.7832984835732203`*^9}, {3.783349844753883*^9, 
  3.7833498471186333`*^9}, {3.7849261598376293`*^9, 3.784926168020496*^9}, {
  3.784926220214274*^9, 3.7849262218279667`*^9}, {3.784926534742145*^9, 
  3.784926535029398*^9}, {3.784926778102304*^9, 3.784926780424179*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"f2cd7571-c585-4a95-b4b4-a5a4b68583b7"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"0c365790-6e79-4804-aca2-7f594b09ed39"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752237627*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"18619c97-80d2-4104-9ed8-d4f56ac63a3b"],
Cell[BoxData[
 RowBox[{"omega", " ", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752247864*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"76f3173e-216e-4e53-8c26-73ad2136ee49"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752258216*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"6cbd7ba2-aa16-4f27-bf2e-7b97531f8962"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752268317*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"55495989-b819-4cb8-a13e-5b97550ee21f"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.78493875227789*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"d6bd1721-743b-43db-82fe-66d68c2f055c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Constraints", "Subsection",
 CellChangeTimes->{{3.7832921254459267`*^9, 
  3.78329212647818*^9}},ExpressionUUID->"3e3e5b4c-6626-4ade-94ff-\
c17b9d2ed6fc"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"divE", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dxc", "[", "Ex", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dyc", "[", "Ey", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzc", "[", "Ez", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.783292145366837*^9, 3.783292156719739*^9}, {
  3.783293248862955*^9, 3.783293251332283*^9}, {3.783298055147312*^9, 
  3.783298067068664*^9}, {3.783342792902832*^9, 3.783342797289362*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"3ec05bb6-1fb5-4c17-b7f5-ba3dbf17794b"],
Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"at", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["kx", "2"], "+", 
       SuperscriptBox["ky", "2"], "+", 
       SuperscriptBox["kz", "2"]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], " ", "omega"}]}], ")"}], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"omega", " ", "t"}], "-", 
    RowBox[{"kx", " ", "x"}], "-", 
    RowBox[{"ky", " ", "y"}], "-", 
    RowBox[{"kz", " ", "z"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.784926853580351*^9, 3.784927427402955*^9, 
  3.7849282051647787`*^9, 3.7849368026914*^9, 3.784938753113062*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"d84c85b2-54e2-4be7-a05b-74de0997736f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"ampV", "=", 
  RowBox[{"{", 
   RowBox[{"at", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ax", " ", "kx"}], "+", 
        RowBox[{"ay", " ", "ky"}], "+", 
        RowBox[{"az", " ", "kz"}]}], ")"}], " ", "omega"}], 
     RowBox[{
      SuperscriptBox["kx", "2"], "+", 
      SuperscriptBox["ky", "2"], "+", 
      SuperscriptBox["kz", "2"]}]]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783335999806149*^9, 3.7833360202528067`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"fc1c648a-d3b7-4b01-82e0-47fd8ce7ef08"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"at", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], " ", "omega"}], 
    RowBox[{
     SuperscriptBox["kx", "2"], "+", 
     SuperscriptBox["ky", "2"], "+", 
     SuperscriptBox["kz", "2"]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.783458585007352*^9, 3.783458798174803*^9, 
  3.783530557429388*^9, 3.7849160518838*^9, 3.7849265041453342`*^9, 
  3.7849265577389927`*^9, 3.784926854580278*^9, 3.7849274274159737`*^9, 
  3.784928205177919*^9, 3.7849368027938557`*^9, 3.784938753263118*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"34c114c4-0a66-4ac2-9baa-b4470fc37743"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"omegaV", "=", 
  RowBox[{"{", 
   RowBox[{"omega", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"at", " ", 
       SuperscriptBox["kx", "2"]}], "+", 
      RowBox[{"at", " ", 
       SuperscriptBox["ky", "2"]}], "+", 
      RowBox[{"at", " ", 
       SuperscriptBox["kz", "2"]}]}], 
     RowBox[{
      RowBox[{"ax", " ", "kx"}], "+", 
      RowBox[{"ay", " ", "ky"}], "+", 
      RowBox[{"az", " ", "kz"}]}]]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.784926265093534*^9, 3.784926266987812*^9}, {
  3.7849263197088013`*^9, 3.7849263216308947`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"cc2c411b-c45c-42c8-8e3b-a389827ce36a"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"at", " ", 
      SuperscriptBox["kx", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["ky", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["kz", "2"]}]}], 
    RowBox[{
     RowBox[{"ax", " ", "kx"}], "+", 
     RowBox[{"ay", " ", "ky"}], "+", 
     RowBox[{"az", " ", "kz"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784926324363162*^9, 3.784926504234408*^9, 
  3.784926559043366*^9, 3.78492685566693*^9, 3.7849274274807043`*^9, 
  3.784928205240254*^9, 3.7849368028096857`*^9, 3.784938753278738*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"050af189-92dd-42b2-87ba-88215658c525"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"divE", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "ampV"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{
  3.783335941316668*^9, 3.7833359816130667`*^9, {3.7833360182946997`*^9, 
   3.7833360190732183`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"66ae3881-741c-4285-83c9-df07089949bf"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.783458585077766*^9, 3.78345879824928*^9, 
  3.7835305574941998`*^9, 3.784916051901404*^9, 3.7849263267179117`*^9, 
  3.784926504249899*^9, 3.7849265623056192`*^9, 3.784926856791456*^9, 
  3.784927428303293*^9, 3.784928205256496*^9, 3.784936802898436*^9, 
  3.7849387533651047`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"1f470a43-cd47-464d-8745-01279d665aa6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"divE", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaV"}], "//",
   "FullSimplify"}]], "Input",
 CellChangeTimes->{
  3.783335941316668*^9, 3.7833359816130667`*^9, {3.7833360182946997`*^9, 
   3.7833360190732183`*^9}, {3.784926336393487*^9, 3.784926337963985*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"de367ade-a08a-4ceb-865e-90eab98840eb"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.784926338521921*^9, 3.784926504342019*^9, 
  3.784926563484861*^9, 3.784926859018317*^9, 3.784927428421389*^9, 
  3.7849282053199244`*^9, 3.784936802912953*^9, 3.784938753380718*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"9f544ca8-b6e1-4a24-9e46-012c913c61ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"divB", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dxc", "[", "Byz", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
   RowBox[{
    RowBox[{"dyc", "[", "Bzx", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
   RowBox[{
    RowBox[{"dzc", "[", "Bxy", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.783297945519575*^9, 3.7832979855263977`*^9}, {
  3.783298075108592*^9, 3.7832980825665417`*^9}, {3.783342808866626*^9, 
  3.783342813170476*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"cf793834-03c7-4ed8-9951-2fabe5943fa2"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7834585850922537`*^9, 3.783458798265827*^9, 
  3.783530558202355*^9, 3.784916051982232*^9, 3.784926504358815*^9, 
  3.784926564937158*^9, 3.784926861230139*^9, 3.784927428436758*^9, 
  3.784928206086213*^9, 3.7849368030004*^9, 3.784938753465213*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"70f77d65-444b-4282-9a1d-a704d4d44318"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete", "Section",
 CellChangeTimes->{{3.783292129717437*^9, 
  3.783292130884912*^9}},ExpressionUUID->"44546bb6-865c-4468-818f-\
feb9fca0ffff"],
Cell[CellGroupData[{
Cell["Discrete ansatz", "Subsection",
 CellChangeTimes->{{3.783279163636784*^9, 3.783279167157402*^9}, {
   3.783288028572418*^9, 3.783288032669345*^9}, 
   3.7832898006896057`*^9},ExpressionUUID->"37411d18-7a65-41f7-819d-\
7fb4d132f911"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"$Assumptions", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"dt", ">", "0"}], ",", 
    RowBox[{"dx", ">", "0"}], ",", 
    RowBox[{"dy", ">", "0"}], ",", 
    RowBox[{"dz", ">", "0"}], ",", 
    RowBox[{"omega", ">", "0"}], ",", 
    RowBox[{"kx", ">", "0"}], ",", 
    RowBox[{"ky", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"kz", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"at", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"ax", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"ay", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"az", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"otkx", "\[Element]", "Reals"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783342006184225*^9, 3.783342026591098*^9}, {
   3.783342831764945*^9, 3.783342837772032*^9}, {3.783344253945833*^9, 
   3.783344264513921*^9}, {3.783344418833343*^9, 3.783344430042726*^9}, {
   3.78334523752707*^9, 3.7833452378636837`*^9}, {3.783345615497766*^9, 
   3.783345618766365*^9}, {3.78334584676614*^9, 3.783345847694955*^9}, {
   3.783454812059046*^9, 3.7834548173865423`*^9}, 3.783457829663556*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"4f32fb19-bf12-424a-ba12-7f8845a4b931"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"dt", ">", "0"}], ",", 
   RowBox[{"dx", ">", "0"}], ",", 
   RowBox[{"dy", ">", "0"}], ",", 
   RowBox[{"dz", ">", "0"}], ",", 
   RowBox[{"omega", ">", "0"}], ",", 
   RowBox[{"kx", ">", "0"}], ",", 
   RowBox[{"ky", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"kz", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"at", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"ax", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"ay", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"az", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"otkx", "\[Element]", 
    TemplateBox[{},
     "Reals"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.783458585161968*^9, 3.783458798341215*^9, 
  3.783530558334055*^9, 3.784916052075119*^9, 3.784926504452387*^9, 
  3.7849274285015097`*^9, 3.784928206205501*^9, 3.7849284007647877`*^9, 
  3.784929371641809*^9, 3.784929475909142*^9, 3.784929569942583*^9, 
  3.784934524893918*^9, 3.78493680301508*^9, 3.784938753546048*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"9c286dcf-91b4-4957-b928-da3a5e29125c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"phiD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"at", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AxD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"ax", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AyD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"ay", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AzD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"az", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7849278819184647`*^9, 3.784927930138226*^9}, {
   3.784928703383206*^9, 3.784928723417822*^9}, 3.784929466563158*^9, {
   3.7849295107340317`*^9, 3.7849295133810863`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"61e1d3af-81c7-4629-8d10-134a0eda4efb"],
Cell[BoxData[
 RowBox[{"at", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753563616*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"e10f8882-2650-479d-ab3a-b6b51c811cba"],
Cell[BoxData[
 RowBox[{"ax", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753576962*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"d09131c6-8f87-4d6d-88b7-ac76448aad2f"],
Cell[BoxData[
 RowBox[{"ay", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753590173*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"99312245-dd95-41c2-82fd-cecc550ac1ba"],
Cell[BoxData[
 RowBox[{"az", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753603221*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"4b33c70c-afa9-4448-9468-4c9eaa18b121"]
}, Open  ]],
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"phiD", "[", 
     RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
    RowBox[{"at", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AxD", "[", 
     RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
    RowBox[{"ax", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AyD", "[", 
     RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
    RowBox[{"ay", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AzD", "[", 
     RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
    RowBox[{"az", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], "]"}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7849296361797867`*^9, 3.7849296512264853`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"588a42d3-59b4-4f7d-82b7-7d59b33bc5f5"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choiceD", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"omega", "\[Rule]", "1"}], ",", 
    RowBox[{"kx", "\[Rule]", "1"}], ",", 
    RowBox[{"ky", "\[Rule]", "0"}], ",", 
    RowBox[{"kz", "\[Rule]", "0"}], ",", 
    RowBox[{"at", "\[Rule]", "0"}], ",", 
    RowBox[{"ax", "\[Rule]", "0"}], ",", 
    RowBox[{"ay", "\[Rule]", "1"}], ",", 
    RowBox[{"az", "\[Rule]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7849259597542467`*^9, 3.7849259625674477`*^9}, {
   3.784926576506619*^9, 3.784926583785121*^9}, {3.7849269639361887`*^9, 
   3.784926974092251*^9}, {3.784928463923705*^9, 3.784928465806653*^9}, {
   3.784928816640049*^9, 3.784928817402258*^9}, {3.784928857220352*^9, 
   3.7849288590250807`*^9}, {3.784929356749961*^9, 3.784929367164022*^9}, 
   3.784933118158204*^9, 3.784933170715129*^9, {3.7849332029160967`*^9, 
   3.784933229874072*^9}, 3.784933830546213*^9, {3.78493399019615*^9, 
   3.784934049828381*^9}, {3.7849342209511433`*^9, 3.784934245743949*^9}, {
   3.784934363259612*^9, 3.784934379712887*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"ec1fd0f2-0b4a-4a3b-a3b8-b440d9b40139"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"omega", "\[Rule]", "1"}], ",", 
   RowBox[{"kx", "\[Rule]", "1"}], ",", 
   RowBox[{"ky", "\[Rule]", "0"}], ",", 
   RowBox[{"kz", "\[Rule]", "0"}], ",", 
   RowBox[{"at", "\[Rule]", "0"}], ",", 
   RowBox[{"ax", "\[Rule]", "0"}], ",", 
   RowBox[{"ay", "\[Rule]", "1"}], ",", 
   RowBox[{"az", "\[Rule]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784928859610223*^9, 3.78492937388026*^9, 3.784929483071019*^9, 
   3.784929571794755*^9, 3.7849296534475403`*^9, 3.7849322843074083`*^9, 
   3.784933119293952*^9, 3.784933171124814*^9, {3.78493321584337*^9, 
   3.784933230415573*^9}, 3.7849338319626503`*^9, 3.784933990724744*^9, {
   3.784934021407054*^9, 3.784934050174902*^9}, {3.784934223742136*^9, 
   3.784934251050124*^9}, {3.784934363742098*^9, 3.784934380324869*^9}, 
   3.784934527857833*^9, 3.784936803237864*^9, 3.784938753702379*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"eb80f515-7e87-48f8-ad11-2a429317768b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choiceD", "=", 
  RowBox[{"{", 
   RowBox[{"omega", "\[Rule]", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"kx", "^", "2"}], "+", 
      RowBox[{"ky", "^", "2"}], "+", 
      RowBox[{"kz", "^", "2"}]}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7849259597542467`*^9, 3.7849259625674477`*^9}, {
   3.784926576506619*^9, 3.784926583785121*^9}, {3.7849269639361887`*^9, 
   3.784926974092251*^9}, {3.784928463923705*^9, 3.784928465806653*^9}, {
   3.784928816640049*^9, 3.784928817402258*^9}, {3.784928857220352*^9, 
   3.7849288590250807`*^9}, {3.784929356749961*^9, 3.784929367164022*^9}, 
   3.784933118158204*^9, 3.784933170715129*^9, {3.7849332029160967`*^9, 
   3.784933229874072*^9}, 3.784933830546213*^9, {3.78493399019615*^9, 
   3.784934049828381*^9}, {3.7849342209511433`*^9, 3.784934245743949*^9}, {
   3.784934363259612*^9, 3.784934379712887*^9}, {3.7849350379108133`*^9, 
   3.784935061511662*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"f6ffa4b5-ec05-4dde-a0df-a07ecac4d1b9"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["kx", "2"], "+", 
     SuperscriptBox["ky", "2"], "+", 
     SuperscriptBox["kz", "2"]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784935061845069*^9, 3.784935138172163*^9, 
  3.784936803254672*^9, 3.784938753787303*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"2b70a76b-b5ea-437e-983c-78a929db9f7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choiceD", "=", 
  RowBox[{"{", "}"}]}]], "Input",
 CellChangeTimes->{{3.784936789625457*^9, 3.7849367942081547`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"8538f381-fe5c-4102-a65e-276ff2c11b51"],
Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.784936794871747*^9, 3.784936803344173*^9}, 
   3.784938753805874*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"fc418c07-329b-4641-99a8-a1d299ce207f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete fields", "Subsection",
 CellChangeTimes->{{3.783285746509993*^9, 3.7832857546283607`*^9}, {
   3.783288812056478*^9, 3.783288812804657*^9}, {3.7832889233908443`*^9, 
   3.783288926838377*^9}, 
   3.783290910300761*^9},ExpressionUUID->"87e31fb7-5245-4c18-b66b-\
3edbabb4119f"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ExD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dxp", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "AxD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EyD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dyp", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "AyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EzD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dzp", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "AzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ByzD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dyp", "[", "AzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dzp", "[", "AyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BzxD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dzp", "[", "AxD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dxp", "[", "AzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BxyD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dxp", "[", "AyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dyp", "[", "AxD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7832888238059187`*^9, 3.783288897574956*^9}, {
  3.783289003383407*^9, 3.783289016795307*^9}, {3.7832896305534363`*^9, 
  3.783289642989641*^9}, {3.783290928726963*^9, 3.783290932444375*^9}, {
  3.783336797739615*^9, 3.783336830783834*^9}, {3.7833414088660793`*^9, 
  3.7833414171311407`*^9}, {3.783342487160666*^9, 3.783342488260701*^9}, {
  3.783342907722822*^9, 3.783342909397377*^9}, {3.784928420299129*^9, 
  3.7849284239637938`*^9}, {3.784928741311902*^9, 3.784928741618229*^9}, {
  3.78493297399336*^9, 3.784933007162346*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"80b4a114-bd12-447e-bd3a-c6f6692b6719"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", 
           RowBox[{"(", 
            RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]}], "dx"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "ax", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "omega"}]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"62953f5d-9ff3-4776-8f59-4fb7f0f1eb61"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", 
           RowBox[{"(", 
            RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]}], "dy"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "ay", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "omega"}]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753907525*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"88844465-6aba-4de5-8e96-32207ac32697"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", 
           RowBox[{"(", 
            RowBox[{"dz", "+", "z"}], ")"}]}]}], ")"}]}]]}]}], "dz"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "az", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "omega"}]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.78493875391821*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"c66a723e-cc01-4ded-98c1-dc1dfc2a5325"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "az"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
    RowBox[{"az", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]}], "dy"], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ay"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
    RowBox[{"ay", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}], ")"}]}]]}]}], 
   "dz"]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753929191*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"979916f2-abe5-4929-8107-cd3757fa44fc"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "az"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
     RowBox[{"az", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", 
           RowBox[{"(", 
            RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]}], "dx"]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ax"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
    RowBox[{"ax", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}], ")"}]}]]}]}], 
   "dz"]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753940696*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"227cd0a1-47fb-4faa-91dd-2b7566adccf3"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ay"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
    RowBox[{"ay", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]}], "dx"], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ax"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}], "+", 
    RowBox[{"ax", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]}], "dy"]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753952409*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"b4eb9f8e-50dc-4e35-a34f-8fd84827c481"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ExD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EyD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EzD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ByzD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BzxD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BxyD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}]}], "Input",
 CellChangeTimes->{{3.784928129312604*^9, 3.784928139452436*^9}, {
  3.784929530188047*^9, 3.784929561030242*^9}, {3.784929716918702*^9, 
  3.7849297992945023`*^9}, {3.784932424199163*^9, 3.784932456212781*^9}, {
  3.784932492155108*^9, 3.784932574917667*^9}, {3.7849345528350267`*^9, 
  3.784934725265066*^9}, {3.784934851984462*^9, 3.7849349826085033`*^9}, {
  3.784935150628812*^9, 3.78493515104205*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"5fe7cb9b-9bc1-454c-80bf-7b3b0713bc73"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
      RowBox[{"(", 
       RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
        RowBox[{"(", 
         RowBox[{"dx", "+", "x"}], ")"}]}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
        RowBox[{"(", 
         RowBox[{"dx", "+", "x"}], ")"}]}]], " ", "omega"}]}], ")"}]}], 
  "dx"]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"45bed13c-9df2-4e4e-b249-42f3565329b0"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
      RowBox[{"(", 
       RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
        RowBox[{"(", 
         RowBox[{"dy", "+", "y"}], ")"}]}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ay", " ", "dy", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
        RowBox[{"(", 
         RowBox[{"dy", "+", "y"}], ")"}]}]], " ", "omega"}]}], ")"}]}], 
  "dy"]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.7849387539871197`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"6a80f4d7-abfb-4b07-8da8-c62c63f547d7"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
      RowBox[{"(", 
       RowBox[{"dz", "+", "z"}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
        RowBox[{"(", 
         RowBox[{"dz", "+", "z"}], ")"}]}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
        RowBox[{"(", 
         RowBox[{"dz", "+", "z"}], ")"}]}]], " ", "omega"}]}], ")"}]}], 
  "dz"]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938754000361*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"b3128cad-5288-4493-8853-22e6c3141700"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"dy", " ", "dz"}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
       RowBox[{"(", 
        RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
       RowBox[{"(", 
        RowBox[{"dz", "+", "z"}], ")"}]}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]]}], "-", 
      RowBox[{"az", " ", "dz", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "-", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "+", 
      RowBox[{"az", " ", "dz", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.78493875401362*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"6d72efef-ddd3-42bd-8682-58093402665a"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"dx", " ", "dz"}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
      RowBox[{"(", 
       RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
      RowBox[{"(", 
       RowBox[{"dz", "+", "z"}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
         RowBox[{"(", 
          RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]]}], "-", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
         RowBox[{"(", 
          RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "-", 
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
         RowBox[{"(", 
          RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
         RowBox[{"(", 
          RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "+", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
         RowBox[{"(", 
          RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
         RowBox[{"(", 
          RowBox[{"dz", "+", "z"}], ")"}]}]}]]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938754027136*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"90f96d2f-d840-4738-9c43-9aea15af9ecd"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"dx", " ", "dy"}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
       RowBox[{"(", 
        RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
       RowBox[{"(", 
        RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "dx", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}]}]]}], "-", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}]}]]}], "-", 
      RowBox[{"ax", " ", "dx", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}]}]]}], "+", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}]}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938754040682*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"d7fc21a4-d2d4-4d1b-b79c-6e44eade3ded"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ExD", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EyD", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EzD", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ByzD", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"BzxD", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"BxyD", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Factor"}]}], "Input",
 CellChangeTimes->{{3.784928129312604*^9, 3.784928139452436*^9}, {
  3.784929530188047*^9, 3.784929561030242*^9}, {3.784929716918702*^9, 
  3.7849297992945023`*^9}, {3.784932424199163*^9, 3.784932456212781*^9}, {
  3.784932492155108*^9, 3.784932574917667*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"ef7234e8-5107-4868-bb66-27ded90c6016"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
      RowBox[{"(", 
       RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
        RowBox[{"(", 
         RowBox[{"dx", "+", "x"}], ")"}]}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
        RowBox[{"(", 
         RowBox[{"dx", "+", "x"}], ")"}]}]], " ", "omega"}]}], ")"}]}], 
  "dx"]], "Output",
 CellChangeTimes->{{3.7849295620800667`*^9, 3.7849295947084417`*^9}, 
   3.784929656718995*^9, {3.784929722212633*^9, 3.7849297998292*^9}, 
   3.784932287925782*^9, {3.784932426694234*^9, 3.7849324573277493`*^9}, {
   3.7849324943501387`*^9, 3.784932516098001*^9}, {3.7849325509703207`*^9, 
   3.784932576580055*^9}, {3.784932981268571*^9, 3.78493301056647*^9}, 
   3.784933122780126*^9, 3.784933174578988*^9, {3.784933218677444*^9, 
   3.7849332328633623`*^9}, 3.7849338352319527`*^9, 3.78493399372473*^9, {
   3.7849340247569447`*^9, 3.7849340524754353`*^9}, {3.78493422666271*^9, 
   3.784934255587593*^9}, {3.78493436646741*^9, 3.784934383067924*^9}, 
   3.784934531292817*^9, 3.7849350698441057`*^9, 3.784935154922868*^9, 
   3.784936803659225*^9, 3.784938754135441*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"d591e43d-f5aa-4d34-985e-fa4a731a2a95"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
      RowBox[{"(", 
       RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
        RowBox[{"(", 
         RowBox[{"dy", "+", "y"}], ")"}]}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ay", " ", "dy", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
        RowBox[{"(", 
         RowBox[{"dy", "+", "y"}], ")"}]}]], " ", "omega"}]}], ")"}]}], 
  "dy"]], "Output",
 CellChangeTimes->{{3.7849295620800667`*^9, 3.7849295947084417`*^9}, 
   3.784929656718995*^9, {3.784929722212633*^9, 3.7849297998292*^9}, 
   3.784932287925782*^9, {3.784932426694234*^9, 3.7849324573277493`*^9}, {
   3.7849324943501387`*^9, 3.784932516098001*^9}, {3.7849325509703207`*^9, 
   3.784932576580055*^9}, {3.784932981268571*^9, 3.78493301056647*^9}, 
   3.784933122780126*^9, 3.784933174578988*^9, {3.784933218677444*^9, 
   3.7849332328633623`*^9}, 3.7849338352319527`*^9, 3.78493399372473*^9, {
   3.7849340247569447`*^9, 3.7849340524754353`*^9}, {3.78493422666271*^9, 
   3.784934255587593*^9}, {3.78493436646741*^9, 3.784934383067924*^9}, 
   3.784934531292817*^9, 3.7849350698441057`*^9, 3.784935154922868*^9, 
   3.784936803659225*^9, 3.784938754146347*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"d6c2651f-48c3-4dc4-8af7-248084ad130f"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
      RowBox[{"(", 
       RowBox[{"dz", "+", "z"}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
        RowBox[{"(", 
         RowBox[{"dz", "+", "z"}], ")"}]}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
        RowBox[{"(", 
         RowBox[{"dz", "+", "z"}], ")"}]}]], " ", "omega"}]}], ")"}]}], 
  "dz"]], "Output",
 CellChangeTimes->{{3.7849295620800667`*^9, 3.7849295947084417`*^9}, 
   3.784929656718995*^9, {3.784929722212633*^9, 3.7849297998292*^9}, 
   3.784932287925782*^9, {3.784932426694234*^9, 3.7849324573277493`*^9}, {
   3.7849324943501387`*^9, 3.784932516098001*^9}, {3.7849325509703207`*^9, 
   3.784932576580055*^9}, {3.784932981268571*^9, 3.78493301056647*^9}, 
   3.784933122780126*^9, 3.784933174578988*^9, {3.784933218677444*^9, 
   3.7849332328633623`*^9}, 3.7849338352319527`*^9, 3.78493399372473*^9, {
   3.7849340247569447`*^9, 3.7849340524754353`*^9}, {3.78493422666271*^9, 
   3.784934255587593*^9}, {3.78493436646741*^9, 3.784934383067924*^9}, 
   3.784934531292817*^9, 3.7849350698441057`*^9, 3.784935154922868*^9, 
   3.784936803659225*^9, 3.784938754158599*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"7aa076ee-8a7a-4397-af4e-bc5fe41fe5e2"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"dy", " ", "dz"}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "x"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
       RowBox[{"(", 
        RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
       RowBox[{"(", 
        RowBox[{"dz", "+", "z"}], ")"}]}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]]}], "-", 
      RowBox[{"az", " ", "dz", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "-", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "+", 
      RowBox[{"az", " ", "dz", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.7849295620800667`*^9, 3.7849295947084417`*^9}, 
   3.784929656718995*^9, {3.784929722212633*^9, 3.7849297998292*^9}, 
   3.784932287925782*^9, {3.784932426694234*^9, 3.7849324573277493`*^9}, {
   3.7849324943501387`*^9, 3.784932516098001*^9}, {3.7849325509703207`*^9, 
   3.784932576580055*^9}, {3.784932981268571*^9, 3.78493301056647*^9}, 
   3.784933122780126*^9, 3.784933174578988*^9, {3.784933218677444*^9, 
   3.7849332328633623`*^9}, 3.7849338352319527`*^9, 3.78493399372473*^9, {
   3.7849340247569447`*^9, 3.7849340524754353`*^9}, {3.78493422666271*^9, 
   3.784934255587593*^9}, {3.78493436646741*^9, 3.784934383067924*^9}, 
   3.784934531292817*^9, 3.7849350698441057`*^9, 3.784935154922868*^9, 
   3.784936803659225*^9, 3.784938754171348*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"dcd11592-4c60-4b9c-92db-873690bdb2aa"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"dx", " ", "dz"}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
      RowBox[{"(", 
       RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
      RowBox[{"(", 
       RowBox[{"dz", "+", "z"}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
         RowBox[{"(", 
          RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]]}], "-", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
         RowBox[{"(", 
          RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "-", 
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
         RowBox[{"(", 
          RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
         RowBox[{"(", 
          RowBox[{"dz", "+", "z"}], ")"}]}]}]]}], "+", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
         RowBox[{"(", 
          RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "kz", " ", 
         RowBox[{"(", 
          RowBox[{"dz", "+", "z"}], ")"}]}]}]]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7849295620800667`*^9, 3.7849295947084417`*^9}, 
   3.784929656718995*^9, {3.784929722212633*^9, 3.7849297998292*^9}, 
   3.784932287925782*^9, {3.784932426694234*^9, 3.7849324573277493`*^9}, {
   3.7849324943501387`*^9, 3.784932516098001*^9}, {3.7849325509703207`*^9, 
   3.784932576580055*^9}, {3.784932981268571*^9, 3.78493301056647*^9}, 
   3.784933122780126*^9, 3.784933174578988*^9, {3.784933218677444*^9, 
   3.7849332328633623`*^9}, 3.7849338352319527`*^9, 3.78493399372473*^9, {
   3.7849340247569447`*^9, 3.7849340524754353`*^9}, {3.78493422666271*^9, 
   3.784934255587593*^9}, {3.78493436646741*^9, 3.784934383067924*^9}, 
   3.784934531292817*^9, 3.7849350698441057`*^9, 3.784935154922868*^9, 
   3.784936803659225*^9, 3.784938754184617*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"17f74cdd-cc5b-4795-8877-6cf1687e4697"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"dx", " ", "dy"}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "x"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
       RowBox[{"(", 
        RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
       RowBox[{"(", 
        RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "kz", " ", "z"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "dx", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", "y"}]}]]}], "-", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", "x"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}]}]]}], "-", 
      RowBox[{"ax", " ", "dx", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}]}]]}], "+", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}]}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.7849295620800667`*^9, 3.7849295947084417`*^9}, 
   3.784929656718995*^9, {3.784929722212633*^9, 3.7849297998292*^9}, 
   3.784932287925782*^9, {3.784932426694234*^9, 3.7849324573277493`*^9}, {
   3.7849324943501387`*^9, 3.784932516098001*^9}, {3.7849325509703207`*^9, 
   3.784932576580055*^9}, {3.784932981268571*^9, 3.78493301056647*^9}, 
   3.784933122780126*^9, 3.784933174578988*^9, {3.784933218677444*^9, 
   3.7849332328633623`*^9}, 3.7849338352319527`*^9, 3.78493399372473*^9, {
   3.7849340247569447`*^9, 3.7849340524754353`*^9}, {3.78493422666271*^9, 
   3.784934255587593*^9}, {3.78493436646741*^9, 3.784934383067924*^9}, 
   3.784934531292817*^9, 3.7849350698441057`*^9, 3.784935154922868*^9, 
   3.784936803659225*^9, 3.784938754197874*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"6dc524f9-e4c1-4af3-8651-973ebc426685"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete constraints", "Subsection",
 CellChangeTimes->{{3.783292117771056*^9, 
  3.783292120024822*^9}},ExpressionUUID->"359ea8b1-efb7-4563-8f67-\
7dd3f709b468"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"divED", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dxm", "[", "ExD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dym", "[", "EyD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzm", "[", "EzD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.7832889481127234`*^9, 3.78328901958158*^9}, {
   3.7832896481029387`*^9, 3.7832896488380613`*^9}, 3.784927231582749*^9, {
   3.784933256438857*^9, 3.784933257994173*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"ea992c97-48c7-4122-a882-78f5b0809bcf"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox["dx", "2"], " ", 
    SuperscriptBox["dy", "2"], " ", 
    SuperscriptBox["dz", "2"]}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kx", " ", "x"}], "+", 
        RowBox[{"ky", " ", "y"}], "+", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"at", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["dy", "2"]}], " ", 
         SuperscriptBox["dz", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "dx", " ", "kx"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], ")"}], 
          "2"]}], "-", 
        RowBox[{
         SuperscriptBox["dx", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dy", " ", "ky"}], "+", 
             RowBox[{"dz", " ", "kz"}]}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["dz", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}], 
             "2"]}], "+", 
           RowBox[{
            SuperscriptBox["dy", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}], 
             "2"]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "dx", " ", "dy", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ax", " ", "dy", " ", "dz", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], ")"}]}], "+", 
        
        RowBox[{"ay", " ", "dx", " ", "dz", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}]}], "+", 
        
        RowBox[{"az", " ", "dx", " ", "dy", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}]}]}], 
       ")"}], " ", "omega"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.7834586324107113`*^9, 3.783458852938645*^9, 3.7835306105137444`*^9, 
   3.78491610878761*^9, 3.7849265108855658`*^9, {3.7849272265431013`*^9, 
   3.7849272322548103`*^9}, 3.784927429824341*^9, 3.784927953688184*^9, 
   3.784928208199441*^9, 3.784928431906602*^9, 3.784928749238761*^9, 
   3.784928827920281*^9, 3.7849288637205153`*^9, 3.784929384418229*^9, 
   3.784932892593677*^9, {3.78493298506111*^9, 3.7849330127676086`*^9}, 
   3.7849331410944843`*^9, 3.784933177746821*^9, {3.784933221099971*^9, 
   3.784933258968755*^9}, 3.784933837059225*^9, 3.784934228817027*^9, {
   3.784934369681457*^9, 3.784934385950316*^9}, 3.784935074905711*^9, 
   3.784935163867249*^9, 3.784936804035594*^9, 3.784938754966872*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"9b8e593d-9d8b-4838-913e-d8727a4809e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"divED", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", 
      RowBox[{"(", 
       RowBox[{"t", "-", "x"}], ")"}]}], "]"}]}], "/.", "choiceD"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.784927287796236*^9, 3.784927295080984*^9}, 
   3.784928438971754*^9, {3.784932910298641*^9, 3.784932922789837*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"396c6bd2-e34c-4599-8f12-c99aa4951a5e"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox["dx", "2"], " ", 
    SuperscriptBox["dy", "2"], " ", 
    SuperscriptBox["dz", "2"]}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{"t", "-", 
       RowBox[{"omega", " ", "t"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "kx"}], ")"}], " ", "x"}], "+", 
       RowBox[{"ky", " ", "y"}], "+", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"at", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["dy", "2"]}], " ", 
         SuperscriptBox["dz", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "dx", " ", "kx"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], ")"}], 
          "2"]}], "-", 
        RowBox[{
         SuperscriptBox["dx", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dy", " ", "ky"}], "+", 
             RowBox[{"dz", " ", "kz"}]}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["dz", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}], 
             "2"]}], "+", 
           RowBox[{
            SuperscriptBox["dy", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}], 
             "2"]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "dx", " ", "dy", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ax", " ", "dy", " ", "dz", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], ")"}]}], "+", 
        
        RowBox[{"ay", " ", "dx", " ", "dz", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}]}], "+", 
        
        RowBox[{"az", " ", "dx", " ", "dy", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}]}]}], 
       ")"}], " ", "omega"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.784927279767536*^9, 3.784927295414298*^9}, 
   3.784927429880529*^9, 3.784927956972558*^9, 3.7849282082601233`*^9, 
   3.784928439395605*^9, {3.7849284726863127`*^9, 3.784928476428214*^9}, 
   3.784928755455324*^9, 3.784928830610956*^9, 3.78492886707627*^9, 
   3.784929388623097*^9, {3.7849328978920918`*^9, 3.784932923133216*^9}, {
   3.7849329864346237`*^9, 3.7849330144518213`*^9}, 3.784933142816394*^9, 
   3.784933179674569*^9, {3.784933242678925*^9, 3.784933271351947*^9}, 
   3.7849338409179487`*^9, 3.7849341545246077`*^9, 3.784934231062402*^9, 
   3.784934262498262*^9, {3.784934371656487*^9, 3.7849343884882097`*^9}, 
   3.7849350833046713`*^9, 3.7849351686065493`*^9, 3.7849368041118803`*^9, 
   3.784938755047316*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"7ed1532d-4d51-4836-85a3-f2f5f64fa89f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"divEDsols", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"divED", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", "0"}],
       "/.", "choiceD"}], "//", "FullSimplify"}], ",", "at"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7849284875928717`*^9, 3.784928508325074*^9}, {
  3.784928767376871*^9, 3.7849287677539997`*^9}, {3.7849350870357428`*^9, 
  3.784935108823058*^9}, {3.784935209827303*^9, 3.7849352117304983`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"d0ee9145-6f1d-4ed9-ac88-82cd8387b302"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"at", "\[Rule]", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", "dx", " ", "dy", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "az"}], " ", "dx", " ", "dy"}], "-", 
        RowBox[{"ay", " ", "dx", " ", "dz"}], "-", 
        RowBox[{"ax", " ", "dy", " ", "dz"}], "+", 
        RowBox[{"ax", " ", "dy", " ", "dz", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], "+", 
        RowBox[{"ay", " ", "dx", " ", "dz", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], "+", 
        RowBox[{"az", " ", "dx", " ", "dy", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}]}], ")"}], " ", 
      "omega"}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["dx", "2"]}], " ", 
         SuperscriptBox["dy", "2"]}], "-", 
        RowBox[{
         SuperscriptBox["dx", "2"], " ", 
         SuperscriptBox["dz", "2"]}], "-", 
        RowBox[{
         SuperscriptBox["dy", "2"], " ", 
         SuperscriptBox["dz", "2"]}], "+", 
        RowBox[{
         SuperscriptBox["dy", "2"], " ", 
         SuperscriptBox["dz", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["dx", "2"], " ", 
         SuperscriptBox["dz", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["dx", "2"], " ", 
         SuperscriptBox["dy", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7849285015509377`*^9, 3.784928509228242*^9}, {
   3.784928759220595*^9, 3.7849287686923113`*^9}, 3.784928831813808*^9, 
   3.7849288687204237`*^9, 3.7849331491384993`*^9, 3.7849331815634813`*^9, 
   3.784933248741601*^9, 3.784933895693529*^9, 3.7849341571667*^9, {
   3.784934232797909*^9, 3.784934260272773*^9}, {3.784934375147777*^9, 
   3.784934390131633*^9}, {3.784935088235599*^9, 3.784935117586533*^9}, 
   3.7849351821355333`*^9, 3.784935219158823*^9, 3.784936807509951*^9, 
   3.784938758415206*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"429c2d48-84e3-4774-a705-69aeee8e8d09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"atLD", "=", 
  RowBox[{"divEDsols", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7849352009955187`*^9, 3.784935223528781*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"fd89f9ca-72f6-43ba-ad63-eedceb490ec2"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"at", "\[Rule]", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "dx", " ", "dy", " ", "dz", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "az"}], " ", "dx", " ", "dy"}], "-", 
       RowBox[{"ay", " ", "dx", " ", "dz"}], "-", 
       RowBox[{"ax", " ", "dy", " ", "dz"}], "+", 
       RowBox[{"ax", " ", "dy", " ", "dz", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], "+", 
       RowBox[{"ay", " ", "dx", " ", "dz", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], "+", 
       RowBox[{"az", " ", "dx", " ", "dy", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}]}], ")"}], " ", 
     "omega"}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["dx", "2"]}], " ", 
        SuperscriptBox["dy", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dy", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784935223871623*^9, 3.784936807610507*^9, 
  3.7849387585735703`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"ad8ab563-d07c-48bd-909b-09fcf10be893"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete Lorenz gauge", "Subsection",
 CellChangeTimes->{{3.783279294742515*^9, 3.783279314301189*^9}, {
  3.783279632954688*^9, 3.7832796337654943`*^9}, {3.783288168670554*^9, 
  3.783288169798088*^9}, {3.783289813231575*^9, 
  3.7832898139145*^9}},ExpressionUUID->"9ca3a0f2-a9fc-4760-9e14-f159af552252"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeLD", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dtc", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dxm", "[", "AxD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dym", "[", "AyD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzm", "[", "AzD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.783336337603697*^9, 3.783336389384419*^9}, {
   3.783336567509454*^9, 3.783336568933276*^9}, {3.783336781967634*^9, 
   3.783336783926651*^9}, 3.783342103049555*^9, {3.783342162919932*^9, 
   3.783342163450646*^9}, 3.78334233568404*^9, {3.783342403744688*^9, 
   3.78334240446299*^9}, 3.783342823922635*^9, {3.7833430921161137`*^9, 
   3.783343092572027*^9}, {3.783343319505251*^9, 3.78334332440626*^9}, {
   3.783349679555678*^9, 3.783349681634242*^9}, {3.783349821019146*^9, 
   3.783349829766995*^9}, 3.7833498875851*^9, {3.7833499562223673`*^9, 
   3.7833499567735767`*^9}, 3.783454831016912*^9, 3.783454875885537*^9, {
   3.783458310987686*^9, 3.783458313051189*^9}, {3.783458393584773*^9, 
   3.7834583940757637`*^9}, {3.7834586257265863`*^9, 3.7834586279612713`*^9}, 
   3.7849259729569273`*^9, {3.784927087545402*^9, 3.7849270885016727`*^9}, {
   3.784927131231851*^9, 3.7849271590165997`*^9}, {3.7849344564274063`*^9, 
   3.784934472995122*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"ff76d3ac-949c-47a5-91f7-47bd394ca822"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "omega"}], " ", "t"}], "+", 
       RowBox[{"kx", " ", "x"}], "+", 
       RowBox[{"ky", " ", "y"}], "+", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "ay"}], " ", "dx", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}]}], "-", 
     RowBox[{"az", " ", "dx", " ", "dy", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}]}], "+", 
     RowBox[{"dy", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{"ax", "-", 
        RowBox[{"ax", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "at", " ", "dx", " ", "omega"}]}], 
       ")"}]}]}], ")"}]}], 
  RowBox[{"dx", " ", "dy", " ", "dz"}]]], "Output",
 CellChangeTimes->{
  3.783458585386766*^9, {3.783458639252088*^9, 3.783458648761573*^9}, 
   3.783458710041477*^9, 3.783458770144253*^9, 3.7834588004289227`*^9, 
   3.783530559574214*^9, 3.784916053520886*^9, 3.784925974490917*^9, 
   3.784926505407344*^9, 3.784926588006687*^9, 3.7849269681424227`*^9, 
   3.7849270901854267`*^9, {3.784927149897705*^9, 3.784927159421073*^9}, 
   3.784927428633172*^9, 3.784927937042691*^9, 3.784928206381572*^9, 
   3.7849343996954536`*^9, {3.784934461136367*^9, 3.784934473618553*^9}, 
   3.7849352293041773`*^9, 3.784936807789576*^9, 3.7849387588737698`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"0f39dd72-6477-43f6-b948-d0803eea54f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"gaugeLD", "/.", "atLD"}], "/.", "choiceD"}], ")"}], "\[Equal]", 
   "0"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.784934437848081*^9, 3.784934438183614*^9}, {
  3.7849352398801126`*^9, 3.784935260657045*^9}, {3.784935499428342*^9, 
  3.784935500813146*^9}, {3.784936422251934*^9, 3.784936429089148*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"ac0489c0-8060-4658-af90-1ad1b2377b0b"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "dy", " ", "dz", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], ")"}]}], "+", 
       RowBox[{"ay", " ", "dx", " ", "dz", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}]}], "+", 
       RowBox[{"az", " ", "dx", " ", "dy", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox["dz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", 
             RowBox[{
              SuperscriptBox["dz", "2"], " ", 
              SuperscriptBox["omega", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["dx", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["dz", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], 
   "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dy", "2"]}], " ", 
      SuperscriptBox["dz", "2"]}], "-", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["dy", "2"], "+", 
        SuperscriptBox["dz", "2"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["dy", "2"], " ", 
      SuperscriptBox["dz", "2"], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["dz", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["dy", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
  "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{{3.784934438759877*^9, 3.7849344863193817`*^9}, {
   3.784935236695285*^9, 3.784935257821859*^9}, 3.784935300344887*^9, 
   3.7849355020592327`*^9, {3.7849364581879997`*^9, 3.784936461357153*^9}, 
   3.784936811077141*^9, 3.784938761911078*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"2cb9c759-b009-4be7-ad03-700eb5d61af1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeLDsols", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"gaugeLD", "/.", "atLD"}], "/.", "choiceD"}], ")"}], 
      "\[Equal]", "0"}], "//", "FullSimplify"}], ",", "omega"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.783342377701092*^9, 3.783342385826803*^9}, {
   3.783343005520426*^9, 3.783343005967205*^9}, {3.783343595838254*^9, 
   3.783343604693972*^9}, {3.783343712605057*^9, 3.783343733525182*^9}, 
   3.7834549005563183`*^9, {3.783458780095253*^9, 3.783458781560628*^9}, {
   3.784925985098914*^9, 3.7849259857249537`*^9}, {3.784926593777787*^9, 
   3.784926606044574*^9}, {3.784926992920991*^9, 3.784926999369926*^9}, {
   3.784927045053293*^9, 3.78492705911342*^9}, {3.784927096540167*^9, 
   3.784927098440855*^9}, {3.784934426804392*^9, 3.784934428291368*^9}, {
   3.7849353402591667`*^9, 3.784935372995885*^9}, {3.784935419561751*^9, 
   3.784935487011773*^9}, {3.784936937875379*^9, 3.7849369554764347`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"b735b39a-a0af-4ffa-a63e-a7c6780230cf"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"omega", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", 
        SqrtBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dy", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           SuperscriptBox["dz", "2"]}], "-", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           SuperscriptBox["dz", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dx", " ", "kx"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dz", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dy", " ", "ky"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dy", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dz", " ", "kz"}], "]"}]}]}]]}], 
       RowBox[{"dx", " ", "dy", " ", "dz"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"omega", "\[Rule]", 
     FractionBox[
      RowBox[{
       SqrtBox["2"], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dy", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dz", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dy", "2"], " ", 
          SuperscriptBox["dz", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dy", "2"], " ", 
          SuperscriptBox["dz", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"dx", " ", "kx"}], "]"}]}], "-", 
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dz", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"dy", " ", "ky"}], "]"}]}], "-", 
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dy", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"dz", " ", "kz"}], "]"}]}]}]]}], 
      RowBox[{"dx", " ", "dy", " ", "dz"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7834585861985598`*^9, 3.783458833991332*^9, 3.7835305921386414`*^9, 
   3.7849160886198177`*^9, 3.784925987864628*^9, 3.784926505587832*^9, {
   3.784926595657041*^9, 3.784926608024312*^9}, {3.784926994978446*^9, 
   3.784926999999208*^9}, 3.784927048441703*^9, {3.78492708533779*^9, 
   3.7849270989969063`*^9}, 3.7849271722461567`*^9, 3.7849274286990957`*^9, 
   3.784927941725851*^9, 3.7849282064419107`*^9, {3.7849344036070557`*^9, 
   3.7849344305140667`*^9}, 3.7849344911270733`*^9, {3.784935343529711*^9, 
   3.784935373691286*^9}, {3.7849354247427483`*^9, 3.784935487685802*^9}, 
   3.784936811260783*^9, 3.784936958378721*^9, 3.7849387621047497`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"bc0c5e1b-33b1-444b-bdd0-9701acd4932c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"omegaLD", "=", 
  RowBox[{"gaugeLDsols", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784937744885272*^9, 3.784937751199561*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"5428ad33-8033-480d-ac85-416f00e49a32"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   FractionBox[
    RowBox[{
     SqrtBox["2"], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dy", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dx", " ", "kx"}], "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dy", " ", "ky"}], "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dy", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dz", " ", "kz"}], "]"}]}]}]]}], 
    RowBox[{"dx", " ", "dy", " ", "dz"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784937751461713*^9, 3.784938762120925*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"2b3018db-b97a-4a04-85a0-1d66f028f73d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1062, 964},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 150, 3, 98, "Title",ExpressionUUID->"5daa6eec-1c23-49f0-b677-398d3c0e5c87"],
Cell[CellGroupData[{
Cell[755, 29, 158, 3, 67, "Section",ExpressionUUID->"309acfd7-df7c-43a1-8a14-7d4f1c14bc58"],
Cell[CellGroupData[{
Cell[938, 36, 160, 3, 54, "Subsection",ExpressionUUID->"2c77964e-4c6e-4ce0-951a-231d35518fc6"],
Cell[CellGroupData[{
Cell[1123, 43, 1612, 47, 94, "Input",ExpressionUUID->"e531f5b9-3ce5-47e2-9af3-4efc822e79ad"],
Cell[2738, 92, 616, 14, 34, "Output",ExpressionUUID->"be0be999-0bac-49a0-80e1-0adc96ce93b2"],
Cell[3357, 108, 616, 14, 34, "Output",ExpressionUUID->"0ca7a915-c479-471a-8281-30755e3fc398"],
Cell[3976, 124, 616, 14, 37, "Output",ExpressionUUID->"971c4321-3df3-4ccb-aad1-6889d10326a1"],
Cell[4595, 140, 616, 14, 34, "Output",ExpressionUUID->"bbd55860-da07-4956-b9e2-f5526a441379"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5260, 160, 161, 3, 54, "Subsection",ExpressionUUID->"9adcbc96-cbc1-4885-aa6a-95da0920c2e6"],
Cell[CellGroupData[{
Cell[5446, 167, 2159, 63, 94, "Input",ExpressionUUID->"558d86ab-6558-4a5e-8d99-1dab16026d83"],
Cell[7608, 232, 721, 17, 51, "Output",ExpressionUUID->"0e0a1f4e-9af3-439d-8fec-57d0d425d843"],
Cell[8332, 251, 721, 17, 51, "Output",ExpressionUUID->"11d5d4a1-f2b1-4327-9b16-2b348c078e66"],
Cell[9056, 270, 721, 17, 53, "Output",ExpressionUUID->"6c28497c-44c2-4971-8adc-522399757fa3"],
Cell[9780, 289, 721, 17, 51, "Output",ExpressionUUID->"fc7eb8f0-9955-4bca-a320-afe5a7fc2b2a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10550, 312, 164, 3, 54, "Subsection",ExpressionUUID->"ae90f738-5678-4909-92a2-326681337536"],
Cell[CellGroupData[{
Cell[10739, 319, 2156, 63, 94, "Input",ExpressionUUID->"b2df124e-fb05-4c17-8cfc-dfd976a00f20"],
Cell[12898, 384, 723, 17, 51, "Output",ExpressionUUID->"65cd6d03-48ce-4862-9f31-21cdaeb95ae8"],
Cell[13624, 403, 724, 17, 51, "Output",ExpressionUUID->"224c8413-0885-4f4e-96e7-8f80fa2ae62d"],
Cell[14351, 422, 722, 17, 53, "Output",ExpressionUUID->"ffe48bfd-2ef9-4022-ac47-6e6f8b13fb11"],
Cell[15076, 441, 721, 16, 51, "Output",ExpressionUUID->"301facbd-4155-450f-b31c-f8e3508006da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15858, 464, 156, 3, 67, "Section",ExpressionUUID->"82737873-c38b-4079-9e72-759febe07267"],
Cell[CellGroupData[{
Cell[16039, 471, 156, 3, 54, "Subsection",ExpressionUUID->"7a610bbb-d444-4bc6-bd2f-33507cdeec50"],
Cell[CellGroupData[{
Cell[16220, 478, 2112, 51, 94, "Input",ExpressionUUID->"d86d17fa-1397-4732-8e2c-5f9e786218db"],
Cell[18335, 531, 538, 12, 34, "Output",ExpressionUUID->"2a4bfbb4-e839-4536-96d2-a90e0521ba7d"],
Cell[18876, 545, 538, 12, 34, "Output",ExpressionUUID->"6de70322-a2b0-472d-9d02-6270b7996db7"],
Cell[19417, 559, 538, 12, 34, "Output",ExpressionUUID->"13226659-13c9-4227-be4b-53e90f193b97"],
Cell[19958, 573, 537, 12, 34, "Output",ExpressionUUID->"9ebe0d71-20e9-4620-9ba0-1e6a78b06bd6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20544, 591, 160, 3, 54, "Subsection",ExpressionUUID->"3ca731d6-e4ee-42ba-ba40-c37fe76f9659"],
Cell[CellGroupData[{
Cell[20729, 598, 899, 21, 30, "Input",ExpressionUUID->"3aca25ed-47d9-4a8d-94f1-587b412987d6"],
Cell[21631, 621, 721, 18, 34, "Output",ExpressionUUID->"1f85ca5c-4a79-4431-9114-7d325bb5903e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22389, 644, 435, 11, 30, "Input",ExpressionUUID->"c46aa1fd-9e58-4d5f-babe-2b5fddbb2d4d"],
Cell[22827, 657, 534, 12, 51, "Output",ExpressionUUID->"e785f063-d02b-4ff7-a5e9-cbb4bee527db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23398, 674, 283, 4, 30, "Input",ExpressionUUID->"ff4d4a00-358c-4c0e-8728-89a6b4fb8505"],
Cell[23684, 680, 339, 5, 34, "Output",ExpressionUUID->"76e282b9-501e-4811-93af-7d9ae08585b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24060, 690, 436, 12, 30, "Input",ExpressionUUID->"0de64bfa-32a4-4fc3-b8c9-7fb6f5dd26fe"],
Cell[24499, 704, 466, 11, 53, "Output",ExpressionUUID->"c9d98cbd-0a0a-48b0-9c4d-d9f9f1d57597"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25002, 720, 330, 5, 30, "Input",ExpressionUUID->"745776bb-1060-4fcc-b4a3-b53d4bd2d45d"],
Cell[25335, 727, 362, 5, 34, "Output",ExpressionUUID->"e2a7050e-fcd5-42de-9897-b07c5e1c5532"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25746, 738, 152, 3, 54, "Subsection",ExpressionUUID->"b96c20a8-4bd1-47b9-9d6b-67dea3fe4fc2"],
Cell[CellGroupData[{
Cell[25923, 745, 1419, 39, 73, "Input",ExpressionUUID->"3ce44874-35b2-4bf1-b923-88d4b1364353"],
Cell[27345, 786, 825, 21, 34, "Output",ExpressionUUID->"fd601a66-373e-42de-afde-958f6708bd62"],
Cell[28173, 809, 825, 21, 34, "Output",ExpressionUUID->"8196555a-e6e6-4a34-b8bf-0f0b58180735"],
Cell[29001, 832, 825, 21, 34, "Output",ExpressionUUID->"c0a1e1f8-aece-4d8b-9625-fbeb23bcdb13"]
}, Open  ]],
Cell[29841, 856, 411, 8, 30, "Input",ExpressionUUID->"86408b88-fca3-444e-a934-ef71a469abbc"],
Cell[CellGroupData[{
Cell[30277, 868, 1401, 36, 73, "Input",ExpressionUUID->"cad26d85-7c12-44de-9431-f87ccc967c05"],
Cell[31681, 906, 826, 20, 34, "Output",ExpressionUUID->"d3ce27ee-4452-44b5-906b-2481c879c029"],
Cell[32510, 928, 845, 21, 34, "Output",ExpressionUUID->"634a0da9-8b3f-4452-a1ab-3ca12883139c"],
Cell[33358, 951, 826, 20, 34, "Output",ExpressionUUID->"12208d92-b00e-4dfe-aaeb-3d4875f83678"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34221, 976, 1242, 22, 30, "Input",ExpressionUUID->"67a36832-fec5-4dc4-95af-29f823cb758e"],
Cell[35466, 1000, 735, 15, 34, "Output",ExpressionUUID->"db15c614-5820-47e8-8a3e-e66cb1c8e8ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36238, 1020, 528, 12, 30, "Input",ExpressionUUID->"a9debbc4-df26-4aae-a474-291813135398"],
Cell[36769, 1034, 613, 13, 34, "Output",ExpressionUUID->"68621bf2-4d5b-4f1d-81b9-4ceff460d181"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37419, 1052, 1380, 36, 136, "Input",ExpressionUUID->"add04d04-1654-491b-a827-41ceefda6ef9"],
Cell[38802, 1090, 646, 11, 34, "Output",ExpressionUUID->"a14d8857-d72e-451c-b761-d57920cb3abe"],
Cell[39451, 1103, 591, 9, 34, "Output",ExpressionUUID->"ef879e95-f7ea-4725-ae95-e320c8fbd678"],
Cell[40045, 1114, 591, 9, 34, "Output",ExpressionUUID->"8d3a280c-55d4-4a4a-9197-432ae4320a21"],
Cell[40639, 1125, 591, 9, 34, "Output",ExpressionUUID->"b34133d7-0c66-4145-b7b5-517481fc2296"],
Cell[41233, 1136, 622, 10, 34, "Output",ExpressionUUID->"6107771c-f3a0-4ac6-954a-94ff4cc05ff4"],
Cell[41858, 1148, 591, 9, 34, "Output",ExpressionUUID->"3c3df83d-2c85-491b-ab13-28b021bf0601"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42486, 1162, 1411, 36, 136, "Input",ExpressionUUID->"f2cd7571-c585-4a95-b4b4-a5a4b68583b7"],
Cell[43900, 1200, 437, 6, 34, "Output",ExpressionUUID->"0c365790-6e79-4804-aca2-7f594b09ed39"],
Cell[44340, 1208, 437, 6, 34, "Output",ExpressionUUID->"18619c97-80d2-4104-9ed8-d4f56ac63a3b"],
Cell[44780, 1216, 546, 10, 34, "Output",ExpressionUUID->"76f3173e-216e-4e53-8c26-73ad2136ee49"],
Cell[45329, 1228, 437, 6, 34, "Output",ExpressionUUID->"6cbd7ba2-aa16-4f27-bf2e-7b97531f8962"],
Cell[45769, 1236, 537, 10, 34, "Output",ExpressionUUID->"55495989-b819-4cb8-a13e-5b97550ee21f"],
Cell[46309, 1248, 436, 6, 34, "Output",ExpressionUUID->"d6bd1721-743b-43db-82fe-66d68c2f055c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[46794, 1260, 160, 3, 54, "Subsection",ExpressionUUID->"3e3e5b4c-6626-4ade-94ff-c17b9d2ed6fc"],
Cell[CellGroupData[{
Cell[46979, 1267, 816, 19, 30, "Input",ExpressionUUID->"3ec05bb6-1fb5-4c17-b7f5-ba3dbf17794b"],
Cell[47798, 1288, 851, 24, 37, "Output",ExpressionUUID->"d84c85b2-54e2-4be7-a05b-74de0997736f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48686, 1317, 587, 16, 52, "Input",ExpressionUUID->"fc1c648a-d3b7-4b01-82e0-47fd8ce7ef08"],
Cell[49276, 1335, 759, 18, 55, "Output",ExpressionUUID->"34c114c4-0a66-4ac2-9baa-b4470fc37743"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50072, 1358, 665, 18, 53, "Input",ExpressionUUID->"cc2c411b-c45c-42c8-8e3b-a389827ce36a"],
Cell[50740, 1378, 711, 18, 55, "Output",ExpressionUUID->"050af189-92dd-42b2-87ba-88215658c525"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51488, 1401, 370, 9, 30, "Input",ExpressionUUID->"66ae3881-741c-4285-83c9-df07089949bf"],
Cell[51861, 1412, 410, 6, 34, "Output",ExpressionUUID->"1f470a43-cd47-464d-8745-01279d665aa6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52308, 1423, 418, 9, 30, "Input",ExpressionUUID->"de367ade-a08a-4ceb-865e-90eab98840eb"],
Cell[52729, 1434, 311, 4, 34, "Output",ExpressionUUID->"9f544ca8-b6e1-4a24-9e46-012c913c61ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53077, 1443, 732, 17, 30, "Input",ExpressionUUID->"cf793834-03c7-4ed8-9951-2fabe5943fa2"],
Cell[53812, 1462, 378, 5, 34, "Output",ExpressionUUID->"70f77d65-444b-4282-9a1d-a704d4d44318"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54251, 1474, 153, 3, 67, "Section",ExpressionUUID->"44546bb6-865c-4468-818f-feb9fca0ffff"],
Cell[CellGroupData[{
Cell[54429, 1481, 238, 4, 54, "Subsection",ExpressionUUID->"37411d18-7a65-41f7-819d-7fb4d132f911"],
Cell[CellGroupData[{
Cell[54692, 1489, 1168, 23, 30, "Input",ExpressionUUID->"4f32fb19-bf12-424a-ba12-7f8845a4b931"],
Cell[55863, 1514, 1059, 23, 34, "Output",ExpressionUUID->"9c286dcf-91b4-4957-b928-da3a5e29125c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56959, 1542, 1870, 55, 94, "Input",ExpressionUUID->"61e1d3af-81c7-4629-8d10-134a0eda4efb"],
Cell[58832, 1599, 479, 12, 35, "Output",ExpressionUUID->"e10f8882-2650-479d-ab3a-b6b51c811cba"],
Cell[59314, 1613, 479, 12, 35, "Output",ExpressionUUID->"d09131c6-8f87-4d6d-88b7-ac76448aad2f"],
Cell[59796, 1627, 479, 12, 35, "Output",ExpressionUUID->"99312245-dd95-41c2-82fd-cecc550ac1ba"],
Cell[60278, 1641, 479, 12, 35, "Output",ExpressionUUID->"4b33c70c-afa9-4448-9468-4c9eaa18b121"]
}, Open  ]],
Cell[60772, 1656, 1622, 44, 94, "Input",ExpressionUUID->"588a42d3-59b4-4f7d-82b7-7d59b33bc5f5"],
Cell[CellGroupData[{
Cell[62419, 1704, 1135, 21, 30, "Input",ExpressionUUID->"ec1fd0f2-0b4a-4a3b-a3b8-b440d9b40139"],
Cell[63557, 1727, 984, 19, 34, "Output",ExpressionUUID->"eb80f515-7e87-48f8-ad11-2a429317768b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64578, 1751, 1031, 19, 30, "Input",ExpressionUUID->"f6ffa4b5-ec05-4dde-a0df-a07ecac4d1b9"],
Cell[65612, 1772, 405, 10, 45, "Output",ExpressionUUID->"2b70a76b-b5ea-437e-983c-78a929db9f7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66054, 1787, 220, 4, 30, "Input",ExpressionUUID->"8538f381-fe5c-4102-a65e-276ff2c11b51"],
Cell[66277, 1793, 216, 4, 34, "Output",ExpressionUUID->"fc418c07-329b-4641-99a8-a1d299ce207f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[66542, 1803, 290, 5, 54, "Subsection",ExpressionUUID->"87e31fb7-5245-4c18-b66b-3edbabb4119f"],
Cell[CellGroupData[{
Cell[66857, 1812, 2935, 77, 136, "Input",ExpressionUUID->"80b4a114-bd12-447e-bd3a-c6f6692b6719"],
Cell[69795, 1891, 2106, 48, 54, "Output",ExpressionUUID->"62953f5d-9ff3-4776-8f59-4fb7f0f1eb61"],
Cell[71904, 1941, 2106, 48, 56, "Output",ExpressionUUID->"88844465-6aba-4de5-8e96-32207ac32697"],
Cell[74013, 1991, 2105, 48, 54, "Output",ExpressionUUID->"c66a723e-cc01-4ded-98c1-dc1dfc2a5325"],
Cell[76121, 2041, 2492, 62, 56, "Output",ExpressionUUID->"979916f2-abe5-4929-8107-cd3757fa44fc"],
Cell[78616, 2105, 2533, 63, 54, "Output",ExpressionUUID->"227cd0a1-47fb-4faa-91dd-2b7566adccf3"],
Cell[81152, 2170, 2488, 61, 56, "Output",ExpressionUUID->"b4eb9f8e-50dc-4e35-a34f-8fd84827c481"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83677, 2236, 1481, 37, 136, "Input",ExpressionUUID->"5fe7cb9b-9bc1-454c-80bf-7b3b0713bc73"],
Cell[85161, 2275, 1398, 33, 57, "Output",ExpressionUUID->"45bed13c-9df2-4e4e-b249-42f3565329b0"],
Cell[86562, 2310, 1400, 33, 59, "Output",ExpressionUUID->"6a80f4d7-abfb-4b07-8da8-c62c63f547d7"],
Cell[87965, 2345, 1398, 33, 57, "Output",ExpressionUUID->"b3128cad-5288-4493-8853-22e6c3141700"],
Cell[89366, 2380, 2300, 56, 78, "Output",ExpressionUUID->"6d72efef-ddd3-42bd-8682-58093402665a"],
Cell[91669, 2438, 2234, 55, 75, "Output",ExpressionUUID->"90f96d2f-d840-4738-9c43-9aea15af9ecd"],
Cell[93906, 2495, 2301, 56, 78, "Output",ExpressionUUID->"d7fc21a4-d2d4-4d1b-b79c-6e44eade3ded"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96244, 2556, 2138, 65, 136, "Input",ExpressionUUID->"ef7234e8-5107-4868-bb66-27ded90c6016"],
Cell[98385, 2623, 2054, 43, 57, "Output",ExpressionUUID->"d591e43d-f5aa-4d34-985e-fa4a731a2a95"],
Cell[100442, 2668, 2054, 43, 59, "Output",ExpressionUUID->"d6c2651f-48c3-4dc4-8af7-248084ad130f"],
Cell[102499, 2713, 2054, 43, 57, "Output",ExpressionUUID->"7aa076ee-8a7a-4397-af4e-bc5fe41fe5e2"],
Cell[104556, 2758, 2960, 66, 78, "Output",ExpressionUUID->"dcd11592-4c60-4b9c-92db-873690bdb2aa"],
Cell[107519, 2826, 2890, 65, 75, "Output",ExpressionUUID->"17f74cdd-cc5b-4795-8877-6cf1687e4697"],
Cell[110412, 2893, 2960, 66, 78, "Output",ExpressionUUID->"6dc524f9-e4c1-4af3-8651-973ebc426685"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[113421, 2965, 168, 3, 54, "Subsection",ExpressionUUID->"359ea8b1-efb7-4563-8f67-7dd3f709b468"],
Cell[CellGroupData[{
Cell[113614, 2972, 803, 19, 30, "Input",ExpressionUUID->"ea992c97-48c7-4122-a882-78f5b0809bcf"],
Cell[114420, 2993, 4147, 104, 104, "Output",ExpressionUUID->"9b8e593d-9d8b-4838-913e-d8727a4809e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118604, 3102, 519, 13, 30, "Input",ExpressionUUID->"396c6bd2-e34c-4599-8f12-c99aa4951a5e"],
Cell[119126, 3117, 4234, 107, 104, "Output",ExpressionUUID->"7ed1532d-4d51-4836-85a3-f2f5f64fa89f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123397, 3229, 612, 14, 30, "Input",ExpressionUUID->"d0ee9145-6f1d-4ed9-ac88-82cd8387b302"],
Cell[124012, 3245, 2478, 59, 63, "Output",ExpressionUUID->"429c2d48-84e3-4774-a705-69aeee8e8d09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126527, 3309, 259, 5, 30, "Input",ExpressionUUID->"fd89f9ca-72f6-43ba-ad63-eedceb490ec2"],
Cell[126789, 3316, 1966, 51, 63, "Output",ExpressionUUID->"ad8ab563-d07c-48bd-909b-09fcf10be893"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[128804, 3373, 311, 4, 54, "Subsection",ExpressionUUID->"9ca3a0f2-a9fc-4760-9e14-f159af552252"],
Cell[CellGroupData[{
Cell[129140, 3381, 1635, 31, 30, "Input",ExpressionUUID->"ff76d3ac-949c-47a5-91f7-47bd394ca822"],
Cell[130778, 3414, 1938, 46, 59, "Output",ExpressionUUID->"0f39dd72-6477-43f6-b948-d0803eea54f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132753, 3465, 478, 10, 30, "Input",ExpressionUUID->"ac0489c0-8060-4658-af90-1ad1b2377b0b"],
Cell[133234, 3477, 3402, 99, 84, "Output",ExpressionUUID->"2cb9c759-b009-4be7-ad03-700eb5d61af1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136673, 3581, 1109, 21, 30, "Input",ExpressionUUID->"b735b39a-a0af-4ffa-a63e-a7c6780230cf"],
Cell[137785, 3604, 3037, 78, 115, "Output",ExpressionUUID->"bc0c5e1b-33b1-444b-bdd0-9701acd4932c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140859, 3687, 262, 5, 30, "Input",ExpressionUUID->"5428ad33-8033-480d-ac85-416f00e49a32"],
Cell[141124, 3694, 1182, 34, 96, "Output",ExpressionUUID->"2b3018db-b97a-4a04-85a0-1d66f028f73d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

File deletion: MaxwellDiscrete3.nb

BF:BFD[3.7639] → [2.164703:164724]

BF:BFD[2.164724] → [2.164725:164725]

B:BD[2.164725] → [2.164726:345999]

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    181114,       4749]
NotebookOptionsPosition[    166527,       4504]
NotebookOutlinePosition[    166863,       4519]
CellTagsIndexPosition[    166820,       4516]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Maxwell", "Title",
 CellChangeTimes->{{3.783278666344694*^9, 
  3.783278667280623*^9}},ExpressionUUID->"5daa6eec-1c23-49f0-b677-\
398d3c0e5c87"],
Cell[CellGroupData[{
Cell["Derivatives", "Section",
 CellChangeTimes->{{3.7832790541636543`*^9, 
  3.783279057019659*^9}},ExpressionUUID->"309acfd7-df7c-43a1-8a14-\
7d4f1c14bc58"],
Cell[CellGroupData[{
Cell["Continuous", "Subsection",
 CellChangeTimes->{{3.7833355871611156`*^9, 
  3.783335588832024*^9}},ExpressionUUID->"2c77964e-4c6e-4ce0-951a-\
231d35518fc6"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dtc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzc", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
     "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7832880539881067`*^9, 3.7832881207522993`*^9}, {
  3.783342692863599*^9, 3.7833426973034353`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e531f5b9-3ce5-47e2-9af3-4efc822e79ad"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "t"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750528883*^9, 3.784983307226631*^9, 
  3.7850645789326887`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"09cb13f7-4ca9-4bd3-8225-af5304b95eb7"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750528883*^9, 3.784983307226631*^9, 
  3.785064578936697*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"a0a54931-7ede-4c92-a0b8-af6f16571367"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "y"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750528883*^9, 3.784983307226631*^9, 
  3.785064578939239*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"834f3c97-30a9-4433-83c2-4ecbc536eab5"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{
    SubscriptBox["\[PartialD]", "z"], 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "]"}]], "Output",\
 CellChangeTimes->{3.783458583631322*^9, 3.783458796693232*^9, 
  3.783530555751267*^9, 3.7849160471874*^9, 3.784926501234342*^9, 
  3.7849274257419987`*^9, 3.784928203560158*^9, 3.7849295792803164`*^9, 
  3.7849368016389723`*^9, 3.784938750528883*^9, 3.784983307226631*^9, 
  3.785064578941691*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"1f36df12-bf4d-47e0-8823-99d7104dfc28"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete (d)", "Subsection",
 CellChangeTimes->{{3.78333559148041*^9, 
  3.7833355977003593`*^9}},ExpressionUUID->"9adcbc96-cbc1-4885-aa6a-\
95da0920c2e6"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dtp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{
         RowBox[{"t", "+", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dt"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", 
         RowBox[{"x", "+", "dx"}], ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dx"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", 
         RowBox[{"y", "+", "dy"}], ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dy"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzp", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", 
         RowBox[{"z", "+", "dz"}]}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dz"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.78327905819149*^9, 3.783279114768916*^9}, {
  3.7832792410522823`*^9, 3.783279261448201*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"558d86ab-6558-4a5e-8d99-1dab16026d83"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
       RowBox[{"t", "+", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dt"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750714368*^9, 3.784983307433902*^9, 
  3.785064580122155*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"0bf217f7-6e7f-4f3f-a155-f638d241167b"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", 
       RowBox[{"x", "+", "dx"}], ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dx"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750714368*^9, 3.784983307433902*^9, 
  3.785064580124805*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"bce3ca50-54af-4d48-98e7-424fc117cc73"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", 
       RowBox[{"y", "+", "dy"}], ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dy"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750714368*^9, 3.784983307433902*^9, 
  3.785064580127488*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"b630f099-d332-4c97-8e9c-77363911769e"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", 
       RowBox[{"z", "+", "dz"}]}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "dz"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583814687*^9, 3.783458796866454*^9, 
  3.783530555917431*^9, 3.7849160476982613`*^9, 3.784926501449279*^9, 
  3.784927425897949*^9, 3.784928203723024*^9, 3.784929580880522*^9, 
  3.7849368017593927`*^9, 3.784938750714368*^9, 3.784983307433902*^9, 
  3.785064580129958*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"523d36b3-0e1f-40c1-b2df-f1d2fa67b780"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete (*d*)", "Subsection",
 CellChangeTimes->{{3.7833356100210457`*^9, 
  3.783335613193626*^9}},ExpressionUUID->"ae90f738-5678-4909-92a2-\
326681337536"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dtm", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{
         RowBox[{"t", "-", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}]}], 
      ")"}], "/", "dt"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxm", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", 
         RowBox[{"x", "-", "dx"}], ",", "y", ",", "z"}], "]"}]}], ")"}], "/", 
     "dx"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dym", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", 
         RowBox[{"y", "-", "dy"}], ",", "z"}], "]"}]}], ")"}], "/", "dy"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzm", "[", "f_", "]"}], "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", 
         RowBox[{"z", "-", "dz"}]}], "]"}]}], ")"}], "/", "dz"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.783279123557006*^9, 3.783279140354414*^9}, {
  3.78327926509931*^9, 3.7832792770024967`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"b2df124e-fb05-4c17-8cfc-dfd976a00f20"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{
       RowBox[{"t", "-", "dt"}], ",", "x", ",", "y", ",", "z"}], "]"}]}], 
    "dt"]}], "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.784938750740046*^9, 3.784983307445477*^9, 
  3.785064580281478*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"b8d21856-cf74-48e8-9cb6-952b88581c25"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", 
       RowBox[{"x", "-", "dx"}], ",", "y", ",", "z"}], "]"}]}], "dx"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.784938750740046*^9, 3.784983307445477*^9, 
  3.785064580284294*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"d06e0839-1472-4ad7-aad6-24fcb4f02511"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", 
       RowBox[{"y", "-", "dy"}], ",", "z"}], "]"}]}], "dy"]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.784938750740046*^9, 3.784983307445477*^9, 
  3.785064580286641*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"7823c55e-2884-49dc-9479-d9d22eff2dba"],
Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", 
       RowBox[{"z", "-", "dz"}]}], "]"}]}], "dz"]}], "]"}]], "Output",
 CellChangeTimes->{3.783458583843581*^9, 3.783458796897847*^9, 
  3.783530555937469*^9, 3.784916050672759*^9, 3.784926501480249*^9, 
  3.784927425920735*^9, 3.784928203749035*^9, 3.7849295822345333`*^9, 
  3.7849368017858877`*^9, 3.784938750740046*^9, 3.784983307445477*^9, 
  3.785064580288822*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"b88f47e8-aceb-46c3-88fb-3981d3b61087"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Continuum", "Section",
 CellChangeTimes->{{3.7832921364050426`*^9, 
  3.783292137643628*^9}},ExpressionUUID->"82737873-c38b-4079-9e72-\
759febe07267"],
Cell[CellGroupData[{
Cell["Ansatz", "Subsection",
 CellChangeTimes->{{3.7832786692233467`*^9, 
  3.783278670172369*^9}},ExpressionUUID->"7a610bbb-d444-4bc6-bd2f-\
33507cdeec50"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"Exp", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"I", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omega", "*", "t"}], " ", "-", " ", 
        RowBox[{"kx", "*", "x"}], " ", "-", " ", 
        RowBox[{"ky", "*", "y"}], " ", "-", " ", 
        RowBox[{"kz", "*", "z"}]}], ")"}]}], "]"}], "/", "width"}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"phi", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"at", "*", 
   RowBox[{"u", "[", 
    RowBox[{"t", ",", " ", "x", ",", " ", "y", ",", " ", "z"}], 
    "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Ax", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"ax", "*", 
   RowBox[{"u", "[", 
    RowBox[{"t", ",", " ", "x", ",", " ", "y", ",", " ", "z"}], 
    "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Ay", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"ay", "*", 
   RowBox[{"u", "[", 
    RowBox[{"t", ",", " ", "x", ",", " ", "y", ",", " ", "z"}], 
    "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Az", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"az", "*", 
   RowBox[{"u", "[", 
    RowBox[{"t", ",", " ", "x", ",", " ", "y", ",", " ", "z"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.783293559923594*^9, 3.783293610009444*^9}, {
   3.783293643031323*^9, 3.783293670098229*^9}, {3.783297081931128*^9, 
   3.783297094640275*^9}, {3.783297137353818*^9, 3.783297145503969*^9}, {
   3.78329718385878*^9, 3.783297185302513*^9}, {3.783297216120719*^9, 
   3.783297217754815*^9}, {3.7832973813760843`*^9, 3.783297424572748*^9}, {
   3.783297474558353*^9, 3.783297504385687*^9}, {3.783297546962953*^9, 
   3.783297548798359*^9}, {3.783297623190208*^9, 3.7832976550449877`*^9}, {
   3.783298020719532*^9, 3.783298028896812*^9}, {3.783298152546899*^9, 
   3.783298160241498*^9}, 3.783298270049233*^9, {3.783298375760313*^9, 
   3.783298383690412*^9}, {3.7849832515820436`*^9, 3.784983295850381*^9}, {
   3.785064427661969*^9, 3.7850645024843063`*^9}},
 FormatType->"InputForm",
 CellLabel->"In[13]:=",ExpressionUUID->"d86d17fa-1397-4732-8e2c-5f9e786218db"],
Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"]]], "Output",
 CellChangeTimes->{
  3.783458583927294*^9, 3.783458796989012*^9, 3.783530556008945*^9, 
   3.784916050957971*^9, 3.7849265015879*^9, 3.7849274259917793`*^9, 
   3.784928203834056*^9, 3.784936801883614*^9, 3.784938750836995*^9, {
   3.784983296737546*^9, 3.784983310613912*^9}, {3.785064497767853*^9, 
   3.785064502882484*^9}, 3.7850645803006783`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"395db1cb-b2b8-4bc9-8977-a672ae5d9dc0"],
Cell[BoxData[
 RowBox[{"at", " ", 
  SuperscriptBox["\[ExponentialE]", 
   FractionBox[
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"]]}]], "Output",
 CellChangeTimes->{
  3.783458583927294*^9, 3.783458796989012*^9, 3.783530556008945*^9, 
   3.784916050957971*^9, 3.7849265015879*^9, 3.7849274259917793`*^9, 
   3.784928203834056*^9, 3.784936801883614*^9, 3.784938750836995*^9, {
   3.784983296737546*^9, 3.784983310613912*^9}, {3.785064497767853*^9, 
   3.785064502882484*^9}, 3.785064580303697*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"04c94f62-9645-4a7d-8eb8-7c3acccb07ad"],
Cell[BoxData[
 RowBox[{"ax", " ", 
  SuperscriptBox["\[ExponentialE]", 
   FractionBox[
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"]]}]], "Output",
 CellChangeTimes->{
  3.783458583927294*^9, 3.783458796989012*^9, 3.783530556008945*^9, 
   3.784916050957971*^9, 3.7849265015879*^9, 3.7849274259917793`*^9, 
   3.784928203834056*^9, 3.784936801883614*^9, 3.784938750836995*^9, {
   3.784983296737546*^9, 3.784983310613912*^9}, {3.785064497767853*^9, 
   3.785064502882484*^9}, 3.785064580306213*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"3ca5b8c0-7963-4d76-9c74-87bedd108eef"],
Cell[BoxData[
 RowBox[{"ay", " ", 
  SuperscriptBox["\[ExponentialE]", 
   FractionBox[
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"]]}]], "Output",
 CellChangeTimes->{
  3.783458583927294*^9, 3.783458796989012*^9, 3.783530556008945*^9, 
   3.784916050957971*^9, 3.7849265015879*^9, 3.7849274259917793`*^9, 
   3.784928203834056*^9, 3.784936801883614*^9, 3.784938750836995*^9, {
   3.784983296737546*^9, 3.784983310613912*^9}, {3.785064497767853*^9, 
   3.785064502882484*^9}, 3.785064580308627*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"b1fa0656-1a05-4d02-8b9e-df56bd81c76b"],
Cell[BoxData[
 RowBox[{"az", " ", 
  SuperscriptBox["\[ExponentialE]", 
   FractionBox[
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"]]}]], "Output",
 CellChangeTimes->{
  3.783458583927294*^9, 3.783458796989012*^9, 3.783530556008945*^9, 
   3.784916050957971*^9, 3.7849265015879*^9, 3.7849274259917793`*^9, 
   3.784928203834056*^9, 3.784936801883614*^9, 3.784938750836995*^9, {
   3.784983296737546*^9, 3.784983310613912*^9}, {3.785064497767853*^9, 
   3.785064502882484*^9}, 3.7850645803115883`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"75063b35-914b-455f-b02c-ff32aec96694"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Lorenz gauge", "Subsection",
 CellChangeTimes->{{3.783278675932311*^9, 
  3.783278677989027*^9}},ExpressionUUID->"3ca731d6-e4ee-42ba-ba40-\
c37fe76f9659"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeL", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dtc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dxc", "[", "Ax", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dyc", "[", "Ay", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzc", "[", "Az", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.7832786280467653`*^9, 3.7832786396971073`*^9}, {
   3.783278695580089*^9, 3.783278790218914*^9}, {3.783279480319312*^9, 
   3.7832794853012457`*^9}, 3.7832977146054583`*^9, {3.783342722985669*^9, 
   3.783342762289012*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"3aca25ed-47d9-4a8d-94f1-587b412987d6"],
Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "omega"}], " ", "t"}], "+", 
           RowBox[{"kx", " ", "x"}], "+", 
           RowBox[{"ky", " ", "y"}], "+", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "kx"}], "+", 
      RowBox[{"ay", " ", "ky"}], "+", 
      RowBox[{"az", " ", "kz"}], "-", 
      RowBox[{"at", " ", "omega"}]}], ")"}]}], "width"]}]], "Output",
 CellChangeTimes->{3.783458584018943*^9, 3.783458797084251*^9, 
  3.7835305560921783`*^9, 3.784916051110269*^9, 3.784926501697509*^9, 
  3.7849274260704517`*^9, 3.784928203914144*^9, 3.7849368019851017`*^9, 
  3.784938750940786*^9, 3.784983315531967*^9, 3.7850645087794313`*^9, 
  3.785064580400989*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"5aeffbcb-38b0-472f-9dde-9ad1e9470d8a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"omegaL", "=", 
  RowBox[{"{", 
   RowBox[{"omega", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], "/", "at"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783298406145071*^9, 3.783298407550537*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"c46aa1fd-9e58-4d5f-babe-2b5fddbb2d4d"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"ax", " ", "kx"}], "+", 
     RowBox[{"ay", " ", "ky"}], "+", 
     RowBox[{"az", " ", "kz"}]}], "at"]}], "}"}]], "Output",
 CellChangeTimes->{3.783458584030664*^9, 3.7834587970974503`*^9, 
  3.783530556102255*^9, 3.784916051126195*^9, 3.7849265017073708`*^9, 
  3.784927426081574*^9, 3.78492820392487*^9, 3.784936801996333*^9, 
  3.784938750952591*^9, 3.7849833174263697`*^9, 3.7850645142570753`*^9, 
  3.7850645804113903`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"cc2b661d-9c7d-445b-be1a-b838a38efbe2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeL", "/.", "omegaL"}]], "Input",
 CellChangeTimes->{{3.783278763705964*^9, 3.7832787941746397`*^9}, {
   3.7832972484958878`*^9, 3.783297253360993*^9}, 3.7832984126865187`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"ff4d4a00-358c-4c0e-8728-89a6b4fb8505"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.783458584103804*^9, 3.7834587971688128`*^9, 
  3.783530556169647*^9, 3.784916051231578*^9, 3.7849265017990103`*^9, 
  3.784927426146573*^9, 3.784928203986271*^9, 3.78493680208035*^9, 
  3.7849387510377607`*^9, 3.784983320242734*^9, 3.7850645161567183`*^9, 
  3.785064580482979*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"8ac888d9-d4f7-44f7-8c5d-a7d64de1de21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"atL", "=", 
  RowBox[{"{", 
   RowBox[{"at", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], "/", "omega"}]}], "}"}]}]], "Input",\
 CellChangeTimes->{{3.7849261146459723`*^9, 3.784926122458349*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"0de64bfa-32a4-4fc3-b8c9-7fb6f5dd26fe"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"at", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"ax", " ", "kx"}], "+", 
     RowBox[{"ay", " ", "ky"}], "+", 
     RowBox[{"az", " ", "kz"}]}], "omega"]}], "}"}]], "Output",
 CellChangeTimes->{3.784926122800357*^9, 3.7849265018165207`*^9, 
  3.784927426163952*^9, 3.784928204004326*^9, 3.7849368020982523`*^9, 
  3.784938751056059*^9, 3.784983322089614*^9, 3.785064517506754*^9, 
  3.785064580492968*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"a0e7cd35-2be4-4779-993f-ea32d1048f57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeL", "/.", "atL"}]], "Input",
 CellChangeTimes->{{3.783278763705964*^9, 3.7832787941746397`*^9}, {
   3.7832972484958878`*^9, 3.783297253360993*^9}, 3.7832984126865187`*^9, {
   3.784926131269825*^9, 3.784926131757403*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"745776bb-1060-4fcc-b4a3-b53d4bd2d45d"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.783458584103804*^9, 3.7834587971688128`*^9, 
  3.783530556169647*^9, 3.784916051231578*^9, 3.784926132093837*^9, 
  3.784926501913939*^9, 3.784927426230124*^9, 3.7849282040682573`*^9, 
  3.784936802185281*^9, 3.7849387511456842`*^9, 3.7849833302639112`*^9, 
  3.785064518732957*^9, 3.78506458057802*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"b8b09a17-71cf-4bd1-984d-9bdeee84aba5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Fields", "Subsection",
 CellChangeTimes->{{3.7832920875212*^9, 
  3.783292088741645*^9}},ExpressionUUID->"b96c20a8-4bd1-47b9-9d6b-\
67dea3fe4fc2"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Ex", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dxc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "Ax", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ey", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dyc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "Ay", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ez", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dzc", "[", "phi", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "Az", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7832920906913013`*^9, 3.783292103336358*^9}, {
  3.783297309924884*^9, 3.783297333304551*^9}, {3.783342767985236*^9, 
  3.7833427718350058`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"3ce44874-35b2-4bf1-b923-88d4b1364353"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "at", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "kx"}], "width"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "ax", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "omega"}], 
   "width"]}]], "Output",
 CellChangeTimes->{3.783458584117043*^9, 3.783458797182013*^9, 
  3.7835305561809397`*^9, 3.784916051252658*^9, 3.784926502447402*^9, 
  3.784927426257268*^9, 3.78492820408825*^9, 3.7849368022033052`*^9, 
  3.784938751751162*^9, 3.78498335131574*^9, 3.785064521158717*^9, 
  3.785064580589984*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"b8ed14e3-76a9-46ba-8ef4-acae9c819d95"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "at", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "ky"}], "width"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "ay", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "omega"}], 
   "width"]}]], "Output",
 CellChangeTimes->{3.783458584117043*^9, 3.783458797182013*^9, 
  3.7835305561809397`*^9, 3.784916051252658*^9, 3.784926502447402*^9, 
  3.784927426257268*^9, 3.78492820408825*^9, 3.7849368022033052`*^9, 
  3.784938751751162*^9, 3.78498335131574*^9, 3.785064521158717*^9, 
  3.785064580593408*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"fe195721-4325-43c0-b711-8af507295a87"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "at", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "kz"}], "width"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "az", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "omega"}], 
   "width"]}]], "Output",
 CellChangeTimes->{3.783458584117043*^9, 3.783458797182013*^9, 
  3.7835305561809397`*^9, 3.784916051252658*^9, 3.784926502447402*^9, 
  3.784927426257268*^9, 3.78492820408825*^9, 3.7849368022033052`*^9, 
  3.784938751751162*^9, 3.78498335131574*^9, 3.785064521158717*^9, 
  3.785064580597328*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"898ca7b6-6eeb-4587-8356-f40b07702627"]
}, Open  ]],
Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Bx", " ", "=", " ", "Byz"}], ",", " ", 
   RowBox[{"By", " ", "=", " ", "Bzx"}], ",", " ", 
   RowBox[{"Bz", " ", "=", " ", "Bxy"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.783297799358304*^9, 3.7832978197269487`*^9}, {
  3.783335684716264*^9, 3.783335691544757*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"86408b88-fca3-444e-a934-ef71a469abbc"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Byz", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dyc", "[", "Az", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dzc", "[", "Ay", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bzx", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dzc", "[", "Ax", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dxc", "[", "Az", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxy", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dxc", "[", "Ay", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dyc", "[", "Ax", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.783297781024535*^9, 3.783297784175955*^9}, {
  3.783297833322309*^9, 3.7832979380086603`*^9}, {3.7833427776474733`*^9, 
  3.783342781107462*^9}, {3.7849266937818403`*^9, 3.784926696803831*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"cad26d85-7c12-44de-9431-f87ccc967c05"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "az", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "ky"}], "width"]}], 
  "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "ay", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "kz"}], 
   "width"]}]], "Output",
 CellChangeTimes->{3.783458584207567*^9, 3.783458797271298*^9, 
  3.783530556259944*^9, 3.7849160513956347`*^9, 3.784926502746584*^9, 
  3.784926697733878*^9, 3.784927426925686*^9, 3.784928204698098*^9, 
  3.7849368023069344`*^9, 3.784938751979926*^9, 3.784983358213429*^9, 
  3.785064523832396*^9, 3.785064580674552*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"b7366a17-3aac-4c79-b13f-9f4adc7f75cf"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "az", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "kx"}], "width"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "ax", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "kz"}], 
   "width"]}]], "Output",
 CellChangeTimes->{3.783458584207567*^9, 3.783458797271298*^9, 
  3.783530556259944*^9, 3.7849160513956347`*^9, 3.784926502746584*^9, 
  3.784926697733878*^9, 3.784927426925686*^9, 3.784928204698098*^9, 
  3.7849368023069344`*^9, 3.784938751979926*^9, 3.784983358213429*^9, 
  3.785064523832396*^9, 3.7850645806776247`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"097aee64-f541-422d-b985-097ffb76c41f"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "ay", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "kx"}], "width"]}], 
  "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "ax", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", "ky"}], 
   "width"]}]], "Output",
 CellChangeTimes->{3.783458584207567*^9, 3.783458797271298*^9, 
  3.783530556259944*^9, 3.7849160513956347`*^9, 3.784926502746584*^9, 
  3.784926697733878*^9, 3.784927426925686*^9, 3.784928204698098*^9, 
  3.7849368023069344`*^9, 3.784938751979926*^9, 3.784983358213429*^9, 
  3.785064523832396*^9, 3.785064580680475*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"f37b8a26-b524-4652-9c76-cdc2984a7ecd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choice1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"kx", "\[Rule]", "1"}], ",", 
    RowBox[{"ky", "\[Rule]", "0"}], ",", 
    RowBox[{"kz", "\[Rule]", "0"}], ",", 
    RowBox[{"ax", "\[Rule]", "0"}], ",", 
    RowBox[{"ay", "\[Rule]", "0"}], ",", 
    RowBox[{"az", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783293690479371*^9, 3.783293697319968*^9}, {
   3.783297112634514*^9, 3.7832971156012297`*^9}, {3.7832971518157673`*^9, 
   3.783297153095839*^9}, {3.783297225648275*^9, 3.783297265671896*^9}, 
   3.783297482690221*^9, {3.7832975180031776`*^9, 3.7832975271096973`*^9}, {
   3.783297663436022*^9, 3.783297665769375*^9}, {3.783297721026963*^9, 
   3.783297723035541*^9}, {3.783298034144896*^9, 3.783298036111335*^9}, {
   3.783298189823325*^9, 3.783298209254932*^9}, {3.783298352444013*^9, 
   3.783298368388586*^9}, {3.783298434311064*^9, 3.783298449213387*^9}, {
   3.783349842646282*^9, 3.783349854362007*^9}, {3.784925831965479*^9, 
   3.784925887854484*^9}, 3.784926142118132*^9, {3.78492618329879*^9, 
   3.7849261955725527`*^9}, {3.784926423171694*^9, 3.784926424693924*^9}, 
   3.784926738473052*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"67a36832-fec5-4dc4-95af-29f823cb758e"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"kx", "\[Rule]", "1"}], ",", 
   RowBox[{"ky", "\[Rule]", "0"}], ",", 
   RowBox[{"kz", "\[Rule]", "0"}], ",", 
   RowBox[{"ax", "\[Rule]", "0"}], ",", 
   RowBox[{"ay", "\[Rule]", "0"}], ",", 
   RowBox[{"az", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784925844997364*^9, {3.784925875622726*^9, 3.784925888993204*^9}, 
   3.784926143163872*^9, {3.78492618611799*^9, 3.784926196613308*^9}, {
   3.784926401303854*^9, 3.784926425057732*^9}, 3.784926502773642*^9, 
   3.7849267393753347`*^9, 3.784927427125629*^9, 3.7849282048902893`*^9, 
   3.7849368024065933`*^9, 3.78493875200848*^9, 3.7849833599275627`*^9, 
   3.785064527903111*^9, 3.785064580750832*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"7907ddc5-69c9-4fa5-b3b9-4b2c466ac5d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choice2", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"kx", "\[Rule]", "1"}], ",", 
    RowBox[{"ky", "\[Rule]", "0"}], ",", 
    RowBox[{"kz", "\[Rule]", "0"}], ",", 
    RowBox[{"ax", "\[Rule]", "0"}], ",", 
    RowBox[{"ay", "\[Rule]", "0"}], ",", 
    RowBox[{"az", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.784926197400957*^9, 3.784926240338882*^9}, {
  3.784926443957716*^9, 3.784926445097734*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"a9debbc4-df26-4aae-a474-291813135398"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"kx", "\[Rule]", "1"}], ",", 
   RowBox[{"ky", "\[Rule]", "0"}], ",", 
   RowBox[{"kz", "\[Rule]", "0"}], ",", 
   RowBox[{"ax", "\[Rule]", "0"}], ",", 
   RowBox[{"ay", "\[Rule]", "0"}], ",", 
   RowBox[{"az", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784926210881054*^9, {3.784926402773844*^9, 3.7849264455004683`*^9}, 
   3.784926502870956*^9, 3.784926741270917*^9, 3.784927427189045*^9, 
   3.784928204950227*^9, 3.784936802421217*^9, 3.7849387520950747`*^9, 
   3.784983361205737*^9, 3.785064528953155*^9, 3.785064580760998*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"145937e5-b156-4ba4-ab6b-ce1aabf274f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ex", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ey", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ez", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Byz", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bzx", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bxy", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaL"}], "/.",
   "choice1"}]}], "Input",
 CellChangeTimes->{{3.783297319872204*^9, 3.783297345381654*^9}, {
  3.783298459026963*^9, 3.7832984835732203`*^9}, {3.783349844753883*^9, 
  3.7833498471186333`*^9}, {3.784926213171278*^9, 3.784926217761086*^9}, {
  3.7849265255484943`*^9, 3.784926528921398*^9}, {3.784926752636107*^9, 
  3.78492675565306*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"add04d04-1654-491b-a827-41ceefda6ef9"],
Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "at", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "x"}]], "width"], "-", 
     RowBox[{"\[ImaginaryI]", " ", "x"}]}]]}], "width"]], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9, 3.784983362507391*^9, 3.785064530024753*^9, 
   3.785064580828217*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"487f4879-adf6-4824-9c25-dd4d77be6d83"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9, 3.784983362507391*^9, 3.785064530024753*^9, 
   3.785064580830378*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"ef58427f-d96b-4d7d-8fd4-aa78b9bcf541"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9, 3.784983362507391*^9, 3.785064530024753*^9, 
   3.785064580832261*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"3191b20f-b660-43bf-bb3d-e5d92ee7fe32"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9, 3.784983362507391*^9, 3.785064530024753*^9, 
   3.785064580834177*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"eaddd61b-0977-455d-bc4b-37fb5b787595"],
Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "x"}]], "width"], "-", 
     RowBox[{"\[ImaginaryI]", " ", "x"}]}]]}], "width"]], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9, 3.784983362507391*^9, 3.785064530024753*^9, 
   3.785064580836136*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"28a49b03-0430-465d-9e27-9734a8b83166"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585843053017`*^9, 3.78345879784239*^9, 3.783530556891457*^9, 
   3.784916051502578*^9, {3.784925834683519*^9, 3.7849258945692673`*^9}, 
   3.7849261446281757`*^9, {3.784926188618814*^9, 3.7849262182249527`*^9}, {
   3.784926405231594*^9, 3.7849264473766193`*^9}, 3.784926502886999*^9, 
   3.7849265494259872`*^9, 3.784926742198634*^9, 3.7849267845024233`*^9, 
   3.784927427205508*^9, 3.784928204968532*^9, 3.784936802509263*^9, 
   3.7849387521135063`*^9, 3.784983362507391*^9, 3.785064530024753*^9, 
   3.785064580838285*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"16684094-fd92-4604-b904-f2faebd823f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ex", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ey", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ez", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Byz", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bzx", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bxy", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "atL"}], "/.", 
  "choice2"}]}], "Input",
 CellChangeTimes->{{3.783297319872204*^9, 3.783297345381654*^9}, {
  3.783298459026963*^9, 3.7832984835732203`*^9}, {3.783349844753883*^9, 
  3.7833498471186333`*^9}, {3.7849261598376293`*^9, 3.784926168020496*^9}, {
  3.784926220214274*^9, 3.7849262218279667`*^9}, {3.784926534742145*^9, 
  3.784926535029398*^9}, {3.784926778102304*^9, 3.784926780424179*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"f2cd7571-c585-4a95-b4b4-a5a4b68583b7"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9, 3.784983364455546*^9, 
   3.7850645331389093`*^9, 3.785064580848096*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"2f811ce9-acfc-4891-9474-5a690b3c9891"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9, 3.784983364455546*^9, 
   3.7850645331389093`*^9, 3.785064580850297*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"3ca907a1-5c93-4441-b41c-298c307dd638"],
Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", "x"}], ")"}]}]], "width"], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", "x"}], ")"}]}]}]], " ", "omega"}], 
   "width"]}]], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9, 3.784983364455546*^9, 
   3.7850645331389093`*^9, 3.785064580852498*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"b7e3307b-b77a-4ea1-9031-2f609615d045"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9, 3.784983364455546*^9, 
   3.7850645331389093`*^9, 3.7850645808547773`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"8e291a99-9d37-422c-af40-2c8eee6215f2"],
Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", "x"}], ")"}]}]], "width"], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", "x"}], ")"}]}]}]]}], 
  "width"]], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9, 3.784983364455546*^9, 
   3.7850645331389093`*^9, 3.7850645808569393`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"8fa83b81-b5d9-4153-9c1a-48bc07421454"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.784926161823537*^9, 3.7849261683773413`*^9}, 
   3.784926222247972*^9, {3.784926406213086*^9, 3.784926448902779*^9}, 
   3.784926503003353*^9, 3.78492655116531*^9, 3.784926743753647*^9, 
   3.78492678092181*^9, 3.7849274272992153`*^9, 3.7849282050564623`*^9, 
   3.784936802557678*^9, 3.784938752228726*^9, 3.784983364455546*^9, 
   3.7850645331389093`*^9, 3.7850645808591557`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"99627a68-9930-41b0-abfa-c74cc745fc1b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Constraints", "Subsection",
 CellChangeTimes->{{3.7832921254459267`*^9, 
  3.78329212647818*^9}},ExpressionUUID->"3e3e5b4c-6626-4ade-94ff-\
c17b9d2ed6fc"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"divE", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dxc", "[", "Ex", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dyc", "[", "Ey", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzc", "[", "Ez", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.783292145366837*^9, 3.783292156719739*^9}, {
  3.783293248862955*^9, 3.783293251332283*^9}, {3.783298055147312*^9, 
  3.783298067068664*^9}, {3.783342792902832*^9, 3.783342797289362*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"3ec05bb6-1fb5-4c17-b7f5-ba3dbf17794b"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}], "+", 
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "omega"}], " ", "t"}], "+", 
          RowBox[{"kx", " ", "x"}], "+", 
          RowBox[{"ky", " ", "y"}], "+", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]], "width"], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kx", " ", "x"}], "+", 
        RowBox[{"ky", " ", "y"}], "+", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"at", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["kx", "2"], "+", 
        SuperscriptBox["ky", "2"], "+", 
        SuperscriptBox["kz", "2"]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ax", " ", "kx"}], "+", 
        RowBox[{"ay", " ", "ky"}], "+", 
        RowBox[{"az", " ", "kz"}]}], ")"}], " ", "omega"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "omega", " ", "t"}]], "+", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"kx", " ", "x"}], "+", 
          RowBox[{"ky", " ", "y"}], "+", 
          RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "width"}]}], ")"}]}], 
  SuperscriptBox["width", "2"]]], "Output",
 CellChangeTimes->{3.784926853580351*^9, 3.784927427402955*^9, 
  3.7849282051647787`*^9, 3.7849368026914*^9, 3.784938753113062*^9, 
  3.784983367886836*^9, 3.7850645453634577`*^9, 3.7850645809737997`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"7433707a-48b1-4401-9ec9-38e6ff4b2dc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"ampV", "=", 
  RowBox[{"{", 
   RowBox[{"at", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ax", " ", "kx"}], "+", 
        RowBox[{"ay", " ", "ky"}], "+", 
        RowBox[{"az", " ", "kz"}]}], ")"}], " ", "omega"}], 
     RowBox[{
      SuperscriptBox["kx", "2"], "+", 
      SuperscriptBox["ky", "2"], "+", 
      SuperscriptBox["kz", "2"]}]]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783335999806149*^9, 3.7833360202528067`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"fc1c648a-d3b7-4b01-82e0-47fd8ce7ef08"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"at", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "kx"}], "+", 
       RowBox[{"ay", " ", "ky"}], "+", 
       RowBox[{"az", " ", "kz"}]}], ")"}], " ", "omega"}], 
    RowBox[{
     SuperscriptBox["kx", "2"], "+", 
     SuperscriptBox["ky", "2"], "+", 
     SuperscriptBox["kz", "2"]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.783458585007352*^9, 3.783458798174803*^9, 3.783530557429388*^9, 
   3.7849160518838*^9, 3.7849265041453342`*^9, 3.7849265577389927`*^9, 
   3.784926854580278*^9, 3.7849274274159737`*^9, 3.784928205177919*^9, 
   3.7849368027938557`*^9, 3.784938753263118*^9, 3.784983370015008*^9, {
   3.7850645556473837`*^9, 3.7850645809832172`*^9}},
 CellLabel->"Out[45]=",ExpressionUUID->"8a0ff985-61e3-43ad-bb55-276c4348d91e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"omegaV", "=", 
  RowBox[{"{", 
   RowBox[{"omega", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"at", " ", 
       SuperscriptBox["kx", "2"]}], "+", 
      RowBox[{"at", " ", 
       SuperscriptBox["ky", "2"]}], "+", 
      RowBox[{"at", " ", 
       SuperscriptBox["kz", "2"]}]}], 
     RowBox[{
      RowBox[{"ax", " ", "kx"}], "+", 
      RowBox[{"ay", " ", "ky"}], "+", 
      RowBox[{"az", " ", "kz"}]}]]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.784926265093534*^9, 3.784926266987812*^9}, {
  3.7849263197088013`*^9, 3.7849263216308947`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"cc2c411b-c45c-42c8-8e3b-a389827ce36a"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"at", " ", 
      SuperscriptBox["kx", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["ky", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["kz", "2"]}]}], 
    RowBox[{
     RowBox[{"ax", " ", "kx"}], "+", 
     RowBox[{"ay", " ", "ky"}], "+", 
     RowBox[{"az", " ", "kz"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784926324363162*^9, 3.784926504234408*^9, 3.784926559043366*^9, 
   3.78492685566693*^9, 3.7849274274807043`*^9, 3.784928205240254*^9, 
   3.7849368028096857`*^9, 3.784938753278738*^9, 3.784983372286216*^9, {
   3.7850645568887377`*^9, 3.7850645810521193`*^9}},
 CellLabel->"Out[46]=",ExpressionUUID->"62de86d4-7671-479d-8bb7-7afc1860401e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"divE", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "ampV"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{
  3.783335941316668*^9, 3.7833359816130667`*^9, {3.7833360182946997`*^9, 
   3.7833360190732183`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"66ae3881-741c-4285-83c9-df07089949bf"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.783458585077766*^9, 3.78345879824928*^9, 3.7835305574941998`*^9, 
   3.784916051901404*^9, 3.7849263267179117`*^9, 3.784926504249899*^9, 
   3.7849265623056192`*^9, 3.784926856791456*^9, 3.784927428303293*^9, 
   3.784928205256496*^9, 3.784936802898436*^9, 3.7849387533651047`*^9, 
   3.784983373707103*^9, {3.785064557838201*^9, 3.7850645810612297`*^9}},
 CellLabel->"Out[47]=",ExpressionUUID->"4a64dcd9-3476-4e78-b8c2-e29dda2d5eef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"divE", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "omegaV"}], "//",
   "FullSimplify"}]], "Input",
 CellChangeTimes->{
  3.783335941316668*^9, 3.7833359816130667`*^9, {3.7833360182946997`*^9, 
   3.7833360190732183`*^9}, {3.784926336393487*^9, 3.784926337963985*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"de367ade-a08a-4ceb-865e-90eab98840eb"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.784926338521921*^9, 3.784926504342019*^9, 3.784926563484861*^9, 
   3.784926859018317*^9, 3.784927428421389*^9, 3.7849282053199244`*^9, 
   3.784936802912953*^9, 3.784938753380718*^9, 3.784983374715863*^9, {
   3.7850645589967813`*^9, 3.78506458112934*^9}},
 CellLabel->"Out[48]=",ExpressionUUID->"60d658ce-eb8a-478e-b524-6f69419c5372"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"divB", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dxc", "[", "Byz", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dyc", "[", "Bzx", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzc", "[", "Bxy", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.783297945519575*^9, 3.7832979855263977`*^9}, {
  3.783298075108592*^9, 3.7832980825665417`*^9}, {3.783342808866626*^9, 
  3.783342813170476*^9}, {3.785064652420122*^9, 3.785064653937523*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"cf793834-03c7-4ed8-9951-2fabe5943fa2"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7834585850922537`*^9, 3.783458798265827*^9, 3.783530558202355*^9, 
   3.784916051982232*^9, 3.784926504358815*^9, 3.784926564937158*^9, 
   3.784926861230139*^9, 3.784927428436758*^9, 3.784928206086213*^9, 
   3.7849368030004*^9, 3.784938753465213*^9, 3.7849833760130243`*^9, {
   3.785064560023102*^9, 3.7850645811404*^9}, 3.785064655325968*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"d7fed812-bae3-4430-b656-58c7378ec99e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete", "Section",
 CellChangeTimes->{{3.783292129717437*^9, 
  3.783292130884912*^9}},ExpressionUUID->"44546bb6-865c-4468-818f-\
feb9fca0ffff"],
Cell[CellGroupData[{
Cell["Discrete ansatz", "Subsection",
 CellChangeTimes->{{3.783279163636784*^9, 3.783279167157402*^9}, {
   3.783288028572418*^9, 3.783288032669345*^9}, 
   3.7832898006896057`*^9},ExpressionUUID->"37411d18-7a65-41f7-819d-\
7fb4d132f911"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"$Assumptions", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"dt", ">", "0"}], ",", 
    RowBox[{"dx", ">", "0"}], ",", 
    RowBox[{"dy", ">", "0"}], ",", 
    RowBox[{"dz", ">", "0"}], ",", 
    RowBox[{"omega", ">", "0"}], ",", 
    RowBox[{"kx", ">", "0"}], ",", 
    RowBox[{"ky", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"kz", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"at", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"ax", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"ay", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"az", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"otkx", "\[Element]", "Reals"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783342006184225*^9, 3.783342026591098*^9}, {
   3.783342831764945*^9, 3.783342837772032*^9}, {3.783344253945833*^9, 
   3.783344264513921*^9}, {3.783344418833343*^9, 3.783344430042726*^9}, {
   3.78334523752707*^9, 3.7833452378636837`*^9}, {3.783345615497766*^9, 
   3.783345618766365*^9}, {3.78334584676614*^9, 3.783345847694955*^9}, {
   3.783454812059046*^9, 3.7834548173865423`*^9}, 3.783457829663556*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"4f32fb19-bf12-424a-ba12-7f8845a4b931"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"dt", ">", "0"}], ",", 
   RowBox[{"dx", ">", "0"}], ",", 
   RowBox[{"dy", ">", "0"}], ",", 
   RowBox[{"dz", ">", "0"}], ",", 
   RowBox[{"omega", ">", "0"}], ",", 
   RowBox[{"kx", ">", "0"}], ",", 
   RowBox[{"ky", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"kz", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"at", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"ax", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"ay", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"az", "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"otkx", "\[Element]", 
    TemplateBox[{},
     "Reals"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.783458585161968*^9, 3.783458798341215*^9, 
  3.783530558334055*^9, 3.784916052075119*^9, 3.784926504452387*^9, 
  3.7849274285015097`*^9, 3.784928206205501*^9, 3.7849284007647877`*^9, 
  3.784929371641809*^9, 3.784929475909142*^9, 3.784929569942583*^9, 
  3.784934524893918*^9, 3.78493680301508*^9, 3.784938753546048*^9, 
  3.784983379748089*^9, 3.785064581292861*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"c3e32370-558e-4324-be78-697ddfaf61c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"phiD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"at", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AxD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"ax", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AyD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"ay", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AzD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{"az", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"omega", " ", "t"}], "-", 
       RowBox[{"kx", " ", "x"}], "-", 
       RowBox[{"ky", " ", "y"}], "-", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7849278819184647`*^9, 3.784927930138226*^9}, {
   3.784928703383206*^9, 3.784928723417822*^9}, 3.784929466563158*^9, {
   3.7849295107340317`*^9, 3.7849295133810863`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"61e1d3af-81c7-4629-8d10-134a0eda4efb"],
Cell[BoxData[
 RowBox[{"at", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.7850645813775682`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"3e05cc38-b165-49cb-9008-bdba59dac4db"],
Cell[BoxData[
 RowBox[{"ax", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.785064581381171*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"afc2da7f-736a-437d-9ef0-19d7f3678291"],
Cell[BoxData[
 RowBox[{"ay", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.785064581383377*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"b3f22efb-a725-4475-967d-be7e19c34e2a"],
Cell[BoxData[
 RowBox[{"az", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.78506458138566*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"58fac883-efd7-4763-9b1c-14db831ed860"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"phiD", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"at", "*", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", "*", "t"}], " ", "-", " ", 
          RowBox[{"kx", "*", "x"}], " ", "-", " ", 
          RowBox[{"ky", "*", "y"}], " ", "-", " ", 
          RowBox[{"kz", "*", "z"}]}], "]"}], "/", "width"}], ")"}], "^", 
      "2"}]}], "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"AxD", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"ax", "*", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", "*", "t"}], " ", "-", " ", 
          RowBox[{"kx", "*", "x"}], " ", "-", " ", 
          RowBox[{"ky", "*", "y"}], " ", "-", " ", 
          RowBox[{"kz", "*", "z"}]}], "]"}], "/", "width"}], ")"}], "^", 
      "2"}]}], "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"AyD", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"ay", "*", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", "*", "t"}], " ", "-", " ", 
          RowBox[{"kx", "*", "x"}], " ", "-", " ", 
          RowBox[{"ky", "*", "y"}], " ", "-", " ", 
          RowBox[{"kz", "*", "z"}]}], "]"}], "/", "width"}], ")"}], "^", 
      "2"}]}], "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"AzD", "[", 
   RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ",
   "=", " ", 
  RowBox[{"az", "*", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", "*", "t"}], " ", "-", " ", 
          RowBox[{"kx", "*", "x"}], " ", "-", " ", 
          RowBox[{"ky", "*", "y"}], " ", "-", " ", 
          RowBox[{"kz", "*", "z"}]}], "]"}], "/", "width"}], ")"}], "^", 
      "2"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.784983417931789*^9, 3.784983420892644*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"dd39778f-7c98-4d4b-bed2-2f3465460333"],
Cell[BoxData[
 RowBox[{"at", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
     RowBox[{"2", " ", 
      SuperscriptBox["width", "2"]}]]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753563616*^9, 3.7849834214114933`*^9, 3.785064581395548*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"1275c70a-cb7d-4c58-b26f-be03b0a2d64d"],
Cell[BoxData[
 RowBox[{"ax", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
     RowBox[{"2", " ", 
      SuperscriptBox["width", "2"]}]]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753563616*^9, 3.7849834214114933`*^9, 3.785064581398273*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"acdfaa66-9f40-4445-89df-395eb4a37ccc"],
Cell[BoxData[
 RowBox[{"ay", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
     RowBox[{"2", " ", 
      SuperscriptBox["width", "2"]}]]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753563616*^9, 3.7849834214114933`*^9, 3.785064581400949*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"acf29de8-3e6b-420f-b111-7345c7c10f72"],
Cell[BoxData[
 RowBox[{"az", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
     RowBox[{"2", " ", 
      SuperscriptBox["width", "2"]}]]}]]}]], "Output",
 CellChangeTimes->{3.784935126794736*^9, 3.784936803105015*^9, 
  3.784938753563616*^9, 3.7849834214114933`*^9, 3.785064581403687*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"bee213ac-d2bf-41e8-8166-66df731849b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choiceD", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"omega", "\[Rule]", "1"}], ",", 
    RowBox[{"kx", "\[Rule]", "1"}], ",", 
    RowBox[{"ky", "\[Rule]", "0"}], ",", 
    RowBox[{"kz", "\[Rule]", "0"}], ",", 
    RowBox[{"at", "\[Rule]", "0"}], ",", 
    RowBox[{"ax", "\[Rule]", "0"}], ",", 
    RowBox[{"ay", "\[Rule]", "1"}], ",", 
    RowBox[{"az", "\[Rule]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7849259597542467`*^9, 3.7849259625674477`*^9}, {
   3.784926576506619*^9, 3.784926583785121*^9}, {3.7849269639361887`*^9, 
   3.784926974092251*^9}, {3.784928463923705*^9, 3.784928465806653*^9}, {
   3.784928816640049*^9, 3.784928817402258*^9}, {3.784928857220352*^9, 
   3.7849288590250807`*^9}, {3.784929356749961*^9, 3.784929367164022*^9}, 
   3.784933118158204*^9, 3.784933170715129*^9, {3.7849332029160967`*^9, 
   3.784933229874072*^9}, 3.784933830546213*^9, {3.78493399019615*^9, 
   3.784934049828381*^9}, {3.7849342209511433`*^9, 3.784934245743949*^9}, {
   3.784934363259612*^9, 3.784934379712887*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"ec1fd0f2-0b4a-4a3b-a3b8-b440d9b40139"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"omega", "\[Rule]", "1"}], ",", 
   RowBox[{"kx", "\[Rule]", "1"}], ",", 
   RowBox[{"ky", "\[Rule]", "0"}], ",", 
   RowBox[{"kz", "\[Rule]", "0"}], ",", 
   RowBox[{"at", "\[Rule]", "0"}], ",", 
   RowBox[{"ax", "\[Rule]", "0"}], ",", 
   RowBox[{"ay", "\[Rule]", "1"}], ",", 
   RowBox[{"az", "\[Rule]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.784928859610223*^9, 3.78492937388026*^9, 3.784929483071019*^9, 
   3.784929571794755*^9, 3.7849296534475403`*^9, 3.7849322843074083`*^9, 
   3.784933119293952*^9, 3.784933171124814*^9, {3.78493321584337*^9, 
   3.784933230415573*^9}, 3.7849338319626503`*^9, 3.784933990724744*^9, {
   3.784934021407054*^9, 3.784934050174902*^9}, {3.784934223742136*^9, 
   3.784934251050124*^9}, {3.784934363742098*^9, 3.784934380324869*^9}, 
   3.784934527857833*^9, 3.784936803237864*^9, 3.784938753702379*^9, 
   3.784983428623282*^9, 3.785064581486154*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"cb58d17f-347a-483d-806f-b54a1f5262bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choiceD", "=", 
  RowBox[{"{", 
   RowBox[{"omega", "\[Rule]", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"kx", "^", "2"}], "+", 
      RowBox[{"ky", "^", "2"}], "+", 
      RowBox[{"kz", "^", "2"}]}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7849259597542467`*^9, 3.7849259625674477`*^9}, {
   3.784926576506619*^9, 3.784926583785121*^9}, {3.7849269639361887`*^9, 
   3.784926974092251*^9}, {3.784928463923705*^9, 3.784928465806653*^9}, {
   3.784928816640049*^9, 3.784928817402258*^9}, {3.784928857220352*^9, 
   3.7849288590250807`*^9}, {3.784929356749961*^9, 3.784929367164022*^9}, 
   3.784933118158204*^9, 3.784933170715129*^9, {3.7849332029160967`*^9, 
   3.784933229874072*^9}, 3.784933830546213*^9, {3.78493399019615*^9, 
   3.784934049828381*^9}, {3.7849342209511433`*^9, 3.784934245743949*^9}, {
   3.784934363259612*^9, 3.784934379712887*^9}, {3.7849350379108133`*^9, 
   3.784935061511662*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"f6ffa4b5-ec05-4dde-a0df-a07ecac4d1b9"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["kx", "2"], "+", 
     SuperscriptBox["ky", "2"], "+", 
     SuperscriptBox["kz", "2"]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784935061845069*^9, 3.784935138172163*^9, 
  3.784936803254672*^9, 3.784938753787303*^9, 3.7849834297677603`*^9, 
  3.785064581498781*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"10157015-cb8f-41fa-bd91-d4729b5fada6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"choiceD", "=", 
  RowBox[{"{", "}"}]}]], "Input",
 CellChangeTimes->{{3.784936789625457*^9, 3.7849367942081547`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"8538f381-fe5c-4102-a65e-276ff2c11b51"],
Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.784936794871747*^9, 3.784936803344173*^9}, 
   3.784938753805874*^9, 3.784983430770197*^9, 3.785064581587461*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"3ef6d13f-e1a6-4d52-bccb-6597f224a73b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete fields", "Subsection",
 CellChangeTimes->{{3.783285746509993*^9, 3.7832857546283607`*^9}, {
   3.783288812056478*^9, 3.783288812804657*^9}, {3.7832889233908443`*^9, 
   3.783288926838377*^9}, 
   3.783290910300761*^9},ExpressionUUID->"87e31fb7-5245-4c18-b66b-\
3edbabb4119f"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ExD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dxp", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "AxD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EyD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dyp", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "AyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EzD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"dzp", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"dtc", "[", "AzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ByzD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dyp", "[", "AzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dzp", "[", "AyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BzxD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dzp", "[", "AxD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dxp", "[", "AzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BxyD", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dxp", "[", "AyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
   RowBox[{
    RowBox[{"dyp", "[", "AxD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7832888238059187`*^9, 3.783288897574956*^9}, {
  3.783289003383407*^9, 3.783289016795307*^9}, {3.7832896305534363`*^9, 
  3.783289642989641*^9}, {3.783290928726963*^9, 3.783290932444375*^9}, {
  3.783336797739615*^9, 3.783336830783834*^9}, {3.7833414088660793`*^9, 
  3.7833414171311407`*^9}, {3.783342487160666*^9, 3.783342488260701*^9}, {
  3.783342907722822*^9, 3.783342909397377*^9}, {3.784928420299129*^9, 
  3.7849284239637938`*^9}, {3.784928741311902*^9, 3.784928741618229*^9}, {
  3.78493297399336*^9, 3.784933007162346*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"80b4a114-bd12-447e-bd3a-c6f6692b6719"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", 
             RowBox[{"(", 
              RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}]}], "dx"]}], "+", 
  FractionBox[
   RowBox[{"ax", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], "]"}]}], 
   SuperscriptBox["width", "2"]]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9, 3.78498345702372*^9, 
   3.7850645816045218`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"2c33ccb4-1754-4fe0-ad0c-d38b3eeb7e76"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", 
             RowBox[{"(", 
              RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}]}], "dy"]}], "+", 
  FractionBox[
   RowBox[{"ay", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], "]"}]}], 
   SuperscriptBox["width", "2"]]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9, 3.78498345702372*^9, 
   3.7850645816085587`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"27777d2f-db88-40fc-8ca9-8ed493bf9650"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", 
             RowBox[{"(", 
              RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}]}], "dz"]}], "+", 
  FractionBox[
   RowBox[{"az", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      RowBox[{"omega", " ", "t"}], "-", 
      RowBox[{"kx", " ", "x"}], "-", 
      RowBox[{"ky", " ", "y"}], "-", 
      RowBox[{"kz", " ", "z"}]}], "]"}]}], 
   SuperscriptBox["width", "2"]]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9, 3.78498345702372*^9, 
   3.785064581611809*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"24380617-b9c5-4635-93d1-567c5dd30c07"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "az"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}], "+", 
    RowBox[{"az", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", 
            RowBox[{"(", 
             RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}]}], "dy"], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ay"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}], "+", 
    RowBox[{"ay", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", 
            RowBox[{"(", 
             RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}]}], "dz"]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9, 3.78498345702372*^9, 
   3.785064581615292*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"5203f992-a99e-4ffb-88d5-da2d013e4d29"],
Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "az"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "+", 
     RowBox[{"az", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", 
             RowBox[{"(", 
              RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}]}], "dx"]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ax"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}], "+", 
    RowBox[{"ax", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", 
            RowBox[{"(", 
             RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}]}], "dz"]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9, 3.78498345702372*^9, 
   3.785064581619244*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"bda56f77-2e4e-4995-9b48-dbf537a810cb"],
Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ay"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}], "+", 
    RowBox[{"ay", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", 
            RowBox[{"(", 
             RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}]}], "dx"], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "ax"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}], "+", 
    RowBox[{"ax", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", 
            RowBox[{"(", 
             RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}]]}]}], "dy"]}]], "Output",
 CellChangeTimes->{
  3.783458589050912*^9, 3.7834588470740547`*^9, 3.783530604858551*^9, 
   3.784916102490511*^9, 3.784926505885*^9, 3.784927197586533*^9, 
   3.784927429052146*^9, 3.7849279481188507`*^9, 3.784928207051305*^9, {
   3.784928406940536*^9, 3.784928425055319*^9}, {3.7849287289159603`*^9, 
   3.7849287443215313`*^9}, 3.784928821595999*^9, 3.784929376176963*^9, 
   3.7849294859335213`*^9, {3.784929573321154*^9, 3.784929591791855*^9}, 
   3.784929655179866*^9, 3.784932285903789*^9, {3.784932979954671*^9, 
   3.78493300771624*^9}, 3.784933121277581*^9, 3.784933173300157*^9, {
   3.784933217280819*^9, 3.784933231811758*^9}, 3.7849338337688313`*^9, 
   3.784934225343235*^9, {3.784934365272644*^9, 3.784934381850128*^9}, 
   3.784934529447452*^9, 3.784935063592806*^9, 3.784935140884194*^9, 
   3.784936803364009*^9, 3.784938753897688*^9, 3.78498345702372*^9, 
   3.785064581622661*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"d5860848-6a89-4ca4-8e53-d2f1dd5b6694"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ExD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EyD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EzD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ByzD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BzxD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BxyD", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "choiceD"}], "//",
   "Factor"}]}], "Input",
 CellChangeTimes->{{3.784928129312604*^9, 3.784928139452436*^9}, {
  3.784929530188047*^9, 3.784929561030242*^9}, {3.784929716918702*^9, 
  3.7849297992945023`*^9}, {3.784932424199163*^9, 3.784932456212781*^9}, {
  3.784932492155108*^9, 3.784932574917667*^9}, {3.7849345528350267`*^9, 
  3.784934725265066*^9}, {3.784934851984462*^9, 3.7849349826085033`*^9}, {
  3.784935150628812*^9, 3.78493515104205*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"5fe7cb9b-9bc1-454c-80bf-7b3b0713bc73"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"dx", " ", 
    SuperscriptBox["width", "2"]}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
      RowBox[{"2", " ", 
       SuperscriptBox["width", "2"]}]]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", 
      SuperscriptBox["width", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", 
            RowBox[{"(", 
             RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", 
      SuperscriptBox["width", "2"]}], "+", 
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", 
            RowBox[{"(", 
             RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", "omega", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9, 3.784983460820408*^9, 3.7850645817001247`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"827ac3aa-a195-49d3-8c7f-94a7a93c750f"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"dy", " ", 
    SuperscriptBox["width", "2"]}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", 
          RowBox[{"(", 
           RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
      RowBox[{"2", " ", 
       SuperscriptBox["width", "2"]}]]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", 
      SuperscriptBox["width", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", 
            RowBox[{"(", 
             RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", 
      SuperscriptBox["width", "2"]}], "+", 
     RowBox[{"ay", " ", "dy", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", 
            RowBox[{"(", 
             RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", "omega", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9, 3.784983460820408*^9, 3.7850645817049713`*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"8d874b98-5d5d-47f4-adfd-9ad8d39109be"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"dz", " ", 
    SuperscriptBox["width", "2"]}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
      RowBox[{"2", " ", 
       SuperscriptBox["width", "2"]}]]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "at"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", 
      SuperscriptBox["width", "2"]}], "+", 
     RowBox[{"at", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", 
            RowBox[{"(", 
             RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", 
      SuperscriptBox["width", "2"]}], "+", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", 
            RowBox[{"(", 
             RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]], " ", "omega", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"omega", " ", "t"}], "-", 
        RowBox[{"kx", " ", "x"}], "-", 
        RowBox[{"ky", " ", "y"}], "-", 
        RowBox[{"kz", " ", "z"}]}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9, 3.784983460820408*^9, 3.785064581709016*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"e8df2f4f-05d0-4644-b3ba-1630d545b978"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"dy", " ", "dz"}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", 
           RowBox[{"(", 
            RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", 
           RowBox[{"(", 
            RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}], "-", 
      RowBox[{"az", " ", "dz", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", 
              RowBox[{"(", 
               RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}], "-", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", 
              RowBox[{"(", 
               RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}], "+", 
      RowBox[{"az", " ", "dz", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", 
              RowBox[{"(", 
               RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9, 3.784983460820408*^9, 3.785064581713174*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"f369469f-2925-476f-8c64-4ccfefcf56b2"],
Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"dx", " ", "dz"}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", 
          RowBox[{"(", 
           RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
      RowBox[{"2", " ", 
       SuperscriptBox["width", "2"]}]], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", 
          RowBox[{"(", 
           RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
      RowBox[{"2", " ", 
       SuperscriptBox["width", "2"]}]]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", 
             RowBox[{"(", 
              RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "-", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", 
             RowBox[{"(", 
              RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "-", 
     RowBox[{"ax", " ", "dx", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", 
             RowBox[{"(", 
              RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", 
             RowBox[{"(", 
              RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}], "+", 
     RowBox[{"az", " ", "dz", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", 
             RowBox[{"(", 
              RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"omega", " ", "t"}], "-", 
            RowBox[{"kx", " ", "x"}], "-", 
            RowBox[{"ky", " ", "y"}], "-", 
            RowBox[{"kz", " ", 
             RowBox[{"(", 
              RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["width", "2"]}]]}]]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9, 3.784983460820408*^9, 3.785064581718648*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"3316c1a9-12f1-40fa-b4ad-9093f47d355b"],
Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"dx", " ", "dy"}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"omega", " ", "t"}], "-", 
           RowBox[{"kx", " ", "x"}], "-", 
           RowBox[{"ky", " ", "y"}], "-", 
           RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
        RowBox[{"2", " ", 
         SuperscriptBox["width", "2"]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", 
           RowBox[{"(", 
            RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
          RowBox[{"ky", " ", "y"}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"omega", " ", "t"}], "-", 
          RowBox[{"kx", " ", "x"}], "-", 
          RowBox[{"ky", " ", 
           RowBox[{"(", 
            RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
          RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["width", "2"]}]]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "dx", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", 
              RowBox[{"(", 
               RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}], "-", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}], "-", 
      RowBox[{"ax", " ", "dx", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", 
              RowBox[{"(", 
               RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}], "+", 
      RowBox[{"ay", " ", "dy", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", 
              RowBox[{"(", 
               RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.7849345687554493`*^9, 3.784934725668021*^9}, {
   3.784934871039003*^9, 3.784934982911704*^9}, 3.784935065290084*^9, {
   3.784935145543771*^9, 3.784935151529202*^9}, 3.784936803505599*^9, 
   3.784938753973631*^9, 3.784983460820408*^9, 3.7850645817236834`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"7b736e32-c79d-4a42-a21e-9f0af03edef7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete constraints", "Subsection",
 CellChangeTimes->{{3.783292117771056*^9, 
  3.783292120024822*^9}},ExpressionUUID->"359ea8b1-efb7-4563-8f67-\
7dd3f709b468"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"divED", "[", 
   RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dxm", "[", "ExD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
   RowBox[{
    RowBox[{"dym", "[", "EyD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
   RowBox[{
    RowBox[{"dzm", "[", "EzD", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7832889481127234`*^9, 3.78328901958158*^9}, {
   3.7832896481029387`*^9, 3.7832896488380613`*^9}, 3.784927231582749*^9, {
   3.784933256438857*^9, 3.784933257994173*^9}, 3.7849837117512407`*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"ea992c97-48c7-4122-a882-78f5b0809bcf"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "dx"], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}], "-", 
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "dx"}], "+", "x"}], ")"}]}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}]}], "dx"], "-", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "at"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}], "+", 
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", 
               RowBox[{"(", 
                RowBox[{"dx", "+", "x"}], ")"}]}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}]}], "dx"], "+", 
     FractionBox[
      RowBox[{"ax", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}]}], 
      SuperscriptBox["width", "2"]], "-", 
     FractionBox[
      RowBox[{"ax", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "dx"}], "+", "x"}], ")"}]}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dx"}], "+", "x"}], ")"}]}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dx"}], "+", "x"}], ")"}]}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}]}], 
      SuperscriptBox["width", "2"]]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "dy"], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}], "-", 
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "dy"}], "+", "y"}], ")"}]}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}]}], "dy"], "-", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "at"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}], "+", 
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", 
               RowBox[{"(", 
                RowBox[{"dy", "+", "y"}], ")"}]}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}]}], "dy"], "+", 
     FractionBox[
      RowBox[{"ay", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}]}], 
      SuperscriptBox["width", "2"]], "-", 
     FractionBox[
      RowBox[{"ay", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "dy"}], "+", "y"}], ")"}]}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dy"}], "+", "y"}], ")"}]}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dy"}], "+", "y"}], ")"}]}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}]}], 
      SuperscriptBox["width", "2"]]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "dz"], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}], "-", 
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "dz"}], "+", "z"}], ")"}]}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}]}], "dz"], "-", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "at"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}], "+", 
       RowBox[{"at", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"omega", " ", "t"}], "-", 
              RowBox[{"kx", " ", "x"}], "-", 
              RowBox[{"ky", " ", "y"}], "-", 
              RowBox[{"kz", " ", 
               RowBox[{"(", 
                RowBox[{"dz", "+", "z"}], ")"}]}]}], "]"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["width", "2"]}]]}]]}]}], "dz"], "+", 
     FractionBox[
      RowBox[{"az", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", "z"}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", "z"}]}], "]"}]}], 
      SuperscriptBox["width", "2"]], "-", 
     FractionBox[
      RowBox[{"az", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"omega", " ", "t"}], "-", 
             RowBox[{"kx", " ", "x"}], "-", 
             RowBox[{"ky", " ", "y"}], "-", 
             RowBox[{"kz", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "dz"}], "+", "z"}], ")"}]}]}], "]"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["width", "2"]}]]}]], " ", "omega", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dz"}], "+", "z"}], ")"}]}]}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"omega", " ", "t"}], "-", 
         RowBox[{"kx", " ", "x"}], "-", 
         RowBox[{"ky", " ", "y"}], "-", 
         RowBox[{"kz", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "dz"}], "+", "z"}], ")"}]}]}], "]"}]}], 
      SuperscriptBox["width", "2"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.7834586324107113`*^9, 3.783458852938645*^9, 3.7835306105137444`*^9, 
   3.78491610878761*^9, 3.7849265108855658`*^9, {3.7849272265431013`*^9, 
   3.7849272322548103`*^9}, 3.784927429824341*^9, 3.784927953688184*^9, 
   3.784928208199441*^9, 3.784928431906602*^9, 3.784928749238761*^9, 
   3.784928827920281*^9, 3.7849288637205153`*^9, 3.784929384418229*^9, 
   3.784932892593677*^9, {3.78493298506111*^9, 3.7849330127676086`*^9}, 
   3.7849331410944843`*^9, 3.784933177746821*^9, {3.784933221099971*^9, 
   3.784933258968755*^9}, 3.784933837059225*^9, 3.784934228817027*^9, {
   3.784934369681457*^9, 3.784934385950316*^9}, 3.784935074905711*^9, 
   3.784935163867249*^9, 3.784936804035594*^9, 3.784938754966872*^9, 
   3.78498359466713*^9, 3.784983629340398*^9, 3.784983712427023*^9, 
   3.78506458174155*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"b944038e-8411-465d-b37d-debf9cb5817d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"divEDsols", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"divED", "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", "0"}],
       "/.", "choiceD"}], "//", "FullSimplify"}], ",", "at"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7849284875928717`*^9, 3.784928508325074*^9}, {
  3.784928767376871*^9, 3.7849287677539997`*^9}, {3.7849350870357428`*^9, 
  3.784935108823058*^9}, {3.784935209827303*^9, 3.7849352117304983`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"d0ee9145-6f1d-4ed9-ac88-82cd8387b302"],
Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.7849285015509377`*^9, 3.784928509228242*^9}, {
   3.784928759220595*^9, 3.7849287686923113`*^9}, 3.784928831813808*^9, 
   3.7849288687204237`*^9, 3.7849331491384993`*^9, 3.7849331815634813`*^9, 
   3.784933248741601*^9, 3.784933895693529*^9, 3.7849341571667*^9, {
   3.784934232797909*^9, 3.784934260272773*^9}, {3.784934375147777*^9, 
   3.784934390131633*^9}, {3.784935088235599*^9, 3.784935117586533*^9}, 
   3.7849351821355333`*^9, 3.784935219158823*^9, 3.784936807509951*^9, 
   3.784938758415206*^9, 3.785064587982018*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"6be90d37-906c-46d3-b7a6-075f4e70c1f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"atLD", "=", 
  RowBox[{"divEDsols", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7849352009955187`*^9, 3.784935223528781*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"fd89f9ca-72f6-43ba-ad63-eedceb490ec2"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"at", "\[Rule]", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "dx", " ", "dy", " ", "dz", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "az"}], " ", "dx", " ", "dy"}], "-", 
       RowBox[{"ay", " ", "dx", " ", "dz"}], "-", 
       RowBox[{"ax", " ", "dy", " ", "dz"}], "+", 
       RowBox[{"ax", " ", "dy", " ", "dz", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], "+", 
       RowBox[{"ay", " ", "dx", " ", "dz", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], "+", 
       RowBox[{"az", " ", "dx", " ", "dy", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}]}], ")"}], " ", 
     "omega"}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["dx", "2"]}], " ", 
        SuperscriptBox["dy", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dy", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784935223871623*^9, 3.784936807610507*^9, 
  3.7849387585735703`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"ad8ab563-d07c-48bd-909b-09fcf10be893"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell["Discrete Lorenz gauge", "Subsection",
 CellChangeTimes->{{3.783279294742515*^9, 3.783279314301189*^9}, {
  3.783279632954688*^9, 3.7832796337654943`*^9}, {3.783288168670554*^9, 
  3.783288169798088*^9}, {3.783289813231575*^9, 
  3.7832898139145*^9}},ExpressionUUID->"9ca3a0f2-a9fc-4760-9e14-f159af552252"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeLD", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"dtc", "[", "phiD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dxm", "[", "AxD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dym", "[", "AyD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{
     RowBox[{"dzm", "[", "AzD", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.783336337603697*^9, 3.783336389384419*^9}, {
   3.783336567509454*^9, 3.783336568933276*^9}, {3.783336781967634*^9, 
   3.783336783926651*^9}, 3.783342103049555*^9, {3.783342162919932*^9, 
   3.783342163450646*^9}, 3.78334233568404*^9, {3.783342403744688*^9, 
   3.78334240446299*^9}, 3.783342823922635*^9, {3.7833430921161137`*^9, 
   3.783343092572027*^9}, {3.783343319505251*^9, 3.78334332440626*^9}, {
   3.783349679555678*^9, 3.783349681634242*^9}, {3.783349821019146*^9, 
   3.783349829766995*^9}, 3.7833498875851*^9, {3.7833499562223673`*^9, 
   3.7833499567735767`*^9}, 3.783454831016912*^9, 3.783454875885537*^9, {
   3.783458310987686*^9, 3.783458313051189*^9}, {3.783458393584773*^9, 
   3.7834583940757637`*^9}, {3.7834586257265863`*^9, 3.7834586279612713`*^9}, 
   3.7849259729569273`*^9, {3.784927087545402*^9, 3.7849270885016727`*^9}, {
   3.784927131231851*^9, 3.7849271590165997`*^9}, {3.7849344564274063`*^9, 
   3.784934472995122*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"ff76d3ac-949c-47a5-91f7-47bd394ca822"],
Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "omega"}], " ", "t"}], "+", 
       RowBox[{"kx", " ", "x"}], "+", 
       RowBox[{"ky", " ", "y"}], "+", 
       RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "ay"}], " ", "dx", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}]}], "-", 
     RowBox[{"az", " ", "dx", " ", "dy", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}]}], "+", 
     RowBox[{"dy", " ", "dz", " ", 
      RowBox[{"(", 
       RowBox[{"ax", "-", 
        RowBox[{"ax", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "at", " ", "dx", " ", "omega"}]}], 
       ")"}]}]}], ")"}]}], 
  RowBox[{"dx", " ", "dy", " ", "dz"}]]], "Output",
 CellChangeTimes->{
  3.783458585386766*^9, {3.783458639252088*^9, 3.783458648761573*^9}, 
   3.783458710041477*^9, 3.783458770144253*^9, 3.7834588004289227`*^9, 
   3.783530559574214*^9, 3.784916053520886*^9, 3.784925974490917*^9, 
   3.784926505407344*^9, 3.784926588006687*^9, 3.7849269681424227`*^9, 
   3.7849270901854267`*^9, {3.784927149897705*^9, 3.784927159421073*^9}, 
   3.784927428633172*^9, 3.784927937042691*^9, 3.784928206381572*^9, 
   3.7849343996954536`*^9, {3.784934461136367*^9, 3.784934473618553*^9}, 
   3.7849352293041773`*^9, 3.784936807789576*^9, 3.7849387588737698`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"0f39dd72-6477-43f6-b948-d0803eea54f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"gaugeLD", "/.", "atLD"}], "/.", "choiceD"}], ")"}], "\[Equal]", 
   "0"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.784934437848081*^9, 3.784934438183614*^9}, {
  3.7849352398801126`*^9, 3.784935260657045*^9}, {3.784935499428342*^9, 
  3.784935500813146*^9}, {3.784936422251934*^9, 3.784936429089148*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"ac0489c0-8060-4658-af90-1ad1b2377b0b"],
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ax", " ", "dy", " ", "dz", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "dx", " ", "kx"}]]}], ")"}]}], "+", 
       RowBox[{"ay", " ", "dx", " ", "dz", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "dy", " ", "ky"}]]}], ")"}]}], "+", 
       RowBox[{"az", " ", "dx", " ", "dy", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "dz", " ", "kz"}]]}], ")"}]}]}], 
      ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox["dz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", 
             RowBox[{
              SuperscriptBox["dz", "2"], " ", 
              SuperscriptBox["omega", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["dx", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["dz", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], 
   "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dy", "2"]}], " ", 
      SuperscriptBox["dz", "2"]}], "-", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["dy", "2"], "+", 
        SuperscriptBox["dz", "2"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["dy", "2"], " ", 
      SuperscriptBox["dz", "2"], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"dx", " ", "kx"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["dz", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dy", " ", "ky"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["dy", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"dz", " ", "kz"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
  "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{{3.784934438759877*^9, 3.7849344863193817`*^9}, {
   3.784935236695285*^9, 3.784935257821859*^9}, 3.784935300344887*^9, 
   3.7849355020592327`*^9, {3.7849364581879997`*^9, 3.784936461357153*^9}, 
   3.784936811077141*^9, 3.784938761911078*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"2cb9c759-b009-4be7-ad03-700eb5d61af1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"gaugeLDsols", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"gaugeLD", "/.", "atLD"}], "/.", "choiceD"}], ")"}], 
      "\[Equal]", "0"}], "//", "FullSimplify"}], ",", "omega"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.783342377701092*^9, 3.783342385826803*^9}, {
   3.783343005520426*^9, 3.783343005967205*^9}, {3.783343595838254*^9, 
   3.783343604693972*^9}, {3.783343712605057*^9, 3.783343733525182*^9}, 
   3.7834549005563183`*^9, {3.783458780095253*^9, 3.783458781560628*^9}, {
   3.784925985098914*^9, 3.7849259857249537`*^9}, {3.784926593777787*^9, 
   3.784926606044574*^9}, {3.784926992920991*^9, 3.784926999369926*^9}, {
   3.784927045053293*^9, 3.78492705911342*^9}, {3.784927096540167*^9, 
   3.784927098440855*^9}, {3.784934426804392*^9, 3.784934428291368*^9}, {
   3.7849353402591667`*^9, 3.784935372995885*^9}, {3.784935419561751*^9, 
   3.784935487011773*^9}, {3.784936937875379*^9, 3.7849369554764347`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"b735b39a-a0af-4ffa-a63e-a7c6780230cf"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"omega", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", 
        SqrtBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dy", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           SuperscriptBox["dz", "2"]}], "-", 
          RowBox[{
           SuperscriptBox["dy", "2"], " ", 
           SuperscriptBox["dz", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dx", " ", "kx"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dz", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dy", " ", "ky"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["dx", "2"], " ", 
           SuperscriptBox["dy", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"dz", " ", "kz"}], "]"}]}]}]]}], 
       RowBox[{"dx", " ", "dy", " ", "dz"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"omega", "\[Rule]", 
     FractionBox[
      RowBox[{
       SqrtBox["2"], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dy", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dz", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dy", "2"], " ", 
          SuperscriptBox["dz", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dy", "2"], " ", 
          SuperscriptBox["dz", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"dx", " ", "kx"}], "]"}]}], "-", 
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dz", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"dy", " ", "ky"}], "]"}]}], "-", 
         RowBox[{
          SuperscriptBox["dx", "2"], " ", 
          SuperscriptBox["dy", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"dz", " ", "kz"}], "]"}]}]}]]}], 
      RowBox[{"dx", " ", "dy", " ", "dz"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7834585861985598`*^9, 3.783458833991332*^9, 3.7835305921386414`*^9, 
   3.7849160886198177`*^9, 3.784925987864628*^9, 3.784926505587832*^9, {
   3.784926595657041*^9, 3.784926608024312*^9}, {3.784926994978446*^9, 
   3.784926999999208*^9}, 3.784927048441703*^9, {3.78492708533779*^9, 
   3.7849270989969063`*^9}, 3.7849271722461567`*^9, 3.7849274286990957`*^9, 
   3.784927941725851*^9, 3.7849282064419107`*^9, {3.7849344036070557`*^9, 
   3.7849344305140667`*^9}, 3.7849344911270733`*^9, {3.784935343529711*^9, 
   3.784935373691286*^9}, {3.7849354247427483`*^9, 3.784935487685802*^9}, 
   3.784936811260783*^9, 3.784936958378721*^9, 3.7849387621047497`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"bc0c5e1b-33b1-444b-bdd0-9701acd4932c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"omegaLD", "=", 
  RowBox[{"gaugeLDsols", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784937744885272*^9, 3.784937751199561*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"5428ad33-8033-480d-ac85-416f00e49a32"],
Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"omega", "\[Rule]", 
   FractionBox[
    RowBox[{
     SqrtBox["2"], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dy", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["dy", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dx", " ", "kx"}], "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dz", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dy", " ", "ky"}], "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["dx", "2"], " ", 
        SuperscriptBox["dy", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"dz", " ", "kz"}], "]"}]}]}]]}], 
    RowBox[{"dx", " ", "dy", " ", "dz"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.784937751461713*^9, 3.784938762120925*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"2b3018db-b97a-4a04-85a0-1d66f028f73d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1062, 964},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 150, 3, 98, "Title",ExpressionUUID->"5daa6eec-1c23-49f0-b677-398d3c0e5c87"],
Cell[CellGroupData[{
Cell[755, 29, 158, 3, 67, "Section",ExpressionUUID->"309acfd7-df7c-43a1-8a14-7d4f1c14bc58"],
Cell[CellGroupData[{
Cell[938, 36, 160, 3, 54, "Subsection",ExpressionUUID->"2c77964e-4c6e-4ce0-951a-231d35518fc6"],
Cell[CellGroupData[{
Cell[1123, 43, 1612, 47, 94, "Input",ExpressionUUID->"e531f5b9-3ce5-47e2-9af3-4efc822e79ad"],
Cell[2738, 92, 665, 15, 34, "Output",ExpressionUUID->"09cb13f7-4ca9-4bd3-8225-af5304b95eb7"],
Cell[3406, 109, 663, 15, 34, "Output",ExpressionUUID->"a0a54931-7ede-4c92-a0b8-af6f16571367"],
Cell[4072, 126, 663, 15, 37, "Output",ExpressionUUID->"834f3c97-30a9-4433-83c2-4ecbc536eab5"],
Cell[4738, 143, 663, 15, 34, "Output",ExpressionUUID->"1f36df12-bf4d-47e0-8823-99d7104dfc28"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5450, 164, 161, 3, 54, "Subsection",ExpressionUUID->"9adcbc96-cbc1-4885-aa6a-95da0920c2e6"],
Cell[CellGroupData[{
Cell[5636, 171, 2159, 63, 94, "Input",ExpressionUUID->"558d86ab-6558-4a5e-8d99-1dab16026d83"],
Cell[7798, 236, 768, 18, 51, "Output",ExpressionUUID->"0bf217f7-6e7f-4f3f-a155-f638d241167b"],
Cell[8569, 256, 768, 18, 51, "Output",ExpressionUUID->"bce3ca50-54af-4d48-98e7-424fc117cc73"],
Cell[9340, 276, 768, 18, 53, "Output",ExpressionUUID->"b630f099-d332-4c97-8e9c-77363911769e"],
Cell[10111, 296, 768, 18, 51, "Output",ExpressionUUID->"523d36b3-0e1f-40c1-b2df-f1d2fa67b780"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10928, 320, 164, 3, 54, "Subsection",ExpressionUUID->"ae90f738-5678-4909-92a2-326681337536"],
Cell[CellGroupData[{
Cell[11117, 327, 2156, 63, 94, "Input",ExpressionUUID->"b2df124e-fb05-4c17-8cfc-dfd976a00f20"],
Cell[13276, 392, 770, 18, 51, "Output",ExpressionUUID->"b8d21856-cf74-48e8-9cb6-952b88581c25"],
Cell[14049, 412, 769, 18, 51, "Output",ExpressionUUID->"d06e0839-1472-4ad7-aad6-24fcb4f02511"],
Cell[14821, 432, 769, 18, 53, "Output",ExpressionUUID->"7823c55e-2884-49dc-9479-d9d22eff2dba"],
Cell[15593, 452, 766, 17, 51, "Output",ExpressionUUID->"b88f47e8-aceb-46c3-88fb-3981d3b61087"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16420, 476, 156, 3, 67, "Section",ExpressionUUID->"82737873-c38b-4079-9e72-759febe07267"],
Cell[CellGroupData[{
Cell[16601, 483, 156, 3, 54, "Subsection",ExpressionUUID->"7a610bbb-d444-4bc6-bd2f-33507cdeec50"],
Cell[CellGroupData[{
Cell[16782, 490, 2412, 60, 103, "Input",ExpressionUUID->"d86d17fa-1397-4732-8e2c-5f9e786218db"],
Cell[19197, 552, 790, 17, 47, "Output",ExpressionUUID->"395db1cb-b2b8-4bc9-8977-a672ae5d9dc0"],
Cell[19990, 571, 821, 18, 47, "Output",ExpressionUUID->"04c94f62-9645-4a7d-8eb8-7c3acccb07ad"],
Cell[20814, 591, 821, 18, 47, "Output",ExpressionUUID->"3ca5b8c0-7963-4d76-9c74-87bedd108eef"],
Cell[21638, 611, 821, 18, 47, "Output",ExpressionUUID->"b1fa0656-1a05-4d02-8b9e-df56bd81c76b"],
Cell[22462, 631, 823, 18, 47, "Output",ExpressionUUID->"75063b35-914b-455f-b02c-ff32aec96694"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23334, 655, 160, 3, 54, "Subsection",ExpressionUUID->"3ca731d6-e4ee-42ba-ba40-c37fe76f9659"],
Cell[CellGroupData[{
Cell[23519, 662, 899, 21, 30, "Input",ExpressionUUID->"3aca25ed-47d9-4a8d-94f1-587b412987d6"],
Cell[24421, 685, 1399, 35, 66, "Output",ExpressionUUID->"5aeffbcb-38b0-472f-9dde-9ad1e9470d8a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25857, 725, 435, 11, 30, "Input",ExpressionUUID->"c46aa1fd-9e58-4d5f-babe-2b5fddbb2d4d"],
Cell[26295, 738, 609, 13, 51, "Output",ExpressionUUID->"cc2b661d-9c7d-445b-be1a-b838a38efbe2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26941, 756, 283, 4, 30, "Input",ExpressionUUID->"ff4d4a00-358c-4c0e-8728-89a6b4fb8505"],
Cell[27227, 762, 410, 6, 34, "Output",ExpressionUUID->"8ac888d9-d4f7-44f7-8c5d-a7d64de1de21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27674, 773, 436, 12, 30, "Input",ExpressionUUID->"0de64bfa-32a4-4fc3-b8c9-7fb6f5dd26fe"],
Cell[28113, 787, 535, 12, 53, "Output",ExpressionUUID->"a0e7cd35-2be4-4779-993f-ea32d1048f57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28685, 804, 330, 5, 30, "Input",ExpressionUUID->"745776bb-1060-4fcc-b4a3-b53d4bd2d45d"],
Cell[29018, 811, 432, 6, 34, "Output",ExpressionUUID->"b8b09a17-71cf-4bd1-984d-9bdeee84aba5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29499, 823, 152, 3, 54, "Subsection",ExpressionUUID->"b96c20a8-4bd1-47b9-9d6b-67dea3fe4fc2"],
Cell[CellGroupData[{
Cell[29676, 830, 1419, 39, 73, "Input",ExpressionUUID->"3ce44874-35b2-4bf1-b923-88d4b1364353"],
Cell[31098, 871, 1876, 48, 66, "Output",ExpressionUUID->"b8ed14e3-76a9-46ba-8ef4-acae9c819d95"],
Cell[32977, 921, 1876, 48, 66, "Output",ExpressionUUID->"fe195721-4325-43c0-b711-8af507295a87"],
Cell[34856, 971, 1876, 48, 66, "Output",ExpressionUUID->"898ca7b6-6eeb-4587-8356-f40b07702627"]
}, Open  ]],
Cell[36747, 1022, 411, 8, 30, "Input",ExpressionUUID->"86408b88-fca3-444e-a934-ef71a469abbc"],
Cell[CellGroupData[{
Cell[37183, 1034, 1401, 36, 73, "Input",ExpressionUUID->"cad26d85-7c12-44de-9431-f87ccc967c05"],
Cell[38587, 1072, 1938, 50, 66, "Output",ExpressionUUID->"b7366a17-3aac-4c79-b13f-9f4adc7f75cf"],
Cell[40528, 1124, 1899, 48, 66, "Output",ExpressionUUID->"097aee64-f541-422d-b985-097ffb76c41f"],
Cell[42430, 1174, 1938, 50, 66, "Output",ExpressionUUID->"f37b8a26-b524-4652-9c76-cdc2984a7ecd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44405, 1229, 1242, 22, 30, "Input",ExpressionUUID->"67a36832-fec5-4dc4-95af-29f823cb758e"],
Cell[45650, 1253, 807, 16, 34, "Output",ExpressionUUID->"7907ddc5-69c9-4fa5-b3b9-4b2c466ac5d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46494, 1274, 528, 12, 30, "Input",ExpressionUUID->"a9debbc4-df26-4aae-a474-291813135398"],
Cell[47025, 1288, 683, 14, 34, "Output",ExpressionUUID->"145937e5-b156-4ba4-ab6b-ce1aabf274f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47745, 1307, 1380, 36, 136, "Input",ExpressionUUID->"add04d04-1654-491b-a827-41ceefda6ef9"],
Cell[49128, 1345, 969, 19, 65, "Output",ExpressionUUID->"487f4879-adf6-4824-9c25-dd4d77be6d83"],
Cell[50100, 1366, 663, 10, 34, "Output",ExpressionUUID->"ef58427f-d96b-4d7d-8fd4-aa78b9bcf541"],
Cell[50766, 1378, 663, 10, 34, "Output",ExpressionUUID->"3191b20f-b660-43bf-bb3d-e5d92ee7fe32"],
Cell[51432, 1390, 663, 10, 34, "Output",ExpressionUUID->"eaddd61b-0977-455d-bc4b-37fb5b787595"],
Cell[52098, 1402, 958, 19, 65, "Output",ExpressionUUID->"28a49b03-0430-465d-9e27-9734a8b83166"],
Cell[53059, 1423, 663, 10, 34, "Output",ExpressionUUID->"16684094-fd92-4604-b904-f2faebd823f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53759, 1438, 1411, 36, 136, "Input",ExpressionUUID->"f2cd7571-c585-4a95-b4b4-a5a4b68583b7"],
Cell[55173, 1476, 509, 7, 34, "Output",ExpressionUUID->"2f811ce9-acfc-4891-9474-5a690b3c9891"],
Cell[55685, 1485, 509, 7, 34, "Output",ExpressionUUID->"3ca907a1-5c93-4441-b41c-298c307dd638"],
Cell[56197, 1494, 1011, 23, 65, "Output",ExpressionUUID->"b7e3307b-b77a-4ea1-9031-2f609615d045"],
Cell[57211, 1519, 511, 7, 34, "Output",ExpressionUUID->"8e291a99-9d37-422c-af40-2c8eee6215f2"],
Cell[57725, 1528, 967, 22, 65, "Output",ExpressionUUID->"8fa83b81-b5d9-4153-9c1a-48bc07421454"],
Cell[58695, 1552, 511, 7, 34, "Output",ExpressionUUID->"99627a68-9930-41b0-abfa-c74cc745fc1b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59255, 1565, 160, 3, 54, "Subsection",ExpressionUUID->"3e3e5b4c-6626-4ade-94ff-c17b9d2ed6fc"],
Cell[CellGroupData[{
Cell[59440, 1572, 816, 19, 30, "Input",ExpressionUUID->"3ec05bb6-1fb5-4c17-b7f5-ba3dbf17794b"],
Cell[60259, 1593, 1936, 53, 70, "Output",ExpressionUUID->"7433707a-48b1-4401-9ec9-38e6ff4b2dc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62232, 1651, 587, 16, 52, "Input",ExpressionUUID->"fc1c648a-d3b7-4b01-82e0-47fd8ce7ef08"],
Cell[62822, 1669, 841, 20, 55, "Output",ExpressionUUID->"8a0ff985-61e3-43ad-bb55-276c4348d91e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63700, 1694, 665, 18, 53, "Input",ExpressionUUID->"cc2c411b-c45c-42c8-8e3b-a389827ce36a"],
Cell[64368, 1714, 792, 20, 55, "Output",ExpressionUUID->"62de86d4-7671-479d-8bb7-7afc1860401e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65197, 1739, 370, 9, 30, "Input",ExpressionUUID->"66ae3881-741c-4285-83c9-df07089949bf"],
Cell[65570, 1750, 487, 7, 34, "Output",ExpressionUUID->"4a64dcd9-3476-4e78-b8c2-e29dda2d5eef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66094, 1762, 418, 9, 30, "Input",ExpressionUUID->"de367ade-a08a-4ceb-865e-90eab98840eb"],
Cell[66515, 1773, 389, 6, 34, "Output",ExpressionUUID->"60d658ce-eb8a-478e-b524-6f69419c5372"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66941, 1784, 823, 19, 30, "Input",ExpressionUUID->"cf793834-03c7-4ed8-9951-2fabe5943fa2"],
Cell[67767, 1805, 478, 7, 68, "Output",ExpressionUUID->"d7fed812-bae3-4430-b656-58c7378ec99e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68306, 1819, 153, 3, 67, "Section",ExpressionUUID->"44546bb6-865c-4468-818f-feb9fca0ffff"],
Cell[CellGroupData[{
Cell[68484, 1826, 238, 4, 54, "Subsection",ExpressionUUID->"37411d18-7a65-41f7-819d-7fb4d132f911"],
Cell[CellGroupData[{
Cell[68747, 1834, 1168, 23, 30, "Input",ExpressionUUID->"4f32fb19-bf12-424a-ba12-7f8845a4b931"],
Cell[69918, 1859, 1106, 24, 34, "Output",ExpressionUUID->"c3e32370-558e-4324-be78-697ddfaf61c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71061, 1888, 1870, 55, 94, "Input",ExpressionUUID->"61e1d3af-81c7-4629-8d10-134a0eda4efb"],
Cell[72934, 1945, 434, 11, 35, "Output",ExpressionUUID->"3e05cc38-b165-49cb-9008-bdba59dac4db"],
Cell[73371, 1958, 432, 11, 35, "Output",ExpressionUUID->"afc2da7f-736a-437d-9ef0-19d7f3678291"],
Cell[73806, 1971, 432, 11, 35, "Output",ExpressionUUID->"b3f22efb-a725-4475-967d-be7e19c34e2a"],
Cell[74241, 1984, 431, 11, 35, "Output",ExpressionUUID->"58fac883-efd7-4763-9b1c-14db831ed860"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74709, 2000, 2816, 86, 94, "Input",ExpressionUUID->"dd39778f-7c98-4d4b-bed2-2f3465460333"],
Cell[77528, 2088, 635, 16, 49, "Output",ExpressionUUID->"1275c70a-cb7d-4c58-b26f-be03b0a2d64d"],
Cell[78166, 2106, 635, 16, 49, "Output",ExpressionUUID->"acdfaa66-9f40-4445-89df-395eb4a37ccc"],
Cell[78804, 2124, 635, 16, 49, "Output",ExpressionUUID->"acf29de8-3e6b-420f-b111-7345c7c10f72"],
Cell[79442, 2142, 635, 16, 49, "Output",ExpressionUUID->"bee213ac-d2bf-41e8-8166-66df731849b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80114, 2163, 1135, 21, 30, "Input",ExpressionUUID->"ec1fd0f2-0b4a-4a3b-a3b8-b440d9b40139"],
Cell[81252, 2186, 1032, 20, 34, "Output",ExpressionUUID->"cb58d17f-347a-483d-806f-b54a1f5262bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82321, 2211, 1031, 19, 30, "Input",ExpressionUUID->"f6ffa4b5-ec05-4dde-a0df-a07ecac4d1b9"],
Cell[83355, 2232, 454, 11, 45, "Output",ExpressionUUID->"10157015-cb8f-41fa-bd91-d4729b5fada6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83846, 2248, 220, 4, 30, "Input",ExpressionUUID->"8538f381-fe5c-4102-a65e-276ff2c11b51"],
Cell[84069, 2254, 260, 4, 34, "Output",ExpressionUUID->"3ef6d13f-e1a6-4d52-bccb-6597f224a73b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[84378, 2264, 290, 5, 54, "Subsection",ExpressionUUID->"87e31fb7-5245-4c18-b66b-3edbabb4119f"],
Cell[CellGroupData[{
Cell[84693, 2273, 2935, 77, 136, "Input",ExpressionUUID->"80b4a114-bd12-447e-bd3a-c6f6692b6719"],
Cell[87631, 2352, 2972, 75, 132, "Output",ExpressionUUID->"2c33ccb4-1754-4fe0-ad0c-d38b3eeb7e76"],
Cell[90606, 2429, 2972, 75, 134, "Output",ExpressionUUID->"27777d2f-db88-40fc-8ca9-8ed493bf9650"],
Cell[93581, 2506, 2970, 75, 132, "Output",ExpressionUUID->"24380617-b9c5-4635-93d1-567c5dd30c07"],
Cell[96554, 2583, 3031, 78, 70, "Output",ExpressionUUID->"5203f992-a99e-4ffb-88d5-da2d013e4d29"],
Cell[99588, 2663, 3080, 79, 68, "Output",ExpressionUUID->"bda56f77-2e4e-4995-9b48-dbf537a810cb"],
Cell[102671, 2744, 3031, 78, 70, "Output",ExpressionUUID->"d5860848-6a89-4ca4-8e53-d2f1dd5b6694"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105739, 2827, 1481, 37, 136, "Input",ExpressionUUID->"5fe7cb9b-9bc1-454c-80bf-7b3b0713bc73"],
Cell[107223, 2866, 3304, 92, 123, "Output",ExpressionUUID->"827ac3aa-a195-49d3-8c7f-94a7a93c750f"],
Cell[110530, 2960, 3304, 92, 123, "Output",ExpressionUUID->"8d874b98-5d5d-47f4-adfd-9ad8d39109be"],
Cell[113837, 3054, 3302, 92, 123, "Output",ExpressionUUID->"e8df2f4f-05d0-4644-b3ba-1630d545b978"],
Cell[117142, 3148, 5587, 153, 175, "Output",ExpressionUUID->"f369469f-2925-476f-8c64-4ccfefcf56b2"],
Cell[122732, 3303, 5423, 152, 173, "Output",ExpressionUUID->"3316c1a9-12f1-40fa-b4ad-9093f47d355b"],
Cell[128158, 3457, 5589, 153, 175, "Output",ExpressionUUID->"7b736e32-c79d-4a42-a21e-9f0af03edef7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133796, 3616, 168, 3, 54, "Subsection",ExpressionUUID->"359ea8b1-efb7-4563-8f67-7dd3f709b468"],
Cell[CellGroupData[{
Cell[133989, 3623, 782, 17, 30, "Input",ExpressionUUID->"ea992c97-48c7-4122-a882-78f5b0809bcf"],
Cell[134774, 3642, 14567, 402, 690, "Output",ExpressionUUID->"b944038e-8411-465d-b37d-debf9cb5817d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149378, 4049, 612, 14, 30, "Input",ExpressionUUID->"d0ee9145-6f1d-4ed9-ac88-82cd8387b302"],
Cell[149993, 4065, 666, 9, 34, "Output",ExpressionUUID->"6be90d37-906c-46d3-b7a6-075f4e70c1f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150696, 4079, 259, 5, 30, "Input",ExpressionUUID->"fd89f9ca-72f6-43ba-ad63-eedceb490ec2"],
Cell[150958, 4086, 1966, 51, 63, "Output",ExpressionUUID->"ad8ab563-d07c-48bd-909b-09fcf10be893"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[152973, 4143, 311, 4, 54, "Subsection",ExpressionUUID->"9ca3a0f2-a9fc-4760-9e14-f159af552252"],
Cell[CellGroupData[{
Cell[153309, 4151, 1635, 31, 30, "Input",ExpressionUUID->"ff76d3ac-949c-47a5-91f7-47bd394ca822"],
Cell[154947, 4184, 1938, 46, 59, "Output",ExpressionUUID->"0f39dd72-6477-43f6-b948-d0803eea54f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156922, 4235, 478, 10, 30, "Input",ExpressionUUID->"ac0489c0-8060-4658-af90-1ad1b2377b0b"],
Cell[157403, 4247, 3402, 99, 84, "Output",ExpressionUUID->"2cb9c759-b009-4be7-ad03-700eb5d61af1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160842, 4351, 1109, 21, 30, "Input",ExpressionUUID->"b735b39a-a0af-4ffa-a63e-a7c6780230cf"],
Cell[161954, 4374, 3037, 78, 115, "Output",ExpressionUUID->"bc0c5e1b-33b1-444b-bdd0-9701acd4932c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165028, 4457, 262, 5, 30, "Input",ExpressionUUID->"5428ad33-8033-480d-ac85-416f00e49a32"],
Cell[165293, 4464, 1182, 34, 62, "Output",ExpressionUUID->"2b3018db-b97a-4a04-85a0-1d66f028f73d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

File deletion: error.cxx

BF:BFD[3.7639] → [2.350857:350868]

BF:BFD[2.350868] → [2.350869:350869]

B:BD[2.350869] → [2.350870:353143]

#include <loop.hxx>
#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
#include <cmath>
namespace Maxwell {
namespace {
template <typename T> T pow2(T x) { return x * x; }
template <typename T>
T lap(const Loop::GF3D<const T, 1, 1, 1> &var, const Loop::PointDesc &p) {
  const auto DI = Loop::vect<int, Loop::dim>::unit(0);
  const auto DJ = Loop::vect<int, Loop::dim>::unit(1);
  const auto DK = Loop::vect<int, Loop::dim>::unit(2);
  return fabs(var(p.I - DI) - 2 * var(p.I) + var(p.I + DI)) +
         fabs(var(p.I - DJ) - 2 * var(p.I) + var(p.I + DJ)) +
         fabs(var(p.I - DK) - 2 * var(p.I) + var(p.I + DK));
}
} // namespace
extern "C" void Maxwell_EstimateError(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_Maxwell_EstimateError;
  DECLARE_CCTK_PARAMETERS;
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgphi_(cctkGH, avgphi);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgax_(cctkGH, avgax);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgay_(cctkGH, avgay);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgaz_(cctkGH, avgaz);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgex_(cctkGH, avgex);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgey_(cctkGH, avgey);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgez_(cctkGH, avgez);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgbyz_(cctkGH, avgbyz);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgbzx_(cctkGH, avgbzx);
  // const Loop::GF3D<const CCTK_REAL, 1, 1, 1> avgbxy_(cctkGH, avgbxy);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> regrid_error_(cctkGH, regrid_error);
  if (false) {
    // Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    //   regrid_error_(p.I) = lap(avgphi_, p) + lap(avgax_, p) + lap(avgay_, p)
    //   +
    //                        lap(avgaz_, p) + lap(avgex_, p) + lap(avgey_, p) +
    //                        lap(avgez_, p) + lap(avgbyz_, p) + lap(avgbzx_, p)
    //                        + lap(avgbxy_, p);
    // });
  } else if (true) {
    Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      auto r = sqrt(pow2(p.x) + pow2(p.y) + pow2(p.z));
      regrid_error_(p.I) = 1 / fmax(r, CCTK_REAL(1.0e-10));
    });
  } else {
    assert(0);
  }
}
} // namespace Maxwell

File deletion: error0.cxx

BF:BFD[3.7639] → [2.353144:353156]

BF:BFD[2.353156] → [2.353157:353157]

B:BD[2.353157] → [2.353158:356776]

#include <loop.hxx>
#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
namespace Maxwell {
extern "C" void Maxwell_EstimateError(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_Maxwell_EstimateError;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<const CCTK_REAL, 0, 0, 0> phi_(cctkGH, phi);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ax_(cctkGH, ax);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ay_(cctkGH, ay);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> az_(cctkGH, az);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ex_(cctkGH, ex);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ey_(cctkGH, ey);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> ez_(cctkGH, ez);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const Loop::GF3D<const CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> regrid_error_(cctkGH, regrid_error);
  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    const auto diffx = [&](const auto &var_, int i, int j, int k) {
      CCTK_REAL err = 0;
      for (int b = 0; b < 2; ++b)
        for (int a = 0; a < 2; ++a)
          err += fabs(var_(i + 1, j + a, k + b) - var_(i, j + a, k + b));
      return err;
    };
    const auto diffy = [&](const auto &var_, int i, int j, int k) {
      CCTK_REAL err = 0;
      for (int b = 0; b < 2; ++b)
        for (int a = 0; a < 2; ++a)
          err += fabs(var_(i + a, j + 1, k + b) - var_(i + a, j, k + b));
      return err;
    };
    const auto diffz = [&](const auto &var_, int i, int j, int k) {
      CCTK_REAL err = 0;
      for (int b = 0; b < 2; ++b)
        for (int a = 0; a < 2; ++a)
          err += fabs(var_(i + a, j + b, k + 1) - var_(i + a, j + b, k));
      return err;
    };
    const auto diff000 = [&](const auto &var_) {
      return diffx(var_, p.i, p.j, p.k) + diffy(var_, p.i, p.j, p.k) +
             diffz(var_, p.i, p.j, p.k);
    };
    const auto diff100 = [&](const auto &var_) {
      return diffx(var_, p.i - 1, p.j, p.k) + diffx(var_, p.i, p.j, p.k) +
             diffy(var_, p.i, p.j, p.k) + diffz(var_, p.i, p.j, p.k);
    };
    const auto diff010 = [&](const auto &var_) {
      return diffx(var_, p.i, p.j, p.k) + diffy(var_, p.i, p.j - 1, p.k) +
             diffy(var_, p.i, p.j, p.k) + diffz(var_, p.i, p.j, p.k);
    };
    const auto diff001 = [&](const auto &var_) {
      return diffx(var_, p.i, p.j, p.k) + diffy(var_, p.i, p.j, p.k) +
             diffz(var_, p.i, p.j, p.k - 1) + diffz(var_, p.i, p.j, p.k);
    };
    const auto diff011 = [&](const auto &var_) {
      return diffx(var_, p.i, p.j, p.k) + diffy(var_, p.i, p.j - 1, p.k) +
             diffy(var_, p.i, p.j, p.k) + diffz(var_, p.i, p.j, p.k - 1) +
             diffz(var_, p.i, p.j, p.k);
    };
    const auto diff101 = [&](const auto &var_) {
      return diffx(var_, p.i - 1, p.j, p.k) + diffx(var_, p.i, p.j, p.k) +
             diffy(var_, p.i, p.j, p.k) + diffz(var_, p.i, p.j, p.k - 1) +
             diffz(var_, p.i, p.j, p.k);
    };
    const auto diff110 = [&](const auto &var_) {
      return diffx(var_, p.i - 1, p.j, p.k) + diffx(var_, p.i, p.j, p.k) +
             diffy(var_, p.i, p.j - 1, p.k) + diffy(var_, p.i, p.j, p.k) +
             diffz(var_, p.i, p.j, p.k);
    };
    regrid_error_(p.I) = diff000(phi_) + diff100(ax_) + diff010(ay_) +
                         diff001(az_) + diff100(ex_) + diff010(ey_) +
                         diff001(ez_) + diff011(byz_) + diff101(bzx_) +
                         diff110(bxy_);
  });
}
} // namespace Maxwell

File deletion: initial0.cxx

BF:BFD[3.7639] → [2.359306:359320]

BF:BFD[2.359320] → [2.359321:359321]

B:BD[2.359321] → [2.359322:367687]

#include "dual.hxx"
#include <loop.hxx>
#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
#include <cassert>
#include <cmath>
#include <complex>
namespace Maxwell {
using namespace std;
namespace {
int bitsign(bool s) { return s ? -1 : +1; }
template <typename T> T pow2(T x) { return x * x; }
template <typename T> T sinc(T x) { return x == T(0) ? T(1) : sin(x) / x; }
template <typename T> complex<T> cis(T x) { return {cos(x), sin(x)}; }
} // namespace
////////////////////////////////////////////////////////////////////////////////
template <typename T> struct potential { T phi, ax, ay, az; };
// Continuous derivative
template <typename F, typename T>
potential<T> calc_dt(const F &f, T t, T x, T y, T z) {
  auto ff = f(dual<T>(t, 1), dual<T>(x), dual<T>(y), dual<T>(z));
  return {
      ff.phi.eps,
      ff.ax.eps,
      ff.ay.eps,
      ff.az.eps,
  };
}
// Discrete derivative
template <typename F, typename T>
potential<T> calc_dxc(const F &f, T t, T x, T y, T z, T dx) {
  auto fm = f(t, x - dx / 2, y, z);
  auto fp = f(t, x + dx / 2, y, z);
  return {
      .phi = (fp.phi - fm.phi) / dx,
      .ax = (fp.ax - fm.ax) / dx,
      .ay = (fp.ay - fm.ay) / dx,
      .az = (fp.az - fm.az) / dx,
  };
}
template <typename F, typename T>
potential<T> calc_dyc(const F &f, T t, T x, T y, T z, T dy) {
  auto fm = f(t, x, y - dy / 2, z);
  auto fp = f(t, x, y + dy / 2, z);
  return {
      .phi = (fp.phi - fm.phi) / dy,
      .ax = (fp.ax - fm.ax) / dy,
      .ay = (fp.ay - fm.ay) / dy,
      .az = (fp.az - fm.az) / dy,
  };
}
template <typename F, typename T>
potential<T> calc_dzc(const F &f, T t, T x, T y, T z, T dz) {
  auto fm = f(t, x, y, z - dz / 2);
  auto fp = f(t, x, y, z + dz / 2);
  return {
      .phi = (fp.phi - fm.phi) / dz,
      .ax = (fp.ax - fm.ax) / dz,
      .ay = (fp.ay - fm.ay) / dz,
      .az = (fp.az - fm.az) / dz,
  };
}
////////////////////////////////////////////////////////////////////////////////
// Plane wave implementation
template <typename T>
potential<complex<T> > plane_wave_impl(T t, T x, T y, T z, T dx, T dy, T dz,
                                       T kx, T ky, T kz, T hx, T hy, T hz) {
  DECLARE_CCTK_PARAMETERS;
  typedef complex<T> CT;
  // choose frequency to ensure div E = 0
  T omega = sqrt(pow2(sinc(kx * dx / 2) * kx) + pow2(sinc(ky * dy / 2) * ky) +
                 pow2(sinc(kz * dz / 2) * kz));
  // choose amplitude to ensure Lorenz gauge
  CT ht = (CT(hx * kx * sinc(kx * dx / 2)) * cis(kx * dx / 2) +
           CT(hy * ky * sinc(ky * dy / 2)) * cis(ky * dy / 2) +
           CT(hz * kz * sinc(kz * dz / 2)) * cis(kz * dz / 2)) /
          CT(omega);
  CT u = cis(omega * t - kx * x - ky * y - kz * z);
  return {
      .phi = ht * u,
      .ax = hx * u,
      .ay = hy * u,
      .az = hz * u,
  };
}
// Plane wave
template <typename T>
potential<T> plane_wave(T t, T x, T y, T z, T dx, T dy, T dz) {
  DECLARE_CCTK_PARAMETERS;
  // wave number
  T kx = M_PI * spatial_frequency_x;
  T ky = M_PI * spatial_frequency_y;
  T kz = M_PI * spatial_frequency_z;
  // amplitude
  T hx = amplitude_x;
  T hy = amplitude_y;
  T hz = amplitude_z;
  //
  auto p = plane_wave_impl(t, x, y, z, dx, dy, dz, kx, ky, kz, hx, hy, hz);
  return {
      .phi = real(p.phi),
      .ax = real(p.ax),
      .ay = real(p.ay),
      .az = real(p.az),
  };
}
// Plane wave with a triangle profile
template <typename T>
potential<T> triangle_wave(T t, T x, T y, T z, T dx, T dy, T dz) {
  DECLARE_CCTK_PARAMETERS;
  // wave number
  T kx = M_PI * spatial_frequency_x;
  T ky = M_PI * spatial_frequency_y;
  T kz = M_PI * spatial_frequency_z;
  // amplitude
  T hx = amplitude_x;
  T hy = amplitude_y;
  T hz = amplitude_z;
  //
  potential<T> p{0, 0, 0, 0};
  for (int i = 0; i < num_coefficients; ++i) {
    const int k = 2 * i + 1;
    const T kf = k;
    const T hf = bitsign(i & 1) / pow2(kf);
    const auto pk = plane_wave_impl(t, x, y, z, dx, dy, dz, kf * kx, kf * ky,
                                    kf * kz, hf * hx, hf * hy, hf * hz);
    p.phi += imag(pk.phi);
    p.ax += imag(pk.ax);
    p.ay += imag(pk.ay);
    p.az += imag(pk.az);
  }
  return p;
}
// Plane wave with Gaussian profile (NOT WORKING)
template <typename T> potential<T> gaussian_wave(T t, T x, T y, T z) {
  DECLARE_CCTK_PARAMETERS;
  T kx = M_PI * spatial_frequency_x;
  T ky = M_PI * spatial_frequency_y;
  T kz = M_PI * spatial_frequency_z;
  T omega = sqrt(pow2(kx) + pow2(ky) + pow2(kz));
  T hx = amplitude_x;
  T hy = amplitude_y;
  T hz = amplitude_z;
  T ht =
      omega * (hx * kx + hy * ky + hz * kz) / (pow2(kx) + pow2(ky) + pow2(kz));
  T u = exp(-pow2(sin(omega * t - kx * x - ky * y - kz * z) / width) / 2);
  return {
      .phi = ht * u,
      .ax = hx * u,
      .ay = hy * u,
      .az = hz * u,
  };
}
////////////////////////////////////////////////////////////////////////////////
extern "C" void Maxwell_Initial(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_Maxwell_Initial;
  DECLARE_CCTK_PARAMETERS;
  const CCTK_REAL t = cctk_time;
  // const CCTK_REAL dt = CCTK_DELTA_TIME;
  const CCTK_REAL dx = CCTK_DELTA_SPACE(0);
  const CCTK_REAL dy = CCTK_DELTA_SPACE(1);
  const CCTK_REAL dz = CCTK_DELTA_SPACE(2);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> phi_(cctkGH, phi);
  const Loop::GF3D<CCTK_REAL, 1, 0, 0> ax_(cctkGH, ax);
  const Loop::GF3D<CCTK_REAL, 0, 1, 0> ay_(cctkGH, ay);
  const Loop::GF3D<CCTK_REAL, 0, 0, 1> az_(cctkGH, az);
  const Loop::GF3D<CCTK_REAL, 1, 0, 0> ex_(cctkGH, ex);
  const Loop::GF3D<CCTK_REAL, 0, 1, 0> ey_(cctkGH, ey);
  const Loop::GF3D<CCTK_REAL, 0, 0, 1> ez_(cctkGH, ez);
  const Loop::GF3D<CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const Loop::GF3D<CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);
  const auto loop_setup{[&](const auto &f4) {
    const auto f{[&](const auto &p) { return f4(t, p.x, p.y, p.z); }};
    const auto dtf{[&](const auto &p) {
      return calc_dt(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z);
    }};
    const auto dxf{[&](const auto &p) {
      return calc_dxc(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z, dx);
    }};
    const auto dyf{[&](const auto &p) {
      return calc_dyc(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z, dy);
    }};
    const auto dzf{[&](const auto &p) {
      return calc_dzc(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z, dz);
    }};
    Loop::loop_int<0, 0, 0>(
        cctkGH, [&](const Loop::PointDesc &p) { phi_(p.I) = f(p).phi; });
    Loop::loop_int<1, 0, 0>(
        cctkGH, [&](const Loop::PointDesc &p) { ax_(p.I) = f(p).ax; });
    Loop::loop_int<0, 1, 0>(
        cctkGH, [&](const Loop::PointDesc &p) { ay_(p.I) = f(p).ay; });
    Loop::loop_int<0, 0, 1>(
        cctkGH, [&](const Loop::PointDesc &p) { az_(p.I) = f(p).az; });
    Loop::loop_int<1, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
      ex_(p.I) = -dxf(p).phi - dtf(p).ax;
    });
    Loop::loop_int<0, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
      ey_(p.I) = -dyf(p).phi - dtf(p).ay;
    });
    Loop::loop_int<0, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      ez_(p.I) = -dzf(p).phi - dtf(p).az;
    });
    Loop::loop_int<0, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      byz_(p.I) = dyf(p).az - dzf(p).ay;
    });
    Loop::loop_int<1, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      bzx_(p.I) = dzf(p).ax - dxf(p).az;
    });
    Loop::loop_int<1, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
      bxy_(p.I) = dxf(p).ay - dyf(p).ax;
    });
  }};
  if (CCTK_EQUALS(setup, "plane wave")) {
    loop_setup([&](auto t, auto x, auto y, auto z) {
      typedef decltype(t) T;
      return plane_wave(t, x, y, z, T(dx), T(dy), T(dz));
    });
  } else if (CCTK_EQUALS(setup, "triangle wave")) {
    loop_setup([&](auto t, auto x, auto y, auto z) {
      typedef decltype(t) T;
      return triangle_wave(t, x, y, z, T(dx), T(dy), T(dz));
    });
    // } else if (CCTK_EQUALS(setup, "Gaussian wave")) {
    //   loop_setup([&](auto t, auto x, auto y, auto z) {
    //     return gaussian_wave(t, x, y, z);
    //   });
  } else {
    assert(0);
  }
}
} // namespace Maxwell

File deletion: solve.cxx

BF:BFD[3.7639] → [2.367822:367833]

BF:BFD[2.367833] → [2.367834:367834]

B:BD[2.367834] → [2.367835:368405]

#include <loop.hxx>
#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
namespace Maxwell {
extern "C" void Maxwell_Solve(CCTK_ARGUMENTS) { SolvePoisson(); }
extern "C" void Maxwell_UpdatePhi(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_Maxwell_UpdatePhi;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> phi_(cctkGH, phi);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 0> phi1_(cctkGH, phi1);
  Loop::loop_int<0, 0, 0>(
      cctkGH, [&](const Loop::PointDesc &p) { phi_(p.I) -= phi1_(p.I); });
}
} // namespace Maxwell

File deletion: dual.cxx

BF:BFD[3.7639] → [3.10652:10662]

BF:BFD[3.10662] → [3.10663:10663]

B:BD[3.10663] → [3.10664:11737]

#include "dual.hxx"
#include <functional>
namespace Maxwell {
using namespace std;
void TestDual() {
  typedef dual<CCTK_REAL> DREAL;
  constexpr equal_to<CCTK_REAL> eq;
  constexpr equal_to<DREAL> eqd;
  static_assert(eq(DREAL().val, 0));
  static_assert(eq(DREAL().eps, 0));
  static_assert(eq(DREAL(1).val, 1));
  static_assert(eq(DREAL(1).eps, 0));
  static_assert(eq(DREAL(1, 2).val, 1));
  static_assert(eq(DREAL(1, 2).eps, 2));
  static_assert(eqd(DREAL(1, 2), DREAL(1, 2)));
  static_assert(!eqd(DREAL(1, 2), DREAL(2, 3)));
  static_assert(eqd(+DREAL(1, 2), DREAL(1, 2)));
  static_assert(eqd(-DREAL(1, 2), DREAL(-1, -2)));
  static_assert(eqd(DREAL(1, 2) + DREAL(3, 4), DREAL(4, 6)));
  static_assert(eqd(DREAL(1, 2) - DREAL(3, 4), DREAL(-2, -2)));
  static_assert(eqd(2 * DREAL(3, 4), DREAL(6, 8)));
  static_assert(eqd(DREAL(3, 4) * 2, DREAL(6, 8)));
  static_assert(eqd(DREAL(3, 4) / 2, DREAL(1.5, 2)));
  static_assert(eqd(DREAL(2, 3) * DREAL(4, 5), DREAL(8, 22)));
  static_assert(eqd(sqrt(DREAL(4, 3)), DREAL(2, 0.75)));
}
} // namespace Maxwell

File deletion: dual.hxx

BF:BFD[3.7639] → [3.11738:11748]

BF:BFD[3.11748] → [3.11749:11749]

B:BD[3.11749] → [3.11750:15666]

#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
#include <cassert>
#include <cmath>
#include <functional>
#include <ostream>
namespace Maxwell {
using namespace std;
template <typename T> struct dual {
  T val, eps;
  dual(const dual &) = default;
  dual(dual &&) = default;
  dual &operator=(const dual &) = default;
  dual &operator=(dual &&) = default;
  constexpr dual() : val(), eps() {}
  constexpr dual(const T &x) : val(x), eps() {}
  constexpr dual(const T &x, const T &y) : val(x), eps(y) {}
  friend constexpr dual operator+(const dual &x) { return {+x.val, +x.eps}; }
  friend constexpr dual operator-(const dual &x) { return {-x.val, -x.eps}; }
  friend constexpr dual operator+(const dual &x, const dual &y) {
    return {x.val + y.val, x.eps + y.eps};
  }
  friend constexpr dual operator-(const dual &x, const dual &y) {
    return {x.val - y.val, x.eps - y.eps};
  }
  friend constexpr dual operator+(const dual &x, const T &y) {
    return {x.val + y, x.eps};
  }
  friend constexpr dual operator-(const dual &x, const T &y) {
    return {x.val - y, x.eps};
  }
  friend constexpr dual operator*(const dual &x, const T &y) {
    return {x.val * y, x.eps * y};
  }
  friend constexpr dual operator*(const T &x, const dual &y) {
    return {x * y.val, x * y.eps};
  }
  friend constexpr dual operator/(const dual &x, const T &y) {
    return {x.val / y, x.eps / y};
  }
  friend constexpr dual operator/(const dual &x, const dual &y) {
    assert(y.eps == 0);
    return x / y.val;
  }
  friend constexpr dual operator*(const dual &x, const dual &y) {
    return {x.val * y.val, x.val * y.eps + x.eps * y.val};
  }
  dual &operator+=(const dual &x) { return *this = *this + x; }
  dual &operator-=(const dual &x) { return *this = *this - x; }
  dual &operator*=(const T &x) { return *this = *this * x; }
  dual &operator/=(const T &x) { return *this = *this / x; }
  dual &operator*=(const dual &x) { return *this = *this * x; }
  friend constexpr bool operator==(const dual &x, const dual &y) {
    return x.val == y.val;
  };
  friend constexpr bool operator<(const dual &x, const dual &y) {
    return x.val < y.val;
  };
  friend constexpr bool operator!=(const dual &x, const dual &y) {
    return !(x == y);
  }
  friend constexpr bool operator>(const dual &x, const dual &y) {
    return y < x;
  }
  friend constexpr bool operator<=(const dual &x, const dual &y) {
    return !(x > y);
  }
  friend constexpr bool operator>=(const dual &x, const dual &y) {
    return !(x < y);
  }
  friend ostream &operator<<(ostream &os, const dual &x) {
    return os << x.val << "+eps*" << x.val;
  }
};
} // namespace Maxwell
namespace std {
template <typename T> using dual = Maxwell::dual<T>;
template <typename T> struct equal_to<dual<T> > {
  constexpr bool operator()(const dual<T> &x, const dual<T> &y) const {
    return equal_to<T>()(x.val, y.val) && equal_to<T>()(x.eps, y.eps);
  }
};
template <typename T> struct less<dual<T> > {
  constexpr bool operator()(const dual<T> &x, const dual<T> &y) const {
    return less<T>(x.val, y.val) ||
           (equal_to<T>(x.val, y.val) && less<T>(x.eps, y.eps));
  }
};
template <typename T> constexpr dual<T> cos(const dual<T> &x);
template <typename T> constexpr dual<T> exp(const dual<T> &x);
template <typename T> constexpr dual<T> sin(const dual<T> &x);
template <typename T> constexpr dual<T> sqrt(const dual<T> &x);
template <typename T> constexpr dual<T> cos(const dual<T> &x) {
  return {cos(x.val), -sin(x.val) * x.eps};
}
template <typename T> constexpr dual<T> exp(const dual<T> &x) {
  auto r = exp(x.val);
  return {r, r * x.eps};
}
template <typename T> constexpr dual<T> sin(const dual<T> &x) {
  return {sin(x.val), cos(x.val) * x.eps};
}
template <typename T> constexpr dual<T> sqrt(const dual<T> &x) {
  auto r = sqrt(x.val);
  return {r, x.eps / (2 * r)};
}
} // namespace std

Insertion in Maxwell/src/average.cxx at line 8 [2.346014]
[2.346140]
[2.346140]
```
using namespace Loop;
using namespace std;
```

Deletion in Maxwell/src/average.cxx at line 11 [2.346014]

B:BD[2.346141] → [2.346141:346699]

namespace {
template <typename T, int CI, int CJ, int CK>
T average(const Loop::GF3D<const T, CI, CJ, CK> &var,
          const Loop::PointDesc &p) {
  const auto DI = Loop::vect<int, Loop::dim>::unit(0);
  const auto DJ = Loop::vect<int, Loop::dim>::unit(1);
  const auto DK = Loop::vect<int, Loop::dim>::unit(2);
  T res = 0;
  for (int k = 0; k < 2 - CK; ++k)
    for (int j = 0; j < 2 - CJ; ++j)
      for (int i = 0; i < 2 - CI; ++i)
        res += var(p.I + i * DI + j * DJ + k * DK);
  return res / ((2 - CI) * (2 - CJ) * (2 - CK));
}
} // namespace

Deletion in Maxwell/src/average.cxx at line 14 [2.346014]
B:BD[2.346818] → [2.346818:346883]
```
  const Loop::GF3D<const CCTK_REAL, 0, 0, 0> phi_(cctkGH, phi);
```

Replacement in Maxwell/src/average.cxx at line 15 [2.346014]

B:BD[2.346884] → [2.346884:348714]

  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ax_(cctkGH, ax);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ay_(cctkGH, ay);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> az_(cctkGH, az);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ex_(cctkGH, ex);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ey_(cctkGH, ey);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> ez_(cctkGH, ez);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const Loop::GF3D<const CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 1> curlayz_(cctkGH, curlayz);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 1> curlazx_(cctkGH, curlazx);
  const Loop::GF3D<const CCTK_REAL, 1, 1, 0> curlaxy_(cctkGH, curlaxy);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 0> dive_(cctkGH, dive);
  const Loop::GF3D<const CCTK_REAL, 1, 1, 1> divb_(cctkGH, divb);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgphi_(cctkGH, avgphi);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgax_(cctkGH, avgax);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgay_(cctkGH, avgay);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgaz_(cctkGH, avgaz);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgex_(cctkGH, avgex);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgey_(cctkGH, avgey);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgez_(cctkGH, avgez);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgbyz_(cctkGH, avgbyz);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgbzx_(cctkGH, avgbzx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgbxy_(cctkGH, avgbxy);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgcurlayz_(cctkGH, avgcurlyz);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgcurlazx_(cctkGH, avgcurlzx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgcurlaxy_(cctkGH, avgcurlxy);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgdive_(cctkGH, avgdive);

[2.346884]

[2.348714]

  const auto DI = vect<int, dim>::unit(0);
  const auto DJ = vect<int, dim>::unit(1);
  const auto DK = vect<int, dim>::unit(2);

Replacement in Maxwell/src/average.cxx at line 19 [2.346014]

B:BD[2.348715] → [2.348715:348781]

  const Loop::GF3D<CCTK_REAL, 1, 1, 1> avgdivb_(cctkGH, avgdivb);

[2.348715]

[2.348781]

  const GF3D<const CCTK_REAL, 0, 1, 1> dyz_(cctkGH, dyz);
  const GF3D<const CCTK_REAL, 1, 0, 1> dzx_(cctkGH, dzx);
  const GF3D<const CCTK_REAL, 1, 1, 0> dxy_(cctkGH, dxy);

Replacement in Maxwell/src/average.cxx at line 23 [2.346014]

B:BD[2.348782] → [2.348782:348891]

  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgphi_(p.I) = average(phi_, p);
  });

[2.348782]

[2.348891]

  const GF3D<const CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const GF3D<const CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const GF3D<const CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);

Replacement in Maxwell/src/average.cxx at line 27 [2.346014]

B:BD[2.348892] → [2.348892:349216]

  Loop::loop_int<1, 1, 1>(
      cctkGH, [&](const Loop::PointDesc &p) { avgax_(p.I) = average(ax_, p); });
  Loop::loop_int<1, 1, 1>(
      cctkGH, [&](const Loop::PointDesc &p) { avgay_(p.I) = average(ay_, p); });
  Loop::loop_int<1, 1, 1>(
      cctkGH, [&](const Loop::PointDesc &p) { avgaz_(p.I) = average(az_, p); });

[2.348892]

[2.349216]

  const GF3D<CCTK_REAL, 1, 1, 1> avgdyz_(cctkGH, avgdyz);
  const GF3D<CCTK_REAL, 1, 1, 1> avgdzx_(cctkGH, avgdzx);
  const GF3D<CCTK_REAL, 1, 1, 1> avgdxy_(cctkGH, avgdxy);

Replacement in Maxwell/src/average.cxx at line 31 [2.346014]

B:BD[2.349217] → [2.349217:349541]

  Loop::loop_int<1, 1, 1>(
      cctkGH, [&](const Loop::PointDesc &p) { avgex_(p.I) = average(ex_, p); });
  Loop::loop_int<1, 1, 1>(
      cctkGH, [&](const Loop::PointDesc &p) { avgey_(p.I) = average(ey_, p); });
  Loop::loop_int<1, 1, 1>(
      cctkGH, [&](const Loop::PointDesc &p) { avgez_(p.I) = average(ez_, p); });

[2.349217]

[2.349541]

  const GF3D<CCTK_REAL, 1, 1, 1> avgbyz_(cctkGH, avgbyz);
  const GF3D<CCTK_REAL, 1, 1, 1> avgbzx_(cctkGH, avgbzx);
  const GF3D<CCTK_REAL, 1, 1, 1> avgbxy_(cctkGH, avgbxy);

Replacement in Maxwell/src/average.cxx at line 35 [2.346014]

B:BD[2.349542] → [2.349542:349645]

  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgbyz_(p.I) = average(byz_, p);

[2.349542]

[2.349645]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    avgdyz_(p.I) = (dyz_(p.I) + dyz_(p.I + DI)) / 2;

Replacement in Maxwell/src/average.cxx at line 38 [2.346014]

B:BD[2.349651] → [2.349651:349754]

  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgbzx_(p.I) = average(bzx_, p);

[2.349651]

[2.349754]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    avgdzx_(p.I) = (dzx_(p.I) + dzx_(p.I + DJ)) / 2;

Replacement in Maxwell/src/average.cxx at line 41 [2.346014]

B:BD[2.349760] → [2.349760:349863]

  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgbxy_(p.I) = average(bxy_, p);

[2.349760]

[2.349863]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    avgdxy_(p.I) = (dxy_(p.I) + dxy_(p.I + DK)) / 2;

Replacement in Maxwell/src/average.cxx at line 45 [2.346014]

B:BD[2.349870] → [2.349870:350098]

  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgcurlayz_(p.I) = average(curlayz_, p);
  });
  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgcurlazx_(p.I) = average(curlazx_, p);

[2.349870]

[2.350098]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    avgbyz_(p.I) = (byz_(p.I) + byz_(p.I + DI)) / 2;

Replacement in Maxwell/src/average.cxx at line 48 [2.346014]

B:BD[2.350104] → [2.350104:350215]

  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgcurlaxy_(p.I) = average(curlaxy_, p);

[2.350104]

[2.350215]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    avgbzx_(p.I) = (bzx_(p.I) + bzx_(p.I + DJ)) / 2;

Replacement in Maxwell/src/average.cxx at line 51 [2.346014]

B:BD[2.350221] → [2.350221:350327]


  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgdive_(p.I) = average(dive_, p);

[2.350221]

[2.350327]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    avgbxy_(p.I) = (bxy_(p.I) + bxy_(p.I + DK)) / 2;

Deletion in Maxwell/src/average.cxx at line 54 [2.346014]

B:BD[2.350333] → [2.350333:350445]


  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    avgdivb_(p.I) = average(divb_, p);
  });

Insertion in Maxwell/src/constraints.cxx at line 8 [3.7950]
[3.8076]
[3.8076]
```
using namespace Loop;
using namespace std;
```

Replacement in Maxwell/src/constraints.cxx at line 15 [3.7950]

B:BD[3.8205] → [3.8205:8370]

  const auto DI = Loop::vect<int, Loop::dim>::unit(0);
  const auto DJ = Loop::vect<int, Loop::dim>::unit(1);
  const auto DK = Loop::vect<int, Loop::dim>::unit(2);

[3.8205]

[3.8370]

  const auto DI = vect<int, dim>::unit(0);
  const auto DJ = vect<int, dim>::unit(1);
  const auto DK = vect<int, dim>::unit(2);

Replacement in Maxwell/src/constraints.cxx at line 23 [3.7950]

B:BD[3.8504] → [3.8504:8801]

  const auto dxm{[&](const auto &u, const auto &p) {
    return (u(p.I) - u(p.I - DI)) / dx;
  }};
  const auto dym{[&](const auto &u, const auto &p) {
    return (u(p.I) - u(p.I - DJ)) / dy;
  }};
  const auto dzm{[&](const auto &u, const auto &p) {
    return (u(p.I) - u(p.I - DK)) / dz;
  }};

[3.8504]

[3.8801]

  const auto dxp{
      [&](const auto &u, const auto &I) { return (u(I + DI) - u(I)) / dx; }};
  const auto dyp{
      [&](const auto &u, const auto &I) { return (u(I + DJ) - u(I)) / dy; }};
  const auto dzp{
      [&](const auto &u, const auto &I) { return (u(I + DK) - u(I)) / dz; }};

Replacement in Maxwell/src/constraints.cxx at line 30 [3.7950]

B:BD[3.8802] → [3.8802:9099]

  const auto dxp{[&](const auto &u, const auto &p) {
    return (u(p.I + DI) - u(p.I)) / dx;
  }};
  const auto dyp{[&](const auto &u, const auto &p) {
    return (u(p.I + DJ) - u(p.I)) / dy;
  }};
  const auto dzp{[&](const auto &u, const auto &p) {
    return (u(p.I + DK) - u(p.I)) / dz;
  }};

[3.8802]

[3.9099]

  const GF3D<const CCTK_REAL, 0, 1, 1> dyz_(cctkGH, dyz);
  const GF3D<const CCTK_REAL, 1, 0, 1> dzx_(cctkGH, dzx);
  const GF3D<const CCTK_REAL, 1, 1, 0> dxy_(cctkGH, dxy);

Replacement in Maxwell/src/constraints.cxx at line 34 [3.7950]

B:BD[3.9100] → [3.9100:9286]

  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ax_(cctkGH, ax);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ay_(cctkGH, ay);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> az_(cctkGH, az);

[3.9100]

[3.9286]

  const GF3D<const CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const GF3D<const CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const GF3D<const CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);

Replacement in Maxwell/src/constraints.cxx at line 38 [3.7950]

B:BD[3.9287] → [3.9287:9473]

  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ex_(cctkGH, ex);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ey_(cctkGH, ey);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> ez_(cctkGH, ez);

[3.9287]

[3.9473]

  const GF3D<CCTK_REAL, 1, 1, 1> divd_(cctkGH, divd);

Replacement in Maxwell/src/constraints.cxx at line 40 [3.7950]

B:BD[3.9474] → [3.9474:9648]

  const Loop::GF3D<CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const Loop::GF3D<CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);

[3.9474]

[3.9648]

  const GF3D<CCTK_REAL, 1, 1, 1> divb_(cctkGH, divb);

Replacement in Maxwell/src/constraints.cxx at line 42 [3.7950]

B:BD[3.9649] → [2.350472:350670]

∅:D[2.350670] → [3.9841:10030]

B:BD[3.9841] → [3.9841:10030]

B:BD[3.10030] → [2.350671:350732]

∅:D[2.350732] → [3.10090:10162]

B:BD[3.10090] → [3.10090:10162]

B:BD[3.10162] → [2.350733:350794]

∅:D[2.350794] → [3.10222:10294]

B:BD[3.10222] → [3.10222:10294]

B:BD[3.10294] → [2.350795:350856]

  const Loop::GF3D<CCTK_REAL, 0, 1, 1> curlayz_(cctkGH, curlayz);
  const Loop::GF3D<CCTK_REAL, 1, 0, 1> curlazx_(cctkGH, curlazx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 0> curlaxy_(cctkGH, curlaxy);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> dive_(cctkGH, dive);
  const Loop::GF3D<CCTK_REAL, 1, 1, 1> divb_(cctkGH, divb);
  Loop::loop_int<0, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    curlayz_(p.I) = byz_(p.I) - (dyp(az_, p) - dzp(ay_, p));
  });
  Loop::loop_int<1, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    curlazx_(p.I) = bzx_(p.I) - (dzp(ax_, p) - dxp(az_, p));
  });
  Loop::loop_int<1, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    curlaxy_(p.I) = bxy_(p.I) - (dxp(ay_, p) - dyp(ax_, p));

[3.9649]

[3.10354]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    divd_(p.I) = dxp(dyz_, p.I) + dyp(dzx_, p.I) + dzp(dxy_, p.I);

Replacement in Maxwell/src/constraints.cxx at line 46 [3.7950]

B:BD[3.10361] → [3.10361:10485]

  Loop::loop_int<0, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dive_(p.I) = dxm(ex_, p) + dym(ey_, p) + dzm(ez_, p);

[3.10361]

[3.10485]

  loop_int<1, 1, 1>(cctkGH, [&](const PointDesc &p) {
    divb_(p.I) = dxp(byz_, p.I) + dyp(bzx_, p.I) + dzp(bxy_, p.I);

Deletion in Maxwell/src/constraints.cxx at line 49 [3.7950]

B:BD[3.10491] → [3.10491:10625]


  Loop::loop_int<1, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    divb_(p.I) = dxp(byz_, p) + dyp(bzx_, p) + dzp(bxy_, p);
  });

Deletion in Maxwell/src/initial.cxx at line 1 [3.15681]
B:BD[3.15681] → [3.15682:15703]
```
#include "dual.hxx"
```
Insertion in Maxwell/src/initial.cxx at line 11 [3.15681]
[3.15903]
[3.15903]
```
using namespace Loop;
```
Deletion in Maxwell/src/initial.cxx at line 15 [3.15681]
B:BD[2.356790] → [2.356790:356841]
∅:D[2.356841] → [3.15924:15925]
B:BD[3.15924] → [3.15924:15925]
```
inline int bitsign(bool s) { return s ? -1 : +1; }
```
Deletion in Maxwell/src/initial.cxx at line 16 [3.15681]
B:BD[3.15977] → [2.356842:356918]
```
template <typename T> T sinc(T x) { return x == T(0) ? T(1) : sin(x) / x; }
```

Deletion in Maxwell/src/initial.cxx at line 17 [3.15681]

∅:D[2.356933] → [3.15977:16060]

B:BD[3.15977] → [3.15977:16060]

B:BD[3.16060] → [2.356934:357137]

∅:D[2.357137] → [3.16123:16124]

B:BD[3.16123] → [3.16123:16124]

B:BD[3.16124] → [2.357138:357431]

∅:D[2.357431] → [3.16469:16470]

B:BD[3.16469] → [3.16469:16470]

B:BD[3.16470] → [2.357432:357466]

∅:D[2.357466] → [3.16470:16504]

B:BD[3.16470] → [3.16470:16504]

B:BD[3.16504] → [2.357467:357601]

∅:D[2.357601] → [3.16625:16673]

B:BD[3.16625] → [3.16625:16673]

B:BD[3.16673] → [2.357602:357713]

∅:D[2.357713] → [3.16673:16817]

B:BD[3.16673] → [3.16673:16817]

B:BD[3.16817] → [2.357714:357848]

∅:D[2.357848] → [3.16938:16986]

B:BD[3.16938] → [3.16938:16986]

B:BD[3.16986] → [2.357849:357960]

∅:D[2.357960] → [3.16986:17130]

B:BD[3.16986] → [3.16986:17130]

B:BD[3.17130] → [2.357961:358095]

∅:D[2.358095] → [3.17251:17299]

B:BD[3.17251] → [3.17251:17299]

B:BD[3.17299] → [2.358096:358207]

∅:D[2.358207] → [3.17299:17401]

B:BD[3.17299] → [3.17299:17401]

B:BD[3.19034] → [3.19034:19042]

B:BD[3.19865] → [3.19865:19983]

B:BD[3.19983] → [2.358208:358278]

∅:D[2.358278] → [3.20047:20202]

B:BD[3.20047] → [3.20047:20202]

B:BD[3.20202] → [2.358279:358317]

∅:D[2.358317] → [3.20258:20308]

B:BD[3.20258] → [3.20258:20308]

B:BD[3.20308] → [2.358318:358333]

∅:D[2.358333] → [3.20361:20427]

B:BD[3.20361] → [3.20361:20427]

B:BD[3.20427] → [2.358334:358437]

∅:D[2.358437] → [3.21073:21084]

B:BD[3.21073] → [3.21073:21084]

B:BD[3.21084] → [2.358438:358568]

∅:D[2.358568] → [3.21814:21821]

B:BD[3.21814] → [3.21814:21821]


////////////////////////////////////////////////////////////////////////////////
template <typename T> struct potential {
  // Electric scalar potential
  T phi;
  // Electric vector potential (to ensure div E = 0)
  T cyz, czx, cxy;
  // Magnetic vector potential
  T ax, ay, az;
};
// Continuous derivative
template <typename F, typename T>
potential<T> calc_dt(const F &f, T t, T x, T y, T z) {
  auto fd = f(dual<T>(t, 1), dual<T>(x), dual<T>(y), dual<T>(z));
  return {
      fd.phi.eps, fd.cyz.eps, fd.czx.eps, fd.cxy.eps,
      fd.ax.eps,  fd.ay.eps,  fd.az.eps,
  };
}
// Discrete derivatives (centred)
template <typename F, typename T>
potential<T> calc_dxc(const F &f, T t, T x, T y, T z, T dx) {
  auto fm = f(t, x - dx / 2, y, z);
  auto fp = f(t, x + dx / 2, y, z);
  return {
      .phi = (fp.phi - fm.phi) / dx,
      .cyz = (fp.cyz - fm.cyz) / dx,
      .czx = (fp.czx - fm.czx) / dx,
      .cxy = (fp.cxy - fm.cxy) / dx,
      .ax = (fp.ax - fm.ax) / dx,
      .ay = (fp.ay - fm.ay) / dx,
      .az = (fp.az - fm.az) / dx,
  };
}
template <typename F, typename T>
potential<T> calc_dyc(const F &f, T t, T x, T y, T z, T dy) {
  auto fm = f(t, x, y - dy / 2, z);
  auto fp = f(t, x, y + dy / 2, z);
  return {
      .phi = (fp.phi - fm.phi) / dy,
      .cyz = (fp.cyz - fm.cyz) / dy,
      .czx = (fp.czx - fm.czx) / dy,
      .cxy = (fp.cxy - fm.cxy) / dy,
      .ax = (fp.ax - fm.ax) / dy,
      .ay = (fp.ay - fm.ay) / dy,
      .az = (fp.az - fm.az) / dy,
  };
}
template <typename F, typename T>
potential<T> calc_dzc(const F &f, T t, T x, T y, T z, T dz) {
  auto fm = f(t, x, y, z - dz / 2);
  auto fp = f(t, x, y, z + dz / 2);
  return {
      .phi = (fp.phi - fm.phi) / dz,
      .cyz = (fp.cyz - fm.cyz) / dz,
      .czx = (fp.czx - fm.czx) / dz,
      .cxy = (fp.cxy - fm.cxy) / dz,
      .ax = (fp.ax - fm.ax) / dz,
      .ay = (fp.ay - fm.ay) / dz,
      .az = (fp.az - fm.az) / dz,
  };
}
////////////////////////////////////////////////////////////////////////////////
// Plane wave
template <typename T>
potential<T> plane_wave(const T t, const T x, const T y, const T z) {
  DECLARE_CCTK_PARAMETERS;
  // wave number
  T kx = M_PI * spatial_frequency_x;
  T ky = M_PI * spatial_frequency_y;
  T kz = M_PI * spatial_frequency_z;
  assert(kx == 0);
  assert(ky == 0);
  T omega = sqrt(pow2(kx) + pow2(ky) + pow2(kz));
  // amplitude
  T hx = amplitude_x;
  T hy = amplitude_y;
  T hz = amplitude_z;
  assert(hy == 0);
  assert(hz == 0);
  // solution
  assert(t == 0);
  T u = sin(omega * t - kz * z);
  return {
      .phi = 0,
      .cyz = 0,
      .czx = hx / kz * u,
      .cxy = 0,
      .ax = -hx / kz * u,
      .ay = 0,
      .az = 0,
  };
}

Replacement in Maxwell/src/initial.cxx at line 26 [3.15681]

B:BD[3.22101] → [3.22101:22805]

  const CCTK_REAL dx = CCTK_DELTA_SPACE(0);
  const CCTK_REAL dy = CCTK_DELTA_SPACE(1);
  const CCTK_REAL dz = CCTK_DELTA_SPACE(2);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> phi_(cctkGH, phi);
  const Loop::GF3D<CCTK_REAL, 1, 0, 0> ax_(cctkGH, ax);
  const Loop::GF3D<CCTK_REAL, 0, 1, 0> ay_(cctkGH, ay);
  const Loop::GF3D<CCTK_REAL, 0, 0, 1> az_(cctkGH, az);
  const Loop::GF3D<CCTK_REAL, 1, 0, 0> ex_(cctkGH, ex);
  const Loop::GF3D<CCTK_REAL, 0, 1, 0> ey_(cctkGH, ey);
  const Loop::GF3D<CCTK_REAL, 0, 0, 1> ez_(cctkGH, ez);
  const Loop::GF3D<CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const Loop::GF3D<CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);

[3.22058]

[3.22805]

  const GF3D<CCTK_REAL, 0, 1, 1> dyz_(cctkGH, dyz);
  const GF3D<CCTK_REAL, 1, 0, 1> dzx_(cctkGH, dzx);
  const GF3D<CCTK_REAL, 1, 1, 0> dxy_(cctkGH, dxy);

Replacement in Maxwell/src/initial.cxx at line 30 [3.15681]

B:BD[3.22806] → [3.22806:23096]

B:BD[3.23096] → [2.358569:358632]

∅:D[2.358632] → [3.23160:23275]

B:BD[3.23160] → [3.23160:23275]

B:BD[3.23275] → [2.358633:358696]

∅:D[2.358696] → [3.23339:23454]

B:BD[3.23339] → [3.23339:23454]

B:BD[3.23454] → [2.358697:358760]

∅:D[2.358760] → [3.23518:23633]

B:BD[3.23518] → [3.23518:23633]

  const auto loop_setup{[&](const auto &f4) {
    const auto f{[&](const auto &p) { return f4(t, p.x, p.y, p.z); }};
    const auto dtf{[&](const auto &p) {
      return calc_dt(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z);
    }};
    const auto dxf{[&](const auto &p) {
      return calc_dxc(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z, dx);
    }};
    const auto dyf{[&](const auto &p) {
      return calc_dyc(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z, dy);
    }};
    const auto dzf{[&](const auto &p) {
      return calc_dzc(
          [&](auto t, auto x, auto y, auto z) { return f4(t, x, y, z); }, t,
          p.x, p.y, p.z, dz);
    }};

[3.22806]

[3.23633]

  const GF3D<CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const GF3D<CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const GF3D<CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);

Replacement in Maxwell/src/initial.cxx at line 34 [3.15681]

B:BD[3.23634] → [3.23634:23737]

    Loop::loop_int<0, 0, 0>(
        cctkGH, [&](const Loop::PointDesc &p) { phi_(p.I) = f(p).phi; });

[3.23634]

[3.23737]

  if (CCTK_EQUALS(setup, "plane wave")) {

Replacement in Maxwell/src/initial.cxx at line 36 [3.15681]

B:BD[3.23738] → [3.23738:24041]

    Loop::loop_int<1, 0, 0>(
        cctkGH, [&](const Loop::PointDesc &p) { ax_(p.I) = f(p).ax; });
    Loop::loop_int<0, 1, 0>(
        cctkGH, [&](const Loop::PointDesc &p) { ay_(p.I) = f(p).ay; });
    Loop::loop_int<0, 0, 1>(
        cctkGH, [&](const Loop::PointDesc &p) { az_(p.I) = f(p).az; });

[3.23738]

[3.24041]

    // wave number
    const CCTK_REAL kx = CCTK_REAL(M_PI) * spatial_frequency_x;
    const CCTK_REAL ky = CCTK_REAL(M_PI) * spatial_frequency_y;
    const CCTK_REAL kz = CCTK_REAL(M_PI) * spatial_frequency_z;
    const CCTK_REAL omega = sqrt(pow2(kx) + pow2(ky) + pow2(kz));
    // amplitude
    const CCTK_REAL hx = amplitude_x;
    const CCTK_REAL hy = amplitude_y;
    const CCTK_REAL hz = amplitude_z;

Replacement in Maxwell/src/initial.cxx at line 46 [3.15681]

B:BD[3.24042] → [3.24042:24110]

B:BD[3.24110] → [2.358761:358817]

    Loop::loop_int<1, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
      ex_(p.I) = -dxf(p).phi + dyf(p).cxy - dzf(p).czx;

[3.24042]

[3.24153]

    loop_int<0, 1, 1>(cctkGH, [&](const PointDesc &p) {
      dyz_(p.I) = hx * cos(omega * t - kx * p.x - ky * p.y - kz * p.z);

Replacement in Maxwell/src/initial.cxx at line 49 [3.15681]

B:BD[3.24161] → [3.24161:24229]

B:BD[3.24229] → [2.358818:358874]

    Loop::loop_int<0, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
      ey_(p.I) = -dyf(p).phi + dzf(p).cyz - dxf(p).cxy;

[3.24161]

[3.24272]

    loop_int<1, 0, 1>(cctkGH, [&](const PointDesc &p) {
      dzx_(p.I) = hy * cos(omega * t - kx * p.x - ky * p.y - kz * p.z);

Replacement in Maxwell/src/initial.cxx at line 52 [3.15681]

B:BD[3.24280] → [3.24280:24348]

B:BD[3.24348] → [2.358875:358931]

    Loop::loop_int<0, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      ez_(p.I) = -dzf(p).phi + dxf(p).czx - dyf(p).cyz;

[3.24280]

[3.24391]

    loop_int<1, 1, 0>(cctkGH, [&](const PointDesc &p) {
      dxy_(p.I) = hz * cos(omega * t - kx * p.x - ky * p.y - kz * p.z);

Deletion in Maxwell/src/initial.cxx at line 55 [3.15681]

B:BD[3.24399] → [2.358932:359081]

    // Loop::loop_int<0, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    //   dive_(p.I) = dxm(ex_, p) /*+ dym(ey_, p) + dzm(ez_, p)*/;
    // });

Replacement in Maxwell/src/initial.cxx at line 56 [3.15681]

B:BD[3.24400] → [3.24400:24468]

B:BD[3.24468] → [2.359082:359123]

    Loop::loop_int<0, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      byz_(p.I) = dyf(p).az - dzf(p).ay;

[3.24400]

[3.24511]

    loop_int<0, 1, 1>(cctkGH, [&](const PointDesc &p) {
      byz_(p.I) = hz * cos(omega * t - kx * p.x - ky * p.y - kz * p.z);

Replacement in Maxwell/src/initial.cxx at line 59 [3.15681]

B:BD[3.24519] → [3.24519:24587]

B:BD[3.24587] → [2.359124:359165]

    Loop::loop_int<1, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
      bzx_(p.I) = dzf(p).ax - dxf(p).az;

[3.24519]

[3.24630]

    loop_int<1, 0, 1>(cctkGH, [&](const PointDesc &p) {
      bzx_(p.I) = hx * cos(omega * t - kx * p.x - ky * p.y - kz * p.z);

Replacement in Maxwell/src/initial.cxx at line 62 [3.15681]

B:BD[3.24638] → [3.24638:24706]

B:BD[3.24706] → [2.359166:359207]

    Loop::loop_int<1, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
      bxy_(p.I) = dxf(p).ay - dyf(p).ax;

[3.24638]

[3.24749]

    loop_int<1, 1, 0>(cctkGH, [&](const PointDesc &p) {
      bxy_(p.I) = hy * cos(omega * t - kx * p.x - ky * p.y - kz * p.z);

Deletion in Maxwell/src/initial.cxx at line 65 [3.15681]
B:BD[3.24757] → [3.24757:24763]
```
  }};
```

Deletion in Maxwell/src/initial.cxx at line 66 [3.15681]

B:BD[3.24764] → [3.24764:24806]

B:BD[3.24806] → [2.359208:359305]

  if (CCTK_EQUALS(setup, "plane wave")) {
    loop_setup(
        [&](auto t, auto x, auto y, auto z) { return plane_wave(t, x, y, z); });

Replacement in Maxwell/src/make.code.defn at line 4 [3.25201]
B:BD[3.25281] → [2.367688:367720]
```
SRCS =						\
	average.cxx				\
```
[3.25281]
[2.367720]
```
SRCS =	average.cxx				\
```
Deletion in Maxwell/src/make.code.defn at line 7 [3.25201]
B:BD[2.367763] → [2.367763:367794]
```
	dual.cxx				\
	error.cxx				\
```
Replacement in Maxwell/src/make.code.defn at line 8 [3.25201]
B:BD[2.367812] → [2.367812:367821]
```
	rhs.cxx
```
[2.367812]
[3.25348]
```
        rhs.cxx
```

Insertion in Maxwell/src/rhs.cxx at line 8 [3.25411]

[3.25537]

using namespace Loop;
using namespace std;
namespace {
template <int CI, int CJ, int CK, typename T>
T star(const GF3D<const T, CI, CJ, CK> &u, const vect<int, dim> &I) {
  constexpr int SI = CI == 0 ? +1 : -1;
  constexpr int SJ = CJ == 0 ? +1 : -1;
  constexpr int SK = CK == 0 ? +1 : -1;
  const auto DI = vect<int, dim>::unit(0);
  const auto DJ = vect<int, dim>::unit(1);
  const auto DK = vect<int, dim>::unit(2);
  const auto SDI = SI * DI;
  const auto SDJ = SJ * DJ;
  const auto SDK = SK * DK;
  return (u(I) + u(I + SDI) + u(I + SDJ) + u(I + SDI + SDJ) + u(I + SDK) +
          u(I + SDI + SDK) + u(I + SDJ + SDK) + u(I + SDI + SDJ + SDK)) /
         8;
}

Insertion in Maxwell/src/rhs.cxx at line 29 [3.25411]

[3.25538]

} // namespace
////////////////////////////////////////////////////////////////////////////////

Replacement in Maxwell/src/rhs.cxx at line 37 [3.25411]

B:BD[3.25650] → [3.25650:25815]

  const auto DI = Loop::vect<int, Loop::dim>::unit(0);
  const auto DJ = Loop::vect<int, Loop::dim>::unit(1);
  const auto DK = Loop::vect<int, Loop::dim>::unit(2);

[3.25650]

[3.25815]

  const auto DI = vect<int, dim>::unit(0);
  const auto DJ = vect<int, dim>::unit(1);
  const auto DK = vect<int, dim>::unit(2);

Replacement in Maxwell/src/rhs.cxx at line 45 [3.25411]

B:BD[3.25949] → [3.25949:26246]

  const auto dxm{[&](const auto &u, const auto &p) {
    return (u(p.I) - u(p.I - DI)) / dx;
  }};
  const auto dym{[&](const auto &u, const auto &p) {
    return (u(p.I) - u(p.I - DJ)) / dy;
  }};
  const auto dzm{[&](const auto &u, const auto &p) {
    return (u(p.I) - u(p.I - DK)) / dz;
  }};

[3.25949]

[3.26246]

  const auto dxp{
      [&](const auto &u, const auto &I) { return (u(I + DI) - u(I)) / dx; }};
  const auto dyp{
      [&](const auto &u, const auto &I) { return (u(I + DJ) - u(I)) / dy; }};
  const auto dzp{
      [&](const auto &u, const auto &I) { return (u(I + DK) - u(I)) / dz; }};

Replacement in Maxwell/src/rhs.cxx at line 52 [3.25411]

B:BD[3.26247] → [3.26247:26544]

  const auto dxp{[&](const auto &u, const auto &p) {
    return (u(p.I + DI) - u(p.I)) / dx;
  }};
  const auto dyp{[&](const auto &u, const auto &p) {
    return (u(p.I + DJ) - u(p.I)) / dy;
  }};
  const auto dzp{[&](const auto &u, const auto &p) {
    return (u(p.I + DK) - u(p.I)) / dz;
  }};

[3.26247]

[3.26544]

  const GF3D<const CCTK_REAL, 0, 1, 1> dyz_(cctkGH, dyz);
  const GF3D<const CCTK_REAL, 1, 0, 1> dzx_(cctkGH, dzx);
  const GF3D<const CCTK_REAL, 1, 1, 0> dxy_(cctkGH, dxy);

Replacement in Maxwell/src/rhs.cxx at line 56 [3.25411]

B:BD[3.26545] → [3.26545:26609]

  const Loop::GF3D<const CCTK_REAL, 0, 0, 0> phi_(cctkGH, phi);

[3.26545]

[3.26609]

  const GF3D<const CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const GF3D<const CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const GF3D<const CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);

Replacement in Maxwell/src/rhs.cxx at line 60 [3.25411]

B:BD[3.26610] → [3.26610:26796]

  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ax_(cctkGH, ax);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ay_(cctkGH, ay);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> az_(cctkGH, az);

[3.26610]

[3.26796]

  const GF3D<CCTK_REAL, 0, 1, 1> dtdyz_(cctkGH, dtdyz);
  const GF3D<CCTK_REAL, 1, 0, 1> dtdzx_(cctkGH, dtdzx);
  const GF3D<CCTK_REAL, 1, 1, 0> dtdxy_(cctkGH, dtdxy);

Replacement in Maxwell/src/rhs.cxx at line 64 [3.25411]

B:BD[3.26797] → [3.26797:27601]

  const Loop::GF3D<const CCTK_REAL, 1, 0, 0> ex_(cctkGH, ex);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 0> ey_(cctkGH, ey);
  const Loop::GF3D<const CCTK_REAL, 0, 0, 1> ez_(cctkGH, ez);
  const Loop::GF3D<const CCTK_REAL, 0, 1, 1> byz_(cctkGH, byz);
  const Loop::GF3D<const CCTK_REAL, 1, 0, 1> bzx_(cctkGH, bzx);
  const Loop::GF3D<const CCTK_REAL, 1, 1, 0> bxy_(cctkGH, bxy);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> dtphi_(cctkGH, dtphi);
  const Loop::GF3D<CCTK_REAL, 1, 0, 0> dtax_(cctkGH, dtax);
  const Loop::GF3D<CCTK_REAL, 0, 1, 0> dtay_(cctkGH, dtay);
  const Loop::GF3D<CCTK_REAL, 0, 0, 1> dtaz_(cctkGH, dtaz);
  const Loop::GF3D<CCTK_REAL, 1, 0, 0> dtex_(cctkGH, dtex);
  const Loop::GF3D<CCTK_REAL, 0, 1, 0> dtey_(cctkGH, dtey);
  const Loop::GF3D<CCTK_REAL, 0, 0, 1> dtez_(cctkGH, dtez);

[3.26797]

[3.27601]

  const GF3D<CCTK_REAL, 0, 1, 1> dtbyz_(cctkGH, dtbyz);
  const GF3D<CCTK_REAL, 1, 0, 1> dtbzx_(cctkGH, dtbzx);
  const GF3D<CCTK_REAL, 1, 1, 0> dtbxy_(cctkGH, dtbxy);

Replacement in Maxwell/src/rhs.cxx at line 68 [3.25411]

B:BD[3.27602] → [3.27602:27917]

  const Loop::GF3D<CCTK_REAL, 0, 1, 1> dtbyz_(cctkGH, dtbyz);
  const Loop::GF3D<CCTK_REAL, 1, 0, 1> dtbzx_(cctkGH, dtbzx);
  const Loop::GF3D<CCTK_REAL, 1, 1, 0> dtbxy_(cctkGH, dtbxy);
  Loop::loop_int<0, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dtphi_(p.I) = -(dxm(ax_, p) + dym(ay_, p) + dzm(az_, p));

[3.27602]

[3.27917]

  loop_int<0, 1, 1>(cctkGH, [&](const PointDesc &p) {
    dtdyz_(p.I) = (star(bxy_, p.I + DJ) - star(bxy_, p.I)) / dy -
                  (star(bzx_, p.I + DK) - star(bzx_, p.I)) / dz;

Replacement in Maxwell/src/rhs.cxx at line 72 [3.25411]

B:BD[3.27923] → [3.27923:28033]


  Loop::loop_int<1, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dtax_(p.I) = -dxp(phi_, p) - ex_(p.I);

[3.27923]

[3.28033]

  loop_int<1, 0, 1>(cctkGH, [&](const PointDesc &p) {
    dtdzx_(p.I) = (star(byz_, p.I + DK) - star(byz_, p.I)) / dz -
                  (star(bxy_, p.I + DI) - star(bxy_, p.I)) / dx;

Replacement in Maxwell/src/rhs.cxx at line 76 [3.25411]

B:BD[3.28039] → [3.28039:28148]

  Loop::loop_int<0, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dtay_(p.I) = -dyp(phi_, p) - ey_(p.I);

[3.28039]

[3.28148]

  loop_int<1, 1, 0>(cctkGH, [&](const PointDesc &p) {
    dtdxy_(p.I) = (star(bzx_, p.I + DI) - star(bzx_, p.I)) / dx -
                  (star(byz_, p.I + DJ) - star(byz_, p.I)) / dy;

Deletion in Maxwell/src/rhs.cxx at line 80 [3.25411]

B:BD[3.28154] → [3.28154:28269]

  Loop::loop_int<0, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    dtaz_(p.I) = -dzp(phi_, p) - ez_(p.I);
  });

Replacement in Maxwell/src/rhs.cxx at line 81 [3.25411]

B:BD[3.28270] → [3.28270:28385]

  Loop::loop_int<1, 0, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dtex_(p.I) = -(dzm(bzx_, p) - dym(bxy_, p));

[3.28270]

[3.28385]

  loop_int<0, 1, 1>(cctkGH, [&](const PointDesc &p) {
    dtbyz_(p.I) = (star(dzx_, p.I + DK) - star(dzx_, p.I)) / dz -
                  (star(dxy_, p.I + DJ) - star(dxy_, p.I)) / dy;

Replacement in Maxwell/src/rhs.cxx at line 85 [3.25411]

B:BD[3.28391] → [3.28391:28882]

  Loop::loop_int<0, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dtey_(p.I) = -(dxm(bxy_, p) - dzm(byz_, p));
  });
  Loop::loop_int<0, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    dtez_(p.I) = -(dym(byz_, p) - dxm(bzx_, p));
  });
  Loop::loop_int<0, 1, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    dtbyz_(p.i, p.j, p.k) = dzp(ey_, p) - dyp(ez_, p);
  });
  Loop::loop_int<1, 0, 1>(cctkGH, [&](const Loop::PointDesc &p) {
    dtbzx_(p.i, p.j, p.k) = dxp(ez_, p) - dzp(ex_, p);

[3.28391]

[3.28882]

  loop_int<1, 0, 1>(cctkGH, [&](const PointDesc &p) {
    dtbzx_(p.I) = (star(dxy_, p.I + DI) - star(dxy_, p.I)) / dx -
                  (star(dyz_, p.I + DK) - star(dyz_, p.I)) / dz;

Replacement in Maxwell/src/rhs.cxx at line 89 [3.25411]

B:BD[3.28888] → [3.28888:29009]

  Loop::loop_int<1, 1, 0>(cctkGH, [&](const Loop::PointDesc &p) {
    dtbxy_(p.i, p.j, p.k) = dyp(ex_, p) - dxp(ey_, p);

[3.28888]

[3.29009]

  loop_int<1, 1, 0>(cctkGH, [&](const PointDesc &p) {
    dtbxy_(p.I) = (star(dyz_, p.I + DJ) - star(dyz_, p.I)) / dy -
                  (star(dzx_, p.I + DI) - star(dzx_, p.I)) / dx;

Maxwell: Rewrite thorn. Works now.

Dependencies

In channels

Change contents

Insertion in Maxwell/README at line 3 [3.20]

Replacement in Maxwell/README at line 21 [3.20]

Replacement in Maxwell/README at line 28 [3.20]

Deletion in Maxwell/README at line 35 [3.20]

Replacement in Maxwell/README at line 40 [3.20]

Insertion in Maxwell/README at line 42 [3.20]

Replacement in Maxwell/README at line 46 [3.20]

Replacement in Maxwell/README at line 48 [3.20]

Deletion in Maxwell/README at line 51 [3.20]

Deletion in Maxwell/README at line 52 [3.20]

Deletion in Maxwell/README at line 53 [3.20]

Insertion in Maxwell/README at line 54 [3.20]

Replacement in Maxwell/README at line 56 [3.20]

Deletion in Maxwell/configuration.ccl at line 2 [3.1332]

Deletion in Maxwell/interface.ccl at line 8 [3.1414]

Deletion in Maxwell/interface.ccl at line 16 [3.1414]

Replacement in Maxwell/interface.ccl at line 21 [3.1414]

Replacement in Maxwell/interface.ccl at line 25 [3.1414]

Deletion in Maxwell/interface.ccl at line 29 [3.1414]

Replacement in Maxwell/interface.ccl at line 33 [3.1414]

Replacement in Maxwell/interface.ccl at line 37 [3.1414]

Deletion in Maxwell/interface.ccl at line 41 [3.1414]

Deletion in Maxwell/interface.ccl at line 42 [3.1414]

Deletion in Maxwell/interface.ccl at line 43 [3.1414]

Replacement in Maxwell/interface.ccl at line 45 [3.1414]

Replacement in Maxwell/interface.ccl at line 53 [3.1414]

File move: maxwell-gaussian.par → maxwell.par

Insertion in Maxwell/par/maxwell.par at line 3 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 12 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 18 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 20 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 38 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 56 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 58 [3.3781]

Replacement in Maxwell/par/maxwell.par at line 60 [3.3781]

Deletion in Maxwell/param.ccl at line 7 [3.5230]

Deletion in Maxwell/param.ccl at line 43 [3.5230]

Replacement in Maxwell/schedule.ccl at line 3 [3.5933]

Replacement in Maxwell/schedule.ccl at line 6 [3.5933]

Replacement in Maxwell/schedule.ccl at line 9 [3.5933]

Deletion in Maxwell/schedule.ccl at line 11 [3.5933]

Replacement in Maxwell/schedule.ccl at line 12 [3.5933]

Deletion in Maxwell/schedule.ccl at line 14 [3.5933]