/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│
╞══════════════════════════════════════════════════════════════════════════════╡
│ Copyright 2020 Justine Alexandra Roberts Tunney │
│ │
│ This program is free software; you can redistribute it and/or modify │
│ it under the terms of the GNU General Public License as published by │
│ the Free Software Foundation; version 2 of the License. │
│ │
│ This program is distributed in the hope that it will be useful, but │
│ WITHOUT ANY WARRANTY; without even the implied warranty of │
│ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU │
│ General Public License for more details. │
│ │
│ You should have received a copy of the GNU General Public License │
│ along with this program; if not, write to the Free Software │
│ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA │
│ 02110-1301 USA │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "dsp/core/core.h"
/**
* Computes Σ𝑥ᵢΣ𝑥ⱼΣ𝑥ₖΣ𝑥ₗΣ𝑥ₘΣ𝑥ₙ(δ₁𝑥ᵢ+δ₂𝑥ⱼ+δ₃𝑥ₖ+δ₄𝑥ₗ+δ₅𝑥ₘ+δ₆𝑥ₙ)² over 𝐿..𝐻
*
* “As soon as an Analytical Engine exists, it will necessarily
* guide the future course of the science. Whenever any result
* is sought by its aid, the question will then arise — by what
* course of calculation can these results be arrived at by the
* machine in the shortest time?
*
* — Charles Babbage (Life of a Philosopher, 1864)
*
* @see itu.int/rec/R-REC-BT.601/
*/
double DifferSumSq(const double D[static 6], double L, double H) {
double T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T2, T20, T21, T22,
T23, T24, T25, T26, T27, T3, T4, T5, T6, T7, T8, T9;
T2 = H * H, T3 = (H * H * H), T4 = (H * H * H * H), T5 = (H * H * H * H * H),
T6 = (H * H * H * H * H * H), T7 = -10 * H, T8 = (H * H * H * H * H * H * H),
T9 = (L * L * L * L * L * L * L * L), T10 = (L * L * L * L * L * L * L),
T11 = (L * L * L * L * L * L), T12 = (L * L * L * L * L), T13 = -45 * T2,
T14 = (L * L * L * L), T15 = 180 * T3, T16 = 120 * T2, T17 = (L * L * L),
T18 = L * L, T19 = 18 * T2, T20 = (H * H * H * H * H * H * H * H);
T21 = 45 * T4;
T22 = 3 * T9 + (-12 * H - 18) * T10 + (12 * T2 + 54 * H + 45) * T11 +
(12 * T3 - T19 - 90 * H - 60) * T12 +
(-30 * T4 - 90 * T3 + T13 + 60 * H + 45) * T14 +
(12 * T5 + 90 * T4 + T15 + T16 - 18) * T17 +
(12 * T6 + 18 * T5 - T21 - 120 * T3 - 90 * T2 - 18 * H + 3) * T18 +
(-12 * T8 - 54 * T6 - 90 * T5 - 60 * T4 + T19 + 6 * H) * L + 3 * T20 +
18 * T8 + 45 * T6 + 60 * T5 + T21 + 18 * T3 + 3 * T2;
T23 =
2 * T9 + (T7 - 13) * T10 + (20 * T2 + 55 * H + 36) * T11 +
(-22 * T3 - 93 * T2 - 126 * H - 55) * T12 +
(20 * T4 + 95 * T3 + 180 * T2 + 155 * H + 50) * T14 +
(-22 * T5 - 95 * T4 - T15 - 190 * T2 - 110 * H - 27) * T17 +
(20 * T6 + 93 * T5 + 180 * T4 + 190 * T3 + T16 + 45 * H + 8) * T18 +
(-10 * T8 - 55 * T6 - 126 * T5 - 155 * T4 - 110 * T3 + T13 + T7 - 1) * L +
2 * T20 + 13 * T8 + 36 * T6 + 55 * T5 + 50 * T4 + 27 * T3 + 8 * T2 + H;
T24 = T22 * D[3], T25 = T22 * D[2], T26 = T22 * D[1], T27 = T22 * D[0];
return (T23 * D[5] * D[5] + (T22 * D[4] + T24 + T25 + T26 + T27) * D[5] +
T23 * D[4] * D[4] + (T24 + T25 + T26 + T27) * D[4] +
T23 * D[3] * D[3] + (T25 + T26 + T27) * D[3] + T23 * D[2] * D[2] +
(T26 + T27) * D[2] + T23 * D[1] * D[1] + T22 * D[0] * D[1] +
T23 * D[0] * D[0]) /
6;
}