/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
│ vi: set et ft=c ts=2 sts=2 sw=2 fenc=utf-8                               :vi │
╞══════════════════════════════════════════════════════════════════════════════╡
│ Copyright 2020 Justine Alexandra Roberts Tunney                              │
│                                                                              │
│ Permission to use, copy, modify, and/or distribute this software for         │
│ any purpose with or without fee is hereby granted, provided that the         │
│ above copyright notice and this permission notice appear in all copies.      │
│                                                                              │
│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
│ PERFORMANCE OF THIS SOFTWARE.                                                │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "dsp/core/core.h"
#include "dsp/core/q.h"

/**
 * Computes Σ𝑥ᵢΣ𝑥ⱼΣ𝑥ₖΣ𝑥ₗΣ𝑥ₘΣ𝑥ₙΣ𝑥ₚΣ𝑥ₛ(δ₁𝑥ᵢ+δ₂𝑥ⱼ+δ₃𝑥ₖ+δ₄𝑥ₗ+δ₅𝑥ₘ+δ₆𝑥ₙ+δₚ𝑥ₚ+δₛ𝑥ₛ)²
 *
 *   “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)
 *
 */
double DifferSumSq8(const double D[static 8], double L, double H) {
  double T10, T100, T101, T102, T103, T104, T105, T106, T107, T108, T109, T11;
  double T110, T111, T112, T113, T114, T115, T116, T117, T118, T119, T12, T120;
  double T121, T122, T123, T124, T125, T126, T127, T128, T129, T13, T130, T131;
  double T132, T133, T134, T135, T136, T137, T138, T139, T14, T140, T141, T142;
  double T143, T144, T145, T146, T147, T148, T149, T15, T150, T151, T152, T153;
  double T154, T155, T156, T157, T158, T159, T16, T160, T161, T162, T163, T164;
  double T165, T166, T167, T168, T169, T17, T170, T171, T172, T173, T174, T175;
  double T176, T177, T178, T179, T18, T180, T181, T182, T183, T184, T185, T186;
  double T187, T188, T189, T19, T190, T191, T192, T193, T194, T195, T196, T197;
  double T198, T199, T2, T20, T200, T201, T202, T203, T204, T205, T206, T207;
  double T208, T209, T21, T210, T211, T212, T213, T214, T215, T216, T217, T218;
  double T219, T22, T220, T221, T222, T223, T224, T225, T226, T227, T228, T229;
  double T230, T231, T232, T233, T234, T235, T236, T237, T238, T239, T24, T240;
  double T241, T242, T243, T244, T245, T246, T247, T248, T249, T25, T250, T251;
  double T252, T253, T254, T255, T256, T257, T258, T259, T26, T260, T261, T262;
  double T263, T264, T265, T266, T267, T268, T269, T27, T270, T271, T272, T273;
  double T274, T275, T276, T277, T278, T279, T28, T280, T281, T282, T283, T284;
  double T285, T286, T287, T288, T289, T29, T290, T291, T292, T293, T294, T295;
  double T296, T297, T298, T299, T3, T30, T300, T301, T302, T303, T304, T305;
  double T307, T308, T309, T31, T310, T311, T312, T313, T314, T315, T316, T317;
  double T318, T319, T32, T320, T321, T322, T323, T324, T325, T326, T327, T328;
  double T329, T33, T330, T331, T332, T333, T334, T335, T336, T337, T338, T339;
  double T34, T340, T341, T342, T343, T344, T345, T346, T347, T348, T349, T35;
  double T350, T351, T352, T353, T354, T355, T356, T357, T358, T359, T36, T360;
  double T361, T362, T363, T364, T365, T366, T367, T368, T369, T37, T370, T371;
  double T372, T373, T374, T375, T376, T377, T378, T379, T38, T380, T381, T382;
  double T383, T384, T385, T386, T387, T388, T389, T39, T390, T391, T392, T393;
  double T394, T395, T396, T397, T398, T399, T4, T40, T400, T401, T402, T403;
  double T405, T406, T407, T41, T42, T43, T44, T45, T46, T47, T48, T49, T5, T50;
  double T51, T52, T53, T54, T55, T56, T57, T58, T59, T6, T60, T61, T62, T63;
  double T65, T66, T67, T68, T69, T7, T70, T71, T72, T73, T74, T75, T76, T77;
  double T79, T8, T80, T81, T82, T83, T84, T85, T86, T87, T88, T89, T9, T90;
  double T92, T93, T94, T95, T96, T97, T98, T99, T23, T306, T91, T78, T64, T404;
  T2 = 4 * D[5], T3 = 3 * D[4], T4 = 3 * D[3], T5 = 3 * D[2], T6 = 3 * D[1],
  T7 = 3 * D[0], T8 = D[7] * D[7], T9 = D[6] * D[6], T10 = -28 * D[5],
  T11 = -18 * D[4], T12 = -18 * D[3], T13 = -18 * D[2], T14 = -18 * D[1],
  T15 = -18 * D[0], T16 = D[5] * D[5], T17 = D[4] * D[4], T18 = D[3] * D[3],
  T19 = D[2] * D[2], T20 = D[1] * D[1], T21 = D[0] * D[0], T22 = -34 * D[5],
  T23 = -24 * D[4], T24 = -24 * D[3], T25 = -24 * D[2], T26 = -24 * D[1],
  T27 = -24 * D[0], T28 = 84 * D[5], T29 = 39 * D[4], T30 = 39 * D[3],
  T31 = 39 * D[2], T32 = 39 * D[1], T33 = 39 * D[0], T34 = 210 * D[5],
  T35 = 120 * D[4], T36 = 120 * D[3], T37 = 120 * D[2], T38 = 120 * D[1],
  T39 = 120 * D[0], T40 = 128 * D[5], T41 = 84 * D[4], T42 = 84 * D[3],
  T43 = 84 * D[2], T44 = 84 * D[1], T45 = 84 * D[0];
  T46 = -144 * D[5], T47 = (T23 + T24 + T25 + T26 + T27) * D[5],
  T48 = (T24 + T25 + T26 + T27) * D[4], T49 = (T25 + T26 + T27) * D[3],
  T50 = (T26 + T27) * D[2], T51 = -24 * D[0] * D[1], T52 = -552 * D[5],
  T53 = -192 * D[4], T54 = -192 * D[3], T55 = -192 * D[2], T56 = -192 * D[1],
  T57 = -192 * D[0], T58 = H * H, T59 = -688 * D[5], T60 = -336 * D[4],
  T61 = -336 * D[3], T62 = -336 * D[2], T63 = -336 * D[1], T64 = -336 * D[0],
  T65 = -280 * D[5], T66 = -168 * D[4], T67 = -168 * D[3], T68 = -168 * D[2],
  T69 = -168 * D[1], T70 = -168 * D[0], T71 = 168 * D[5], T72 = -42 * D[4],
  T73 = -42 * D[3], T74 = -42 * D[2], T75 = -42 * D[1], T76 = -42 * D[0],
  T77 = (H * H * H), T78 = 336 * D[4], T79 = 336 * D[3], T80 = 336 * D[2],
  T81 = 336 * D[1], T82 = 336 * D[0], T83 = 1568 * D[5],
  T84 = 336 * D[0] * D[1], T85 = 1288 * D[5], T86 = 504 * D[4],
  T87 = 504 * D[3], T88 = 504 * D[2], T89 = 504 * D[1], T90 = 504 * D[0],
  T91 = 392 * D[5], T92 = 210 * D[4], T93 = 210 * D[3], T94 = 210 * D[2],
  T95 = 210 * D[1], T96 = 210 * D[0], T97 = 84 * T8, T98 = 168 * D[6],
  T99 = 84 * T9, T100 = 84 * T16, T101 = (T41 + T42 + T43 + T44 + T45) * D[5],
  T102 = 84 * T17, T103 = (T42 + T43 + T44 + T45) * D[4], T104 = 84 * T18,
  T105 = (T43 + T44 + T45) * D[3], T106 = 84 * T19, T107 = (T44 + T45) * D[2],
  T108 = 84 * T20, T109 = 84 * D[0] * D[1], T110 = 84 * T21, T111 = -924 * D[5],
  T112 = (T78 + T79 + T80 + T81 + T82) * D[5],
  T113 = (T79 + T80 + T81 + T82) * D[4], T114 = (T80 + T81 + T82) * D[3],
  T115 = (T81 + T82) * D[2], T116 = (H * H * H * H), T117 = -2128 * D[5],
  T118 = -2520 * D[5], T119 = (T66 + T67 + T68 + T69 + T70) * D[5],
  T120 = (T67 + T68 + T69 + T70) * D[4], T121 = (T68 + T69 + T70) * D[3],
  T122 = (T69 + T70) * D[2], T123 = -168 * D[0] * D[1], T124 = -1512 * D[5],
  T125 = -420 * D[4], T126 = -420 * D[3], T127 = -420 * D[2],
  T128 = -420 * D[1], T129 = -420 * D[0], T130 = -364 * D[5];
  T131 = T97 + (T98 + T71 + T72 + T73 + T74 + T75 + T76) * D[7] + T99 +
         (T71 + T72 + T73 + T74 + T75 + T76) * D[6] + T100 +
         (T72 + T73 + T74 + T75 + T76) * D[5] + T102 +
         (T73 + T74 + T75 + T76) * D[4] + T104 + (T74 + T75 + T76) * D[3] +
         T106 + (T75 + T76) * D[2] + T108 - 42 * D[0] * D[1] + T110;
  T132 = 462 * T8, T133 = 924 * D[6], T134 = 924 * D[5], T135 = 462 * T9,
  T136 = 462 * T16, T137 = (T60 + T61 + T62 + T63 + T64) * D[5],
  T138 = 462 * T17, T139 = (T61 + T62 + T63 + T64) * D[4], T140 = 462 * T18,
  T141 = (T62 + T63 + T64) * D[3], T142 = 462 * T19, T143 = (T63 + T64) * D[2],
  T144 = 462 * T20, T145 = 462 * T21, T146 = (H * H * H * H * H),
  T147 = 2240 * D[5], T148 = -840 * D[4], T149 = -840 * D[3],
  T150 = -840 * D[2], T151 = -840 * D[1], T152 = -840 * D[0],
  T153 = 3080 * D[5], T154 = (T148 + T149 + T150 + T151 + T152) * D[5],
  T155 = (T149 + T150 + T151 + T152) * D[4], T156 = (T150 + T151 + T152) * D[3],
  T157 = (T151 + T152) * D[2], T158 = -840 * D[0] * D[1], T159 = 1260 * T8,
  T160 = 2520 * D[6], T161 = 2520 * D[5], T162 = 1260 * T9, T163 = 1260 * T16,
  T164 = 1260 * T17, T165 = 1260 * T18, T166 = 1260 * T19, T167 = 1260 * T20,
  T168 = 210 * D[0] * D[1], T169 = 1260 * T21, T170 = 168 * D[4],
  T171 = 168 * D[3], T172 = 168 * D[2], T173 = 168 * D[1], T174 = 168 * D[0],
  T175 = 1148 * D[5], T176 = 168 * D[0] * D[1], T177 = 224 * D[5];
  T178 = -72 * T8 + (-144 * D[6] + T46 + T23 + T24 + T25 + T26 + T27) * D[7] -
         72 * T9 + (T46 + T23 + T24 + T25 + T26 + T27) * D[6] - 72 * T16 + T47 -
         72 * T17 + T48 - 72 * T18 + T49 - 72 * T19 + T50 - 72 * T20 + T51 -
         72 * T21;
  T179 = 420 * T8, T180 = 840 * D[6], T181 = 840 * D[5], T182 = 420 * T9,
  T183 = 840 * D[5] * D[6], T184 = 420 * T16, T185 = 420 * T17,
  T186 = 420 * T18, T187 = 420 * T19, T188 = 420 * T20, T189 = 420 * T21,
  T190 = (H * H * H * H * H * H);
  T191 = -1064 * T8 +
         (-2128 * D[6] + T117 + T78 + T79 + T80 + T81 + T82) * D[7] -
         1064 * T9 + (T117 + T78 + T79 + T80 + T81 + T82) * D[6] - 1064 * T16 +
         T112 - 1064 * T17 + T113 - 1064 * T18 + T114 - 1064 * T19 + T115 -
         1064 * T20 + T84 - 1064 * T21;
  T192 = 1540 * T8, T193 = 3080 * D[6], T194 = 840 * D[4], T195 = 840 * D[3],
  T196 = 840 * D[2], T197 = 840 * D[1], T198 = 840 * D[0], T199 = 1540 * T9,
  T200 = 1540 * T16, T201 = 1540 * T17, T202 = 1540 * T18, T203 = 1540 * T19,
  T204 = 1540 * T20, T205 = 840 * D[0] * D[1], T206 = 1540 * T21,
  T207 = -2800 * D[5], T208 = (T194 + T195 + T196 + T197 + T198) * D[5],
  T209 = (T195 + T196 + T197 + T198) * D[4], T210 = (T196 + T197 + T198) * D[3],
  T211 = (T197 + T198) * D[2], T212 = -1624 * D[5], T213 = -88 * D[5];
  T214 = 42 * T8 + (84 * D[6] + T28 + T29 + T30 + T31 + T32 + T33) * D[7] +
         42 * T9 + (T28 + T29 + T30 + T31 + T32 + T33) * D[6] + 42 * T16 +
         (T29 + T30 + T31 + T32 + T33) * D[5] + 42 * T17 +
         (T30 + T31 + T32 + T33) * D[4] + 42 * T18 + (T31 + T32 + T33) * D[3] +
         42 * T19 + (T32 + T33) * D[2] + 42 * T20 + 39 * D[0] * D[1] + 42 * T21;
  T215 = 276 * T8, T216 = 552 * D[6], T217 = 552 * D[5], T218 = 192 * D[4],
  T219 = 192 * D[3], T220 = 192 * D[2], T221 = 192 * D[1], T222 = 192 * D[0],
  T223 = 276 * T9, T224 = 276 * T16, T225 = 276 * T17, T226 = 276 * T18,
  T227 = 276 * T19, T228 = 276 * T20, T229 = 192 * D[0] * D[1],
  T230 = 276 * T21, T231 = (H * H * H * H * H * H * H);
  T232 = 784 * T8 + (1568 * D[6] + T83 + T78 + T79 + T80 + T81 + T82) * D[7] +
         784 * T9 + (T83 + T78 + T79 + T80 + T81 + T82) * D[6] + 784 * T16 +
         T112 + 784 * T17 + T113 + 784 * T18 + T114 + 784 * T19 + T115 +
         784 * T20 + T84 + 784 * T21;
  T233 = (T170 + T171 + T172 + T173 + T174) * D[5];
  T234 = (T171 + T172 + T173 + T174) * D[4];
  T235 = (T172 + T173 + T174) * D[3];
  T236 = (T173 + T174) * D[2];
  T237 = T159 + (T160 + T161 - T92 - T93 - T94 - T95 - T96) * D[7] + T162 +
         (T161 - T92 - T93 - T94 - T95 - T96) * D[6] + T163 +
         (-T92 - T93 - T94 - T95 - T96) * D[5] + T164 +
         (-T93 - T94 - T95 - T96) * D[4] + T165 + (-T94 - T95 - T96) * D[3] +
         T166 + (-T95 - T96) * D[2] + T167 - T168 + T169;
  T238 = 812 * T8, T239 = 1624 * D[6], T240 = 1624 * D[5], T241 = 812 * T9,
  T242 = 812 * T16, T243 = 812 * T17, T244 = 812 * T18, T245 = 812 * T19,
  T246 = 812 * T20, T247 = 812 * T21, T248 = 672 * D[5], T249 = 20 * D[5],
  T250 = (T3 + T4 + T5 + T6 + T7) * D[5], T251 = (T4 + T5 + T6 + T7) * D[4],
  T252 = (T5 + T6 + T7) * D[3], T253 = (T6 + T7) * D[2], T254 = 3 * D[0] * D[1];
  T255 = -14 * T8 + (-28 * D[6] + T10 + T11 + T12 + T13 + T14 + T15) * D[7] -
         14 * T9 + (T10 + T11 + T12 + T13 + T14 + T15) * D[6] - 14 * T16 +
         (T11 + T12 + T13 + T14 + T15) * D[5] - 14 * T17 +
         (T12 + T13 + T14 + T15) * D[4] - 14 * T18 + (T13 + T14 + T15) * D[3] -
         14 * T19 + (T14 + T15) * D[2] - 14 * T20 - 18 * D[0] * D[1] - 14 * T21;
  T256 = 105 * T8, T257 = 210 * D[6], T258 = 105 * T9, T259 = 105 * T16,
  T260 = 105 * T17, T261 = 105 * T18, T262 = 105 * T19, T263 = 105 * T20,
  T264 = 120 * D[0] * D[1], T265 = 105 * T21,
  T266 = (H * H * H * H * H * H * H * H);
  T267 = -344 * T8 + (-688 * D[6] + T59 + T60 + T61 + T62 + T63 + T64) * D[7] -
         344 * T9 + (T59 + T60 + T61 + T62 + T63 + T64) * D[6] - 344 * T16 +
         T137 - 344 * T17 + T139 - 344 * T18 + T141 - 344 * T19 + T143 -
         344 * T20 - T84 - 344 * T21;
  T268 = 644 * T8, T269 = 1288 * D[6], T270 = 644 * T9, T271 = 644 * T16,
  T272 = 644 * T17, T273 = 644 * T18, T274 = 644 * T19, T275 = 644 * T20,
  T276 = 504 * D[0] * D[1], T277 = 644 * T21;
  T278 = -756 * T8 +
         (-1512 * D[6] + T124 + T125 + T126 + T127 + T128 + T129) * D[7] -
         756 * T9 + (T124 + T125 + T126 + T127 + T128 + T129) * D[6] -
         756 * T16 + (T125 + T126 + T127 + T128 + T129) * D[5] - 756 * T17 +
         (T126 + T127 + T128 + T129) * D[4] - 756 * T18 +
         (T127 + T128 + T129) * D[3] - 756 * T19 + (T128 + T129) * D[2] -
         756 * T20 - 420 * D[0] * D[1] - 756 * T21;
  T279 = 574 * T8, T280 = 1148 * D[6], T281 = 574 * T9, T282 = 574 * T16,
  T283 = 574 * T17, T284 = 574 * T18, T285 = 574 * T19, T286 = 574 * T20,
  T287 = 574 * T21;
  T288 = -280 * T8 + (-560 * D[6] - 560 * D[5]) * D[7] - 280 * T9 -
         560 * D[5] * D[6] - 280 * T16 - 280 * T17 - 280 * T18 - 280 * T19 -
         280 * T20 - 280 * T21;
  T289 = 24 * D[4], T290 = 24 * D[3], T291 = 24 * D[2], T292 = 24 * D[1],
  T293 = 24 * D[0], T294 = 24 * D[0] * D[1], T295 = -14 * T8, T296 = -28 * D[6],
  T297 = -14 * T9, T298 = 6 * D[4], T299 = 6 * D[3], T300 = 6 * D[2],
  T301 = 6 * D[1], T302 = 6 * D[0], T303 = -14 * T16, T304 = -14 * T17,
  T305 = -14 * T18, T306 = -14 * T19, T307 = -14 * T20, T308 = -14 * T21;
  T309 = 2 * T8 + (4 * D[6] + T2 + T3 + T4 + T5 + T6 + T7) * D[7] + 2 * T9 +
         (T2 + T3 + T4 + T5 + T6 + T7) * D[6] + 2 * T16 + T250 + 2 * T17 +
         T251 + 2 * T18 + T252 + 2 * T19 + T253 + 2 * T20 + T254 + 2 * T21;
  T310 = 17 * T8, T311 = 34 * D[6], T312 = 34 * D[5], T313 = 17 * T9,
  T314 = 17 * T16, T315 = (T289 + T290 + T291 + T292 + T293) * D[5];
  T316 = 17 * T17, T317 = (T290 + T291 + T292 + T293) * D[4];
  T318 = 17 * T18, T319 = (T291 + T292 + T293) * D[3];
  T320 = 17 * T19, T321 = (T292 + T293) * D[2];
  T322 = 17 * T20, T323 = 17 * T21, T324 = (H * H * H * H * H * H * H * H * H);
  T325 = 64 * T8,
  T326 = (128 * D[6] + T40 + T41 + T42 + T43 + T44 + T45) * D[7];
  T327 = 64 * T9, T328 = (T40 + T41 + T42 + T43 + T44 + T45) * D[6];
  T329 = 64 * T16, T330 = 64 * T17, T331 = 64 * T18, T332 = 64 * T19,
  T333 = 64 * T20, T334 = 64 * T21, T335 = 140 * T8, T336 = 280 * D[6],
  T337 = 280 * D[5], T338 = 140 * T9, T339 = 140 * T16, T340 = 140 * T17,
  T341 = 140 * T18, T342 = 140 * T19, T343 = 140 * T20, T344 = 140 * T21,
  T345 = 196 * T8;
  T346 = (392 * D[6] + T91 + T92 + T93 + T94 + T95 + T96) * D[7];
  T347 = 196 * T9;
  T348 = (T91 + T92 + T93 + T94 + T95 + T96) * D[6];
  T349 = 196 * T16;
  T350 = (T92 + T93 + T94 + T95 + T96) * D[5];
  T351 = 196 * T17;
  T352 = (T93 + T94 + T95 + T96) * D[4];
  T353 = 196 * T18;
  T354 = (T94 + T95 + T96) * D[3];
  T355 = 196 * T19;
  T356 = (T95 + T96) * D[2];
  T357 = 196 * T20, T358 = 196 * T21, T359 = 182 * T8, T360 = 364 * D[6],
  T361 = 364 * D[5], T362 = 182 * T9, T363 = 182 * T16, T364 = 182 * T17,
  T365 = 182 * T18, T366 = 182 * T19, T367 = 182 * T20, T368 = 182 * T21,
  T369 = 112 * T8;
  T370 = (224 * D[6] + T177 + T41 + T42 + T43 + T44 + T45) * D[7];
  T371 = 112 * T9;
  T372 = (T177 + T41 + T42 + T43 + T44 + T45) * D[6];
  T373 = 112 * T16, T374 = 112 * T17, T375 = 112 * T18, T376 = 112 * T19,
  T377 = 112 * T20, T378 = 112 * T21, T379 = 44 * T8, T380 = 88 * D[6],
  T381 = 88 * D[5], T382 = 44 * T9, T383 = 44 * T16, T384 = 44 * T17,
  T385 = 44 * T18, T386 = 44 * T19, T387 = 44 * T20, T388 = 44 * T21,
  T389 = 10 * T8, T390 = (20 * D[6] + T249 + T3 + T4 + T5 + T6 + T7) * D[7];
  T391 = 10 * T9, T392 = (T249 + T3 + T4 + T5 + T6 + T7) * D[6];
  T393 = 10 * T16, T394 = 10 * T17, T395 = 10 * T18, T396 = 10 * T19,
  T397 = 10 * T20, T398 = 10 * T21, T399 = 2 * D[6], T400 = 2 * D[5],
  T401 = 2 * D[5] * D[6];
  T402 = T309 * (L * L * L * L * L * L * L * L * L * L) +
         (T255 * H - T310 + (-T311 + T22 + T23 + T24 + T25 + T26 + T27) * D[7] -
          T313 + (T22 + T23 + T24 + T25 + T26 + T27) * D[6] - T314 + T47 -
          T316 + T48 - T318 + T49 - T320 + T50 - T322 + T51 - T323) *
             (L * L * L * L * L * L * L * L * L) +
         (T214 * T58 +
          (T256 + (T257 + T34 + T35 + T36 + T37 + T38 + T39) * D[7] + T258 +
           (T34 + T35 + T36 + T37 + T38 + T39) * D[6] + T259 +
           (T35 + T36 + T37 + T38 + T39) * D[5] + T260 +
           (T36 + T37 + T38 + T39) * D[4] + T261 + (T37 + T38 + T39) * D[3] +
           T262 + (T38 + T39) * D[2] + T263 + T264 + T265) *
              H +
          T325 + T326 + T327 + T328 + T329 + T101 + T330 + T103 + T331 + T105 +
          T332 + T107 + T333 + T109 + T334) *
             (L * L * L * L * L * L * L * L) +
         (T178 * T77 +
          (-T215 + (-T216 + T52 + T53 + T54 + T55 + T56 + T57) * D[7] - T223 +
           (T52 + T53 + T54 + T55 + T56 + T57) * D[6] - T224 +
           (T53 + T54 + T55 + T56 + T57) * D[5] - T225 +
           (T54 + T55 + T56 + T57) * D[4] - T226 + (T55 + T56 + T57) * D[3] -
           T227 + (T56 + T57) * D[2] - T228 - T229 - T230) *
              T58 +
          T267 * H - T335 + (-T336 + T65 + T66 + T67 + T68 + T69 + T70) * D[7] -
          T338 + (T65 + T66 + T67 + T68 + T69 + T70) * D[6] - T339 + T119 -
          T340 + T120 - T341 + T121 - T342 + T122 - T343 + T123 - T344) *
             (L * L * L * L * L * L * L);
  T403 =
      T402 +
      (T131 * T116 +
       (T179 + (T180 + T181) * D[7] + T182 + T183 + T184 + T185 + T186 + T187 +
        T188 + T189) *
           T77 +
       T232 * T58 +
       (T268 + (T269 + T85 + T86 + T87 + T88 + T89 + T90) * D[7] + T270 +
        (T85 + T86 + T87 + T88 + T89 + T90) * D[6] + T271 +
        (T86 + T87 + T88 + T89 + T90) * D[5] + T272 +
        (T87 + T88 + T89 + T90) * D[4] + T273 + (T88 + T89 + T90) * D[3] +
        T274 + (T89 + T90) * D[2] + T275 + T276 + T277) *
           H +
       T345 + T346 + T347 + T348 + T349 + T350 + T351 + T352 + T353 + T354 +
       T355 + T356 + T357 + T168 + T358) *
          (L * L * L * L * L * L) +
      ((-T97 + (-T98 - T71 + T41 + T42 + T43 + T44 + T45) * D[7] - T99 +
        (-T71 + T41 + T42 + T43 + T44 + T45) * D[6] - T100 + T101 - T102 +
        T103 - T104 + T105 - T106 + T107 - T108 + T109 - T110) *
           T146 +
       (-T132 + (-T133 + T111 + T78 + T79 + T80 + T81 + T82) * D[7] - T135 +
        (T111 + T78 + T79 + T80 + T81 + T82) * D[6] - T136 + T112 - T138 +
        T113 - T140 + T114 - T142 + T115 - T144 + T84 - T145) *
           T116 +
       T191 * T77 +
       (-T159 + (-T160 + T118 + T66 + T67 + T68 + T69 + T70) * D[7] - T162 +
        (T118 + T66 + T67 + T68 + T69 + T70) * D[6] - T163 + T119 - T164 +
        T120 - T165 + T121 - T166 + T122 - T167 + T123 - T169) *
           T58 +
       T278 * H - T359 + (-T360 + T130 + T66 + T67 + T68 + T69 + T70) * D[7] -
       T362 + (T130 + T66 + T67 + T68 + T69 + T70) * D[6] - T363 + T119 - T364 +
       T120 - T365 + T121 - T366 + T122 - T367 + T123 - T368) *
          (L * L * L * L * L);
  T404 =
      T403 +
      (T131 * T190 +
       (T132 + (T133 + T134 + T60 + T61 + T62 + T63 + T64) * D[7] + T135 +
        (T134 + T60 + T61 + T62 + T63 + T64) * D[6] + T136 + T137 + T138 +
        T139 + T140 + T141 + T142 + T143 + T144 - T84 + T145) *
           T146 +
       (1120 * T8 +
        (2240 * D[6] + T147 + T148 + T149 + T150 + T151 + T152) * D[7] +
        1120 * T9 + (T147 + T148 + T149 + T150 + T151 + T152) * D[6] +
        1120 * T16 + T154 + 1120 * T17 + T155 + 1120 * T18 + T156 + 1120 * T19 +
        T157 + 1120 * T20 + T158 + 1120 * T21) *
           T116 +
       (T192 + (T193 + T153 + T148 + T149 + T150 + T151 + T152) * D[7] + T199 +
        (T153 + T148 + T149 + T150 + T151 + T152) * D[6] + T200 + T154 + T201 +
        T155 + T202 + T156 + T203 + T157 + T204 + T158 + T206) *
           T77 +
       T237 * T58 +
       (T279 + (T280 + T175 + T170 + T171 + T172 + T173 + T174) * D[7] + T281 +
        (T175 + T170 + T171 + T172 + T173 + T174) * D[6] + T282 + T233 + T283 +
        T234 + T284 + T235 + T285 + T236 + T286 + T176 + T287) *
           H +
       T369 + T370 + T371 + T372 + T373 + T101 + T374 + T103 + T375 + T105 +
       T376 + T107 + T377 + T109 + T378) *
          (L * L * L * L) +
      (T178 * T231 +
       (-T179 + (-T180 - T181) * D[7] - T182 - T183 - T184 - T185 - T186 -
        T187 - T188 - T189) *
           T190 +
       T191 * T146 +
       (-T192 + (-T193 - T153 + T194 + T195 + T196 + T197 + T198) * D[7] -
        T199 + (-T153 + T194 + T195 + T196 + T197 + T198) * D[6] - T200 + T208 -
        T201 + T209 - T202 + T210 - T203 + T211 - T204 + T205 - T206) *
           T116 +
       (-1400 * T8 +
        (-2800 * D[6] + T207 + T194 + T195 + T196 + T197 + T198) * D[7] -
        1400 * T9 + (T207 + T194 + T195 + T196 + T197 + T198) * D[6] -
        1400 * T16 + T208 - 1400 * T17 + T209 - 1400 * T18 + T210 - 1400 * T19 +
        T211 - 1400 * T20 + T205 - 1400 * T21) *
           T77 +
       (-T238 + (-T239 + T212 + T78 + T79 + T80 + T81 + T82) * D[7] - T241 +
        (T212 + T78 + T79 + T80 + T81 + T82) * D[6] - T242 + T112 - T243 +
        T113 - T244 + T114 - T245 + T115 - T246 + T84 - T247) *
           T58 +
       T288 * H - T379 + (-T380 + T213 + T23 + T24 + T25 + T26 + T27) * D[7] -
       T382 + (T213 + T23 + T24 + T25 + T26 + T27) * D[6] - T383 + T47 - T384 +
       T48 - T385 + T49 - T386 + T50 - T387 + T51 - T388) *
          (L * L * L);
  T405 =
      T214 * T266 +
      (T215 + (T216 + T217 + T218 + T219 + T220 + T221 + T222) * D[7] + T223 +
       (T217 + T218 + T219 + T220 + T221 + T222) * D[6] + T224 +
       (T218 + T219 + T220 + T221 + T222) * D[5] + T225 +
       (T219 + T220 + T221 + T222) * D[4] + T226 + (T220 + T221 + T222) * D[3] +
       T227 + (T221 + T222) * D[2] + T228 + T229 + T230) *
          T231 +
      T232 * T190 +
      (T159 + (T160 + T161 + T170 + T171 + T172 + T173 + T174) * D[7] + T162 +
       (T161 + T170 + T171 + T172 + T173 + T174) * D[6] + T163 + T233 + T164 +
       T234 + T165 + T235 + T166 + T236 + T167 + T176 + T169) *
          T146 +
      T237 * T116 +
      (T238 + (T239 + T240 + T60 + T61 + T62 + T63 + T64) * D[7] + T241 +
       (T240 + T60 + T61 + T62 + T63 + T64) * D[6] + T242 + T137 + T243 + T139 +
       T244 + T141 + T245 + T143 + T246 - T84 + T247) *
          T77 +
      (336 * T8 + (672 * D[6] + T248 + T66 + T67 + T68 + T69 + T70) * D[7] +
       336 * T9 + (T248 + T66 + T67 + T68 + T69 + T70) * D[6] + 336 * T16 +
       T119 + 336 * T17 + T120 + 336 * T18 + T121 + 336 * T19 + T122 +
       336 * T20 - T176 + 336 * T21) *
          T58 +
      (T97 + (T98 + T71 + T23 + T24 + T25 + T26 + T27) * D[7] + T99 +
       (T71 + T23 + T24 + T25 + T26 + T27) * D[6] + T100 + T47 + T102 + T48 +
       T104 + T49 + T106 + T50 + T108 + T51 + T110) *
          H +
      T389 + T390 + T391;
  T406 = T255 * T324 +
         (-T256 + (-T257 - T34 - T35 - T36 - T37 - T38 - T39) * D[7] - T258 +
          (-T34 - T35 - T36 - T37 - T38 - T39) * D[6] - T259 +
          (-T35 - T36 - T37 - T38 - T39) * D[5] - T260 +
          (-T36 - T37 - T38 - T39) * D[4] - T261 + (-T37 - T38 - T39) * D[3] -
          T262 + (-T38 - T39) * D[2] - T263 - T264 - T265) *
             T266 +
         T267 * T231 +
         (-T268 + (-T269 - T85 - T86 - T87 - T88 - T89 - T90) * D[7] - T270 +
          (-T85 - T86 - T87 - T88 - T89 - T90) * D[6] - T271 +
          (-T86 - T87 - T88 - T89 - T90) * D[5] - T272 +
          (-T87 - T88 - T89 - T90) * D[4] - T273 + (-T88 - T89 - T90) * D[3] -
          T274 + (-T89 - T90) * D[2] - T275 - T276 - T277) *
             T190 +
         T278 * T146 +
         (-T279 + (-T280 - T175 + T66 + T67 + T68 + T69 + T70) * D[7] - T281 +
          (-T175 + T66 + T67 + T68 + T69 + T70) * D[6] - T282 + T119 - T283 +
          T120 - T284 + T121 - T285 + T122 - T286 - T176 - T287) *
             T116 +
         T288 * T77 +
         (-T97 + (-T98 - T71 + T289 + T290 + T291 + T292 + T293) * D[7] - T99 +
          (-T71 + T289 + T290 + T291 + T292 + T293) * D[6] - T100 + T315 -
          T102 + T317 - T104 + T319 - T106 + T321 - T108 + T294 - T110) *
             T58;
  T407 = T404 +
         (T405 + T392 + T393 + T250 + T394 + T251 + T395 + T252 + T396 + T253 +
          T397 + T254 + T398) *
             L * L +
         (T406 +
          (T295 + (T296 + T10 + T298 + T299 + T300 + T301 + T302) * D[7] +
           T297 + (T10 + T298 + T299 + T300 + T301 + T302) * D[6] + T303 +
           (T298 + T299 + T300 + T301 + T302) * D[5] + T304 +
           (T299 + T300 + T301 + T302) * D[4] + T305 +
           (T300 + T301 + T302) * D[3] + T306 + (T301 + T302) * D[2] + T307 +
           6 * D[0] * D[1] + T308) *
              H -
          T8 + (-T399 - T400) * D[7] - T9 - T401 - T16 - T17 - T18 - T19 - T20 -
          T21) *
             L +
         T309 * (H * H * H * H * H * H * H * H * H * H) +
         (T310 + (T311 + T312 + T289 + T290 + T291 + T292 + T293) * D[7] +
          T313 + (T312 + T289 + T290 + T291 + T292 + T293) * D[6] + T314 +
          T315 + T316 + T317 + T318 + T319 + T320 + T321 + T322 + T294 + T323) *
             T324 +
         (T325 + T326 + T327 + T328 + T329 + T101 + T330 + T103 + T331 + T105 +
          T332 + T107 + T333 + T109 + T334) *
             T266 +
         (T335 + (T336 + T337 + T170 + T171 + T172 + T173 + T174) * D[7] +
          T338 + (T337 + T170 + T171 + T172 + T173 + T174) * D[6] + T339 +
          T233 + T340 + T234 + T341 + T235 + T342 + T236 + T343 + T176 + T344) *
             T231 +
         (T345 + T346 + T347 + T348 + T349 + T350 + T351 + T352 + T353 + T354 +
          T355 + T356 + T357 + T168 + T358) *
             T190;
  return (T407 +
          (T359 + (T360 + T361 + T170 + T171 + T172 + T173 + T174) * D[7] +
           T362 + (T361 + T170 + T171 + T172 + T173 + T174) * D[6] + T363 +
           T233 + T364 + T234 + T365 + T235 + T366 + T236 + T367 + T176 +
           T368) *
              T146 +
          (T369 + T370 + T371 + T372 + T373 + T101 + T374 + T103 + T375 + T105 +
           T376 + T107 + T377 + T109 + T378) *
              T116 +
          (T379 + (T380 + T381 + T289 + T290 + T291 + T292 + T293) * D[7] +
           T382 + (T381 + T289 + T290 + T291 + T292 + T293) * D[6] + T383 +
           T315 + T384 + T317 + T385 + T319 + T386 + T321 + T387 + T294 +
           T388) *
              T77 +
          (T389 + T390 + T391 + T392 + T393 + T250 + T394 + T251 + T395 + T252 +
           T396 + T253 + T397 + T254 + T398) *
              T58 +
          (T8 + (T399 + T400) * D[7] + T9 + T401 + T16 + T17 + T18 + T19 + T20 +
           T21) *
              H) /
         6;
}