# Patent

## Title
Computer simulation of electromagnetic fields

## Abstract

A system and method for numerically computing electromagnetic fields that is based on extremizing the action integral. The scalar and vector potentials are parameterized. The electromagnetic fields that result from those scalar and vector potentials are derived, and then the parameters are varied to extremize the action integral. In an embodiment, a Lagrangian density is constructed from the electromagnetic fields and potentials. The variation of the action integral is computed as a series of equations in which each equation is the result of taking a derivative of the action integral with respect to a parameter of a Lagrangian density. Solving for the values of the parameters yields the electromagnetic fields.

## Background
CROSS-REFERENCE TO RELATED APPLICATIONS
This Application claims priority benefit of U.S. Provisional Application Ser. No. 61/365,366, entitled Improved Computer Simulations of Electromagnetic Fields, by Terje Vold, filed Jul. 19, 2010, which is incorporated by reference in its entirety.


BRIEF DESCRIPTION OF DRAWINGS
FIG. 1 shows a sphere with a nearby physical point dipole, represented as a dot.
FIG. 2 shows these dipole points, colored black; the dashed lines indicate the associations between dipole points and boundary vertices.
FIG. 3 shows the sphere, a dipole in the external region, and a plane containing the dipole and the center of the sphere.
FIG. 4 is a plot of a scalar potential in the plane identified in the previous figure.
FIG. 5 is a plot of a discontinuous scalar potential φi defined in the simulation space made up of the actual mediums inside and outside the sphere.
FIG. 6 shows the sphere, a dipole in the internal region, and a plane containing the dipole and the center of the sphere.
FIG. 7 is a plot of the scalar potential in the plane identified in the previous figure.
FIG. 8 is a plot of a discontinuous scalar potential φi defined in the simulation space.
FIG. 9 shows a sphere, the simulation's physical dipole in the external region, a plane containing the dipole, and the center of the sphere.
FIG. 10 is a plot of the discontinuous scalar potential defined in the simulation space.
FIG. 11 shows the scalar part of the interior discontinuous potential function that matches this physical dipole at the boundary.
FIG. 12 shows potentials that is the sum of one interior discontinuous potential and one exterior discontinuous potential.
FIG. 13 shows a potential that is the sum of the potentials of the FIG. 10 and of FIG. 11
FIG. 14 shows a triangular mesh.
FIG. 15 shows a representation of a wire network.
FIG. 16 shows an example of half-basis charge functions.
FIG. 17 shows an example of a basis charge function.
FIG. 18 shows an example of the domains of two half-basis functions for a thin dome-shaped sheet.
FIG. 19 shows the total basis line charge density from three charges.
FIG. 20 shows the current required to satisfy the continuity equation for the charge density of FIG. 19.
FIG. 21 shows a plot of domain (the parts of the wire network where the function is nonzero) of each unmodified basis function.
FIG. 22 shows a plot of another set of basis functions.
FIG. 23 shows icosahedron vertexes with one point inside the sphere and one point outside the sphere.
FIG. 24 shows the graph of FIG. 23 with additional points on the boundary for numerically approximating boundary integrals.
FIG. 25 shows a plot with frame vectors drawn next to the virtual dipoles.
FIGS. 26 and 27 show the scalar potential (that is, the zeroth component of the space-time potential) of the first element of AIO.
FIGS. 28 and 29, show some vector potential values, for check for the continuity of the tangential component at the surface of the sphere.
FIG. 30 shows plots over a larger range, indicating the increasing imaginary part at larger radii, which is just part of a wave.
FIGS. 31 and 32 a representation of substantially-continuous potentials for jA=1.
FIG. 33 the vector potential for a virtual electric dipole source.
FIG. 34 shows frame vectors. FIG. 34, is at 45 degrees to the x and y axes.
In FIG. 35, shows the magnetic field, B, in the x-z plane.
FIG. 36 shows a discontinuity in B at the boundary.
FIGS. 37 and 38 shows the E field of the {1,2} basis function.
FIG. 39 below shows a couple of plots of the E field of basis function {1,1}, representing dipoles associated with vertex 1 and frame vector 1.
FIGS. 40 and 41 show a substantially continuous scalar potential associated with the specified external source, a dipole at {−3, 0, 0} of type 2 (magnetic) with moment {0,1,0}.
FIGS. 42 and 43, show a vector potential.
FIG. 44 is a plot of the real and imaginary parts of the electric field.
FIG. 45 is another plot of a vector potential.
FIG. 46 shows that the example of FIG. 45 example is for wavelengths that are large, but not very much larger, than the size of the object.
FIGS. 47 and 48 show the real and imaginary parts of the B field in the {x,y} and {z,y} planes.
FIG. 49 shows the Real and Imaginary parts of the electric field E in the xz plane.
FIG. 50 shows plots in which the magnetic dipole axis is pointed out of the paper (since it is along the y axis).


DETAILED DESCRIPTION
Description without Equations
Introduction
Much of engineering, including electrical, electronic, and optical engineering, is based on physics and mathematical physics. Physics identifies, or aims to identify, rules or laws of nature using a mathematical language. These general laws of how the world behaves may be used in an infinite number of ways to create or help create specific practical results. Neither the laws of nature nor the language of nature (mathematics) are patentable, while practical inventions that are created by using, combining, and applying them in novel specific ways are patentable.
But the dividing line between these is not always clear. In development of the methods described in this provisional patent application, I have used some very well established laws of nature (Maxwell's equations of electrodynamics) and some less well known mathematics (geometric algebra) to write or derive some mathematical relationships between physical quantities of electrodynamics (mostly first written by other authors, some possibly first written by me). In the course of explaining my method, I have written down many unpatentable results of mathematical physics that may be unfamiliar to most computer programmers, physicists, and engineers. It is important to note that I am not claiming these results, but rather I am claiming a new method of computer simulation of electromagnetic fields, an eminently practical and specific engineering task, that I feel is best described by including information on these less familiar topics.
Since this is a provisional patent application, my primary goal is to describe and explain these new methods with sufficient clarity and detail to allow someone practiced in the relevant arts to use them. This may have resulted in some repetition, and descriptions of methods or informal claims that do not meet the requirements of formal claims for a regular patent application. A proper regular patent application will be submitted by the required date.
A person skilled in the arts relevant to this provisional patent application may be a person a) with good command of electrodynamics at the level of the classic textbooks “Classical Electrodynamics” by Jackson (2nd ed, Wiley, 1975) and “The Classical Theory of Fields” by Landau and Lifshitz (Pergamon Press, 1975), b) skilled at programming in the Mathematica computer language, version 7, in order to easily and clearly understand the numerical implementation example, and c) familiar with the use of geometric algebra and calculus at the level of “Geometric Algebra for Physicists” by Doran and Lasenby (Cambridge University Press, 2003) and preferably also familiar with “Space-Time Algebra” by Hestenes (Gordon and Breach, 1966) in order to clearly understand how the calculations done in the numerical implementation example can be correctly applied to other electromagnetic simulations.
Description
I have invented methods of calculating electric and magnetic field values in a computer simulation. These may be used separately, in combination with each other, or in combination with other methods. There are two main or most important methods, that I am calling the method of least action and the method of least squared response error, and at least two additional methods that may be used with the main methods or with methods of prior art.
The first method or claim is to choose the parameters in a parameterized expression of the potential and associated field so as to extremize the electromagnetic action with variation of those parameters. I call this the Method of Least Action.
Although extremization of the action is a well known idea in mathematical physics, typically called the principle of least action, it has never before been directly applied to practical numerical calculations of this type, and its application results in qualitatively different calculations and quantitatively better results compared with prior art. Also, although the statement above is simple and includes a large range of application and embodiments, it is very precisely stated and clearly limited in its scope. In particular, none of the many varieties of methods of prior art are included in this method.
This method may be viewed as a boundary element method, or a method of moments, that uses unknowns, operators, weighting functions, and an inner product that are different from those used in prior art. This method has improved numerical results for the same computational time compared with prior art, and a simpler, more precisely defined structure which allows easier application and extension to cases that are more complex than the simple case used here for illustration.
The detailed description of the basic model in this paper assumes that time dependence is harmonic, with arbitrarily varying time-dependent electromagnetic quantities represented as Fourier components in the frequency domain, but this description may be recast in the time domain.
This method may be especially usefully applied to simulate electromagnetic fields when space may be modeled as consisting substantially of piecewise homogeneous bulk regions of space filled with media that is electrically polarizable, electrically conductive, magnetically polarizable, or some combination.
“Bulk regions” means bounded volumes that are not thin; more quantitatively, we might say that bulk regions are bounded volumes such that the ratio of volume to surface area is sufficiently large, typically not much smaller than the distance between points or vertices on the region's boundary used to describe the boundary. Bounded volumes that are not bulk regions may be called thin regions or objects, or regions or objects with negligible thickness, or points or particles, or wires, or sheets. Often a thin surface layer of a bulk region is treated as a separate thin region; for example, in many cases almost all charge and current of a good electrical conductor is very close to the surface of the conducting object, and a bulk volume conductor may be replaced, either or both in physical reality and in the computer simulation, by a thin conducting surface or sheet object that is coincident with the boundary of the original conducting object.
The space may contain additional material, such as polarizable or conductive point, wire, or sheet or other thin objects; these can be analyzed by combining the method of least action with prior art methods, or, preferably, with the method of least squared response error described below and in later sections.
Any charge and current source functions, including sources at infinity, or their resulting fields, may also be specified. These are often called “incident” or possibly “applied” fields.
A simple particular application of my method for computer calculation of electromagnetic fields is to
a) specify a substantially continuous electromagnetic space-time potential as a sum of coefficients times potential basis functions,
b) choose the coefficients and potential basis functions to minimize the classical action with variation of the coefficients, and then
c) calculate any desired field values as sums of these coefficients times the field basis functions that correspond to the potential basis functions.
A “substantially continuous electromagnetic space-time potential” refers to a scalar potential and 3D vector potential that are continuous at all non-boundary points, and such that the scalar potential and the components of the vector potential that are tangential to the boundary are continuous at all boundary points within an acceptable numerical error.
Some convenient choices are to
i) choose the potential basis functions, and any of the coefficients as necessary, so that the integrand of the variation of the action is zero for all non-boundary points, and then
ii) choose the coefficients of the linear combination so that the action integral over all boundary points is minimized.
The continuous potential requirement of Item a) ensures that the two homogeneous Maxwell equations are satisfied at all non-boundary points, and that the usual homogeneous electromagnetic boundary conditions are satisfied at all boundary points.
Item i) ensures that the two Inhomogeneous Maxwell equations are satisfied at every non-boundary point.
Item ii) ensures that the usual Inhomogeneous electromagnetic boundary conditions are satisfied. This item results in an equation of the type used by a method of moments or by boundary element methods as applied to electromagnetism in prior art, but with an inner product, weighting functions, equation, and unknowns that have not been used in prior art, and it results in significant improvement in performance and results over prior art. This may be the most important and novel part of my method of least action.
There are various ways to implement a). Three possibilities are:
1) Specify three degrees of freedom of the potential on the boundary of each homogeneous region, and calculate any needed potential or field value at any interior point of a region by using an appropriate Green's function for the region and the Lorenz condition; this is a clear concept for this method, but is generally computationally intensive and therefore may not be practical. This is a well known and studied method.

2) Specify an “equivalent” parameterized conserved charge and current surface source density on the boundary of each region, use a Green's function to calculate any needed potential or field value from this charge and current in each region, and constrain the equivalent sources so that desired boundary conditions are met. This is a generally applicable, though moderately computationally intensive, method, often used in prior art. In prior art methods, the same equivalent source is generally used for fields on both sides of a boundary, and it is generally necessary to choose equivalent sources that include nonphysical magnetic charge and current; in the present method, different boundary virtual sources are used for fields on the different sides of a boundary, and using only electric charge and current, not magnetic, is allowed and may be preferred.

3) Specify a “virtual” parameterized conserved charge and current source density that is outside the region for which the fields are being calculated, calculate the potential and fields from this virtual charge and current, and then constrain the virtual sources so that the desired boundary conditions are met. Such virtual source density is similar to virtual images in optics, in that the virtual object does not really exist but is a convenient fiction for calculating desired field values in a region that is free of the virtual object. If the charge-current source density is simple, such as consisting of a finite number of point electric and magnetic dipoles, and the sources are well chosen, such as point dipoles at distances from the boundary that are comparable to the distance between dipoles, and the fields are well chosen, such as both retarded and advanced fields, this method can generate a good approximation to a wide range of potential values on boundaries between bulk regions with relatively little computation. Using virtual sources allows much greater freedom in choosing good basis functions. These virtual sources can be a combination of boundary and non-boundary virtual sources, as may be useful for a region boundary with one part that comes close to but does not directly connect with another part of the boundary (since in this case the non-boundary virtual sources that should be on one side of the boundary may end up on the other side, so boundary virtual sources might be a better choice). This new method of including non-boundary virtual sources may be used here and has not been used in prior art, and indeed cannot be used in much if not all prior art since the source is used as the “weighting” or “testing” function for essential integrals over boundaries in prior art. Use of virtual sources is illustrated in detail in the computer program in the “Numerical implementation example” section.

This method of least action can be expressed in detail and with precision in various ways, including using conventional 3D vector algebra, relativistic tensor algebra, the geometric algebra of space, and the geometric algebra of space-time. Despite the simplicity of its statement and its advantages, it has not previously been applied in the art of numerical electromagnetic calculation or computer simulation. Details of this method are given in later sections.
A second method or claim of this patent is the determination of the coefficients of source basis functions for thin objects or regions, such as thin wires or thin sheets, that are electromagnetically responsive (e.g., electrically conductive or electrically or magnetically polarizable, or some combination) by choosing coefficients that minimize the integrated squared error between the source given by the sum of coefficients times basis functions, and the source predicted by the electromagnetic response rule (e.g., Ohm's “Law”) as a linear function of the field, with the field calculated due to all charge-current sources, typically using integrals and Green's functions. I call this the Method of Least Squared Response Error. This is similar to but distinct from the method of moments as used in prior art, and generates better results; it may be viewed as a method of moments, but with weight functions given by an expression not used in prior art. Again, although the mathematical ideas used in this method are not new, application of them to numerical computer simulation of electromagnetic fields as taught by this method is new. Further details are give in the “Description of Wires and Sheets” section.
A third method or claim of this patent is the application of a new type of wire-like or sheet-like charge-current source basis function set. This type of set of source basis functions can be obtained from a more conventional set of more localized conserved charge-current source basis functions, such as RWO basis functions, as follows. We begin by choosing to parameterize each basis function by the amplitude of the charge density. We then replace one charge-current source basis function in each topological loop of the wire or sheet network with a linear combination of the original basis functions of the loop so that they represent a current loop, with coefficients chosen so that the charge density is zero everywhere, and then divide the resulting function by the frequency. The resulting set of source basis functions works without problem at all frequencies (with the usual restriction that the domain of the basis function is small compared with the wavelength of radiation in the surrounding medium), including low frequencies and zero. In contrast, the original set of source basis functions is problematic at low frequencies because the linear combination of basis functions described above has a common factor of frequency, so this combination vanishes at zero frequency, resulting in complete loss of this degree of freedom for zero frequency (with a corresponding completely incorrect solution to the simulation problem) and serious numerical problems for small frequencies. This may be used in combination with the method of least action, the method of least squared response error, or prior art methods. Further details are give in a “Description of Wires and Sheets” section.
A fourth method or claim of this patent is the use of both retarded and advanced potential and field functions as basis functions in computer simulations of electromagnetic fields. Again, although advanced and retarded functions are well studied and understood in mathematical physics, use of advanced functions in the practical task of numerically simulating electromagnetic fields has not been considered in prior art, despite great advantages in their use. Especially useful is to use
a) both retarded and advanced field solutions for each or some of the given charge-current source basis functions or
b) both the retarded field solution for a source basis function and the advanced field solution for the time-reversed version of the same source basis function, for each or some of the given charge-current source basis functions. Possibilities a) and b) may be equivalent.
Advanced functions are usually not appropriate unless they are enclosed by a finite boundary.
This may be used in combination with the method of least action, the method of error minimization, or prior art methods.
This method is illustrated in detail in the computer program in the “Numerical implementation example” section.
The explicit identification in this provisional patent application of distinct methods or claims above is not meant to be exhaustive. I expect but am not sure that these methods will be written as independent claims in the subsequent patent application. I believe that the details of these methods given in the remainder of this provisional patent application communicate the content of my invention in a way that is proper and acceptable, allowing a person skilled in the relevant arts (i.e., computer programming with expertise in the Mathematica computer language, physics with expertise in electrodynamics, and mathematics with familiarity with geometric algebra) to implement these methods.
Comparison of the Method of Prior Art for Bulk Regions (Method of Moments) with Method of Least Action
The following table gives a typical sequence of steps that lead to and specify the computer calculations performed in the prior art method of moments and in the method of least action, with corresponding steps compared.













The Method of Moments applied to
The Method of Least Action


Bulk Regions



We start with Maxwells' equations
We start with the classical


of electrodynamics
electrodynamic action and the



principle of least action


Equivalent electric and magnetic
Virtual electric charge and


charge and current sources are
current sources are used to define


used to define basis functions for
basis functions for expansions,


expansions, and these i) must be
and these i) may be on or off


on boundaries and ii) are not
boundaries and ii) are physically


physically possible because
possible, but virtual like a virtual


magnetic charge does not exist
image in optics


Fields on both sides of a
Fields on the two sides of a


boundary are calculated from the
boundary are calculated from


same fictitious sources on the
sources that ardifferent but are


boundary, which implies normal
chosen to result in the same


E and B components are correct if
potential on the boundary, which


tangential components are correct
implies tangential E and normal



B components are always



correct


Boundary condition equations
Boundary condition equations


constrain tangential E and B
constrain normal D and tangential


components and are derived 
H and can be directly read from


from Maxwell's equations
the least action equation


Fields in the boundary condition
Fields in the least action 


equations are expanded as linear
equationa re expanded as


combinations of basis functions
linear combinations of basis


Matrix equations are obtained
functions


by choosing arbitrary testing



functions (usually the fictitious
Matrix equations are the same


boundary sources), choosing an
as the least action equation


arbitrary inner product (usually
with variation of the parameters


the sum of the inner products of
of the potential expansion,


the vector current part of the
uniquely determined with no


source, electric and magnetic,
choices available


with the corresponding vector



field, electric or magnetic,



integrated over the boundary),



and taking the inner product of



each testing function with each



term in the boundary condition



equations



The matrix equation elements
The matrix equation elements


are usually chosen to be
are always required to be


boundary integrals of dot
boundary integrals of dot


products in 3D space between
products in 4D spacetime


fictitious vector currents and
between the potential, the


vector electric field values,
vector normal to the boundary,


but there is great freedom
and the field tensor


in choosing this



The matrix: equations are
The matrix equations are


solved
solved









Comparison of Characteristics of Prior Art for Bulk Regions (Method of Moments) and the Method of Least Action
The following table lists and compares characteristics of the prior art method of moments and the method of least action, and of the resulting computer simulations.













The Method of Moments
The Method of Least Action


applied to Bulk Regions



There is great freedom in choosing
There is no freedom in choosing


the form of matrix elements
the form of matrix elements


(including allowing those of the
(although one may choose any


method of least action); choices
set of basis functions); it is


have been made in prior art by ad
uniquely determined by the


hoc guesses of what might give
principle of least action to


good numerical results
best possible results


The concepts are complex and
The concepts are simple with


potentially confusing with
only real physical quantities


fictional quantities, such as
playing central roles


magnetic charge, playing



central roles



The requirement that the
The allowance of virtual


fictitious sources are located on
sources that are located not on


the boundary results in complicated
the boundary can result in simple


and slow integrals
and fast integrals


There generally are serious problems
There are no problems for


for all regions (electrically
electrically or magnetically 


polarizable, magnetically
polarizable regions, or for


polarizable, and electrically 
conductors as long as the


conductive) for frequencies
region has no specified current


that are small or equal
sources, for any frequency


to zero
from zero through high



frequencies


Generally good performance but not
Excellent performance and


optimal numerical results for any
provably optimal numerical 


given set of basis functions
results for the same set of basis



functions









Comparison of the Methods of Prior Art for Thin Regions (Method of Moments) and of the Method of Least Squared Response Error
The following table gives a typical sequence of steps that lead to and specify the computer calculations performed in the prior art method of moments as applied to thin regions, and in the method of error minimization, with corresponding steps compared. The first several steps are identical, but included for clarity. The equations are written in equivalent but slightly different form from others in this paper, in order to more easily compare with prior art.











The Method of Moments
The Method of


applied to Thin Regions
Least Squared Response Error







We start with Maxwells'
We start with Maxwells'


equations of electrodynamics
equations of electrodynamics


Real electric charge and
Real electric charge and


current sources are used to define
current sources are used to define


basis functions for expansions
basis functions for expansions


Fields are calculated from
Fields are calculated from


the physical sources on the sheet
the physical sources on the sheet


Phenomenological constraint
Phenomenological constraint


equations (e.g., Ohm's law) are used
equations (e.g., Ohm's law) are used


Sources and fields in the constraint
Sources and fields in the constraint


equations are expanded as linear
equations are expanded as linear


combinations of basis functions
combinations of basis functions


Matrix equations are obtained by
Matrix equations are obtained by


choosing arbitrary testing functions
minimizing the integrated squared


(typically the real sources),
error of the constraint equation


choosing an arbitrary inner product
with respect to coefficients ci


(typically the inner product of



the current part of the source with



the electric field, integrated over



the boundary), and taking the inner



product of each testing function with



each term in the constraint equations



 


Resulting equation for Ohm's law:
Resulting equation for Ohm's law:






  0
  =
  
    ∫
    
      
        
          
            j
            ⇀
          
          i
        
        ·
        
          (
          
            
              
                (
                
                  
                    
                      E
                      ⇀
                    
                    ⁡
                    
                      [
                      
                        
                          j
                          ⇀
                        
                        j
                      
                      ]
                    
                  
                  -
                  
                    R
                    ⁢
                    
                      
                        j
                        ⇀
                      
                      j
                    
                  
                
                )
              
              ⁢
              
                c
                j
              
            
            +
            
              
                E
                ⇀
              
              incident
            
          
          )
        
      
      ⁢
      
        d
        Σ
      
    
  








  
    
      0
      =
      
        ∫
        
          
            (
            
              
                
                  E
                  ⇀
                
                ⁡
                
                  [
                  
                    j
                    i
                  
                  ]
                
              
              -
              
                R
                ⁢
                
                  
                    j
                    ⇀
                  
                  i
                
              
            
            )
          
          ·
          
            (
            
              
                
                  (
                  
                    
                      
                        E
                        ⇀
                      
                      ⁡
                      
                        [
                        
                          j
                          j
                        
                        ]
                      
                    
                    -
                    
                      R
                      ⁢
                      
                        
                          j
                          ⇀
                        
                        j
                      
                    
                  
                  )
                
                ⁢
                
                  c
                  j
                
              
              +
              
                
                  E
                  ⇀
                
                incident
              
            
            )
          
        
      
    
    )
  
  ⁢
  
    d
    Σ
  






 


For zero resistance R:
For zero resistance R:






  0
  =
  
    ∫
    
      
        
          
            j
            ⇀
          
          i
        
        ·
        
          (
          
            
              
                
                  E
                  ⇀
                
                ⁡
                
                  [
                  
                    
                      j
                      ⇀
                    
                    j
                  
                  ]
                
              
              ⁢
              
                c
                j
              
            
            +
            
              
                E
                ⇀
              
              incident
            
          
          )
        
      
      ⁢
      
        d
        Σ
      
    
  








  0
  =
  
    ∫
    
      
        
          
            E
            ⇀
          
          ⁡
          
            [
            
              j
              i
            
            ]
          
        
        ·
        
          (
          
            
              
                
                  E
                  ⇀
                
                ⁡
                
                  [
                  
                    j
                    j
                  
                  ]
                
              
              ⁢
              
                c
                j
              
            
            +
            
              
                E
                ⇀
              
              incident
            
          
          )
        
      
      ⁢
      
        d
        Σ
      
    
  






 


Solve these matrix equations for cj
Solve these matrix equations for cj









Comparison of Characteristics of Prior Art for Thin Regions (Method of Moments) and the Method of Least Squared Response Error
The following table lists and compares characteristics of the prior art method of moments and the method of error minimization, and of the resulting computer simulations; for clarity, this is done for the case of electrical conductors, though the case of electrically or magnetically polarizable wires and sheets is similar.













The Method of Moments applied
The Method of Least Squared


to Thin Regions
Response Error


The weight functions are chosen by
The weight functions are chosen


following the ‘reaction concept,’
by minimizing the integrated


in which weights are chosen to
squared error, resulting in


equal the current basis functions
weights equal to the electric field


{right arrow over (j)} i.
{right arrow over (E)}(ji) due to charge-current basis



functions ji = {ρi, {right arrow over (j)}i}, minus the



current basis function 5i times a



resistivity R (Rfor the common



case of negligible resistivity).


The weight functions are
The weight functions are only


typically localized, and are
weakly localized, and are nonzero


nonzero on only a small part of
at every point of the object.


the object.



The motivation appears to be to
The motivation is to minimize


follow prior use of ‘the reaction
the numerical error of a well


concept,’ as a simple definite
established physical relationship


recipie
(e.g., Ohm's law)


Calculation of matrix elements
Calculation of matrix elements 


requires N electric field values for
requires the outer product of N 


N basis functions, so goes like N.
electric field values, so goes like



N if multiplication is fast compared



with calculation of field values



(the usual case).


The result is not optimal because
The result is optimal by


weights are chosen for simplicity
construction


instead of best performance









Description of the Method of Least Action by Way of Illustration with a Simple Example
Introduction to the Simple Application
My method can be applied to complex geometries and to models with conductive or polarizable wires and sheets, and there is great freedom in the choice of a myriad of details while still following this method. But to explain my method I will apply it to a simple case of one bounded bulk region of polarizable material surrounded by the rest of space filled with another polarizable material, with a real or physical nearby point dipole source that is the source of an “incident” or “applied” field. For simplicity and ease of drawing figures, I will take the bounded bulk region to be a sphere. I will imagine that the sphere is filled with some solid material such as glass, silicon, or (magnetically soft) iron, and the surrounding region is filled with air, though the mechanical properties of these regions does not enter into this simulation. Such a sphere with a nearby physical point dipole, represented as a red dot, are illustrated in FIG. 1.
The first task is to define a set of continuous potential basis functions. We do this by
a) first defining a set of potential basis functions that are discontinuous across the boundary but such that they satisfy appropriate versions of Maxwell's equations at every non-boundary point, and
b) then finding linear combinations of these discontinuous functions that are continuous, or approximately continuous, at all boundary points.
Each discontinuous potential basis function is defined to be zero either at all points inside the sphere, or at all points outside the sphere. In the region, interior or exterior, where the discontinuous potential is nonzero, we define each discontinuous potential basis function as the potential due to an associated source, either
i) a virtual source such as a point electric or magnetic dipole, that may be located anywhere except at interior points of the region (i.e, is located at interior points of other regions or at boundary points), or
ii) a physical source such as a point electric or magnetic dipole or a wire source or a sheet source.
We use the term “virtual source” to refer to source functions that do not represent any real source in the simulation, but rather are just convenient tools for calculating potentials with desired properties. Using virtual sources, we define useful source-free potentials with associated electric and magnetic fields that satisfy Maxwell's equations.
We use the term “physical source” to refer to source functions that represent a real physical source that exists in the simulation. We typically use the word “physical” to identify these sources and not “real” to avoid confusion with the unrelated ideas of real versus imaginary or complex numbers.
There are many other ways to define a suitable parameterized continuous potential function; this method is used in this example because of its simplicity and fast computation.
Virtual Sources
In this example we use virtual sources that are dipoles located outside the region for which we are defining a potential basis function. Many other choices are possible, including virtual sources that are located on the boundary, such as the common RKO sources. We use dipoles in this example because they are simple and can give excellent numerical results with relatively little computation.
An advantage of boundary virtual sources is that they can work even if two substantially anti-parallel parts of one boundary are very close to each other, while with sources that are outside the boundary of the region, such parts of the boundary must be separated by a distance on the order of twice the distance between the virtual sources and the boundary. Advantages of dipole virtual sources that are located outside the boundary include simplicity and very fast computation.
The electric and magnetic dipoles that are used to define the potential basis functions can be specified as follows. These dipoles do not exist, and do not contribute any charge or current density to any real or physical source of the simulation, but are only used as mathematical aids to specify fields. In this way they are similar to virtual sources in optics.
I define a triangular mesh to approximate and represent the boundary between the two bulk regions. I will do this for the spherical boundary of this example by using an icosahedron. Other geometrical quantities must also be defined, such as the location of the specified point dipole. In this example I choose an arbitrary location for the specified point dipole and include it, colored red, in the following figure of the triangular mesh and dipole location.
With each vertex, I will associate one point inside the sphere and one point outside the sphere. I will consider fields due to one electric and to two magnetic dipoles at each of these points, with the electric moment parallel to the line to the vertex and the magnetic moments perpendicular to this line. These fields will be used to define basis functions. FIG. 2 shows these dipole points, colored black; the dashed lines indicate the associations between dipole points and boundary vertices. The exact locations of the dipoles is not critical, although good placement, resulting in basis functions that do a good job of representing arbitrary fields, can be quantified. See FIG. 2.
Discontinuous Potential Basis Functions, Continuous within Each Homogeneous Region of Polarizable or Conductive Medium
I index the dipoles described in the previous section with i, and for each dipole i, I define discontinuous potentials {umlaut over (φ)}i and {right arrow over (ä)}i as follows. I will use a pair of over-dots to indicate that the quantity may be discontinuous at boundary points, as in {umlaut over (φ)}i, in contrast to quantities that are continuous at all points, as in φi, which will be defined in the next section in terms of the discontinuous ones of this section.
FIG. 3, shows the sphere, a dipole in the external region, and a plane containing the dipole and the center of the sphere.
FIG. 4 is a plot of a scalar potential in the plane identified in the previous figure, defined in a “virtual space” that is uniformly filled with a medium having the same properties as that inside the sphere, due to the dipole in that figure. The plot is colored blue for points inside the sphere, where these potential values will be used.
FIG. 5 is a plot of a discontinuous scalar potential {umlaut over (φ)}i defined in the simulation space made up of the actual mediums inside and outside the sphere, with {umlaut over (φ)}i defined to equal zero outside the sphere and to equal the value of the previous figure for points inside the sphere. This is the scalar part of one of our discontinuous potential basis functions for this example; there is also a corresponding vector part, defined in the same way, but the plots of this vector potential or of its components may be confusing so are not drawn here.
FIG. 6 shows the sphere, a dipole in the internal region, and a plane containing the dipole and the center of the sphere.
FIG. 7 is a plot of the scalar potential in the plane identified in the previous figure, for an virtual space uniformly filled with a medium having the same properties as that outside the sphere, due to the dipole in the previous figure. The plot is colored blue for points outside the sphere, where these potential values will be used.
FIG. 8 is a plot of a discontinuous scalar potential {umlaut over (φ)}i defined in the simulation space made up of the actual mediums inside and outside the sphere, defined to equal zero inside the sphere and to equal the value of the previous figure for points outside the sphere. This is the scalar part of our discontinuous potential basis functions; as before, there is also a corresponding vector part, defined in the same way, but as before, the plots of this vector potential or of its components may be confusing so are not drawn here.
FIG. 9 shows the sphere, the simulation's physical dipole in the external region, and a plane containing the dipole and the center of the sphere. The real dipole is not a virtual dipole, but is a physical dipole that, in this example, is specified or given by the person doing the simulation.
FIG. 10 is a plot of the discontinuous scalar potential defined in the simulation space made up of the actual mediums inside and outside the sphere, defined to equal zero inside the sphere, and for points outside the sphere, to equal the value that would occur due to the physical dipole if all of space were filled with the external medium.
Next, FIG. 1, is the scalar part of the interior discontinuous potential function that matches this physical dipole at the boundary; as before, there is also a corresponding vector part, defined in the same way, and as before, the plots of this vector potential or of its components may be confusing so are not drawn here.
For clarity, these plots have displayed the real part of the scalar part of the potential, for dipole fields with a wavelength long compared with the plotted dimensions. Such plots are indistinguishable for retarded and advanced fields and potentials. One of the independent claims of this patent is the use of both retarded and advanced basis fields and potentials for solving these types of problems. It turns out that continuous basis functions, as described in the next section, are much better if both advanced and retarded potentials and fields are used for any finite bounded region, such as the interior of this sphere. Details of how this may be done are clarified by the use of both retarded and advanced basis fields and potentials in the numerical example in a later section.
Continuous Basis Functions
In this simple example, there is an exact solution for scalar potential basis functions that are continuous everywhere for frequency=0: we can use results known for image charge solutions to see that if we choose locations of the electric dipoles correctly, the sum of one interior discontinuous potential and one exterior discontinuous potential defined in the previous section will give a potential that is exactly continuous at every point on the boundary, at least for frequency equal to zero.
This is illustrated in the FIG. 12, which is the sum of the two discontinuous potentials illustrated in FIGS. 5 and 8:
This is illustrated again in the following plot, FIG. 13, for the potential associated with the physical dipole: this is the sum of the potentials of the FIG. 10 and of FIG. 11:
For a general geometry, and for a general frequency, we cannot find exact solutions; instead, we form linear combinations of all discontinuous functions, and choose coefficients so as to minimize the integral of a measure of the potential mismatch over the boundary, as follows.
The dynamical variables of an electrodynamics problem are the potential A={Φ, {right arrow over (A)}} and the source J={ρ, {right arrow over (J)}}. We are here mostly using vector algebra combined with a list or set notation, because most readers are more familiar with vector algebra; geometric algebra is simpler, more precise, and more clear, but less familiar. We expand each one as a finite sum of basis functions times coefficients. Here we are concerned about the potential A. We want to write this potential as a sum of continuous basis functions ai times coefficients ci,

A=ciai  (1)

where ai represents the scalar and vector potentials,

ai={φi,{right arrow over (a)}i}  (2)

Using geometric algebra, if αi=(φi+{right arrow over (a)}i)γ0=γ0(φi−{right arrow over (a)}i) are the space-time potentials, ai is defined as

ai=αiγ0=φi+{right arrow over (a)}i  (3)

We construct these continuous basis functions ai as linear sums of discontinuous basis functions äi (like those illustrated in the previous section).
A general treatment of this is a bit abstract and can be unclear, so here I describe an application to this simple example problem with only two regions.
Let the index for the discontinuous potentials be the pair {i, r} where i is an integer that identifies the vertex and charge type (electric or magnetic dipole), and r identifies the region in which the potential is nonzero (r=in for inside or r=out for outside the sphere). We write a potential basis function as äir. In this example there is only one physical source; for this we choose i=0 for notational simplicity, and its field (along with the dipole) exists in the outside region, so the associated potential is denoted ä0out.
I define a linear combination




  
    
      
        
          a
          0
        
        =
        
          
            
              a
              0
            
            
              ...
              ⁢
              
                
              
              ⁢
              out
            
          
          +
          
            
              
                a
                i
              
              
                ...
                ⁢
                
                  
                
                ⁢
                in
              
            
            ⁢
            
              c
              
                i
                ,
                0
              
            
          
        
      
    
    
      
        (
        4
        )
      
    
  




with coefficients cj,o to be chosen such that the value just inside any boundary point equals or at least approximately equals the value just outside the boundary point. The expression a0 represents a continuous potential that is associated with the physical source, as in FIG. 13, while ä0out represents the discontinuous potential associated with the physical source, as in FIG. 10. I also define linear combinations





  
    
      
        
          a
          j
        
        =
        
          
            
              a
              j
            
            
              ...
              ⁢
              
                
              
              ⁢
              out
            
          
          +
          
            
              
                a
                i
              
              
                ...
                ⁢
                
                  
                
                ⁢
                in
              
            
            ⁢
            
              c
              
                i
                ,
                j
              
            
          
        
      
    
    
      
        (
        5
        )
      
    
  




with coefficients ci,j to be chosen also such that the value just inside any boundary point again equals or at least approximately equals the value just outside the boundary point. The expressions aj represent continuous potentials that are not associated with any physical source, but typically with potentials that are peaked or localized near a part of a boundary, as in FIG. 12. We are using standard complex notation here as reviewed in a later section, so that for a quantity like aj the actual physical quantity represented is Re[aj Exp[−iωt]].

We now minimize the integrated squared error of continuous potential aj on the boundary Σ by requiring




  
    
      
        0
        =
        
          
            θ
            
              c
              
                i
                ,
                j
              
            
          
          ⁢
          
            ∫
            
              
                
                  (
                  
                    
                      
                        a
                        j
                      
                      
                        ...
                        ⁢
                        
                          
                        
                        ⁢
                        out
                      
                    
                    -
                    
                      
                        
                          a
                          k
                        
                        
                          ...
                          ⁢
                          
                            
                          
                          ⁢
                          in
                        
                      
                      ⁢
                      
                        c
                        
                          k
                          ,
                          j
                        
                      
                    
                  
                  )
                
                †
              
              *
              
                (
                
                  
                    
                      a
                      j
                    
                    
                      ...
                      ⁢
                      
                        
                      
                      ⁢
                      out
                    
                  
                  -
                  
                    
                      
                        a
                        i
                      
                      
                        ...
                        ⁢
                        
                          
                        
                        ⁢
                        in
                      
                    
                    ⁢
                    
                      c
                      
                        l
                        ,
                        j
                      
                    
                  
                
                )
              
              ⁢
              
                d
                Σ
              
            
          
        
      
    
    
      
        (
        6
        )
      
    
  




where the superscript dagger means the complex conjugate (or the complex conjugate of the reverse using geometric algebra), and the asterisk product represents the scalar geometric product minus the product of the vector components perpendicular to the boundary (see the Numerical implementation example section and Boundary matching theory section). If we write ai as the multivector ai=φi+{right arrow over (a)}i and {circumflex over (n)} is a unit vector normal to the boundary, this is





  
    
      
        
          
            a
            i
            †
          
          *
          
            a
            j
          
        
        =
        
          
            〈
            
              
                (
                
                  
                    φ
                    i
                    †
                  
                  +
                  
                    
                      n
                      ^
                    
                    ⁢
                    
                      
                        n
                        ^
                      
                      ⋀
                      
                        
                          a
                          ⇀
                        
                        i
                        †
                      
                    
                  
                
                )
              
              ⁢
              
                (
                
                  
                    φ
                    i
                  
                  +
                  
                    
                      n
                      ^
                    
                    ⁢
                    
                      
                        n
                        ^
                      
                      ⋀
                      
                        
                          a
                          ⇀
                        
                        j
                      
                    
                  
                
                )
              
            
            〉
          
          =
          
            

          
          ⁢
          
            
              
                
                  φ
                  i
                  †
                
                ⁢
                
                  φ
                  j
                
              
              +
              
                
                  (
                  
                    
                      n
                      ^
                    
                    ⁢
                    
                      
                        n
                        ^
                      
                      ⋀
                      
                        
                          a
                          ⇀
                        
                        i
                        †
                      
                    
                  
                  )
                
                ·
                
                  (
                  
                    
                      n
                      ^
                    
                    ⁢
                    
                      
                        n
                        ^
                      
                      ⋀
                      
                        
                          a
                          ⇀
                        
                        j
                      
                    
                  
                  )
                
              
            
            =
            
              
                
                  φ
                  i
                  †
                
                ⁢
                
                  φ
                  j
                
              
              +
              
                
                  
                    a
                    ⇀
                  
                  i
                  †
                
                ·
                
                  
                    a
                    ⇀
                  
                  j
                
              
              -
              
                
                  
                    n
                    ^
                  
                  ·
                  
                    
                      a
                      ⇀
                    
                    i
                    †
                  
                
                ⁢
                
                  
                    n
                    ^
                  
                  ·
                  
                    
                      a
                      ⇀
                    
                    j
                  
                
              
            
          
        
      
    
    
      
        (
        7
        )
      
    
  




where the last expression uses only operations and notation from vector algebra. Taking this derivative, we have





  
    
      
        0
        =
        
          
            
              ∂
              
                
                  c
                  i
                
                ,
                j
              
            
            ⁢
            
              ∫
              
                
                  
                    (
                    
                      
                        
                          a
                           ̈
                        
                        j
                        out
                      
                      -
                      
                        
                          
                            a
                             ̈
                          
                          k
                          in
                        
                        ⁢
                        
                          c
                          
                            k
                            ,
                            j
                          
                        
                      
                    
                    )
                  
                  †
                
                *
                
                  (
                  
                    
                      
                        a
                         ̈
                      
                      j
                      out
                    
                    -
                    
                      
                        
                          a
                           ̈
                        
                        l
                        in
                      
                      ⁢
                      
                        c
                        
                          l
                          ,
                          j
                        
                      
                    
                  
                  )
                
                ⁢
                
                  d
                  ∑
                
              
            
          
          =
          
            ∫
            
              
                -
                
                  
                    a
                     ̈
                  
                  i
                  
                    in
                    †
                  
                
              
              *
              
                (
                
                  
                    
                      a
                       ̈
                    
                    j
                    out
                  
                  -
                  
                    
                      
                        a
                         ̈
                      
                      k
                      in
                    
                    ⁢
                    
                      c
                      
                        k
                        ,
                        j
                      
                    
                  
                
                )
              
              ⁢
              
                d
                ∑
              
            
          
        
      
    
    
      
        (
        8
        )
      
    
  




or





  
    
      
        
          ∫
          
            
              
                a
                 ̈
              
              i
              
                in
                †
              
            
            *
            
              
                a
                 ̈
              
              k
              in
            
            ⁢
            
              d
              
                ∑
                
                  c
                  
                    k
                    ,
                    j
                  
                
              
            
          
        
        =
        
          ∫
          
            
              
                a
                 ̈
              
              i
              
                in
                †
              
            
            *
            
              
                a
                 ̈
              
              j
              out
            
            ⁢
            
              d
              ∑
            
          
        
      
    
    
      
        (
        9
        )
      
    
  




The surface integrals may be approximated numerically in various ways, such as by replacing the integrand on each triangle with its value at the centroid of the triangle. This gives a numerical matrix equation that can be and generally is immediately solved to give the coefficients ck,j.
As stated in the previous section, this continuous potential is much better (i.e., better continuity at the boundary) if both retarded and advanced potentials are used. This is illustrated by their use in the numerical example.
We now have one approximately continuous potential basis functions ai={φi, {right arrow over (a)}i} for each pair of dipoles (inside and outside dipole) associated with each vertex on the boundary, plus one approximately continuous potential basis function for the physical dipole source.
In a general case, we may have more than one and possibly many physical sources, and they may be point dipoles, line sources, sheet sources, or other types.
Solution by Minimization of the Action with Variation of Continuous Potential Parameters
The potential A={Φ, {right arrow over (A)}} of this simulation is now represented as a linear combination of the continuous basis potentials φi, and {right arrow over (a)}i; with coefficients or parameters ci:

φ=ciφi  (10)

{right arrow over (A)}=ci{right arrow over (a)}i  (11)

The associated electric fields and magnetic induction fields,

{right arrow over (E)}=ci{right arrow over (e)}i  (12)

{right arrow over (B)}=ci{right arrow over (b)}i  (13)

are functions of derivatives of the potentials, given by the usual expressions

{right arrow over (e)}i=−{right arrow over (∇)}φi−∂t{right arrow over (a)}i  (14)

{right arrow over (b)}i={right arrow over (∇)}i×{right arrow over (a)}i  (15)

The associated electric displacement fields and magnetic fields,

{right arrow over (D)}=ci{right arrow over (d)}i  (16)

{right arrow over (H)}=ci{right arrow over (h)}i  (17)

are functions of the electric fields and magnetic induction fields, and of the medium; for a linearly polarizable medium, they are related by

{right arrow over (d)}i=ε{right arrow over (e)}i  (18)

{right arrow over (h)}i=1/μ{right arrow over (b)}i  (19)

The charge and current physical source ρ and {right arrow over (J)} in the simulation that is not accounted for by the polarization of the medium is also represented as a linear combination of basis functions. This source is often called “free” source; here we are usually if not always talking about free source when we use the phrase “physical source,” so for brevity we often do not use the word “free”. Note that this source is physical and not virtual, but note that the continuous potential associated with a physical source generally uses virtual sources in its definition according to the method of matching boundary potential values described above. We write this physical free source as a linear combination of source basis functions ρi and {right arrow over (j)}i:

ρ=ciρi  (20)

{right arrow over (J)}=ci{right arrow over (j)}i  (21)

We choose the potential ai in the geometric algebra of space-time to be related to the physical source ji at all non-boundary points by

□2ai=ci  (22)

where □ is the space-time vector derivative of geomeric algebra, and □2 is the d'Alembertian operator. This may be alternatively written, using the geometric or vector algebra of space and time (and using units such that ε0=1=μ0=c for simplicity), as

(∂t2−{right arrow over (∇)}2)φi=ρi  (23)

(∂t2−{right arrow over (∇)}2){right arrow over (a)}i={right arrow over (j)}i  (24)

For basis functions φi, {right arrow over (a)}i, etc. that are not associated with any physical source, we have ρi=0={right arrow over (j)}i.
From the last two equations and definitions above for {right arrow over (d)}i and {right arrow over (h)}i, one can show that Maxwell's homogeneous equations in polarizable media are obeyed at all non-boundary points:

{right arrow over (∇)}·{right arrow over (d)}i=ρi  (25)

−∂t{right arrow over (d)}i+{right arrow over (∇)}×{right arrow over (h)}i={right arrow over (j)}i  (26)

We now have two types of basis functions: those associated with physical sources (and using virtual sources to define associated continuous potentials), and those not associated with any physical sources (and also using virtual sources to define associated continuous potentials). Note that the functions not associated with any physical sources are always associated with a potential pattern on the boundary, typically a localized boundary region with large potential values as in FIG. 12; we therefore may call these “boundary” basis functions. We may distinguish these two types of basis functions by using the dummy index “p” to refer to coefficients or basis functions associated with physical sources, and the dummy index “b” to refer to coefficients or basis functions associated with peaked potential values on a boundary.
The only physical source charge ρ and current {right arrow over (J)} in this example is the one external dipole (the large red dot in the figures of the previous section). For notational simplicity and convenience, we index this physical source with i=p=0.
The last step is to choose the potential on the boundary, by appropriately choosing the parameters cb of these basis functions associated with peaked potentials on a boundary, so that the action is minimized with variation of the potential.
First I derive the main equation that is used in this computational method. The basic theory is developed in Doran and Lasenby. I take the geometric algebraic equation (12.129) of Doran and Lasenby, use the Lagrangian for electrodynamics given by equation (13.27) but modified to apply to polarizable media, convert the volume integral to a surface integral. Below I rewrite some of this, including the result, in terms of vector algebra so that most of this is understandable by the majority of readers. The new method claimed in this patent applies this resulting equation, enclosed in a frame below, to computer calculations of electromagnetic field values.
Of course there are many different ways to express this result, and one skilled in the arts of applied geometric algebra, electrodynamics, and computer programming will be able to see that substantially the same result and method can be expressed in many different ways that may at first appear very different. But further, one skilled in the art will also see that this method is new, useful, and has never been used before.
The standard electromagnetic action for fields and sources in polarizable media may be written using geometric algebra as the integral over the space-time volume Ω as




  
    
      
        S
        =
        
          ∫
          
            
              (
              
                
                  
                    1
                    2
                  
                  ⁢
                  F
                  *
                  G
                
                -
                
                  A
                  *
                  J
                
              
              )
            
            ⁢
            
              d
              Ω
            
          
        
      
    
    
      
        (
        27
        )
      
    
  




where * is the scalar product and F is constructed from {right arrow over (E)} and {right arrow over (B)} and G is constructed from {right arrow over (D)} and {right arrow over (H)} as defined in the notes at the end of this application (and as used in Jackson, 2nd ed., p. 566), or equivalently using vector algebra as the integral over the spatial volume V and time t,





  
    
      
        S
        =
        
          ∫
          
            
              (
              
                
                  
                    1
                    2
                  
                  ⁢
                  
                    (
                    
                      
                        
                          E
                          ⇀
                        
                        ·
                        
                          D
                          ⇀
                        
                      
                      -
                      
                        
                          B
                          ⇀
                        
                        ·
                        
                          H
                          ⇀
                        
                      
                    
                    )
                  
                
                -
                
                  (
                  
                    φρ
                    -
                    
                      
                        A
                        ⇀
                      
                      ·
                      
                        J
                        ⇀
                      
                    
                  
                  )
                
              
              )
            
            ⁢
            
              d
              V
            
            ⁢
            
              d
              t
            
          
        
      
    
    
      
        (
        28
        )
      
    
  




The electrodynamic fields—the potentials Φ and {right arrow over (A)} and the linear functions {right arrow over (E)}, {right arrow over (B)}, {right arrow over (D)}, and {right arrow over (H)} of the potentials and their derivatives—are represented as linear combinations of basis functions with coefficients ci, as given above.
We set the variation in S to zero with variation of the field parameters cb that are not associated with any physical source:

0=∂cbS  (29)

After some calculation, one can show that this may be simplified to the equivalent equation




  
    
      
        0
        =
        
          ∫
          
            
              (
              
                
                  
                    φ
                    b
                  
                  ⁡
                  
                    (
                    
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        
                          ·
                          
                            
                              d
                              ⇀
                            
                            j
                          
                        
                      
                      -
                      
                        ρ
                        j
                      
                    
                    )
                  
                
                +
                
                  
                    
                      a
                      ⇀
                    
                    b
                  
                  ·
                  
                    (
                    
                      
                        
                          ∂
                          t
                        
                        ⁢
                        
                          
                        
                        ⁢
                        
                          
                            d
                            ⇀
                          
                          j
                        
                      
                      -
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        
                          ×
                          
                            
                              h
                              ⇀
                            
                            j
                          
                        
                      
                      +
                      
                        
                          j
                          ⇀
                        
                        j
                      
                    
                    )
                  
                
              
              )
            
            ⁢
            
              d
              V
            
            ⁢
            
              d
              t
            
            ⁢
            
              
            
            ⁢
            
              c
              j
            
          
        
      
    
    
      
        (
        30
        )
      
    
  




This is automatically satisfied at all non-boundary points because the two inner parenthesis are each identically zero, for each value of the index j, by our construction of the basis functions as follows from (25) and (26).
This leaves only the volume integral over points on (and very very near) boundary points. After converting the volume integral to a surface integral with surface normal {circumflex over (n)} and surface differential dΣ, and assuming harmonic time dependence with the usual complex number representation and conventions, and no contributions from the distant past or future, this integral is




  0
  =
  
    ∫
    
      
        (
        
          
            
              φ
              b
            
            ⁡
            
              (
              
                
                  
                    
                      n
                      ^
                    
                    ·
                    Δ
                  
                  ⁢
                  
                    
                      d
                      ⇀
                    
                    j
                  
                
                -
                
                  σ
                  j
                
              
              )
            
          
          +
          
            
              
                a
                ⇀
              
              b
            
            ·
            
              (
              
                
                  
                    -
                    
                      n
                      ^
                    
                  
                  ×
                  Δ
                  ⁢
                  
                    
                      h
                      ⇀
                    
                    j
                  
                
                +
                
                  
                    κ
                    ⇀
                  
                  j
                
              
              )
            
          
        
        )
      
      ⁢
      
        d
        
          ∑
          
            c
            j
          
        
      
    
  




where b ranges over values that index a complete set of potential values on the boundary, φb are scalar potential basis functions, {right arrow over (a)}b are vector potential basis functions, j is summed over both boundary and physical source basis functions, {right arrow over (d)}j are electric displacement basis functions, {right arrow over (h)}j are magnetic field basis functions, Δ{right arrow over (d)}j and Δ{right arrow over (h)}j are changes in the indicated fields across the boundary, σj and {right arrow over (κ)}j are physical surface charge and current density basis functions (equal to integrals of the volume charge and current densities ρj and {right arrow over (j)}j for a very short distance perpendicular to the boundary) for free physical charge and current that are not associated with the polarization of the media, and cj are complex-valued field basis function parameters. The “Einstein convention” of sums over repeated indices is used. The computer calculation of electromagnetic fields by choosing basis function parameters cj so that they satisfy this last equation is a central idea of the method of least action of this provisional patent application.

It may, however, be possible to write an equivalent equation or describe an equivalent method that at first look appears to be different but actually is not; for example, the scalar potential might be rewritten in terms of the vector potential using the Lorenz condition, and the integral transformed using integration by parts or other techniques. This method includes such equivalent expressions, while prior art is not such an equivalent expression.
Also, multiple steps in the description above, such as finding continuous basis functions and then extremizing the action on boundaries, may be combined into a smaller number of steps. The steps described here are itemized largely for clarity; the method may be applied in ways that are less clear but with possible advantages such as faster computation.
It may be convenient or helpful to explicitly divide the sum over j in the last equation into one sum over boundary basis functions indexed by b′ and one over physical source basis functions indexed by p. This gives




  
    
      
        
          
            ∫
            
              
                (
                
                  
                    
                      φ
                      b
                    
                    ⁡
                    
                      (
                      
                        
                          
                            
                              n
                              ^
                            
                            ·
                            Δ
                          
                          ⁢
                          
                            
                              d
                              ⇀
                            
                            
                              b
                              ′
                            
                          
                        
                        -
                        
                          σ
                          
                            b
                            ′
                          
                        
                      
                      )
                    
                  
                  +
                  
                    
                      
                        a
                        ⇀
                      
                      b
                    
                    ·
                    
                      (
                      
                        
                          
                            -
                            
                              n
                              ^
                            
                          
                          ×
                          Δ
                          ⁢
                          
                            
                              h
                              ⇀
                            
                            
                              b
                              ′
                            
                          
                        
                        +
                        
                          
                            κ
                            ⇀
                          
                          
                            b
                            ′
                          
                        
                      
                      )
                    
                  
                
                )
              
              ⁢
              
                d
                
                  ∑
                  
                    c
                    
                      b
                      ′
                    
                  
                
              
            
          
          +
          
            ∫
            
              
                (
                
                  
                    
                      φ
                      b
                    
                    ⁡
                    
                      (
                      
                        
                          
                            
                              n
                              ^
                            
                            ·
                            Δ
                          
                          ⁢
                          
                            
                              d
                              ⇀
                            
                            p
                          
                        
                        -
                        
                          σ
                          p
                        
                      
                      )
                    
                  
                  +
                  
                    
                      
                        a
                        ⇀
                      
                      b
                    
                    ·
                    
                      (
                      
                        
                          
                            -
                            
                              n
                              ^
                            
                          
                          ×
                          Δ
                          ⁢
                          
                            
                              h
                              ⇀
                            
                            p
                          
                        
                        +
                        
                          
                            κ
                            ⇀
                          
                          p
                        
                      
                      )
                    
                  
                
                )
              
              ⁢
              
                d
                
                  ∑
                  
                    c
                    p
                  
                
              
            
          
        
        =
        0
      
    
    
      
        (
        32
        )
      
    
  




This is now clearly a matrix equation in the form Mb,b′cb′=Nb,pcp which can be solved for the boundary basis parameters cb in terms of the physical source basis parameters cp. If the physical source basis parameters cp are known and specified, the problem is solved by solving this matrix equation; if some or all of the physical source basis parameters cp, are induced and constrained by physical rules such as Ohm's law, we can use the method of least squared response error to write r equations associated with these r such unknowns, and then simultaneously solve the resulting equations (48) and the equations of (32) for all parameters cb and all of the unknown parameters cp.
In this example all surface source densities σj and {right arrow over (κ)}j are zero, and the only index value for p is p=0. We can then write this last equation




  
    
      
        
          ∫
          
            
              (
              
                
                  
                    φ
                    b
                  
                  ⁡
                  
                    (
                    
                      
                        
                          n
                          ^
                        
                        ·
                        Δ
                      
                      ⁢
                      
                        
                          d
                          ⇀
                        
                        
                          b
                          ′
                        
                      
                    
                    )
                  
                
                -
                
                  
                    
                      a
                      ⇀
                    
                    b
                  
                  ·
                  
                    (
                    
                      
                        n
                        ^
                      
                      ×
                      Δ
                      ⁢
                      
                        
                          h
                          ⇀
                        
                        
                          b
                          ′
                        
                      
                    
                    )
                  
                
              
              )
            
            ⁢
            
              d
              
                ∑
                
                  c
                  
                    b
                    ′
                  
                
              
            
          
        
        =
        
          -
          
            ∫
            
              
                (
                
                  
                    
                      φ
                      b
                    
                    ⁡
                    
                      (
                      
                        
                          
                            n
                            ^
                          
                          ·
                          Δ
                        
                        ⁢
                        
                          
                            d
                            ⇀
                          
                          0
                        
                      
                      )
                    
                  
                  -
                  
                    
                      
                        a
                        ⇀
                      
                      b
                    
                    ·
                    
                      (
                      
                        
                          n
                          ^
                        
                        ×
                        Δ
                        ⁢
                        
                          
                            h
                            ⇀
                          
                          0
                        
                      
                      )
                    
                  
                
                )
              
              ⁢
              
                d
                
                  ∑
                  
                    c
                    0
                  
                
              
            
          
        
      
    
    
      
        (
        33
        )
      
    
  




It may be convenient to define the matrix and array elements




  
    
      
        
          M
          
            b
            ,
            
              b
              ′
            
          
        
        =
        
          ∫
          
            
              (
              
                
                  
                    φ
                    b
                  
                  ⁡
                  
                    (
                    
                      
                        
                          n
                          ^
                        
                        ·
                        Δ
                      
                      ⁢
                      
                        
                          d
                          ⇀
                        
                        
                          b
                          ′
                        
                      
                    
                    )
                  
                
                -
                
                  
                    
                      a
                      ⇀
                    
                    b
                  
                  ·
                  
                    (
                    
                      
                        n
                        ^
                      
                      ×
                      Δ
                      ⁢
                      
                        
                          h
                          ⇀
                        
                        
                          b
                          ′
                        
                      
                    
                    )
                  
                
              
              )
            
            ⁢
            
              d
              ∑
            
          
        
      
    
    
      
        (
        34
        )
      
    
  








  
    
      
        
          B
          b
        
        =
        
          -
          
            ∫
            
              
                (
                
                  
                    
                      φ
                      b
                    
                    ⁡
                    
                      (
                      
                        
                          
                            n
                            ^
                          
                          ·
                          Δ
                        
                        ⁢
                        
                          
                            d
                            ⇀
                          
                          
                            
                              
                            
                            0
                          
                        
                      
                      )
                    
                  
                  -
                  
                    
                      
                        a
                        ⇀
                      
                      b
                    
                    ·
                    
                      (
                      
                        
                          n
                          ^
                        
                        ×
                        Δ
                        ⁢
                        
                          
                            h
                            ⇀
                          
                          0
                        
                      
                      )
                    
                  
                
                )
              
              ⁢
              
                d
                
                  ∑
                  
                    c
                    0
                  
                
              
            
          
        
      
    
    
      
        (
        35
        )
      
    
  




so that this last equation can be written as the explicit matrix equation

Mbb′cb′=Bb  (36)

This is the equation to be solved for the parameters cb to complete the specification of the simulation solution. Once these parameters are known, any desired electromagnetic quantity can be quickly calculated in terms of the fields and sources written as known linear combinations of the basis functions.
Each matrix element may be calculated numerically. In this example, the values of the continuous basis potentials and associated fields may be calculated using standard dipole expressions for the discontinuous fields and the linear transformation matrix from discontinuous to continuous fields.
The integral over the spherical boundary may be approximated in various ways. For example, the integration surface might be approximated by the triangular mesh that was used to help define the basis function dipoles, and then the integral over each triangle might be approximated as the value of the integrand at the triangle centroid, with {circumflex over (n)} equal to the unit normal to the triangle, times the area dΣ of the flat triangle, or as the average integrand value evaluated at the three vertices, with {circumflex over (n)} equal to the unit normal to the sphere at the vertex, times the estimated area of the associated curved boundary. Or the integral might be approximated as a sum of the value of the integrand at each vertex, with {circumflex over (n)} equal to given normal data or to an appropriately weighted sum of normals to connected triangles, times some appropriate associated area such as one third of the area of all triangles sharing the vertex.
Another possibility for numerical evaluation of the boundary integral is to use a different, generally finer, triangular mesh than that used to define the dipole locations. In this example, this could be done by replacing each of the triangles of the icosahedron triangles with four triangles, with new vertices on the surface of the sphere near the midpoints of the original edges. These smaller triangles can be used in any of various ways to help numerically evaluate the boundary integral. This finer triangular mesh is illustrated in FIG. 14. This finer mesh is used in the numerical implementation example that follows.
In my method, such integrals may be relatively insensitive to the method and crudeness of the approximation to the integral used, compared with prior art.
Description of the Method of Least Squared Response Error by Way of Illustration with a Simple Example
Introduction
The method of least squared response error is illustrated in this section. This method may be used with or without use of the method of least action, depending on details of the physical situation being simulated.
For example, we might have wire-like or sheet-like electrically conductive or electrically or magnetically polarizable objects—that is, with one or two dimensions that are negligible (both relative to the vertex spacing, and relative to the wavelength of radiation in the surrounding medium). In this case we can
a) define basis functions for real physical charge and current source that is either specified or induced in these objects by the net electromagnetic field,
b) write the total source of these objects as a linear combination of these basis functions with parameter coefficients, and then
c) constrain the coefficients by minimizing the integrated squared error between


    
    
        i) the induced source and
        ii) the value of the induced source according to the assumed rule giving this source as a function of the net field.
    
    


We can then write the equations for minimizing the action with variation of continuous potential parameters as in the previous section, except that the source parameters cp now consist of a set of quantities that are constrained as described in the previous paragraph. The equations for minimizing the action plus the equations for minimizing the integrated squared error in the rule for induced sources can be solved simultaneously for all unknown parameters cb and cp.
As an example, I now develop details of a possible model for minimizing the integrated squared error for electrically conductive wires.
In this example we consider an arbitrary connected network of thin wires, consisting of any desired topology of loops and free ends. We model this network as straight wire segments between vertices. We index the straight segments with i. FIG. 15 below shows a representative wire network. The wires are represented as thick lines for clarity; the model may be good, with useful numerical results, if both the length and the thickness of the wires is much less than the wavelength of radiation in the surrounding medium.
There are many possible ways to choose basis functions. One choice for electrically conductive thin objects that is a compromise between complexity and realism is to require that each basis function
a) is continuous,
b) has a charge density that is a linear function of position on each straight wire segment (or each flat triangular sheet segment),
c) is zero at the boundary points of the domain of the basis function, and
d) has a current that obeys charge conservation.
This is described in more detail for thin wires in the following sections.
For magnetically polarizable thin objects, we may choose each basis function so that the magnetization density is continuous, is a linear function of position on each straight wire segment or flat triangular sheet segment, is zero at the boundary points of the domain of the basis function, and is constructed of conserved electric current. This generally results in electric current distributions that are more complex; for example, for thin sheets, the result can be written as two distributions of current tangential to the surface, on each side of the sheet and separated by the very small sheet thickness, plus a distribution of current perpendicular to the sheet. Magnetic charge might be used to create simpler current distributions with the same resulting fields, but then the potential is more complex (6 degrees of freedom instead of 3).
Basis Charge Functions
We define one “half-basis charge function” associated with each vertex. Each of these functions equals one at the identified vertex, and changes linearly to zero at each adjacent vertex.
All half-basis charge functions for this simple example are represented in FIG. 16, below.
A basis charge function is made up of one half-basis charge function, normalized by division by the total length of associated segments, and the negative of an adjacent half-basis charge function, also normalized. One representative basis charge function is represented in FIG. 17, next, with positive charge represented as red and negative charge represented as green. This representative function is the result of combining the first two half-basis charge functions above.
For sheets, we may follow a similar procedure. The sheet-like material is represented by a set of triangles connected at their edges. Each basis function is associated with one pair of adjacent vertices or equivalently with one edge. One of these two vertices is associated with a positive half-basis charge function and one with a negative half-basis function. Each half-basis function has maximum magnitude at the associated vertex and ramps linearly within each connected triangle to zero at each nearest-neighbor vertex. The magnitudes of the total charge for each half-basis function is the same. Complete charge basis functions are constructed of one normalized half-basis charge function associated with one vertex, and the negative of one normalized half-basis charge function associated with a nearest neighbor vertex.
FIG. 18 below illustrates of an example of the domains of two half-basis functions for a thin dome-shaped sheet. The two vertices associated with the positive and negative half-basis functions making up one basis function are colored magenta and cyan. In the first figure, the magenta vertex is shown with red associated triangles, and in the second figure the cyan vertex is shown with green associated triangles. The domain of the full basis function constructed from these two half-basis functions is shown in the third figure as red, yellow, and green, with triangles that are common to the positive and negative half-basis domains colored yellow. The charge densities for each half-basis charge function vary linearly from the vertex to the perimeter of the associated domain, as in the wires above, but unlike figures for wires above, the colors are not correspondingly graded due to difficulty constructing graphics with graded colors.
Complete Charge and Current Basis Functions
We define the charge density to vary linearly on each straight segment as described in the previous section.
For example, for a straight wire segment of length 2 with an adjacent segment to its left with length I and adjacent segment to its right with length 3, the left half-basis, right half-basis, and total basis line charge densities are represented in the following plot, FIG. 19, by dashed red, dashed green, and solid gray lines, respectively (this example is chosen for numerical simplicity, and does not correspond exactly to any of the basis functions in the wire network of this example):
q1L=(2/3)x;
q1R=(2/3)(3−x)/2;
q2L=(2/5)(x−1)/2;
q2R=(2/5)(6−x)/3;
q1=q1L;
q2=q1R−q2L;
q3=−q2R;
We define the current Ii to be that current required by continuity (charge conservation):

0=∂tλi[x,t]+∂xIi[x,t]  (37)

or, using the usual complex representation of time dependence so that, for example, λi[x, t]=λi[x]Exp[−iωt], we have

0=−ωλi[x]+∂xIi[x,t]  (38)

The resulting current for the example line charge density plotted above is plotted in FIG. 20 below:

I1=(ω)Integrate[q1,{x,0,x1}]

1⁄3x12ω

I2=((I1/·{x1→1})+(ω)Integrate[q2,{x,1,x1}])//Simplify

− 1/15(9−18x1+4x12)ω

I3=((I2/·{x1→3})+(ω)Integrate[q3,{x,3,x1}])//Simplify

 1/15(−6+x1)2ω

The charge-current source ji is the pair of quantities, line charge density λi and vector current {right arrow over (I)}i=ûIi:

ji={λi,{right arrow over (I)}i}  (39)

where û is a unit vector tangential to the wire.

Alternatively, using geometric algebra and projecting onto an inertial reference frame identified by the time-like space-time frame vector γ0, we write the projected charge-current source γ0 ji as the sum of the scalar line charge density and the vector current,

γ0ji=λi−{right arrow over (I)}i  (40)

The electric field at any point in space can be easily expressed and calculated using an appropriate integral and Green function. For points inside any particular straight wire segment, we may use a model in which the charge element for a bit of wire with length dl is a spherical shell of charge with magnitude dqi=λi dl. Then, with the very good approximation that we can neglect higher order effects, the total field (electric and magnetic) at any point p on the axis of a wire segment with radius r0, due to that same wire segment, is obtained by integrating the green function times the source density along the wire segment, excluding segment points that are within distance r0 of the point p. This results in a closed expression that is convenient for calculation and can model real physical wires well, possibly with a slightly adjusted effective radius instead of the exact physical radius of the wire.
For example, in the simple case of ω=0, the greens function is




  
    
      
        
          g
          ⁡
          
            [
            
              R
              ⇀
            
            ]
          
        
        =
        
          
            1
            
              4
              ⁢
              π
              ⁢
              
                
              
              ⁢
              
                R
                2
              
            
          
          ⁢
          
            R
            ^
          
        
      
    
    
      
        (
        41
        )
      
    
  




We can calculate the field F=ε0 {right arrow over (E)}+III(1/c) {right arrow over (B)}/μ0 at distance x1 on a wire segment of length L and radius r0, due to a current density on the same wire segment given by {right arrow over (I)}[x]=iω(λ0x+λ1x2/2) ŵ where ŵ is a unit vector tangential to the wire, and a corresponding line charge density λ[x]=(1/(iΩ)) {right arrow over (∇)}·{right arrow over (I)}=λ0+λ1x. The required indefinite integral, written using geometric algebra (using standard notation as in Doran and Lasenby), is

Integrate[(ŵ/(4π(x−x1)2)((λ[0]+λ[1]x)+ω(λ[0]x+λ[1]x2/2)ŵ))1,2,x]

Simplifying the integrand in this special case and evaluating the required corresponding definite integral (from x=0 to x=x1−r0, and from x=x1+r0 to x=L), we have an electric-only field given by
(Integrate[1/(4π(x1−x)2)(λ[0]+λ[1]x), {x, 0, x1−r0},


    
    
        Assumptions→{Element[{x,x1, r0, L}, Reals], x>0, x<x1, r0>0, r0<x1}]−
        Integrate[1/(4π(x−x1)2)(λ[0]+λ[1]x), {x, x1+r0, L},
        Assumptions→{Element[{x, x1, r0, L}, Reals], x>0, x>x1, r0>0, r0<L−x1}])ŵ
    
    






  
    i
    ^
  
  ⁡
  
    (
    
      
        
          
            
              (
              
                
                  1
                  
                    r
                    ⁢
                    
                      
                    
                    ⁢
                    0
                  
                
                -
                
                  1
                  
                    x
                    ⁢
                    
                      
                    
                    ⁢
                    1
                  
                
              
              )
            
            ⁢
            
              λ
              ⁡
              
                [
                0
                ]
              
            
          
          +
          
            
              (
              
                
                  -
                  1
                
                +
                
                  
                    x
                    ⁢
                    
                      
                    
                    ⁢
                    1
                  
                  
                    r
                    ⁢
                    
                      
                    
                    ⁢
                    0
                  
                
                +
                
                  Log
                  ⁡
                  
                    [
                    
                      r
                      ⁢
                      
                        
                      
                      ⁢
                      0
                    
                    ]
                  
                
                -
                
                  Log
                  ⁡
                  
                    [
                    
                      x
                      ⁢
                      
                        
                      
                      ⁢
                      1
                    
                    ]
                  
                
              
              )
            
            ⁢
            
              λ
              ⁡
              
                [
                1
                ]
              
            
          
        
        
          4
          ⁢
          π
        
      
      -
      
        
          
            
              r0
              ⁡
              
                (
                
                  L
                  -
                  
                    x
                    ⁢
                    
                      
                    
                    ⁢
                    1
                  
                
                )
              
            
            ⁢
            
              Log
              ⁡
              
                [
                
                  
                    L
                    -
                    
                      x
                      ⁢
                      
                        
                      
                      ⁢
                      1
                    
                  
                  
                    r
                    ⁢
                    
                      
                    
                    ⁢
                    0
                  
                
                ]
              
            
            ⁢
            
              λ
              ⁡
              
                [
                1
                ]
              
            
          
          +
          
            
              (
              
                L
                -
                
                  r
                  ⁢
                  
                    
                  
                  ⁢
                  0
                
                -
                
                  x
                  ⁢
                  
                    
                  
                  ⁢
                  1
                
              
              )
            
            ⁢
            
              (
              
                
                  λ
                  ⁡
                  
                    [
                    0
                    ]
                  
                
                +
                
                  x
                  ⁢
                  
                    
                  
                  ⁢
                  1
                  ⁢
                  
                    λ
                    ⁡
                    
                      [
                      1
                      ]
                    
                  
                
              
              )
            
          
        
        
          4
          ⁢
          π
          ⁢
          
            
          
          ⁢
          
            r0
            ⁡
            
              (
              
                L
                -
                
                  x
                  ⁢
                  
                    
                  
                  ⁢
                  1
                
              
              )
            
          
        
      
    
    )
  




%//Simplify





  
    1
    
      4
      ⁢
      π
      ⁢
      
        
      
      ⁢
      x
      ⁢
      
        
      
      ⁢
      1
      ⁢
      
        (
        
          
            -
            L
          
          +
          
            x
            ⁢
            
              
            
            ⁢
            1
          
        
        )
      
    
  
  ⁢
  
    
  
  ⁢
  
    
      u
      ⇀
    
    (
    
      
    
    ⁢
    
      
        Lλ
        ⁡
        
          [
          0
          ]
        
      
      -
      
        2
        ⁢
        x
        ⁢
        
          
        
        ⁢
        1
        ⁢
        
          λ
          ⁡
          
            [
            0
            ]
          
        
      
      +
      
        Lx
        ⁢
        
          
        
        ⁢
        1
        ⁢
        
          λ
          ⁡
          
            [
            1
            ]
          
        
      
      -
      
        2
        ⁢
        x
        ⁢
        
          
        
        ⁢
        
          1
          2
        
        ⁢
        
          λ
          ⁡
          
            [
            1
            ]
          
        
      
      +
      
        x
        ⁢
        
          
        
        ⁢
        1
        ⁢
        
          (
          
            
              -
              L
            
            +
            
              x
              ⁢
              
                
              
              ⁢
              1
            
          
          )
        
        ⁢
        
          Log
          ⁡
          
            [
            
              r
              ⁢
              
                
              
              ⁢
              0
            
            ]
          
        
        ⁢
        
          λ
          ⁡
          
            [
            1
            ]
          
        
      
      +
      
        
          (
          
            L
            -
            
              x
              ⁢
              
                
              
              ⁢
              1
            
          
          )
        
        ⁢
        x
        ⁢
        
          
        
        ⁢
        1
        ⁢
        
          Log
          ⁡
          
            [
            
              
                L
                -
                
                  x
                  ⁢
                  
                    
                  
                  ⁢
                  1
                
              
              
                r
                ⁢
                
                  
                
                ⁢
                0
              
            
            ]
          
        
        ⁢
        
          λ
          ⁡
          
            [
            1
            ]
          
        
      
      +
      
        Lx
        ⁢
        
          
        
        ⁢
        1
        ⁢
        
          Log
          ⁡
          
            [
            
              x
              ⁢
              
                
              
              ⁢
              1
            
            ]
          
        
        ⁢
        
          λ
          ⁡
          
            [
            1
            ]
          
        
      
      -
      
        x
        ⁢
        
          
        
        ⁢
        
          1
          2
        
        ⁢
        
          Log
          ⁡
          
            [
            
              x
              ⁢
              
                
              
              ⁢
              1
            
            ]
          
        
        ⁢
        
          λ
          ⁡
          
            [
            1
            ]
          
        
      
    
    )
  




This last expression gives the electric field at a point on the axis of the wire at a distance x1 from the starting end, due to a charge density varying linearly along the same wire, for frequency equal to zero.
The general case, for arbitrary frequency and at an arbitrary position inside or outside the wire, is somewhat more complex to write but again results in a closed symbolic expression that is convenient for making fast numerical calculations. Field values calculated in this way as functions of charge and current source are used as the field value in the response equation for the material.
For electrically conductive sheets, one possible type of charge-current density functions are constructed to have
a) zero charge and current at the outer or perimeter points of the domain of the basis function,
b) conserved current at all points, and
c) finite total curl when integrated along all interior edges.
More than one function might meet these criteria, but at least one simple such function is easy to write down and gives good numerical results (details are not copied here in the interest of simplicity and brevity).
For sheets we can evaluate any field or potential inside the sheet material as was done for wires, by modeling charge elements as spherical shells with diameter equal to the sheet thickness, so that there is no contribution from charge or current of shells whose centers are within one shell radius of the field evaluation point.
Modified Basis Function Set
The basis set described above has problems for frequencies equal to or near zero, because of the factor of ω in the current: At ω=0, nonzero current cannot be represented by this set of basis functions, and also the set is no longer linearly independent. This makes a good solution impossible. We create a modified basis function set that does not have this problem as follows.
To explain the method, we first plot the domain (parts of the wire network where the function is nonzero) of each unmodified basis function. We plot these domains in yellow in FIG. 21 below; each yellow region corresponds to the combined red and green (positive and negative) regions of one charge basis function. For example, the first domain plotted in FIG. 21 represents the charge basis function of FIG. 17.
Now for every independent loop in the wire network—there is only one loop in this example—we choose one charge-current basis function with both vertices on the loop, and replace it with a sum of all basis functions (possibly with sign changes) along the closed loop, divided by iω. We choose the signs so that we get a current-only basis function, simply equal to a uniform current (either direction may be chosen) with zero charge density.
In this example, I have chosen the third charge-current basis function in the figure above, and plot the domain of this uniform current function with blue. FIG. 22 below represents this set of modified basis functions.
This method has been explained and illustrated with a simple example, but can be automated for arbitrarily complex wire or surface or sheet networks using ideas from combinatorics.
Minimization of the Integrated Squared Error
Now for each charge-current basis function ji, we have an associated electromagnetic field at every point in space. For the basis functions described here, these field expressions can be calculated exactly symbolically with any one of several acceptable models. One especially convenient and easily calculated model is to treat each charge element dqi=λi dl, where λi is the line charge density and dl is the length of a very short piece of a straight wire segment, as a spherical shell of charge dqi with radius equal to the wire radius and constrained to move with its center on the wire line segment, and that responds to electric fields as if all of its charge were a point charge at its center. The response of such a charge element and the field that it creates can be easily written as relatively simple expressions, using the approximation that the sphere's radius is very small compared with the wavelength of radiation in the surrounding medium. But for clarity and simplicity we do not write out the associated exact expressions here, but rather will just write the electric field function symbolically as {right arrow over (E)}[ji]. For clearer notation, we often omit notation for dependence on position {right arrow over (r)}, or when needed may include it using standard Mathematica notation as in {right arrow over (E)}[ji][{right arrow over (r)}].
We use the notation and ideas of the method of least action. Constraints may relate electric current to electric field, electric polarization to electric field, or magnetic polarization to magnetic field. Also, we may have specified current Ispec on any part or piece of a wire network. In this example, we are illustrating this method with constraints between electric current and electric field.
The total electric field is

{right arrow over (E)}=ci{right arrow over (e)}i  (42)

where the sum is over all basis functions, both those for which there is and those for which there is not a physical source.

Ohm's “law” is a phenomenological statement that the induced current {right arrow over (I)}indu in a conductor is linearly proportional to the electric field. The total current {right arrow over (I)}=ci{right arrow over (I)}i is always equal to the sum over basis functions with coefficients ci. It equals the current part of the total charge-current source, J=ciji. It may also always be written as the sum {right arrow over (I)}={right arrow over (I)}indu+{right arrow over (I)}spec of the induced current plus specified current. The specified current is generally not expanded in terms of the current basis functions, and we do not expand the specified current in this example. For example, we might define {right arrow over (I)}spec as a constant tangent vector on one straight wire segment, and zero everywhere else. For a wire segment with unit tangent vector û, and recalling that we are writing ji={λi, {right arrow over (I)}i}, we write Ohm's law as

R[{right arrow over (r)}]{right arrow over (I)}indu[{right arrow over (r)}]=ûû·{right arrow over (E)}[{right arrow over (r)}]  (43)

or equivalently

R[{right arrow over (r)}](cp{right arrow over (I)}p[{right arrow over (r)}]−{right arrow over (I)}spec[{right arrow over (r)}])=ûû·(ci{right arrow over (e)}i[{right arrow over (r)}])  (44)

where {right arrow over (r)} is any point on the wire network, R[{right arrow over (r)}] is the resistance per unit length of the wire, the sum over p is over only physical source and not boundary basis functions, the sum over i is over all basis functions, and {right arrow over (I)}spec[{right arrow over (r)}] is an optional specified current. {right arrow over (I)}spec[{right arrow over (r)}] may be used to model specified or given or exogenous current sources (i.e., with values given as fixed input data to the simulation, representing for example batteries), or specified or given or exogenous voltage sources Vspec defined, for example, between two vertices of one wire segment, to be equal to the value of {right arrow over (I)}spec on the wire segment between the vertices of the segment divided by the integral of R[{right arrow over (r)}] along the segment.

We define the error to be the difference between the two sides of the last equation, and define K, the integral of the squared error, as




  
    
      
        K
        =
        
          ∫
          
            
              
                
                
                  
                    
                      R
                      ⁡
                      
                        [
                        
                          r
                          ⇀
                        
                        ]
                      
                    
                    ⁢
                    
                      (
                      
                        
                          
                            
                              
                                I
                                ⇀
                              
                              p
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                          ⁢
                          
                            c
                            p
                          
                        
                        -
                        
                          
                            
                              I
                              ⇀
                            
                            spec
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                      )
                    
                  
                  -
                  
                    
                      u
                      ^
                    
                    ⁢
                    
                      
                        u
                        ^
                      
                      ·
                      
                        
                          
                            e
                            ⇀
                          
                          i
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                    ⁢
                    
                      c
                      i
                    
                  
                
                
              
              2
            
            ⁢
            
              d
              1
            
          
        
      
    
    
      
        (
        45
        )
      
    
  




where the integral is along all wires of the problem, and the squared magnitude means the inner product between the argument, a vector, and the complex conjugate of the argument.

We require that the coefficients cp that are not specified should be chosen so that this integrated squared error is at a minimum:




  
    
      
        
          
            
              0
              =
              
                
                  
                    ∂
                    
                      c
                      p
                    
                  
                  ⁢
                  
                    
                  
                  ⁢
                  K
                
                =
                
                  ∫
                  
                    
                      
                        
                          (
                          
                            
                              R
                              ⁢
                              
                                
                                  I
                                  ⇀
                                
                                p
                              
                            
                            -
                            
                              
                                u
                                ^
                              
                              ⁢
                              
                                
                                  u
                                  ^
                                
                                ·
                                
                                  
                                    e
                                    ⇀
                                  
                                  p
                                
                              
                            
                          
                          )
                        
                        *
                      
                      ·
                      
                        (
                        
                          
                            R
                            ⁡
                            
                              (
                              
                                
                                  
                                    
                                      I
                                      ⇀
                                    
                                    
                                      p
                                      ′
                                    
                                  
                                  ⁢
                                  
                                    c
                                    
                                      p
                                      ′
                                    
                                  
                                
                                -
                                
                                  
                                    I
                                    ⇀
                                  
                                  spec
                                
                              
                              )
                            
                          
                          -
                          
                            
                              u
                              ^
                            
                            ⁢
                            
                              
                                u
                                ^
                              
                              ·
                              
                                
                                  e
                                  ⇀
                                
                                k
                              
                            
                            ⁢
                            
                              c
                              k
                            
                          
                        
                        )
                      
                    
                    ⁢
                    
                      d
                      l
                    
                  
                
              
            
          
        
        
          
            
              =
              
                ∫
                
                  
                    
                      
                        (
                        
                          
                            R
                            ⁢
                            
                              
                                I
                                ⇀
                              
                              p
                            
                          
                          -
                          
                            
                              u
                              ^
                            
                            ⁢
                            
                              
                                u
                                ^
                              
                              ·
                              
                                
                                  e
                                  ⇀
                                
                                p
                              
                            
                          
                        
                        )
                      
                      *
                    
                    ·
                    
                      (
                      
                        
                          R
                          ⁡
                          
                            (
                            
                              
                                
                                  
                                    I
                                    
                                      p
                                      ′
                                    
                                  
                                  ⇀
                                
                                ⁢
                                
                                  c
                                  
                                    p
                                    ′
                                  
                                
                              
                              -
                              
                                
                                  I
                                  ⇀
                                
                                spec
                              
                            
                            )
                          
                        
                        -
                        
                          
                            u
                            ^
                          
                          ⁢
                          
                            
                              u
                              ^
                            
                            ·
                            
                              
                                e
                                ⇀
                              
                              
                                p
                                ′
                              
                            
                          
                          ⁢
                          
                            c
                            
                              p
                              ′
                            
                          
                        
                        -
                        
                          
                            u
                            ^
                          
                          ⁢
                          
                            
                              u
                              ^
                            
                            ·
                            
                              
                                e
                                ⇀
                              
                              b
                            
                          
                          ⁢
                          
                            c
                            b
                          
                        
                      
                      )
                    
                  
                  ⁢
                  
                    d
                    l
                  
                
              
            
          
        
      
    
    
      
        (
        46
        )
      
    
  




Rearranging slightly, this is




  
    
      
        0
        =
        
          ∫
          
            
              
                
                  (
                  
                    
                      R
                      ⁢
                      
                        
                          I
                          ⇀
                        
                        p
                      
                    
                    -
                    
                      
                        u
                        ^
                      
                      ⁢
                      
                        
                          u
                          ^
                        
                        ·
                        
                          
                            e
                            ⇀
                          
                          p
                        
                      
                    
                  
                  )
                
                *
              
              ·
              
                (
                
                  
                    
                      (
                      
                        
                          R
                          ⁢
                          
                            
                              I
                              ⇀
                            
                            
                              p
                              ′
                            
                          
                        
                        -
                        
                          
                            u
                            ^
                          
                          ⁢
                          
                            
                              u
                              ^
                            
                            ·
                            
                              
                                e
                                ⇀
                              
                              
                                p
                                ′
                              
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      c
                      
                        p
                        ′
                      
                    
                  
                  -
                  
                    R
                    ⁢
                    
                      
                        I
                        ⇀
                      
                      spec
                    
                  
                  -
                  
                    
                      u
                      ^
                    
                    ⁢
                    
                      
                        u
                        ^
                      
                      ·
                      
                        
                          e
                          ⇀
                        
                        b
                      
                      ·
                      
                        c
                        b
                      
                    
                  
                
                )
              
            
            ⁢
            
              d
              l
            
          
        
      
    
    
      
        (
        47
        )
      
    
  




Factoring out the parameters cp′ and cb and {right arrow over (I)}spec, we may write this as




  
    
      
        
          
            ∫
            
              
                
                  
                    (
                    
                      
                        R
                        ⁢
                        
                          
                            I
                            ⇀
                          
                          p
                        
                      
                      -
                      
                        
                          u
                          ^
                        
                        ⁢
                        
                          
                            u
                            ^
                          
                          ·
                          
                            
                              e
                              ⇀
                            
                            p
                          
                        
                      
                    
                    )
                  
                  *
                
                ·
                
                  (
                  
                    
                      R
                      ⁢
                      
                        
                          I
                          ⇀
                        
                        
                          p
                          ′
                        
                      
                    
                    -
                    
                      
                        u
                        ^
                      
                      ⁢
                      
                        
                          u
                          ^
                        
                        ·
                        
                          
                            e
                            ⇀
                          
                          
                            p
                            ′
                          
                        
                      
                    
                  
                  )
                
              
              ⁢
              
                
                  d
                  l
                
                ⁢
                
                  
                
                ⁢
                \
                ⁢
                
                  c
                  
                    p
                    ′
                  
                
              
            
          
          -
          
            
          
          ⁢
          
            ∫
            
              
                
                  
                    (
                    
                      
                        R
                        ⁢
                        
                          
                            I
                            ⇀
                          
                          p
                        
                      
                      -
                      
                        
                          u
                          ^
                        
                        ⁢
                        
                          
                            u
                            ^
                          
                          ·
                          
                            
                              e
                              ⇀
                            
                            p
                          
                        
                      
                    
                    )
                  
                  *
                
                ·
                
                  
                    (
                    
                      
                        u
                        ^
                      
                      ⁢
                      
                        
                          u
                          ^
                        
                        ·
                        
                          
                            e
                            ⇀
                          
                          p
                        
                      
                    
                    )
                  
                  *
                
                ·
                
                  
                    (
                    
                      
                        u
                        ^
                      
                      ⁢
                      
                        
                          u
                          ^
                        
                        ·
                        
                          
                            e
                            ⇀
                          
                          p
                        
                      
                    
                    )
                  
                  *
                
                ·
                
                  (
                  
                    
                      u
                      ^
                    
                    ⁢
                    
                      
                        u
                        ^
                      
                      ·
                      
                        
                          e
                          ⇀
                        
                        b
                      
                    
                  
                  )
                
              
              ⁢
              
                d
                l
              
              ⁢
              
                
              
              ⁢
              
                c
                b
              
            
          
          -
          
            ∫
            
              
                
                  
                    (
                    
                      
                        R
                        ⁢
                        
                          
                            I
                            ⇀
                          
                          p
                        
                      
                      -
                      
                        
                          u
                          ^
                        
                        ⁢
                        
                          
                            u
                            ^
                          
                          ·
                          
                            
                              e
                              ⇀
                            
                            p
                          
                        
                      
                    
                    )
                  
                  *
                
                ·
                
                  (
                  
                    R
                    ⁢
                    
                      
                        I
                        ⇀
                      
                      spec
                    
                  
                  )
                
              
              ⁢
              
                d
                l
              
            
          
        
        =
        0
      
    
    
      
        (
        48
        )
      
    
  




Writing Mp,p′, Np,p′, and Qp for the integrals, we may alternatively write this as

Mp,p′cp′−Np,bcb−Qp=0  (49)

This is a set of equation indexed by p, with p ranging over values for which cp is not specified. p′ in the sum ranges over all physical source index values, both unknowns and specified; b ranges over all indices for boundary function parameters. If there are no bounded regions of uniform responsivity, there are no unknowns cb and these equations can be solved for the unknowns cp′ in terms of the known cp′ and {right arrow over (I)}spec. If there are bounded regions of uniform responsivity, the associated equations (31) from the method of leas action and the equations (47) above are solved simultaneously for the unknown cp′ and Cb.
Numerical values of the integrals can be approximated by evaluating the integrand at one or more discrete points on (i.e., inside) the thin wire or sheet, weighting by associated areas, and summing.
These equations, or similar ones corresponding to sheets instead of wires, or electrically or magnetically polarizable, or some combination, can be used with the equations resulting from extremization of the electromagnetic action to solve problems that involve both thin objects like wires or sheets, and thick or bulk regions that are linearly responsive (that is, electrically or magnetically polarizable, with real or complex polarizabilities). In these sheet equations, ûû · is everywhere replaced by a ûû^ and û then represents a unit vector normal to the sheet.
In the simple case of negligible resistance so that we write R=0, and no bounded regions or parameters cb, and no specified current {right arrow over (I)}spec, this is




  
    
      
        
          ∫
          
            
              
                
                  (
                  
                    
                      -
                      
                        u
                        ^
                      
                    
                    ⁢
                    
                      
                        u
                        ^
                      
                      ·
                      
                        
                          e
                          ⇀
                        
                        p
                      
                    
                  
                  )
                
                *
              
              ·
              
                (
                
                  
                    -
                    
                      u
                      ^
                    
                  
                  ⁢
                  
                    
                      u
                      ^
                    
                    ·
                    
                      
                        e
                        ⇀
                      
                      
                        p
                        ′
                      
                    
                  
                
                )
              
            
            ⁢
            
              d
              l
            
            ⁢
            
              
            
            ⁢
            
              c
              
                p
                ′
              
            
          
        
        =
        0
      
    
    
      
        (
        50
        )
      
    
  




This can be solve for unknown physical source parameters cp′ in terms of the known physical source parameters.
In this simple case, prior art invariably follows the precedence of using the “reaction concept” to use the current function {right arrow over (I)}p as a “weight” or “testing” function, resulting in




  
    
      
        
          ∫
          
            
              
                
                  (
                  
                    
                      I
                      ⇀
                    
                    p
                  
                  )
                
                *
              
              ·
              
                (
                
                  
                    -
                    
                      u
                      ^
                    
                  
                  ⁢
                  
                    
                      u
                      ^
                    
                    ·
                    
                      
                        e
                        ⇀
                      
                      
                        p
                        ′
                      
                    
                  
                
                )
              
            
            ⁢
            
              d
              l
            
            ⁢
            
              
            
            ⁢
            
              c
              
                p
                ′
              
            
          
        
        =
        0
      
    
    
      
        (
        51
        )
      
    
  




These integrals are similar, but the differing first factor is significantly different and results in significantly different results: in particular, the factor ûû·{right arrow over (e)}p is nonzero at all points in space and is numerically significant at most points near the source, where the source equals zero, while {right arrow over (I)}p is nonzero only over the typically small domain of the particular current basis function.
The motivation for the prior method appears again to be blind adherence to Harrington's statements that an “acceptable” choice of “weight or test” functions are the current basis functions. While this may give acceptable and even good results, it does not minimize the integrated squared error and it gives measurably inferior results.
Other Examples of Applications and Variations of the Method
There are many other and particular cases to which these methods can be applied.
For example, we can have any number and topology of polarizable or conductive 3D bulk regions, with any number and topology of wires and sheets.
Most if not all methods of improvement used in prior art, such as fast multipole methods, can be used with the methods taught here.
A Flow Chart
Below is a flow chart summarizing a typical application of the method of least squares and the method of response error minimization in electromagnetic computer simulation problems. These methods may be used together or alone, with obvious modification of the steps below.







Numerical Implementation Example of the Method of Least Action
Introduction
This section contains a complete numerical implementation of the example described in “Description by way of illustration with a simple example”. This example illustrates the method of least squares; the method of error minimization is not illustrated in this example in the interest of brevity, but this example could be easily modified by one skilled in the relevant arts to also implement the method of error minimization, once taught as in other sections of this provisional application.
All units are SI, except that we sometimes use a unit of time such that c=1. For example, we have chosen frequency=0.1: in SI units, this is 0.1 (3 10^m/sec)/(1 m)=3 10^1/sec. For typical practical applications, we would use a common system of units, such as SI, for all quantities.
All necessary computer code is given so that a reader can reproduce or modify this example. The code in the following sections can be typed directly into Mathematica 7, with the only changes being that the expression PointElectricDipoleField is replaced by the expression SlowPointElectricDipoleField as given explicitly below, and also the expressions PointElectricDipolePotential, PointMagneticDipoleField and PointMagneticDipolePotential (defined in the external file PointSources) are also replaced by corresponding “Slow” expressions using the symbolic expressions given in this file to define these, as was done for SlowPointElectricDipoleField.
Geometry
This example has two bulk regions: the space or volume that is the interior of a sphere, and the space or volume that is exterior to the sphere. We will use the vertices of an icosahedron to help define locations of virtual point dipole sources that are used to define basis potentials. The icosahedron has no significance other than being a convenient way to specify these locations.
We choose the virtual dipole locations to be at α and 1/α times the radius of curvature for some number α, so that in the limit of zero frequency, the associated potentials match exactly at the boundary of the sphere of this example; this is not necessary but gives good results. A possibly useful general expression for α is α=1+2 s/r, where s is the average spacing between vertices on the boundary and r is the radius of curvature in the vicinity of the vertex for which α is being calculated. We choose α=3 in this example.
In the plot below, FIG. 23, each icosahedron vertex is green, and for each vertex there is one red point inside the sphere that gives the location of a virtual point dipole that will be used to calculate basis fields outside the sphere, and one blue point outside the sphere that gives the location of a virtual point dipole that will be used to calculate basis fields inside the sphere.
We also will need to calculate various integrals over the boundary between the two regions—over the sphere, that is. We do this numerically by choosing a number of points on the boundary, each one with an associated boundary area, and evaluate the integrand at each point, multiply each evaluation by the associated area, and sum. We might use just the vertices used to help define the virtual dipole locations, but we will get better numerical approximations to integrals over the boundary with more points. So for these integration points we will use the vertices of a “geodesated” icosahedron (for an irregular boundary more typical of engineering applications, we might use any of many possible algorithms that generate triangular meshes on a boundary).
{42, 3}
In the following graphic, FIG. 24, the red, green, and blue dots are the same as in the previous graphic, and the yellow dots are the additional points on the boundary; both green and yellow points will be used to numerically approximate boundary integrals.
Lastly, we will need a set of orthonormal frame vectors for each virtual dipole point, such that one of the vectors of the frame is perpendicular to the boundary at the associated boundary point (the other two can be in any direction, as long as they are orthonormal). These will be used to define dipole axes and to do calculations with the dipoles. In the following plot, FIG. 25, these frame vectors are drawn next to the virtual dipoles that are located at larger radii; the corresponding points at smaller radii use the same frame vectors.
Parameterized Continuous Potential
I have used a separate program module to calculate values of fields due to the usual expressions for electric and magnetic dipole sources (such as given by Jackson, Grffiths, and many other authors). This program is called “PointSources”, and is loaded in the next line.
Many expressions can be calculated using this program module; a list of the names of all such expressions is generated by the next line.
For this example program, I need only a few of these names. The quantities calculated by these expressions is given below so that the results of this numerical example can be easily reproduced by typing in these expressions by hand.
All of the expressions from the “PointSources” module calculate the electromagnetic potentials and fields A and F in vacuum due to specified dipole sources.
?PointElectricDipoleField
PointElectricDipoleField[r,d,k] is the field G=D+III H


    
    
        at displacement r from a dipole with moment d, in a medium with wavenumber k.
    
    


For symbolic arguments, this gives the usual expression for the field of a point electric dipole using the standard notation of geometric algebra (see, for example, “Geometric Algebra for Physicists” by Doran and Lasenby, Cambridge University Press, 2003):



  
    
      
    
    ⁢
    
      PointElectricDipoleField
      ⁢
      
        
      
      [
      
        
          r
          ⇀
        
        ,
        
          d
          ⇀
        
        ,
        k
      
      ]
    
  




  
    
      1
      
        4
        ⁢
        π
        ⁢
        
          
        
        ⁢
        
          
            (
            
              
                r
                ⇀
              
              ·
              
                r
                ⇀
              
            
            )
          
          
            5
            /
            2
          
        
      
    
    ⁢
    
      
    
    ⁢
    
       
      
        
          e
          
            i
            ⁢
            
              
            
            ⁢
            k
            ⁢
            
              
                
                  r
                  ⇀
                
                ·
                
                  r
                  ⇀
                
              
            
          
        
        (
        
          i
          ⁢
          
            
          
          ⁢
          III
          ⁢
          
            
          
          ⁢
          k
          ⁢
          
            
              r
              ⇀
            
            ·
            
              r
              ⇀
            
          
          ⁢
          
            r
            ⇀
          
          ×
          
            

          
          ⁢
          
            
          
          ⁢
          
             
            
              
                d
                ⇀
              
              +
              
                III
                ⁢
                
                  
                
                ⁢
                
                  
                    
                      k
                      2
                    
                    ⁡
                    
                      (
                      
                        
                          r
                          ⇀
                        
                        ·
                        
                          r
                          ⇀
                        
                      
                      )
                    
                  
                  
                    3
                    /
                    2
                  
                
                ⁢
                
                  r
                  ⇀
                
                ×
                
                  d
                  ⇀
                
              
              -
              
                
                  
                    r
                    ⇀
                  
                  ·
                  
                    r
                    ⇀
                  
                
                ⁢
                
                  d
                  ⇀
                
              
              +
              
                i
                ⁢
                
                  
                
                ⁢
                
                  
                    k
                    ⁡
                    
                      (
                      
                        
                          r
                          ⇀
                        
                        ·
                        
                          r
                          ⇀
                        
                      
                      )
                    
                  
                  
                    3
                    /
                    2
                  
                
                ⁢
                
                  d
                  ⇀
                
              
              +
              
                k
                ⁢
                
                  
                
                ⁢
                
                  Abs
                  ⁡
                  
                    [
                    k
                    ]
                  
                
                ⁢
                
                  
                    (
                    
                      
                        r
                        ⇀
                      
                      ·
                      
                        r
                        ⇀
                      
                    
                    )
                  
                  2
                
                ⁢
                
                  d
                  ⇀
                
              
              +
              
                3
                ⁢
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    r
                    ⇀
                  
                
                ⁢
                
                  r
                  ⇀
                
              
              -
              
                3
                ⁢
                
                  
                
                ⁢
                i
                ⁢
                
                  
                
                ⁢
                k
                ⁢
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    r
                    ⇀
                  
                
                ⁢
                
                  
                    
                      r
                      ⇀
                    
                    ·
                    
                      r
                      ⇀
                    
                  
                
                ⁢
                
                  r
                  ⇀
                
              
              -
              
                
                  k
                  2
                
                ⁢
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    r
                    ⇀
                  
                
                ⁢
                
                  
                    r
                    ⇀
                  
                  ·
                  
                    r
                    ⇀
                  
                
                ⁢
                
                  r
                  ⇀
                
              
            
            )
          
        
      
    
  



For numeric arguments, this gives the three Cartesian components of the electric field (the terms above that do not have a factor of the unit trivector, represented by III) followed by the three Cartesian components of the magnetic field (the terms that do have a factor of III):
The expression above is compiled and relatively fast, but if the PointSources module is not available, one can look at the symbolic expression above and use it to define the equivalent, though slower, expression:




  
    SlowPointElectricDipoleField
    ⁢
    
      
    
    [
    
      r_
      ,
      d_
      ,
      k_
    
    ]
  
  :=
  
    {
    
      
        
          1
          
            4
            ⁢
            
              
            
            ⁢
            π
            ⁢
            
              
            
            ⁢
            
              
                (
                
                  r
                  ·
                  r
                
                )
              
              
                5
                /
                2
              
            
          
        
        ⁢
        
          
            e
            
              i
              ⁢
              
                
              
              ⁢
              k
              ⁢
              
                
                  r
                  ·
                  r
                
              
            
          
          ⁡
          
            (
            
              
                
                  -
                  r
                
                ·
                rd
              
              +
              
                i
                ⁢
                
                  
                
                ⁢
                
                  
                    k
                    ⁡
                    
                      (
                      
                        r
                        ·
                        r
                      
                      )
                    
                  
                  
                    3
                    /
                    2
                  
                
                ⁢
                d
              
              +
              
                k
                ⁢
                
                  
                
                ⁢
                
                  Abs
                  ⁡
                  
                    [
                    k
                    ]
                  
                
                ⁢
                
                  
                    (
                    
                      r
                      ·
                      r
                    
                    )
                  
                  2
                
                ⁢
                d
              
              +
              
                3
                ⁢
                
                  d
                  ·
                  r
                
                ⁢
                
                  
                
                ⁢
                r
              
              -
              
                3
                ⁢
                
                  
                
                ⁢
                i
                ⁢
                
                  
                
                ⁢
                
                  kd
                  ·
                  r
                
                ⁢
                
                  
                    r
                    ·
                    r
                  
                
                ⁢
                r
              
              -
              
                
                  k
                  2
                
                ⁢
                
                  d
                  ·
                  rr
                  ·
                  rr
                
              
            
            )
          
        
      
      ,
      
        
          
            e
            
              i
              ⁢
              
                
              
              ⁢
              k
              ⁢
              
                
                  r
                  ·
                  r
                
              
            
          
          ⁡
          
            (
            
              
                i
                ⁢
                
                  
                
                ⁢
                
                  kr
                  ·
                  rr
                
                ×
                d
              
              +
              
                
                  
                    
                      k
                      2
                    
                    ⁡
                    
                      (
                      
                        r
                        ·
                        r
                      
                      )
                    
                  
                  
                    3
                    /
                    2
                  
                
                ⁢
                r
                ×
                d
              
            
            )
          
        
        
          4
          ⁢
          
            
          
          ⁢
          
            
              π
              ⁡
              
                (
                
                  r
                  ·
                  r
                
                )
              
            
            
              5
              /
              2
            
          
        
      
    
    }
  




Verify that it gives the same output as PointElectricDipoleField:
Similarly, functional but slower expressions can be defined to replace all other expressions from “PointSources” that are used in this example.
The expression PointElectricDipolePotential gives the expression in geometric algebra for the potential A=φ+{right arrow over (A)}:
?PointElectricDipolePotential
PointElectricDipolePotential[r,d,k] is the electromagnetic


    
    
        potential at displacement r from dipole d in a medium with wavenumber k.
    
    






  
    PointElectricDipolePotential
    ⁢
    
      
    
    [
    
      
        r
        ⇀
      
      ,
      
        d
        ⇀
      
      ,
      k
    
    ]
  
  ⁢
  
    
      
        
          e
          
            i
            ⁢
            
              
            
            ⁢
            k
            ⁢
            
              
                
                  r
                  ⇀
                
                ·
                
                  r
                  ⇀
                
              
            
          
        
        ⁡
        
          (
          
            
              
                d
                ⇀
              
              ·
              
                r
                ⇀
              
            
            -
            
              i
              ⁢
              
                
              
              ⁢
              k
              ⁢
              
                
                  d
                  ⇀
                
                ·
                
                  r
                  ⇀
                
              
              ⁢
              
                
                  
                    
                      r
                      ⇀
                    
                    ·
                    
                      r
                      ⇀
                    
                  
                  ⁢
                  
                    
                  
                
              
            
            +
            
              i
              ⁢
              
                
              
              ⁢
              k
              ⁢
              
                
                  r
                  ⇀
                
                ·
                
                  r
                  ⇀
                
              
              ⁢
              
                d
                ⇀
              
            
          
          )
        
      
      
        4
        ⁢
        π
        ⁢
        
          
        
        ⁢
        
          
            (
            
              
                r
                ⇀
              
              ·
              
                r
                ⇀
              
            
            )
          
          
            3
            /
            2
          
        
      
    
    .
  




For numeric arguments, this gives {φ, {Ax, Ay, Az}}:
We also need the field of a point magnetic dipole:
?PointMagneticDipoleField
PointMagneticDipoleField[r,m,l] is the field at displacement


    
    
        r from a dipole with magnetic moment m in a medium with wavenumber k.
    
    






  
    PointMagneticDipoleField
    ⁢
    
      
    
    [
    
      
        r
        ⇀
      
      ,
      
        d
        ⇀
      
      ,
      k
    
    ]
  
  -
  
    
      1
      
        4
        ⁢
        
          
            π
            ⁡
            
              (
              
                
                  r
                  ⇀
                
                ·
                
                  r
                  ⇀
                
              
              )
            
          
          
            5
            /
            2
          
        
      
    
    ⁢
    
      
        e
        
          i
          ⁢
          
            
          
          ⁢
          k
          ⁢
          
            
              
                r
                ⇀
              
              ·
              
                r
                ⇀
              
            
          
        
      
      (
      
        
          r
          ⇀
        
        ·
        
          
            r
            ⇀
          
          ⁡
          
            (
            
              
                i
                ⁢
                
                  
                
                ⁢
                k
                ⁢
                
                  r
                  ⇀
                
                ×
                
                   
                  
                    

                  
                  ⁢
                  
                    
                  
                  ⁢
                  
                    
                      d
                      ⇀
                    
                    +
                    
                      III
                      ⁢
                      
                        
                      
                      ⁢
                      
                        d
                        ⇀
                      
                    
                    -
                    
                      III
                      ⁢
                      
                        
                      
                      ⁢
                      k
                      ⁢
                      
                        
                      
                      ⁢
                      
                        Abs
                        ⁡
                        
                          [
                          k
                          ]
                        
                      
                      ⁢
                      
                        
                          r
                          ⇀
                        
                        ·
                        
                          r
                          ⇀
                        
                      
                      ⁢
                      
                        d
                        ⇀
                      
                    
                    +
                    
                      k
                      ⁢
                      
                        
                          
                            r
                            ⇀
                          
                          ·
                          
                            r
                            ⇀
                          
                        
                      
                      ⁢
                      
                        (
                        
                          
                            k
                            ⁢
                            
                              
                            
                            ⁢
                            
                              r
                              ⇀
                            
                            ×
                            
                              d
                              ⇀
                            
                          
                          -
                          
                            i
                            ⁢
                            
                              
                            
                            ⁢
                            III
                            ⁢
                            
                              
                            
                            ⁢
                            
                              d
                              ⇀
                            
                          
                        
                        )
                      
                    
                  
                  )
                
              
              +
              
                III
                ⁢
                
                  
                
                ⁢
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    
                      r
                      ⇀
                    
                    ⁡
                    
                      (
                      
                        
                          -
                          3
                        
                        +
                        
                          3
                          ⁢
                          i
                          ⁢
                          
                            
                          
                          ⁢
                          k
                          ⁢
                          
                            
                              
                                r
                                ⇀
                              
                              ·
                              
                                r
                                ⇀
                              
                            
                          
                        
                        +
                        
                          
                            k
                            2
                          
                          ⁢
                          
                            
                              r
                              ⇀
                            
                            ·
                            
                              r
                              ⇀
                            
                          
                        
                      
                      )
                    
                  
                
                ⁢
                
                  r
                  ⇀
                
              
            
            )
          
        
      
    
  




and the potential of a point magnetic dipole:

?PointMagneticDipolePotential

PointMagneticDipolePotential[r,m,k] is the electromagnetic

    
    
        potential at displacement r from dipole m in a medium with wavenumber k.
    
    






  
    PointMagneticDipolePotential
    ⁢
    
      
    
    [
    
      
        r
        ⇀
      
      ,
      
        d
        ⇀
      
      ,
      k
    
    ]
  
  ⁢
  
    
      
        
          ie
          
            i
            ⁢
            
              
            
            ⁢
            k
            ⁢
            
              
                
                  r
                  ⇀
                
                ·
                
                  r
                  ⇀
                
              
            
          
        
        ⁡
        
          (
          
            i
            +
            
              k
              ⁢
              
                
                  
                    r
                    ⇀
                  
                  ·
                  
                    r
                    ⇀
                  
                
              
            
          
          )
        
      
      ⁢
      
        d
        ⇀
      
      ×
      
        r
        ⇀
      
    
    
      4
      ⁢
      
        
          π
          ⁡
          
            (
            
              
                r
                ⇀
              
              ·
              
                r
                ⇀
              
            
            )
          
        
        
          3
          /
          2
        
      
    
  
  ⁢
  
    PointMagneticDipolePotential
    ⁢
    
      
    
    [
    
      
        {
        
          1
          ,
          2
          ,
          3
        
        }
      
      ,
      
        {
        
          4
          ,
          5
          ,
          6
        
        }
      
      ,
      .1
    
    ]
  




The expressions above calculate the potential A and field F in vacuum (all notation follows standard geometric algebraic notation where applicable, as given in Doran and Lasenby; see the equation summary for notation unique to this problem). To calculate the potential A and field F in polarizable media, we first calculate the fields Am and Fm which have identical forms as the expressions in vacuum as long as k is chosen to be the wave-number in the medium and not ω/c, and then use these to calculate A and F and G with simple linear transformations that depend on the values of the permittivities and permeabilities of the matter in the problem. See “Maxwell's equation in empty space and in polarizable media using geometric algebra” for more about this; the result of this calculation is needed to make this example program work and to apply this method to other cases, but the understanding the derivation is not needed for one skilled in the art to make and use my method by following this numeric example.
Now we define the simple linear transformations that take us from the “medium field” and “medium potential” values, which are easily calculated inside polarizable media, and the physically significant field values φ, {right arrow over (A)}, {right arrow over (E)}, {right arrow over (B)}, {right arrow over (D)}, and {right arrow over (H)}.
First, as an example, we explicitly write the relationship between Am and A (again, see “Maxwell's equation in empty space and in polarizable media using geometric algebra”, for the basic equations, and Doran and Lasenby for an understanding of geometric algebra that will allow one to better understand and derive these results):



  
    
      A
      m
    
    =
    
      
        ε
        m
      
      ⁡
      
        (
        
          φ
          +
          
            
              v
              m
            
            ⁢
            
              A
              ⇀
            
          
        
        )
      
    
  




  
    A
    =
    
      
        ε
        0
      
      ⁡
      
        (
        
          φ
          +
          
            c
            ⁢
            
              A
              ⇀
            
          
        
        )
      
    
  




  so




  
    A
    =
    
      
        
          (
          
            
              ε
              0
            
            /
            
              ε
              m
            
          
          )
        
        ⁢
        
          (
          
            
              
                〈
                
                  A
                  m
                
                〉
              
              0
            
            +
            
              
                (
                
                  c
                  /
                  
                    v
                    m
                  
                
                )
              
              ⁢
              
                
                  〈
                  
                    A
                    m
                  
                  〉
                
                1
              
            
          
          )
        
      
      =
      
        
          
            (
            
              
                ε
                0
              
              /
              
                ε
                m
              
            
            )
          
          ⁢
          
            (
            
              
                
                  〈
                  
                    A
                    m
                  
                  〉
                
                0
              
              +
              
                
                  (
                  
                    c
                    /
                    
                      v
                      m
                    
                  
                  )
                
                ⁢
                
                  
                    〈
                    
                      A
                      m
                    
                    〉
                  
                  1
                
              
            
            )
          
        
        =
        
          
            
              (
              
                
                  ε
                  0
                
                /
                
                  ε
                  m
                
              
              )
            
            ⁢
            
              
                〈
                
                  A
                  m
                
                〉
              
              0
            
          
          +
          
            
              
                
                  (
                  
                    
                      ε
                      0
                    
                    ⁢
                    
                      μ
                      m
                    
                  
                  )
                
                /
                
                  (
                  
                    
                      ε
                      m
                    
                    ⁢
                    
                      μ
                      0
                    
                  
                  )
                
              
            
            ⁢
            
              
                〈
                
                  A
                  m
                
                〉
              
              1
            
          
        
      
    
  



The expressions for F ̃E+III B and G ̃D+III H are similar, and can be easily obtained from the equations in the equation summary given later.
Here I just write the code that does this, with relative permittivity and relative permeability arguments:
AfromAm[Am_, relpermit_, relpermea—]:={1/relpermit, Sqrt[relpermea/relpermit]}*Am
FfromFm[Fm_, relpermit_, relpermea—]:={1/relpermit, Sqrt[relpermea/relpermit]}*Fm
GfromFm[Fm_, relpermit_, relpermea—]:={1, 1/Sqrt[relpermit*relpermea]}*Fm
We need to construct the continuous potentials a from discontinuous potential ä. In general we would write

aj=äj+äîcî,j 

where the hat over the dummy sum index i means exclude the fixed index j, and sum over all indices, inside and out. The fixed index j takes on only outside or only inside indices; here I use only outside. Equivalently, I can use the even and odd linear combinations of inside/outside, and use each even combination to identify a final continuous potential.

But in this simple example, some terms can be chosen to always be associated with fields outside the sphere, and some always inside the sphere, so we make this choice, which makes the calculation simpler and clearer:



  
    
      
        a
        j
      
      =
      
        
          
            a
             ̈
          
          
            j
            out
          
        
        +
        
          
            
              a
               ̈
            
            
              i
              
                i
                ⁢
                
                  
                
                ⁢
                n
              
            
          
          ⁢
          
            C
            
              i
              
                i
                ⁢
                
                  
                
                ⁢
                n
              
            
          
        
      
    
    ,
    j
  




  
    0
    =
    
      
        ∂
        
          c
          
            
              m
              
                i
                ⁢
                
                  
                
                ⁢
                n
              
            
            ⁢
            j
          
        
      
      ⁢
      
        ∫
        
          
            err
            j
            2
          
          ⁢
          
            d
            σ
          
        
      
    
  




  
    
      err
      j
    
    =
    
      
        
          a
           ̈
        
        
          j
          out
        
      
      -
      
        
          
            a
             ̈
          
          
            i
            
              i
              ⁢
              
                
              
              ⁢
              n
            
          
        
        ⁢
        
          c
          
            
              i
              
                i
                ⁢
                
                  
                
                ⁢
                n
              
            
            ,
            j
          
        
      
    
  




  
    0
    =
    
      
        ∫
        
          
            
              
                a
                 ̈
              
              
                m
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  n
                
              
            
            †
          
          *
          
            
              a
               ̈
            
            
              i
              
                i
                ⁢
                
                  
                
                ⁢
                n
              
            
          
          ⁢
          d
          ⁢
          
            
          
          ⁢
          
            Σc
            
              
                i
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  n
                
              
              ,
              j
            
          
        
      
      =
      
        ∫
        
          
            
              
                a
                 ̈
              
              
                m
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  n
                
              
            
            †
          
          *
          
            
              a
               ̈
            
            
              j
              out
            
          
          ⁢
          d
          ⁢
          
            
          
          ⁢
          Σ
        
      
    
  



For this numerical example, we need specific numerical values for the permittivities and permeabilities, inside and outside the sphere; I choose some values that could represent a problem of real engineering interest:
insidePermit=3.0;
insidePermea=5.0;
outsidePermit=1.0;
outsidePermea=1.0;
We also need to choose a numerical value for the frequency of the simulation, since many calculated quantities depend on this:
freq=0.1;
One needed quantity is the wave-number, in both bulk regions of this example (inside the sphere and outside):
insideWavenumber:=Sqrt[insidePermea*insidePermit]*freq;
outsideWavenumber:=Sqrt[outsidePermea*outsidePermit]*freq;
We will be calculating numerical approximations to many integrals; we do this by evaluating the integrand at each of many “integrand points”, multiplying by the area differential dArea, and summing the results. The integrand points are
integrandPoints=geodesateCoordinates//N
{{0., 0., 1.}, {−0.425325, 0.309017, 0.850651}, {−0.723607, 0.525731, 0.447214},


    
    
        {0.16246, 0.5, 0.850651}, {−0.262866, 0.809017, 0.525731}, {0.276393, 0.850651, 0.447214},
        {−0.425325, −0.309017, 0.850651}, {−0.723607, −0.525731, 0.447214},
        {−0.850651, 0., 0.525731}, {0.16246, −0.5, 0.850651}, {0.276393, −0.850651, 0.447214},
        {−0.262866, −0.809017, 0.525731}, {0.525731, 0., 0.850651}, {0.894427, 0., 0.447214},
        {0.688191, −0.5, 0.525731}, {0.688191, 0.5, 0.525731}, {0.723607, −0.525731, −0.447214},
        {0.425325, −0.309017, −0.850651}, {0., 0., −1.}, {0.262866, −0.809017, −0.525731},
        {−0.16246, −0.5, −0.850651}, {−0.276393, −0.850651, −0.447214},
        {0.723607, 0.525731, −0.447214}, {0.425325, 0.309017, −0.850651},
        {0.850651, 0., −0.525731}, {−0.276393, 0.850651, −0.447214}, {−0.16246, 0.5, −0.850651},
        {0.262866, 0.809017, −0.525731}, {−0.894427, 0., −0.447214}, {−0.525731, 0., −0.850651},
        {−0.688191, 0.5, −0.525731}, {−0.688191, −0.5, −0.525731}, {0., 1., 0.},
        {−0.587785, 0.809017, 0.}, {−0.951057, 0.309017, 0.}, {−0.951057, −0.309017, 0.},
        {−0.587785, −0.809017, 0.}, {0., −1., 0.}, {0.587785, −0.809017, 0.},
        {0.951057, −0.309017, 0.}, {0.951057, 0.309017, 0.}, {0.587785, 0.809017, 0.}}
    
    


The area differential in this simple example can be chosen to be the same for each integrand point:
dArea=4π/Length[integrandPoints]//N
0.299199
Now we write an expression that calculates the integrals




  ∫
  
    
      
        
          a
           ̈
        
        m
      
      †
    
    *
    
      
        a
         ̈
      
      i
    
    ⁢
    
      d
      
        
      
      ⁢
      Σ
    
  




where the two factors are discontinuous potentials A (“ADis”) and the product is the scalar product of geometric algebra, excluding the product of the perpendicular components of the vector parts.

We will use outward radiating (retarded) functions in the outside region, and match at the boundary with inward (advanced) and outward (retarded) radiating functions in the inside region.
Clear[ADisADis]
iVert indexes the vertices associated with particular dipole sources, iInOutRegion indexes the two bulk region (1=inside the sphere, 2=outside), iOutInDirection indexes the direction of radiation of dipole fields (1=outward from the dipole=retarded, 2=inward to the dipole=advanced), and iAxes indexes the three Cartesian axes of the dipole in a local orthonormal vector frame with 1 being normal to the surface at the specified vertex. Note that we use only electric dipoles for frame vectors 1, and only magnetic dipoles for frame vectors 2 and 3: we can argue theoretically that we expect this to form a good basis set and we observe this in numerical experiments.
Recall that the product represented by the asterisk is the scalar geometric product minus the product of the vector components normal to the boundary (as described in Continuous Basis Functions). Also, note that we easily calculate the advanced potential of the time-reversed source from the retarded potential A of the normal source by the simple expression Conjugate[{1, −1}*A]; see the section “Complex Representation, Time Reversal, and Divergence of Potential A”.
ADisADis[{iVert_, iInOutRegion_, iOutInDirection_, iAxis_},


    
    
        {jVert_, jInOutRegion_, jOutInDirection_, jAxis_}]:=Module[
        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipolePotential, jPointDipolePotential, iA, jA, n,
            iWavenumber, iPermit, iPermea, jWavenumber, jPermit, jPermea, iiA, jjA},
        
        
        iDipolePosition=If[iInOutRegion=1, InsidePotentialDipolePositions,
        
            OutsidePotentialDipolePositions][[iVert]]//N;
        
        
        jDipolePosition=If[jInOutRegion=1, InsidePotentialDipolePositions,
        
            OutsidePotentialDipolePositions][[jVert]]//N;
        
        
        iPointDipolePotential=If[iAxis=1, PointElectricDipolePotential,
        
            PointMagneticDipolePotential];
        
        
        jPointDipolePotential=If[jAxis=1, PointElectricDipolePotential,
        
            PointMagneticDipolePotential];
        
        
        iDipoleUnitVector=vertexFrames [[iVert, iAxis]];
        jDipoleUnitVector=vertexFrames [[jVert, jAxis]];
        iWavenumber=If[iInOutRegion=1, insideWavenumber, outsideWavenumber];
        iPermit=If[iInOutRegion=1, insidePermit, outsidePermit];
        iPermea=If[iInOutRegion=1, insidePermea, outsidePermea];
        jWavenumber=If[jInOutRegion=1, insideWavenumber, outsideWavenumber];
        jPermit=If[jInOutRegion=1, insidePermit, outsidePermit];
        jPermea=If[jInOutRegion=1, insidePermea, outsidePermea];
        Sum[
        
            iA=AfromAm[iPointDipolePotential[boundaryPoint−iDipolePosition,
            
                iDipoleUnitVector, iWavenumber], iPermit, iPermea];
            
            
            jA=AfromAm[jPointDipolePotential[boundaryPoint−jDipolePosition,
            
                jDipoleUnitVector, jWavenumber], jPermit, jPermea];
            
            
            iiA=If[iOutInDirection=1, iA, Conjugate[{1, −1}*iA]];
            jjA=If[jOutInDirection=1, jA, Conjugate[{1, −1)*jA]];
            n=Normalize[boundaryPoint];
            Conjugate[Flatten[{iiA[[1]], n×iiA[[2]]}]].Flatten[{jjA[1}]], n×jjA[[2]]}]*dArea,
            {boundaryPoint, integrandPoints}]
        
        
        ]
    
    


We verify that this works by evaluating it for representative arguments:
ADisADis[{1, 2, 1, 1}, {2, 2, 1, 1}]
−0.021335+2.11758×10−22 
ADisADis[{1, 1, 1, 1}, {2, 2, 2, 1}]
0.000454026+0.000893725 
Since it takes a bit of time to calculate each of these integrals and we may need to use them more than once, we calculate and save an array of all needed values:
ADisADisArray=Table[ADisADis[{iV, iIOR, iOID, iA}, {kV, kIOR, kOID, kA}], {iV, 1, 12},


    
    
        {iIOR, 2}, {iOID, 2}, {iA, 3}, {kV, 1, 12}, {kIOR, 2}, {kOID, 2}, {kA, 3}];
    
    


We check that we did this right by first looking at the Dimensions,
Dimensions [ADisADisArray]
{12, 2, 2, 3, 12, 2, 2, 3}
and now looking at a representative element of the array
ADisADisArray[[1, 1, 1, 1, 2, 2, 2, 1]]
0.000454026+0.000893725 
ADisADisArray[[3, 2, 1, 1, 3, 2, 1, 1]]
0.0364011+0. 
We will need a matrix made of many of these values; we now take the required calculated values and put them into a matrix form:
ADisADisMatrix=Flatten[#, 3]&/@ Flatten[#, 3]&@


    
    
        Table[ADisADisArray[[iV, iIOR, iOID, iA, kV, kIOR, kOID, kA]], {iV, 1, 12},
        
            {iIOR, {1}}, {iOID, 2}, {iA, 3}, {kV, 1, 12}, {kIOR, {1}}, {kOID, 2}, {kA, 3}];
        
        
    
    


Check that we have at least the correct Dimensions:
ADisADisMatrix//Dimensions
{72, 72}
We also need the right hand side of the equation given earlier. We call this “bat” (for no good reason):
bat[kV_, kA_]:=bat[kV, kA]=Flatten[#, 1][[1]]&/@ Flatten[#, 3]& @


    
    
        Table[ADisADisArray[[iV, iIOR, iOID, iA, kV, kIOR, kOID, kA]],
        
            {iV, 1, 12}, {iIOR, {1}}, {iOID, 2}, {iA, 3}, {kIOR, {2}}, {kOID, {1}}]
        
        
    
    


Verify that at least the Dimensions are right:
bat[1, 2]//Dimensions
{72}
Check that some representative values are plausible:
bat[1, 2][[1;;3]]
{1.6263×10−19+1.76183×10−19 , −0.0036662−0.000426982 , 3.24393×10−20−7.09609×10−21 }
Finally, we calculate the coefficients “cij” that will be used to define the substantially continuous potential basis functions, one List of coefficients for each pair of indices {jV, jA}, which identifies a vertex and axes, and corresponds physically to a localized boundary potential at vertex jV, with a large potential component identified by jA (1=scalar potential, 2=tangential vector potential in direction of local frame vector 2, 3=tangential vector potential in direction of local frame vector 3):
cij[jV_, jA_]:=cij[jV, jA]=PseudoInverse[ADisADisMatrix].bat[jV, jA];
Check Dimensions of a representative List of coefficients:
cij[1, 2]//Dimensions
{72}
and check a few elements of this list for plausible values:
cij[1, 2][[1;;3]]
{−0.0000194302+0.0000138936 , −3.87857−2362.99 , 0.000225344+0.00038.5807 }
Good. Now recall the equation that gives the continuous potential as a linear sum of discontinuous potentials,

aj=äjout+äiinciin,j 

where ciin,j were just calculated and called cij[jV, jA]. Now we write the code for this. Do this by first writing an expression AIn that gives values for the potential A that are valid inside the sphere, then an expression AOut that gives values for the potential A that are valid outside the sphere, then combine these in one expression AIO, valid both inside and outside:

AIn[{jV_, jA_}, r_]:=Module[

    
    
        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipolePotential, jPointDipolePotential, iA, iiA},
        
        
        iDipolePosition[iVert_, iIO_]:=
        
            If[iIO=1, InsidePotentialDipolePositions, OutsidePotentialDipolePositions][[iVert]];
        
        
        iDipoleUnitVector[iVert_, iAxis_]:=vertexFrames[[iVert, iAxis]];
        iPointDipolePotential[iAxis]:=
        
            If[iAxis=1, PointElectricDipolePotential, PointMagneticDipolePotential];
        
        
        Sum[
        
            iA=AfromAm[iPointDipolePotential[iAxis][r−iDipolePosition[iVert, 1],
            
                iDipoleUnitVector[iVert, iAxis], insideWavenumber], insidePermit, insidePermea];
            
            
            iiA=If[iOID=1, iA, {1, −1}*Conjugate[iA]];
            iiA*cij[jV, jA][[(((iVert−1)*2+(iOID−1))*3)+(iAxis−1)+1]],
            {iVert, 12}, {iOID, 2}, {iAxis, 3}]
        
        
        ]

AIn[{1, 2}, {0, 0.1, 0.2}]

{−1.51573×10−10−3.09348×10−7 , 

        {0.00219995+0.0000102193 , 0.00198506+0.0000102209 , −0.00468843−1.89521×10−6 }}

AOut[{jV_, jA}, r_]:=Module[

        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipolePotential, jPointDipolePotential, iA},
        
        
        iDipolePosition[iVert_, iIO_]:=
        
            If[iIO=1, InsidePotentialDipolePositions, OutsidePotentialDipolePositions][[iVert]];
        
        
        iDipoleUnitVector[iVert_, iAxis_]:=vertexFrames[[iVert, iAxis]];
        iPointDipolePotential[iAxis_]:=
        
            If[iAxis=1, PointElectricDipolePotential, PointMagneticDipolePotential];
        
        
        AfromAm[iPointDipolePotential[jA][r−iDipolePosition[jV, 2],
        
            iDipoleUnitVector[jV, jA], outsideWavenumber], outsidePermit, outsidePermea]
        
        
        ]

AOut[{1, 2}, {1, 1.1, 1.2}]

{0.+0. ,

        {0.00905709+0.0000286291 , 0.00905709+0.0000286291 , −0.0124043−0.0000392095 }}
    
    


The radius of the sphere in this example is
sphereRadius
1.
The final complete basis potential expression, indexed by {jV, jA} where jV identifies one of the vertices (1 through 12) and jA identifies one of the three axes (1, 2, or 3), valid for any point either inside or outside the spherical boundary, is called AIO, and is defined by
AIO[{jV_, jA_}, r_]:=If[Norm[r]<sphereRadius, AIn[{jV, jA}, r], AOut[{jV, jA}, r]]
Check a representative pair of indices and point:
AIO[{1, 2}, {0.1, 0.2, 0.3}]
{−1.638×10−10−5.6253×10−6 ,


    
    
        {0.00745051+0.0000120971 , 0.00687319+0.0000121004 , −0.0134999−5.68134×10−6 }}
    
    


Good. Now we can calculate the value of any one of the continuous basis potential functions at any point in space.
We look at some plots to see how smooth and continuous they are.
In FIGS. 26 and 27 we first look at the first element of AIO, the scalar potential (that is, the zeroth component of the space-time potential). We do this for index pair {1,2}, corresponding to a potential in the outside region that is created by one magnetic dipole (jA=2) associated with the first vertex (jV=1). Note that the scalar potential of a magnetic dipole is identically zero, so the matching potential in the interior region should ideally be zero but will have some error:
This last plot shows that the error in this plane (x-z) for the Imaginary part is much larger; but still small compared with the (space-time) magnitude of the potential: the potential at a representative point just inside the boundary is
AIO[{1, 2}, {0.7, 0, 0.7}]
{9.11344×10−11−0.000121221 ,


    
    
        {0.0237762+0.000019402 , 0.029445+0.0000193583 , −0.0275369−0.0000130669 }}

and its magnitude is

Sqrt[Conjugate[Flatten[AIO[{1, 2}, {0.7, 0, 0.7}]]].Flatten[AIO[{1, 2}, {0.7, 0, 0.7}]]]

0.046804+0. 

so the fractional error in the scalar potential is only about 0.5% or less. This is very good for such a crude set of basis functions (only 12 points over an entire sphere).

    
    


It may be helpful to display the values of the vertex frame vector coordinates and vertex coordinates:
vertexFrames


    {{{0., 0., −1.}, {0.707107, −0.707107, 0.}, {−0.707107, −0.707107, 0.}},
    
        {{0., 0., 1.}, {−0.707107, 0.707107, 0.}, {−0.707107, −0.707107, 0.}},
        {{−0.894427, 0., −0.447214}, {0.408248, 0.408248, −0.816497},
        
            {0.182574, −0.912871, −0.365148}}, {{0.894427, 0., 0.447214},
            {−0.408248, −0.408248, 0.816497}, {0.182574, −0.912871, −0.365148}},
        
        
        {{0.723607, −0.525731, −0.447214}, {−0.0458092, −0.683088, 0.728898},
        
            {−0.688691, −0.506949, −0.518371}}, {{0.723607, 0.525731, −0.447214},
            {0.63379, −0.762689, 0.128899}, {−0.273319, −0.376712, −0.88509}},
        
        
        {{−0.723607, −0.525731, 0.447214}, {−0.63379, 0.762689, −0.128899},
        
            {−0.273319, −0.376712, −0.88509}}, {{−0.723607, 0.525731, 0.447214},
            {0.0458092, 0.683088, −0.728898}, {−0.688691, −0.506949, −0.518371}},
        
        
        {{−0.276393, −0.850651, −0.447214}, {−0.558548, −0.236496, 0.795044},
        
            {−0.782069, 0.469535, −0.409763}}, {{−0.276393, 0.850651, −0.447214},
            {0.751346, −0.0988896, −0.652457}, {−0.599238, −0.516347, −0.611801}},
        
        
        {{0.276393, −0.850651, 0.447214}, {−0.751346, 0.0988896, 0.652457},
        
            {−0.599238, −0.516347, −0.611801}}, {{0.276393, 0.850651, 0.447214},
            {0.558548, 0.236496, −0.795044}, {−0.782069, 0.469535, −0.409763}}}

vertexCoordinates//N

{{0., 0., −1.}, {0., 0., 1.}, {−0.894427, 0., −0.447214}, {0.894427, 0., 0.447214},

        
        
        {0.723607, −0.525731, −0.447214}, {0.723607, 0.525731, −0.447214},
        {−0.723607, −0.525731, 0.447214}, {−0.723607, 0.525731, 0.447214},
        {−0.276393, −0.850651, −0.447214}, {−0.276393, 0.850651, −0.447214},
        {0.276393, −0.850651, 0.447214}, {0.276393, 0.850651, 0.447214}}
    
    


Next, in FIGS. 28 and 29, we look at some vector potential values, to check for continuity of the tangential component at the surface of the sphere (recall that the perpendicular component is not yet constrained to be continuous):
GraphicsRow[{Show[{VectorPlot[AIO[{1, 2}, {x, 0, z}][[2, {1, 3}]]//Re, {x, −3/2, 3/2},


    
    
        {z, −3/2, 3/2}, Axes→True, AxesLabel→+{“x”, “z”}, PlotLabel→“Re[{right arrow over (A)}]”],
        ParametricPlot[{Cos [φ], Sin([φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[AIO[{1, 2}, {x, 0, z}][[2, {1, 3}]]//Im, {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→, {“x”, “z”}, PlotLabel→“Im[{right arrow over (A)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 28”]//Quiet

GraphicsRow[{Show[{VectorPlot[AIO[{1, 2}, {0, y, z}]([2, (2, 3}]]//Re, y, −3/2, 3/2},

        {z, −3/2, 3/2}, Axes→True, AxesLabel→{“y”, “z”}, PlotLabel→“Re[{right arrow over (A)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π]}],
        Show[{VectorPlot[AIO[{1, 2}, {0, y, z}][[2, {2, 3}]]//Im, {y, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→{“y”, “z”}, PlotLabel→“Im[{right arrow over (A)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 29”]//Quiet
    
    


It may be helpful to see plots over a larger range, to understand that the increasing imaginary part at larger radii is just part of a wave that must exist since this is for the nonzero frequency 0.1:
GraphicsRow[


    
    
        {Show[{VectorPlot[AIO[{1, 2}, {0, y, z}][[2, {2, 3}]]//Re, {y, −60, 60}, {z, −60, 60},
        
            Axes→True, AxesLabel→{, “y”, “z”}, PlotLabel→“Re[{right arrow over (A)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[AIO[{1, 2}, {0, y, z}][[2, {2, 3}]]//Im, {y, −60, 60}, {z, −60, 60},
        
            Axes→True, AxesLabel→{“y”, “z”}, PlotLabel→“Im[{right arrow over (A)}]”], ParametricPlot[
            {Cos [φ], Sin [φ]}sphereRadius, {(φ, 0, 2π}]}]}, PlotLabel→“FIG. 30”]//Quiet
        
        
    
    


These all look very good.
Now in FIGS. 31 and 32 we look at a representative of these substantially-continuous potentials for jA=1, which corresponds to an exterior potential due to a single virtual electric dipole inside the sphere:
GraphicsRow[{Plot3D[AIO[{1, 1}, {x, 0, z}][[1]]//Re, {x, −3/2, 3/2}, {z, −3/2, 3/2},


    
    
        PlotRange→All, AxesLabel→{“x”, “z”}, PlotLabel→“Re[φ] vs {x,z}”], Plot3D[
        AIO[{1, 1}, {x, 0, z}][[1]]//Im, {x, −3/2, 3/2}, {z, −3/2, 3/2}, PlotRange→All,
        AxesLabel→{“x”, “z”}, PlotLabel→“Im[φ] vs {x,z}”]}, PlotLabel→“FIG. 31”]

GraphicsRow[{Plot3D[AIO[{1, 1}, {x, y, 0}][[1]]//Re, {x, −3/2, 3/2}, {y, −3/2, 3/2},

        PlotRange→All, AxesLabel→{“x”, “y”}, PlotLabel→“Re[φ] vs {x,y}”], Plot3D[
        AIO[{1, 1}, {x, y, 0}][[1]]//Im, {x, −3/2, 3/2}, {y, −3/2, 3/2}, PlotRange→All,
        AxesLabel→{“x”, “y”}, PlotLabel→“Im[φ] vs {x,y}”]}, PlotLabel→“FIG. 32”]
    
    


These plots above all show excellent continuity of the scalar potential at the boundary.
Next, in FIG. 33, we look at the vector potential for the same virtual electric dipole source:
GraphicsRow[{Show[{VectorPlot[AIO[{1, 1}, {x, 0, z}][[2, {1, 3}]]//Re, {x, −3/2, 3/2},


    
    
        {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Re[{right arrow over (A)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {, 0, 2π}]}],
        Show[{VectorPlot[AIO[{1, 1}, {x, 0, z}][[2, {1, 3}]]//Im, {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[φ]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 33”]//Quiet
    
    


In this last plot, we see that although the normal part of the imaginary part of the vector potential is not continuous at the boundary, the tangential component is, exactly as is required.
Parameterized Continuous Field F
Now we plot the values of the field F=ε0{right arrow over (E)}+III (1/c){right arrow over (B)}/μ0 associated with the substantially continuous potential basis functions. One can show that these should substantially obey the usual homogeneous boundary conditions: E tangential is continuous, and B perpendicular is continuous across the boundary. The plots below show that this is indeed obtained very well.
The output of the Fin, FOut, and FIO below is the Cartesian components of fields that make up F, written as a 2×3 List given by {ε0{Ex, Ey, Ez}, (1/c){Bx, By, Bz}/μ0}.
FIn[{jV_, jA_}, r_]:=Module[


    
    
        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipoleField, jPointDipolePotential, iF, iS, iiF},
        
        
        iDipolePosition[iVert_, iIOR_]:=If[iIOR=1, InsidePotentialDipolePositions,
        
            OutsidePotentialDipolePositions][[iVert]];
        
        
        iDipoleUnitVector[iVert_, iAxis_]:=vertexFrames[[iVert, iAxis]];
        iPointDipoleField[iAxis]:=
        
            If[iAxis=1, PointElectricDipoleField, MagneticDipoleField];
        
        
        Sum[
        
            iS=If[iOID=1, 1, −1];
            iF=FfromFm[iPointDipoleField[iAxis][r−iDipolePosition [iVert, 1], iDipoleUnitVector[
            
                iVert, iAxis], (* iS* *)insideWavenumber], insidePermit, insidePermea];
            
            
            iiF=If[iOID=1, iF, {1, −1}*Conjugate[iF]];
            iiF*cij[jV, jA][[(((iVert−1)*2+(iOID−1))*3)+(iAxis−1)+1]],
            {iVert, 12}, {iOID, 2}, {iAxis, 3}]
        
        
        ]

FIn[{1, 2}, {0.1, 0.2, 0.3}]

{{1.20971×10−6−0.000732433 , 1.21011×10−6−0.000695108 , −5.68005×10−7+0.00143564 },

        {0.0928909+0.0000377187 , −0.0922168−0.0000377363 , 0.00590386−6.349×10−8 }}

FOut[{jV_, jA_}, r_]:=Module[

        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipoleField, jPointDipolePotential, iA},
        
        
        iDipolePosition[iVert_, iIOR_]:=If[iIOR=1, InsidePotentialDipolePositions,
        
            OutsidePotentialDipolePositions][[iVert]];
        
        
        iDipoleUnitVector[iVert_, iAxis_]:=vertexFrames[[iVert, iAxis]];
        iPointDipoleField[iAxis_]:=
        
            If[iAxis=1, PointElectricDipoleField, MagneticDipoleField];
        
        
        FfromFm[iPointDipoleField[jA][r−iDipolePosition[jV, 2],
        
            iDipoleUnitVector[jV, jA], outsideWavenumber], outsidePermit, outsidePermea]
        
        
        ]

FOut[{1, 2}, {0.1, 2.2, 0.3}]

{{1.18169×10−6−0.000303837 , 1.18169×10−6−0.000303837 , −4.2914×10−6+0.00110341 },

        {−0.0051243+0.0000371125 , −0.00789384−0.000037293 , −0.0035847−4.97057×10−8 }}

FIO[{jV_, jA_}, r_]:=If[Norm[r]<sphereRadius, FIn[{jV, jA}, r], FOut[{jV, jA}, r]]

    
    


Note that the frame vectors (see the earlier listing of the Cartesian coordinates of the frame vectors) are chosen so that the axis of the magnetic dipole basis source used in the next figure, FIG. 34, is at 45 degrees to the x and y axes.
GraphicsRow[{Show[{VectorPlot[FIO[{1, 2}, {x, y, 0}][[2, {1, 2}]]//Re, {x, −3/2, 3/2},


    
    
        {y, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “y”}, PlotLabel→“Re[{right arrow over (B)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[FIO[{1, 2}, {x, y, 0}][[2, {1, 2}]]//Im, {x, −3/2, 3/2},
        
            {y, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “y”}, PlotLabel→“Im[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 34”]//Quiet
    
    


As in all VectorPlots, Mathematica automatically normalizes the vectors to make a visible plot, so vector magnitudes cannot be compared between two plots, such as the real and imaginary plots above. We should look at a representative numerical value to see the relative sizes of the real and imaginary parts:
FIO[{1, 2}, {0, 0, 0}][[2, {1, 2}]]
{0.114833+0.0000380343 , −0.114833−0.0000380345 }
In FIG. 35, we look again at B but in the x-z plane:
GraphicsRow[{Show[{VectorPlot[FIO[{1, 2}, {x, 0, z}][[2, {1, 3}]]//Re, {x, −3/2, 3/2},


    
    
        {z, −3/2, 3/2}, Axes→True, AxesLabel→, {“x”, “z”}, PlotLabel→“Re[{right arrow over (B)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        Show[{VectorPlot[FIO[{1, 2}, {x, 0, z}][[2, {1, 3}]]//Im, {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[φ]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 35”]//Quiet
    
    


The next two plots, FIG. 36, may (and do) show discontinuity at the boundary. This is correct: these plots represent the y component of B, which is tangential to the boundary in the x-z plane being plotted, and continuity of this is not part of the definition of these basis functions.
GraphicsRow[{Plot3D[FIO[{1, 2}, {x, 0, z}][[2, 2]]//Re, {x, −3/2, 3/2},


    
    
        {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Re[By] vs {x,z}”],
        Plot3D[FIO[{1, 2}, {x, 0, z}][[2, 2]]//Im, {x, −3/2, 3/2}, {z, −3/2, 3/2}, Axes→True,
        AxesLabel→{“x”, “z”}, PlotLabel→“Im[By] vs {x,z}”]}, PlotLabel→“FIG. 36”]
    
    


Now in FIGS. 37 and 38 we look at the E field of the same {1,2} basis function:
GraphicsRow[{Show[{VectorPlot[FIO[{1, 2}, {x, 0, z}][[1, {1, 3}]]//Re, {x, −3/2, 3/2},


    
    
        {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Re[{right arrow over (E)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[FIO[{1, 2}, {x, 0, z}][[1, {1, 3}]]//Im, {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[{right arrow over (E)}]”],
            ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        
        
        PlotLabel→“FIG. 37”]//Quiet

GraphicsRow[{Show]{VectorPlot[FIO[{1, 2}, {x, y, 0}][[1, {1, 2}]]//Re, {x, −3/2, 3/2},

        {y, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “y”}, PlotLabel→“Re[{right arrow over (E)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[FIO[{1, 2}, {x, y, 0}][[1, {1, 2}]]//Im, {x, −3/2, 3/2},
        
            {y, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “y”}, PlotLabel→“Im[{right arrow over (E)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]}, PlotLabel→“FIG. 38”]
    
    


In the plot above, we see again that the tangential part of E has good continuity at the boundary for both real and imaginary parts, while the perpendicular part is not continuous for the imaginary part but is not expected to be continuous since this is not required until the next step, when a linear combination of basis functions is found such that the action is minimized.
FIG. 39 below shows a couple of plots of the E field of basis function {1,1}, representing dipoles associated with vertex 1 and frame vector 1:
GraphicsRow[{Show[{VectorPlot[FIO[{1, 1}, {x, 0, z}][[1, {1, 3}]]//Re, {x, −3/2, 3/2},


    
    
        {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Re[{right arrow over (E)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {, 0, 2π}]}],
        Show[{VectorPlot[FIO[{1, 1}, {x, 0, z}][[1, {1, 3}]]//Im, {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[{right arrow over (E)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 39”]//Quiet
    
    


Continuous Potential for a Physical Source
Now we repeat a procedure similar to that in the last two section, but this is for substantially continuous potential basis functions associated with physical (as opposed to only virtual) dipole sources. In general, we might have any of many possible specified physical sources or fields, including, for example, plane waves and waves from arbitrary driven networks of conductive wires or sheet-like objects (e.g., antennas). In this simple example, we calculate only for a specified physical dipole source, and in the numerical results of this example we choose it to be fairly close to the sphere (at Cartesian coordinates {−3,0,0}).
In the following expression, in {jPosition, jType, jMoment}, jPosition is the Cartesian coordinates of the position of the specified dipole, jType is its type (1 for electric, 2 for magnetic), and jMoment is the Cartesian coordinates of the dipole moment.
ADisASpec[{iVert_, iOutInDirection_, iAxis_}, (jPosition_, jType_, jMoment_}]:Module[


    
    
        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDlipolePotential, jPointDlipolePotential, iA, jA, n,
            iWavenumber, iPermit, iPermea, jWavenumber, jPermait, jPermnea, iiA, jjA},
        
        
        iDipolePosition=InsidePotentialDipolePositions[[iVert]]//N;
        jDipolePosition=jPosition//N;
        iPointDlipolePotential=
        
            If[iAxis=1, PointElectricDipolePotential, PointMagneticDipolePotential];
        
        
        jPointDipolePotential=If[jType=1, PointElectricDlipolePotential,
        
            PointMagneticDlipolePotential];
        
        
        iDipoleUnitVector=vertexFramies [[iVert, iAxis]];
        jDipoleUnitVector=jMoment;
        iWavenumber=insideWavenumber;
        iPermit=insidePermit;
        iPermea=insidePermea;
        jWavenumber=outsideWavenumber;
        jPermit=outsidePermit;
        jPermea=outsidePermea;
        Sum[
        
            iA=AfroxAm[iPointipolePotential[boundaryPoint−iDipolePosition,
            
                iDipoleUnitVector, iWavenumber], iPermit, iPermea];
            
            
            jA=AfromAm[jPointipolePotential[boundaryPoint−jDipolePosition,
            
                jDipoleUnitVector, jWavenumber], jPermit, jPermea];
            
            
            iiA=If[ioutInDirection=1, iA, Conjugate[{1, −1}*iA]];
            jjA=jA;
            n=Normalize[boundaryPoint];
            Conjugate[Flatten[{iiA[[1]],n×iiA[[2]].Flatten[{jjA[[1]],n×jjA[[2]]}]*dArea,
            {boundaryPoint, integrandPoints}]
        
        
        ]

ADisASpec[{1, 1, 1}, {{1, 2, 3}, 2, {0, 0, 1}}]

−1.15345×10−8−1.97038×10−9 

ADisASpecArray[{jPosition_, jType_, jMoment_}]:=

        ADisASpecArray[{jPosition, jType, jMoment}]=Table[
        
            ADisASpec[{iV, iIOD, iA}, {jPosition, jType, jMoment}], {iV, 1, 12}, {iIOD, 2}, {iA, 3}];

bat[{jPosition_, jType_, jMoment_}]:=bat[{jPosition, jType, jMoment}]=

        
        
        Flatten[ADisASpecArray[{jPosition, jType, jMoment}], 2];
    
    


We will look at example numerical data in many cases with the arbitrarily chosen specified dipole position of {−3, 0, 0}.
bat[{{3, 0, 0}, 2, {0, 1, 0}}]//Dimensions
{72}
bat[{{−3, 0, 0}, 2, {0, 1, 0}}][[1;;4]]
{0.000911203+0.000371987 , 0.0000985455−0.0000156032 ,


    
    
        0.0000985455−0.0000156032 , −0.000917488+0.000356353 }

cij[{jPosition_, jType_, jMoment_}]:=cij[{jPosition, jType, jMoment}]=

        PseudoInverse[ADisADisMatrix].bat[{jPosition, jType, jMoment}];

cij[{{−3, 0, 0}, 2, {0, 1, 0}}]//Dimensions

{72}

cij[{{0, 0, −4}, 2, {0, 1, 0}}][[1;;4]]

{−2.57278×10−8+7.27596×10−8 , −0.0504217+3.63148 ,

        −0.0504223+3.63148 , 2.25846×10−8−7.0082×10−8 }

AIn[{jPosition_, jType_, jMoment_}, r_]:=Module[

        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipolePotential, jPointDipolePotential, iA, iiA},
        
        
        iDipolePosition[iVert_, iIO_]:=
        
            If[iIO=1, InsidePotentialDipolePositions, OutsidePotentialDipolePositions][[iVert]];
        
        
        iDipoleUnitVector[iVert_, iAxis_]:=vertexFrames[[iVert, iAxis]];
        iPointDipolePotential[iAxis_]:=
        
            If[iAxis=1, PointElectricDipolePotential, PointMagneticDipolePotential];
        
        
        Sum[
        
            iA=AfromAm[iPointDipolePotential[iAxis][r−iDipolePosition[iVert, 1],
            
                iDipoleUnitVector[iVert, iAxis], insideWavenumber], insidePermit, insidePermea];
            
            
            iiA=If[iOID=1, iA, Conjugate[{1, −1}}*iA]];
            iiA*
            
                cij[{jPosition, jType, jMoment}][[(((iVert−1)*2+(iOID−1))*3)+(iAxis−1)+1]],
            
            
            {iVert, 12}, {iOID, 2}, (iAxis, 3}]
        
        
        ]

AIn[{{−3, 0, 0}, 2, {0, 1, 0}}, {0, 0.1, 0.2}]

{6.84982×10−12−1.02783×10−7 ,

        {−0.000620338−5.32903×10−6 , 1.43943×10−6+2.30699×10−8, 0.00941244+0.0000810489 }}

AOut[{jPosition_, jType_, jMoment_}, r_]:=Module[

        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipolePotential, jPointDipolePotential, iA},
        
        
        iPointDipolePotential[iT_]:=If[iT=1, PointElectricDipolePotential,
        
            PointMagneticDipolePotential];
        
        
        AfromAm[iPointDipolePotential[jType][r−jPosition, jMoment, outsideWavenumber],
        
            outsidePermit, outsidePermea]
        
        
        ]

AOut[{{−3, 0, 0}, 2, {0, 1, 0}}, {1, 1.1, 1.2}]

{0.+0. , {−0.0012911−0.0000312413 , 0.+0. , 0.00430367+0.000104138 }}

AIO[{jPosition_, jType_, jMoment_}, r]:=If[Norm[r]<sphereRadius,

        AIn[{jPosition, jType, jMoment}, r], AOut[{jPosition, jType, jMoment}, r]]

AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {0.1, 0.2, 0.3}]

{4.96744×10−12−9.57318×10−8 ,

        {−0.000828227−7.94339×10−6 , 4.54548×10−6+6.84013×10−8 , 0.00873007+0.0000835047 }}
    
    


FIGS. 40 and 41 below show the substantially continuous scalar potential associated with the specified external source, a dipole at {−3, 0, 0} of type 2 (magnetic) with moment {0,1,0}. As for all magnetic dipoles, the scalar potential should be zero every where, so these figures show the very small error in this:
GraphicsRow[{Plot3D[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[1]]//Re, {x, −3/2, 3/2},


    
    
        {y, −3/2, 3/2}, PlotRange→All, AxesLabel→{“x”, “y”}, PlotLabel→“Re[φ] vs {x,y}”],
        Plot3D[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[1]]//Im, {x, −3/2, 3/2},
        
            {y, −3/2, 3/2}, PlotRange→All, AxesLabel→{“x”, “y”},
            PlotLabel→“Im[φ] vs {x,y}”]}, PlotLabel→“FIG. 40”]

GraphicsRow[{Plot3D[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1]]//Re, {x, −3/2, 3/2},

        
        
        {z, −3/2, 3/2}, PlotRange→All, AxesLabel→{“x”, “z”}, PlotLabel→“Re[φ] vs {x,z}”],
        Plot3D[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1]]//Im, {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, PlotRange→All, AxesLabel→{“x”, “z”},
            PlotLabel→“Im[φ] vs {x,z}”]}, PlotLabel→“FIG. 41”]
        
        
    
    


The next two figures, FIGS. 42 and 43, show the vector potential.
GraphicsRow[


    
    
        {Show[{VectorPlot[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[2, {1, 3}]]//Re, {x, −3/2,
        
            3/2}, {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Re[{right arrow over (A)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[2, {1, 3}]]//Im,
        
            {x, −3/2, 3/2}, {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”},
            PlotLabel→“Im[{right arrow over (A)}]”], ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius,
            {φ, 0, 2π}]}]}, PlotLabel→“FIG. 42”]//Quiet

AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {0, 0, 0}][[2, {1, 3}]]

{6.06221×10−7−1.02686×10−9 , 0.00949592+0.0000811211 }

GraphicsRow[

        
        
        {Show[VectorPlot[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[2, {1, 3}]]//Im, {x, −30, 30},
        
            {z, −30, 30}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[{right arrow over (A)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {, 0, 2π}],
        Graphics[{Red, PointSize[Medium], Point [{−3, 0}]}]],
        Show[VectorPlot[AIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[2, {1, 3}]]//Im,
        
            {x, −100, 100}, {z, −100, 100}, Axes→True, AxesLabel→{“x”, “z”},
            PlotLabel→“Im[{right arrow over (A)}]”], ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}],
        
        
        Graphics[{Red, PointSize[Medium], Point[{−3, 0}]}]]}, PlotLabel→“FIG. 43”]//Quiet
    
    


The two plots of FIG. 43 do not show anything about the continuity of this basis function at the boundary, but rather just show that the basis function is clearly a wave at larger distances, as of course it must be for a frequency of 0.1. The physical dipole is plotted as a red dot. The real part is not plotted because it gets very large near the dipole source (instead of going to zero like the imaginary part), resulting in a figure that is not very enlightening.
Field F of the Continuous Potential for a Specified Source
This section continues the development of a specified source, calculating and plotting the associated field F ̃E+III B.
Now that we have the matrix for generating the continuous basis potentials from the discontinuous basis potentials, we can use the same matrix to create associated fields F=ε0E+III(1/c)B/μ0 and G=D+III(1/c)H.
FIn[{jP_, jT_, jM}, r_]:=Module[


    
    
        {CentroidPosition, iDipolePosition, iDipoleUnitVector, jDipolePosition,
        
            jDipoleUnitVector, iPointDipoleField, jPointDipolePotential, iF, iS, iiF},
        
        
        iDipolePosition[iVert_, iIOR_]:=If[iIOR=1, InsidePotentialDipolePositions,
        
            OutsidePotentialDipolePositions][[iVert]];
        
        
        iDipoleUnitVector[iVert_, iAxis_]:=vertexFrames[[iVert, iAxis]];
        iPointDipoleField[iAxis_]:=
        
            If[iAxis=1, PointElectricDipoleField, MagneticDipoleField];
        
        
        Sum[
        
            iF=FfromFm[iPointDipoleField[iAxis][r−iDipolePosition[iVert, 1],
            
                iDipoleUnitVector[iVert, iAxis], insideWavenumber], insidePermit, insidePermea];
            
            
            iiF=If[iOID=1, iF, {1, −1}*Conjugate[iF]];
            iiF*cij[{jP, jT, jM}][[(((iVert−1)*2+(iOID−1))*3)+(iAxis−1)+1]],
            {iVert, 12}, {iOID, 2}, {iAxis, 3}]
        
        
        ]

FOut[{jP_, jT_, jM_}, r_]:=Module[

        {CentroidPosition, jDipolePosition,
        
            jDipoleMoment, jPointDipoleField, jPointDipolePotential, iA},
        
        
        jDipolePosition=jP;
        jDipoleMoment=jM;
        jPointDipoleField=If[jT=1, PointElectricDipoleField, MagneticDipoleField];
        FfromFm[jPointDipoleField[r−jDipolePosition, jDipoleMoment, outsideWavenumber],
        
            outsidePermit, outsidePermea]
        
        
        ]

FIO[{jP_, jT_, jM_}, r_]:=

        If[Norm[r]<sphereRadius, FIn[{jP, jT, jM}, r], FOut[{jP, jT, jM}, r]]

vertexCoordinates//N

{{0., 0., −1.}, {0., 0., 1.}, {−0.894427, 0., −0.447214}, {0.894427, 0., 0.447214},

        {0.723607, −0.525731, −0.447214}, {0.723607, 0.525731, −0.447214},
        {−0.723607, −0.525731, 0.447214}, {−0.723607, 0.525731, 0.447214},
        {−0.276393, −0.850651, −0.447214}, {−0.276393, 0.850651, −0.447214},
        {0.276393, −0.850651, 0.447214}, {0.276393, 0.850651, 0.447214}}

GraphicsRow[

        {Show[{VectorPlot[Re[FIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1, {1, 3}]]], {x, −3/2,
        
            3/2}, {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Re[{right arrow over (E)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}], Show[
        {VectorPlot[Im[FIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1, {1, 3}]]], {x, −3/2, 3/2},
        
            {z, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[{right arrow over (E)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 44”]//Quiet

FIO[{{0, 0, −4}, 2, {0, 1, 0}}, {0.1, 0.2, 0.3}]

{{−0.0000114634+0.000478646 ,

        −3.04396×10−9+1.91846×10−7 , 2.58983×10−7−0.0000109885 },
        {4.79868×10−6+1.60332×10−8 , −0.0010292+0.0000494028 , 0.000214894+1.59011×10−6 }}

GraphicsRow[

        {Show[{VectorPlot[Re[FIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[2, {1, 2}]]], {x, −3/2,
        
            3/2}, {y, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “y”}, PlotLabel→“Re[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2 π}]}], Show[
        {VectorPlot[Im[FIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[2, {1, 2}]]], {x, −3/2, 3/2},
        
            {y, −3/2, 3/2}, Axes→True, AxesLabel→{“x”, “y”}, PlotLabel→“Im[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]},
        PlotLabel→“FIG. 45”]//Quiet
    
    


We see that all of these plots look very good: they are solutions to Maxwell's equation for non-boundary points, and they satisfy the homogeneous Maxwell boundary conditions at boundary points.
The two plots below, in FIG. 46, just show that this example is for wavelengths that are large, but not very much larger, than the size of the object. Again, only the imaginary parts are plotted because the real parts get very large near the dipole and so result in unhelpful plots.
GraphicsRow[


    
    
        {Show[{VectorPlot[Im[FIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[2, {1, 2}]]], {x, −25, 25},
        
            {y, −25, 25}, Axes→True, AxesLabel→{“x”, “y”}, AspectRatio→1, PlotLabel→“Im[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}],
        Show[{VectorPlot[Im[FIO[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[2, {1, 2}]]],
        
            {x, −100, 100}, {y, −100, 100}, Axes→True,
            AxesLabel→{“x”, “y”}, AspectRatio→1, PlotLabel→“Im[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}sphereRadius, {φ, 0, 2π}]}]}, PlotLabel→“FIG. 46”]
    
    


Parameter Solution Determined by Boundary Condition
Now I want to evaluate the matrix elements used to find the parameters or coefficients in a linear combination of basis functions that minimize the action. Recall that such a combination results in fields that satisfy the usual inhomogeneous Maxwell boundary conditions. These matrix elements are given by equations given earlier, copied here,



  
    
      M
      ij
    
    =
    
      ∫
      
        
          (
          
            
              
                φ
                i
              
              ⁡
              
                (
                
                  
                    
                      n
                      ^
                    
                    ·
                    △
                  
                  ⁢
                  
                    
                      d
                      ⇀
                    
                    j
                  
                
                )
              
            
            -
            
              
                
                  a
                  ⇀
                
                i
              
              ·
              
                (
                
                  
                    n
                    ^
                  
                  ×
                  △
                  ⁢
                  
                    
                      h
                      ⇀
                    
                    j
                  
                
                )
              
            
          
          )
        
        ⁢
        
          d
          
            
          
          ⁢
          Σ
        
      
    
  




  
    
      B
      i
    
    =
    
      -
      
        ∫
        
          
            (
            
              
                
                  φ
                  i
                
                ⁡
                
                  (
                  
                    
                      
                        n
                        ^
                      
                      ·
                      △
                    
                    ⁢
                    
                      
                        d
                        ⇀
                      
                      0
                    
                  
                  )
                
              
              -
              
                
                  
                    a
                    ⇀
                  
                  i
                
                ·
                
                  (
                  
                    
                      n
                      ^
                    
                    ×
                    △
                    ⁢
                    
                      
                        h
                        ⇀
                      
                      0
                    
                  
                  )
                
              
            
            )
          
          ⁢
          
            d
            
              
            
            ⁢
            Σ
          
          ⁢
          
            
          
          ⁢
          
            d
            0
          
        
      
    
  



which are used to solve the matrix equation, copied here:

Mijcj=Bi 

In these equations, the dummy indices i and j range over all boundary potential basis functions (indicated by using dummy indices b and b′ in a previous section) and not over physical source basis functions. In this example, this corresponds to i and j ranging over all values except 0, which represents the one and only physical source in this example.
Recall or note that G={D, (1/c)H} is the numerical value of the electric displacement D and (1/c times) the numerical value of the magnetic field H, in SI units.
G is defined simply in terms of F={(ε0{right arrow over (E)}, (1/c){right arrow over (B)}/μ0} in the usual way:
GIn[{jV_, jA_}, r_]:=FIn[{jV, jA}, r]*{insidePermit, 1/insidePermea}
GIn[{2, 3}, {0.1, 0.2, 0.4}]
{{3.58272×10−7−0.0111124 , −3.57265×10−7+0.0116767 , 5.70691×10−7−0.00200258 },


    
    
        {−0.0310004−7.60242×10−6 , −0.0308275−7.60607×10−6 , −0.00810121+1.41984×10−8 }}

GOut[{jV_, jA_}, r_]:=FOut[{jV, jA}, r]*{outsidePermit, 1/outsidePermea}

GOut[{2, 3}, {1, 2, 0.4}]

{{1.24419×0−7−0.0000343361 ,

        −1.24419×10−7+0.0000343361 , 1.86629×10−6−0.000515042 },
        {−0.00421034−0.0000372509 , −0.0133258−0.000037363 , −0.000607699−7.47585×10−9 }}

Dimensions[integrandPoints]

{42, 3}

GInArray[ ]=Table[GIn[{jVert, jAxis}, boundaryPoint],

        {jVert, 12}, {jAxis, 3}, {boundaryPoint, integrandPoints}];

GOutArray[ ]=Table[GOut[{jVert, jAxis}, boundaryPoint],

        {jVert, 12}, {jAxis, 3}, {boundaryPoint, integrandPoints}];

Dimensions [GInArray[ ]]

{12, 3, 42, 2, 3}

Dimensions [GOutArray[ ]]

{12, 3, 42, 2, 3}

GInArray[ ][[1, 1, 1]]

{{−2.86526×10−10−5.18671×10−10, 1.17483×10−9+4.13714×10−10 , 0.0692073−0.000161143 },

        {2.40849×10−10−3.13377×10−10 ,
        
            3.75522×10−10+2.02144×10−10 , 2.79014×10−11−6.6787×10−11 }}

GOutArray[ ][[1, 1, 1]]

{{0.+0. , 0.+0. , −0.0677377−0.0000529574 }, {0.+0. , 0.+0. , 0.+0. }}

        
        
    
    
    ABoundaryArray=
    
        Table[(AIn[{jVert, jAxis}, boundaryPoint]+AOut[{jVert, jAxis}, boundaryPoint])/2,
        
            {jVert, 12}, {jAxis, 3}, {boundaryPoint, integrandPoints}];

ABoundaryArray//Dimensions

{12, 3, 42, 2}

Clear[Mij]

MijElements[{iVert_, iAxis_}, {jVert_, jAxis_}]:=Module[{r, n, delGj, ndelGj, ai},

        
        
        Sum[
        
            r=integrandPoints [[b]];
            n=Normalize[r]; (* only valid in special cases like this icosahedron example!*)
            delGj=GOutArray[ ][[jVert, jAxis, b]]−GInArray[ ][[jVert, jAxis, b]];
            ndelGj={n.delGj[[1]], −n×delGj[[2]]};
            ai=ABoundaryArray[[iVert, iAxis, b]];
            Conjugate[Flatten[ai]].Flatten[ndelGj],
            {b, Length[integrandPoints]}]
        
        
        ]

Timing[MijElements[{1, 1}, {2, 1}]]

{0.008078, −0.287307+0.000718335 }

GIn[{jPosition_, jType_, jMoment_}, r_]:=

        {insidePermit, 1/insidePermea}*FIn[{jPosition, jType, jMoment}, r]

GIn[{{−3, 0, 0}, 2, {0, 1, 0}}, {0.1, 0.2, 0.3}]

{{−2.38298×10−6+0.000240996 , 2.05197×10−8+8.51335×10−6 , 0.0000250515−0.00262802 },

        {0.000115571+2.36452×10−7 , −0.000525306+0.0000104031 , 3.57634×10−6+9.63655×10−9 }}

GOut[{jPosition_, jType_, jMoment_}, r_]

        {outsidePermit, 1/outsidePermea}*FOut[{jPosition, jType, jMoment}, r]

GOut[{{−3, 0, 0}, 2, {0, 1, 0}}, {0.1, 2, 3.3}]

{{−8.54093×10−6+0.000241473 , 0.+0. , 8.0233×10−6−0.000226838 },

        {0.00051972+3.23203×10−7 , −0.000254957+0.0000506945 , 0.00055325+3.44055×10−7 }}

GInArray[{jPosition_, jType_, jMoment_}]:=GInArray[{jPosition, jType, jMoment}]=Table[

        GIn[{jPosition, jType, jMoment}, boundaryPoint], {boundaryPoint, integrandPoints}];

GOutArray[{jPosition_, jType_, jMoment_}]:=GOutArray[{jPosition, jType, jMoment}]=Table[

        GOut[{jPosition, jType, jMoment}, boundaryPoint], {boundaryPoint, integrandPoints}];

BiElements[{iVert_, iAxis_}, {jPosition_, jType_, jMoment_}:=

        Module[{r, n, delGj, ndelGj, ai},
        
            −sum[
            
                r=integrandPoints[[b]];
                n=Normalize[r];
                (* only valid in special cases like this icosahedron example!*)
                delGj=GOutArray[{jPosition, jType, jMoment}][[b]]−
                
                    GInArray[{jPosition, jType, jMoment}][[b]];
                
                
                ndelGj={n.delGj[[1]], −n×delGj[[2]]};
                ai=ABoundaryArray[[iVert, iAxis, b]];
                Conjugate[Flatten[ai]].Flatten[ndelGj],
                {b, Length[integrandPoints]}]
            
            
        
        
        ]

BiElements[{1, 2}, {{−3, 0, 0}, 2, {0, 1, 0}}]

0.00353349−0.0000673343 

Timing[BiElements[{1, 2}, {{−3, 0, 0}, 2, {0, 1, 0}}]]

{0.008198, 0.00353349−0.0000673343 }

MijElements[{1, 2}, {2, 1}]

9.31171×10−10+1.96883×10−9

Mij=Table[MijElements[i, j], {i, Flatten[Table[{iV, iA}, {iV, 12}, {iA, 3}], 1]},

        {j, Flatten[Table[{jV, jA}, {jV, 12}, {jA, 3}], 1]}];

Dimensions[Mij]

{36, 36}

Bi[{jPosition_, jType_, jMoment}]:=

        Bi[{jPosition, jType, jMoment}]=Table[BiElements[i, {jPosition, jType, jMoment}],
        
            {i, Flatten[Table[{iV, iA}, {iV, 12}, {iA, 3}], 1]}];

Bi[{{−3, 0, 0}, 2, {0, 1, 0}}]//Timing

{0.279801,

        
        
        {−0.0000154472+0.00212148 , 0.00353349−0.0000673343 , 0.00353349−0.0000673343 ,
        
            0.0000154478−0.00210332 , −0.00351065+0.0000673344 , 0.00351065−0.0000673345 ,
            −6.92762×10−6+0.00143421 , −0.00279257+0.0000388044 , 0.00624437−0.0000867694 ,
            6.89361×10−6−0.000692489 , 0.00156774−0.0000389464 , 0.00350558−0.0000870866 ,
            −6.89259×10−6+0.000715695 , 0.00277515−0.0000651538 , 0.00242714−0.0000485082 ,
            −6.89254×10−6+0.000715696 , 0.00342567−0.000072884 , 0.00136281−0.0000358607 ,
            6.92039×10−6−0.0012624 , −0.00409672+0.0000723698 , 0.00274654−0.0000358842 ,
            6.92059×10−6−0.0012624 , −0.00431265+0.0000649403 , 0.00239327−0.0000480399 ,
            −6.91449×10−6+0.00100584 , 0.00211736−0.0000227214 , −0.00138178+0.0000443868 ,
            −6.91422×10−6+0.00100585 , 0.00165808−9.69908×10−6 , 0.00190874−0.0000489121 ,
            6.90367×10−6−0.000839403 , 0.000372784+9.13468×10−6 , 0.00302993−0.0000494262 ,
            6.90383×106−0.000839402 , −0.000471118+0.0000223195 , −0.00301621+0.0000450359 }}

Dimensions[Bi[{{−3, 0, 0}, 2, {0, 1, 0}}]]

{36}

Det[Mij]

1.06913×10−42−1.58155×10−45 

        
        
    
    


Now we finally write an expression for the coefficients cij that are, essentially, the solution to the simulation problem:
Clear[cj]
cj[{jPosition_, jType_, jMoment_}]:=


    
    
        cj[{jPosition, jType, jMoment}]=Pseudolnverse[Mij].Bi[{jPosition, jType, jMoment}]
    
    


Check an example to make sure the result is plausible:
cj[{{−3, 0, 0}, 2, {0, 1, 0}}]
{−0.0000104354+0.00117721 , −0.00146225−0.0000325934 , −0.00146225−0.0000325938 ,


    
    
        0.0000104413−0.000897095 , −0.0033406+0.0000325356 , 0.0033406−0.0000325363 ,
        −4.69918×10−6+0.00153851 , −0.00687515+0.000016221 , 0.0153733−0.0000362668 ,
        4.64178×10−6−0.000243216 , 0.0005085−0.0000213212 , 0.00113704−0.0000476717 ,
        −4.6378×10−6+0.000173961 , −0.000207022−0.000035099, −0.00140622−0.0000286665 ,
        −4.63789×10−6+0.000173961 , −0.00134588−0.0000415203 , 0.000457087−0.0000181624 ,
        4.69492×10−6−0.0012167 , 0.00505055+0.0000286028 , 0.00657832−0.0000165175 ,
        4.69504×10−6−0.0012167 , −0.00355099+0.0000277442, −0.00749486−0.0000179202 ,
        −4.67589×10−6+0.000435258 , 0.00115974−0.0000141574 , −0.00325891+0.0000155605 ,
        −4.6757×10−6+0.000435259 , 0.000223062−9.35667×10−6 , 0.00345192−0.0000188447 ,
        4.66204×10−6−0.000273382 , 0.0046557−2.13439×10−7 , 0.00135437−0.0000286808 , 
        4.66207×10−6−0.000273381 , 0.00410691+7.6459×10−6 , −0.00257743+0.0000276424 }

cj[{{−3, 0, 0}, 2, {0, 1, 0}}]//Dimensions

{36}

    
    


Now use these coefficients to write an expression for the field F={ε0{right arrow over (E)}, (1/c){right arrow over (B)}/μ0}:
FSolu[{jP_, jT_, jM_}, r_]:=FIO[{jP, jT, jM}, r]+


    
    
        cj[{jP, jT, jM}].Table[FIO[j, r], {j, Flatten[Table[{jV, jA}, {jV, 12}, {jA, 3}], 1]}]
    
    


In the next section we look at this solution for a one example for the physcal dipole source.
Plots for a Solution with a Specified Physical Magnetic Dipole Source
As an example of solution results, we look at the field F around this ball, which has relative permittivity 3 and relative permeability 5, due to a dipole characterized by {{−3,0,0}, 2, {0,1,0}}: located at the point {−3,0,0}(at −3 on the x axis), of type 2 (magnetic dipole), and with a moment equal to {0,1,0} (parallel to the y axis). We look at a variety of field components in various planes, sometimes the real part and sometimes the imaginary part (corresponding to the field 1/4 cycle later).
FIGS. 47 and 48 show the real and imaginary parts of B in the {x,y} and {z,y} planes.
FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {1, 2, 3}]
{{−7.70568×10−6+0.000158859 , 8.30402×10−8−9.31969×10−6 , 0.0000106185−0.000234389 },


    
    
        {0.000429137+6.97908×10−7 , −0.000227677+0.000049124 , 0.000297142+1.04071×10−6 }}

GraphicsRow[{Show[{VectorPlot[Re[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}, {x, y, 0}][[2, {1, 2}]]],

        {x, −4/3, 4/3}, {y, −4/3, 4/3}, Axes→True, AxesLabel→{“x”, “y”},
        PlotLabel→“Re[{right arrow over (B)}]”], ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}]}],
        Show[{VectorPlot[Re[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {0, y, z}][[2, {3, 2}]]], {z, 4/3,
        
            −4/3}, {y, −4/3, 4/3}, Axes→True, AxesLabel→{“z”, “y”}, PlotLabel→“Re[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}]}]}, PlotLabel→“FIG. 47”]//Quiet

GraphicsRow[{Show[{VectorPlot[Im[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, y, 0}][[2, {1, 2}]]],

        {x, −4/3, 4/3}, {y, −4/3, 4/3}, Axes→True, AxesLabel→{“x”, “y”},
        PlotLabel→“Im[{right arrow over (B)}]”], ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}]}],
        Show[{VectorPlot[Im[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {0, y, z}][[2, {3, 2}]]], {z, 4/3,
        
            −4/3}, {y, −4/3, 4/3}, Axes→True, AxesLabel→{“z”, “y”}, PlotLabel→“Im[{right arrow over (B)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}]}]}, PlotLabel→“FIG. 48”]//Quiet
    
    


FIG. 49 shows the Real and Imaginary parts of the electric field E in the xz plane:
GraphicsRow[{Show[{VectorPlot[Re[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1, {1, 3}]]],


    
    
        {x, −4/3, 4/3}, {z, −4/3, 4/3}, Axes→True, AxesLabel→{“x”, “z”},
        PlotLabel→“Re[{right arrow over (E)}]”], ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}]}],
        Show[{VectorPlot[Im[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1, {1, 3}]]], {x, −4/3,
        
            4/3}, {z, −4/3, 4/3}, Axes→True, AxesLabel→{“x”, “z”}, PlotLabel→“Im[{right arrow over (E)}]”],
        
        
        ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}]}]}, PlotLabel→“FIG. 49”]//Quiet
    
    


All of these look excellent, with all boundary conditions well obeyed. Recall that the permittivity and permeability inside the sphere are 3 ε0 and 5μ0 (and ε0 and μ0 outside), so we expect that the normal component of {right arrow over (E)} (or of ε0 {right arrow over (E)}, as plotted here) will be 3 times larger on the outside of the spherical surface, and the tangential component of {right arrow over (B)} (or of (1/c){right arrow over (B)}/μ0, as plotted here) will be 5 times larger on the inside of the spherical surface.
In the last plots of this section, FIG. 50 below, the magnetic dipole axis is pointed out of the paper (since it is along the y axis). The imaginary part of the E field gets very large near the dipole, and so imaginary E vectors near the dipole are not plotted, resulting in a more intelligible plot. This physical magnetic dipole source is represented as a red dot.
GraphicsRow[


    
    
        {Show[VectorPlot[Re[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1, {1, 3}]]], {x, −4, 4},
        
            {z, −4, 4}, Axes→True, AxesLabel→{“x”, “z”}], ParametricPlot[{Cos [φ], Sin [φ]},
            {φ, 0, 2π}], Graphics[{Red, PointSize[Medium], Point[{−3, 0}]}],
        
        
        PlotLabel→“Re[{right arrow over (E)}]”], Show[VectorPlot[If[Norm[#]>1/30, {0, 0}, #]& @
        
            Im[FSolu[{{−3, 0, 0}, 2, {0, 1, 0}}, {x, 0, z}][[1, {1, 3}]]], {x, −4, 4},
        
        
        {z, −4, 4}, Axes→True, AxesLabel→, {“x”, “z”}, PlotLabel→“Im[{right arrow over (E)}]”],
        ParametricPlot[{Cos [φ], Sin [φ]}, {φ, 0, 2π}],
        Graphics [{Red, PointSize[Medium], Point [{−3, 0}]}]]}, PlotLabel→“FIG. 50”]//Quiet
    
    


Notes for Development of Algebraic Details and the Numerical Implementation
Introduction
The notes below are not needed to use and apply the methods of this provisional patent application, but may help to understand the motivation for some aspects of these methods. These notes are not well polished but may still be helpful.
Maxwell's Equation in Empty Space and in Polarizable Media Using Geometric Algebra
A summary of important geometric algebra equations used in the derivation of the numerical algorithms of the implementation example is useful, largely because it implicitly defines or at least constrains the meaning of various symbols, and because it gives various factors that depend on the units used (SI units are used here throughout—except for occasionally choosing the unit of time so that c=1).
The most important use of these equations is for the calculation of electromagnetic field F and potential A in each piecewise uniform region of polarizable media. We do this by first calculating Am and Fm since these may be easily calculated using the greens expressions, then applying the simple linear transform needed to get A and F from Am and Fm. In particular, this is how the potentials within each piecewise uniform region of space are calculated, before appropriate linear combinations are stitched together at the boundaries to make approximately continuous potentials. Details are not given here, but will be clear to anyone skilled in the relevant arts of electrodynamics and geometric algebra.
The same results may alternatively be found using vector algebra, but with more work.
A useful summary follows. I have attempted to avoid sign and other minor errors, but many not have caught all.

spacetime frame vectors: γ0,γ1,γ2,γ3,

γ02=1, γi2=−1 for i from 1 to 3, no implied sum  (52)

spacetime reciprocal frame vectors: γ0,γ1,γ2,γ3,

γαγα=1 for α from 0 to 3,no implied sum  (53)

space frame vectors for inertial frame associated with γ0:

{right arrow over (σ)}1=γ1γ0,{right arrow over (σ)}2=γ2γ0,{right arrow over (σ)}3=γ3γ0,{right arrow over (σ)}i2=1  (54)

unit pseudoscalar: γ0γ1γ2γ3=γ1γ0γ2γ0γ3γ0={right arrow over (σ)}1{right arrow over (σ)}2{right arrow over (σ)}3=III  (55)

Maxwell in free space (note that I am representing the d'Alembertian operator with □2, and using □ to represent the space-time vector derivative of geometric algebra):

□F=J  (56)

□=γα∂α=γ0(γ0·□+γ0^□)=





  
    
      
        
          
            γ
            0
          
          ⁡
          
            (
            
              
                
                  ∂
                  0
                
                ⁢
                
                  +
                  
                    γ
                    0
                  
                
              
              ⁢
              
                γ
                i
              
              ⁢
              
                ∂
                i
              
            
            )
          
        
        =
        
          
            
              γ
              0
            
            ⁡
            
              (
              
                
                  
                    ∂
                    0
                  
                  ⁢
                  
                    +
                    
                      γ
                      i
                    
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  ∂
                  i
                
              
              )
            
          
          =
          
            
              
                γ
                0
              
              ⁡
              
                (
                
                  
                    
                      ∂
                      0
                    
                    ⁢
                    
                      +
                      
                        
                          σ
                          ⇀
                        
                        i
                      
                    
                  
                  ⁢
                  
                    ∂
                    i
                  
                
                )
              
            
            =
            
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                    
                      1
                      c
                    
                    ⁢
                    
                      
                        ∂
                        t
                      
                      ⁢
                      
                        +
                        
                          ▽
                          ⇀
                        
                      
                    
                  
                  )
                
              
              =
              
                
                  (
                  
                    
                      1
                      c
                    
                    ⁢
                    
                      
                        ∂
                        t
                      
                      ⁢
                      
                        +
                        
                          ▽
                          ⇀
                        
                      
                    
                  
                  )
                
                ⁢
                
                  γ
                  0
                
              
            
          
        
      
    
    
      
        (
        57
        )
      
    
  
  
    
      
        F
        =
        
          
            
              ∈
              0
            
            ⁢
            
              
                E
                ⇀
              
              +
              
                III
                ⁢
                
                  1
                  c
                
                ⁢
                
                  1
                  
                    μ
                    0
                  
                
                ⁢
                
                  B
                  ⇀
                
              
            
          
          =
          
            
          
          ⁢
          
             
            
              
                
                  ∈
                  0
                
                ⁢
                
                  
                    E
                    i
                  
                  ⁢
                  
                    
                      σ
                      ⇀
                    
                    i
                  
                  ⁢
                  III
                  ⁢
                  
                    1
                    c
                  
                  ⁢
                  
                    1
                    
                      μ
                      0
                    
                  
                  ⁢
                  
                    B
                    i
                  
                  ⁢
                  
                    
                      σ
                      ⇀
                    
                    i
                  
                
              
              =
              
                 
                
                  
                    ∈
                    0
                  
                  ⁢
                  
                    
                      
                        E
                        i
                      
                      ⁢
                      
                        γ
                        i
                      
                      ⁢
                      
                        γ
                        0
                      
                    
                    +
                    
                      
                        1
                        c
                      
                      ⁢
                      
                        1
                        
                          μ
                          0
                        
                      
                    
                  
                  ⁢
                  
                    ∈
                    i
                    
                      j
                      ,
                      k
                    
                  
                  ⁢
                  
                    
                      B
                      i
                    
                    ⁢
                    
                      γ
                      j
                    
                    ⁢
                    
                      γ
                      k
                    
                  
                
              
            
          
        
      
    
    
      
        (
        58
        )
      
    
  
  
    
      
        J
        =
        
          
            
              γ
              0
            
            ⁢
            
              γ
              0
            
            ⁢
            J
          
          =
          
            
              
                γ
                0
              
              ⁡
              
                (
                
                  
                    
                      γ
                      0
                    
                    ·
                    J
                  
                  +
                  
                    
                      γ
                      0
                    
                    ^
                    J
                  
                
                )
              
            
            =
            
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                    
                      J
                      ·
                      
                        γ
                        0
                      
                    
                    -
                    
                      J
                      ^
                      
                        γ
                        0
                      
                    
                  
                  )
                
              
              =
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                    ρ
                    -
                    
                      
                        1
                        c
                      
                      ⁢
                      
                        J
                        ⇀
                      
                    
                  
                  )
                
              
            
          
        
      
    
    
      
        (
        59
        )
      
    
  




    
    
        where {β, {right arrow over (J)}} is all charge and current density
    
    


Maxwell in polarizable medium m with 4-velocity γ0:

□mFm=Jm  (60)





  
    
      
        
          □
          m
        
        ⁢
        
          =
          
            
              (
              
                
                  1
                  
                    v
                    m
                  
                
                ⁢
                
                  
                    ∂
                    t
                  
                  ⁢
                  
                    -
                    
                      ▽
                      ⇀
                    
                  
                
              
              )
            
            ⁢
            
              γ
              0
            
          
        
      
    
    
      
        (
        61
        )
      
    
  
  
    
      
        
          F
          m
        
        =
        
          
            ∈
            m
          
          ⁢
          
            
              E
              ⇀
            
            +
            
              III
              ⁢
              
                1
                
                  v
                  m
                
              
              ⁢
              
                1
                
                  μ
                  m
                
              
              ⁢
              
                B
                ⇀
              
            
          
        
      
    
    
      
        (
        62
        )
      
    
  
  
    
      
        
          
            
              J
              m
            
            =
            
              
                γ
                0
              
              ⁡
              
                (
                
                  
                    ρ
                    m
                  
                  -
                  
                    
                      1
                      
                        v
                        m
                      
                    
                    ⁢
                    
                      
                        J
                        ⇀
                      
                      m
                    
                  
                
                )
              
            
          
          ⁢
          
            
          
          ⁢
          
            

          
          ⁢
          
            where
            ⁢
            
              
            
            ⁢
            
              {
              
                
                  ρ
                  m
                
                ,
                
                  
                    J
                    ⇀
                  
                  m
                
              
              }
            
            ⁢
            
              
            
            ⁢
            is
            ⁢
            
              
            
            ⁢
            all
            ⁢
            
              
            
            ⁢
            charge
            ⁢
            
              
            
            ⁢
            and
            ⁢
            
              
            
            ⁢
            current
            ⁢
            
              
            
            ⁢
            density
            ⁢
            
              
            
            ⁢
            that
            ⁢
            
              
            
            ⁢
            is
          
          ⁢
          
            
          
          ⁢
          
            

          
          ⁢
          
            not
            ⁢
            
              
            
            ⁢
            associated
            ⁢
            
              
            
            ⁢
            with
            ⁢
            
              
            
            ⁢
            polarization
            ⁢
            
              
            
            ⁢
            of
            ⁢
            
              
            
            ⁢
            the
            ⁢
            
              
            
            ⁢
            medium
            ⁢
            
              
            
            ⁢
            m
          
        
        ⁢
        
          
        
      
    
    
      
        (
        63
        )
      
    
  




Maxwell in polarizable medium m with 4-velocity γ0 written as two multivector equations corresponding directly to the common Gibbs' vector expression of Maxwell using four equations:

□·G=Jf  (64)

□^F=0  (65)





  
    
      
        G
        =
        
          
            
              ∈
              m
            
            ⁢
            
              
                E
                ⇀
              
              +
              
                III
                ⁢
                
                  1
                  c
                
                ⁢
                
                  1
                  
                    μ
                    m
                  
                
                ⁢
                
                  B
                  ⇀
                
              
            
          
          =
          
            
              D
              ⇀
            
            +
            
              III
              ⁢
              
                1
                c
              
              ⁢
              
                H
                ⇀
              
            
          
        
      
    
    
      
        (
        66
        )
      
    
  
  
    
      
        
          
            
              J
              f
            
            =
            
              
                γ
                0
              
              ⁡
              
                (
                
                  
                    ρ
                    m
                  
                  -
                  
                    
                      1
                      c
                    
                    ⁢
                    
                      
                        J
                        ⇀
                      
                      m
                    
                  
                
                )
              
            
          
          ⁢
          
            
          
          ⁢
          
            

          
          ⁢
          
            where
            ⁢
            
              
            
            ⁢
            
              {
              
                
                  ρ
                  m
                
                ,
                
                  
                    J
                    ⇀
                  
                  m
                
              
              }
            
            ⁢
            
              
            
            ⁢
            is
            ⁢
            
              
            
            ⁢
            all
            ⁢
            
              
            
            ⁢
            charge
            ⁢
            
              
            
            ⁢
            and
            ⁢
            
              
            
            ⁢
            current
            ⁢
            
              
            
            ⁢
            density
            ⁢
            
              
            
            ⁢
            that
          
          ⁢
          
            

          
          ⁢
          
            is
            ⁢
            
              
            
            ⁢
            not
            ⁢
            
              
            
            ⁢
            associated
            ⁢
            
              
            
            ⁢
            with
            ⁢
            
              
            
            ⁢
            polarization
            ⁢
            
              
            
            ⁢
            of
            ⁢
            
              
            
            ⁢
            the
            ⁢
            
              
            
            ⁢
            medium
            ⁢
            
              
            
            ⁢
            m
          
        
        ⁢
        
          
        
      
    
    
      
        (
        67
        )
      
    
  




Potential both in free space and in polarizable media—

□2A=J  (68)

A=Aαγα  (69)





  
    
      
        A
        =
        
          
            
              γ
              0
            
            ⁢
            
              γ
              0
            
            ⁢
            A
          
          =
          
            
              
                γ
                0
              
              ⁡
              
                (
                
                  
                    
                      γ
                      0
                    
                    ·
                    A
                  
                  +
                  
                    
                      γ
                      0
                    
                    ⋀
                    A
                  
                
                )
              
            
            =
            
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                    
                      A
                      ·
                      
                        γ
                        0
                      
                    
                    -
                    
                      A
                      ⋀
                      
                        γ
                        0
                      
                    
                  
                  )
                
              
              =
              
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        ∈
                        0
                      
                      ⁢
                      
                        φ
                        -
                        
                          
                            1
                            c
                          
                          ⁢
                          
                            1
                            
                              μ
                              0
                            
                          
                          ⁢
                          
                            A
                            ⇀
                          
                        
                      
                    
                    )
                  
                
                =
                
                  
                    (
                    
                      
                        ∈
                        0
                      
                      ⁢
                      
                        φ
                        +
                        
                          
                            1
                            c
                          
                          ⁢
                          
                            1
                            
                              μ
                              0
                            
                          
                          ⁢
                          
                            A
                            ⇀
                          
                        
                      
                    
                    )
                  
                  ⁢
                  
                    γ
                    0
                  
                
              
            
          
        
      
    
    
      
        (
        70
        )
      
    
  




F=□A=□^A  (71)

Auxiliary or Media Potential, typically defined and used in polarizable media—

□m2Am=Jm  (72)





  
    
      
        
          
            A
            m
          
          =
          
            
              
                γ
                0
              
              ⁡
              
                (
                
                  
                    ∈
                    m
                  
                  ⁢
                  
                    φ
                    -
                    
                      
                        1
                        
                          v
                          m
                        
                      
                      ⁢
                      
                        1
                        
                          μ
                          m
                        
                      
                      ⁢
                      
                        A
                        ⇀
                      
                    
                  
                
                )
              
            
            =
            
              
                (
                
                  
                    ∈
                    m
                  
                  ⁢
                  
                    φ
                    +
                    
                      
                        1
                        
                          v
                          m
                        
                      
                      ⁢
                      
                        1
                        
                          μ
                          m
                        
                      
                      ⁢
                      
                        A
                        ⇀
                      
                    
                  
                
                )
              
              ⁢
              
                γ
                0
              
            
          
        
        ⁢
        
          

        
        ⁢
        
          where
          ⁢
          
            
          
          ⁢
          φ
          ⁢
          
            
          
          ⁢
          and
          ⁢
          
            
          
          ⁢
          
            A
            ⇀
          
          ⁢
          
            
          
          ⁢
          are
          ⁢
          
            
          
          ⁢
          the
          ⁢
          
            
          
          ⁢
          same
          ⁢
          
            
              
            
            ⁢
            
              
            
          
          ⁢
          as
          ⁢
          
            
          
          ⁢
          used
          ⁢
          
            
          
          ⁢
          in
          ⁢
          
            
          
          ⁢
          A
        
      
    
    
      
        (
        73
        )
      
    
  




F=□A=□^A  (74)

Complex notation, allowed in a specified or implied frame associated with γ0—

a[{right arrow over (r)},t]=a[{right arrow over (r)}]Exp[−ωt],ω≧0  (75)

Greens' functions gw and gm and use of greens functions:




  
    
      
        
          
            -
            
              (
              
                
                  
                    ▽
                    ⇀
                  
                  2
                
                +
                
                  
                    (
                    
                      ω
                      /
                      c
                    
                    )
                  
                  2
                
              
              )
            
          
          ⁢
          g
          ⁢
          
            
          
          ⁢
          
            w
            ⁡
            
              [
              R
              ]
            
          
        
        =
        
          -
          
            δ
            ⁡
            
              [
              R
              ]
            
          
        
      
    
    
      
        (
        76
        )
      
    
  
  
    
      
        
          g
          ⁢
          
            
          
          ⁢
          
            w
            ⁡
            
              [
              R
              ]
            
          
        
        =
        
          
            
              
                -
                1
              
              
                4
                ⁢
                
                  
                
                ⁢
                π
                ⁢
                
                  
                
                ⁢
                R
              
            
            ⁢
            
              Exp
              ⁡
              
                [
                
                  
                    +
                    i
                  
                  ⁢
                  
                    
                  
                  ⁢
                  kR
                
                ]
              
            
            ⁢
            
              (
              retarded
              )
            
            ⁢
            
              
            
            ⁢
            with
            ⁢
            
              
            
            ⁢
            ω
          
          =
          
            Abs
            ⁡
            
              [
              kc
              ]
            
          
        
      
    
    
      
        (
        77
        )
      
    
  




□gm[R]=−δ[R]  (78)





  
    
      
        
          g
          ⁢
          
            
          
          ⁢
          
            m
            ⁡
            
              [
              R
              ]
            
          
        
        =
        
          
            
              (
              
                
                  ▽
                  ⇀
                
                -
                
                  iω
                  /
                  c
                
              
              )
            
            ⁢
            g
            ⁢
            
              
            
            ⁢
            
              w
              ⁡
              
                [
                R
                ]
              
            
          
          =
          
            
              1
              
                4
                ⁢
                
                  
                
                ⁢
                π
                ⁢
                
                  
                
                ⁢
                
                  R
                  3
                
              
            
            ⁢
            
              Exp
              ⁡
              
                [
                
                  
                    +
                    i
                  
                  ⁢
                  
                    
                  
                  ⁢
                  kR
                
                ]
              
            
            ⁢
            
              (
              
                
                  
                    R
                    ⇀
                  
                  ⁡
                  
                    (
                    
                      1
                      -
                      
                        i
                        ⁢
                        
                          
                        
                        ⁢
                        kR
                      
                    
                    )
                  
                
                +
                
                  iω
                  /
                  
                    cR
                    2
                  
                
              
              )
            
          
        
      
    
    
      
        (
        79
        )
      
    
  








  
    
      
        
          A
          ⁡
          
            [
            
              r
              ′
            
            ]
          
        
        =
        
          
            
              ∫
              
                ∂
                Ω
              
            
            ⁢
            
              g
              ⁢
              
                
              
              ⁢
              
                w
                ⁡
                
                  [
                  
                    r
                    -
                    
                      r
                      ′
                    
                  
                  ]
                
              
              ⁢
              
                
              
              ⁢
              
                
                  d
                  Σ
                
                ⇀
              
              ⁢
              
                
              
              ⁢
              
                A
                ⁡
                
                  [
                  r
                  ]
                
              
            
          
          -
          
            
              ∫
              Ω
            
            ⁢
            
              g
              ⁢
              
                
              
              ⁢
              
                w
                ⁡
                
                  [
                  
                    r
                    -
                    
                      r
                      ′
                    
                  
                  ]
                
              
              ⁢
              
                
              
              ⁢
              
                d
                Ω
              
              ⁢
              
                
              
              ⁢
              
                J
                ⁡
                
                  [
                  r
                  ]
                
              
            
          
        
      
    
    
      
        (
        80
        )
      
    
  
  
    
      
        
          F
          ⁡
          
            [
            
              r
              ′
            
            ]
          
        
        =
        
          
            
              ∫
              
                ∂
                Ω
              
            
            ⁢
            
              g
              ⁢
              
                
              
              ⁢
              
                m
                ⁡
                
                  [
                  
                    r
                    -
                    
                      r
                      ′
                    
                  
                  ]
                
              
              ⁢
              
                
              
              ⁢
              
                
                  d
                  Σ
                
                ⇀
              
              ⁢
              
                
              
              ⁢
              
                F
                ⁡
                
                  [
                  r
                  ]
                
              
            
          
          -
          
            
              ∫
              Ω
            
            ⁢
            
              g
              ⁢
              
                
              
              ⁢
              
                m
                ⁡
                
                  [
                  
                    r
                    -
                    
                      r
                      ′
                    
                  
                  ]
                
              
              ⁢
              
                
              
              ⁢
              
                d
                Ω
              
              ⁢
              
                
              
              ⁢
              
                J
                ⁡
                
                  [
                  r
                  ]
                
              
            
          
        
      
    
    
      
        (
        81
        )
      
    
  




Signs from Space-Time to Space
It is convenient to summarize signs relating some 4D space-time and 3D space quantities:

A=Aαγα=A0γ0+Aiγi  (82)

Aγ0=Aαγαγ0=A0γ0γ0+Aiγiγ0=A0+Ai{right arrow over (σ)}i  (83)

□=γα∂α=γ0∂0+γi∂i=γ0∂0−γi∂i  (84)

□γ0=γαγ0∂α=γ0γ0∂0+γiγ0∂i=γ0γ0∂0−γiγ0∂i=∂0−{right arrow over (σ)}i∂i  (85)

Spacetime Splits
We will use complex valued representations of various quantities, in which quantities with space and time dependence are represented as the Real parts of products of one factor with only space dependence and one factor with only the time dependence Exp[−ωt].
This representation requires that we first identify a space-time split associated with a time-like frame vector γ0. For the position vector (displacement from a reference body) x, we have

x=xαγα=x0γ0+xiγi  (86)

xγ0=x·γ0+x^γ0=x0+xiγiγ0=x0+xi{right arrow over (σ)}i=t+{right arrow over (x)}  (87)

For the potential A, we have

Aγ0=A·γ0+A^γ0=φ+{right arrow over (A)}  (88)

Time Reversal without Using a Complex Representation
An “active” interpretation of time reversal is used, in which we leave the space and frame and observer unchanged, but change the physical system being observed. Time reversal may also be developed using a passive interpretation, in which the physical system is unchanged but the space, frame, or observer are changed. Either might be used; very important it not to mix them.
This section outlines some basic ideas and of time reversal needed to define time reversed charge-current sources and associated potentials and fields, without using a complex number representation of time dependence.
Time reversal is defined with implicit reference to a particular frame and origin as follows.
For a space-time position vector function of proper time

x[τ]=γ0x0[τ]+γixi[τ]  (89)

the associated time-reversed space-time function is

x′[τ]=−γ0x[−τ]γ0=−γ0x0[−τ]+γixi[−τ]=γ0x0[τ]+γixi[−τ]  (90)

This is equivalent to saying that for a position vector function of time j[t], the associated time-reversed function is

{right arrow over (x)}′[t]={right arrow over (x)}[−t]  (91)

For a scalar function of time s[t], the associated time-reversed function is

s′[t]=s[−t]  (92)

For a velocity vector function of time {right arrow over (v)}[t]=∂t{right arrow over (x)}[t], the associated time-reversed function is

{right arrow over (v)}′[t]={right arrow over (v)}[−t]  (93)

For a charge-current source function of time

J[t]=γ0(ρ[t]−{right arrow over (J)}[t])  (94)

the associated time-reversed function is

J′[t]=γ0(ρ[−t]+{right arrow over (J)}[−t])  (95)

For space-time vector derivative □=x0∂0+xi∂i, the associated time-reversed space-time vector derivative is unchanged in this active definition of time reversal.




  
    
      
        
          
            
              For
              ⁢
              
                
              
              ⁢
              the
              ⁢
              
                
              
              ⁢
              wave
              ⁢
              
                
                  
                
                ⁢
                
                  
                
              
              ⁢
              equation
            
          
          
            
              
                
                  
                    □
                    2
                  
                  ⁢
                  A
                
                =
                J
              
              ,
            
          
        
        
          
            if
          
          
            
              
                
              
              ⁢
              
                
                  A
                  ⁡
                  
                    [
                    t
                    ]
                  
                
                =
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        φ
                        ⁡
                        
                          [
                          t
                          ]
                        
                      
                      -
                      
                        A
                        ⁡
                        
                          [
                          t
                          ]
                        
                      
                    
                    )
                  
                
              
            
          
        
        
          
            
              
                is
                ⁢
                
                  
                    
                  
                  ⁢
                  
                    
                  
                
                ⁢
                a
                ⁢
                
                  
                
                ⁢
                solution
                ⁢
                
                  
                
                ⁢
                with
              
              ⁢
              
                
              
            
          
          
            
              
                J
                ⁡
                
                  [
                  t
                  ]
                
              
              =
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                    
                      ρ
                      ⁡
                      
                        [
                        t
                        ]
                      
                    
                    -
                    
                      
                        J
                        ⇀
                      
                      ⁡
                      
                        [
                        t
                        ]
                      
                    
                  
                  )
                
              
            
          
        
        
          
            then
          
          
            
              
                
                  A
                  ′
                
                ⁡
                
                  [
                  t
                  ]
                
              
              =
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                    
                      φ
                      ⁡
                      
                        [
                        
                          -
                          t
                        
                        ]
                      
                    
                    +
                    
                      
                        A
                        ⇀
                      
                      ⁡
                      
                        [
                        
                          -
                          t
                        
                        ]
                      
                    
                  
                  )
                
              
            
          
        
        
          
            
              
                is
                ⁢
                
                  
                
                ⁢
                a
                ⁢
                
                  
                    
                  
                  ⁢
                  
                    
                  
                
                ⁢
                solution
                ⁢
                
                  
                
                ⁢
                with
                ⁢
                
                  
                
                ⁢
                the
              
              ⁢
              
                
              
            
          
          
            
              
            
          
        
        
          
            
              
                time-reversed source
              
              ⁢
              
                
              
            
          
          
            
              
                
                  J
                  ′
                
                ⁡
                
                  [
                  t
                  ]
                
              
              =
              
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        ρ
                        ⁡
                        
                          [
                          
                            -
                            t
                          
                          ]
                        
                      
                      +
                      
                        
                          J
                          ⇀
                        
                        ⁡
                        
                          [
                          
                            -
                            t
                          
                          ]
                        
                      
                    
                    )
                  
                
                .
              
            
          
        
        
          
            
              For
              ⁢
              
                
              
              ⁢
              the
              ⁢
              
                
                  
                
                ⁢
                
                  
                
              
              ⁢
              quantity
            
          
          
            
              
                F
                =
                
                  □
                  
                    ⋀
                    A
                  
                
              
              ,
            
          
        
        
          
            if
          
          
            
              
                
                  A
                  ⁡
                  
                    [
                    t
                    ]
                  
                
                =
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        φ
                        ⁡
                        
                          [
                          t
                          ]
                        
                      
                      -
                      
                        
                          A
                          ⇀
                        
                        ⁡
                        
                          [
                          t
                          ]
                        
                      
                    
                    )
                  
                
              
              ,
            
          
        
      
    
    
      
        (
        96
        )
      
    
  




For the wave equation

if

is a solution with

then

is a solution with the

time-reversed source J′[t]=γ0(ρ[−t]+{right arrow over (J)}[−t]).

For the quantity F=□^A,
if A[t]=γ0(φ[t]−{right arrow over (A)}[t]),
then the associated time-revrse quantity is




  
    
      
        
          F
          ′
        
        =
        
          
            
              〈
              
                □
                
                  
                
                ⁢
                
                  A
                  ′
                
              
              〉
            
            2
          
          =
          
            
              
                〈
                
                  
                    □
                    
                      γ
                      0
                    
                  
                  ⁢
                  
                    γ
                    0
                  
                  ⁢
                  
                    A
                    ′
                  
                
                〉
              
              2
            
            =
            
              
                
                  〈
                  
                    
                      (
                      
                        
                          (
                          
                            1
                            /
                            c
                          
                          )
                        
                        ⁢
                        
                          
                            ∂
                            t
                          
                          ⁢
                          
                            -
                            
                              ▽
                              ⇀
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      (
                      
                        
                          φ
                          ⁡
                          
                            [
                            
                              -
                              t
                            
                            ]
                          
                        
                        +
                        
                          
                            A
                            ⇀
                          
                          ⁡
                          
                            [
                            
                              -
                              t
                            
                            ]
                          
                        
                      
                      )
                    
                  
                  〉
                
                2
              
              =
              
                
                  
                    
                      
                        〈
                        
                          
                            (
                            
                              
                                -
                                
                                  (
                                  
                                    1
                                    /
                                    c
                                  
                                  )
                                
                              
                              ⁢
                              
                                
                                  ∂
                                  t
                                
                                ⁢
                                
                                  -
                                  
                                    ▽
                                    ⇀
                                  
                                
                              
                            
                            )
                          
                          ⁢
                          
                            (
                            
                              
                                φ
                                ⁡
                                
                                  [
                                  t
                                  ]
                                
                              
                              +
                              
                                
                                  A
                                  ⇀
                                
                                ⁡
                                
                                  [
                                  t
                                  ]
                                
                              
                            
                            )
                          
                        
                        〉
                      
                      2
                    
                    /
                  
                  ·
                  
                    {
                    
                      t
                      →
                      
                        -
                        t
                      
                    
                    }
                  
                
                =
                
                  
                    
                      
                        (
                        
                          
                            
                              -
                              
                                ▽
                                ⇀
                              
                            
                            ⁢
                            
                              φ
                              ⁡
                              
                                [
                                t
                                ]
                              
                            
                          
                          -
                          
                            
                              (
                              
                                1
                                /
                                c
                              
                              )
                            
                            ⁢
                            
                              
                                ∂
                                t
                              
                              ⁢
                              
                                
                                  A
                                  ⇀
                                
                                ⁡
                                
                                  [
                                  t
                                  ]
                                
                              
                            
                          
                          -
                          
                            
                              ▽
                              ⇀
                            
                            ⋀
                            
                              
                                A
                                ⇀
                              
                              ⁡
                              
                                [
                                t
                                ]
                              
                            
                          
                        
                        )
                      
                      /
                    
                    ·
                    
                      {
                      
                        t
                        →
                        
                          -
                          t
                        
                      
                      }
                    
                  
                  =
                  
                    
                      
                        〈
                        F
                        〉
                      
                      1
                    
                    -
                    
                      
                        
                          
                            〈
                            F
                            〉
                          
                          2
                        
                        /
                      
                      ·
                      
                        {
                        
                          t
                          →
                          
                            -
                            t
                          
                        
                        }
                      
                    
                  
                
              
            
          
        
      
    
    
      
        (
        97
        )
      
    
  




Complex Representation, Time Reversal, and Divergence of Potential A
When we use a complex number representation of time, we assume a particular space-time split with a particular frame vector γ0, and then we factor any function of space-time x, such as the electromagnetic potential A[x], into one factor that depends only on x^γ0={right arrow over (x)} and one that depends only on x·γ0=t:

[x]=A[{right arrow over (x)}]Exp[−ωt]=γ0(φ[{right arrow over (x)}]−{right arrow over (A)}[{right arrow over (x)}])Exp[−ωt]  (98)

We assume that the only the Real part of this is physically significant, but it turns out to be simpler to nevertheless do the math for both Real and Imaginary parts.
With this complex representation, and in a particular frame γ0, we have the divergence of the potential




  
    
      
        
          □
          
            ·
                      
        
        =
        
          
            〈
            
              □
                          
            〉
          
          =
          
            
              〈
              
                
                  □
                  
                    γ
                    0
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                              
              〉
            
            =
            
              
                〈
                
                  
                    □
                    
                      γ
                      0
                    
                  
                  ⁢
                  
                    γ
                    0
                  
                  ⁢
                  
                    A
                    ⁡
                    
                      [
                      
                        X
                        ⇀
                      
                      ]
                    
                  
                  ⁢
                  
                    Exp
                    ⁡
                    
                      [
                      
                        
                          -
                          i
                        
                        ⁢
                        
                          
                        
                        ⁢
                        ω
                        ⁢
                        
                          
                        
                        ⁢
                        t
                      
                      ]
                    
                  
                
                〉
              
              =
              
                
                  〈
                  
                    
                      (
                      
                        
                          ∂
                          0
                        
                        ⁢
                        
                          -
                          
                            ▽
                            ⇀
                          
                        
                      
                      )
                    
                    ⁢
                    
                      (
                      
                        
                          φ
                          ⁡
                          
                            [
                            
                              x
                              ⇀
                            
                            ]
                          
                        
                        -
                        
                          
                            A
                            ⇀
                          
                          ⁡
                          
                            [
                            
                              x
                              ⇀
                            
                            ]
                          
                        
                      
                      )
                    
                    ⁢
                    
                      Exp
                      ⁡
                      
                        [
                        
                          
                            -
                            i
                          
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          t
                        
                        ]
                      
                    
                  
                  〉
                
                =
                
                  
                    
                      〈
                      
                        
                          (
                          
                            
                              
                                -
                                i
                              
                              ⁢
                              
                                
                              
                              ⁢
                              ω
                            
                            -
                            
                              ▽
                              ⇀
                            
                          
                          )
                        
                        ⁢
                        
                          (
                          
                            φ
                            ⁡
                            
                              [
                              
                                x
                                ⇀
                              
                              ]
                            
                          
                          )
                        
                      
                      〉
                    
                    ⁢
                    
                      Exp
                      ⁡
                      
                        [
                        
                          
                            -
                            i
                          
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          t
                        
                        ]
                      
                    
                  
                  =
                  
                    
                      (
                      
                        
                          
                            -
                            i
                          
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          
                            φ
                            ⁡
                            
                              [
                              
                                x
                                ⇀
                              
                              ]
                            
                          
                        
                        +
                        
                          
                            ▽
                            ⇀
                          
                          ·
                          
                            
                              A
                              ⇀
                            
                            ⁡
                            
                              [
                              
                                x
                                ⇀
                              
                              ]
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      Exp
                      ⁡
                      
                        [
                        
                          
                            -
                            i
                          
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          t
                        
                        ]
                      
                    
                  
                
              
            
          
        
      
    
    
      
        (
        99
        )
      
    
  




Define a potential ′ in terms of  by




  
    
      
        
          
                        ′
          
          ⁡
          
            [
            x
            ]
          
        
        =
        
          
            
              
                
                  γ
                  0
                
                ⁡
                
                  (
                  
                                        ⁡
                    
                      [
                      
                        
                          -
                          
                            γ
                            0
                          
                        
                        ⁢
                        x
                        ⁢
                        
                          
                        
                        ⁢
                        
                          γ
                          0
                        
                      
                      ]
                    
                  
                  )
                
              
              †
            
            ⁢
            
              γ
              0
            
          
          =
          
            
              
                γ
                0
              
              ⁢
              
                
                  A
                  †
                
                ⁡
                
                  [
                  
                    x
                    ⇀
                  
                  ]
                
              
              ⁢
              
                γ
                0
              
              ⁢
              
                Exp
                ⁡
                
                  [
                  
                    
                      -
                      i
                    
                    ⁢
                    
                      
                    
                    ⁢
                    ω
                    ⁢
                    
                      
                    
                    ⁢
                    t
                  
                  ]
                
              
            
            =
            
              
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        
                          φ
                          *
                        
                        ⁡
                        
                          [
                          
                            x
                            ⇀
                          
                          ]
                        
                      
                      +
                      
                        
                          
                            A
                            ⇀
                          
                          *
                        
                        ⁡
                        
                          [
                          
                            x
                            ⇀
                          
                          ]
                        
                      
                    
                    )
                  
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              =
              
                
                  
                    A
                    ′
                  
                  ⁡
                  
                    [
                    
                      x
                      ⇀
                    
                    ]
                  
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
            
          
        
      
    
    
      
        (
        100
        )
      
    
  




where we have used the definition

A′[{right arrow over (x)}]=γ0A†[{right arrow over (x)}]γ0  (101)

Then the divergence of ′ is

□·′=(−ωφ*[{right arrow over (x)}]−{right arrow over (∇)}·{right arrow over (A)}*[{right arrow over (x)}])Exp[−ωt]=(ωφ[{right arrow over (x)}]−{right arrow over (∇)}·{right arrow over (A)}[{right arrow over (x)}])*Exp[−ωt]  (102)

Let the divergence of (be called =K Exp[−ωt] and the divergence of ′ be called ′=K′Exp[−ωt]. Then K′=K*; in particular, if K=0 then K′=0.
Suppose A is written as an integral of a green function g times a source J:




  
    
      
        
          
            γ
            0
          
          ⁢
          
            A
            ⁡
            
              [
              
                
                  x
                  ⇀
                
                ′
              
              ]
            
          
        
        =
        
          
            -
            
              ∫
              
                
                  g
                  ⁡
                  
                    [
                    
                      
                        x
                        ⇀
                      
                      -
                      
                        
                          x
                          ⇀
                        
                        ′
                      
                    
                    ]
                  
                
                ⁢
                
                  d
                  v
                
                ⁢
                
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  J
                  ⁡
                  
                    [
                    
                      x
                      ⇀
                    
                    ]
                  
                
              
            
          
          =
          
            -
            
              ∫
              
                
                  g
                  ⁡
                  
                    [
                    
                      
                        x
                        ⇀
                      
                      -
                      
                        
                          x
                          ⇀
                        
                        ′
                      
                    
                    ]
                  
                
                ⁢
                
                  d
                  
                    v
                    ⁡
                    
                      (
                      
                        
                          ρ
                          ⁡
                          
                            [
                            
                              x
                              ⇀
                            
                            ]
                          
                        
                        -
                        
                          
                            J
                            ⇀
                          
                          ⁡
                          
                            [
                            
                              x
                              ⇀
                            
                            ]
                          
                        
                      
                      )
                    
                  
                
              
            
          
        
      
    
    
      
        (
        103
        )
      
    
  




Then





  
    
      
        
          
            γ
            0
          
          ⁢
          
            
              A
              ′
            
            ⁡
            
              [
              
                
                  x
                  ⇀
                
                ′
              
              ]
            
          
        
        =
        
          
            
              γ
              0
            
            ⁡
            
              (
              
                
                  γ
                  0
                
                ⁢
                
                  
                    A
                    *
                  
                  ⁡
                  
                    [
                    
                      
                        x
                        ⇀
                      
                      ′
                    
                    ]
                  
                
                ⁢
                
                  γ
                  0
                
              
              )
            
          
          =
          
            
              -
              
                ∫
                
                  
                    
                      g
                      *
                    
                    ⁡
                    
                      [
                      
                        x
                        -
                        
                          x
                          ′
                        
                      
                      ]
                    
                  
                  ⁢
                  
                    d
                    v
                  
                  ⁢
                  
                    
                  
                  ⁢
                  
                    
                      J
                      *
                    
                    ⁡
                    
                      [
                      x
                      ]
                    
                  
                  ⁢
                  
                    γ
                    0
                  
                
              
            
            =
            
              -
              
                ∫
                
                  
                    
                      g
                      *
                    
                    ⁡
                    
                      [
                      
                        x
                        -
                        
                          x
                          ′
                        
                      
                      ]
                    
                  
                  ⁢
                  
                    d
                    v
                  
                  ⁢
                  
                    
                  
                  ⁢
                  
                    (
                    
                      
                        ρ
                        ⁡
                        
                          [
                          
                            x
                            ⇀
                          
                          ]
                        
                      
                      -
                      
                        
                          
                            J
                            ⇀
                          
                          *
                        
                        ⁡
                        
                          [
                          
                            x
                            ⇀
                          
                          ]
                        
                      
                    
                    )
                  
                
              
            
          
        
      
    
    
      
        (
        104
        )
      
    
  




Since g is scalar, g* also equals γ0 g* γ0 and we have that the potential A′[{right arrow over (x)}] due to the time-reversed source J′ and the advanced green function is γ0A* [{right arrow over (x)}]γ0.
That is,
if the potential A[{right arrow over (x)}] is due to the source J[{right arrow over (x)}]=γ0(β−{right arrow over (J)}) and the retarded Green's functions g, then the potential A′[{right arrow over (x)}]=γ0A†[{right arrow over (x)}]γ0 is due to the time-reversed source J′[{right arrow over (x)}]=γ0J*[{right arrow over (x)}]γ0=γ0(ρ*+{right arrow over (J)}*) and the advanced Green's function γ0g*γ0.
Complex Representation, Time Reversal, and Divergence of Field F
Time reversal of scalars like the charge density ρ:

Re[ρExp[−ωt]]→Re[ρExp[+ωt]]=Re[ρ*Exp[−ωt]]  (105)

Time reversal of vector velocities like the 3D current density {right arrow over (J)}:

Re[{right arrow over (J)}Exp[−ωt]]→Re[−{right arrow over (J)}Exp[+ωt]]=Re[−{right arrow over (J)}*Exp[−ωt]]  (106)

So a source J=(ρ−{right arrow over (J)}) γ0 reverses like

Re[J Exp[−ωt]]→Re[γ0Jγ0Exp[+ωt]]=Re[γ0J*γ0Exp[−ωt]]  (107)

For example, for an oscillating charge density,




  
    
      
        
          
            Re
            [
            
              
                (
                
                  ρ
                  -
                  
                    I
                    ⁢
                    
                      
                    
                    ⁢
                    ω
                    ⁢
                    
                      
                    
                    ⁢
                    
                      ▽
                      ⇀
                    
                    ⁢
                    ρ
                  
                
                )
              
              ⁢
              
                Exp
                ⁡
                
                  [
                  
                    
                      -
                      i
                    
                    ⁢
                    
                      
                    
                    ⁢
                    ω
                    ⁢
                    
                      
                    
                    ⁢
                    t
                  
                  ]
                
              
            
            )
          
          →
          
            Re
            ⁡
            
              [
              
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      ρ
                      -
                      
                        I
                        ⁢
                        
                          
                        
                        ⁢
                        ω
                        ⁢
                        
                          
                        
                        ⁢
                        
                          ▽
                          ⇀
                        
                        ⁢
                        ρ
                      
                    
                    )
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        +
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
        
        =
        
          
            Re
            ⁡
            
              [
              
                
                  
                    
                      γ
                      0
                    
                    ⁡
                    
                      (
                      
                        ρ
                        -
                        
                          I
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          
                            ▽
                            ⇀
                          
                          ⁢
                          ρ
                        
                      
                      )
                    
                  
                  *
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
          =
          
            
              Re
              ⁡
              
                [
                
                  
                    
                      γ
                      0
                    
                    ⁡
                    
                      (
                      
                        
                          ρ
                          *
                        
                        +
                        
                          I
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          
                            ▽
                            ⇀
                          
                          ⁢
                          
                            ρ
                            *
                          
                        
                      
                      )
                    
                  
                  ⁢
                  
                    γ
                    0
                  
                  ⁢
                  
                    Exp
                    ⁡
                    
                      [
                      
                        
                          -
                          i
                        
                        ⁢
                        
                          
                        
                        ⁢
                        ω
                        ⁢
                        
                          
                        
                        ⁢
                        t
                      
                      ]
                    
                  
                
                ]
              
            
            =
            
              
                Re
                ⁡
                
                  [
                  
                    
                      (
                      
                        
                          ρ
                          *
                        
                        -
                        
                          I
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          
                            ▽
                            ⇀
                          
                          ⁢
                          
                            ρ
                            *
                          
                        
                      
                      )
                    
                    ⁢
                    
                      Exp
                      ⁡
                      
                        [
                        
                          
                            -
                            i
                          
                          ⁢
                          
                            
                          
                          ⁢
                          ω
                          ⁢
                          
                            
                          
                          ⁢
                          t
                        
                        ]
                      
                    
                  
                  ]
                
              
              .
            
          
        
      
    
    
      
        (
        108
        )
      
    
  




This is as expected: any real charge density as a peak charge density value at t=0, and the charge does the same thing both forward and backward in time.
Also, for an oscillating current like in a current ring,




  
    
      
        
          
            Re
            ⁡
            
              [
              
                
                  J
                  ⇀
                
                ⁢
                
                  
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      w
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
          →
          
            Re
            ⁢
            
              
            
            [
            
              
                γ
                0
              
              ⁢
              
                J
                ⇀
              
              ⁢
              
                
              
              ⁢
              
                γ
                0
              
              ⁢
              
                Exp
                ⁡
                
                  [
                  
                    
                      +
                      i
                    
                    ⁢
                    
                      
                    
                    ⁢
                    ω
                    ⁢
                    
                      
                    
                    ⁢
                    t
                  
                  ]
                
              
            
            ]
          
        
        =
        
          
            Re
            ⁡
            
              [
              
                
                  γ
                  0
                
                ⁢
                
                  
                    J
                    ⇀
                  
                  *
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
          =
          
            Re
            ⁡
            
              [
              
                
                  -
                  
                    
                      J
                      ⇀
                    
                    *
                  
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
        
      
    
    
      
        (
        109
        )
      
    
  




The time reversed green function for the wave equation may be obtained by conjugation:




  
    
      
        
          
            Re
            ⁡
            
              [
              
                
                  
                    e
                    Ikr
                  
                  
                    4
                    ⁢
                    π
                    ⁢
                    
                      
                    
                    ⁢
                    r
                  
                
                ⁢
                
                  (
                  
                    ρ
                    -
                    
                      I
                      ⁢
                      
                        
                      
                      ⁢
                      ω
                      ⁢
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        ρ
                      
                    
                  
                  )
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        iω
                      
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
          →
          
            Re
            ⁡
            
              [
              
                
                  
                    e
                    Ikr
                  
                  
                    4
                    ⁢
                    π
                    ⁢
                    
                      
                    
                    ⁢
                    r
                  
                
                ⁢
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      ρ
                      -
                      
                        I
                        ⁢
                        
                          
                        
                        ⁢
                        ω
                        ⁢
                        
                          
                            ∇
                            ⇀
                          
                          ⁢
                          ρ
                        
                      
                    
                    )
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        +
                        iω
                      
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
        
        =
        
          Re
          ⁡
          
            [
            
              
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        
                          e
                          Ikr
                        
                        
                          4
                          ⁢
                          π
                          ⁢
                          
                            
                          
                          ⁢
                          r
                        
                      
                      ⁢
                      
                        (
                        
                          ρ
                          -
                          
                            I
                            ⁢
                            
                              
                            
                            ⁢
                            ω
                            ⁢
                            
                              
                                ∇
                                ⇀
                              
                              ⁢
                              ρ
                            
                          
                        
                        )
                      
                    
                    )
                  
                
                *
              
              ⁢
              
                γ
                0
              
              ⁢
              
                Exp
                ⁡
                
                  [
                  
                    
                      -
                      iω
                    
                    ⁢
                    
                      
                    
                    ⁢
                    t
                  
                  ]
                
              
            
            ]
          
        
      
    
    
      
        (
        110
        )
      
    
  




So the potential A′ associated with the time-reversed source is the original potential A transformed in the same way as J, A′=γ0A* γ0.
The time reversed green function for Maxwell's equation is obtained as follows.
From Doran and Lasenby we write the wave equation retarded green function as




  
    
      
        
          g
          ⁡
          
            [
            
              r
              ⇀
            
            ]
          
        
        =
        
          -
          
            
              e
              
                iω
                ⁢
                
                  
                
                ⁢
                r
              
            
            
              4
              ⁢
              
                
              
              ⁢
              π
              ⁢
              
                
              
              ⁢
              r
            
          
        
      
    
    
      
        (
        111
        )
      
    
  




and the associated retarded green function for Maxwell as





  
    
      
        
          G
          ⁡
          
            [
            
              r
              ⇀
            
            ]
          
        
        =
        
          
            
              (
              
                
                  ∇
                  ⇀
                
                ⁢
                
                  -
                  iω
                
              
              )
            
            ⁢
            
              
                -
                
                  e
                  
                    iω
                    ⁢
                    
                      
                    
                    ⁢
                    r
                  
                
              
              
                4
                ⁢
                
                  
                
                ⁢
                π
                ⁢
                
                  
                
                ⁢
                r
              
            
          
          =
          
            
              
                
                  e
                  
                    iω
                    ⁢
                    
                      
                    
                    ⁢
                    r
                  
                
                
                  4
                  ⁢
                  
                    
                  
                  ⁢
                  π
                  ⁢
                  
                    
                  
                  ⁢
                  r
                
              
              ⁢
              
                (
                
                  
                    
                      iω
                      r
                    
                    ⁢
                    
                      (
                      
                        1
                        -
                        
                          r
                          ^
                        
                      
                      )
                    
                  
                  +
                  
                    
                      r
                      ⇀
                    
                    
                      r
                      3
                    
                  
                
                )
              
            
            =
            
              
                
                  e
                  
                    iω
                    ⁢
                    
                      
                    
                    ⁢
                    r
                  
                
                
                  4
                  ⁢
                  
                    
                  
                  ⁢
                  π
                  ⁢
                  
                    
                  
                  ⁢
                  
                    r
                    3
                  
                
              
              ⁢
              
                (
                
                  
                    
                      r
                      ⇀
                    
                    ⁡
                    
                      (
                      
                        1
                        -
                        
                          iω
                          ⁢
                          
                            
                          
                          ⁢
                          r
                        
                      
                      )
                    
                  
                  +
                  
                    iω
                    ⁢
                    
                      
                    
                    ⁢
                    
                      r
                      2
                    
                  
                
                )
              
            
          
        
      
    
    
      
        (
        112
        )
      
    
  




(This G is not related to the often used notation for the electromagnetic field G ̃D+III H.)
But more clear for this application of using both retarded and advanced functions would be to write




  
    
      
        
          g
          ⁡
          
            [
            
              r
              ⇀
            
            ]
          
        
        =
        
          -
          
            
              e
              
                i
                ⁢
                
                  
                
                ⁢
                k
                ⁢
                
                  
                
                ⁢
                r
              
            
            
              4
              ⁢
              
                
              
              ⁢
              π
              ⁢
              
                
              
              ⁢
              r
            
          
        
      
    
    
      
        (
        113
        )
      
    
  




and write |k|=ω so that





  
    
      
        
          G
          ⁡
          
            [
            
              r
              ⇀
            
            ]
          
        
        =
        
          
            
              (
              
                
                  
                    ∇
                    ⇀
                  
                  ⁢
                  
                    -
                    i
                  
                
                ⁢
                
                  
                
                ⁢
                ω
              
              )
            
            ⁢
            
              
                -
                
                  e
                  
                    i
                    ⁢
                    
                      
                    
                    ⁢
                    kr
                  
                
              
              
                4
                ⁢
                π
                ⁢
                
                  
                
                ⁢
                r
              
            
          
          =
          
            
              
                
                  e
                  
                    i
                    ⁢
                    
                      
                    
                    ⁢
                    kr
                  
                
                
                  4
                  ⁢
                  π
                
              
              ⁢
              
                (
                
                  
                    
                      i
                      r
                    
                    ⁢
                    
                      (
                      
                        ω
                        -
                        
                          k
                          ⁢
                          
                            r
                            ^
                          
                        
                      
                      )
                    
                  
                  +
                  
                    
                      r
                      ⇀
                    
                    
                      r
                      3
                    
                  
                
                )
              
            
            =
            
              
                
                  e
                  
                    i
                    ⁢
                    
                      
                    
                    ⁢
                    kr
                  
                
                
                  4
                  ⁢
                  π
                  ⁢
                  
                    
                  
                  ⁢
                  
                    r
                    3
                  
                
              
              ⁢
              
                (
                
                  
                    
                      r
                      ⇀
                    
                    ⁡
                    
                      (
                      
                        1
                        -
                        
                          i
                          ⁢
                          
                            
                          
                          ⁢
                          k
                          ⁢
                          
                            
                          
                          ⁢
                          r
                        
                      
                      )
                    
                  
                  +
                  
                    iω
                    ⁢
                    
                      
                    
                    ⁢
                    
                      r
                      2
                    
                  
                
                )
              
            
          
        
      
    
    
      
        (
        114
        )
      
    
  




Then positive k describes retarded (outward propagating) waves and negative k describes advanced (converging) waves.
Time reversal for this may be obtained by replacing k with −k, but leaving ω unchanged. However, instead we write this as follows. We use the following mapping from retarded to advanced green functions, for positive k:




  
    
      
        
          
            Re
            ⁡
            
              [
              
                
                  
                    e
                    Ikr
                  
                  
                    4
                    ⁢
                    π
                    ⁢
                    
                      
                    
                    ⁢
                    
                      r
                      3
                    
                  
                
                ⁢
                
                  (
                  
                    
                      
                        r
                        ⇀
                      
                      ⁡
                      
                        (
                        
                          1
                          -
                          
                            i
                            ⁢
                            
                              
                            
                            ⁢
                            k
                            ⁢
                            
                              
                            
                            ⁢
                            r
                          
                        
                        )
                      
                    
                    +
                    
                      iωr
                      2
                    
                  
                  )
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        iω
                      
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
          →
          
            Re
            ⁡
            
              [
              
                
                  
                    e
                    
                      
                        -
                        i
                      
                      ⁢
                      
                        
                      
                      ⁢
                      k
                      ⁢
                      
                        
                      
                      ⁢
                      r
                    
                  
                  
                    4
                    ⁢
                    π
                    ⁢
                    
                      
                    
                    ⁢
                    
                      r
                      3
                    
                  
                
                ⁢
                
                  (
                  
                    
                      
                        r
                        ⇀
                      
                      ⁡
                      
                        (
                        
                          1
                          +
                          
                            i
                            ⁢
                            
                              
                            
                            ⁢
                            k
                            ⁢
                            
                              
                            
                            ⁢
                            r
                          
                        
                        )
                      
                    
                    +
                    
                      iωr
                      2
                    
                  
                  )
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        iω
                      
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
        
        =
        
          Re
          [
          
            
              -
              
                
                  
                    γ
                    0
                  
                  ⁡
                  
                    (
                    
                      
                        
                          e
                          
                            i
                            ⁢
                            
                              
                            
                            ⁢
                            kr
                          
                        
                        
                          4
                          ⁢
                          π
                          ⁢
                          
                            
                          
                          ⁢
                          
                            r
                            3
                          
                        
                      
                      ⁢
                      
                        (
                        
                          
                            
                              r
                              ⇀
                            
                            ⁡
                            
                              (
                              
                                1
                                -
                                
                                  i
                                  ⁢
                                  
                                    
                                  
                                  ⁢
                                  k
                                  ⁢
                                  
                                    
                                  
                                  ⁢
                                  r
                                
                              
                              )
                            
                          
                          +
                          
                            iωr
                            2
                          
                        
                        )
                      
                    
                    )
                  
                
                *
              
            
            ⁢
            
              γ
              0
            
            ⁢
            
              Exp
              ⁡
              
                [
                
                  
                    -
                    iω
                  
                  ⁢
                  
                    
                  
                  ⁢
                  t
                
                ]
              
            
          
          ]
        
      
    
    
      
        (
        115
        )
      
    
  




or

Re[G[{right arrow over (r)}]Exp[−ωt]]→Re[−γ0G*[{right arrow over (r)}]γ0Exp[−ωt]]  (116)

Then the field F due to this advanced green function and a time reversed source goes like the integrand of the green integral:




  
    
      
        
          
            F
            -
            
              Re
              ⁡
              
                [
                
                  
                    G
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                  ⁢
                  J
                  ⁢
                  
                    
                  
                  ⁢
                  
                    Exp
                    ⁡
                    
                      [
                      
                        
                          -
                          iω
                        
                        ⁢
                        
                          
                        
                        ⁢
                        t
                      
                      ]
                    
                  
                
                ]
              
            
          
          →
          
            Re
            ⁡
            
              [
              
                
                  -
                  
                    γ
                    0
                  
                
                ⁢
                
                  
                    G
                    *
                  
                  ⁡
                  
                    [
                    
                      r
                      ⇀
                    
                    ]
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  J
                  *
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        iω
                      
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
        
        =
        
          Re
          ⁡
          
            [
            
              
                -
                
                  
                    
                      γ
                      0
                    
                    ⁡
                    
                      (
                      
                        
                          G
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                        ⁢
                        J
                      
                      )
                    
                  
                  *
                
              
              ⁢
              
                γ
                0
              
              ⁢
              
                Exp
                ⁡
                
                  [
                  
                    
                      -
                      iω
                    
                    ⁢
                    
                      
                    
                    ⁢
                    t
                  
                  ]
                
              
            
            ]
          
        
      
    
    
      
        (
        117
        )
      
    
  




The integral of G J is a vector plus bivector electromagnetic field; the integral of −γ0(G[{right arrow over (r)}]J)*γ0 may be obtained by taking the conjugate of the first field, and then negating the bivector part.
Summary:
Time reversal of the Maxwell green function G is obtained by

Re[G[{right arrow over (r)}]Exp[−ωt]]→Re[−γ0G[{right arrow over (r)}]γ0Exp[+ωt]=Re[−γ0G*[{right arrow over (r)}]γ0Exp[−ωt]]  (118)

and the electromagnetic field F due to this advanced green function and a time reversed source goes like





  
    
      
        
          
            F
            -
            
              Re
              ⁡
              
                [
                
                  
                    G
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                  ⁢
                  
                    J
                    ⁢
                    
                      
                    
                    [
                    
                      r
                      ⇀
                    
                    ]
                  
                  ⁢
                  
                    
                  
                  ⁢
                  
                    Exp
                    ⁡
                    
                      [
                      
                        
                          -
                          iω
                        
                        ⁢
                        
                          
                        
                        ⁢
                        t
                      
                      ]
                    
                  
                
                ]
              
            
          
          →
          
            Re
            ⁡
            
              [
              
                
                  -
                  
                    γ
                    0
                  
                
                ⁢
                G
                ⁢
                
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  γ
                  0
                
                ⁢
                J
                ⁢
                
                  
                
                ⁢
                
                  γ
                  0
                
                ⁢
                
                  Exp
                  ⁡
                  
                    [
                    
                      
                        -
                        iω
                      
                      ⁢
                      
                        
                      
                      ⁢
                      t
                    
                    ]
                  
                
              
              ]
            
          
        
        =
        
          Re
          ⁡
          
            [
            
              
                -
                
                  γ
                  0
                
              
              ⁢
              
                
                  G
                  *
                
                ⁡
                
                  [
                  
                    r
                    ⇀
                  
                  ]
                
              
              ⁢
              
                J
                *
              
              ⁢
              
                γ
                0
              
              ⁢
              
                Exp
                ⁡
                
                  [
                  
                    
                      -
                      iω
                    
                    ⁢
                    
                      
                    
                    ⁢
                    t
                  
                  ]
                
              
            
            ]
          
        
      
    
    
      
        (
        119
        )
      
    
  




This rule says that to calculate the time-reversed field associated with a (not yet time-reversed) source J,
I can calc the non-time-reversed field F ̃∫G J dω due to J with the normal green function G,
then take the conjugate F*=∫G*J*dΩ of this field,
then take −γ0F*γ0 (which is equivalent to negating the bivector part).
This is exactly what works well numerically.
And it makes physical sense for waves.
It makes sense for magnetic dipoles: This rule for time-reversed field F is physically consistent with the rule for time-reversed potential A, and consistent with my algebra for the current of a current loop.
Potential and Field of Point Dipoles
This section contains derivations of the field and potential expressions for electric and magnetic dipoles.
Electric Dipole Field F
We take the convention that k may possibly be negative, while the frequency ω=Abs[k]/c is always positive. This corresponds to allow wave-vectors of any direction, but always using the complex number convention that the physical quantity associated with a complex quantity a is Re[a Exp[−ωt]] where ω is positive.




  
    
      
        J
        =
        
          
            ρ
            -
            
              J
              ⇀
            
          
          =
          
            
              
                
                  d
                  ⇀
                
                ·
                
                  (
                  
                    -
                    
                      
                        ∇
                        ⇀
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                  
                  )
                
              
              -
              
                (
                
                  
                    -
                    iω
                  
                  ⁢
                  
                    
                  
                  ⁢
                  
                    d
                    ⇀
                  
                
                )
              
            
            =
            
              
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    (
                    
                      
                        -
                        
                          ∇
                          ⇀
                        
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                    )
                  
                
                -
                
                  (
                  
                    
                      -
                      i
                    
                    ⁢
                    
                      
                    
                    ⁢
                    
                      Abs
                      ⁡
                      
                        [
                        k
                        ]
                      
                    
                    ⁢
                    
                      d
                      ⇀
                    
                  
                  )
                
              
              =
              
                
                  
                    
                      -
                      
                        d
                        ⇀
                      
                    
                    ·
                    
                      ∇
                      ⇀
                    
                  
                  ⁢
                  
                    
                      δ
                      3
                    
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                
                +
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  
                    Abs
                    ⁡
                    
                      [
                      k
                      ]
                    
                  
                  ⁢
                  
                    d
                    ⇀
                  
                  ⁢
                  
                    
                      δ
                      3
                    
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                
              
            
          
        
      
    
    
      
        (
        120
        )
      
    
  
  
    
      
        
          G
          ⁡
          
            [
            
              
                r
                ⇀
              
              ,
              k
            
            ]
          
        
        =
        
          
            
              (
              
                
                  ∇
                  ⇀
                
                -
                iω
              
              )
            
            ⁢
            
              
                e
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  kr
                
              
              
                4
                ⁢
                
                  
                
                ⁢
                π
                ⁢
                
                  
                
                ⁢
                r
              
            
          
          =
          
            
              
                
                  e
                  
                    i
                    ⁢
                    
                      
                    
                    ⁢
                    kr
                  
                
                
                  4
                  ⁢
                  
                    
                  
                  ⁢
                  π
                
              
              ⁢
              
                (
                
                  
                    
                      i
                      ⁡
                      
                        (
                        
                          ω
                          -
                          
                            k
                            ⁢
                            
                              r
                              ^
                            
                          
                        
                        )
                      
                    
                    r
                  
                  +
                  
                    
                      r
                      ⇀
                    
                    
                      r
                      3
                    
                  
                
                )
              
            
            =
            
              
                
                  
                    e
                    
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      kr
                    
                  
                  
                    4
                    ⁢
                    π
                    ⁢
                    
                      
                    
                    ⁢
                    
                      r
                      3
                    
                  
                
                ⁢
                
                  (
                  
                    
                      
                        r
                        ⇀
                      
                      ⁡
                      
                        (
                        
                          1
                          -
                          
                            i
                            ⁢
                            
                              
                            
                            ⁢
                            kr
                          
                        
                        )
                      
                    
                    +
                    
                      iω
                      ⁢
                      
                        
                      
                      ⁢
                      
                        r
                        2
                      
                    
                  
                  )
                
              
              =
              
                
                  
                    
                      e
                      
                        ik
                        ⁢
                        
                          
                        
                        ⁢
                        r
                      
                    
                    
                      4
                      ⁢
                      
                        
                      
                      ⁢
                      π
                      ⁢
                      
                        
                      
                      ⁢
                      
                        r
                        3
                      
                    
                  
                  ⁢
                  
                    (
                    
                      
                        
                          r
                          ⇀
                        
                        ⁡
                        
                          (
                          
                            1
                            -
                            
                              i
                              ⁢
                              
                                
                              
                              ⁢
                              kr
                            
                          
                          )
                        
                      
                      +
                      
                        i
                        ⁢
                        
                          
                        
                        ⁢
                        
                          Abs
                          ⁡
                          
                            [
                            k
                            ]
                          
                        
                        ⁢
                        
                          r
                          2
                        
                      
                    
                    )
                  
                
                =
                
                  
                    G
                    ⁢
                    
                      
                    
                    ⁢
                    1
                  
                  +
                  
                    G
                    ⁢
                    
                      
                    
                    ⁢
                    0
                  
                
              
            
          
        
      
    
    
      
        (
        121
        )
      
    
  
  
    
      
        
          G
          ⁢
          
            
          
          ⁢
          
            1
            ⁡
            
              [
              
                
                  r
                  ⇀
                
                ,
                k
              
              ]
            
          
        
        =
        
          
            
              e
              
                i
                ⁢
                
                  
                
                ⁢
                kr
              
            
            
              4
              ⁢
              
                
              
              ⁢
              π
              ⁢
              
                
              
              ⁢
              
                r
                3
              
            
          
          ⁢
          
            
              r
              ⇀
            
            ⁡
            
              (
              
                1
                -
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  kr
                
              
              )
            
          
        
      
    
    
      
        (
        122
        )
      
    
  
  
    
      
        
          G
          ⁢
          
            
          
          ⁢
          
            0
            ⁡
            
              [
              
                
                  r
                  ⇀
                
                ,
                k
              
              ]
            
          
        
        =
        
          
            
              e
              
                i
                ⁢
                
                  
                
                ⁢
                kr
              
            
            
              4
              ⁢
              π
              ⁢
              
                
              
              ⁢
              
                r
                3
              
            
          
          ⁢
          i
          ⁢
          
            
          
          ⁢
          
            Abs
            ⁡
            
              [
              k
              ]
            
          
          ⁢
          
            r
            2
          
        
      
    
    
      
        (
        123
        )
      
    
  
  
    
      
        
          F
          ⁡
          
            [
            
              
                r
                ⇀
              
              ′
            
            ]
          
        
        =
        
          
            -
            
              ∫
              
                
                  (
                  
                    
                      G
                      ⁢
                      
                        
                      
                      ⁢
                      
                        1
                        ⁡
                        
                          [
                          
                            
                              r
                              ⇀
                            
                            -
                            
                              
                                r
                                ⇀
                              
                              ′
                            
                          
                          ]
                        
                      
                    
                    +
                    
                      G
                      ⁢
                      
                        
                      
                      ⁢
                      
                        0
                        ⁡
                        
                          [
                          
                            
                              r
                              ⇀
                            
                            -
                            
                              
                                r
                                ⇀
                              
                              ′
                            
                          
                          ]
                        
                      
                    
                  
                  )
                
                ⁢
                
                  (
                  
                    
                      
                        
                          -
                          
                            d
                            ⇀
                          
                        
                        ·
                        
                          ∇
                          ⇀
                        
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                    +
                    
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      
                        Abs
                        ⁡
                        
                          [
                          k
                          ]
                        
                      
                      ⁢
                      
                        d
                        ⇀
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                  
                  )
                
                ⁢
                
                  
                  
                    
                  
                  ⁢
                  
                    d
                    X
                  
                  
                
              
            
          
          =
          
            
              -
              
                ∫
                
                  
                    (
                    
                      
                        G
                        ⁢
                        
                          
                        
                        ⁢
                        
                          1
                          ⁡
                          
                            [
                            
                              
                                r
                                ⇀
                              
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                        ⁢
                        
                          (
                          
                            
                              
                                -
                                
                                  d
                                  ⇀
                                
                              
                              ·
                              
                                
                                  ∇
                                  ⇀
                                
                                ⁢
                                
                                  
                                    δ
                                    3
                                  
                                  ⁡
                                  
                                    [
                                    
                                      r
                                      ⇀
                                    
                                    ]
                                  
                                
                              
                            
                            +
                            
                              i
                              ⁢
                              
                                
                              
                              ⁢
                              
                                Abs
                                ⁡
                                
                                  [
                                  k
                                  ]
                                
                              
                              ⁢
                              
                                d
                                ⇀
                              
                              ⁢
                              
                                
                                  δ
                                  3
                                
                                ⁡
                                
                                  [
                                  
                                    r
                                    ⇀
                                  
                                  ]
                                
                              
                            
                          
                          )
                        
                      
                      +
                      
                        G
                        ⁢
                        
                          
                        
                        ⁢
                        
                          0
                          ⁡
                          
                            [
                            
                              
                                r
                                ⇀
                              
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                        ⁢
                        
                          iAbs
                          ⁡
                          
                            [
                            k
                            ]
                          
                        
                        ⁢
                        
                          d
                          ⇀
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                    
                    )
                  
                  ⁢
                  
                    
                    
                      d
                      X
                    
                    
                  
                
              
            
            =
            
              
                -
                
                  ∫
                  
                    
                      (
                      
                        
                          (
                          
                            
                              
                                
                                  -
                                  
                                    d
                                    ⇀
                                  
                                
                                ·
                                
                                  
                                    
                                      ∇
                                      ⇀
                                    
                                    ′
                                  
                                  ⁢
                                  G
                                
                              
                              ⁢
                              
                                
                              
                              ⁢
                              
                                1
                                ⁡
                                
                                  [
                                  
                                    
                                      r
                                      ⇀
                                    
                                    -
                                    
                                      
                                        r
                                        ⇀
                                      
                                      ′
                                    
                                  
                                  ]
                                
                              
                              ⁢
                              
                                
                                  δ
                                  3
                                
                                ⁡
                                
                                  [
                                  
                                    r
                                    ⇀
                                  
                                  ]
                                
                              
                            
                            +
                            
                              i
                              ⁢
                              
                                
                              
                              ⁢
                              
                                Abs
                                ⁡
                                
                                  [
                                  k
                                  ]
                                
                              
                              ⁢
                              G
                              ⁢
                              
                                
                              
                              ⁢
                              
                                1
                                ⁡
                                
                                  [
                                  
                                    
                                      r
                                      ⇀
                                    
                                    -
                                    
                                      
                                        r
                                        ⇀
                                      
                                      ′
                                    
                                  
                                  ]
                                
                              
                              ⁢
                              
                                d
                                ⇀
                              
                              ⁢
                              
                                
                                  δ
                                  3
                                
                                ⁡
                                
                                  [
                                  
                                    r
                                    ⇀
                                  
                                  ]
                                
                              
                            
                          
                          )
                        
                        +
                        
                          G
                          ⁢
                          
                            
                          
                          ⁢
                          
                            0
                            ⁡
                            
                              [
                              
                                
                                  r
                                  ⇀
                                
                                -
                                
                                  
                                    r
                                    ⇀
                                  
                                  ′
                                
                              
                              ]
                            
                          
                          ⁢
                          i
                          ⁢
                          
                            
                          
                          ⁢
                          
                            Abs
                            ⁡
                            
                              [
                              k
                              ]
                            
                          
                          ⁢
                          
                            d
                            ⇀
                          
                          ⁢
                          
                            
                              δ
                              3
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      
                      
                        d
                        X
                      
                      
                    
                  
                
              
              =
              
                
                  -
                  
                    (
                    
                      
                        
                          
                            -
                            
                              d
                              ⇀
                            
                          
                          ·
                          
                            
                              
                                ∇
                                ⇀
                              
                              ′
                            
                            ⁢
                            G
                          
                        
                        ⁢
                        
                          
                        
                        ⁢
                        
                          1
                          ⁡
                          
                            [
                            
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                      
                      +
                      
                        i
                        ⁢
                        
                          
                        
                        ⁢
                        Abs
                        ⁢
                        
                          {
                          k
                          }
                        
                        ⁢
                        
                          
                        
                        ⁢
                        G
                        ⁢
                        
                          
                        
                        ⁢
                        
                          
                            1
                            ⁡
                            
                              [
                              
                                -
                                
                                  
                                    r
                                    ⇀
                                  
                                  ′
                                
                              
                              ]
                            
                          
                          ^
                          
                            d
                            ⇀
                          
                        
                      
                      +
                      
                        G
                        ⁢
                        
                          
                        
                        ⁢
                        
                          0
                          ⁡
                          
                            [
                            
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                        ⁢
                        i
                        ⁢
                        
                          
                        
                        ⁢
                        
                          Abs
                          ⁡
                          
                            [
                            k
                            ]
                          
                        
                        ⁢
                        
                          d
                          ⇀
                        
                      
                    
                    )
                  
                
                =
                
                  
                    
                      
                        
                          d
                          ⇀
                        
                        ·
                        
                          
                            
                              ∇
                              ⇀
                            
                            ′
                          
                          ⁢
                          G
                        
                      
                      ⁢
                      
                        
                      
                      ⁢
                      
                        1
                        ⁡
                        
                          [
                          
                            
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ,
                            k
                          
                          ]
                        
                      
                    
                    -
                    
                      G
                      ⁢
                      
                        
                      
                      ⁢
                      
                        0
                        ⁡
                        
                          [
                          
                            
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ,
                            k
                          
                          ]
                        
                      
                      ⁢
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      
                        Abs
                        ⁡
                        
                          [
                          k
                          ]
                        
                      
                      ⁢
                      
                        d
                        ⇀
                      
                    
                    -
                    
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      
                        Abs
                        ⁡
                        
                          [
                          k
                          ]
                        
                      
                      ⁢
                      G
                      ⁢
                      
                        
                      
                      ⁢
                      
                        
                          1
                          ⁡
                          
                            [
                            
                              
                                -
                                
                                  
                                    r
                                    ⇀
                                  
                                  ′
                                
                              
                              ,
                              k
                            
                            ]
                          
                        
                        ^
                        
                          d
                          ⇀
                        
                      
                    
                  
                  =
                  
                    
                      
                        
                          d
                          ⇀
                        
                        ·
                        
                          
                            
                              ∇
                              ⇀
                            
                            ′
                          
                          ⁢
                          G
                        
                      
                      ⁢
                      
                        
                      
                      ⁢
                      
                        1
                        ⁡
                        
                          [
                          
                            
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ,
                            k
                          
                          ]
                        
                      
                    
                    -
                    
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      
                        Abs
                        ⁡
                        
                          [
                          k
                          ]
                        
                      
                      ⁢
                      
                        
                          G
                          ⁡
                          
                            [
                            
                              
                                -
                                
                                  
                                    r
                                    ⇀
                                  
                                  ′
                                
                              
                              ,
                              k
                            
                            ]
                          
                        
                        ^
                        
                          d
                          ⇀
                        
                      
                    
                  
                
              
            
          
        
      
    
    
      
        (
        124
        )
      
    
  




After substitution of the expressions given for the Green's function G and its vector part G1, and simplification of the derivatives and algebraic product, this gives the expression shown earlier in the numerical implementation section. The same is true for the expressions below.
Magnetic Dipole Field F

J=ρ−{right arrow over (J)}=−({right arrow over (m)}×(−{right arrow over (∇)}δ3[{right arrow over (r)}]))={right arrow over (m)}×{right arrow over (∇)}δ3[{right arrow over (r)}]=−III{right arrow over (m)}^{right arrow over (∇)}δ3[{right arrow over (r)}]  (125)

Show that magnetic dipole field is like electric dipole field—




  
    
      
        
          F
          ⁡
          
            [
            
              
                r
                ⇀
              
              ′
            
            ]
          
        
        =
        
          
            -
            
              ∫
              
                
                  (
                  
                    G
                    ⁡
                    
                      [
                      
                        
                          r
                          ⇀
                        
                        -
                        
                          
                            r
                            ⇀
                          
                          ′
                        
                      
                      ]
                    
                  
                  )
                
                ⁢
                
                  (
                  
                    
                      -
                      III
                    
                    ⁢
                    
                      
                        m
                        ⇀
                      
                      ^
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                    
                  
                  )
                
                ⁢
                
                  
                  
                    d
                    X
                  
                  
                
              
            
          
          =
          
            
              
                -
                
                  (
                  
                    -
                    III
                  
                  )
                
              
              ⁢
              
                ∫
                
                  
                    (
                    
                      G
                      ⁡
                      
                        [
                        
                          
                            r
                            ⇀
                          
                          -
                          
                            
                              r
                              ⇀
                            
                            ′
                          
                        
                        ]
                      
                    
                    )
                  
                  ⁢
                  
                    (
                    
                      
                        
                          m
                          ⇀
                        
                        ⁢
                        
                          
                            ∇
                            ⇀
                          
                          ⁢
                          
                            
                              δ
                              3
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                        
                      
                      -
                      
                        
                          m
                          ⇀
                        
                        ·
                        
                          
                            ∇
                            ⇀
                          
                          ⁢
                          
                            
                              δ
                              3
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                        
                      
                    
                    )
                  
                  ⁢
                  
                    
                    
                      d
                      X
                    
                    
                  
                
              
            
            =
            
              
                III
                ⁢
                
                  ∫
                  
                    
                      (
                      
                        
                          G
                          .
                        
                        ⁡
                        
                          [
                          
                            
                              r
                              ⇀
                            
                            -
                            
                              
                                r
                                ⇀
                              
                              ′
                            
                          
                          ]
                        
                      
                      )
                    
                    ⁢
                    
                      (
                      
                        
                          
                            -
                            
                              
                                m
                                ⇀
                              
                              .
                              
                                
                                  ∇
                                  ⇀
                                
                                .
                              
                            
                          
                          ⁢
                          
                            
                              δ
                              3
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                        
                        -
                        
                          
                            m
                            ⇀
                          
                          ·
                          
                            
                              ∇
                              ⇀
                            
                            ⁢
                            
                              
                                δ
                                3
                              
                              ⁡
                              
                                [
                                
                                  r
                                  ⇀
                                
                                ]
                              
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      
                      
                        d
                        X
                      
                      
                    
                  
                
              
              =
              
                III
                ⁢
                
                  ∫
                  
                    
                      (
                      
                        
                          G
                          .
                        
                        ⁡
                        
                          [
                          
                            
                              r
                              ⇀
                            
                            -
                            
                              
                                r
                                ⇀
                              
                              ′
                            
                          
                          ]
                        
                      
                      )
                    
                    ⁢
                    
                      (
                      
                        
                          
                            -
                            
                              (
                              
                                
                                  
                                    -
                                    
                                      
                                        ∇
                                        ⇀
                                      
                                      .
                                    
                                  
                                  ⁢
                                  
                                    m
                                    ⇀
                                  
                                
                                +
                                
                                  2
                                  ⁢
                                  
                                    
                                      m
                                      ⇀
                                    
                                    ·
                                    
                                      
                                        ∇
                                        ⇀
                                      
                                      .
                                    
                                  
                                
                              
                              )
                            
                          
                          ⁢
                          
                            
                              δ
                              3
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                        
                        -
                        
                          
                            m
                            ⇀
                          
                          ·
                          
                            
                              ∇
                              ⇀
                            
                            ⁢
                            
                              
                                δ
                                3
                              
                              ⁡
                              
                                [
                                
                                  r
                                  ⇀
                                
                                ]
                              
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      
                      
                        d
                        X
                      
                      
                    
                  
                
              
            
          
        
      
    
    
      
        (
        126
        )
      
    
  




Use ({right arrow over (∇)}+iω)G=δ so {right arrow over (∇)}G=δ−ωG and since G is scalar plus vector, the reverse is also true Ġ{right arrow over ({dot over (∇)}=δ−ωG




  
    
      
        
          F
          ⁡
          
            [
            
              
                r
                ⇀
              
              ′
            
            ]
          
        
        =
        
          
            III
            ⁢
            
              ∫
              
                
                  (
                  
                    
                      G
                      .
                    
                    ⁡
                    
                      [
                      
                        
                          r
                          ⇀
                        
                        -
                        
                          
                            r
                            ⇀
                          
                          ′
                        
                      
                      ]
                    
                  
                  )
                
                ⁢
                
                  (
                  
                    
                      
                        (
                        
                          
                            
                              
                                ∇
                                ⇀
                              
                              .
                            
                            ⁢
                            
                              m
                              ⇀
                            
                          
                          -
                          
                            2
                            ⁢
                            
                              
                                m
                                ⇀
                              
                              ·
                              
                                
                                  ∇
                                  ⇀
                                
                                .
                              
                            
                          
                        
                        )
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                    +
                    
                      
                        
                          m
                          ⇀
                        
                        ·
                        
                          
                            ∇
                            ⇀
                          
                          .
                        
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                  
                  )
                
                ⁢
                
                  
                  
                    d
                    X
                  
                  
                
              
            
          
          =
          
            
              III
              ⁢
              
                ∫
                
                  
                    
                      G
                      .
                    
                    ⁡
                    
                      [
                      
                        
                          r
                          ⇀
                        
                        -
                        
                          
                            r
                            ⇀
                          
                          ′
                        
                      
                      ]
                    
                  
                  ⁢
                  
                    (
                    
                      
                        
                          
                            ∇
                            ⇀
                          
                          .
                        
                        ⁢
                        
                          m
                          ⇀
                        
                      
                      -
                      
                        
                          m
                          ⇀
                        
                        ·
                        
                          
                            ∇
                            ⇀
                          
                          .
                        
                      
                    
                    )
                  
                  ⁢
                  
                    
                      δ
                      3
                    
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                  ⁢
                  
                    
                    
                      d
                      X
                    
                    
                  
                
              
            
            =
            
              
                III
                ⁢
                
                  ∫
                  
                    
                      (
                      
                        
                          
                            
                              ∇
                              ⇀
                            
                            .
                          
                          ⁢
                          
                            
                              G
                              .
                            
                            ⁡
                            
                              [
                              
                                
                                  r
                                  ⇀
                                
                                -
                                
                                  
                                    r
                                    ⇀
                                  
                                  ′
                                
                              
                              ]
                            
                          
                          ⁢
                          
                            m
                            ⇀
                          
                        
                        -
                        
                          
                            
                              m
                              ⇀
                            
                            ·
                            
                              
                                ∇
                                ⇀
                              
                              .
                            
                          
                          ⁢
                          
                            
                              G
                              .
                            
                            ⁡
                            
                              [
                              
                                
                                  r
                                  ⇀
                                
                                -
                                
                                  
                                    r
                                    ⇀
                                  
                                  ′
                                
                              
                              ]
                            
                          
                        
                      
                      )
                    
                    ⁢
                    
                      
                        δ
                        3
                      
                      ⁡
                      
                        [
                        
                          r
                          ⇀
                        
                        ]
                      
                    
                    ⁢
                    
                      
                      
                        d
                        X
                      
                      
                    
                  
                
              
              =
              
                
                  III
                  ⁢
                  
                    ∫
                    
                      
                        (
                        
                          
                            
                              -
                              iω
                            
                            ⁢
                            
                              
                            
                            ⁢
                            
                              G
                              ⁡
                              
                                [
                                
                                  
                                    r
                                    ⇀
                                  
                                  -
                                  
                                    
                                      r
                                      ⇀
                                    
                                    ′
                                  
                                
                                ]
                              
                            
                            ⁢
                            
                              m
                              ⇀
                            
                          
                          -
                          
                            
                              
                                m
                                ⇀
                              
                              ·
                              
                                
                                  ∇
                                  ⇀
                                
                                .
                              
                            
                            ⁢
                            
                              
                                G
                                .
                              
                              ⁡
                              
                                [
                                
                                  
                                    r
                                    ⇀
                                  
                                  -
                                  
                                    
                                      r
                                      ⇀
                                    
                                    ′
                                  
                                
                                ]
                              
                            
                          
                        
                        )
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                      ⁢
                      
                        
                        
                          d
                          X
                        
                        
                      
                    
                  
                
                =
                
                  
                    III
                    ⁢
                    
                      ∫
                      
                        
                          (
                          
                            
                              
                                -
                                iω
                              
                              ⁢
                              
                                
                              
                              ⁢
                              
                                
                                  G
                                  ⁡
                                  
                                    [
                                    
                                      
                                        r
                                        ⇀
                                      
                                      -
                                      
                                        
                                          r
                                          ⇀
                                        
                                        ′
                                      
                                    
                                    ]
                                  
                                
                                ^
                                
                                  m
                                  ⇀
                                
                              
                            
                            +
                            
                              
                                
                                  m
                                  ⇀
                                
                                ·
                                
                                  
                                    ∇
                                    ⇀
                                  
                                  ′
                                
                              
                              ⁢
                              
                                G
                                ⁡
                                
                                  [
                                  
                                    
                                      r
                                      ⇀
                                    
                                    -
                                    
                                      
                                        r
                                        ⇀
                                      
                                      ′
                                    
                                  
                                  ]
                                
                              
                            
                          
                          )
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                        ⁢
                        
                          
                          
                            d
                            X
                          
                          
                        
                      
                    
                  
                  =
                  
                    III
                    ⁡
                    
                      (
                      
                        
                          
                            -
                            i
                          
                          ⁢
                          
                            
                          
                          ⁢
                          
                            Abs
                            ⁡
                            
                              [
                              k
                              ]
                            
                          
                          ⁢
                          
                            
                              G
                              ⁡
                              
                                [
                                
                                  
                                    -
                                    
                                      
                                        r
                                        ⇀
                                      
                                      ′
                                    
                                  
                                  ,
                                  k
                                
                                ]
                              
                            
                            ^
                            
                              m
                              ⇀
                            
                          
                        
                        +
                        
                          
                            m
                            ⇀
                          
                          ·
                          
                            
                              ∇
                              ′
                            
                            ⁢
                            
                              G
                              ⁡
                              
                                [
                                
                                  
                                    
                                      r
                                      ⇀
                                    
                                    ′
                                  
                                  ,
                                  k
                                
                                ]
                              
                            
                          
                        
                      
                      )
                    
                  
                
              
            
          
        
      
    
    
      
        (
        127
        )
      
    
  




So we have that the field of a magnetic dipole m equals III times the field of an electric dipole m.
Electric Dipole Potential a




  
    
      
        J
        =
        
          
            ρ
            -
            
              J
              ⇀
            
          
          =
          
            
              
                
                  d
                  ⇀
                
                ·
                
                  (
                  
                    -
                    
                      
                        ∇
                        ⇀
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                  
                  )
                
              
              -
              
                (
                
                  
                    -
                    iω
                  
                  ⁢
                  
                    
                  
                  ⁢
                  
                    d
                    ⇀
                  
                
                )
              
            
            =
            
              
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    (
                    
                      -
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                    
                    )
                  
                
                -
                
                  (
                  
                    
                      -
                      i
                    
                    ⁢
                    
                      
                    
                    ⁢
                    
                      Abs
                      ⁡
                      
                        [
                        k
                        ]
                      
                    
                    ⁢
                    
                      d
                      ⇀
                    
                  
                  )
                
              
              =
              
                
                  
                    -
                    
                      d
                      ⇀
                    
                  
                  ·
                  
                    
                      ∇
                      ⇀
                    
                    ⁢
                    
                      
                        δ
                        3
                      
                      ⁡
                      
                        [
                        
                          r
                          ⇀
                        
                        ]
                      
                    
                  
                
                +
                
                  i
                  ⁢
                  
                    
                  
                  ⁢
                  
                    Abs
                    ⁡
                    
                      [
                      k
                      ]
                    
                  
                  ⁢
                  
                    d
                    ⇀
                  
                  ⁢
                  
                    
                      δ
                      3
                    
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                
              
            
          
        
      
    
    
      
        (
        128
        )
      
    
  
  
    
      
        
          G
          ⁢
          
            
          
          ⁢
          
            w
            ⁡
            
              [
              
                r
                ⇀
              
              ]
            
          
        
        =
        
          
            e
            
              i
              ⁢
              
                
              
              ⁢
              kr
            
          
          
            4
            ⁢
            π
            ⁢
            
              
            
            ⁢
            r
          
        
      
    
    
      
        (
        129
        )
      
    
  
  
    
      
        
          A
          ⁡
          
            [
            
              
                r
                ⇀
              
              ′
            
            ]
          
        
        =
        
          
            -
            
              ∫
              
                
                  (
                  
                    G
                    ⁢
                    
                      
                    
                    ⁢
                    
                      w
                      ⁡
                      
                        [
                        
                          
                            r
                            ⇀
                          
                          -
                          
                            
                              r
                              ⇀
                            
                            ′
                          
                        
                        ]
                      
                    
                  
                  )
                
                ⁢
                
                  (
                  
                    
                      
                        -
                        
                          d
                          ⇀
                        
                      
                      ·
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                    
                    +
                    
                      i
                      ⁢
                      
                        
                      
                      ⁢
                      
                        Abs
                        ⁡
                        
                          [
                          k
                          ]
                        
                      
                      ⁢
                      
                        d
                        ⇀
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                    
                  
                  )
                
                ⁢
                
                  
                  
                    d
                    X
                  
                  
                
              
            
          
          =
          
            
              -
              
                ∫
                
                  
                    (
                    
                      
                        
                          
                            -
                            
                              d
                              ⇀
                            
                          
                          ·
                          
                            
                              
                                ∇
                                ⇀
                              
                              ′
                            
                            ⁢
                            G
                          
                        
                        ⁢
                        
                          
                        
                        ⁢
                        
                          w
                          ⁡
                          
                            [
                            
                              
                                r
                                ⇀
                              
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                      +
                      
                        i
                        ⁢
                        
                          
                        
                        ⁢
                        
                          Abs
                          ⁡
                          
                            [
                            k
                            ]
                          
                        
                        ⁢
                        G
                        ⁢
                        
                          
                        
                        ⁢
                        
                          w
                          ⁡
                          
                            [
                            
                              
                                r
                                ⇀
                              
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                        ⁢
                        
                          d
                          ⇀
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                    
                    )
                  
                  ⁢
                  
                    
                    
                      d
                      X
                    
                    
                  
                
              
            
            =
            
              
                
                  
                    d
                    ⇀
                  
                  ·
                  
                    
                      
                        ∇
                        ⇀
                      
                      ′
                    
                    ⁢
                    G
                  
                
                ⁢
                
                  
                
                ⁢
                
                  w
                  ⁡
                  
                    [
                    
                      -
                      
                        
                          r
                          ⇀
                        
                        ′
                      
                    
                    ]
                  
                
              
              -
              
                i
                ⁢
                
                  
                
                ⁢
                
                  Abs
                  ⁡
                  
                    [
                    k
                    ]
                  
                
                ⁢
                G
                ⁢
                
                  
                
                ⁢
                
                  w
                  ⁡
                  
                    [
                    
                      -
                      
                        
                          r
                          ⇀
                        
                        ′
                      
                    
                    ]
                  
                
                ⁢
                
                  
                    d
                    ⇀
                  
                  .
                
              
            
          
        
      
    
    
      
        (
        130
        )
      
    
  




Magnetic Dipole Potential A
I do not know of a simple relationship between the magnetic potential and electric potential, so I just work out the magnetic potential A. Since the wave green function Gw is scalar, this is simple:




  
    
      
        J
        =
        
          
            ρ
            -
            
              J
              ⇀
            
          
          =
          
            
              -
              
                (
                
                  
                    m
                    ⇀
                  
                  ×
                  
                    (
                    
                      -
                      
                        
                          ∇
                          ⇀
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                    
                    )
                  
                
                )
              
            
            =
            
              
                
                  m
                  ⇀
                
                ×
                
                  
                    ∇
                    ⇀
                  
                  ⁢
                  
                    
                      δ
                      3
                    
                    ⁡
                    
                      [
                      
                        r
                        ⇀
                      
                      ]
                    
                  
                
              
              =
              
                
                  -
                  III
                
                ⁢
                
                  
                    
                      
                        
                      
                      ⁢
                      m
                    
                    ⇀
                  
                  ^
                  
                    
                      ∇
                      ⇀
                    
                    ⁢
                    
                      
                        δ
                        3
                      
                      ⁡
                      
                        [
                        
                          r
                          ⇀
                        
                        ]
                      
                    
                  
                
              
            
          
        
      
    
    
      
        (
        131
        )
      
    
  
  
    
      
        
          G
          ⁢
          
            
          
          ⁢
          
            w
            ⁡
            
              [
              
                r
                ⇀
              
              ]
            
          
        
        =
        
          -
          
            
              e
              
                i
                ⁢
                
                  
                
                ⁢
                kr
              
            
            
              4
              ⁢
              π
              ⁢
              
                
              
              ⁢
              r
            
          
        
      
    
    
      
        (
        132
        )
      
    
  
  
    
      
        
          
            A
            ⁡
            
              [
              
                
                  r
                  ⇀
                
                ′
              
              ]
            
          
          =
          
            
              -
              
                ∫
                
                  
                    (
                    
                      G
                      ⁢
                      
                        
                      
                      ⁢
                      
                        w
                        ⁡
                        
                          [
                          
                            
                              r
                              ⇀
                            
                            -
                            
                              
                                r
                                ⇀
                              
                              ′
                            
                          
                          ]
                        
                      
                    
                    )
                  
                  ⁢
                  
                    (
                    
                      
                        -
                        III
                      
                      ⁢
                      
                        
                          m
                          ⇀
                        
                        ^
                        
                          
                            ∇
                            ⇀
                          
                          ⁢
                          
                            
                              δ
                              3
                            
                            ⁡
                            
                              [
                              
                                r
                                ⇀
                              
                              ]
                            
                          
                        
                      
                    
                    )
                  
                  ⁢
                  
                    
                    
                      d
                      X
                    
                    
                  
                
              
            
            =
            
              
                -
                
                  ∫
                  
                    
                      (
                      
                        
                          G
                          .
                        
                        ⁢
                        
                          
                        
                        ⁢
                        
                          w
                          ⁡
                          
                            [
                            
                              
                                r
                                ⇀
                              
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ]
                          
                        
                      
                      )
                    
                    ⁢
                    
                      (
                      
                        
                          -
                          III
                        
                        ⁢
                        
                          
                            m
                            ⇀
                          
                          ^
                          
                            
                              
                                ∇
                                ⇀
                              
                              .
                            
                            ′
                          
                        
                        ⁢
                        
                          
                            δ
                            3
                          
                          ⁡
                          
                            [
                            
                              r
                              ⇀
                            
                            ]
                          
                        
                      
                      )
                    
                    ⁢
                    
                      
                      
                        d
                        X
                      
                      
                    
                  
                
              
              =
              
                
                  III
                  ⁢
                  
                    ∫
                    
                      
                        
                          m
                          ⇀
                        
                        ^
                        
                          
                            
                              ∇
                              ⇀
                            
                            .
                          
                          ′
                        
                      
                      ⁢
                      
                        
                          G
                          ⁢
                          
                            
                          
                        
                        .
                      
                      ⁢
                      
                        w
                        ⁡
                        
                          [
                          
                            
                              r
                              ⇀
                            
                            -
                            
                              
                                r
                                ⇀
                              
                              ′
                            
                          
                          ]
                        
                      
                      ⁢
                      
                        
                          δ
                          3
                        
                        ⁡
                        
                          [
                          
                            r
                            ⇀
                          
                          ]
                        
                      
                      ⁢
                      
                        
                        
                          d
                          X
                        
                        
                      
                    
                  
                
                =
                
                  
                    III
                    ⁢
                    
                      
                        m
                        ⇀
                      
                      ^
                      
                        
                          
                            ∇
                            ⇀
                          
                          ′
                        
                        ⁢
                        G
                      
                    
                    ⁢
                    
                      
                    
                    ⁢
                    
                      w
                      ⁡
                      
                        [
                        
                          -
                          
                            
                              r
                              ⇀
                            
                            ′
                          
                        
                        ]
                      
                    
                  
                  =
                  
                    
                      -
                      
                        m
                        ⇀
                      
                    
                    ×
                    
                      
                        
                          ∇
                          ⇀
                        
                        ′
                      
                      ⁢
                      
                        Gw
                        ⁡
                        
                          [
                          
                            
                              -
                              
                                
                                  r
                                  ⇀
                                
                                ′
                              
                            
                            ,
                            k
                          
                          ]
                        
                      
                    
                  
                
              
            
          
        
        )
      
    
    
      
        (
        133
        )
      
    
  




Boundary Matching Theory
The potential A has four components but is constrained to have zero divergence, so it has three degrees of freedom. Suppose for example these are chosen to be the three spatial components (i.e., the part perpendicular to γ0). Then if these three components are given on the boundary of a region, they determine these three components everywhere in the region, and the Lorenz condition (zero space-time divergence) determines the fourth component at every point.
Now consider the same boundary and the same specification of A^γ0γ0 on the boundary, but now use these to determine A on the other side of the boundary. If the perm is different, then the value of A^γ0γ0 off the boundary will be different compared with if the perm were the same. In particular, right at the surface, the normal derivative of A·n will generally be different from what it would be if the perm were the same as on the other side, while the tangential derivatives of the tangential part of A^γ0γ0 will be the same; so by the Lorenz condition, the scalar potential will not be the same on the two sides of the boundary.
That is, if we specify 3 degrees of freedom of A on a boundary, and then find the associated A everywhere, the unspecified degree of freedom will generally be discontinuous at the boundary. With foresight, we choose these 3 degrees of freedom to be the scalar potential φ=A·γ0 and the space vector part {right arrow over (A)}T=A^{right arrow over (σ)}3{right arrow over (σ)}3=(A^γ0γ0)^(γ3γ0)(γ3γ0) that is tangential to the boundary with normal {right arrow over (σ)}3=γ3γ0. Then we might attempt to match only these 3 degrees of freedom at the boundary.
The second major step in the method of least action, after finding a suitable substantially continuous parameterized potential, is to satisfy the equation for extremizing the action, which is the integral over the boundary of




  
    
      
        
          A
          *
          
            (
            
              
                
                  γ
                  3
                
                ·
                Δ
              
              ⁢
              
                
              
              ⁢
              G
            
            )
          
        
        =
        
          
            〈
            
              A
              ⁢
              
                
              
              ⁢
              
                γ
                3
              
              ⁢
              Δ
              ⁢
              
                
              
              ⁢
              G
            
            〉
          
          =
          
            
              -
              
                〈
                
                  A
                  ⁢
                  
                    
                  
                  ⁢
                  
                    γ
                    0
                  
                  ⁢
                  
                    γ
                    3
                  
                  ⁢
                  
                    γ
                    0
                  
                  ⁢
                  Δ
                  ⁢
                  
                    
                  
                  ⁢
                  G
                
                〉
              
            
            =
            
              
                -
                
                  〈
                  
                    
                      (
                      
                        φ
                        +
                        
                          A
                          ⇀
                        
                      
                      )
                    
                    ⁢
                    
                      (
                      
                        
                          
                            σ
                            ⇀
                          
                          3
                        
                        ⁡
                        
                          (
                          
                            
                              Δ
                              ⁢
                              
                                D
                                ⇀
                              
                            
                            +
                            
                              
                                III
                                ⁡
                                
                                  (
                                  
                                    1
                                    /
                                    c
                                  
                                  )
                                
                              
                              ⁢
                              Δ
                              ⁢
                              
                                H
                                ⇀
                              
                            
                          
                          )
                        
                      
                      )
                    
                  
                  〉
                
              
              =
              
                
                  -
                  
                    〈
                    
                      
                        (
                        
                          φ
                          +
                          
                            A
                            ⇀
                          
                        
                        )
                      
                      ⁢
                      
                        (
                        
                          
                            
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                              ·
                              Δ
                            
                            ⁢
                            
                              D
                              ⇀
                            
                          
                          +
                          
                            
                              III
                              ⁡
                              
                                (
                                
                                  1
                                  /
                                  c
                                
                                )
                              
                            
                            ⁢
                            
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                              ^
                              Δ
                            
                            ⁢
                            
                              H
                              ⇀
                            
                          
                        
                        )
                      
                    
                    〉
                  
                
                =
                
                  
                    -
                    
                      〈
                      
                        
                          φ
                          ⁢
                          
                            
                              
                                σ
                                ⇀
                              
                              3
                            
                            ·
                            Δ
                          
                          ⁢
                          
                            D
                            ⇀
                          
                        
                        +
                        
                          
                            III
                            ⁡
                            
                              (
                              
                                1
                                /
                                c
                              
                              )
                            
                          
                          ⁢
                          
                            
                              A
                              ⇀
                            
                            ^
                            
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                              ^
                              Δ
                            
                          
                          ⁢
                          
                            H
                            ⇀
                          
                        
                      
                      〉
                    
                  
                  =
                  
                    
                      -
                      
                        〈
                        
                          
                            φ
                            ⁢
                            
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                              ·
                              Δ
                            
                            ⁢
                            
                              D
                              ⇀
                            
                          
                          -
                          
                            
                              (
                              
                                1
                                /
                                c
                              
                              )
                            
                            ⁢
                            
                              
                                A
                                ⇀
                              
                              ·
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                            
                            ×
                            Δ
                            ⁢
                            
                              H
                              ⇀
                            
                          
                        
                        〉
                      
                    
                    =
                    
                      -
                      
                        〈
                        
                          
                            φ
                            ⁢
                            
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                              ·
                              Δ
                            
                            ⁢
                            
                              D
                              ⇀
                            
                          
                          -
                          
                            
                              (
                              
                                1
                                /
                                c
                              
                              )
                            
                            ⁢
                            
                              A
                              ⇀
                            
                            ×
                            
                              
                                
                                  σ
                                  ⇀
                                
                                3
                              
                              ·
                              Δ
                            
                            ⁢
                            
                              H
                              ⇀
                            
                          
                        
                        〉
                      
                    
                  
                
              
            
          
        
      
    
    
      
        (
        134
        )
      
    
  




We see that we only need φ and the tangential part {right arrow over (A)}^{right arrow over (σ)}3{right arrow over (σ)}3 of {right arrow over (A)} here, and therefore only this part needs to be well defined and therefore made continuous across the boundary in the previous step. This justifies the procedure of matching only the 3 degrees of freedom in A at the boundary as described above.
The normal part of the vector potential, {right arrow over (A)}·{right arrow over (σ)}3, will become continuous at the boundary in the final solution. “God may be subtle but he is not malicious.”

## Claims

1. A machine implemented method comprising:
iteratively solving, by a machine having a processor system including one or more processors and a memory system including a memory system having at least one or more nontransient-machine readable media, a set of equations, each equation being a result of taking a derivative of an action integral, which is an integral of a Langrangian with respect to time, the derivate of the action integral being a derivative with respect to a parameter of a Lagrangian density associated with the Lagrangian, the Lagrangian density has a dependence on the parameters, each parameter of the Lagrangian density being part of a set of parameters of a parameterized potential function, the dependence of the Lagrangian density on the set of parameters being that of a representation of the Lagrangian density in terms of the potential function;
prior to the iteratively solving, the set of parameters include parameters that have values that are not known;
the iteratively solving of the set of equations determines solution values for the parameters;
computing, by the processor system, a value representative of an error associated with a current iteration of the iteratively solving; and
if the value representative of the error for the current iteration is on an opposite side of a predetermined threshold compared to the value representative of the error for a prior iteration, ending the iteratively solving.

2. The machine implemented method of claim 1, the potential being a linear function of the parameters, the linear function includes at least a sum of products, each product being one parameter of the set of parameters multiplied by a potential basis function of a set of basis functions.

3. The machine implemented method of claim 1 the electromagnetic displacement field and magnetic field of the Lagrangian density are equal to or approximated by a linear function of the potential function.

4. The machine implemented method of claim 1, each equation is expressed as a sum of integrals over regions and integrals over the boundaries of these regions, integrands of the integrals of the sum of products of the potential basis functions and do not include any derivatives of the potential basis function.

5. The machine implemented method of claim 1, an inertial frame for the equations is chosen that is at rest with respect to all polarizable media of the action integral.

6. The machine implemented method of claim 5, time variations of electromagnetic potentials, fields, and charge and current densities are approximated as varying harmonically with time; and
electrical conductivity is represented as having a complex permittivity.

7. The machine implemented method of claim 6, the potential is parameterized as a linear function of the parameters and equal to a sum of parameters multiplied by basis functions plus one non-parameterized basis function, the set of basis functions including two types of basis functions
each of a first the two types of basis functions being chosen to be zero at all boundary points of any boundary including an electrical conductor where the basis function of the first type is defined, or
each of a second the two types of basis functions being chosen to be zero at all boundary points of a boundary not including an electrical conductor basis function of the second type is defined basis function of the first type are multiplied by the frequency before computing a numerical solution to the equations, to cancel factors of frequency in numerators.

8. The machine implemented method of claim 4, the parameterized potential is chosen so that for any parameter values, one or more of the volume integrals are equal to zero or having a magnitude that is less than a predetermined threshold, resulting in correspondingly reduced computational demands.

9. The machine implemented method of claim 2, one or more basis function being defined and calculated within one or more regions as a solution to Maxwell's equations in a fictitious auxiliary space using a fictitious virtual charge-current sources.

10. The machine implemented method of claim 2, one or more regions are simplices and the parameterized potential in each simplex is a polynomial function of position.

11. The machine implemented method of claim 10, the polynomial function of position is a linear function of position.

12. The machine implemented method of claim 1, one of the two basis functions being a basis function of a field and another of the two basis functions being a basis function of potential, the integration including at least integrating a product of the basis function of the field and the basis function of the potential.

13. The machine implemented method of claim 12, the basis function of the potential extremizing of the action, within a predetermined tolerance, in an interior portion of a computation cell regardless of what value is assigned to the unknown parameters.

14. The machine implemented method of claim 12, the field being the displacement field, and the method comprising multiplying basis functions of the displacement field, that are associated with computation cells including a conductor, by a variable representing an angular frequency, while not multiplying basis functions of the displaced field, that are associated with computation cells not having a conductor, by the variable representing the angular frequency.

15. The machine implemented method of claim 1, in a first computation cell having a current, placing a fictitious charge on one or more boundaries of the computation cell sufficient to create the current; and
on each boundary having the fictitious charge, placing another fictitious charge of opposite polarity in an adjacent computation cell that cancels the charge of the boundary in the first computation cell.

16. The machine implemented method of claim 1, choosing a first set of basis functions that are nonzero at boundaries between computation cells that have a conductor are zero at boundaries not having conductors; and
choosing a second set of basis functions that are nonzero at boundaries between computation cells that do not having a conductor are zero at boundaries having conductors, therein decoupling computations of the unknown parameters that are coefficients of basis functions that are nonzero at boundaries that have conductors and basis functions that are nonzero at boundaries that do not have conductors.

17. The machine implemented method of claim 1, further comprising:
computing a first difference, which is a difference of at least scalar potential associated with an interior of a computation cell evaluated at a boundary between two computation cells and a scalar potential associated with the boundary evaluated at the boundary;
squaring the first different;
computing a second difference, which is a difference of at least vector potential associated with an interior of a computation cell evaluated at a boundary between two computation cells and a vector potential associated with the boundary evaluated at the boundary;
squaring the second difference;
computing a component of the second difference that is perpendicular to the boundary;
squaring the component;
subtracting results of the squaring of the component from results of the squaring of the second difference;
combining results of the subtracting and the results of squaring the first difference;
presenting a value resulting from the combining of the results as a measure of an accuracy of the solution values.

18. The machine implemented method of claim 17, the solving being performed by iteratively computing new values of the unknown parameters that are expected to be values of the unknown parameters that result in a new value of the value representative of the error that represents less error than in a prior iteration, the method further comprising:
if the value resulting from the combining is less than a predetermined tolerance, terminating solving; and
if the value resulting from the combining is a value that is greater than the predetermined tolerance, performing at least another iterative improvement of the unknown parameters.

19. The machine implemented method of claim 1,
the solving including solving





  
    
      
        
          
            ∑
            
              j
              ≠
              0
            
          
          ⁢
          
            
          
          ⁢
          
            ∫
            
              
                (
                
                  
                    
                      φ
                      i
                    
                    ⁢
                    
                      
                        n
                        ^
                      
                      ·
                      Δ
                    
                    ⁢
                    
                      
                        d
                        ⇀
                      
                      j
                    
                  
                  -
                  
                    
                      
                        
                          a
                          ⇀
                        
                        i
                      
                      ·
                      
                        n
                        ^
                      
                    
                    ×
                    Δ
                    ⁢
                    
                      
                        h
                        ⇀
                      
                      j
                    
                  
                
                )
              
              ⁢
              
                d
                
                  Vc
                  j
                
              
            
          
        
        =
        
          
            -
            
              ∫
              
                (
                
                  
                    
                      φ
                      i
                    
                    ⁢
                    
                      
                        n
                        ^
                      
                      ·
                      Δ
                    
                    ⁢
                    
                      
                        d
                        ⇀
                      
                      0
                    
                  
                  -
                  σ
                
                )
              
            
          
          -
          
            
              
                a
                ⇀
              
              i
            
            ·
            
              (
              
                
                  
                    n
                    ^
                  
                  ×
                  Δ
                  ⁢
                  
                    
                      h
                      ⇀
                    
                    0
                  
                
                -
                
                  K
                  ⇀
                
              
              )
            
          
        
      
      )
    
    ⁢
    
      d
      
        Vc
        0
      
    
  
  ,




where
Σj≠0 indicates to perform a summation over all values of indices j except j=0,
∫ indicates to perform an integration,
Φi is the ith scalar potential basis function
{circumflex over (n)} is a unit vector normal to a boundary of computation cell
Δ{right arrow over (d)}j is a difference between the jth displacement basis function on a first side of the boundary and the jth displacement basis function on a second side of the boundary, the jth displacement basis function on the first side of the boundary being a displacement vector resulting from the jth scalar potential basis function and vector potential basis function on the first side of the boundary, and the jth displacement basis function on the second side of the boundary being a displacement vector resulting from the jth scalar potential basis function and vector potential basis function on the second side of the boundary,
{right arrow over (a)}i is an ith vector potential basis function,
Δ{right arrow over (h)}j is a difference between the jth magnetic intensity basis function on the first side of the boundary and the jth magnetic intensity basis function on the second side of the boundary,
is a difference between the jth displacement basis function on one side of the boundary and the jth displacement basis function on another side of the boundary, the jth magnetic intensity basis function on the first side of the boundary being a magnetic intensity vector resulting from the jth vector potential basis function on the first side of the boundary, and the jth magnetic intensity basis function on the second side of the boundary being a magnetic intensity vector resulting from the jth vector potential basis function on the second side of the boundary,
dV indicates that the integration is over the boundary of the computation cell;
cj are the unknown parameters that are being solved for,
Δ{right arrow over (d)}0 is a difference between the 0th displacement basis function on one side of the boundary and the 0th displacement basis function on another side of the boundary, the 0th displacement basis function is a displacement function with a coefficient that has a known value,
Δ{right arrow over (h)}0 is a difference between the 0th magnetic intensity basis function on one side of the boundary and the 0th magnetic intensity basis function on another side of the boundary, the 0th magnetic intensity basis function is a basis function with a known coefficient
{right arrow over (K)} is the surface charge density,
c0 is the coefficient that has the known value;
an elements of the array having indices i and j, being equal to ∫(Φi{circumflex over (n)}·Δ{right arrow over (d)}j−{right arrow over (a)}i·{circumflex over (n)}×Δ{right arrow over (h)}j)dV; and
an ith element of the result values being −∫(Φi({circumflex over (n)}·Δ{right arrow over (d)}0−σ)−{right arrow over (a)}i·({circumflex over (n)}×Δ{right arrow over (h)}0−{right arrow over (K)}))dVc0.