{
  "cells": [
    {
      "cell_type": "markdown",
      "id": "markdown-000",
      "metadata": {},
      "source": [
        "# Orbits as numerical experiments\n",
        "\n",
        "[Read the lesson](https://tirta.co/a-byte-of-physics/orbits-numerical-experiments). 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": [
        "An orbit is the trajectory generated by gravity from an initial position and velocity.\n",
        "It is not an ellipse drawn in advance. A numerical orbit lets us explore initial\n",
        "conditions that have no convenient closed-form solution, but it also introduces errors\n",
        "that can imitate precession, spiraling, escape, or collision.\n",
        "\n",
        "## The ideal central-force problem\n",
        "\n",
        "For a small body orbiting a much larger fixed spherical body, relative position\n",
        "$\\mathbf r$ obeys\n",
        "\n",
        "\n",
        "$$\n",
        "\\ddot{\\mathbf r}=-\\mu\\frac{\\mathbf r}{|\\mathbf r|^3}\n",
        "$$\n",
        "\n",
        "\n",
        "where $\\mu=GM$.\n",
        "The initial position and velocity determine the future path. They must use compatible\n",
        "units and the same reference frame.\n",
        "\n",
        "If both bodies have important mass, the same equation describes their relative\n",
        "separation when\n",
        "\n",
        "\n",
        "$$\n",
        "\\mu=G(m_1+m_2)\n",
        "$$\n",
        "\n",
        "\n",
        "and both bodies orbit their common center of mass. Holding one body fixed is accurate\n",
        "only when its motion is negligible for the question.\n",
        "\n",
        "The ideal model assumes point or spherical bodies, no atmosphere, no thrust, no other\n",
        "gravitation, and Newtonian weak-field dynamics. A numerical experiment should state\n",
        "which of these assumptions it uses.\n",
        "\n",
        "## Circular orbit as a reference case\n",
        "\n",
        "For a circular orbit of radius\n",
        "$r$, gravity supplies exactly\n",
        "the required centripetal acceleration:\n",
        "\n",
        "\n",
        "$$\n",
        "\\frac{v_{\\mathrm c}^2}{r}=\\frac{\\mu}{r^2}\n",
        "$$\n",
        "\n",
        "\n",
        "Therefore\n",
        "\n",
        "\n",
        "$$\n",
        "v_{\\mathrm c}=\\sqrt{\\frac{\\mu}{r}}\n",
        "$$\n",
        "\n",
        "\n",
        "The velocity must also be perpendicular to the radius. The formula supplies a speed,\n",
        "not its direction. Reversing the tangential direction reverses angular momentum but\n",
        "produces the same ideal circular geometry.\n",
        "\n",
        "The orbital period is\n",
        "\n",
        "\n",
        "$$\n",
        "T=2\\pi\\sqrt{\\frac{r^3}{\\mu}}\n",
        "$$\n",
        "\n",
        "\n",
        "This is a strong numerical fixture: after one analytic period, a sufficiently accurate\n",
        "calculation should return close to its starting state and should not show systematic\n",
        "energy or angular-momentum drift.\n",
        "\n",
        "## Energy classifies ideal two-body motion\n",
        "\n",
        "Specific mechanical energy means energy per unit orbiting mass:\n",
        "\n",
        "\n",
        "$$\n",
        "\\varepsilon=\\frac{|\\mathbf v|^2}{2}-\\frac{\\mu}{r}\n",
        "$$\n",
        "\n",
        "\n",
        "With potential energy set to zero at infinity, negative specific energy describes bound\n",
        "elliptic motion, zero describes the parabolic escape boundary, and positive describes an\n",
        "unbound hyperbola. A circle is the special ellipse with constant radius.\n",
        "\n",
        "For a bound Kepler orbit with semimajor axis\n",
        "$a$,\n",
        "\n",
        "\n",
        "$$\n",
        "\\varepsilon=-\\frac{\\mu}{2a}\n",
        "$$\n",
        "\n",
        "\n",
        "and the period generalizes to\n",
        "\n",
        "\n",
        "$$\n",
        "T=2\\pi\\sqrt{\\frac{a^3}{\\mu}}\n",
        "$$\n",
        "\n",
        "\n",
        "Energy classification is valid for the stated ideal model. A softened force, drag,\n",
        "thrust, or time-varying multi-body field changes the conservation statement.\n",
        "\n",
        "## Angular momentum and areal speed\n",
        "\n",
        "Specific angular momentum is\n",
        "\n",
        "\n",
        "$$\n",
        "\\mathbf h=\\mathbf r\\times\\mathbf v\n",
        "$$\n",
        "\n",
        "\n",
        "The central force has zero torque about the center, so\n",
        "$\\mathbf h$ remains\n",
        "constant. The motion stays in the plane perpendicular to this vector. Its magnitude also\n",
        "gives the swept area per time:\n",
        "\n",
        "\n",
        "$$\n",
        "\\frac{dA}{dt}=\\frac{|\\mathbf h|}{2}\n",
        "$$\n",
        "\n",
        "\n",
        "This is Kepler's equal-area law. Sampling equal time intervals and comparing swept\n",
        "triangle areas is a useful geometric check, though direct angular-momentum evaluation is\n",
        "usually more accurate.\n",
        "\n",
        "## Advance the differential equation\n",
        "\n",
        "Velocity Verlet is a useful explicit method for position-dependent acceleration. It is\n",
        "time-reversible for this conservative problem and generally controls long-run energy\n",
        "behavior better than ordinary forward Euler. No finite-step method is exact."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-003",
      "metadata": {},
      "source": [
        "import numpy as np\n",
        "\n",
        "\n",
        "# Scaled units: gravitational parameter mu = 1, initial radius = 1.\n",
        "def gravity(position):\n",
        "    return -position / np.linalg.norm(position) ** 3\n",
        "\n",
        "\n",
        "def advance(position, velocity, dt):\n",
        "    old_a = gravity(position)\n",
        "    new_position = position + velocity * dt + 0.5 * old_a * dt**2\n",
        "    new_velocity = velocity + 0.5 * (old_a + gravity(new_position)) * dt\n",
        "    return new_position, new_velocity\n",
        "\n",
        "\n",
        "print(advance(np.array([1.0, 0.0]), np.array([0.0, 0.8]), 0.01))\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-004",
      "metadata": {},
      "source": [
        "Ordinary forward Euler updates position and velocity using only the old state. In an\n",
        "orbit it commonly produces systematic energy growth and an outward spiral. That spiral\n",
        "is a numerical artifact, not a prediction of Newtonian gravity.\n",
        "\n",
        "Adaptive high-order solvers can be excellent for event accuracy and close approaches,\n",
        "while symplectic methods are valuable for long conservative integrations. Solver choice\n",
        "depends on the question. In all cases, repeat the calculation at smaller tolerances or\n",
        "time steps.\n",
        "\n",
        "## A complete experiment loop\n",
        "\n",
        "Store diagnostics at fixed physical output times so runs with different internal steps\n",
        "can be compared directly. Rendering frequency must not determine the physics step."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-005",
      "metadata": {},
      "source": [
        "position, velocity = np.array([1.0, 0.0]), np.array([0.0, 0.8])\n",
        "history = []\n",
        "dt = 0.005\n",
        "for step in range(2001):\n",
        "    radius = np.linalg.norm(position)\n",
        "    energy = 0.5 * np.dot(velocity, velocity) - 1 / radius\n",
        "    radial_speed = np.dot(position, velocity) / radius\n",
        "    history.append([step * dt, radius, energy, radial_speed])\n",
        "    position, velocity = advance(position, velocity, dt)\n",
        "history = np.array(history)\n",
        "print(\"Energy range:\", np.ptp(history[:, 2]))\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-006",
      "metadata": {},
      "source": [
        "All acceleration evaluations within one step must use the state required by the chosen\n",
        "integrator. Mixing components updated at different times defines a different, often\n",
        "lower-quality method.\n",
        "\n",
        "## Predicting changes in initial speed\n",
        "\n",
        "Begin at a circular position with tangential circular speed. If the tangential speed is\n",
        "reduced but remains nonzero, gravity is initially stronger than the centripetal\n",
        "requirement for that speed, and the body moves inward toward a future periapsis. The\n",
        "starting point is an apoapsis of the new ellipse.\n",
        "\n",
        "If tangential speed is increased above circular but remains below escape speed, the body\n",
        "moves outward first and the starting point is a periapsis. Escape speed at radius\n",
        "$r$ is\n",
        "\n",
        "\n",
        "$$\n",
        "v_{\\mathrm{esc}}=\\sqrt{\\frac{2\\mu}{r}}=\\sqrt{2}\\,v_{\\mathrm c}\n",
        "$$\n",
        "\n",
        "\n",
        "Exactly reaching this speed is the ideal parabolic boundary only when the velocity and\n",
        "model are interpreted through total energy. Adding a radial velocity component changes\n",
        "energy and the location of turning points.\n",
        "\n",
        "## Detecting orbital events\n",
        "\n",
        "Radial velocity is\n",
        "\n",
        "\n",
        "$$\n",
        "v_r=\\frac{\\mathbf r\\cdot\\mathbf v}{r}\n",
        "$$\n",
        "\n",
        "\n",
        "Periapsis and apoapsis occur where this quantity changes sign. A coarse output schedule\n",
        "will not normally land exactly on the event. Detect a sign-changing bracket during\n",
        "integration and interpolate or solve within that bracket using a documented event rule."
      ]
    },
    {
      "cell_type": "code",
      "id": "code-007",
      "metadata": {},
      "source": [
        "for previous, current in zip(history[:-1], history[1:]):\n",
        "    if previous[3] < 0 <= current[3]:\n",
        "        fraction = -previous[3] / (current[3] - previous[3])\n",
        "        event_time = previous[0] + fraction * (current[0] - previous[0])\n",
        "        print(f\"Estimated periapsis time: {event_time:.4f} scaled time units\")\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-008",
      "metadata": {},
      "source": [
        "Event times and radii should converge when the step is reduced. Trail vertices alone can\n",
        "miss the true extremes.\n",
        "\n",
        "## Singularities, surfaces, and collisions\n",
        "\n",
        "The point-mass acceleration diverges at zero radius. A planet has a surface and an\n",
        "extended mass distribution, so a practical model may terminate when radius reaches the\n",
        "body radius. A star or compact body needs its own collision or interior model. Softening\n",
        "the force avoids divergence but changes orbital precession and close-approach dynamics.\n",
        "Record softening as physics input, not a hidden numerical safeguard.\n",
        "\n",
        "Near periapsis an eccentric orbit moves fastest and acceleration changes most rapidly.\n",
        "A fixed step adequate near apoapsis may be inadequate there. Monitor the smallest radius\n",
        "and test with a smaller step or adaptive policy.\n",
        "\n",
        "## Evidence that the orbit is credible\n",
        "\n",
        "Test the acceleration separately before integrating. At the initial circular state,\n",
        "verify perpendicular velocity, circular speed, inward acceleration, and analytic period.\n",
        "During the run, track relative changes in energy and angular momentum. Bounded oscillation\n",
        "of numerical energy may be acceptable for a symplectic method; systematic drift that\n",
        "shrinks under refinement is still numerical error and must be reported.\n",
        "\n",
        "Compare runs at the same physical times, not at the same step index. Refine time step and\n",
        "event tolerance independently. Check radius extrema, phase, period, energy, and angular\n",
        "momentum because agreement in one observable does not guarantee agreement in the others.\n",
        "\n",
        "A convincing numerical orbit is therefore a reproducible initial-value calculation with\n",
        "declared units, frame, force law, solver, singularity policy, and convergence evidence.\n",
        "The picture is useful, but the saved physical diagnostics carry the scientific claim.\n",
        "\n",
        "## A worked Python notebook\n",
        "\n",
        "Choose initial velocities for circular orbits in units where the gravitational parameter is one. The question for this calculation is precise: how does **circular speed**\n",
        "change when we change **radius**, 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",
        "A numerical orbit must also maintain the direction of velocity perpendicular to the radius. 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.5 to 3 scaled length units. 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 radius, expressed in scaled length units. The output is\n",
        "circular speed, expressed in scaled speed units. 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) = \\sqrt{\\frac{1}{q}}\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 1 scaled length units, the expression gives 1 scaled speed units. 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-009",
      "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(\"sqrt(1/q)\", locals={\"q\": q})\n",
        "reference_input = 1.0\n",
        "reference_output = float(expression.subs(q, reference_input))\n",
        "print(\"Input:\", reference_input, \"scaled length units\")\n",
        "print(\"Predicted circular speed:\", reference_output, \"scaled speed units\")\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-010",
      "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",
        "1.41421 scaled speed units. The midpoint, at 1.75 scaled length units, gives\n",
        "0.755929 scaled speed units. The upper endpoint gives 0.57735 scaled speed units.\n",
        "Read these together with the assumptions: they describe different choices of radius\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-011",
      "metadata": {},
      "source": [
        "evaluate = sp.lambdify(q, expression, modules=\"numpy\")\n",
        "inputs = np.array([0.5, 1.75, 3.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(\n",
        "        f\"{input_value:.6g} scaled length units -> \"\n",
        "        f\"{output_value:.6g} scaled speed units\"\n",
        "    )\n",
        "assert np.all(np.isfinite(outputs))\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-012",
      "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 radius; the vertical axis shows circular speed. 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-013",
      "metadata": {},
      "source": [
        "input_grid = np.linspace(0.5, 3.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(\"Radius (scaled length units)\")\n",
        "ax.set_ylabel(\"Circular speed (scaled speed units)\")\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-014",
      "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",
        "circular speed change near the reference input? Its units are the output unit divided by\n",
        "the input unit. For this calculation, the derivative at 1 scaled length units is\n",
        "-0.5 in those ratio units. Locally, the output decreases 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) = - \\frac{\\sqrt{\\frac{1}{q}}}{2 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-015",
      "metadata": {},
      "source": [
        "slope_expression = sp.diff(expression, q)\n",
        "slope_at_reference = float(slope_expression.subs(q, reference_input))\n",
        "changed_input = 1.0125\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, \"scaled speed units\")\n",
        "print(\"Full expression:\", full_prediction, \"scaled speed units\")\n",
        "print(\n",
        "    \"Approximation difference:\",\n",
        "    full_prediction - linear_prediction,\n",
        "    \"scaled speed units\",\n",
        ")\n"
      ],
      "execution_count": null,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "id": "markdown-016",
      "metadata": {},
      "source": [
        "Here the changed input is 1.0125 scaled length units. The tangent estimate is\n",
        "0.99375 scaled speed units, while the full expression gives\n",
        "0.993808 scaled speed units. 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-017",
      "metadata": {},
      "source": [
        "input_span = 2.5\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-018",
      "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",
        "radius inside the stated interval, predict whether circular speed 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: A numerical orbit must also maintain the direction of velocity perpendicular to the radius. 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 scaled speed units:\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-019",
      "metadata": {},
      "source": [
        "slope_function = sp.lambdify(q, slope_expression, modules=\"numpy\")\n",
        "endpoint_change = float(evaluate(3.0) - evaluate(0.5))\n",
        "for points in [101, 201, 401]:\n",
        "    grid = np.linspace(0.5, 3.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-020",
      "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 1*, Section 13.3, \"Gravitational Potential Energy and Total Energy\"](https://openstax.org/books/university-physics-volume-1/pages/13-3-gravitational-potential-energy-and-total-energy).\n",
        "- [OpenStax, *University Physics Volume 1*, Section 13.4, \"Satellite Orbits and Energy\"](https://openstax.org/books/university-physics-volume-1/pages/13-4-satellite-orbits-and-energy).\n",
        "- [OpenStax, *University Physics Volume 1*, Section 13.5, \"Kepler's Laws of Planetary Motion\"](https://openstax.org/books/university-physics-volume-1/pages/13-5-keplers-laws-of-planetary-motion).\n",
        "- [MIT OpenCourseWare, *8.01SC Classical Mechanics*, Chapter 25, \"Celestial Mechanics\"](https://ocw.mit.edu/courses/8-01sc-classical-mechanics-fall-2016/resources/mit8_01scs22_chapter25new/).\n",
        "- [Benjamin Crowell, *Light and Matter*, gravitation and orbital-motion discussions](https://open.umn.edu/opentextbooks/textbooks/light-and-matter).\n",
        "- [Physics LibreTexts, \"Satellite Orbits and Energy\"](https://phys.libretexts.org/Bookshelves/University_Physics/University_Physics_%28OpenStax%29/Book%3A_University_Physics_I_-_Mechanics_Sound_Oscillations_and_Waves_%28OpenStax%29/13%3A_Gravitation/13.05%3A_Satellite_Orbits_and_Energy)."
      ]
    }
  ],
  "metadata": {
    "kernelspec": {
      "display_name": "Python 3",
      "language": "python",
      "name": "python3"
    },
    "language_info": {
      "name": "python",
      "version": "3.12"
    },
    "colab": {
      "name": "orbits-numerical-experiments.ipynb",
      "provenance": []
    },
    "tirta": {
      "lesson": "https://tirta.co/a-byte-of-physics/orbits-numerical-experiments",
      "source_sha256": "d19cbef8b4ae66bc5f82eb12761355238526cb79b74d874f4953cde9afe562fd"
    }
  },
  "nbformat": 4,
  "nbformat_minor": 5
}
