{
  "cells": [
    {
      "cell_type": "markdown",
      "id": "markdown-000",
      "metadata": {},
      "source": [
        "# Energy and momentum in electromagnetic waves\n",
        "\n",
        "[Read the lesson](https://tirta.co/a-byte-of-physics/energy-momentum-em-waves). This notebook includes the lesson text and its Python examples in reading order. Run the setup cell, then run the remaining cells from top to bottom. In Colab, use File → Save a copy in Drive to keep your edits. You can run and edit this view without changing the course source. Examples use illustrative data unless stated otherwise."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-001",
      "metadata": {},
      "source": [
        "import importlib.metadata\n",
        "import subprocess\n",
        "import sys\n",
        "\n",
        "requirements = {\"numpy\": (2, 0), \"sympy\": (1, 13), \"matplotlib\": (3, 8)}\n",
        "to_install = []\n",
        "for package, minimum in requirements.items():\n",
        "    try:\n",
        "        installed = importlib.metadata.version(package)\n",
        "        version = tuple(int(part) for part in installed.split(\".\")[:2])\n",
        "    except importlib.metadata.PackageNotFoundError:\n",
        "        version = (0, 0)\n",
        "    if version < minimum:\n",
        "        to_install.append(f\"{package}>={minimum[0]}.{minimum[1]}\")\n",
        "if to_install:\n",
        "    subprocess.check_call([sys.executable, \"-m\", \"pip\", \"install\", *to_install])\n",
        "\n",
        "import numpy as np\n",
        "import sympy as sp\n",
        "import matplotlib\n",
        "import matplotlib.pyplot as plt\n",
        "\n",
        "print(\"Python\", sys.version.split()[0])\n",
        "print(\"NumPy\", np.__version__)\n",
        "print(\"SymPy\", sp.__version__)\n",
        "print(\"Matplotlib\", matplotlib.__version__)\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-002",
      "metadata": {},
      "source": [
        "Electromagnetic waves carry energy through space and exert forces when they transfer\n",
        "momentum to matter. Sunlight warms a surface because field energy is absorbed. Light\n",
        "pressure can move small objects or spacecraft sails because the absorbed or reflected\n",
        "wave changes momentum.\n",
        "\n",
        "The field description is local. Energy density says how much electromagnetic energy is\n",
        "stored per volume. The Poynting vector says the direction and rate at which energy crosses\n",
        "an area. Momentum density and radiation pressure connect that energy flow to mechanical\n",
        "effects.\n",
        "\n",
        "## Electromagnetic energy density\n",
        "\n",
        "In vacuum, the electric-field energy density is\n",
        "\n",
        "\n",
        "$$\n",
        "u_E=\\frac{1}{2}\\varepsilon_0E^2\n",
        "$$\n",
        "\n",
        "\n",
        "and the magnetic-field energy density is\n",
        "\n",
        "\n",
        "$$\n",
        "u_B=\\frac{B^2}{2\\mu_0}\n",
        "$$\n",
        "\n",
        "\n",
        "The total is\n",
        "\n",
        "\n",
        "$$\n",
        "u=u_E+u_B\n",
        "       =\\frac{1}{2}\\left(\n",
        "       \\varepsilon_0E^2+\n",
        "       \\frac{B^2}{\\mu_0}\n",
        "       \\right)\n",
        "$$\n",
        "\n",
        "\n",
        "Its SI unit is joules per cubic metre. These formulas apply to the instantaneous local\n",
        "fields, not only to sinusoidal waves.\n",
        "\n",
        "For a vacuum plane wave, $E=cB$\n",
        "and $c^2=1/(\\mu_0\\varepsilon_0)$.\n",
        "Therefore\n",
        "\n",
        "\n",
        "$$\n",
        "u_E=u_B\n",
        "$$\n",
        "\n",
        "\n",
        "and the total plane-wave energy density can be written\n",
        "\n",
        "\n",
        "$$\n",
        "u=\\varepsilon_0E^2=\\frac{B^2}{\\mu_0}\n",
        "$$\n",
        "\n",
        "\n",
        "The equality of electric and magnetic parts is a property of a traveling vacuum plane\n",
        "wave, not every electromagnetic field. A static capacitor and a static inductor do not\n",
        "need equal energy densities.\n",
        "\n",
        "## The Poynting vector\n",
        "\n",
        "Energy flux is described by the Poynting vector\n",
        "\n",
        "\n",
        "$$\n",
        "\\mathbf S=\\frac{1}{\\mu_0}\\mathbf E\\times\\mathbf B\n",
        "$$\n",
        "\n",
        "\n",
        "Its units are watts per square metre. The cross product points in the direction of energy\n",
        "transport. For a plane wave with electric field in positive y and magnetic field in\n",
        "positive z, energy travels in positive x.\n",
        "\n",
        "Power crossing an oriented surface is\n",
        "\n",
        "\n",
        "$$\n",
        "P=\\int_A\\mathbf S\\cdot d\\mathbf A\n",
        "$$\n",
        "\n",
        "\n",
        "Positive dot product means energy crosses with the chosen surface normal. For a closed\n",
        "surface, outward normals make positive total flux mean energy leaves the enclosed volume.\n",
        "\n",
        "## Poynting's theorem\n",
        "\n",
        "Local electromagnetic energy conservation is\n",
        "\n",
        "\n",
        "$$\n",
        "\\frac{\\partial u}{\\partial t}\n",
        "       +\\boldsymbol\\nabla\\cdot\\mathbf S\n",
        "       =-\\mathbf J\\cdot\\mathbf E\n",
        "$$\n",
        "\n",
        "\n",
        "The term $\\mathbf J\\cdot\\mathbf E$\n",
        "is the rate per volume at which the field does work on charges. Integrating over a fixed\n",
        "volume gives\n",
        "\n",
        "\n",
        "$$\n",
        "\\frac{dU_{\\mathrm{field}}}{dt}\n",
        "       +\\oint_{\\partial V}\\mathbf S\\cdot d\\mathbf A\n",
        "       =-\\int_V\\mathbf J\\cdot\\mathbf E\\,dV\n",
        "$$\n",
        "\n",
        "\n",
        "Field energy can decrease because it flows outward, because it does work on matter, or\n",
        "both. Calling every decrease “numerical loss” would be as wrong as ignoring numerical\n",
        "loss entirely."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-003",
      "metadata": {},
      "source": [
        "initial_energy, final_energy = 2.0, 1.5\n",
        "outward_energy, work_on_matter = 0.3, 0.2\n",
        "residual = final_energy - initial_energy + outward_energy + work_on_matter\n",
        "print(\"Poynting energy balance (J):\", residual)\n",
        "assert abs(residual) < 1e-12\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-004",
      "metadata": {},
      "source": [
        "All three terms must cover the same time interval and system boundary.\n",
        "\n",
        "## Instantaneous and average intensity\n",
        "\n",
        "For a sinusoidal vacuum plane wave,\n",
        "\n",
        "\n",
        "$$\n",
        "E(t)=E_0\\cos(kx-\\omega t)\n",
        "$$\n",
        "\n",
        "\n",
        "the instantaneous Poynting magnitude is\n",
        "\n",
        "\n",
        "$$\n",
        "S(t)=\\varepsilon_0cE_0^2\n",
        "       \\cos^2(kx-\\omega t)\n",
        "$$\n",
        "\n",
        "\n",
        "The intensity is the time-averaged energy flux:\n",
        "\n",
        "\n",
        "$$\n",
        "I=\\langle S\\rangle\n",
        "       =\\frac{1}{2}\\varepsilon_0cE_0^2\n",
        "       =\\frac{E_0B_0}{2\\mu_0}\n",
        "$$\n",
        "\n",
        "\n",
        "Using root-mean-square electric field,\n",
        "\n",
        "\n",
        "$$\n",
        "I=\\varepsilon_0cE_{\\mathrm{rms}}^2,\n",
        "       \\qquad E_{\\mathrm{rms}}=\\frac{E_0}{\\sqrt2}\n",
        "$$\n",
        "\n",
        "\n",
        "Do not insert a peak amplitude into the RMS formula or apply the factor of one-half twice.\n",
        "\n",
        "## Worked intensity example\n",
        "\n",
        "For electric-field amplitude\n",
        "$E_0=300\\ \\mathrm{V/m}$,\n",
        "the average vacuum intensity is\n",
        "\n",
        "\n",
        "$$\n",
        "I=\\frac{1}{2}\n",
        "       (8.854\\times10^{-12}\\ \\mathrm{F/m})\n",
        "       (2.998\\times10^8\\ \\mathrm{m/s})\n",
        "       (300\\ \\mathrm{V/m})^2\n",
        "       \\approx119\\ \\mathrm{W/m^2}\n",
        "$$\n",
        "\n",
        "\n",
        "Doubling the field amplitude multiplies intensity by four because energy density and\n",
        "Poynting magnitude depend on squared field amplitude.\n",
        "\n",
        "## Momentum density\n",
        "\n",
        "An electromagnetic field carries momentum density. In vacuum,\n",
        "\n",
        "\n",
        "$$\n",
        "\\mathbf g=\\frac{\\mathbf S}{c^2}\n",
        "$$\n",
        "\n",
        "\n",
        "For a plane wave, energy $U$ traveling in\n",
        "one direction carries momentum magnitude\n",
        "\n",
        "\n",
        "$$\n",
        "p=\\frac{U}{c}\n",
        "$$\n",
        "\n",
        "\n",
        "This classical field relation agrees with the quantum photon relation when total energy\n",
        "is the sum of photon energies.\n",
        "\n",
        "## Radiation pressure\n",
        "\n",
        "When a wave is normally incident on a perfectly absorbing surface, its momentum is\n",
        "transferred to the surface. Average radiation pressure is\n",
        "\n",
        "\n",
        "$$\n",
        "p_{\\mathrm{rad}}=\\frac{I}{c}\n",
        "$$\n",
        "\n",
        "\n",
        "For a perfectly reflecting surface at normal incidence, the momentum reverses, producing\n",
        "twice the change:\n",
        "\n",
        "\n",
        "$$\n",
        "p_{\\mathrm{rad}}=\\frac{2I}{c}\n",
        "$$\n",
        "\n",
        "\n",
        "Here the symbol $p_{\\mathrm{rad}}$\n",
        "means pressure, not momentum. Its units are pascals. For partial absorption, reflection,\n",
        "oblique incidence, or transmission, momentum components and material response must be\n",
        "accounted for explicitly.\n",
        "\n",
        "The force on an illuminated area\n",
        "$A$ under uniform normal pressure is\n",
        "\n",
        "\n",
        "$$\n",
        "F=p_{\\mathrm{rad}}A\n",
        "$$\n",
        "\n",
        "\n",
        "The force is usually small at ordinary light intensity but becomes important in precision\n",
        "measurements, intense lasers, astrophysics, and solar sails.\n",
        "\n",
        "## Momentum direction and stress\n",
        "\n",
        "The Poynting direction describes energy flow for many wave situations, but force on a\n",
        "surface can depend on the full electromagnetic stress, particularly for oblique fields\n",
        "or near-field configurations. The Maxwell stress tensor organizes momentum flux and\n",
        "surface traction. Radiation-pressure formulas above are special plane-wave limits, not\n",
        "universal substitutes for that tensor.\n",
        "\n",
        "Standing waves also show why local interpretation requires care. Opposite traveling waves\n",
        "can produce zero average net Poynting flux while maintaining nonzero, spatially varying\n",
        "field energy. Energy can oscillate locally between electric and magnetic forms even when\n",
        "there is no net long-term transport through a chosen plane.\n",
        "\n",
        "## Discrete field ledger\n",
        "\n",
        "For sampled fields, compute energy in each cell using its physical volume and compute\n",
        "boundary flux with oriented face areas. Field components may be staggered in space or\n",
        "time; interpolate them consistently before forming products."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-005",
      "metadata": {},
      "source": [
        "c, epsilon, E = 299792458.0, 8.8541878128e-12, 10.0\n",
        "mu = 1 / (epsilon * c * c)\n",
        "B, volume = E / c, 0.01\n",
        "electric_density = 0.5 * epsilon * E**2\n",
        "magnetic_density = 0.5 * B**2 / mu\n",
        "energy = (electric_density + magnetic_density) * volume\n",
        "print(\"Instantaneous wave energy in volume (J):\", energy)\n",
        "print(\"Instantaneous flux (W/m^2):\", E * B / mu)\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-006",
      "metadata": {},
      "source": [
        "A source-free periodic domain should have zero net boundary transfer. An open domain may\n",
        "lose interior energy correctly when outward flux accounts for it. Reduce the grid and\n",
        "time spacing to distinguish discretization drift from physical transfer.\n",
        "\n",
        "## Verification and limits\n",
        "\n",
        "For a vacuum plane wave, verify equal electric and magnetic energy densities, Poynting\n",
        "direction parallel to propagation, and average intensity proportional to amplitude\n",
        "squared. Confirm that an absorbing surface receives momentum rate equal to incident power\n",
        "divided by light speed, and a perfect reflector receives twice that normal rate.\n",
        "\n",
        "The vacuum formulas require modification in dispersive, absorbing, anisotropic, nonlinear,\n",
        "or moving media. Material energy can reside in polarization, magnetization, heat, or\n",
        "mechanical motion. Finite grids add interpolation error, numerical dispersion, and\n",
        "boundary artifacts. A small global energy residual does not prove local fields or\n",
        "momentum transfer are accurate.\n",
        "\n",
        "Local accounting should accompany the global total. The Poynting theorem relates the\n",
        "time rate of electromagnetic energy density to flux divergence and work on charge. A\n",
        "global sum can hide equal and opposite local errors, so compare the discrete balance in\n",
        "individual cells as well as over the whole domain, especially near sources and\n",
        "boundaries.\n",
        "\n",
        "## A worked Python notebook\n",
        "\n",
        "Relate the peak electric amplitude of a sinusoidal plane wave to its time-averaged intensity. The question for this calculation is precise: how does **mean vacuum intensity**\n",
        "change when we change **peak electric field**, while keeping the other choices fixed?\n",
        "The earlier sections explain the physical relationship. Here we turn one part of that\n",
        "relationship into a calculation that you can run, inspect, and change in Google Colab.\n",
        "\n",
        "The factor of one half comes from averaging the squared sinusoid over a cycle. Keep that sentence beside the results. A formula can return a number outside\n",
        "its useful range, and a plotting library will usually draw that number without asking\n",
        "whether the physical assumptions still hold. The selected interval is from\n",
        "0 to 100 V/m. It gives us a specific domain to discuss\n",
        "instead of leaving the graph's range to a software default.\n",
        "\n",
        "Use the notebook link above the lesson, run the setup cell, and then run the cells in\n",
        "order. The code below is also included there. NumPy handles the arrays of numerical\n",
        "values, SymPy keeps the equation symbolic, and Matplotlib draws the results. If these\n",
        "libraries or notebook cells are unfamiliar, start with\n",
        "[Your first physics notebook](https://tirta.co/a-byte-of-physics/your-first-physics-notebook).\n",
        "\n",
        "### State the relationship before choosing a graph\n",
        "\n",
        "In this small example, `q` stands for peak electric field, expressed in V/m. The output is\n",
        "mean vacuum intensity, expressed in W/m^2. The equation below uses the numerical values in those\n",
        "units. Any fixed coefficients therefore carry the units needed to make the relation\n",
        "consistent. A value supplied in another unit must be converted before it enters this\n",
        "expression.\n",
        "\n",
        "\n",
        "$$\n",
        "f(q) = 0.00132720936399648 q^{2}\n",
        "$$\n",
        "\n",
        "\n",
        "This is a function of one changing input. It is not a statement that the physical\n",
        "system has only one variable. We deliberately hold the other inputs fixed so that one\n",
        "cause of variation is visible. Changing several inputs at once would make it harder\n",
        "to tell which change produced the output difference. Write down the held-fixed choices\n",
        "before trying a different experiment.\n",
        "\n",
        "At 10 V/m, the expression gives 0.132721 W/m^2. This is our\n",
        "reference calculation. It is a prediction of the stated example, not a new measurement.\n",
        "Its displayed digits help us compare implementations. They should not be read as a\n",
        "claim that physical inputs are known to six significant figures."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-007",
      "metadata": {},
      "source": [
        "import numpy as np\n",
        "import sympy as sp\n",
        "import matplotlib.pyplot as plt\n",
        "\n",
        "q = sp.Symbol(\"q\", real=True)\n",
        "expression = sp.sympify(\"8.8541878128e-12*299792458*q**2/2\", locals={\"q\": q})\n",
        "reference_input = 10.0\n",
        "reference_output = float(expression.subs(q, reference_input))\n",
        "print(\"Input:\", reference_input, \"V/m\")\n",
        "print(\"Predicted mean vacuum intensity:\", reference_output, \"W/m^2\")\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-008",
      "metadata": {},
      "source": [
        "`sp.Symbol` declares a mathematical symbol. It does not assign a numerical measurement\n",
        "to that symbol. `subs` then replaces the symbol with our chosen input, and `float`\n",
        "converts the resulting symbolic number into a standard Python numerical value.\n",
        "Keeping these steps separate lets us inspect the equation before numerical substitution.\n",
        "It also prevents a later plot from becoming the only surviving record of the model.\n",
        "\n",
        "### Compare a few cases you can explain\n",
        "\n",
        "Before drawing hundreds of points, calculate three. The lower endpoint gives\n",
        "0 W/m^2. The midpoint, at 50 V/m, gives\n",
        "3.31802 W/m^2. The upper endpoint gives 13.2721 W/m^2.\n",
        "Read these together with the assumptions: they describe different choices of peak electric field\n",
        "within the same example, with the other inputs held fixed.\n",
        "\n",
        "These three values are a useful first check, but they do not establish the shape between\n",
        "them. Two endpoints can be equal even when the curve bends or oscillates in between.\n",
        "Likewise, a large change between endpoints does not tell us whether the relationship is\n",
        "linear. We need the equation and intermediate samples to answer those questions."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-009",
      "metadata": {},
      "source": [
        "evaluate = sp.lambdify(q, expression, modules=\"numpy\")\n",
        "inputs = np.array([0.0, 50.0, 100.0])\n",
        "outputs = np.asarray(evaluate(inputs), dtype=float)\n",
        "outputs = np.broadcast_to(outputs, inputs.shape)\n",
        "for input_value, output_value in zip(inputs, outputs):\n",
        "    print(f\"{input_value:.6g} V/m -> {output_value:.6g} W/m^2\")\n",
        "assert np.all(np.isfinite(outputs))\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-010",
      "metadata": {},
      "source": [
        "`lambdify` turns the symbolic expression into a numerical function. We explicitly select\n",
        "NumPy as its numerical backend so it can accept an array. The same expression now has\n",
        "two useful forms: one for algebra and one for calculating many cases. The assertion\n",
        "checks that the chosen inputs produce finite outputs. It would catch an infinity or an\n",
        "undefined numerical result, but a finite value can still be physically inappropriate.\n",
        "\n",
        "### Make a graph that answers the question\n",
        "\n",
        "The horizontal axis shows peak electric field; the vertical axis shows mean vacuum intensity. Every plotted\n",
        "point is a prediction of the same expression. We mark the reference case separately\n",
        "so that a reader can connect the earlier printed value to its place on the curve.\n",
        "The axis labels include units because a shape without a scale cannot tell us the size\n",
        "of a physical effect."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-011",
      "metadata": {},
      "source": [
        "input_grid = np.linspace(0.0, 100.0, 301)\n",
        "output_grid = np.asarray(evaluate(input_grid), dtype=float)\n",
        "output_grid = np.broadcast_to(output_grid, input_grid.shape)\n",
        "fig, ax = plt.subplots(figsize=(7, 4))\n",
        "ax.plot(input_grid, output_grid, label=\"Stated model\")\n",
        "ax.scatter([reference_input], [reference_output], label=\"Reference case\", zorder=3)\n",
        "ax.set_xlabel(\"Peak electric field (V/m)\")\n",
        "ax.set_ylabel(\"Mean vacuum intensity (W/m^2)\")\n",
        "ax.legend()\n",
        "ax.grid(alpha=0.25)\n",
        "fig.tight_layout()\n",
        "plt.show()\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-012",
      "metadata": {},
      "source": [
        "Look for a sign change, a turning point, or a region where the curve becomes steep.\n",
        "Connect each feature to the expression rather than to the colour of the line. If the\n",
        "curve has a minimum or maximum, changing the input in opposite directions may have\n",
        "similar effects on the output near that point. If it is nearly straight over a short\n",
        "interval, a local linear approximation may be useful even when the complete expression\n",
        "is nonlinear.\n",
        "\n",
        "Increasing the number of samples makes the line smoother and may reveal features that\n",
        "a coarse grid missed. It does not improve the physical inputs or enlarge the model's\n",
        "validity range. For quantities that can take only discrete values, use the line as a\n",
        "guide to the relationship and interpret only the allowed input values. A plotting\n",
        "function does not enforce such restrictions for you.\n",
        "\n",
        "### Measure the local sensitivity\n",
        "\n",
        "A derivative asks a more specific question than the whole graph: how quickly does\n",
        "mean vacuum intensity change near the reference input? Its units are the output unit divided by\n",
        "the input unit. For this calculation, the derivative at 10 V/m is\n",
        "0.0265442 in those ratio units. Locally, the output increases as the\n",
        "input increases. This statement is local; the sign or size of the slope can be different\n",
        "elsewhere on the curve.\n",
        "\n",
        "\n",
        "$$\n",
        "f'(q) = 0.00265441872799296 q\n",
        "$$\n",
        "\n",
        "\n",
        "For a small input change, multiply the derivative by that change to estimate the output\n",
        "change. Then compare that estimate with a fresh evaluation of the full expression.\n",
        "The distinction between these two calculations matters: the derivative gives a tangent\n",
        "approximation, while substitution evaluates the chosen expression at the new point."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-013",
      "metadata": {},
      "source": [
        "slope_expression = sp.diff(expression, q)\n",
        "slope_at_reference = float(slope_expression.subs(q, reference_input))\n",
        "changed_input = 10.5\n",
        "linear_prediction = reference_output + slope_at_reference * (\n",
        "    changed_input - reference_input\n",
        ")\n",
        "full_prediction = float(evaluate(changed_input))\n",
        "print(\"Symbolic derivative:\", slope_expression)\n",
        "print(\"Tangent prediction:\", linear_prediction, \"W/m^2\")\n",
        "print(\"Full expression:\", full_prediction, \"W/m^2\")\n",
        "print(\"Approximation difference:\", full_prediction - linear_prediction, \"W/m^2\")\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-014",
      "metadata": {},
      "source": [
        "Here the changed input is 10.5 V/m. The tangent estimate is\n",
        "0.145993 W/m^2, while the full expression gives\n",
        "0.146325 W/m^2. If the two values are close, it means the chosen\n",
        "input change is small enough for this local approximation at this point. It does not\n",
        "mean the entire model is linear. If the slope is zero, a quadratic or higher-order term\n",
        "may supply the leading change instead.\n",
        "\n",
        "This is also the beginning of uncertainty propagation. If the input has a small stated\n",
        "standard uncertainty, the magnitude of the slope times that uncertainty estimates one\n",
        "contribution to output uncertainty. Do not automatically use the same rule for a wide\n",
        "interval, a discontinuity, a turning point with zero first derivative, or several\n",
        "correlated uncertain inputs. Those situations need more of the model than one slope.\n",
        "\n",
        "### Check the derivative with numerical differences\n",
        "\n",
        "We can estimate the same slope from values on either side of the reference point.\n",
        "Subtract the lower output from the upper output and divide by twice the input step.\n",
        "Parentheses are essential: the entire output difference must be divided by the entire\n",
        "input interval. Without them, Python can execute a different mathematical expression\n",
        "while still producing a plausible number.\n",
        "\n",
        "The calculation below uses three decreasing step sizes. Each estimate is compared with\n",
        "the symbolic derivative, so the reference is independent of the numerical difference\n",
        "formula. Near an endpoint, it is acceptable here to evaluate a small extension only\n",
        "because the displayed mathematical expression is smooth there; such a check does not\n",
        "assert that extrapolated values describe additional physical cases."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-015",
      "metadata": {},
      "source": [
        "input_span = 100.0\n",
        "for fraction in [1e-2, 1e-3, 1e-4]:\n",
        "    step = input_span * fraction\n",
        "    upper = float(evaluate(reference_input + step))\n",
        "    lower = float(evaluate(reference_input - step))\n",
        "    numerical_slope = (upper - lower) / (2 * step)\n",
        "    difference = numerical_slope - slope_at_reference\n",
        "    print(f\"step={step:.6g}: slope={numerical_slope:.6g}, difference={difference:.6g}\")\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-016",
      "metadata": {},
      "source": [
        "For a smooth function, reducing the step often reduces the approximation error at first.\n",
        "Very small steps can eventually make subtraction of nearly equal floating-point values\n",
        "less reliable. Therefore “smaller” is not an unlimited guarantee of “better.” Compare\n",
        "the observed behaviour over a useful range of steps instead of choosing the smallest\n",
        "number the computer can represent.\n",
        "\n",
        "An absolute slope difference is useful when the expected slope is near zero. A relative\n",
        "difference would divide by a very small reference and could look enormous even when the\n",
        "absolute discrepancy is tiny. Away from zero, a relative difference can help compare\n",
        "quantities with very different scales. The tolerance should reflect the question and\n",
        "the numerical method, rather than a universal decimal threshold copied into every test.\n",
        "\n",
        "### Change the example and preserve the reasoning\n",
        "\n",
        "Make one copy of the reference calculation before editing it. Choose a second value of\n",
        "peak electric field inside the stated interval, predict whether mean vacuum intensity will rise or fall,\n",
        "and then evaluate the expression. Place the prediction and the result in a text cell.\n",
        "If they disagree, identify whether the mistake was in the sign, the unit conversion,\n",
        "the algebra, or the assumption about how the curve behaves.\n",
        "\n",
        "Next choose a shorter plotting interval around the reference point. Compare the local\n",
        "curve with its tangent approximation. Then widen the interval again. The difference\n",
        "shows why a useful local estimate need not describe the whole range. Keep the axis\n",
        "labels and numerical scale visible when comparing the plots; automatic axis limits can\n",
        "make two different effects appear equally large.\n",
        "\n",
        "Finally, return to the physical limit stated at the start: The factor of one half comes from averaging the squared sinusoid over a cycle. Describe one change\n",
        "to the setup that would violate that limit. State what new input, equation, or observation\n",
        "would be needed before trusting an answer in the changed situation. This last step\n",
        "connects the Python experiment to the physics instead of treating successful execution\n",
        "as the only criterion for a useful result.\n",
        "\n",
        "Before saving, restart the runtime and run all cells in order. A result that depends on\n",
        "an earlier, now-deleted input cell is not reproducible from the saved notebook. Keep\n",
        "unrounded values for later calculations, round only the reported output, and label any\n",
        "new data as measured, assumed, or generated. The graph and printed values should remain\n",
        "traceable to the same expression and the same choices of inputs.\n",
        "\n",
        "### Recover the output change by integrating the slope\n",
        "\n",
        "There is another way to check that the expression and its derivative describe the same\n",
        "relationship. Add up the small output changes predicted by the slope across the chosen\n",
        "input interval. In the continuous limit, this integral equals the output at the upper\n",
        "endpoint minus the output at the lower endpoint. The result has units of W/m^2:\n",
        "the input unit in the integration cancels the input unit in the denominator of the slope.\n",
        "\n",
        "This statement is about the mathematics of this particular relationship. It does not\n",
        "assign a new physical meaning to an arbitrary area under a graph. For example, an area\n",
        "under force versus distance represents work, while an area under a different pair of\n",
        "quantities may represent something else or have no standard name. Always carry the\n",
        "axis units through the calculation before naming an integral."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-017",
      "metadata": {},
      "source": [
        "slope_function = sp.lambdify(q, slope_expression, modules=\"numpy\")\n",
        "endpoint_change = float(evaluate(100.0) - evaluate(0.0))\n",
        "for points in [101, 201, 401]:\n",
        "    grid = np.linspace(0.0, 100.0, points)\n",
        "    slopes = np.asarray(slope_function(grid), dtype=float)\n",
        "    slopes = np.broadcast_to(slopes, grid.shape)\n",
        "    integrated_change = np.trapezoid(slopes, grid)\n",
        "    print(\n",
        "        points,\n",
        "        \"integrated change:\",\n",
        "        integrated_change,\n",
        "        \"endpoint change:\",\n",
        "        endpoint_change,\n",
        "    )\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-018",
      "metadata": {},
      "source": [
        "The trapezoidal rule joins neighbouring slope samples with straight segments and adds\n",
        "their signed areas. A negative contribution remains negative; replacing every slope\n",
        "by its magnitude would calculate a different quantity. Increasing the sample count\n",
        "provides a practical refinement check. If the values do not settle toward the endpoint\n",
        "difference, first inspect the interval, singularities, and array ordering.\n",
        "\n",
        "Do not conclude that two agreeing calculations prove the model is physically complete.\n",
        "Both use the same selected relationship, so an omitted effect would be omitted from\n",
        "both. Their agreement is evidence that the numerical tools implement that relationship\n",
        "consistently. Comparing with an independent experiment or a more appropriate physical\n",
        "model is a separate test.\n",
        "\n",
        "Keep this comparison in the notebook when you change the expression. It is particularly\n",
        "useful after adding a coefficient, changing a sign convention, or converting an input\n",
        "unit. A code cell that produces a smooth graph can conceal these mistakes; a second\n",
        "calculation of the same output change gives you another place to notice them.\n",
        "\n",
        "## Sources\n",
        "\n",
        "- [OpenStax, *University Physics Volume 2*, Section 16.3, “Energy Carried by Electromagnetic Waves”](https://openstax.org/books/university-physics-volume-2/pages/16-3-energy-carried-by-electromagnetic-waves).\n",
        "- [OpenStax, *University Physics Volume 2*, Section 16.4, “Momentum and Radiation Pressure”](https://openstax.org/books/university-physics-volume-2/pages/16-4-momentum-and-radiation-pressure).\n",
        "- [Benjamin Crowell, *Light and Matter*](https://open.umn.edu/opentextbooks/textbooks/light-and-matter).\n",
        "- [Ralph A. Llewellyn and Paul A. Tipler, *Modern Physics*](https://web.pdx.edu/~pmoeck/books/Tipler_Llewellyn.pdf).\n",
        "- [Physics LibreTexts, “Electricity and Magnetism”](https://phys.libretexts.org/Bookshelves/Electricity_and_Magnetism)."
      ]
    }
  ],
  "metadata": {
    "kernelspec": {
      "display_name": "Python 3",
      "language": "python",
      "name": "python3"
    },
    "language_info": {
      "name": "python",
      "version": "3.12"
    },
    "colab": {
      "name": "energy-momentum-em-waves.ipynb",
      "provenance": []
    },
    "tirta": {
      "lesson": "https://tirta.co/a-byte-of-physics/energy-momentum-em-waves",
      "source_sha256": "52565005d50758f1d03a5e171933368b1b5bb776d1986e548bed7bbd3bfefdf4"
    }
  },
  "nbformat": 4,
  "nbformat_minor": 5
}
