Estudie ecuaciones de Maxwell 

Derive la ecuación de onda para un campo magnético a partir de ecuaciones de Maxwell.

Ingrese las ecuaciones de Maxwell en unidades naturales de Lorentz–Heaviside.

In[1]:=

X Inactivate[{gaussE = Div[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == \[Rho][x, y, z, t], gaussB = Div[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == 0, faraday = Curl[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == -D[\[ScriptCapitalB][x, y, z, t], t], ampere = Curl[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == j[x, y, z, t] + D[\[ScriptCapitalE][x, y, z, t], t]}, Div | Curl | D];

Cree una tabla de ecuaciones bien formateada.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[2]:=

X Inactivate[{gaussE = Div[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == \[Rho][x, y, z, t], gaussB = Div[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == 0, faraday = Curl[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == -D[\[ScriptCapitalB][x, y, z, t], t], ampere = Curl[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == j[x, y, z, t] + D[\[ScriptCapitalE][x, y, z, t], t]}, Div | Curl | D];; Grid[Transpose[{{"Gauss's Law for Electricity", "Gauss's Law for Magnetism", "Faraday's Law", "Ampere's Law"}, %}], Alignment -> Left, Dividers -> All, Spacings -> {4, 2}] // TraditionalForm

Out[2]//TraditionalForm=

Tome la curvatura de la ley de Ampere en el vacío ( y ).

In[3]:=

X Inactive[Curl][#, {x, y, z}] & /@ ampere /. j -> (0 &)

Out[3]=

Intercambie el orden de diferenciación.

In[4]:=

X Inactive[Curl][#, {x, y, z}] & /@ ampere /. j -> (0 &); % /. Inactivate[Curl[D[v_, t_], x_] :> D[Curl[v, x], t]]

Out[4]=

Sustituya la ley de Faraday.

In[5]:=

X Inactivate[{gaussE = Div[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == \[Rho][x, y, z, t], gaussB = Div[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == 0, faraday = Curl[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == -D[\[ScriptCapitalB][x, y, z, t], t], ampere = Curl[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == j[x, y, z, t] + D[\[ScriptCapitalE][x, y, z, t], t]}, Div | Curl | D];; % /. Inactivate[Curl[D[v_, t_], x_] :> D[Curl[v, x], t]]; % /. Solve[faraday, Inactive[Curl][\[ScriptCapitalE][x, y, z, t], {x, y, z}]][[1]]

Out[5]=

Activar la ecuación resulta en la acuación de onda para un campo magnético.

In[6]:=

X Inactivate[{gaussE = Div[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == \[Rho][x, y, z, t], gaussB = Div[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == 0, faraday = Curl[\[ScriptCapitalE][x, y, z, t], {x, y, z}] == -D[\[ScriptCapitalB][x, y, z, t], t], ampere = Curl[\[ScriptCapitalB][x, y, z, t], {x, y, z}] == j[x, y, z, t] + D[\[ScriptCapitalE][x, y, z, t], t]}, Div | Curl | D];; % /. Solve[faraday, Inactive[Curl][\[ScriptCapitalE][x, y, z, t], {x, y, z}]][[1]]; wave = Activate[%]

Out[6]=

Esta es una ecuación expresada usando notación tradicional.

Una solución de onda plana de la ecuación puede ser verificada por una sustitución simple.

In[7]:=

X wave /. \[ScriptCapitalB] -> (A Exp[{kx, ky, kz}.{#1, #2, #3} - I Sqrt[kx^2 + ky^2 + kz^2] #4] &) // Simplify

Out[7]=