mirror of
https://github.com/microsoft/DirectXMath
synced 2024-11-23 04:40:05 +00:00
4901 lines
208 KiB
C++
4901 lines
208 KiB
C++
//-----------------------------------------------------------------------------------
|
|
// DirectXSH.cpp -- C++ Spherical Harmonics Math Library
|
|
//
|
|
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
|
|
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
|
|
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
|
|
// PARTICULAR PURPOSE.
|
|
//
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
|
//
|
|
// http://go.microsoft.com/fwlink/p/?LinkId=262885
|
|
//-------------------------------------------------------------------------------------
|
|
|
|
#pragma warning( disable : 4619 4456 )
|
|
// C4619 #pragma warning warnings
|
|
// C4456 declaration hides previous local declaration
|
|
|
|
#include "DirectXSH.h"
|
|
#include <assert.h>
|
|
|
|
using namespace DirectX;
|
|
|
|
namespace
|
|
{
|
|
#pragma prefast(disable:246, "generated code by maple (nested const variable definitions)")
|
|
|
|
const float fExtraNormFac[XM_SH_MAXORDER] = { 2.0f*sqrtf(XM_PI), 2.0f / 3.0f*sqrtf(3.0f*XM_PI), 2.0f / 5.0f*sqrtf(5.0f*XM_PI), 2.0f / 7.0f*sqrtf(7.0f*XM_PI), 2.0f / 3.0f*sqrtf(XM_PI), 2.0f / 11.0f*sqrtf(11.0f*XM_PI) };
|
|
|
|
// computes the integral of a constant function over a solid angular
|
|
// extent. No error checking - only used internaly. This function
|
|
// only returns the Yl0 coefficients, since the rest are zero for
|
|
// circularly symmetric functions.
|
|
const float ComputeCapInt_t1 = sqrtf(0.3141593E1f);
|
|
const float ComputeCapInt_t5 = sqrtf(3.0f);
|
|
const float ComputeCapInt_t11 = sqrtf(5.0f);
|
|
const float ComputeCapInt_t18 = sqrtf(7.0f);
|
|
const float ComputeCapInt_t32 = sqrtf(11.0f);
|
|
|
|
inline void ComputeCapInt(const size_t order, float angle, float *pR)
|
|
{
|
|
const float t2 = cosf(angle);
|
|
const float t3 = ComputeCapInt_t1*t2;
|
|
const float t7 = sinf(angle);
|
|
const float t8 = t7*t7;
|
|
|
|
|
|
pR[0] = -t3 + ComputeCapInt_t1;
|
|
pR[1] = ComputeCapInt_t5*ComputeCapInt_t1*t8 / 2.0f;
|
|
|
|
if (order > 2)
|
|
{
|
|
const float t13 = t2*t2;
|
|
|
|
pR[2] = -ComputeCapInt_t11*ComputeCapInt_t1*t2*(t13 - 1.0f) / 2.0f;
|
|
if (order > 3)
|
|
{
|
|
const float t19 = ComputeCapInt_t18*ComputeCapInt_t1;
|
|
const float t20 = t13*t13;
|
|
|
|
pR[3] = -5.0f / 8.0f*t19*t20 + 3.0f / 4.0f*t19*t13 - t19 / 8.0f;
|
|
if (order > 4)
|
|
{
|
|
|
|
|
|
pR[4] = -3.0f / 8.0f*t3*(7.0f*t20 - 10.0f*t13 + 3.0f);
|
|
if (order > 5)
|
|
{
|
|
const float t33 = ComputeCapInt_t32*ComputeCapInt_t1;
|
|
pR[5] = -21.0f / 16.0f*t33*t20*t13 + 35.0f / 16.0f*t33*t20 - 15.0f / 16.0f*t33*t13 + t33 / 16.0f;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// input pF only consists of Yl0 values, normalizes coefficients for directional
|
|
// lights.
|
|
inline float CosWtInt(const size_t order)
|
|
{
|
|
const float fCW0 = 0.25f;
|
|
const float fCW1 = 0.5f;
|
|
const float fCW2 = 5.0f / 16.0f;
|
|
//const float fCW3 = 0.0f;
|
|
const float fCW4 = -3.0f / 32.0f;
|
|
//const float fCW5 = 0.0f;
|
|
|
|
// order has to be at least linear...
|
|
|
|
float fRet = fCW0 + fCW1;
|
|
|
|
if (order > 2) fRet += fCW2;
|
|
if (order > 4) fRet += fCW4;
|
|
|
|
// odd degrees >= 3 evaluate to zero integrated against cosine...
|
|
|
|
return fRet;
|
|
}
|
|
|
|
const float SHEvalHemisphereLight_fSqrtPi = sqrtf(XM_PI);
|
|
const float SHEvalHemisphereLight_fSqrtPi3 = sqrtf(XM_PI / 3.0f);
|
|
|
|
typedef float REAL;
|
|
#define CONSTANT(x) (x ## f)
|
|
|
|
// routine generated programmatically for evaluating SH basis for degree 1
|
|
// inputs (x,y,z) are a point on the sphere (i.e., must be unit length)
|
|
// output is vector b with SH basis evaluated at (x,y,z).
|
|
//
|
|
inline void sh_eval_basis_1(REAL x, REAL y, REAL z, REAL b[4])
|
|
{
|
|
/* m=0 */
|
|
|
|
// l=0
|
|
const REAL p_0_0 = CONSTANT(0.282094791773878140);
|
|
b[0] = p_0_0; // l=0,m=0
|
|
// l=1
|
|
const REAL p_1_0 = CONSTANT(0.488602511902919920)*z;
|
|
b[2] = p_1_0; // l=1,m=0
|
|
|
|
|
|
/* m=1 */
|
|
|
|
const REAL s1 = y;
|
|
const REAL c1 = x;
|
|
|
|
// l=1
|
|
const REAL p_1_1 = CONSTANT(-0.488602511902919920);
|
|
b[1] = p_1_1*s1; // l=1,m=-1
|
|
b[3] = p_1_1*c1; // l=1,m=+1
|
|
}
|
|
|
|
// routine generated programmatically for evaluating SH basis for degree 2
|
|
// inputs (x,y,z) are a point on the sphere (i.e., must be unit length)
|
|
// output is vector b with SH basis evaluated at (x,y,z).
|
|
//
|
|
inline void sh_eval_basis_2(REAL x, REAL y, REAL z, REAL b[9])
|
|
{
|
|
const REAL z2 = z*z;
|
|
|
|
|
|
/* m=0 */
|
|
|
|
// l=0
|
|
const REAL p_0_0 = CONSTANT(0.282094791773878140);
|
|
b[0] = p_0_0; // l=0,m=0
|
|
// l=1
|
|
const REAL p_1_0 = CONSTANT(0.488602511902919920)*z;
|
|
b[2] = p_1_0; // l=1,m=0
|
|
// l=2
|
|
const REAL p_2_0 = CONSTANT(0.946174695757560080)*z2 + CONSTANT(-0.315391565252520050);
|
|
b[6] = p_2_0; // l=2,m=0
|
|
|
|
|
|
/* m=1 */
|
|
|
|
const REAL s1 = y;
|
|
const REAL c1 = x;
|
|
|
|
// l=1
|
|
const REAL p_1_1 = CONSTANT(-0.488602511902919920);
|
|
b[1] = p_1_1*s1; // l=1,m=-1
|
|
b[3] = p_1_1*c1; // l=1,m=+1
|
|
// l=2
|
|
const REAL p_2_1 = CONSTANT(-1.092548430592079200)*z;
|
|
b[5] = p_2_1*s1; // l=2,m=-1
|
|
b[7] = p_2_1*c1; // l=2,m=+1
|
|
|
|
|
|
/* m=2 */
|
|
|
|
const REAL s2 = x*s1 + y*c1;
|
|
const REAL c2 = x*c1 - y*s1;
|
|
|
|
// l=2
|
|
const REAL p_2_2 = CONSTANT(0.546274215296039590);
|
|
b[4] = p_2_2*s2; // l=2,m=-2
|
|
b[8] = p_2_2*c2; // l=2,m=+2
|
|
}
|
|
|
|
// routine generated programmatically for evaluating SH basis for degree 3
|
|
// inputs (x,y,z) are a point on the sphere (i.e., must be unit length)
|
|
// output is vector b with SH basis evaluated at (x,y,z).
|
|
//
|
|
void sh_eval_basis_3(REAL x, REAL y, REAL z, REAL b[16])
|
|
{
|
|
const REAL z2 = z*z;
|
|
|
|
|
|
/* m=0 */
|
|
|
|
// l=0
|
|
const REAL p_0_0 = CONSTANT(0.282094791773878140);
|
|
b[0] = p_0_0; // l=0,m=0
|
|
// l=1
|
|
const REAL p_1_0 = CONSTANT(0.488602511902919920)*z;
|
|
b[2] = p_1_0; // l=1,m=0
|
|
// l=2
|
|
const REAL p_2_0 = CONSTANT(0.946174695757560080)*z2 + CONSTANT(-0.315391565252520050);
|
|
b[6] = p_2_0; // l=2,m=0
|
|
// l=3
|
|
const REAL p_3_0 = z*(CONSTANT(1.865881662950577000)*z2 + CONSTANT(-1.119528997770346200));
|
|
b[12] = p_3_0; // l=3,m=0
|
|
|
|
|
|
/* m=1 */
|
|
|
|
const REAL s1 = y;
|
|
const REAL c1 = x;
|
|
|
|
// l=1
|
|
const REAL p_1_1 = CONSTANT(-0.488602511902919920);
|
|
b[1] = p_1_1*s1; // l=1,m=-1
|
|
b[3] = p_1_1*c1; // l=1,m=+1
|
|
// l=2
|
|
const REAL p_2_1 = CONSTANT(-1.092548430592079200)*z;
|
|
b[5] = p_2_1*s1; // l=2,m=-1
|
|
b[7] = p_2_1*c1; // l=2,m=+1
|
|
// l=3
|
|
const REAL p_3_1 = CONSTANT(-2.285228997322328800)*z2 + CONSTANT(0.457045799464465770);
|
|
b[11] = p_3_1*s1; // l=3,m=-1
|
|
b[13] = p_3_1*c1; // l=3,m=+1
|
|
|
|
|
|
/* m=2 */
|
|
|
|
const REAL s2 = x*s1 + y*c1;
|
|
const REAL c2 = x*c1 - y*s1;
|
|
|
|
// l=2
|
|
const REAL p_2_2 = CONSTANT(0.546274215296039590);
|
|
b[4] = p_2_2*s2; // l=2,m=-2
|
|
b[8] = p_2_2*c2; // l=2,m=+2
|
|
// l=3
|
|
const REAL p_3_2 = CONSTANT(1.445305721320277100)*z;
|
|
b[10] = p_3_2*s2; // l=3,m=-2
|
|
b[14] = p_3_2*c2; // l=3,m=+2
|
|
|
|
|
|
/* m=3 */
|
|
|
|
const REAL s3 = x*s2 + y*c2;
|
|
const REAL c3 = x*c2 - y*s2;
|
|
|
|
// l=3
|
|
const REAL p_3_3 = CONSTANT(-0.590043589926643520);
|
|
b[9] = p_3_3*s3; // l=3,m=-3
|
|
b[15] = p_3_3*c3; // l=3,m=+3
|
|
}
|
|
|
|
// routine generated programmatically for evaluating SH basis for degree 4
|
|
// inputs (x,y,z) are a point on the sphere (i.e., must be unit length)
|
|
// output is vector b with SH basis evaluated at (x,y,z).
|
|
//
|
|
void sh_eval_basis_4(REAL x, REAL y, REAL z, REAL b[25])
|
|
{
|
|
const REAL z2 = z*z;
|
|
|
|
|
|
/* m=0 */
|
|
|
|
// l=0
|
|
const REAL p_0_0 = CONSTANT(0.282094791773878140);
|
|
b[0] = p_0_0; // l=0,m=0
|
|
// l=1
|
|
const REAL p_1_0 = CONSTANT(0.488602511902919920)*z;
|
|
b[2] = p_1_0; // l=1,m=0
|
|
// l=2
|
|
const REAL p_2_0 = CONSTANT(0.946174695757560080)*z2 + CONSTANT(-0.315391565252520050);
|
|
b[6] = p_2_0; // l=2,m=0
|
|
// l=3
|
|
const REAL p_3_0 = z*(CONSTANT(1.865881662950577000)*z2 + CONSTANT(-1.119528997770346200));
|
|
b[12] = p_3_0; // l=3,m=0
|
|
// l=4
|
|
const REAL p_4_0 = CONSTANT(1.984313483298443000)*z*p_3_0 + CONSTANT(-1.006230589874905300)*p_2_0;
|
|
b[20] = p_4_0; // l=4,m=0
|
|
|
|
|
|
/* m=1 */
|
|
|
|
const REAL s1 = y;
|
|
const REAL c1 = x;
|
|
|
|
// l=1
|
|
const REAL p_1_1 = CONSTANT(-0.488602511902919920);
|
|
b[1] = p_1_1*s1; // l=1,m=-1
|
|
b[3] = p_1_1*c1; // l=1,m=+1
|
|
// l=2
|
|
const REAL p_2_1 = CONSTANT(-1.092548430592079200)*z;
|
|
b[5] = p_2_1*s1; // l=2,m=-1
|
|
b[7] = p_2_1*c1; // l=2,m=+1
|
|
// l=3
|
|
const REAL p_3_1 = CONSTANT(-2.285228997322328800)*z2 + CONSTANT(0.457045799464465770);
|
|
b[11] = p_3_1*s1; // l=3,m=-1
|
|
b[13] = p_3_1*c1; // l=3,m=+1
|
|
// l=4
|
|
const REAL p_4_1 = z*(CONSTANT(-4.683325804901024000)*z2 + CONSTANT(2.007139630671867200));
|
|
b[19] = p_4_1*s1; // l=4,m=-1
|
|
b[21] = p_4_1*c1; // l=4,m=+1
|
|
|
|
|
|
/* m=2 */
|
|
|
|
const REAL s2 = x*s1 + y*c1;
|
|
const REAL c2 = x*c1 - y*s1;
|
|
|
|
// l=2
|
|
const REAL p_2_2 = CONSTANT(0.546274215296039590);
|
|
b[4] = p_2_2*s2; // l=2,m=-2
|
|
b[8] = p_2_2*c2; // l=2,m=+2
|
|
// l=3
|
|
const REAL p_3_2 = CONSTANT(1.445305721320277100)*z;
|
|
b[10] = p_3_2*s2; // l=3,m=-2
|
|
b[14] = p_3_2*c2; // l=3,m=+2
|
|
// l=4
|
|
const REAL p_4_2 = CONSTANT(3.311611435151459800)*z2 + CONSTANT(-0.473087347878779980);
|
|
b[18] = p_4_2*s2; // l=4,m=-2
|
|
b[22] = p_4_2*c2; // l=4,m=+2
|
|
|
|
|
|
/* m=3 */
|
|
|
|
const REAL s3 = x*s2 + y*c2;
|
|
const REAL c3 = x*c2 - y*s2;
|
|
|
|
// l=3
|
|
const REAL p_3_3 = CONSTANT(-0.590043589926643520);
|
|
b[9] = p_3_3*s3; // l=3,m=-3
|
|
b[15] = p_3_3*c3; // l=3,m=+3
|
|
// l=4
|
|
const REAL p_4_3 = CONSTANT(-1.770130769779930200)*z;
|
|
b[17] = p_4_3*s3; // l=4,m=-3
|
|
b[23] = p_4_3*c3; // l=4,m=+3
|
|
|
|
|
|
/* m=4 */
|
|
|
|
const REAL s4 = x*s3 + y*c3;
|
|
const REAL c4 = x*c3 - y*s3;
|
|
|
|
// l=4
|
|
const REAL p_4_4 = CONSTANT(0.625835735449176030);
|
|
b[16] = p_4_4*s4; // l=4,m=-4
|
|
b[24] = p_4_4*c4; // l=4,m=+4
|
|
}
|
|
|
|
// routine generated programmatically for evaluating SH basis for degree 5
|
|
// inputs (x,y,z) are a point on the sphere (i.e., must be unit length)
|
|
// output is vector b with SH basis evaluated at (x,y,z).
|
|
//
|
|
void sh_eval_basis_5(REAL x, REAL y, REAL z, REAL b[36])
|
|
{
|
|
const REAL z2 = z*z;
|
|
|
|
|
|
/* m=0 */
|
|
|
|
// l=0
|
|
const REAL p_0_0 = CONSTANT(0.282094791773878140);
|
|
b[0] = p_0_0; // l=0,m=0
|
|
// l=1
|
|
const REAL p_1_0 = CONSTANT(0.488602511902919920)*z;
|
|
b[2] = p_1_0; // l=1,m=0
|
|
// l=2
|
|
const REAL p_2_0 = CONSTANT(0.946174695757560080)*z2 + CONSTANT(-0.315391565252520050);
|
|
b[6] = p_2_0; // l=2,m=0
|
|
// l=3
|
|
const REAL p_3_0 = z*(CONSTANT(1.865881662950577000)*z2 + CONSTANT(-1.119528997770346200));
|
|
b[12] = p_3_0; // l=3,m=0
|
|
// l=4
|
|
const REAL p_4_0 = CONSTANT(1.984313483298443000)*z*p_3_0 + CONSTANT(-1.006230589874905300)*p_2_0;
|
|
b[20] = p_4_0; // l=4,m=0
|
|
// l=5
|
|
const REAL p_5_0 = CONSTANT(1.989974874213239700)*z*p_4_0 + CONSTANT(-1.002853072844814000)*p_3_0;
|
|
b[30] = p_5_0; // l=5,m=0
|
|
|
|
|
|
/* m=1 */
|
|
|
|
const REAL s1 = y;
|
|
const REAL c1 = x;
|
|
|
|
// l=1
|
|
const REAL p_1_1 = CONSTANT(-0.488602511902919920);
|
|
b[1] = p_1_1*s1; // l=1,m=-1
|
|
b[3] = p_1_1*c1; // l=1,m=+1
|
|
// l=2
|
|
const REAL p_2_1 = CONSTANT(-1.092548430592079200)*z;
|
|
b[5] = p_2_1*s1; // l=2,m=-1
|
|
b[7] = p_2_1*c1; // l=2,m=+1
|
|
// l=3
|
|
const REAL p_3_1 = CONSTANT(-2.285228997322328800)*z2 + CONSTANT(0.457045799464465770);
|
|
b[11] = p_3_1*s1; // l=3,m=-1
|
|
b[13] = p_3_1*c1; // l=3,m=+1
|
|
// l=4
|
|
const REAL p_4_1 = z*(CONSTANT(-4.683325804901024000)*z2 + CONSTANT(2.007139630671867200));
|
|
b[19] = p_4_1*s1; // l=4,m=-1
|
|
b[21] = p_4_1*c1; // l=4,m=+1
|
|
// l=5
|
|
const REAL p_5_1 = CONSTANT(2.031009601158990200)*z*p_4_1 + CONSTANT(-0.991031208965114650)*p_3_1;
|
|
b[29] = p_5_1*s1; // l=5,m=-1
|
|
b[31] = p_5_1*c1; // l=5,m=+1
|
|
|
|
|
|
/* m=2 */
|
|
|
|
const REAL s2 = x*s1 + y*c1;
|
|
const REAL c2 = x*c1 - y*s1;
|
|
|
|
// l=2
|
|
const REAL p_2_2 = CONSTANT(0.546274215296039590);
|
|
b[4] = p_2_2*s2; // l=2,m=-2
|
|
b[8] = p_2_2*c2; // l=2,m=+2
|
|
// l=3
|
|
const REAL p_3_2 = CONSTANT(1.445305721320277100)*z;
|
|
b[10] = p_3_2*s2; // l=3,m=-2
|
|
b[14] = p_3_2*c2; // l=3,m=+2
|
|
// l=4
|
|
const REAL p_4_2 = CONSTANT(3.311611435151459800)*z2 + CONSTANT(-0.473087347878779980);
|
|
b[18] = p_4_2*s2; // l=4,m=-2
|
|
b[22] = p_4_2*c2; // l=4,m=+2
|
|
// l=5
|
|
const REAL p_5_2 = z*(CONSTANT(7.190305177459987500)*z2 + CONSTANT(-2.396768392486662100));
|
|
b[28] = p_5_2*s2; // l=5,m=-2
|
|
b[32] = p_5_2*c2; // l=5,m=+2
|
|
|
|
|
|
/* m=3 */
|
|
|
|
const REAL s3 = x*s2 + y*c2;
|
|
const REAL c3 = x*c2 - y*s2;
|
|
|
|
// l=3
|
|
const REAL p_3_3 = CONSTANT(-0.590043589926643520);
|
|
b[9] = p_3_3*s3; // l=3,m=-3
|
|
b[15] = p_3_3*c3; // l=3,m=+3
|
|
// l=4
|
|
const REAL p_4_3 = CONSTANT(-1.770130769779930200)*z;
|
|
b[17] = p_4_3*s3; // l=4,m=-3
|
|
b[23] = p_4_3*c3; // l=4,m=+3
|
|
// l=5
|
|
const REAL p_5_3 = CONSTANT(-4.403144694917253700)*z2 + CONSTANT(0.489238299435250430);
|
|
b[27] = p_5_3*s3; // l=5,m=-3
|
|
b[33] = p_5_3*c3; // l=5,m=+3
|
|
|
|
|
|
/* m=4 */
|
|
|
|
const REAL s4 = x*s3 + y*c3;
|
|
const REAL c4 = x*c3 - y*s3;
|
|
|
|
// l=4
|
|
const REAL p_4_4 = CONSTANT(0.625835735449176030);
|
|
b[16] = p_4_4*s4; // l=4,m=-4
|
|
b[24] = p_4_4*c4; // l=4,m=+4
|
|
// l=5
|
|
const REAL p_5_4 = CONSTANT(2.075662314881041100)*z;
|
|
b[26] = p_5_4*s4; // l=5,m=-4
|
|
b[34] = p_5_4*c4; // l=5,m=+4
|
|
|
|
|
|
/* m=5 */
|
|
|
|
const REAL s5 = x*s4 + y*c4;
|
|
const REAL c5 = x*c4 - y*s4;
|
|
|
|
// l=5
|
|
const REAL p_5_5 = CONSTANT(-0.656382056840170150);
|
|
b[25] = p_5_5*s5; // l=5,m=-5
|
|
b[35] = p_5_5*c5; // l=5,m=+5
|
|
}
|
|
|
|
const REAL M_PIjs = (REAL)(4.0*atan(1.0));
|
|
const REAL maxang = (REAL)(M_PIjs / 2);
|
|
const int NSH0 = 1;
|
|
const int NSH1 = 4;
|
|
const int NSH2 = 9;
|
|
const int NSH3 = 16;
|
|
const int NSH4 = 25;
|
|
const int NSH5 = 36;
|
|
const int NSH6 = 49;
|
|
const int NSH7 = 64;
|
|
const int NSH8 = 81;
|
|
const int NSH9 = 100;
|
|
const int NL0 = 1;
|
|
const int NL1 = 3;
|
|
const int NL2 = 5;
|
|
const int NL3 = 7;
|
|
const int NL4 = 9;
|
|
const int NL5 = 11;
|
|
const int NL6 = 13;
|
|
const int NL7 = 15;
|
|
const int NL8 = 17;
|
|
const int NL9 = 19;
|
|
|
|
inline void rot(REAL ct, REAL st, REAL x, REAL y, REAL &xout, REAL &yout)
|
|
{
|
|
xout = x*ct - y*st;
|
|
yout = y*ct + x*st;
|
|
}
|
|
|
|
inline void rot_inv(REAL ct, REAL st, REAL x, REAL y, REAL &xout, REAL &yout)
|
|
{
|
|
xout = x*ct + y*st;
|
|
yout = y*ct - x*st;
|
|
}
|
|
|
|
inline void rot_1(REAL ct, REAL st, REAL ctm[1], REAL stm[1])
|
|
{
|
|
ctm[0] = ct;
|
|
stm[0] = st;
|
|
}
|
|
|
|
inline void rot_2(REAL ct, REAL st, REAL ctm[2], REAL stm[2])
|
|
{
|
|
REAL ct2 = CONSTANT(2.0)*ct;
|
|
ctm[0] = ct;
|
|
stm[0] = st;
|
|
ctm[1] = ct2*ct - CONSTANT(1.0);
|
|
stm[1] = ct2*st;
|
|
}
|
|
|
|
inline void rot_3(REAL ct, REAL st, REAL ctm[3], REAL stm[3])
|
|
{
|
|
REAL ct2 = CONSTANT(2.0)*ct;
|
|
ctm[0] = ct;
|
|
stm[0] = st;
|
|
ctm[1] = ct2*ct - CONSTANT(1.0);
|
|
stm[1] = ct2*st;
|
|
ctm[2] = ct2*ctm[1] - ct;
|
|
stm[2] = ct2*stm[1] - st;
|
|
}
|
|
|
|
inline void rot_4(REAL ct, REAL st, REAL ctm[4], REAL stm[4])
|
|
{
|
|
REAL ct2 = CONSTANT(2.0)*ct;
|
|
ctm[0] = ct;
|
|
stm[0] = st;
|
|
ctm[1] = ct2*ct - CONSTANT(1.0);
|
|
stm[1] = ct2*st;
|
|
ctm[2] = ct2*ctm[1] - ct;
|
|
stm[2] = ct2*stm[1] - st;
|
|
ctm[3] = ct2*ctm[2] - ctm[1];
|
|
stm[3] = ct2*stm[2] - stm[1];
|
|
}
|
|
|
|
inline void rot_5(REAL ct, REAL st, REAL ctm[5], REAL stm[5])
|
|
{
|
|
REAL ct2 = CONSTANT(2.0)*ct;
|
|
ctm[0] = ct;
|
|
stm[0] = st;
|
|
ctm[1] = ct2*ct - CONSTANT(1.0);
|
|
stm[1] = ct2*st;
|
|
ctm[2] = ct2*ctm[1] - ct;
|
|
stm[2] = ct2*stm[1] - st;
|
|
ctm[3] = ct2*ctm[2] - ctm[1];
|
|
stm[3] = ct2*stm[2] - stm[1];
|
|
ctm[4] = ct2*ctm[3] - ctm[2];
|
|
stm[4] = ct2*stm[3] - stm[2];
|
|
}
|
|
|
|
inline void sh_rotz_1(REAL ctm[1], REAL stm[1], REAL y[NL1], REAL yr[NL1])
|
|
{
|
|
yr[1] = y[1];
|
|
rot_inv(ctm[0], stm[0], y[0], y[2], yr[0], yr[2]);
|
|
}
|
|
|
|
inline void sh_rotz_2(REAL ctm[2], REAL stm[2], REAL y[NL2], REAL yr[NL2])
|
|
{
|
|
yr[2] = y[2];
|
|
rot_inv(ctm[0], stm[0], y[1], y[3], yr[1], yr[3]);
|
|
rot_inv(ctm[1], stm[1], y[0], y[4], yr[0], yr[4]);
|
|
}
|
|
|
|
inline void sh_rotz_3(REAL ctm[3], REAL stm[3], REAL y[NL3], REAL yr[NL3])
|
|
{
|
|
yr[3] = y[3];
|
|
rot_inv(ctm[0], stm[0], y[2], y[4], yr[2], yr[4]);
|
|
rot_inv(ctm[1], stm[1], y[1], y[5], yr[1], yr[5]);
|
|
rot_inv(ctm[2], stm[2], y[0], y[6], yr[0], yr[6]);
|
|
}
|
|
|
|
inline void sh_rotz_4(REAL ctm[4], REAL stm[4], REAL y[NL4], REAL yr[NL4])
|
|
{
|
|
yr[4] = y[4];
|
|
rot_inv(ctm[0], stm[0], y[3], y[5], yr[3], yr[5]);
|
|
rot_inv(ctm[1], stm[1], y[2], y[6], yr[2], yr[6]);
|
|
rot_inv(ctm[2], stm[2], y[1], y[7], yr[1], yr[7]);
|
|
rot_inv(ctm[3], stm[3], y[0], y[8], yr[0], yr[8]);
|
|
}
|
|
|
|
inline void sh_rotz_5(REAL ctm[5], REAL stm[5], REAL y[NL5], REAL yr[NL5])
|
|
{
|
|
yr[5] = y[5];
|
|
rot_inv(ctm[0], stm[0], y[4], y[6], yr[4], yr[6]);
|
|
rot_inv(ctm[1], stm[1], y[3], y[7], yr[3], yr[7]);
|
|
rot_inv(ctm[2], stm[2], y[2], y[8], yr[2], yr[8]);
|
|
rot_inv(ctm[3], stm[3], y[1], y[9], yr[1], yr[9]);
|
|
rot_inv(ctm[4], stm[4], y[0], y[10], yr[0], yr[10]);
|
|
}
|
|
|
|
// rotation code generated programmatically by rotatex (2000x4000 samples, eps=1e-008)
|
|
|
|
const REAL fx_1_001 = (REAL)(sqrt(1.0) / 1.0); // 1
|
|
const REAL fx_1_002 = (REAL)(-sqrt(1.0) / 1.0); // -1.00000030843
|
|
|
|
inline void sh_rotx90_1(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_1_001*y[1];
|
|
yr[1] = fx_1_002*y[0];
|
|
yr[2] = fx_1_001*y[2];
|
|
};
|
|
|
|
inline void sh_rotx90_inv_1(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_1_002*y[1];
|
|
yr[1] = fx_1_001*y[0];
|
|
yr[2] = fx_1_001*y[2];
|
|
}
|
|
|
|
const REAL fx_2_001 = (REAL)(sqrt(4.0) / 2.0); // 1
|
|
const REAL fx_2_002 = (REAL)(-sqrt(4.0) / 2.0); // -1
|
|
const REAL fx_2_003 = (REAL)(-sqrt(1.0) / 2.0); // -0.500000257021
|
|
const REAL fx_2_004 = (REAL)(-sqrt(3.0) / 2.0); // -0.866025848959
|
|
const REAL fx_2_005 = (REAL)(sqrt(1.0) / 2.0); // 0.5
|
|
|
|
inline void sh_rotx90_2(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_2_001*y[3];
|
|
yr[1] = fx_2_002*y[1];
|
|
yr[2] = fx_2_003*y[2] + fx_2_004*y[4];
|
|
yr[3] = fx_2_002*y[0];
|
|
yr[4] = fx_2_004*y[2] + fx_2_005*y[4];
|
|
};
|
|
|
|
inline void sh_rotx90_inv_2(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_2_002*y[3];
|
|
yr[1] = fx_2_002*y[1];
|
|
yr[2] = fx_2_003*y[2] + fx_2_004*y[4];
|
|
yr[3] = fx_2_001*y[0];
|
|
yr[4] = fx_2_004*y[2] + fx_2_005*y[4];
|
|
}
|
|
|
|
const REAL fx_3_001 = (REAL)(-sqrt(10.0) / 4.0); // -0.790569415042
|
|
const REAL fx_3_002 = (REAL)(sqrt(6.0) / 4.0); // 0.612372435696
|
|
const REAL fx_3_003 = (REAL)(-sqrt(16.0) / 4.0); // -1
|
|
const REAL fx_3_004 = (REAL)(-sqrt(6.0) / 4.0); // -0.612372435695
|
|
const REAL fx_3_005 = (REAL)(-sqrt(1.0) / 4.0); // -0.25
|
|
const REAL fx_3_006 = (REAL)(-sqrt(15.0) / 4.0); // -0.968245836551
|
|
const REAL fx_3_007 = (REAL)(sqrt(1.0) / 4.0); // 0.25
|
|
const REAL fx_3_008 = (REAL)(sqrt(10.0) / 4.0); // 0.790569983984
|
|
|
|
inline void sh_rotx90_3(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_3_001*y[3] + fx_3_002*y[5];
|
|
yr[1] = fx_3_003*y[1];
|
|
yr[2] = fx_3_004*y[3] + fx_3_001*y[5];
|
|
yr[3] = fx_3_008*y[0] + fx_3_002*y[2];
|
|
yr[4] = fx_3_005*y[4] + fx_3_006*y[6];
|
|
yr[5] = fx_3_004*y[0] - fx_3_001*y[2];
|
|
yr[6] = fx_3_006*y[4] + fx_3_007*y[6];
|
|
};
|
|
|
|
inline void sh_rotx90_inv_3(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_3_008*y[3] + fx_3_004*y[5];
|
|
yr[1] = fx_3_003*y[1];
|
|
yr[2] = fx_3_002*y[3] - fx_3_001*y[5];
|
|
yr[3] = fx_3_001*y[0] + fx_3_004*y[2];
|
|
yr[4] = fx_3_005*y[4] + fx_3_006*y[6];
|
|
yr[5] = fx_3_002*y[0] + fx_3_001*y[2];
|
|
yr[6] = fx_3_006*y[4] + fx_3_007*y[6];
|
|
}
|
|
|
|
const REAL fx_4_001 = (REAL)(-sqrt(56.0) / 8.0); // -0.935414346694
|
|
const REAL fx_4_002 = (REAL)(sqrt(8.0) / 8.0); // 0.353553390593
|
|
const REAL fx_4_003 = (REAL)(-sqrt(36.0) / 8.0); // -0.75
|
|
const REAL fx_4_004 = (REAL)(sqrt(28.0) / 8.0); // 0.661437827766
|
|
const REAL fx_4_005 = (REAL)(-sqrt(8.0) / 8.0); // -0.353553390593
|
|
const REAL fx_4_006 = (REAL)(sqrt(36.0) / 8.0); // 0.749999999999
|
|
const REAL fx_4_007 = (REAL)(sqrt(9.0) / 8.0); // 0.37500034698
|
|
const REAL fx_4_008 = (REAL)(sqrt(20.0) / 8.0); // 0.559017511622
|
|
const REAL fx_4_009 = (REAL)(sqrt(35.0) / 8.0); // 0.739510657141
|
|
const REAL fx_4_010 = (REAL)(sqrt(16.0) / 8.0); // 0.5
|
|
const REAL fx_4_011 = (REAL)(-sqrt(28.0) / 8.0); // -0.661437827766
|
|
const REAL fx_4_012 = (REAL)(sqrt(1.0) / 8.0); // 0.125
|
|
const REAL fx_4_013 = (REAL)(sqrt(56.0) / 8.0); // 0.935414346692
|
|
|
|
inline void sh_rotx90_4(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_4_001*y[5] + fx_4_002*y[7];
|
|
yr[1] = fx_4_003*y[1] + fx_4_004*y[3];
|
|
yr[2] = fx_4_005*y[5] + fx_4_001*y[7];
|
|
yr[3] = fx_4_004*y[1] + fx_4_006*y[3];
|
|
yr[4] = fx_4_007*y[4] + fx_4_008*y[6] + fx_4_009*y[8];
|
|
yr[5] = fx_4_013*y[0] + fx_4_002*y[2];
|
|
yr[6] = fx_4_008*y[4] + fx_4_010*y[6] + fx_4_011*y[8];
|
|
yr[7] = fx_4_005*y[0] - fx_4_001*y[2];
|
|
yr[8] = fx_4_009*y[4] + fx_4_011*y[6] + fx_4_012*y[8];
|
|
};
|
|
|
|
inline void sh_rotx90_inv_4(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_4_013*y[5] + fx_4_005*y[7];
|
|
yr[1] = fx_4_003*y[1] + fx_4_004*y[3];
|
|
yr[2] = fx_4_002*y[5] - fx_4_001*y[7];
|
|
yr[3] = fx_4_004*y[1] + fx_4_006*y[3];
|
|
yr[4] = fx_4_007*y[4] + fx_4_008*y[6] + fx_4_009*y[8];
|
|
yr[5] = fx_4_001*y[0] + fx_4_005*y[2];
|
|
yr[6] = fx_4_008*y[4] + fx_4_010*y[6] + fx_4_011*y[8];
|
|
yr[7] = fx_4_002*y[0] + fx_4_001*y[2];
|
|
yr[8] = fx_4_009*y[4] + fx_4_011*y[6] + fx_4_012*y[8];
|
|
}
|
|
|
|
const REAL fx_5_001 = (REAL)(sqrt(126.0) / 16.0); // 0.70156076002
|
|
const REAL fx_5_002 = (REAL)(-sqrt(120.0) / 16.0); // -0.684653196882
|
|
const REAL fx_5_003 = (REAL)(sqrt(10.0) / 16.0); // 0.197642353761
|
|
const REAL fx_5_004 = (REAL)(-sqrt(64.0) / 16.0); // -0.5
|
|
const REAL fx_5_005 = (REAL)(sqrt(192.0) / 16.0); // 0.866025403784
|
|
const REAL fx_5_006 = (REAL)(sqrt(70.0) / 16.0); // 0.522912516584
|
|
const REAL fx_5_007 = (REAL)(sqrt(24.0) / 16.0); // 0.306186217848
|
|
const REAL fx_5_008 = (REAL)(-sqrt(162.0) / 16.0); // -0.795495128835
|
|
const REAL fx_5_009 = (REAL)(sqrt(64.0) / 16.0); // 0.5
|
|
const REAL fx_5_010 = (REAL)(sqrt(60.0) / 16.0); // 0.484122918274
|
|
const REAL fx_5_011 = (REAL)(sqrt(112.0) / 16.0); // 0.661437827763
|
|
const REAL fx_5_012 = (REAL)(sqrt(84.0) / 16.0); // 0.572821961867
|
|
const REAL fx_5_013 = (REAL)(sqrt(4.0) / 16.0); // 0.125
|
|
const REAL fx_5_014 = (REAL)(sqrt(42.0) / 16.0); // 0.405046293649
|
|
const REAL fx_5_015 = (REAL)(sqrt(210.0) / 16.0); // 0.905711046633
|
|
const REAL fx_5_016 = (REAL)(sqrt(169.0) / 16.0); // 0.8125
|
|
const REAL fx_5_017 = (REAL)(-sqrt(45.0) / 16.0); // -0.419262745781
|
|
const REAL fx_5_018 = (REAL)(sqrt(1.0) / 16.0); // 0.0625
|
|
const REAL fx_5_019 = (REAL)(-sqrt(126.0) / 16.0); // -0.701561553415
|
|
const REAL fx_5_020 = (REAL)(sqrt(120.0) / 16.0); // 0.684653196881
|
|
const REAL fx_5_021 = (REAL)(-sqrt(10.0) / 16.0); // -0.197642353761
|
|
const REAL fx_5_022 = (REAL)(-sqrt(70.0) / 16.0); // -0.522913107945
|
|
const REAL fx_5_023 = (REAL)(-sqrt(60.0) / 16.0); // -0.48412346577
|
|
|
|
inline void sh_rotx90_5(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_5_001*y[5] + fx_5_002*y[7] + fx_5_003*y[9];
|
|
yr[1] = fx_5_004*y[1] + fx_5_005*y[3];
|
|
yr[2] = fx_5_006*y[5] + fx_5_007*y[7] + fx_5_008*y[9];
|
|
yr[3] = fx_5_005*y[1] + fx_5_009*y[3];
|
|
yr[4] = fx_5_010*y[5] + fx_5_011*y[7] + fx_5_012*y[9];
|
|
yr[5] = fx_5_019*y[0] + fx_5_022*y[2] + fx_5_023*y[4];
|
|
yr[6] = fx_5_013*y[6] + fx_5_014*y[8] + fx_5_015*y[10];
|
|
yr[7] = fx_5_020*y[0] - fx_5_007*y[2] - fx_5_011*y[4];
|
|
yr[8] = fx_5_014*y[6] + fx_5_016*y[8] + fx_5_017*y[10];
|
|
yr[9] = fx_5_021*y[0] - fx_5_008*y[2] - fx_5_012*y[4];
|
|
yr[10] = fx_5_015*y[6] + fx_5_017*y[8] + fx_5_018*y[10];
|
|
};
|
|
|
|
inline void sh_rotx90_inv_5(REAL y[], REAL yr[])
|
|
{
|
|
yr[0] = fx_5_019*y[5] + fx_5_020*y[7] + fx_5_021*y[9];
|
|
yr[1] = fx_5_004*y[1] + fx_5_005*y[3];
|
|
yr[2] = fx_5_022*y[5] - fx_5_007*y[7] - fx_5_008*y[9];
|
|
yr[3] = fx_5_005*y[1] + fx_5_009*y[3];
|
|
yr[4] = fx_5_023*y[5] - fx_5_011*y[7] - fx_5_012*y[9];
|
|
yr[5] = fx_5_001*y[0] + fx_5_006*y[2] + fx_5_010*y[4];
|
|
yr[6] = fx_5_013*y[6] + fx_5_014*y[8] + fx_5_015*y[10];
|
|
yr[7] = fx_5_002*y[0] + fx_5_007*y[2] + fx_5_011*y[4];
|
|
yr[8] = fx_5_014*y[6] + fx_5_016*y[8] + fx_5_017*y[10];
|
|
yr[9] = fx_5_003*y[0] + fx_5_008*y[2] + fx_5_012*y[4];
|
|
yr[10] = fx_5_015*y[6] + fx_5_017*y[8] + fx_5_018*y[10];
|
|
}
|
|
|
|
inline void sh_rot_1(REAL m[3 * 3], REAL y[NL1], REAL yr[NL1])
|
|
{
|
|
REAL yr0 = m[4] * y[0] - m[5] * y[1] + m[3] * y[2];
|
|
REAL yr1 = m[8] * y[1] - m[7] * y[0] - m[6] * y[2];
|
|
REAL yr2 = m[1] * y[0] - m[2] * y[1] + m[0] * y[2];
|
|
|
|
yr[0] = yr0;
|
|
yr[1] = yr1;
|
|
yr[2] = yr2;
|
|
}
|
|
|
|
inline void sh_roty_1(REAL ctm[1], REAL stm[1], REAL y[NL1], REAL yr[NL1])
|
|
{
|
|
yr[0] = y[0];
|
|
rot_inv(ctm[0], stm[0], y[1], y[2], yr[1], yr[2]);
|
|
}
|
|
|
|
inline void sh_roty_2(REAL ctm[2], REAL stm[2], REAL y[NL2], REAL yr[NL2])
|
|
{
|
|
REAL ytmp[NL2];
|
|
sh_rotx90_2(y, yr);
|
|
sh_rotz_2(ctm, stm, yr, ytmp);
|
|
sh_rotx90_inv_2(ytmp, yr);
|
|
}
|
|
|
|
inline void sh_roty_3(REAL ctm[3], REAL stm[3], REAL y[NL3], REAL yr[NL3])
|
|
{
|
|
REAL ytmp[NL3];
|
|
sh_rotx90_3(y, yr);
|
|
sh_rotz_3(ctm, stm, yr, ytmp);
|
|
sh_rotx90_inv_3(ytmp, yr);
|
|
}
|
|
|
|
inline void sh_roty_4(REAL ctm[4], REAL stm[4], REAL y[NL4], REAL yr[NL4])
|
|
{
|
|
REAL ytmp[NL4];
|
|
sh_rotx90_4(y, yr);
|
|
sh_rotz_4(ctm, stm, yr, ytmp);
|
|
sh_rotx90_inv_4(ytmp, yr);
|
|
}
|
|
|
|
inline void sh_roty_5(REAL ctm[5], REAL stm[5], REAL y[NL5], REAL yr[NL5])
|
|
{
|
|
REAL ytmp[NL5];
|
|
sh_rotx90_5(y, yr);
|
|
sh_rotz_5(ctm, stm, yr, ytmp);
|
|
sh_rotx90_inv_5(ytmp, yr);
|
|
}
|
|
|
|
#define ROT_TOL CONSTANT(1e-4)
|
|
|
|
/*
|
|
Finds cosine,sine pairs for zyz rotation (i.e. rotation R_z2 R_y R_z1 v).
|
|
The rotation is one which maps mx to (1,0,0) and mz to (0,0,1).
|
|
*/
|
|
inline void zyz(REAL m[3 * 3], REAL &zc1, REAL &zs1, REAL &yc, REAL &ys, REAL &zc2, REAL &zs2)
|
|
{
|
|
REAL cz = m[8];
|
|
|
|
// rotate so that (cx,cy,0) aligns to (1,0,0)
|
|
REAL cxylen = (REAL)sqrtf(1.0f - cz*cz);
|
|
if (cxylen >= ROT_TOL)
|
|
{
|
|
// if above is a NaN, will do the correct thing
|
|
yc = cz;
|
|
ys = cxylen;
|
|
REAL len67inv = 1.0f / sqrtf(m[6] * m[6] + m[7] * m[7]);
|
|
zc1 = -m[6] * len67inv;
|
|
zs1 = m[7] * len67inv;
|
|
REAL len25inv = 1.0f / sqrtf(m[2] * m[2] + m[5] * m[5]);
|
|
zc2 = m[2] * len25inv;
|
|
zs2 = m[5] * len25inv;
|
|
}
|
|
else { // m[6],m[7],m[8] already aligned to (0,0,1)
|
|
zc1 = 1.0; zs1 = 0.0; // identity
|
|
yc = cz; ys = 0.0; // identity
|
|
zc2 = m[0] * cz; zs2 = -m[1]; // align x axis (mx[0],mx[1],0) to (1,0,0)
|
|
}
|
|
}
|
|
|
|
inline void sh_rotzyz_2(REAL zc1m[2], REAL zs1m[2], REAL ycm[2], REAL ysm[2], REAL zc2m[2], REAL zs2m[2], REAL y[NL2], REAL yr[NL2])
|
|
{
|
|
REAL ytmp[NL2];
|
|
sh_rotz_2(zc1m, zs1m, y, yr);
|
|
sh_roty_2(ycm, ysm, yr, ytmp);
|
|
sh_rotz_2(zc2m, zs2m, ytmp, yr);
|
|
}
|
|
|
|
inline void sh_rotzyz_3(REAL zc1m[3], REAL zs1m[3], REAL ycm[3], REAL ysm[3], REAL zc2m[3], REAL zs2m[3], REAL y[NL3], REAL yr[NL3])
|
|
{
|
|
REAL ytmp[NL3];
|
|
sh_rotz_3(zc1m, zs1m, y, yr);
|
|
sh_roty_3(ycm, ysm, yr, ytmp);
|
|
sh_rotz_3(zc2m, zs2m, ytmp, yr);
|
|
}
|
|
|
|
inline void sh_rotzyz_4(REAL zc1m[4], REAL zs1m[4], REAL ycm[4], REAL ysm[4], REAL zc2m[4], REAL zs2m[4], REAL y[NL4], REAL yr[NL4])
|
|
{
|
|
REAL ytmp[NL4];
|
|
sh_rotz_4(zc1m, zs1m, y, yr);
|
|
sh_roty_4(ycm, ysm, yr, ytmp);
|
|
sh_rotz_4(zc2m, zs2m, ytmp, yr);
|
|
}
|
|
|
|
inline void sh_rotzyz_5(REAL zc1m[5], REAL zs1m[5], REAL ycm[5], REAL ysm[5], REAL zc2m[5], REAL zs2m[5], REAL y[NL5], REAL yr[NL5])
|
|
{
|
|
REAL ytmp[NL5];
|
|
sh_rotz_5(zc1m, zs1m, y, yr);
|
|
sh_roty_5(ycm, ysm, yr, ytmp);
|
|
sh_rotz_5(zc2m, zs2m, ytmp, yr);
|
|
}
|
|
|
|
inline void sh3_rot(REAL m[3 * 3], REAL zc1, REAL zs1, REAL yc, REAL ys, REAL zc2, REAL zs2, REAL y[NSH3], REAL yr[NSH3])
|
|
{
|
|
REAL zc1m[3], zs1m[3];
|
|
rot_3(zc1, zs1, zc1m, zs1m);
|
|
REAL ycm[3], ysm[3];
|
|
rot_3(yc, ys, ycm, ysm);
|
|
REAL zc2m[3], zs2m[3];
|
|
rot_3(zc2, zs2, zc2m, zs2m);
|
|
|
|
yr[0] = y[0];
|
|
sh_rot_1(m, y + NSH0, yr + NSH0);
|
|
sh_rotzyz_2(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH1, yr + NSH1);
|
|
sh_rotzyz_3(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH2, yr + NSH2);
|
|
}
|
|
|
|
inline void sh4_rot(REAL m[3 * 3], REAL zc1, REAL zs1, REAL yc, REAL ys, REAL zc2, REAL zs2, REAL y[NSH4], REAL yr[NSH4])
|
|
{
|
|
REAL zc1m[4], zs1m[4];
|
|
rot_4(zc1, zs1, zc1m, zs1m);
|
|
REAL ycm[4], ysm[4];
|
|
rot_4(yc, ys, ycm, ysm);
|
|
REAL zc2m[4], zs2m[4];
|
|
rot_4(zc2, zs2, zc2m, zs2m);
|
|
|
|
yr[0] = y[0];
|
|
sh_rot_1(m, y + NSH0, yr + NSH0);
|
|
sh_rotzyz_2(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH1, yr + NSH1);
|
|
sh_rotzyz_3(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH2, yr + NSH2);
|
|
sh_rotzyz_4(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH3, yr + NSH3);
|
|
}
|
|
|
|
inline void sh5_rot(REAL m[3 * 3], REAL zc1, REAL zs1, REAL yc, REAL ys, REAL zc2, REAL zs2, REAL y[NSH5], REAL yr[NSH5])
|
|
{
|
|
REAL zc1m[5], zs1m[5];
|
|
rot_5(zc1, zs1, zc1m, zs1m);
|
|
REAL ycm[5], ysm[5];
|
|
rot_5(yc, ys, ycm, ysm);
|
|
REAL zc2m[5], zs2m[5];
|
|
rot_5(zc2, zs2, zc2m, zs2m);
|
|
|
|
yr[0] = y[0];
|
|
sh_rot_1(m, y + NSH0, yr + NSH0);
|
|
sh_rotzyz_2(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH1, yr + NSH1);
|
|
sh_rotzyz_3(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH2, yr + NSH2);
|
|
sh_rotzyz_4(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH3, yr + NSH3);
|
|
sh_rotzyz_5(zc1m, zs1m, ycm, ysm, zc2m, zs2m, y + NSH4, yr + NSH4);
|
|
}
|
|
|
|
inline void sh1_rot(REAL m[3 * 3], REAL y[NSH1], REAL yr[NSH1])
|
|
{
|
|
yr[0] = y[0];
|
|
sh_rot_1(m, y + NSH0, yr + NSH0);
|
|
}
|
|
|
|
inline void sh3_rot(REAL m[3 * 3], REAL y[NSH3], REAL yr[NSH3])
|
|
{
|
|
REAL zc1, zs1, yc, ys, zc2, zs2;
|
|
zyz(m, zc1, zs1, yc, ys, zc2, zs2);
|
|
sh3_rot(m, zc1, zs1, yc, ys, zc2, zs2, y, yr);
|
|
}
|
|
|
|
inline void sh4_rot(REAL m[3 * 3], REAL y[NSH4], REAL yr[NSH4])
|
|
{
|
|
REAL zc1, zs1, yc, ys, zc2, zs2;
|
|
zyz(m, zc1, zs1, yc, ys, zc2, zs2);
|
|
sh4_rot(m, zc1, zs1, yc, ys, zc2, zs2, y, yr);
|
|
}
|
|
|
|
inline void sh5_rot(REAL m[3 * 3], REAL y[NSH5], REAL yr[NSH5])
|
|
{
|
|
REAL zc1, zs1, yc, ys, zc2, zs2;
|
|
zyz(m, zc1, zs1, yc, ys, zc2, zs2);
|
|
sh5_rot(m, zc1, zs1, yc, ys, zc2, zs2, y, yr);
|
|
}
|
|
|
|
// simple matrix vector multiply for a square matrix (only used by ZRotation)
|
|
inline void SimpMatMul(size_t dim, const float *matrix, const float *input, float *result)
|
|
{
|
|
for (size_t iR = 0; iR < dim; ++iR)
|
|
{
|
|
result[iR + 0] = matrix[iR*dim + 0] * input[0];
|
|
for (size_t iC = 1; iC < dim; ++iC)
|
|
{
|
|
result[iR] += matrix[iR*dim + iC] * input[iC];
|
|
}
|
|
}
|
|
}
|
|
|
|
}; // anonymous namespace
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Evaluates the Spherical Harmonic basis functions
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb205448.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* XM_CALLCONV DirectX::XMSHEvalDirection(
|
|
float *result,
|
|
size_t order,
|
|
FXMVECTOR dir)
|
|
{
|
|
if (!result)
|
|
return nullptr;
|
|
|
|
XMFLOAT4A dv;
|
|
XMStoreFloat4A(&dv, dir);
|
|
|
|
const float fX = dv.x;
|
|
const float fY = dv.y;
|
|
const float fZ = dv.z;
|
|
|
|
switch (order)
|
|
{
|
|
case 2:
|
|
sh_eval_basis_1(fX, fY, fZ, result);
|
|
break;
|
|
|
|
case 3:
|
|
sh_eval_basis_2(fX, fY, fZ, result);
|
|
break;
|
|
|
|
case 4:
|
|
sh_eval_basis_3(fX, fY, fZ, result);
|
|
break;
|
|
|
|
case 5:
|
|
sh_eval_basis_4(fX, fY, fZ, result);
|
|
break;
|
|
|
|
case 6:
|
|
sh_eval_basis_5(fX, fY, fZ, result);
|
|
break;
|
|
|
|
default:
|
|
assert(order < XM_SH_MINORDER || order > XM_SH_MAXORDER);
|
|
return nullptr;
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Rotates SH vector by a rotation matrix
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb204992.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* XM_CALLCONV DirectX::XMSHRotate(
|
|
float *result,
|
|
size_t order,
|
|
FXMMATRIX rotMatrix,
|
|
const float *input)
|
|
{
|
|
if (!result || !input)
|
|
return nullptr;
|
|
|
|
if (result == input)
|
|
return nullptr;
|
|
|
|
XMFLOAT3X3 mat;
|
|
XMStoreFloat3x3(&mat, rotMatrix);
|
|
|
|
float mRot[3 * 3];
|
|
const float r00 = mRot[0 * 3 + 0] = mat._11;
|
|
const float r10 = mRot[1 * 3 + 0] = mat._12;
|
|
const float r20 = mRot[2 * 3 + 0] = mat._13;
|
|
|
|
const float r01 = mRot[0 * 3 + 1] = mat._21;
|
|
const float r11 = mRot[1 * 3 + 1] = mat._22;
|
|
const float r21 = mRot[2 * 3 + 1] = mat._23;
|
|
|
|
const float r02 = mRot[0 * 3 + 2] = mat._31;
|
|
const float r12 = mRot[1 * 3 + 2] = mat._32;
|
|
const float r22 = mRot[2 * 3 + 2] = mat._33;
|
|
|
|
result[0] = input[0]; // rotate the constant term
|
|
|
|
switch (order)
|
|
{
|
|
case 2:
|
|
{
|
|
// do linear by hand...
|
|
|
|
result[1] = r11*input[1] - r12*input[2] + r10*input[3];
|
|
result[2] = -r21*input[1] + r22*input[2] - r20*input[3];
|
|
result[3] = r01*input[1] - r02*input[2] + r00*input[3];
|
|
}
|
|
break;
|
|
|
|
case 3:
|
|
{
|
|
float R[25];
|
|
// do linear by hand...
|
|
|
|
result[1] = r11*input[1] - r12*input[2] + r10*input[3];
|
|
result[2] = -r21*input[1] + r22*input[2] - r20*input[3];
|
|
result[3] = r01*input[1] - r02*input[2] + r00*input[3];
|
|
|
|
// direct code for quadratics is faster than ZYZ reccurence relations
|
|
|
|
const float t41 = r01 * r00;
|
|
const float t43 = r11 * r10;
|
|
const float t48 = r11 * r12;
|
|
const float t50 = r01 * r02;
|
|
const float t55 = r02 * r02;
|
|
const float t57 = r22 * r22;
|
|
const float t58 = r12 * r12;
|
|
const float t61 = r00 * r02;
|
|
const float t63 = r10 * r12;
|
|
const float t68 = r10 * r10;
|
|
const float t70 = r01 * r01;
|
|
const float t72 = r11 * r11;
|
|
const float t74 = r00 * r00;
|
|
const float t76 = r21 * r21;
|
|
const float t78 = r20 * r20;
|
|
|
|
const float v173 = 0.1732050808e1f;
|
|
const float v577 = 0.5773502693e0f;
|
|
const float v115 = 0.1154700539e1f;
|
|
const float v288 = 0.2886751347e0f;
|
|
const float v866 = 0.8660254040e0f;
|
|
|
|
R[0] = r11 * r00 + r01 * r10;
|
|
R[1] = -r01 * r12 - r11 * r02;
|
|
R[2] = v173 * r02 * r12;
|
|
R[3] = -r10 * r02 - r00 * r12;
|
|
R[4] = r00 * r10 - r01 * r11;
|
|
R[5] = -r11 * r20 - r21 * r10;
|
|
R[6] = r11 * r22 + r21 * r12;
|
|
R[7] = -v173 * r22 * r12;
|
|
R[8] = r20 * r12 + r10 * r22;
|
|
R[9] = -r10 * r20 + r11 * r21;
|
|
R[10] = -v577* (t41 + t43) + v115 * r21 * r20;
|
|
R[11] = v577* (t48 + t50) - v115 * r21 * r22;
|
|
R[12] = -0.5000000000e0f * (t55 + t58) + t57;
|
|
R[13] = v577 * (t61 + t63) - v115 * r20 * r22;
|
|
R[14] = v288 * (t70 - t68 + t72 - t74) - v577 * (t76 - t78);
|
|
R[15] = -r01 * r20 - r21 * r00;
|
|
R[16] = r01 * r22 + r21 * r02;
|
|
R[17] = -v173 * r22 * r02;
|
|
R[18] = r00 * r22 + r20 * r02;
|
|
R[19] = -r00 * r20 + r01 * r21;
|
|
R[20] = t41 - t43;
|
|
R[21] = -t50 + t48;
|
|
R[22] = v866 * (t55 - t58);
|
|
R[23] = t63 - t61;
|
|
R[24] = 0.5000000000e0f *(t74 - t68 - t70 + t72);
|
|
|
|
// blow the matrix multiply out by hand, looping is ineficient on a P4...
|
|
for (unsigned int iR = 0; iR < 5; iR++)
|
|
{
|
|
const unsigned int uBase = iR * 5;
|
|
result[4 + iR] = R[uBase + 0] * input[4] + R[uBase + 1] * input[5] + R[uBase + 2] * input[6] + R[uBase + 3] * input[7] + R[uBase + 4] * input[8];
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 4:
|
|
sh3_rot(mRot, const_cast<float *>(input), result);
|
|
break;
|
|
|
|
case 5:
|
|
sh4_rot(mRot, const_cast<float *>(input), result);
|
|
break;
|
|
|
|
case 6:
|
|
sh5_rot(mRot, const_cast<float *>(input), result);
|
|
break;
|
|
|
|
default:
|
|
assert(order < XM_SH_MINORDER || order > XM_SH_MAXORDER);
|
|
return nullptr;
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Rotates the SH vector in the Z axis by an angle
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb205461.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHRotateZ(
|
|
float *result,
|
|
size_t order,
|
|
float angle,
|
|
const float *input)
|
|
{
|
|
if (!result || !input)
|
|
return nullptr;
|
|
|
|
if (result == input)
|
|
return nullptr;
|
|
|
|
if (order < XM_SH_MINORDER || order > XM_SH_MAXORDER)
|
|
return nullptr;
|
|
|
|
float R[(2 * (XM_SH_MAXORDER - 1) + 1)*(2 * (XM_SH_MAXORDER - 1) + 1)]; // used to store rotation matrices...
|
|
|
|
// these are actually very sparse matrices, most of the entries are zero's...
|
|
|
|
const float ca = cosf(angle);
|
|
const float sa = sinf(angle);
|
|
|
|
const float t1 = ca;
|
|
const float t2 = sa;
|
|
R[0] = t1;
|
|
R[1] = 0.0f;
|
|
R[2] = t2;
|
|
R[3] = 0.0f;
|
|
R[4] = 1.0f;
|
|
R[5] = 0.0f;
|
|
R[6] = -t2;
|
|
R[7] = 0.0f;
|
|
R[8] = t1;
|
|
|
|
result[0] = input[0];
|
|
SimpMatMul(3, R, input + 1, result + 1);
|
|
|
|
if (order > 2)
|
|
{
|
|
for (int j = 0; j < 5 * 5; j++) R[j] = 0.0f;
|
|
const float t1 = sa;
|
|
const float t2 = t1*t1;
|
|
const float t3 = ca;
|
|
const float t4 = t3*t3;
|
|
const float t5 = -t2 + t4;
|
|
const float t7 = 2.0f*t3*t1;
|
|
R[0] = t5;
|
|
R[4] = t7;
|
|
R[6] = t3;
|
|
R[8] = t1;
|
|
R[12] = 1.0f;
|
|
R[16] = -t1;
|
|
R[18] = t3;
|
|
R[20] = -t7;
|
|
R[24] = t5;
|
|
|
|
SimpMatMul(5, R, input + 4, result + 4); // un-roll matrix/vector multiply
|
|
if (order > 3)
|
|
{
|
|
for (int j = 0; j < 7 * 7; j++) R[j] = 0.0f;
|
|
const float t1 = ca;
|
|
const float t2 = t1*t1;
|
|
const float t4 = sa;
|
|
const float t5 = t4*t4;
|
|
const float t8 = t2*t1 - 3.0f*t1*t5;
|
|
const float t12 = 3.0f*t4*t2 - t5*t4;
|
|
const float t13 = -t5 + t2;
|
|
const float t15 = 2.0f*t1*t4;
|
|
R[0] = t8;
|
|
R[6] = t12;
|
|
R[8] = t13;
|
|
R[12] = t15;
|
|
R[16] = t1;
|
|
R[18] = t4;
|
|
R[24] = 1.0f;
|
|
R[30] = -t4;
|
|
R[32] = t1;
|
|
R[36] = -t15;
|
|
R[40] = t13;
|
|
R[42] = -t12;
|
|
R[48] = t8;
|
|
SimpMatMul(7, R, input + 9, result + 9);
|
|
if (order > 4)
|
|
{
|
|
for (int j = 0; j <= 9 * 9; j++) R[j] = 0.0f;
|
|
const float t1 = ca;
|
|
const float t2 = t1*t1;
|
|
const float t3 = t2*t2;
|
|
const float t4 = sa;
|
|
const float t5 = t4*t4;
|
|
const float t6 = t5*t5;
|
|
const float t9 = t3 + t6 - 6.0f*t5*t2;
|
|
const float t10 = t5*t4;
|
|
const float t12 = t2*t1;
|
|
const float t14 = -t10*t1 + t4*t12;
|
|
const float t17 = t12 - 3.0f*t1*t5;
|
|
const float t20 = 3.0f*t4*t2 - t10;
|
|
const float t21 = -t5 + t2;
|
|
const float t23 = 2.0f*t1*t4;
|
|
R[0] = t9;
|
|
R[8] = 4.0f*t14;
|
|
R[10] = t17;
|
|
R[16] = t20;
|
|
R[20] = t21;
|
|
R[24] = t23;
|
|
R[30] = t1;
|
|
R[32] = t4;
|
|
R[40] = 1.0f;
|
|
R[48] = -t4;
|
|
R[50] = t1;
|
|
R[56] = -t23;
|
|
R[60] = t21;
|
|
R[64] = -t20;
|
|
R[70] = t17;
|
|
R[72] = -4.0f*t14;
|
|
R[80] = t9;
|
|
|
|
SimpMatMul(9, R, input + 16, result + 16);
|
|
if (order > 5)
|
|
{
|
|
for (int j = 0; j < 11 * 11; j++) R[j] = 0.0f;
|
|
const float t1 = ca;
|
|
const float t2 = sa;
|
|
const float t3 = t2*t2;
|
|
const float t4 = t3*t3;
|
|
const float t7 = t1*t1;
|
|
const float t8 = t7*t1;
|
|
const float t11 = t7*t7;
|
|
const float t13 = 5.0f*t1*t4 - 10.0f*t3*t8 + t11*t1;
|
|
const float t14 = t3*t2;
|
|
const float t20 = -10.0f*t14*t7 + 5.0f*t2*t11 + t4*t2;
|
|
const float t23 = t11 + t4 - 6.0f*t3*t7;
|
|
const float t26 = -t14*t1 + t2*t8;
|
|
const float t29 = t8 - 3.0f*t1*t3;
|
|
const float t32 = 3.0f*t2*t7 - t14;
|
|
const float t33 = -t3 + t7;
|
|
const float t35 = 2.0f*t1*t2;
|
|
R[0] = t13;
|
|
R[10] = t20;
|
|
R[12] = t23;
|
|
R[20] = 4.0f*t26;
|
|
R[24] = t29;
|
|
R[30] = t32;
|
|
R[36] = t33;
|
|
R[40] = t35;
|
|
R[48] = t1;
|
|
R[50] = t2;
|
|
R[60] = 1.0f;
|
|
R[70] = -t2;
|
|
R[72] = t1;
|
|
R[80] = -t35;
|
|
R[84] = t33;
|
|
R[90] = -t32;
|
|
R[96] = t29;
|
|
R[100] = -4.0f*t26;
|
|
R[108] = t23;
|
|
R[110] = -t20;
|
|
R[120] = t13;
|
|
SimpMatMul(11, R, input + 25, result + 25);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Adds two SH vectors, result[i] = inputA[i] + inputB[i];
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb205438.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHAdd(
|
|
float *result,
|
|
size_t order,
|
|
const float *inputA,
|
|
const float *inputB)
|
|
{
|
|
if (!result || !inputA || !inputB)
|
|
return nullptr;
|
|
|
|
const size_t numcoeff = order*order;
|
|
|
|
for (size_t i = 0; i < numcoeff; ++i)
|
|
{
|
|
result[i] = inputA[i] + inputB[i];
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Scales a SH vector, result[i] = input[i] * scale;
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb204994.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHScale(
|
|
float *result,
|
|
size_t order,
|
|
const float *input,
|
|
float scale)
|
|
{
|
|
if (!result || !input)
|
|
return nullptr;
|
|
|
|
const size_t numcoeff = order*order;
|
|
|
|
for (size_t i = 0; i < numcoeff; ++i)
|
|
{
|
|
result[i] = scale * input[i];
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Computes the dot product of two SH vectors
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb205446.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float DirectX::XMSHDot(
|
|
size_t order,
|
|
const float *inputA,
|
|
const float *inputB)
|
|
{
|
|
if (!inputA || !inputB)
|
|
return 0.f;
|
|
|
|
float result = inputA[0] * inputB[0];
|
|
|
|
const size_t numcoeff = order*order;
|
|
|
|
for (size_t i = 1; i < numcoeff; ++i)
|
|
{
|
|
result += inputA[i] * inputB[i];
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Computes the product of two functions represented using SH (f and g), where:
|
|
// result[i] = int(y_i(s) * f(s) * g(s)), where y_i(s) is the ith SH basis
|
|
// function, f(s) and g(s) are SH functions (sum_i(y_i(s)*c_i)). The order O
|
|
// determines the lengths of the arrays, where there should always be O^2
|
|
// coefficients. In general the product of two SH functions of order O generates
|
|
// and SH function of order 2*O - 1, but we truncate the result. This means
|
|
// that the product commutes (f*g == g*f) but doesn't associate
|
|
// (f*(g*h) != (f*g)*h.
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHMultiply(
|
|
float *result,
|
|
size_t order,
|
|
const float *inputF,
|
|
const float *inputG)
|
|
{
|
|
switch (order)
|
|
{
|
|
case 2:
|
|
return XMSHMultiply2(result, inputF, inputG);
|
|
|
|
case 3:
|
|
return XMSHMultiply3(result, inputF, inputG);
|
|
|
|
case 4:
|
|
return XMSHMultiply4(result, inputF, inputG);
|
|
|
|
case 5:
|
|
return XMSHMultiply5(result, inputF, inputG);
|
|
|
|
case 6:
|
|
return XMSHMultiply6(result, inputF, inputG);
|
|
|
|
default:
|
|
assert(order < XM_SH_MINORDER || order > XM_SH_MAXORDER);
|
|
return nullptr;
|
|
}
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb205454.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHMultiply2(
|
|
float *y,
|
|
const float *f,
|
|
const float *g)
|
|
{
|
|
if (!y || !f || !g)
|
|
return nullptr;
|
|
|
|
REAL tf, tg, t;
|
|
// [0,0]: 0,
|
|
y[0] = CONSTANT(0.282094792935999980)*f[0] * g[0];
|
|
|
|
// [1,1]: 0,
|
|
tf = CONSTANT(0.282094791773000010)*f[0];
|
|
tg = CONSTANT(0.282094791773000010)*g[0];
|
|
y[1] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[1];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
|
|
// [2,2]: 0,
|
|
tf = CONSTANT(0.282094795249000000)*f[0];
|
|
tg = CONSTANT(0.282094795249000000)*g[0];
|
|
y[2] = tf*g[2] + tg*f[2];
|
|
t = f[2] * g[2];
|
|
y[0] += CONSTANT(0.282094795249000000)*t;
|
|
|
|
// [3,3]: 0,
|
|
tf = CONSTANT(0.282094791773000010)*f[0];
|
|
tg = CONSTANT(0.282094791773000010)*g[0];
|
|
y[3] = tf*g[3] + tg*f[3];
|
|
t = f[3] * g[3];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
|
|
// multiply count=20
|
|
|
|
return y;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb232906.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHMultiply3(
|
|
float *y,
|
|
const float *f,
|
|
const float *g)
|
|
{
|
|
if (!y || !f || !g)
|
|
return nullptr;
|
|
|
|
REAL tf, tg, t;
|
|
// [0,0]: 0,
|
|
y[0] = CONSTANT(0.282094792935999980)*f[0] * g[0];
|
|
|
|
// [1,1]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(-0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(-0.218509686119999990)*g[8];
|
|
y[1] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[1];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] = CONSTANT(-0.126156626101000010)*t;
|
|
y[8] = CONSTANT(-0.218509686119999990)*t;
|
|
|
|
// [1,2]: 5,
|
|
tf = CONSTANT(0.218509686118000010)*f[5];
|
|
tg = CONSTANT(0.218509686118000010)*g[5];
|
|
y[1] += tf*g[2] + tg*f[2];
|
|
y[2] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[2] + f[2] * g[1];
|
|
y[5] = CONSTANT(0.218509686118000010)*t;
|
|
|
|
// [1,3]: 4,
|
|
tf = CONSTANT(0.218509686114999990)*f[4];
|
|
tg = CONSTANT(0.218509686114999990)*g[4];
|
|
y[1] += tf*g[3] + tg*f[3];
|
|
y[3] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[3] + f[3] * g[1];
|
|
y[4] = CONSTANT(0.218509686114999990)*t;
|
|
|
|
// [2,2]: 0,6,
|
|
tf = CONSTANT(0.282094795249000000)*f[0] + CONSTANT(0.252313259986999990)*f[6];
|
|
tg = CONSTANT(0.282094795249000000)*g[0] + CONSTANT(0.252313259986999990)*g[6];
|
|
y[2] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[2];
|
|
y[0] += CONSTANT(0.282094795249000000)*t;
|
|
y[6] += CONSTANT(0.252313259986999990)*t;
|
|
|
|
// [2,3]: 7,
|
|
tf = CONSTANT(0.218509686118000010)*f[7];
|
|
tg = CONSTANT(0.218509686118000010)*g[7];
|
|
y[2] += tf*g[3] + tg*f[3];
|
|
y[3] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[3] + f[3] * g[2];
|
|
y[7] = CONSTANT(0.218509686118000010)*t;
|
|
|
|
// [3,3]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(0.218509686119999990)*g[8];
|
|
y[3] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[3];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] += CONSTANT(-0.126156626101000010)*t;
|
|
y[8] += CONSTANT(0.218509686119999990)*t;
|
|
|
|
// [4,4]: 0,6,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6];
|
|
y[4] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[4];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
|
|
// [4,5]: 7,
|
|
tf = CONSTANT(0.156078347226000000)*f[7];
|
|
tg = CONSTANT(0.156078347226000000)*g[7];
|
|
y[4] += tf*g[5] + tg*f[5];
|
|
y[5] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[5] + f[5] * g[4];
|
|
y[7] += CONSTANT(0.156078347226000000)*t;
|
|
|
|
// [5,5]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.090111875786499998)*f[6] + CONSTANT(-0.156078347227999990)*f[8];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.090111875786499998)*g[6] + CONSTANT(-0.156078347227999990)*g[8];
|
|
y[5] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[5];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[8] += CONSTANT(-0.156078347227999990)*t;
|
|
|
|
// [6,6]: 0,6,
|
|
tf = CONSTANT(0.282094797560000000)*f[0];
|
|
tg = CONSTANT(0.282094797560000000)*g[0];
|
|
y[6] += tf*g[6] + tg*f[6];
|
|
t = f[6] * g[6];
|
|
y[0] += CONSTANT(0.282094797560000000)*t;
|
|
y[6] += CONSTANT(0.180223764527000010)*t;
|
|
|
|
// [7,7]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.090111875786499998)*f[6] + CONSTANT(0.156078347227999990)*f[8];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.090111875786499998)*g[6] + CONSTANT(0.156078347227999990)*g[8];
|
|
y[7] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[7];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[8] += CONSTANT(0.156078347227999990)*t;
|
|
|
|
// [8,8]: 0,6,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6];
|
|
y[8] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[8];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
|
|
// multiply count=120
|
|
|
|
return y;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb232907.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHMultiply4(
|
|
float *y,
|
|
const float *f,
|
|
const float *g)
|
|
{
|
|
if (!y || !f || !g)
|
|
return nullptr;
|
|
|
|
REAL tf, tg, t;
|
|
// [0,0]: 0,
|
|
y[0] = CONSTANT(0.282094792935999980)*f[0] * g[0];
|
|
|
|
// [1,1]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(-0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(-0.218509686119999990)*g[8];
|
|
y[1] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[1];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] = CONSTANT(-0.126156626101000010)*t;
|
|
y[8] = CONSTANT(-0.218509686119999990)*t;
|
|
|
|
// [1,4]: 3,13,15,
|
|
tf = CONSTANT(0.218509686114999990)*f[3] + CONSTANT(-0.058399170082300000)*f[13] + CONSTANT(-0.226179013157999990)*f[15];
|
|
tg = CONSTANT(0.218509686114999990)*g[3] + CONSTANT(-0.058399170082300000)*g[13] + CONSTANT(-0.226179013157999990)*g[15];
|
|
y[1] += tf*g[4] + tg*f[4];
|
|
y[4] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[4] + f[4] * g[1];
|
|
y[3] = CONSTANT(0.218509686114999990)*t;
|
|
y[13] = CONSTANT(-0.058399170082300000)*t;
|
|
y[15] = CONSTANT(-0.226179013157999990)*t;
|
|
|
|
// [1,5]: 2,12,14,
|
|
tf = CONSTANT(0.218509686118000010)*f[2] + CONSTANT(-0.143048168103000000)*f[12] + CONSTANT(-0.184674390923000000)*f[14];
|
|
tg = CONSTANT(0.218509686118000010)*g[2] + CONSTANT(-0.143048168103000000)*g[12] + CONSTANT(-0.184674390923000000)*g[14];
|
|
y[1] += tf*g[5] + tg*f[5];
|
|
y[5] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[5] + f[5] * g[1];
|
|
y[2] = CONSTANT(0.218509686118000010)*t;
|
|
y[12] = CONSTANT(-0.143048168103000000)*t;
|
|
y[14] = CONSTANT(-0.184674390923000000)*t;
|
|
|
|
// [1,6]: 11,
|
|
tf = CONSTANT(0.202300659402999990)*f[11];
|
|
tg = CONSTANT(0.202300659402999990)*g[11];
|
|
y[1] += tf*g[6] + tg*f[6];
|
|
y[6] += tf*g[1] + tg*f[1];
|
|
t = f[1] * g[6] + f[6] * g[1];
|
|
y[11] = CONSTANT(0.202300659402999990)*t;
|
|
|
|
// [1,8]: 9,11,
|
|
tf = CONSTANT(0.226179013155000000)*f[9] + CONSTANT(0.058399170081799998)*f[11];
|
|
tg = CONSTANT(0.226179013155000000)*g[9] + CONSTANT(0.058399170081799998)*g[11];
|
|
y[1] += tf*g[8] + tg*f[8];
|
|
y[8] += tf*g[1] + tg*f[1];
|
|
t = f[1] * g[8] + f[8] * g[1];
|
|
y[9] = CONSTANT(0.226179013155000000)*t;
|
|
y[11] += CONSTANT(0.058399170081799998)*t;
|
|
|
|
// [2,2]: 0,6,
|
|
tf = CONSTANT(0.282094795249000000)*f[0] + CONSTANT(0.252313259986999990)*f[6];
|
|
tg = CONSTANT(0.282094795249000000)*g[0] + CONSTANT(0.252313259986999990)*g[6];
|
|
y[2] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[2];
|
|
y[0] += CONSTANT(0.282094795249000000)*t;
|
|
y[6] += CONSTANT(0.252313259986999990)*t;
|
|
|
|
// [2,6]: 12,
|
|
tf = CONSTANT(0.247766706973999990)*f[12];
|
|
tg = CONSTANT(0.247766706973999990)*g[12];
|
|
y[2] += tf*g[6] + tg*f[6];
|
|
y[6] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[6] + f[6] * g[2];
|
|
y[12] += CONSTANT(0.247766706973999990)*t;
|
|
|
|
// [3,3]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(0.218509686119999990)*g[8];
|
|
y[3] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[3];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] += CONSTANT(-0.126156626101000010)*t;
|
|
y[8] += CONSTANT(0.218509686119999990)*t;
|
|
|
|
// [3,6]: 13,
|
|
tf = CONSTANT(0.202300659402999990)*f[13];
|
|
tg = CONSTANT(0.202300659402999990)*g[13];
|
|
y[3] += tf*g[6] + tg*f[6];
|
|
y[6] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[6] + f[6] * g[3];
|
|
y[13] += CONSTANT(0.202300659402999990)*t;
|
|
|
|
// [3,7]: 2,12,14,
|
|
tf = CONSTANT(0.218509686118000010)*f[2] + CONSTANT(-0.143048168103000000)*f[12] + CONSTANT(0.184674390923000000)*f[14];
|
|
tg = CONSTANT(0.218509686118000010)*g[2] + CONSTANT(-0.143048168103000000)*g[12] + CONSTANT(0.184674390923000000)*g[14];
|
|
y[3] += tf*g[7] + tg*f[7];
|
|
y[7] = tf*g[3] + tg*f[3];
|
|
t = f[3] * g[7] + f[7] * g[3];
|
|
y[2] += CONSTANT(0.218509686118000010)*t;
|
|
y[12] += CONSTANT(-0.143048168103000000)*t;
|
|
y[14] += CONSTANT(0.184674390923000000)*t;
|
|
|
|
// [3,8]: 13,15,
|
|
tf = CONSTANT(-0.058399170081799998)*f[13] + CONSTANT(0.226179013155000000)*f[15];
|
|
tg = CONSTANT(-0.058399170081799998)*g[13] + CONSTANT(0.226179013155000000)*g[15];
|
|
y[3] += tf*g[8] + tg*f[8];
|
|
y[8] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[8] + f[8] * g[3];
|
|
y[13] += CONSTANT(-0.058399170081799998)*t;
|
|
y[15] += CONSTANT(0.226179013155000000)*t;
|
|
|
|
// [4,4]: 0,6,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6];
|
|
y[4] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[4];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
|
|
// [4,5]: 7,
|
|
tf = CONSTANT(0.156078347226000000)*f[7];
|
|
tg = CONSTANT(0.156078347226000000)*g[7];
|
|
y[4] += tf*g[5] + tg*f[5];
|
|
y[5] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[5] + f[5] * g[4];
|
|
y[7] += CONSTANT(0.156078347226000000)*t;
|
|
|
|
// [4,9]: 3,13,
|
|
tf = CONSTANT(0.226179013157999990)*f[3] + CONSTANT(-0.094031597258400004)*f[13];
|
|
tg = CONSTANT(0.226179013157999990)*g[3] + CONSTANT(-0.094031597258400004)*g[13];
|
|
y[4] += tf*g[9] + tg*f[9];
|
|
y[9] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[9] + f[9] * g[4];
|
|
y[3] += CONSTANT(0.226179013157999990)*t;
|
|
y[13] += CONSTANT(-0.094031597258400004)*t;
|
|
|
|
// [4,10]: 2,12,
|
|
tf = CONSTANT(0.184674390919999990)*f[2] + CONSTANT(-0.188063194517999990)*f[12];
|
|
tg = CONSTANT(0.184674390919999990)*g[2] + CONSTANT(-0.188063194517999990)*g[12];
|
|
y[4] += tf*g[10] + tg*f[10];
|
|
y[10] = tf*g[4] + tg*f[4];
|
|
t = f[4] * g[10] + f[10] * g[4];
|
|
y[2] += CONSTANT(0.184674390919999990)*t;
|
|
y[12] += CONSTANT(-0.188063194517999990)*t;
|
|
|
|
// [4,11]: 3,13,15,
|
|
tf = CONSTANT(-0.058399170082300000)*f[3] + CONSTANT(0.145673124078000010)*f[13] + CONSTANT(0.094031597258400004)*f[15];
|
|
tg = CONSTANT(-0.058399170082300000)*g[3] + CONSTANT(0.145673124078000010)*g[13] + CONSTANT(0.094031597258400004)*g[15];
|
|
y[4] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[11] + f[11] * g[4];
|
|
y[3] += CONSTANT(-0.058399170082300000)*t;
|
|
y[13] += CONSTANT(0.145673124078000010)*t;
|
|
y[15] += CONSTANT(0.094031597258400004)*t;
|
|
|
|
// [5,5]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.090111875786499998)*f[6] + CONSTANT(-0.156078347227999990)*f[8];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.090111875786499998)*g[6] + CONSTANT(-0.156078347227999990)*g[8];
|
|
y[5] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[5];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[8] += CONSTANT(-0.156078347227999990)*t;
|
|
|
|
// [5,9]: 14,
|
|
tf = CONSTANT(0.148677009677999990)*f[14];
|
|
tg = CONSTANT(0.148677009677999990)*g[14];
|
|
y[5] += tf*g[9] + tg*f[9];
|
|
y[9] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[9] + f[9] * g[5];
|
|
y[14] += CONSTANT(0.148677009677999990)*t;
|
|
|
|
// [5,10]: 3,13,15,
|
|
tf = CONSTANT(0.184674390919999990)*f[3] + CONSTANT(0.115164716490000000)*f[13] + CONSTANT(-0.148677009678999990)*f[15];
|
|
tg = CONSTANT(0.184674390919999990)*g[3] + CONSTANT(0.115164716490000000)*g[13] + CONSTANT(-0.148677009678999990)*g[15];
|
|
y[5] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[10] + f[10] * g[5];
|
|
y[3] += CONSTANT(0.184674390919999990)*t;
|
|
y[13] += CONSTANT(0.115164716490000000)*t;
|
|
y[15] += CONSTANT(-0.148677009678999990)*t;
|
|
|
|
// [5,11]: 2,12,14,
|
|
tf = CONSTANT(0.233596680327000010)*f[2] + CONSTANT(0.059470803871800003)*f[12] + CONSTANT(-0.115164716491000000)*f[14];
|
|
tg = CONSTANT(0.233596680327000010)*g[2] + CONSTANT(0.059470803871800003)*g[12] + CONSTANT(-0.115164716491000000)*g[14];
|
|
y[5] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[11] + f[11] * g[5];
|
|
y[2] += CONSTANT(0.233596680327000010)*t;
|
|
y[12] += CONSTANT(0.059470803871800003)*t;
|
|
y[14] += CONSTANT(-0.115164716491000000)*t;
|
|
|
|
// [6,6]: 0,6,
|
|
tf = CONSTANT(0.282094797560000000)*f[0];
|
|
tg = CONSTANT(0.282094797560000000)*g[0];
|
|
y[6] += tf*g[6] + tg*f[6];
|
|
t = f[6] * g[6];
|
|
y[0] += CONSTANT(0.282094797560000000)*t;
|
|
y[6] += CONSTANT(0.180223764527000010)*t;
|
|
|
|
// [7,7]: 6,0,8,
|
|
tf = CONSTANT(0.090111875786499998)*f[6] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.156078347227999990)*f[8];
|
|
tg = CONSTANT(0.090111875786499998)*g[6] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.156078347227999990)*g[8];
|
|
y[7] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[7];
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.156078347227999990)*t;
|
|
|
|
// [7,10]: 9,1,11,
|
|
tf = CONSTANT(0.148677009678999990)*f[9] + CONSTANT(0.184674390919999990)*f[1] + CONSTANT(0.115164716490000000)*f[11];
|
|
tg = CONSTANT(0.148677009678999990)*g[9] + CONSTANT(0.184674390919999990)*g[1] + CONSTANT(0.115164716490000000)*g[11];
|
|
y[7] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[10] + f[10] * g[7];
|
|
y[9] += CONSTANT(0.148677009678999990)*t;
|
|
y[1] += CONSTANT(0.184674390919999990)*t;
|
|
y[11] += CONSTANT(0.115164716490000000)*t;
|
|
|
|
// [7,13]: 12,2,14,
|
|
tf = CONSTANT(0.059470803871800003)*f[12] + CONSTANT(0.233596680327000010)*f[2] + CONSTANT(0.115164716491000000)*f[14];
|
|
tg = CONSTANT(0.059470803871800003)*g[12] + CONSTANT(0.233596680327000010)*g[2] + CONSTANT(0.115164716491000000)*g[14];
|
|
y[7] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[13] + f[13] * g[7];
|
|
y[12] += CONSTANT(0.059470803871800003)*t;
|
|
y[2] += CONSTANT(0.233596680327000010)*t;
|
|
y[14] += CONSTANT(0.115164716491000000)*t;
|
|
|
|
// [7,14]: 15,
|
|
tf = CONSTANT(0.148677009677999990)*f[15];
|
|
tg = CONSTANT(0.148677009677999990)*g[15];
|
|
y[7] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[14] + f[14] * g[7];
|
|
y[15] += CONSTANT(0.148677009677999990)*t;
|
|
|
|
// [8,8]: 0,6,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6];
|
|
y[8] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[8];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
|
|
// [8,9]: 11,
|
|
tf = CONSTANT(-0.094031597259499999)*f[11];
|
|
tg = CONSTANT(-0.094031597259499999)*g[11];
|
|
y[8] += tf*g[9] + tg*f[9];
|
|
y[9] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[9] + f[9] * g[8];
|
|
y[11] += CONSTANT(-0.094031597259499999)*t;
|
|
|
|
// [8,13]: 15,
|
|
tf = CONSTANT(-0.094031597259499999)*f[15];
|
|
tg = CONSTANT(-0.094031597259499999)*g[15];
|
|
y[8] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[13] + f[13] * g[8];
|
|
y[15] += CONSTANT(-0.094031597259499999)*t;
|
|
|
|
// [8,14]: 2,12,
|
|
tf = CONSTANT(0.184674390919999990)*f[2] + CONSTANT(-0.188063194517999990)*f[12];
|
|
tg = CONSTANT(0.184674390919999990)*g[2] + CONSTANT(-0.188063194517999990)*g[12];
|
|
y[8] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[14] + f[14] * g[8];
|
|
y[2] += CONSTANT(0.184674390919999990)*t;
|
|
y[12] += CONSTANT(-0.188063194517999990)*t;
|
|
|
|
// [9,9]: 6,0,
|
|
tf = CONSTANT(-0.210261043508000010)*f[6] + CONSTANT(0.282094791766999970)*f[0];
|
|
tg = CONSTANT(-0.210261043508000010)*g[6] + CONSTANT(0.282094791766999970)*g[0];
|
|
y[9] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[9];
|
|
y[6] += CONSTANT(-0.210261043508000010)*t;
|
|
y[0] += CONSTANT(0.282094791766999970)*t;
|
|
|
|
// [10,10]: 0,
|
|
tf = CONSTANT(0.282094791771999980)*f[0];
|
|
tg = CONSTANT(0.282094791771999980)*g[0];
|
|
y[10] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[10];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
|
|
// [11,11]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.126156626101000010)*f[6] + CONSTANT(-0.145673124078999990)*f[8];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.126156626101000010)*g[6] + CONSTANT(-0.145673124078999990)*g[8];
|
|
y[11] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[11];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.126156626101000010)*t;
|
|
y[8] += CONSTANT(-0.145673124078999990)*t;
|
|
|
|
// [12,12]: 0,6,
|
|
tf = CONSTANT(0.282094799871999980)*f[0] + CONSTANT(0.168208852954000010)*f[6];
|
|
tg = CONSTANT(0.282094799871999980)*g[0] + CONSTANT(0.168208852954000010)*g[6];
|
|
y[12] += tf*g[12] + tg*f[12];
|
|
t = f[12] * g[12];
|
|
y[0] += CONSTANT(0.282094799871999980)*t;
|
|
y[6] += CONSTANT(0.168208852954000010)*t;
|
|
|
|
// [13,13]: 0,8,6,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.145673124078999990)*f[8] + CONSTANT(0.126156626101000010)*f[6];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.145673124078999990)*g[8] + CONSTANT(0.126156626101000010)*g[6];
|
|
y[13] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[13];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.145673124078999990)*t;
|
|
y[6] += CONSTANT(0.126156626101000010)*t;
|
|
|
|
// [14,14]: 0,
|
|
tf = CONSTANT(0.282094791771999980)*f[0];
|
|
tg = CONSTANT(0.282094791771999980)*g[0];
|
|
y[14] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[14];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
|
|
// [15,15]: 0,6,
|
|
tf = CONSTANT(0.282094791766999970)*f[0] + CONSTANT(-0.210261043508000010)*f[6];
|
|
tg = CONSTANT(0.282094791766999970)*g[0] + CONSTANT(-0.210261043508000010)*g[6];
|
|
y[15] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[15];
|
|
y[0] += CONSTANT(0.282094791766999970)*t;
|
|
y[6] += CONSTANT(-0.210261043508000010)*t;
|
|
|
|
// multiply count=399
|
|
|
|
return y;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb232908.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHMultiply5(
|
|
float *y,
|
|
const float *f,
|
|
const float *g)
|
|
{
|
|
if (!y || !f || !g)
|
|
return nullptr;
|
|
|
|
REAL tf, tg, t;
|
|
// [0,0]: 0,
|
|
y[0] = CONSTANT(0.282094792935999980)*f[0] * g[0];
|
|
|
|
// [1,1]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(-0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(-0.218509686119999990)*g[8];
|
|
y[1] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[1];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] = CONSTANT(-0.126156626101000010)*t;
|
|
y[8] = CONSTANT(-0.218509686119999990)*t;
|
|
|
|
// [1,4]: 3,13,15,
|
|
tf = CONSTANT(0.218509686114999990)*f[3] + CONSTANT(-0.058399170082300000)*f[13] + CONSTANT(-0.226179013157999990)*f[15];
|
|
tg = CONSTANT(0.218509686114999990)*g[3] + CONSTANT(-0.058399170082300000)*g[13] + CONSTANT(-0.226179013157999990)*g[15];
|
|
y[1] += tf*g[4] + tg*f[4];
|
|
y[4] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[4] + f[4] * g[1];
|
|
y[3] = CONSTANT(0.218509686114999990)*t;
|
|
y[13] = CONSTANT(-0.058399170082300000)*t;
|
|
y[15] = CONSTANT(-0.226179013157999990)*t;
|
|
|
|
// [1,5]: 2,12,14,
|
|
tf = CONSTANT(0.218509686118000010)*f[2] + CONSTANT(-0.143048168103000000)*f[12] + CONSTANT(-0.184674390923000000)*f[14];
|
|
tg = CONSTANT(0.218509686118000010)*g[2] + CONSTANT(-0.143048168103000000)*g[12] + CONSTANT(-0.184674390923000000)*g[14];
|
|
y[1] += tf*g[5] + tg*f[5];
|
|
y[5] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[5] + f[5] * g[1];
|
|
y[2] = CONSTANT(0.218509686118000010)*t;
|
|
y[12] = CONSTANT(-0.143048168103000000)*t;
|
|
y[14] = CONSTANT(-0.184674390923000000)*t;
|
|
|
|
// [1,9]: 8,22,24,
|
|
tf = CONSTANT(0.226179013155000000)*f[8] + CONSTANT(-0.043528171378199997)*f[22] + CONSTANT(-0.230329432978999990)*f[24];
|
|
tg = CONSTANT(0.226179013155000000)*g[8] + CONSTANT(-0.043528171378199997)*g[22] + CONSTANT(-0.230329432978999990)*g[24];
|
|
y[1] += tf*g[9] + tg*f[9];
|
|
y[9] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[9] + f[9] * g[1];
|
|
y[8] += CONSTANT(0.226179013155000000)*t;
|
|
y[22] = CONSTANT(-0.043528171378199997)*t;
|
|
y[24] = CONSTANT(-0.230329432978999990)*t;
|
|
|
|
// [1,10]: 7,21,23,
|
|
tf = CONSTANT(0.184674390919999990)*f[7] + CONSTANT(-0.075393004386799994)*f[21] + CONSTANT(-0.199471140200000010)*f[23];
|
|
tg = CONSTANT(0.184674390919999990)*g[7] + CONSTANT(-0.075393004386799994)*g[21] + CONSTANT(-0.199471140200000010)*g[23];
|
|
y[1] += tf*g[10] + tg*f[10];
|
|
y[10] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[10] + f[10] * g[1];
|
|
y[7] = CONSTANT(0.184674390919999990)*t;
|
|
y[21] = CONSTANT(-0.075393004386799994)*t;
|
|
y[23] = CONSTANT(-0.199471140200000010)*t;
|
|
|
|
// [1,11]: 6,8,20,22,
|
|
tf = CONSTANT(0.202300659402999990)*f[6] + CONSTANT(0.058399170081799998)*f[8] + CONSTANT(-0.150786008773000000)*f[20] + CONSTANT(-0.168583882836999990)*f[22];
|
|
tg = CONSTANT(0.202300659402999990)*g[6] + CONSTANT(0.058399170081799998)*g[8] + CONSTANT(-0.150786008773000000)*g[20] + CONSTANT(-0.168583882836999990)*g[22];
|
|
y[1] += tf*g[11] + tg*f[11];
|
|
y[11] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[11] + f[11] * g[1];
|
|
y[6] += CONSTANT(0.202300659402999990)*t;
|
|
y[8] += CONSTANT(0.058399170081799998)*t;
|
|
y[20] = CONSTANT(-0.150786008773000000)*t;
|
|
y[22] += CONSTANT(-0.168583882836999990)*t;
|
|
|
|
// [1,12]: 19,
|
|
tf = CONSTANT(0.194663900273000010)*f[19];
|
|
tg = CONSTANT(0.194663900273000010)*g[19];
|
|
y[1] += tf*g[12] + tg*f[12];
|
|
y[12] += tf*g[1] + tg*f[1];
|
|
t = f[1] * g[12] + f[12] * g[1];
|
|
y[19] = CONSTANT(0.194663900273000010)*t;
|
|
|
|
// [1,13]: 18,
|
|
tf = CONSTANT(0.168583882834000000)*f[18];
|
|
tg = CONSTANT(0.168583882834000000)*g[18];
|
|
y[1] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[1] + tg*f[1];
|
|
t = f[1] * g[13] + f[13] * g[1];
|
|
y[18] = CONSTANT(0.168583882834000000)*t;
|
|
|
|
// [1,14]: 17,19,
|
|
tf = CONSTANT(0.199471140196999990)*f[17] + CONSTANT(0.075393004386399995)*f[19];
|
|
tg = CONSTANT(0.199471140196999990)*g[17] + CONSTANT(0.075393004386399995)*g[19];
|
|
y[1] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[1] + tg*f[1];
|
|
t = f[1] * g[14] + f[14] * g[1];
|
|
y[17] = CONSTANT(0.199471140196999990)*t;
|
|
y[19] += CONSTANT(0.075393004386399995)*t;
|
|
|
|
// [1,15]: 16,18,
|
|
tf = CONSTANT(0.230329432973999990)*f[16] + CONSTANT(0.043528171377799997)*f[18];
|
|
tg = CONSTANT(0.230329432973999990)*g[16] + CONSTANT(0.043528171377799997)*g[18];
|
|
y[1] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[1] + tg*f[1];
|
|
t = f[1] * g[15] + f[15] * g[1];
|
|
y[16] = CONSTANT(0.230329432973999990)*t;
|
|
y[18] += CONSTANT(0.043528171377799997)*t;
|
|
|
|
// [2,2]: 0,6,
|
|
tf = CONSTANT(0.282094795249000000)*f[0] + CONSTANT(0.252313259986999990)*f[6];
|
|
tg = CONSTANT(0.282094795249000000)*g[0] + CONSTANT(0.252313259986999990)*g[6];
|
|
y[2] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[2];
|
|
y[0] += CONSTANT(0.282094795249000000)*t;
|
|
y[6] += CONSTANT(0.252313259986999990)*t;
|
|
|
|
// [2,10]: 4,18,
|
|
tf = CONSTANT(0.184674390919999990)*f[4] + CONSTANT(0.213243618621000000)*f[18];
|
|
tg = CONSTANT(0.184674390919999990)*g[4] + CONSTANT(0.213243618621000000)*g[18];
|
|
y[2] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[10] + f[10] * g[2];
|
|
y[4] += CONSTANT(0.184674390919999990)*t;
|
|
y[18] += CONSTANT(0.213243618621000000)*t;
|
|
|
|
// [2,12]: 6,20,
|
|
tf = CONSTANT(0.247766706973999990)*f[6] + CONSTANT(0.246232537174000010)*f[20];
|
|
tg = CONSTANT(0.247766706973999990)*g[6] + CONSTANT(0.246232537174000010)*g[20];
|
|
y[2] += tf*g[12] + tg*f[12];
|
|
y[12] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[12] + f[12] * g[2];
|
|
y[6] += CONSTANT(0.247766706973999990)*t;
|
|
y[20] += CONSTANT(0.246232537174000010)*t;
|
|
|
|
// [2,14]: 8,22,
|
|
tf = CONSTANT(0.184674390919999990)*f[8] + CONSTANT(0.213243618621000000)*f[22];
|
|
tg = CONSTANT(0.184674390919999990)*g[8] + CONSTANT(0.213243618621000000)*g[22];
|
|
y[2] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[14] + f[14] * g[2];
|
|
y[8] += CONSTANT(0.184674390919999990)*t;
|
|
y[22] += CONSTANT(0.213243618621000000)*t;
|
|
|
|
// [3,3]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(0.218509686119999990)*g[8];
|
|
y[3] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[3];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] += CONSTANT(-0.126156626101000010)*t;
|
|
y[8] += CONSTANT(0.218509686119999990)*t;
|
|
|
|
// [3,7]: 2,12,14,
|
|
tf = CONSTANT(0.218509686118000010)*f[2] + CONSTANT(-0.143048168103000000)*f[12] + CONSTANT(0.184674390923000000)*f[14];
|
|
tg = CONSTANT(0.218509686118000010)*g[2] + CONSTANT(-0.143048168103000000)*g[12] + CONSTANT(0.184674390923000000)*g[14];
|
|
y[3] += tf*g[7] + tg*f[7];
|
|
y[7] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[7] + f[7] * g[3];
|
|
y[2] += CONSTANT(0.218509686118000010)*t;
|
|
y[12] += CONSTANT(-0.143048168103000000)*t;
|
|
y[14] += CONSTANT(0.184674390923000000)*t;
|
|
|
|
// [3,9]: 4,16,18,
|
|
tf = CONSTANT(0.226179013157999990)*f[4] + CONSTANT(0.230329432973999990)*f[16] + CONSTANT(-0.043528171377799997)*f[18];
|
|
tg = CONSTANT(0.226179013157999990)*g[4] + CONSTANT(0.230329432973999990)*g[16] + CONSTANT(-0.043528171377799997)*g[18];
|
|
y[3] += tf*g[9] + tg*f[9];
|
|
y[9] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[9] + f[9] * g[3];
|
|
y[4] += CONSTANT(0.226179013157999990)*t;
|
|
y[16] += CONSTANT(0.230329432973999990)*t;
|
|
y[18] += CONSTANT(-0.043528171377799997)*t;
|
|
|
|
// [3,10]: 5,17,19,
|
|
tf = CONSTANT(0.184674390919999990)*f[5] + CONSTANT(0.199471140200000010)*f[17] + CONSTANT(-0.075393004386799994)*f[19];
|
|
tg = CONSTANT(0.184674390919999990)*g[5] + CONSTANT(0.199471140200000010)*g[17] + CONSTANT(-0.075393004386799994)*g[19];
|
|
y[3] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[10] + f[10] * g[3];
|
|
y[5] += CONSTANT(0.184674390919999990)*t;
|
|
y[17] += CONSTANT(0.199471140200000010)*t;
|
|
y[19] += CONSTANT(-0.075393004386799994)*t;
|
|
|
|
// [3,12]: 21,
|
|
tf = CONSTANT(0.194663900273000010)*f[21];
|
|
tg = CONSTANT(0.194663900273000010)*g[21];
|
|
y[3] += tf*g[12] + tg*f[12];
|
|
y[12] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[12] + f[12] * g[3];
|
|
y[21] += CONSTANT(0.194663900273000010)*t;
|
|
|
|
// [3,13]: 8,6,20,22,
|
|
tf = CONSTANT(-0.058399170081799998)*f[8] + CONSTANT(0.202300659402999990)*f[6] + CONSTANT(-0.150786008773000000)*f[20] + CONSTANT(0.168583882836999990)*f[22];
|
|
tg = CONSTANT(-0.058399170081799998)*g[8] + CONSTANT(0.202300659402999990)*g[6] + CONSTANT(-0.150786008773000000)*g[20] + CONSTANT(0.168583882836999990)*g[22];
|
|
y[3] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[13] + f[13] * g[3];
|
|
y[8] += CONSTANT(-0.058399170081799998)*t;
|
|
y[6] += CONSTANT(0.202300659402999990)*t;
|
|
y[20] += CONSTANT(-0.150786008773000000)*t;
|
|
y[22] += CONSTANT(0.168583882836999990)*t;
|
|
|
|
// [3,14]: 21,23,
|
|
tf = CONSTANT(-0.075393004386399995)*f[21] + CONSTANT(0.199471140196999990)*f[23];
|
|
tg = CONSTANT(-0.075393004386399995)*g[21] + CONSTANT(0.199471140196999990)*g[23];
|
|
y[3] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[14] + f[14] * g[3];
|
|
y[21] += CONSTANT(-0.075393004386399995)*t;
|
|
y[23] += CONSTANT(0.199471140196999990)*t;
|
|
|
|
// [3,15]: 8,22,24,
|
|
tf = CONSTANT(0.226179013155000000)*f[8] + CONSTANT(-0.043528171378199997)*f[22] + CONSTANT(0.230329432978999990)*f[24];
|
|
tg = CONSTANT(0.226179013155000000)*g[8] + CONSTANT(-0.043528171378199997)*g[22] + CONSTANT(0.230329432978999990)*g[24];
|
|
y[3] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[15] + f[15] * g[3];
|
|
y[8] += CONSTANT(0.226179013155000000)*t;
|
|
y[22] += CONSTANT(-0.043528171378199997)*t;
|
|
y[24] += CONSTANT(0.230329432978999990)*t;
|
|
|
|
// [4,4]: 0,6,20,24,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6] + CONSTANT(0.040299255967500003)*f[20] + CONSTANT(-0.238413613505999990)*f[24];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6] + CONSTANT(0.040299255967500003)*g[20] + CONSTANT(-0.238413613505999990)*g[24];
|
|
y[4] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[4];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
y[20] += CONSTANT(0.040299255967500003)*t;
|
|
y[24] += CONSTANT(-0.238413613505999990)*t;
|
|
|
|
// [4,5]: 7,21,23,
|
|
tf = CONSTANT(0.156078347226000000)*f[7] + CONSTANT(-0.063718718434399996)*f[21] + CONSTANT(-0.168583882835000000)*f[23];
|
|
tg = CONSTANT(0.156078347226000000)*g[7] + CONSTANT(-0.063718718434399996)*g[21] + CONSTANT(-0.168583882835000000)*g[23];
|
|
y[4] += tf*g[5] + tg*f[5];
|
|
y[5] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[5] + f[5] * g[4];
|
|
y[7] += CONSTANT(0.156078347226000000)*t;
|
|
y[21] += CONSTANT(-0.063718718434399996)*t;
|
|
y[23] += CONSTANT(-0.168583882835000000)*t;
|
|
|
|
// [4,11]: 3,13,15,
|
|
tf = CONSTANT(-0.058399170082300000)*f[3] + CONSTANT(0.145673124078000010)*f[13] + CONSTANT(0.094031597258400004)*f[15];
|
|
tg = CONSTANT(-0.058399170082300000)*g[3] + CONSTANT(0.145673124078000010)*g[13] + CONSTANT(0.094031597258400004)*g[15];
|
|
y[4] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[11] + f[11] * g[4];
|
|
y[3] += CONSTANT(-0.058399170082300000)*t;
|
|
y[13] += CONSTANT(0.145673124078000010)*t;
|
|
y[15] += CONSTANT(0.094031597258400004)*t;
|
|
|
|
// [4,16]: 8,22,
|
|
tf = CONSTANT(0.238413613494000000)*f[8] + CONSTANT(-0.075080816693699995)*f[22];
|
|
tg = CONSTANT(0.238413613494000000)*g[8] + CONSTANT(-0.075080816693699995)*g[22];
|
|
y[4] += tf*g[16] + tg*f[16];
|
|
y[16] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[16] + f[16] * g[4];
|
|
y[8] += CONSTANT(0.238413613494000000)*t;
|
|
y[22] += CONSTANT(-0.075080816693699995)*t;
|
|
|
|
// [4,18]: 6,20,24,
|
|
tf = CONSTANT(0.156078347226000000)*f[6] + CONSTANT(-0.190364615029000010)*f[20] + CONSTANT(0.075080816691500005)*f[24];
|
|
tg = CONSTANT(0.156078347226000000)*g[6] + CONSTANT(-0.190364615029000010)*g[20] + CONSTANT(0.075080816691500005)*g[24];
|
|
y[4] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[18] + f[18] * g[4];
|
|
y[6] += CONSTANT(0.156078347226000000)*t;
|
|
y[20] += CONSTANT(-0.190364615029000010)*t;
|
|
y[24] += CONSTANT(0.075080816691500005)*t;
|
|
|
|
// [4,19]: 7,21,23,
|
|
tf = CONSTANT(-0.063718718434399996)*f[7] + CONSTANT(0.141889406569999990)*f[21] + CONSTANT(0.112621225039000000)*f[23];
|
|
tg = CONSTANT(-0.063718718434399996)*g[7] + CONSTANT(0.141889406569999990)*g[21] + CONSTANT(0.112621225039000000)*g[23];
|
|
y[4] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[19] + f[19] * g[4];
|
|
y[7] += CONSTANT(-0.063718718434399996)*t;
|
|
y[21] += CONSTANT(0.141889406569999990)*t;
|
|
y[23] += CONSTANT(0.112621225039000000)*t;
|
|
|
|
// [5,5]: 0,6,8,20,22,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.090111875786499998)*f[6] + CONSTANT(-0.156078347227999990)*f[8] + CONSTANT(-0.161197023870999990)*f[20] + CONSTANT(-0.180223751574000000)*f[22];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.090111875786499998)*g[6] + CONSTANT(-0.156078347227999990)*g[8] + CONSTANT(-0.161197023870999990)*g[20] + CONSTANT(-0.180223751574000000)*g[22];
|
|
y[5] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[5];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[8] += CONSTANT(-0.156078347227999990)*t;
|
|
y[20] += CONSTANT(-0.161197023870999990)*t;
|
|
y[22] += CONSTANT(-0.180223751574000000)*t;
|
|
|
|
// [5,11]: 2,12,14,
|
|
tf = CONSTANT(0.233596680327000010)*f[2] + CONSTANT(0.059470803871800003)*f[12] + CONSTANT(-0.115164716491000000)*f[14];
|
|
tg = CONSTANT(0.233596680327000010)*g[2] + CONSTANT(0.059470803871800003)*g[12] + CONSTANT(-0.115164716491000000)*g[14];
|
|
y[5] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[11] + f[11] * g[5];
|
|
y[2] += CONSTANT(0.233596680327000010)*t;
|
|
y[12] += CONSTANT(0.059470803871800003)*t;
|
|
y[14] += CONSTANT(-0.115164716491000000)*t;
|
|
|
|
// [5,17]: 8,22,24,
|
|
tf = CONSTANT(0.168583882832999990)*f[8] + CONSTANT(0.132725386548000010)*f[22] + CONSTANT(-0.140463346189000000)*f[24];
|
|
tg = CONSTANT(0.168583882832999990)*g[8] + CONSTANT(0.132725386548000010)*g[22] + CONSTANT(-0.140463346189000000)*g[24];
|
|
y[5] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[17] + f[17] * g[5];
|
|
y[8] += CONSTANT(0.168583882832999990)*t;
|
|
y[22] += CONSTANT(0.132725386548000010)*t;
|
|
y[24] += CONSTANT(-0.140463346189000000)*t;
|
|
|
|
// [5,18]: 7,21,23,
|
|
tf = CONSTANT(0.180223751571000010)*f[7] + CONSTANT(0.090297865407399994)*f[21] + CONSTANT(-0.132725386549000010)*f[23];
|
|
tg = CONSTANT(0.180223751571000010)*g[7] + CONSTANT(0.090297865407399994)*g[21] + CONSTANT(-0.132725386549000010)*g[23];
|
|
y[5] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[18] + f[18] * g[5];
|
|
y[7] += CONSTANT(0.180223751571000010)*t;
|
|
y[21] += CONSTANT(0.090297865407399994)*t;
|
|
y[23] += CONSTANT(-0.132725386549000010)*t;
|
|
|
|
// [5,19]: 6,8,20,22,
|
|
tf = CONSTANT(0.220728115440999990)*f[6] + CONSTANT(0.063718718433900007)*f[8] + CONSTANT(0.044869370061299998)*f[20] + CONSTANT(-0.090297865408399999)*f[22];
|
|
tg = CONSTANT(0.220728115440999990)*g[6] + CONSTANT(0.063718718433900007)*g[8] + CONSTANT(0.044869370061299998)*g[20] + CONSTANT(-0.090297865408399999)*g[22];
|
|
y[5] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[19] + f[19] * g[5];
|
|
y[6] += CONSTANT(0.220728115440999990)*t;
|
|
y[8] += CONSTANT(0.063718718433900007)*t;
|
|
y[20] += CONSTANT(0.044869370061299998)*t;
|
|
y[22] += CONSTANT(-0.090297865408399999)*t;
|
|
|
|
// [6,6]: 0,6,20,
|
|
tf = CONSTANT(0.282094797560000000)*f[0] + CONSTANT(0.241795553185999990)*f[20];
|
|
tg = CONSTANT(0.282094797560000000)*g[0] + CONSTANT(0.241795553185999990)*g[20];
|
|
y[6] += tf*g[6] + tg*f[6];
|
|
t = f[6] * g[6];
|
|
y[0] += CONSTANT(0.282094797560000000)*t;
|
|
y[6] += CONSTANT(0.180223764527000010)*t;
|
|
y[20] += CONSTANT(0.241795553185999990)*t;
|
|
|
|
// [7,7]: 6,0,8,20,22,
|
|
tf = CONSTANT(0.090111875786499998)*f[6] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.156078347227999990)*f[8] + CONSTANT(-0.161197023870999990)*f[20] + CONSTANT(0.180223751574000000)*f[22];
|
|
tg = CONSTANT(0.090111875786499998)*g[6] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.156078347227999990)*g[8] + CONSTANT(-0.161197023870999990)*g[20] + CONSTANT(0.180223751574000000)*g[22];
|
|
y[7] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[7];
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.156078347227999990)*t;
|
|
y[20] += CONSTANT(-0.161197023870999990)*t;
|
|
y[22] += CONSTANT(0.180223751574000000)*t;
|
|
|
|
// [7,13]: 12,2,14,
|
|
tf = CONSTANT(0.059470803871800003)*f[12] + CONSTANT(0.233596680327000010)*f[2] + CONSTANT(0.115164716491000000)*f[14];
|
|
tg = CONSTANT(0.059470803871800003)*g[12] + CONSTANT(0.233596680327000010)*g[2] + CONSTANT(0.115164716491000000)*g[14];
|
|
y[7] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[13] + f[13] * g[7];
|
|
y[12] += CONSTANT(0.059470803871800003)*t;
|
|
y[2] += CONSTANT(0.233596680327000010)*t;
|
|
y[14] += CONSTANT(0.115164716491000000)*t;
|
|
|
|
// [7,17]: 16,4,18,
|
|
tf = CONSTANT(0.140463346187999990)*f[16] + CONSTANT(0.168583882835000000)*f[4] + CONSTANT(0.132725386549000010)*f[18];
|
|
tg = CONSTANT(0.140463346187999990)*g[16] + CONSTANT(0.168583882835000000)*g[4] + CONSTANT(0.132725386549000010)*g[18];
|
|
y[7] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[17] + f[17] * g[7];
|
|
y[16] += CONSTANT(0.140463346187999990)*t;
|
|
y[4] += CONSTANT(0.168583882835000000)*t;
|
|
y[18] += CONSTANT(0.132725386549000010)*t;
|
|
|
|
// [7,21]: 8,20,6,22,
|
|
tf = CONSTANT(-0.063718718433900007)*f[8] + CONSTANT(0.044869370061299998)*f[20] + CONSTANT(0.220728115440999990)*f[6] + CONSTANT(0.090297865408399999)*f[22];
|
|
tg = CONSTANT(-0.063718718433900007)*g[8] + CONSTANT(0.044869370061299998)*g[20] + CONSTANT(0.220728115440999990)*g[6] + CONSTANT(0.090297865408399999)*g[22];
|
|
y[7] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[21] + f[21] * g[7];
|
|
y[8] += CONSTANT(-0.063718718433900007)*t;
|
|
y[20] += CONSTANT(0.044869370061299998)*t;
|
|
y[6] += CONSTANT(0.220728115440999990)*t;
|
|
y[22] += CONSTANT(0.090297865408399999)*t;
|
|
|
|
// [7,23]: 8,22,24,
|
|
tf = CONSTANT(0.168583882832999990)*f[8] + CONSTANT(0.132725386548000010)*f[22] + CONSTANT(0.140463346189000000)*f[24];
|
|
tg = CONSTANT(0.168583882832999990)*g[8] + CONSTANT(0.132725386548000010)*g[22] + CONSTANT(0.140463346189000000)*g[24];
|
|
y[7] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[23] + f[23] * g[7];
|
|
y[8] += CONSTANT(0.168583882832999990)*t;
|
|
y[22] += CONSTANT(0.132725386548000010)*t;
|
|
y[24] += CONSTANT(0.140463346189000000)*t;
|
|
|
|
// [8,8]: 0,6,20,24,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6] + CONSTANT(0.040299255967500003)*f[20] + CONSTANT(0.238413613505999990)*f[24];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6] + CONSTANT(0.040299255967500003)*g[20] + CONSTANT(0.238413613505999990)*g[24];
|
|
y[8] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[8];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
y[20] += CONSTANT(0.040299255967500003)*t;
|
|
y[24] += CONSTANT(0.238413613505999990)*t;
|
|
|
|
// [8,22]: 6,20,24,
|
|
tf = CONSTANT(0.156078347226000000)*f[6] + CONSTANT(-0.190364615029000010)*f[20] + CONSTANT(-0.075080816691500005)*f[24];
|
|
tg = CONSTANT(0.156078347226000000)*g[6] + CONSTANT(-0.190364615029000010)*g[20] + CONSTANT(-0.075080816691500005)*g[24];
|
|
y[8] += tf*g[22] + tg*f[22];
|
|
y[22] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[22] + f[22] * g[8];
|
|
y[6] += CONSTANT(0.156078347226000000)*t;
|
|
y[20] += CONSTANT(-0.190364615029000010)*t;
|
|
y[24] += CONSTANT(-0.075080816691500005)*t;
|
|
|
|
// [9,9]: 6,0,20,
|
|
tf = CONSTANT(-0.210261043508000010)*f[6] + CONSTANT(0.282094791766999970)*f[0] + CONSTANT(0.076934943209800002)*f[20];
|
|
tg = CONSTANT(-0.210261043508000010)*g[6] + CONSTANT(0.282094791766999970)*g[0] + CONSTANT(0.076934943209800002)*g[20];
|
|
y[9] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[9];
|
|
y[6] += CONSTANT(-0.210261043508000010)*t;
|
|
y[0] += CONSTANT(0.282094791766999970)*t;
|
|
y[20] += CONSTANT(0.076934943209800002)*t;
|
|
|
|
// [9,10]: 7,21,
|
|
tf = CONSTANT(0.148677009678999990)*f[7] + CONSTANT(-0.099322584599600000)*f[21];
|
|
tg = CONSTANT(0.148677009678999990)*g[7] + CONSTANT(-0.099322584599600000)*g[21];
|
|
y[9] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[10] + f[10] * g[9];
|
|
y[7] += CONSTANT(0.148677009678999990)*t;
|
|
y[21] += CONSTANT(-0.099322584599600000)*t;
|
|
|
|
// [9,11]: 8,22,24,
|
|
tf = CONSTANT(-0.094031597259499999)*f[8] + CONSTANT(0.133255230518000010)*f[22] + CONSTANT(0.117520066950999990)*f[24];
|
|
tg = CONSTANT(-0.094031597259499999)*g[8] + CONSTANT(0.133255230518000010)*g[22] + CONSTANT(0.117520066950999990)*g[24];
|
|
y[9] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[11] + f[11] * g[9];
|
|
y[8] += CONSTANT(-0.094031597259499999)*t;
|
|
y[22] += CONSTANT(0.133255230518000010)*t;
|
|
y[24] += CONSTANT(0.117520066950999990)*t;
|
|
|
|
// [9,13]: 4,16,18,
|
|
tf = CONSTANT(-0.094031597258400004)*f[4] + CONSTANT(-0.117520066953000000)*f[16] + CONSTANT(0.133255230519000010)*f[18];
|
|
tg = CONSTANT(-0.094031597258400004)*g[4] + CONSTANT(-0.117520066953000000)*g[16] + CONSTANT(0.133255230519000010)*g[18];
|
|
y[9] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[13] + f[13] * g[9];
|
|
y[4] += CONSTANT(-0.094031597258400004)*t;
|
|
y[16] += CONSTANT(-0.117520066953000000)*t;
|
|
y[18] += CONSTANT(0.133255230519000010)*t;
|
|
|
|
// [9,14]: 5,19,
|
|
tf = CONSTANT(0.148677009677999990)*f[5] + CONSTANT(-0.099322584600699995)*f[19];
|
|
tg = CONSTANT(0.148677009677999990)*g[5] + CONSTANT(-0.099322584600699995)*g[19];
|
|
y[9] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[14] + f[14] * g[9];
|
|
y[5] += CONSTANT(0.148677009677999990)*t;
|
|
y[19] += CONSTANT(-0.099322584600699995)*t;
|
|
|
|
// [9,17]: 2,12,
|
|
tf = CONSTANT(0.162867503964999990)*f[2] + CONSTANT(-0.203550726872999990)*f[12];
|
|
tg = CONSTANT(0.162867503964999990)*g[2] + CONSTANT(-0.203550726872999990)*g[12];
|
|
y[9] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[17] + f[17] * g[9];
|
|
y[2] += CONSTANT(0.162867503964999990)*t;
|
|
y[12] += CONSTANT(-0.203550726872999990)*t;
|
|
|
|
// [10,10]: 0,20,24,
|
|
tf = CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.179514867494000000)*f[20] + CONSTANT(-0.151717754049000010)*f[24];
|
|
tg = CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.179514867494000000)*g[20] + CONSTANT(-0.151717754049000010)*g[24];
|
|
y[10] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[10];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.179514867494000000)*t;
|
|
y[24] += CONSTANT(-0.151717754049000010)*t;
|
|
|
|
// [10,11]: 7,21,23,
|
|
tf = CONSTANT(0.115164716490000000)*f[7] + CONSTANT(0.102579924281000000)*f[21] + CONSTANT(-0.067850242288900006)*f[23];
|
|
tg = CONSTANT(0.115164716490000000)*g[7] + CONSTANT(0.102579924281000000)*g[21] + CONSTANT(-0.067850242288900006)*g[23];
|
|
y[10] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[11] + f[11] * g[10];
|
|
y[7] += CONSTANT(0.115164716490000000)*t;
|
|
y[21] += CONSTANT(0.102579924281000000)*t;
|
|
y[23] += CONSTANT(-0.067850242288900006)*t;
|
|
|
|
// [10,12]: 4,18,
|
|
tf = CONSTANT(-0.188063194517999990)*f[4] + CONSTANT(-0.044418410173299998)*f[18];
|
|
tg = CONSTANT(-0.188063194517999990)*g[4] + CONSTANT(-0.044418410173299998)*g[18];
|
|
y[10] += tf*g[12] + tg*f[12];
|
|
y[12] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[12] + f[12] * g[10];
|
|
y[4] += CONSTANT(-0.188063194517999990)*t;
|
|
y[18] += CONSTANT(-0.044418410173299998)*t;
|
|
|
|
// [10,13]: 5,17,19,
|
|
tf = CONSTANT(0.115164716490000000)*f[5] + CONSTANT(0.067850242288900006)*f[17] + CONSTANT(0.102579924281000000)*f[19];
|
|
tg = CONSTANT(0.115164716490000000)*g[5] + CONSTANT(0.067850242288900006)*g[17] + CONSTANT(0.102579924281000000)*g[19];
|
|
y[10] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[13] + f[13] * g[10];
|
|
y[5] += CONSTANT(0.115164716490000000)*t;
|
|
y[17] += CONSTANT(0.067850242288900006)*t;
|
|
y[19] += CONSTANT(0.102579924281000000)*t;
|
|
|
|
// [10,14]: 16,
|
|
tf = CONSTANT(0.151717754044999990)*f[16];
|
|
tg = CONSTANT(0.151717754044999990)*g[16];
|
|
y[10] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[14] + f[14] * g[10];
|
|
y[16] += CONSTANT(0.151717754044999990)*t;
|
|
|
|
// [10,15]: 5,19,
|
|
tf = CONSTANT(-0.148677009678999990)*f[5] + CONSTANT(0.099322584599600000)*f[19];
|
|
tg = CONSTANT(-0.148677009678999990)*g[5] + CONSTANT(0.099322584599600000)*g[19];
|
|
y[10] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[15] + f[15] * g[10];
|
|
y[5] += CONSTANT(-0.148677009678999990)*t;
|
|
y[19] += CONSTANT(0.099322584599600000)*t;
|
|
|
|
// [11,11]: 0,6,8,20,22,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.126156626101000010)*f[6] + CONSTANT(-0.145673124078999990)*f[8] + CONSTANT(0.025644981070299999)*f[20] + CONSTANT(-0.114687841910000000)*f[22];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.126156626101000010)*g[6] + CONSTANT(-0.145673124078999990)*g[8] + CONSTANT(0.025644981070299999)*g[20] + CONSTANT(-0.114687841910000000)*g[22];
|
|
y[11] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[11];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.126156626101000010)*t;
|
|
y[8] += CONSTANT(-0.145673124078999990)*t;
|
|
y[20] += CONSTANT(0.025644981070299999)*t;
|
|
y[22] += CONSTANT(-0.114687841910000000)*t;
|
|
|
|
// [11,14]: 17,
|
|
tf = CONSTANT(0.067850242288500007)*f[17];
|
|
tg = CONSTANT(0.067850242288500007)*g[17];
|
|
y[11] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[14] + f[14] * g[11];
|
|
y[17] += CONSTANT(0.067850242288500007)*t;
|
|
|
|
// [11,15]: 16,
|
|
tf = CONSTANT(-0.117520066953000000)*f[16];
|
|
tg = CONSTANT(-0.117520066953000000)*g[16];
|
|
y[11] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[15] + f[15] * g[11];
|
|
y[16] += CONSTANT(-0.117520066953000000)*t;
|
|
|
|
// [11,18]: 3,13,15,
|
|
tf = CONSTANT(0.168583882834000000)*f[3] + CONSTANT(0.114687841909000000)*f[13] + CONSTANT(-0.133255230519000010)*f[15];
|
|
tg = CONSTANT(0.168583882834000000)*g[3] + CONSTANT(0.114687841909000000)*g[13] + CONSTANT(-0.133255230519000010)*g[15];
|
|
y[11] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[18] + f[18] * g[11];
|
|
y[3] += CONSTANT(0.168583882834000000)*t;
|
|
y[13] += CONSTANT(0.114687841909000000)*t;
|
|
y[15] += CONSTANT(-0.133255230519000010)*t;
|
|
|
|
// [11,19]: 2,14,12,
|
|
tf = CONSTANT(0.238413613504000000)*f[2] + CONSTANT(-0.102579924282000000)*f[14] + CONSTANT(0.099322584599300004)*f[12];
|
|
tg = CONSTANT(0.238413613504000000)*g[2] + CONSTANT(-0.102579924282000000)*g[14] + CONSTANT(0.099322584599300004)*g[12];
|
|
y[11] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[19] + f[19] * g[11];
|
|
y[2] += CONSTANT(0.238413613504000000)*t;
|
|
y[14] += CONSTANT(-0.102579924282000000)*t;
|
|
y[12] += CONSTANT(0.099322584599300004)*t;
|
|
|
|
// [12,12]: 0,6,20,
|
|
tf = CONSTANT(0.282094799871999980)*f[0] + CONSTANT(0.168208852954000010)*f[6] + CONSTANT(0.153869910786000010)*f[20];
|
|
tg = CONSTANT(0.282094799871999980)*g[0] + CONSTANT(0.168208852954000010)*g[6] + CONSTANT(0.153869910786000010)*g[20];
|
|
y[12] += tf*g[12] + tg*f[12];
|
|
t = f[12] * g[12];
|
|
y[0] += CONSTANT(0.282094799871999980)*t;
|
|
y[6] += CONSTANT(0.168208852954000010)*t;
|
|
y[20] += CONSTANT(0.153869910786000010)*t;
|
|
|
|
// [12,14]: 8,22,
|
|
tf = CONSTANT(-0.188063194517999990)*f[8] + CONSTANT(-0.044418410173299998)*f[22];
|
|
tg = CONSTANT(-0.188063194517999990)*g[8] + CONSTANT(-0.044418410173299998)*g[22];
|
|
y[12] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[12] + tg*f[12];
|
|
t = f[12] * g[14] + f[14] * g[12];
|
|
y[8] += CONSTANT(-0.188063194517999990)*t;
|
|
y[22] += CONSTANT(-0.044418410173299998)*t;
|
|
|
|
// [13,13]: 0,8,6,20,22,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.145673124078999990)*f[8] + CONSTANT(0.126156626101000010)*f[6] + CONSTANT(0.025644981070299999)*f[20] + CONSTANT(0.114687841910000000)*f[22];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.145673124078999990)*g[8] + CONSTANT(0.126156626101000010)*g[6] + CONSTANT(0.025644981070299999)*g[20] + CONSTANT(0.114687841910000000)*g[22];
|
|
y[13] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[13];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.145673124078999990)*t;
|
|
y[6] += CONSTANT(0.126156626101000010)*t;
|
|
y[20] += CONSTANT(0.025644981070299999)*t;
|
|
y[22] += CONSTANT(0.114687841910000000)*t;
|
|
|
|
// [13,14]: 23,
|
|
tf = CONSTANT(0.067850242288500007)*f[23];
|
|
tg = CONSTANT(0.067850242288500007)*g[23];
|
|
y[13] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[14] + f[14] * g[13];
|
|
y[23] += CONSTANT(0.067850242288500007)*t;
|
|
|
|
// [13,15]: 8,22,24,
|
|
tf = CONSTANT(-0.094031597259499999)*f[8] + CONSTANT(0.133255230518000010)*f[22] + CONSTANT(-0.117520066950999990)*f[24];
|
|
tg = CONSTANT(-0.094031597259499999)*g[8] + CONSTANT(0.133255230518000010)*g[22] + CONSTANT(-0.117520066950999990)*g[24];
|
|
y[13] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[15] + f[15] * g[13];
|
|
y[8] += CONSTANT(-0.094031597259499999)*t;
|
|
y[22] += CONSTANT(0.133255230518000010)*t;
|
|
y[24] += CONSTANT(-0.117520066950999990)*t;
|
|
|
|
// [13,21]: 2,12,14,
|
|
tf = CONSTANT(0.238413613504000000)*f[2] + CONSTANT(0.099322584599300004)*f[12] + CONSTANT(0.102579924282000000)*f[14];
|
|
tg = CONSTANT(0.238413613504000000)*g[2] + CONSTANT(0.099322584599300004)*g[12] + CONSTANT(0.102579924282000000)*g[14];
|
|
y[13] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[21] + f[21] * g[13];
|
|
y[2] += CONSTANT(0.238413613504000000)*t;
|
|
y[12] += CONSTANT(0.099322584599300004)*t;
|
|
y[14] += CONSTANT(0.102579924282000000)*t;
|
|
|
|
// [14,14]: 0,20,24,
|
|
tf = CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.179514867494000000)*f[20] + CONSTANT(0.151717754049000010)*f[24];
|
|
tg = CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.179514867494000000)*g[20] + CONSTANT(0.151717754049000010)*g[24];
|
|
y[14] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[14];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.179514867494000000)*t;
|
|
y[24] += CONSTANT(0.151717754049000010)*t;
|
|
|
|
// [14,15]: 7,21,
|
|
tf = CONSTANT(0.148677009677999990)*f[7] + CONSTANT(-0.099322584600699995)*f[21];
|
|
tg = CONSTANT(0.148677009677999990)*g[7] + CONSTANT(-0.099322584600699995)*g[21];
|
|
y[14] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[15] + f[15] * g[14];
|
|
y[7] += CONSTANT(0.148677009677999990)*t;
|
|
y[21] += CONSTANT(-0.099322584600699995)*t;
|
|
|
|
// [15,15]: 0,6,20,
|
|
tf = CONSTANT(0.282094791766999970)*f[0] + CONSTANT(-0.210261043508000010)*f[6] + CONSTANT(0.076934943209800002)*f[20];
|
|
tg = CONSTANT(0.282094791766999970)*g[0] + CONSTANT(-0.210261043508000010)*g[6] + CONSTANT(0.076934943209800002)*g[20];
|
|
y[15] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[15];
|
|
y[0] += CONSTANT(0.282094791766999970)*t;
|
|
y[6] += CONSTANT(-0.210261043508000010)*t;
|
|
y[20] += CONSTANT(0.076934943209800002)*t;
|
|
|
|
// [15,23]: 12,2,
|
|
tf = CONSTANT(-0.203550726872999990)*f[12] + CONSTANT(0.162867503964999990)*f[2];
|
|
tg = CONSTANT(-0.203550726872999990)*g[12] + CONSTANT(0.162867503964999990)*g[2];
|
|
y[15] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[23] + f[23] * g[15];
|
|
y[12] += CONSTANT(-0.203550726872999990)*t;
|
|
y[2] += CONSTANT(0.162867503964999990)*t;
|
|
|
|
// [16,16]: 0,6,20,
|
|
tf = CONSTANT(0.282094791763999990)*f[0] + CONSTANT(-0.229375683829000000)*f[6] + CONSTANT(0.106525305981000000)*f[20];
|
|
tg = CONSTANT(0.282094791763999990)*g[0] + CONSTANT(-0.229375683829000000)*g[6] + CONSTANT(0.106525305981000000)*g[20];
|
|
y[16] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[16];
|
|
y[0] += CONSTANT(0.282094791763999990)*t;
|
|
y[6] += CONSTANT(-0.229375683829000000)*t;
|
|
y[20] += CONSTANT(0.106525305981000000)*t;
|
|
|
|
// [16,18]: 8,22,
|
|
tf = CONSTANT(-0.075080816693699995)*f[8] + CONSTANT(0.135045473380000000)*f[22];
|
|
tg = CONSTANT(-0.075080816693699995)*g[8] + CONSTANT(0.135045473380000000)*g[22];
|
|
y[16] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[18] + f[18] * g[16];
|
|
y[8] += CONSTANT(-0.075080816693699995)*t;
|
|
y[22] += CONSTANT(0.135045473380000000)*t;
|
|
|
|
// [16,23]: 19,5,
|
|
tf = CONSTANT(-0.119098912754999990)*f[19] + CONSTANT(0.140463346187999990)*f[5];
|
|
tg = CONSTANT(-0.119098912754999990)*g[19] + CONSTANT(0.140463346187999990)*g[5];
|
|
y[16] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[23] + f[23] * g[16];
|
|
y[19] += CONSTANT(-0.119098912754999990)*t;
|
|
y[5] += CONSTANT(0.140463346187999990)*t;
|
|
|
|
// [17,17]: 0,6,20,
|
|
tf = CONSTANT(0.282094791768999990)*f[0] + CONSTANT(-0.057343920955899998)*f[6] + CONSTANT(-0.159787958979000000)*f[20];
|
|
tg = CONSTANT(0.282094791768999990)*g[0] + CONSTANT(-0.057343920955899998)*g[6] + CONSTANT(-0.159787958979000000)*g[20];
|
|
y[17] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[17];
|
|
y[0] += CONSTANT(0.282094791768999990)*t;
|
|
y[6] += CONSTANT(-0.057343920955899998)*t;
|
|
y[20] += CONSTANT(-0.159787958979000000)*t;
|
|
|
|
// [17,19]: 8,22,24,
|
|
tf = CONSTANT(-0.112621225039000000)*f[8] + CONSTANT(0.045015157794100001)*f[22] + CONSTANT(0.119098912753000000)*f[24];
|
|
tg = CONSTANT(-0.112621225039000000)*g[8] + CONSTANT(0.045015157794100001)*g[22] + CONSTANT(0.119098912753000000)*g[24];
|
|
y[17] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[19] + f[19] * g[17];
|
|
y[8] += CONSTANT(-0.112621225039000000)*t;
|
|
y[22] += CONSTANT(0.045015157794100001)*t;
|
|
y[24] += CONSTANT(0.119098912753000000)*t;
|
|
|
|
// [17,21]: 16,4,18,
|
|
tf = CONSTANT(-0.119098912754999990)*f[16] + CONSTANT(-0.112621225039000000)*f[4] + CONSTANT(0.045015157794399997)*f[18];
|
|
tg = CONSTANT(-0.119098912754999990)*g[16] + CONSTANT(-0.112621225039000000)*g[4] + CONSTANT(0.045015157794399997)*g[18];
|
|
y[17] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[21] + f[21] * g[17];
|
|
y[16] += CONSTANT(-0.119098912754999990)*t;
|
|
y[4] += CONSTANT(-0.112621225039000000)*t;
|
|
y[18] += CONSTANT(0.045015157794399997)*t;
|
|
|
|
// [18,18]: 6,0,20,24,
|
|
tf = CONSTANT(0.065535909662600006)*f[6] + CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.083698454702400005)*f[20] + CONSTANT(-0.135045473384000000)*f[24];
|
|
tg = CONSTANT(0.065535909662600006)*g[6] + CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.083698454702400005)*g[20] + CONSTANT(-0.135045473384000000)*g[24];
|
|
y[18] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[18];
|
|
y[6] += CONSTANT(0.065535909662600006)*t;
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.083698454702400005)*t;
|
|
y[24] += CONSTANT(-0.135045473384000000)*t;
|
|
|
|
// [18,19]: 7,21,23,
|
|
tf = CONSTANT(0.090297865407399994)*f[7] + CONSTANT(0.102084782359000000)*f[21] + CONSTANT(-0.045015157794399997)*f[23];
|
|
tg = CONSTANT(0.090297865407399994)*g[7] + CONSTANT(0.102084782359000000)*g[21] + CONSTANT(-0.045015157794399997)*g[23];
|
|
y[18] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[19] + f[19] * g[18];
|
|
y[7] += CONSTANT(0.090297865407399994)*t;
|
|
y[21] += CONSTANT(0.102084782359000000)*t;
|
|
y[23] += CONSTANT(-0.045015157794399997)*t;
|
|
|
|
// [19,19]: 6,8,0,20,22,
|
|
tf = CONSTANT(0.139263808033999990)*f[6] + CONSTANT(-0.141889406570999990)*f[8] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.068480553847200004)*f[20] + CONSTANT(-0.102084782360000000)*f[22];
|
|
tg = CONSTANT(0.139263808033999990)*g[6] + CONSTANT(-0.141889406570999990)*g[8] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.068480553847200004)*g[20] + CONSTANT(-0.102084782360000000)*g[22];
|
|
y[19] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[19];
|
|
y[6] += CONSTANT(0.139263808033999990)*t;
|
|
y[8] += CONSTANT(-0.141889406570999990)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[20] += CONSTANT(0.068480553847200004)*t;
|
|
y[22] += CONSTANT(-0.102084782360000000)*t;
|
|
|
|
// [20,20]: 6,0,20,
|
|
tf = CONSTANT(0.163839797503000010)*f[6] + CONSTANT(0.282094802232000010)*f[0];
|
|
tg = CONSTANT(0.163839797503000010)*g[6] + CONSTANT(0.282094802232000010)*g[0];
|
|
y[20] += tf*g[20] + tg*f[20];
|
|
t = f[20] * g[20];
|
|
y[6] += CONSTANT(0.163839797503000010)*t;
|
|
y[0] += CONSTANT(0.282094802232000010)*t;
|
|
y[20] += CONSTANT(0.136961139005999990)*t;
|
|
|
|
// [21,21]: 6,20,0,8,22,
|
|
tf = CONSTANT(0.139263808033999990)*f[6] + CONSTANT(0.068480553847200004)*f[20] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.141889406570999990)*f[8] + CONSTANT(0.102084782360000000)*f[22];
|
|
tg = CONSTANT(0.139263808033999990)*g[6] + CONSTANT(0.068480553847200004)*g[20] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.141889406570999990)*g[8] + CONSTANT(0.102084782360000000)*g[22];
|
|
y[21] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[21];
|
|
y[6] += CONSTANT(0.139263808033999990)*t;
|
|
y[20] += CONSTANT(0.068480553847200004)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.141889406570999990)*t;
|
|
y[22] += CONSTANT(0.102084782360000000)*t;
|
|
|
|
// [21,23]: 8,22,24,
|
|
tf = CONSTANT(-0.112621225039000000)*f[8] + CONSTANT(0.045015157794100001)*f[22] + CONSTANT(-0.119098912753000000)*f[24];
|
|
tg = CONSTANT(-0.112621225039000000)*g[8] + CONSTANT(0.045015157794100001)*g[22] + CONSTANT(-0.119098912753000000)*g[24];
|
|
y[21] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[23] + f[23] * g[21];
|
|
y[8] += CONSTANT(-0.112621225039000000)*t;
|
|
y[22] += CONSTANT(0.045015157794100001)*t;
|
|
y[24] += CONSTANT(-0.119098912753000000)*t;
|
|
|
|
// [22,22]: 6,20,0,24,
|
|
tf = CONSTANT(0.065535909662600006)*f[6] + CONSTANT(-0.083698454702400005)*f[20] + CONSTANT(0.282094791771999980)*f[0] + CONSTANT(0.135045473384000000)*f[24];
|
|
tg = CONSTANT(0.065535909662600006)*g[6] + CONSTANT(-0.083698454702400005)*g[20] + CONSTANT(0.282094791771999980)*g[0] + CONSTANT(0.135045473384000000)*g[24];
|
|
y[22] += tf*g[22] + tg*f[22];
|
|
t = f[22] * g[22];
|
|
y[6] += CONSTANT(0.065535909662600006)*t;
|
|
y[20] += CONSTANT(-0.083698454702400005)*t;
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[24] += CONSTANT(0.135045473384000000)*t;
|
|
|
|
// [23,23]: 6,20,0,
|
|
tf = CONSTANT(-0.057343920955899998)*f[6] + CONSTANT(-0.159787958979000000)*f[20] + CONSTANT(0.282094791768999990)*f[0];
|
|
tg = CONSTANT(-0.057343920955899998)*g[6] + CONSTANT(-0.159787958979000000)*g[20] + CONSTANT(0.282094791768999990)*g[0];
|
|
y[23] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[23];
|
|
y[6] += CONSTANT(-0.057343920955899998)*t;
|
|
y[20] += CONSTANT(-0.159787958979000000)*t;
|
|
y[0] += CONSTANT(0.282094791768999990)*t;
|
|
|
|
// [24,24]: 6,0,20,
|
|
tf = CONSTANT(-0.229375683829000000)*f[6] + CONSTANT(0.282094791763999990)*f[0] + CONSTANT(0.106525305981000000)*f[20];
|
|
tg = CONSTANT(-0.229375683829000000)*g[6] + CONSTANT(0.282094791763999990)*g[0] + CONSTANT(0.106525305981000000)*g[20];
|
|
y[24] += tf*g[24] + tg*f[24];
|
|
t = f[24] * g[24];
|
|
y[6] += CONSTANT(-0.229375683829000000)*t;
|
|
y[0] += CONSTANT(0.282094791763999990)*t;
|
|
y[20] += CONSTANT(0.106525305981000000)*t;
|
|
|
|
// multiply count=1135
|
|
|
|
return y;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb232909.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
float* DirectX::XMSHMultiply6(
|
|
float *y,
|
|
const float *f,
|
|
const float *g)
|
|
{
|
|
if (!y || !f || !g)
|
|
return nullptr;
|
|
|
|
REAL tf, tg, t;
|
|
// [0,0]: 0,
|
|
y[0] = CONSTANT(0.282094792935999980)*f[0] * g[0];
|
|
|
|
// [1,1]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(-0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(-0.218509686119999990)*g[8];
|
|
y[1] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[1];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] = CONSTANT(-0.126156626101000010)*t;
|
|
y[8] = CONSTANT(-0.218509686119999990)*t;
|
|
|
|
// [1,4]: 3,13,15,
|
|
tf = CONSTANT(0.218509686114999990)*f[3] + CONSTANT(-0.058399170082300000)*f[13] + CONSTANT(-0.226179013157999990)*f[15];
|
|
tg = CONSTANT(0.218509686114999990)*g[3] + CONSTANT(-0.058399170082300000)*g[13] + CONSTANT(-0.226179013157999990)*g[15];
|
|
y[1] += tf*g[4] + tg*f[4];
|
|
y[4] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[4] + f[4] * g[1];
|
|
y[3] = CONSTANT(0.218509686114999990)*t;
|
|
y[13] = CONSTANT(-0.058399170082300000)*t;
|
|
y[15] = CONSTANT(-0.226179013157999990)*t;
|
|
|
|
// [1,5]: 2,12,
|
|
tf = CONSTANT(0.218509686118000010)*f[2] + CONSTANT(-0.143048168103000000)*f[12];
|
|
tg = CONSTANT(0.218509686118000010)*g[2] + CONSTANT(-0.143048168103000000)*g[12];
|
|
y[1] += tf*g[5] + tg*f[5];
|
|
y[5] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[5] + f[5] * g[1];
|
|
y[2] = CONSTANT(0.218509686118000010)*t;
|
|
y[12] = CONSTANT(-0.143048168103000000)*t;
|
|
|
|
// [1,11]: 6,8,20,22,
|
|
tf = CONSTANT(0.202300659402999990)*f[6] + CONSTANT(0.058399170081799998)*f[8] + CONSTANT(-0.150786008773000000)*f[20] + CONSTANT(-0.168583882836999990)*f[22];
|
|
tg = CONSTANT(0.202300659402999990)*g[6] + CONSTANT(0.058399170081799998)*g[8] + CONSTANT(-0.150786008773000000)*g[20] + CONSTANT(-0.168583882836999990)*g[22];
|
|
y[1] += tf*g[11] + tg*f[11];
|
|
y[11] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[11] + f[11] * g[1];
|
|
y[6] += CONSTANT(0.202300659402999990)*t;
|
|
y[8] += CONSTANT(0.058399170081799998)*t;
|
|
y[20] = CONSTANT(-0.150786008773000000)*t;
|
|
y[22] = CONSTANT(-0.168583882836999990)*t;
|
|
|
|
// [1,16]: 15,33,35,
|
|
tf = CONSTANT(0.230329432973999990)*f[15] + CONSTANT(-0.034723468517399998)*f[33] + CONSTANT(-0.232932108051999990)*f[35];
|
|
tg = CONSTANT(0.230329432973999990)*g[15] + CONSTANT(-0.034723468517399998)*g[33] + CONSTANT(-0.232932108051999990)*g[35];
|
|
y[1] += tf*g[16] + tg*f[16];
|
|
y[16] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[16] + f[16] * g[1];
|
|
y[15] += CONSTANT(0.230329432973999990)*t;
|
|
y[33] = CONSTANT(-0.034723468517399998)*t;
|
|
y[35] = CONSTANT(-0.232932108051999990)*t;
|
|
|
|
// [1,18]: 15,13,31,33,
|
|
tf = CONSTANT(0.043528171377799997)*f[15] + CONSTANT(0.168583882834000000)*f[13] + CONSTANT(-0.085054779966799998)*f[31] + CONSTANT(-0.183739324705999990)*f[33];
|
|
tg = CONSTANT(0.043528171377799997)*g[15] + CONSTANT(0.168583882834000000)*g[13] + CONSTANT(-0.085054779966799998)*g[31] + CONSTANT(-0.183739324705999990)*g[33];
|
|
y[1] += tf*g[18] + tg*f[18];
|
|
y[18] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[18] + f[18] * g[1];
|
|
y[15] += CONSTANT(0.043528171377799997)*t;
|
|
y[13] += CONSTANT(0.168583882834000000)*t;
|
|
y[31] = CONSTANT(-0.085054779966799998)*t;
|
|
y[33] += CONSTANT(-0.183739324705999990)*t;
|
|
|
|
// [1,19]: 14,12,30,32,
|
|
tf = CONSTANT(0.075393004386399995)*f[14] + CONSTANT(0.194663900273000010)*f[12] + CONSTANT(-0.155288072037000010)*f[30] + CONSTANT(-0.159122922869999990)*f[32];
|
|
tg = CONSTANT(0.075393004386399995)*g[14] + CONSTANT(0.194663900273000010)*g[12] + CONSTANT(-0.155288072037000010)*g[30] + CONSTANT(-0.159122922869999990)*g[32];
|
|
y[1] += tf*g[19] + tg*f[19];
|
|
y[19] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[19] + f[19] * g[1];
|
|
y[14] = CONSTANT(0.075393004386399995)*t;
|
|
y[12] += CONSTANT(0.194663900273000010)*t;
|
|
y[30] = CONSTANT(-0.155288072037000010)*t;
|
|
y[32] = CONSTANT(-0.159122922869999990)*t;
|
|
|
|
// [1,24]: 9,25,27,
|
|
tf = CONSTANT(-0.230329432978999990)*f[9] + CONSTANT(0.232932108049000000)*f[25] + CONSTANT(0.034723468517100002)*f[27];
|
|
tg = CONSTANT(-0.230329432978999990)*g[9] + CONSTANT(0.232932108049000000)*g[25] + CONSTANT(0.034723468517100002)*g[27];
|
|
y[1] += tf*g[24] + tg*f[24];
|
|
y[24] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[24] + f[24] * g[1];
|
|
y[9] = CONSTANT(-0.230329432978999990)*t;
|
|
y[25] = CONSTANT(0.232932108049000000)*t;
|
|
y[27] = CONSTANT(0.034723468517100002)*t;
|
|
|
|
// [1,29]: 22,20,
|
|
tf = CONSTANT(0.085054779965999999)*f[22] + CONSTANT(0.190188269815000010)*f[20];
|
|
tg = CONSTANT(0.085054779965999999)*g[22] + CONSTANT(0.190188269815000010)*g[20];
|
|
y[1] += tf*g[29] + tg*f[29];
|
|
y[29] = tf*g[1] + tg*f[1];
|
|
t = f[1] * g[29] + f[29] * g[1];
|
|
y[22] += CONSTANT(0.085054779965999999)*t;
|
|
y[20] += CONSTANT(0.190188269815000010)*t;
|
|
|
|
// [2,2]: 0,6,
|
|
tf = CONSTANT(0.282094795249000000)*f[0] + CONSTANT(0.252313259986999990)*f[6];
|
|
tg = CONSTANT(0.282094795249000000)*g[0] + CONSTANT(0.252313259986999990)*g[6];
|
|
y[2] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[2];
|
|
y[0] += CONSTANT(0.282094795249000000)*t;
|
|
y[6] += CONSTANT(0.252313259986999990)*t;
|
|
|
|
// [2,12]: 6,20,
|
|
tf = CONSTANT(0.247766706973999990)*f[6] + CONSTANT(0.246232537174000010)*f[20];
|
|
tg = CONSTANT(0.247766706973999990)*g[6] + CONSTANT(0.246232537174000010)*g[20];
|
|
y[2] += tf*g[12] + tg*f[12];
|
|
y[12] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[12] + f[12] * g[2];
|
|
y[6] += CONSTANT(0.247766706973999990)*t;
|
|
y[20] += CONSTANT(0.246232537174000010)*t;
|
|
|
|
// [2,20]: 30,
|
|
tf = CONSTANT(0.245532020560000010)*f[30];
|
|
tg = CONSTANT(0.245532020560000010)*g[30];
|
|
y[2] += tf*g[20] + tg*f[20];
|
|
y[20] += tf*g[2] + tg*f[2];
|
|
t = f[2] * g[20] + f[20] * g[2];
|
|
y[30] += CONSTANT(0.245532020560000010)*t;
|
|
|
|
// [3,3]: 0,6,8,
|
|
tf = CONSTANT(0.282094791773000010)*f[0] + CONSTANT(-0.126156626101000010)*f[6] + CONSTANT(0.218509686119999990)*f[8];
|
|
tg = CONSTANT(0.282094791773000010)*g[0] + CONSTANT(-0.126156626101000010)*g[6] + CONSTANT(0.218509686119999990)*g[8];
|
|
y[3] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[3];
|
|
y[0] += CONSTANT(0.282094791773000010)*t;
|
|
y[6] += CONSTANT(-0.126156626101000010)*t;
|
|
y[8] += CONSTANT(0.218509686119999990)*t;
|
|
|
|
// [3,7]: 2,12,
|
|
tf = CONSTANT(0.218509686118000010)*f[2] + CONSTANT(-0.143048168103000000)*f[12];
|
|
tg = CONSTANT(0.218509686118000010)*g[2] + CONSTANT(-0.143048168103000000)*g[12];
|
|
y[3] += tf*g[7] + tg*f[7];
|
|
y[7] = tf*g[3] + tg*f[3];
|
|
t = f[3] * g[7] + f[7] * g[3];
|
|
y[2] += CONSTANT(0.218509686118000010)*t;
|
|
y[12] += CONSTANT(-0.143048168103000000)*t;
|
|
|
|
// [3,13]: 8,6,20,22,
|
|
tf = CONSTANT(-0.058399170081799998)*f[8] + CONSTANT(0.202300659402999990)*f[6] + CONSTANT(-0.150786008773000000)*f[20] + CONSTANT(0.168583882836999990)*f[22];
|
|
tg = CONSTANT(-0.058399170081799998)*g[8] + CONSTANT(0.202300659402999990)*g[6] + CONSTANT(-0.150786008773000000)*g[20] + CONSTANT(0.168583882836999990)*g[22];
|
|
y[3] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[13] + f[13] * g[3];
|
|
y[8] += CONSTANT(-0.058399170081799998)*t;
|
|
y[6] += CONSTANT(0.202300659402999990)*t;
|
|
y[20] += CONSTANT(-0.150786008773000000)*t;
|
|
y[22] += CONSTANT(0.168583882836999990)*t;
|
|
|
|
// [3,16]: 9,25,27,
|
|
tf = CONSTANT(0.230329432973999990)*f[9] + CONSTANT(0.232932108051999990)*f[25] + CONSTANT(-0.034723468517399998)*f[27];
|
|
tg = CONSTANT(0.230329432973999990)*g[9] + CONSTANT(0.232932108051999990)*g[25] + CONSTANT(-0.034723468517399998)*g[27];
|
|
y[3] += tf*g[16] + tg*f[16];
|
|
y[16] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[16] + f[16] * g[3];
|
|
y[9] += CONSTANT(0.230329432973999990)*t;
|
|
y[25] += CONSTANT(0.232932108051999990)*t;
|
|
y[27] += CONSTANT(-0.034723468517399998)*t;
|
|
|
|
// [3,21]: 12,14,30,32,
|
|
tf = CONSTANT(0.194663900273000010)*f[12] + CONSTANT(-0.075393004386399995)*f[14] + CONSTANT(-0.155288072037000010)*f[30] + CONSTANT(0.159122922869999990)*f[32];
|
|
tg = CONSTANT(0.194663900273000010)*g[12] + CONSTANT(-0.075393004386399995)*g[14] + CONSTANT(-0.155288072037000010)*g[30] + CONSTANT(0.159122922869999990)*g[32];
|
|
y[3] += tf*g[21] + tg*f[21];
|
|
y[21] = tf*g[3] + tg*f[3];
|
|
t = f[3] * g[21] + f[21] * g[3];
|
|
y[12] += CONSTANT(0.194663900273000010)*t;
|
|
y[14] += CONSTANT(-0.075393004386399995)*t;
|
|
y[30] += CONSTANT(-0.155288072037000010)*t;
|
|
y[32] += CONSTANT(0.159122922869999990)*t;
|
|
|
|
// [3,24]: 15,33,35,
|
|
tf = CONSTANT(0.230329432978999990)*f[15] + CONSTANT(-0.034723468517100002)*f[33] + CONSTANT(0.232932108049000000)*f[35];
|
|
tg = CONSTANT(0.230329432978999990)*g[15] + CONSTANT(-0.034723468517100002)*g[33] + CONSTANT(0.232932108049000000)*g[35];
|
|
y[3] += tf*g[24] + tg*f[24];
|
|
y[24] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[24] + f[24] * g[3];
|
|
y[15] += CONSTANT(0.230329432978999990)*t;
|
|
y[33] += CONSTANT(-0.034723468517100002)*t;
|
|
y[35] += CONSTANT(0.232932108049000000)*t;
|
|
|
|
// [3,31]: 20,22,
|
|
tf = CONSTANT(0.190188269815000010)*f[20] + CONSTANT(-0.085054779965999999)*f[22];
|
|
tg = CONSTANT(0.190188269815000010)*g[20] + CONSTANT(-0.085054779965999999)*g[22];
|
|
y[3] += tf*g[31] + tg*f[31];
|
|
y[31] += tf*g[3] + tg*f[3];
|
|
t = f[3] * g[31] + f[31] * g[3];
|
|
y[20] += CONSTANT(0.190188269815000010)*t;
|
|
y[22] += CONSTANT(-0.085054779965999999)*t;
|
|
|
|
// [4,4]: 0,6,20,24,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6] + CONSTANT(0.040299255967500003)*f[20] + CONSTANT(-0.238413613505999990)*f[24];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6] + CONSTANT(0.040299255967500003)*g[20] + CONSTANT(-0.238413613505999990)*g[24];
|
|
y[4] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[4];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
y[20] += CONSTANT(0.040299255967500003)*t;
|
|
y[24] += CONSTANT(-0.238413613505999990)*t;
|
|
|
|
// [4,5]: 7,21,23,
|
|
tf = CONSTANT(0.156078347226000000)*f[7] + CONSTANT(-0.063718718434399996)*f[21] + CONSTANT(-0.168583882835000000)*f[23];
|
|
tg = CONSTANT(0.156078347226000000)*g[7] + CONSTANT(-0.063718718434399996)*g[21] + CONSTANT(-0.168583882835000000)*g[23];
|
|
y[4] += tf*g[5] + tg*f[5];
|
|
y[5] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[5] + f[5] * g[4];
|
|
y[7] += CONSTANT(0.156078347226000000)*t;
|
|
y[21] += CONSTANT(-0.063718718434399996)*t;
|
|
y[23] = CONSTANT(-0.168583882835000000)*t;
|
|
|
|
// [4,9]: 3,13,31,35,
|
|
tf = CONSTANT(0.226179013157999990)*f[3] + CONSTANT(-0.094031597258400004)*f[13] + CONSTANT(0.016943317729299998)*f[31] + CONSTANT(-0.245532000542000000)*f[35];
|
|
tg = CONSTANT(0.226179013157999990)*g[3] + CONSTANT(-0.094031597258400004)*g[13] + CONSTANT(0.016943317729299998)*g[31] + CONSTANT(-0.245532000542000000)*g[35];
|
|
y[4] += tf*g[9] + tg*f[9];
|
|
y[9] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[9] + f[9] * g[4];
|
|
y[3] += CONSTANT(0.226179013157999990)*t;
|
|
y[13] += CONSTANT(-0.094031597258400004)*t;
|
|
y[31] += CONSTANT(0.016943317729299998)*t;
|
|
y[35] += CONSTANT(-0.245532000542000000)*t;
|
|
|
|
// [4,10]: 2,12,30,34,
|
|
tf = CONSTANT(0.184674390919999990)*f[2] + CONSTANT(-0.188063194517999990)*f[12] + CONSTANT(0.053579475144400000)*f[30] + CONSTANT(-0.190188269816000010)*f[34];
|
|
tg = CONSTANT(0.184674390919999990)*g[2] + CONSTANT(-0.188063194517999990)*g[12] + CONSTANT(0.053579475144400000)*g[30] + CONSTANT(-0.190188269816000010)*g[34];
|
|
y[4] += tf*g[10] + tg*f[10];
|
|
y[10] = tf*g[4] + tg*f[4];
|
|
t = f[4] * g[10] + f[10] * g[4];
|
|
y[2] += CONSTANT(0.184674390919999990)*t;
|
|
y[12] += CONSTANT(-0.188063194517999990)*t;
|
|
y[30] += CONSTANT(0.053579475144400000)*t;
|
|
y[34] = CONSTANT(-0.190188269816000010)*t;
|
|
|
|
// [4,11]: 3,13,15,31,33,
|
|
tf = CONSTANT(-0.058399170082300000)*f[3] + CONSTANT(0.145673124078000010)*f[13] + CONSTANT(0.094031597258400004)*f[15] + CONSTANT(-0.065621187395699998)*f[31] + CONSTANT(-0.141757966610000010)*f[33];
|
|
tg = CONSTANT(-0.058399170082300000)*g[3] + CONSTANT(0.145673124078000010)*g[13] + CONSTANT(0.094031597258400004)*g[15] + CONSTANT(-0.065621187395699998)*g[31] + CONSTANT(-0.141757966610000010)*g[33];
|
|
y[4] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[11] + f[11] * g[4];
|
|
y[3] += CONSTANT(-0.058399170082300000)*t;
|
|
y[13] += CONSTANT(0.145673124078000010)*t;
|
|
y[15] += CONSTANT(0.094031597258400004)*t;
|
|
y[31] += CONSTANT(-0.065621187395699998)*t;
|
|
y[33] += CONSTANT(-0.141757966610000010)*t;
|
|
|
|
// [4,16]: 8,22,
|
|
tf = CONSTANT(0.238413613494000000)*f[8] + CONSTANT(-0.075080816693699995)*f[22];
|
|
tg = CONSTANT(0.238413613494000000)*g[8] + CONSTANT(-0.075080816693699995)*g[22];
|
|
y[4] += tf*g[16] + tg*f[16];
|
|
y[16] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[16] + f[16] * g[4];
|
|
y[8] += CONSTANT(0.238413613494000000)*t;
|
|
y[22] += CONSTANT(-0.075080816693699995)*t;
|
|
|
|
// [4,18]: 6,20,24,
|
|
tf = CONSTANT(0.156078347226000000)*f[6] + CONSTANT(-0.190364615029000010)*f[20] + CONSTANT(0.075080816691500005)*f[24];
|
|
tg = CONSTANT(0.156078347226000000)*g[6] + CONSTANT(-0.190364615029000010)*g[20] + CONSTANT(0.075080816691500005)*g[24];
|
|
y[4] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[18] + f[18] * g[4];
|
|
y[6] += CONSTANT(0.156078347226000000)*t;
|
|
y[20] += CONSTANT(-0.190364615029000010)*t;
|
|
y[24] += CONSTANT(0.075080816691500005)*t;
|
|
|
|
// [4,19]: 7,21,23,
|
|
tf = CONSTANT(-0.063718718434399996)*f[7] + CONSTANT(0.141889406569999990)*f[21] + CONSTANT(0.112621225039000000)*f[23];
|
|
tg = CONSTANT(-0.063718718434399996)*g[7] + CONSTANT(0.141889406569999990)*g[21] + CONSTANT(0.112621225039000000)*g[23];
|
|
y[4] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[19] + f[19] * g[4];
|
|
y[7] += CONSTANT(-0.063718718434399996)*t;
|
|
y[21] += CONSTANT(0.141889406569999990)*t;
|
|
y[23] += CONSTANT(0.112621225039000000)*t;
|
|
|
|
// [4,25]: 15,33,
|
|
tf = CONSTANT(0.245532000542000000)*f[15] + CONSTANT(-0.062641347680800000)*f[33];
|
|
tg = CONSTANT(0.245532000542000000)*g[15] + CONSTANT(-0.062641347680800000)*g[33];
|
|
y[4] += tf*g[25] + tg*f[25];
|
|
y[25] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[25] + f[25] * g[4];
|
|
y[15] += CONSTANT(0.245532000542000000)*t;
|
|
y[33] += CONSTANT(-0.062641347680800000)*t;
|
|
|
|
// [4,26]: 14,32,
|
|
tf = CONSTANT(0.190188269806999990)*f[14] + CONSTANT(-0.097043558542400002)*f[32];
|
|
tg = CONSTANT(0.190188269806999990)*g[14] + CONSTANT(-0.097043558542400002)*g[32];
|
|
y[4] += tf*g[26] + tg*f[26];
|
|
y[26] = tf*g[4] + tg*f[4];
|
|
t = f[4] * g[26] + f[26] * g[4];
|
|
y[14] += CONSTANT(0.190188269806999990)*t;
|
|
y[32] += CONSTANT(-0.097043558542400002)*t;
|
|
|
|
// [4,27]: 13,31,35,
|
|
tf = CONSTANT(0.141757966610000010)*f[13] + CONSTANT(-0.121034582549000000)*f[31] + CONSTANT(0.062641347680800000)*f[35];
|
|
tg = CONSTANT(0.141757966610000010)*g[13] + CONSTANT(-0.121034582549000000)*g[31] + CONSTANT(0.062641347680800000)*g[35];
|
|
y[4] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[27] + f[27] * g[4];
|
|
y[13] += CONSTANT(0.141757966610000010)*t;
|
|
y[31] += CONSTANT(-0.121034582549000000)*t;
|
|
y[35] += CONSTANT(0.062641347680800000)*t;
|
|
|
|
// [4,28]: 12,30,34,
|
|
tf = CONSTANT(0.141757966609000000)*f[12] + CONSTANT(-0.191372478254000000)*f[30] + CONSTANT(0.097043558538899996)*f[34];
|
|
tg = CONSTANT(0.141757966609000000)*g[12] + CONSTANT(-0.191372478254000000)*g[30] + CONSTANT(0.097043558538899996)*g[34];
|
|
y[4] += tf*g[28] + tg*f[28];
|
|
y[28] = tf*g[4] + tg*f[4];
|
|
t = f[4] * g[28] + f[28] * g[4];
|
|
y[12] += CONSTANT(0.141757966609000000)*t;
|
|
y[30] += CONSTANT(-0.191372478254000000)*t;
|
|
y[34] += CONSTANT(0.097043558538899996)*t;
|
|
|
|
// [4,29]: 13,15,31,33,
|
|
tf = CONSTANT(-0.065621187395699998)*f[13] + CONSTANT(-0.016943317729299998)*f[15] + CONSTANT(0.140070311613999990)*f[31] + CONSTANT(0.121034582549000000)*f[33];
|
|
tg = CONSTANT(-0.065621187395699998)*g[13] + CONSTANT(-0.016943317729299998)*g[15] + CONSTANT(0.140070311613999990)*g[31] + CONSTANT(0.121034582549000000)*g[33];
|
|
y[4] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[4] + tg*f[4];
|
|
t = f[4] * g[29] + f[29] * g[4];
|
|
y[13] += CONSTANT(-0.065621187395699998)*t;
|
|
y[15] += CONSTANT(-0.016943317729299998)*t;
|
|
y[31] += CONSTANT(0.140070311613999990)*t;
|
|
y[33] += CONSTANT(0.121034582549000000)*t;
|
|
|
|
// [5,5]: 0,6,8,20,22,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.090111875786499998)*f[6] + CONSTANT(-0.156078347227999990)*f[8] + CONSTANT(-0.161197023870999990)*f[20] + CONSTANT(-0.180223751574000000)*f[22];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.090111875786499998)*g[6] + CONSTANT(-0.156078347227999990)*g[8] + CONSTANT(-0.161197023870999990)*g[20] + CONSTANT(-0.180223751574000000)*g[22];
|
|
y[5] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[5];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[8] += CONSTANT(-0.156078347227999990)*t;
|
|
y[20] += CONSTANT(-0.161197023870999990)*t;
|
|
y[22] += CONSTANT(-0.180223751574000000)*t;
|
|
|
|
// [5,10]: 3,13,15,31,33,
|
|
tf = CONSTANT(0.184674390919999990)*f[3] + CONSTANT(0.115164716490000000)*f[13] + CONSTANT(-0.148677009678999990)*f[15] + CONSTANT(-0.083004965974099995)*f[31] + CONSTANT(-0.179311220383999990)*f[33];
|
|
tg = CONSTANT(0.184674390919999990)*g[3] + CONSTANT(0.115164716490000000)*g[13] + CONSTANT(-0.148677009678999990)*g[15] + CONSTANT(-0.083004965974099995)*g[31] + CONSTANT(-0.179311220383999990)*g[33];
|
|
y[5] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[10] + f[10] * g[5];
|
|
y[3] += CONSTANT(0.184674390919999990)*t;
|
|
y[13] += CONSTANT(0.115164716490000000)*t;
|
|
y[15] += CONSTANT(-0.148677009678999990)*t;
|
|
y[31] += CONSTANT(-0.083004965974099995)*t;
|
|
y[33] += CONSTANT(-0.179311220383999990)*t;
|
|
|
|
// [5,11]: 2,12,14,30,32,
|
|
tf = CONSTANT(0.233596680327000010)*f[2] + CONSTANT(0.059470803871800003)*f[12] + CONSTANT(-0.115164716491000000)*f[14] + CONSTANT(-0.169433177294000010)*f[30] + CONSTANT(-0.173617342585000000)*f[32];
|
|
tg = CONSTANT(0.233596680327000010)*g[2] + CONSTANT(0.059470803871800003)*g[12] + CONSTANT(-0.115164716491000000)*g[14] + CONSTANT(-0.169433177294000010)*g[30] + CONSTANT(-0.173617342585000000)*g[32];
|
|
y[5] += tf*g[11] + tg*f[11];
|
|
y[11] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[11] + f[11] * g[5];
|
|
y[2] += CONSTANT(0.233596680327000010)*t;
|
|
y[12] += CONSTANT(0.059470803871800003)*t;
|
|
y[14] += CONSTANT(-0.115164716491000000)*t;
|
|
y[30] += CONSTANT(-0.169433177294000010)*t;
|
|
y[32] += CONSTANT(-0.173617342585000000)*t;
|
|
|
|
// [5,14]: 9,1,27,29,
|
|
tf = CONSTANT(0.148677009677999990)*f[9] + CONSTANT(-0.184674390923000000)*f[1] + CONSTANT(0.179311220382000010)*f[27] + CONSTANT(0.083004965973399999)*f[29];
|
|
tg = CONSTANT(0.148677009677999990)*g[9] + CONSTANT(-0.184674390923000000)*g[1] + CONSTANT(0.179311220382000010)*g[27] + CONSTANT(0.083004965973399999)*g[29];
|
|
y[5] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[14] + f[14] * g[5];
|
|
y[9] += CONSTANT(0.148677009677999990)*t;
|
|
y[1] += CONSTANT(-0.184674390923000000)*t;
|
|
y[27] += CONSTANT(0.179311220382000010)*t;
|
|
y[29] += CONSTANT(0.083004965973399999)*t;
|
|
|
|
// [5,17]: 8,22,24,
|
|
tf = CONSTANT(0.168583882832999990)*f[8] + CONSTANT(0.132725386548000010)*f[22] + CONSTANT(-0.140463346189000000)*f[24];
|
|
tg = CONSTANT(0.168583882832999990)*g[8] + CONSTANT(0.132725386548000010)*g[22] + CONSTANT(-0.140463346189000000)*g[24];
|
|
y[5] += tf*g[17] + tg*f[17];
|
|
y[17] = tf*g[5] + tg*f[5];
|
|
t = f[5] * g[17] + f[17] * g[5];
|
|
y[8] += CONSTANT(0.168583882832999990)*t;
|
|
y[22] += CONSTANT(0.132725386548000010)*t;
|
|
y[24] += CONSTANT(-0.140463346189000000)*t;
|
|
|
|
// [5,18]: 7,21,23,
|
|
tf = CONSTANT(0.180223751571000010)*f[7] + CONSTANT(0.090297865407399994)*f[21] + CONSTANT(-0.132725386549000010)*f[23];
|
|
tg = CONSTANT(0.180223751571000010)*g[7] + CONSTANT(0.090297865407399994)*g[21] + CONSTANT(-0.132725386549000010)*g[23];
|
|
y[5] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[18] + f[18] * g[5];
|
|
y[7] += CONSTANT(0.180223751571000010)*t;
|
|
y[21] += CONSTANT(0.090297865407399994)*t;
|
|
y[23] += CONSTANT(-0.132725386549000010)*t;
|
|
|
|
// [5,19]: 6,8,20,22,
|
|
tf = CONSTANT(0.220728115440999990)*f[6] + CONSTANT(0.063718718433900007)*f[8] + CONSTANT(0.044869370061299998)*f[20] + CONSTANT(-0.090297865408399999)*f[22];
|
|
tg = CONSTANT(0.220728115440999990)*g[6] + CONSTANT(0.063718718433900007)*g[8] + CONSTANT(0.044869370061299998)*g[20] + CONSTANT(-0.090297865408399999)*g[22];
|
|
y[5] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[19] + f[19] * g[5];
|
|
y[6] += CONSTANT(0.220728115440999990)*t;
|
|
y[8] += CONSTANT(0.063718718433900007)*t;
|
|
y[20] += CONSTANT(0.044869370061299998)*t;
|
|
y[22] += CONSTANT(-0.090297865408399999)*t;
|
|
|
|
// [5,26]: 15,33,35,
|
|
tf = CONSTANT(0.155288072035000000)*f[15] + CONSTANT(0.138662534056999990)*f[33] + CONSTANT(-0.132882365179999990)*f[35];
|
|
tg = CONSTANT(0.155288072035000000)*g[15] + CONSTANT(0.138662534056999990)*g[33] + CONSTANT(-0.132882365179999990)*g[35];
|
|
y[5] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[26] + f[26] * g[5];
|
|
y[15] += CONSTANT(0.155288072035000000)*t;
|
|
y[33] += CONSTANT(0.138662534056999990)*t;
|
|
y[35] += CONSTANT(-0.132882365179999990)*t;
|
|
|
|
// [5,28]: 15,13,31,33,
|
|
tf = CONSTANT(0.044827805096399997)*f[15] + CONSTANT(0.173617342584000000)*f[13] + CONSTANT(0.074118242118699995)*f[31] + CONSTANT(-0.114366930522000000)*f[33];
|
|
tg = CONSTANT(0.044827805096399997)*g[15] + CONSTANT(0.173617342584000000)*g[13] + CONSTANT(0.074118242118699995)*g[31] + CONSTANT(-0.114366930522000000)*g[33];
|
|
y[5] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[28] + f[28] * g[5];
|
|
y[15] += CONSTANT(0.044827805096399997)*t;
|
|
y[13] += CONSTANT(0.173617342584000000)*t;
|
|
y[31] += CONSTANT(0.074118242118699995)*t;
|
|
y[33] += CONSTANT(-0.114366930522000000)*t;
|
|
|
|
// [5,29]: 12,30,32,
|
|
tf = CONSTANT(0.214317900578999990)*f[12] + CONSTANT(0.036165998945399999)*f[30] + CONSTANT(-0.074118242119099995)*f[32];
|
|
tg = CONSTANT(0.214317900578999990)*g[12] + CONSTANT(0.036165998945399999)*g[30] + CONSTANT(-0.074118242119099995)*g[32];
|
|
y[5] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[29] + f[29] * g[5];
|
|
y[12] += CONSTANT(0.214317900578999990)*t;
|
|
y[30] += CONSTANT(0.036165998945399999)*t;
|
|
y[32] += CONSTANT(-0.074118242119099995)*t;
|
|
|
|
// [5,32]: 9,27,
|
|
tf = CONSTANT(-0.044827805096799997)*f[9] + CONSTANT(0.114366930522000000)*f[27];
|
|
tg = CONSTANT(-0.044827805096799997)*g[9] + CONSTANT(0.114366930522000000)*g[27];
|
|
y[5] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[32] + f[32] * g[5];
|
|
y[9] += CONSTANT(-0.044827805096799997)*t;
|
|
y[27] += CONSTANT(0.114366930522000000)*t;
|
|
|
|
// [5,34]: 9,27,25,
|
|
tf = CONSTANT(-0.155288072036000010)*f[9] + CONSTANT(-0.138662534059000000)*f[27] + CONSTANT(0.132882365179000010)*f[25];
|
|
tg = CONSTANT(-0.155288072036000010)*g[9] + CONSTANT(-0.138662534059000000)*g[27] + CONSTANT(0.132882365179000010)*g[25];
|
|
y[5] += tf*g[34] + tg*f[34];
|
|
y[34] += tf*g[5] + tg*f[5];
|
|
t = f[5] * g[34] + f[34] * g[5];
|
|
y[9] += CONSTANT(-0.155288072036000010)*t;
|
|
y[27] += CONSTANT(-0.138662534059000000)*t;
|
|
y[25] += CONSTANT(0.132882365179000010)*t;
|
|
|
|
// [6,6]: 0,6,20,
|
|
tf = CONSTANT(0.282094797560000000)*f[0] + CONSTANT(0.241795553185999990)*f[20];
|
|
tg = CONSTANT(0.282094797560000000)*g[0] + CONSTANT(0.241795553185999990)*g[20];
|
|
y[6] += tf*g[6] + tg*f[6];
|
|
t = f[6] * g[6];
|
|
y[0] += CONSTANT(0.282094797560000000)*t;
|
|
y[6] += CONSTANT(0.180223764527000010)*t;
|
|
y[20] += CONSTANT(0.241795553185999990)*t;
|
|
|
|
// [7,7]: 6,0,8,20,22,
|
|
tf = CONSTANT(0.090111875786499998)*f[6] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.156078347227999990)*f[8] + CONSTANT(-0.161197023870999990)*f[20] + CONSTANT(0.180223751574000000)*f[22];
|
|
tg = CONSTANT(0.090111875786499998)*g[6] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.156078347227999990)*g[8] + CONSTANT(-0.161197023870999990)*g[20] + CONSTANT(0.180223751574000000)*g[22];
|
|
y[7] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[7];
|
|
y[6] += CONSTANT(0.090111875786499998)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.156078347227999990)*t;
|
|
y[20] += CONSTANT(-0.161197023870999990)*t;
|
|
y[22] += CONSTANT(0.180223751574000000)*t;
|
|
|
|
// [7,10]: 9,1,11,27,29,
|
|
tf = CONSTANT(0.148677009678999990)*f[9] + CONSTANT(0.184674390919999990)*f[1] + CONSTANT(0.115164716490000000)*f[11] + CONSTANT(0.179311220383999990)*f[27] + CONSTANT(-0.083004965974099995)*f[29];
|
|
tg = CONSTANT(0.148677009678999990)*g[9] + CONSTANT(0.184674390919999990)*g[1] + CONSTANT(0.115164716490000000)*g[11] + CONSTANT(0.179311220383999990)*g[27] + CONSTANT(-0.083004965974099995)*g[29];
|
|
y[7] += tf*g[10] + tg*f[10];
|
|
y[10] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[10] + f[10] * g[7];
|
|
y[9] += CONSTANT(0.148677009678999990)*t;
|
|
y[1] += CONSTANT(0.184674390919999990)*t;
|
|
y[11] += CONSTANT(0.115164716490000000)*t;
|
|
y[27] += CONSTANT(0.179311220383999990)*t;
|
|
y[29] += CONSTANT(-0.083004965974099995)*t;
|
|
|
|
// [7,13]: 12,2,14,30,32,
|
|
tf = CONSTANT(0.059470803871800003)*f[12] + CONSTANT(0.233596680327000010)*f[2] + CONSTANT(0.115164716491000000)*f[14] + CONSTANT(-0.169433177294000010)*f[30] + CONSTANT(0.173617342585000000)*f[32];
|
|
tg = CONSTANT(0.059470803871800003)*g[12] + CONSTANT(0.233596680327000010)*g[2] + CONSTANT(0.115164716491000000)*g[14] + CONSTANT(-0.169433177294000010)*g[30] + CONSTANT(0.173617342585000000)*g[32];
|
|
y[7] += tf*g[13] + tg*f[13];
|
|
y[13] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[13] + f[13] * g[7];
|
|
y[12] += CONSTANT(0.059470803871800003)*t;
|
|
y[2] += CONSTANT(0.233596680327000010)*t;
|
|
y[14] += CONSTANT(0.115164716491000000)*t;
|
|
y[30] += CONSTANT(-0.169433177294000010)*t;
|
|
y[32] += CONSTANT(0.173617342585000000)*t;
|
|
|
|
// [7,14]: 3,15,31,33,
|
|
tf = CONSTANT(0.184674390923000000)*f[3] + CONSTANT(0.148677009677999990)*f[15] + CONSTANT(-0.083004965973399999)*f[31] + CONSTANT(0.179311220382000010)*f[33];
|
|
tg = CONSTANT(0.184674390923000000)*g[3] + CONSTANT(0.148677009677999990)*g[15] + CONSTANT(-0.083004965973399999)*g[31] + CONSTANT(0.179311220382000010)*g[33];
|
|
y[7] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[14] + f[14] * g[7];
|
|
y[3] += CONSTANT(0.184674390923000000)*t;
|
|
y[15] += CONSTANT(0.148677009677999990)*t;
|
|
y[31] += CONSTANT(-0.083004965973399999)*t;
|
|
y[33] += CONSTANT(0.179311220382000010)*t;
|
|
|
|
// [7,17]: 16,4,18,
|
|
tf = CONSTANT(0.140463346187999990)*f[16] + CONSTANT(0.168583882835000000)*f[4] + CONSTANT(0.132725386549000010)*f[18];
|
|
tg = CONSTANT(0.140463346187999990)*g[16] + CONSTANT(0.168583882835000000)*g[4] + CONSTANT(0.132725386549000010)*g[18];
|
|
y[7] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[17] + f[17] * g[7];
|
|
y[16] += CONSTANT(0.140463346187999990)*t;
|
|
y[4] += CONSTANT(0.168583882835000000)*t;
|
|
y[18] += CONSTANT(0.132725386549000010)*t;
|
|
|
|
// [7,21]: 8,20,6,22,
|
|
tf = CONSTANT(-0.063718718433900007)*f[8] + CONSTANT(0.044869370061299998)*f[20] + CONSTANT(0.220728115440999990)*f[6] + CONSTANT(0.090297865408399999)*f[22];
|
|
tg = CONSTANT(-0.063718718433900007)*g[8] + CONSTANT(0.044869370061299998)*g[20] + CONSTANT(0.220728115440999990)*g[6] + CONSTANT(0.090297865408399999)*g[22];
|
|
y[7] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[21] + f[21] * g[7];
|
|
y[8] += CONSTANT(-0.063718718433900007)*t;
|
|
y[20] += CONSTANT(0.044869370061299998)*t;
|
|
y[6] += CONSTANT(0.220728115440999990)*t;
|
|
y[22] += CONSTANT(0.090297865408399999)*t;
|
|
|
|
// [7,23]: 8,22,24,
|
|
tf = CONSTANT(0.168583882832999990)*f[8] + CONSTANT(0.132725386548000010)*f[22] + CONSTANT(0.140463346189000000)*f[24];
|
|
tg = CONSTANT(0.168583882832999990)*g[8] + CONSTANT(0.132725386548000010)*g[22] + CONSTANT(0.140463346189000000)*g[24];
|
|
y[7] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[23] + f[23] * g[7];
|
|
y[8] += CONSTANT(0.168583882832999990)*t;
|
|
y[22] += CONSTANT(0.132725386548000010)*t;
|
|
y[24] += CONSTANT(0.140463346189000000)*t;
|
|
|
|
// [7,26]: 9,25,27,
|
|
tf = CONSTANT(0.155288072035000000)*f[9] + CONSTANT(0.132882365179999990)*f[25] + CONSTANT(0.138662534056999990)*f[27];
|
|
tg = CONSTANT(0.155288072035000000)*g[9] + CONSTANT(0.132882365179999990)*g[25] + CONSTANT(0.138662534056999990)*g[27];
|
|
y[7] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[26] + f[26] * g[7];
|
|
y[9] += CONSTANT(0.155288072035000000)*t;
|
|
y[25] += CONSTANT(0.132882365179999990)*t;
|
|
y[27] += CONSTANT(0.138662534056999990)*t;
|
|
|
|
// [7,28]: 27,11,9,29,
|
|
tf = CONSTANT(0.114366930522000000)*f[27] + CONSTANT(0.173617342584000000)*f[11] + CONSTANT(-0.044827805096399997)*f[9] + CONSTANT(0.074118242118699995)*f[29];
|
|
tg = CONSTANT(0.114366930522000000)*g[27] + CONSTANT(0.173617342584000000)*g[11] + CONSTANT(-0.044827805096399997)*g[9] + CONSTANT(0.074118242118699995)*g[29];
|
|
y[7] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[28] + f[28] * g[7];
|
|
y[27] += CONSTANT(0.114366930522000000)*t;
|
|
y[11] += CONSTANT(0.173617342584000000)*t;
|
|
y[9] += CONSTANT(-0.044827805096399997)*t;
|
|
y[29] += CONSTANT(0.074118242118699995)*t;
|
|
|
|
// [7,31]: 30,12,32,
|
|
tf = CONSTANT(0.036165998945399999)*f[30] + CONSTANT(0.214317900578999990)*f[12] + CONSTANT(0.074118242119099995)*f[32];
|
|
tg = CONSTANT(0.036165998945399999)*g[30] + CONSTANT(0.214317900578999990)*g[12] + CONSTANT(0.074118242119099995)*g[32];
|
|
y[7] += tf*g[31] + tg*f[31];
|
|
y[31] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[31] + f[31] * g[7];
|
|
y[30] += CONSTANT(0.036165998945399999)*t;
|
|
y[12] += CONSTANT(0.214317900578999990)*t;
|
|
y[32] += CONSTANT(0.074118242119099995)*t;
|
|
|
|
// [7,32]: 15,33,
|
|
tf = CONSTANT(-0.044827805096799997)*f[15] + CONSTANT(0.114366930522000000)*f[33];
|
|
tg = CONSTANT(-0.044827805096799997)*g[15] + CONSTANT(0.114366930522000000)*g[33];
|
|
y[7] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[32] + f[32] * g[7];
|
|
y[15] += CONSTANT(-0.044827805096799997)*t;
|
|
y[33] += CONSTANT(0.114366930522000000)*t;
|
|
|
|
// [7,34]: 15,33,35,
|
|
tf = CONSTANT(0.155288072036000010)*f[15] + CONSTANT(0.138662534059000000)*f[33] + CONSTANT(0.132882365179000010)*f[35];
|
|
tg = CONSTANT(0.155288072036000010)*g[15] + CONSTANT(0.138662534059000000)*g[33] + CONSTANT(0.132882365179000010)*g[35];
|
|
y[7] += tf*g[34] + tg*f[34];
|
|
y[34] += tf*g[7] + tg*f[7];
|
|
t = f[7] * g[34] + f[34] * g[7];
|
|
y[15] += CONSTANT(0.155288072036000010)*t;
|
|
y[33] += CONSTANT(0.138662534059000000)*t;
|
|
y[35] += CONSTANT(0.132882365179000010)*t;
|
|
|
|
// [8,8]: 0,6,20,24,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.180223751576000010)*f[6] + CONSTANT(0.040299255967500003)*f[20] + CONSTANT(0.238413613505999990)*f[24];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.180223751576000010)*g[6] + CONSTANT(0.040299255967500003)*g[20] + CONSTANT(0.238413613505999990)*g[24];
|
|
y[8] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[8];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[6] += CONSTANT(-0.180223751576000010)*t;
|
|
y[20] += CONSTANT(0.040299255967500003)*t;
|
|
y[24] += CONSTANT(0.238413613505999990)*t;
|
|
|
|
// [8,9]: 1,11,25,29,
|
|
tf = CONSTANT(0.226179013155000000)*f[1] + CONSTANT(-0.094031597259499999)*f[11] + CONSTANT(0.245532000541000000)*f[25] + CONSTANT(0.016943317729199998)*f[29];
|
|
tg = CONSTANT(0.226179013155000000)*g[1] + CONSTANT(-0.094031597259499999)*g[11] + CONSTANT(0.245532000541000000)*g[25] + CONSTANT(0.016943317729199998)*g[29];
|
|
y[8] += tf*g[9] + tg*f[9];
|
|
y[9] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[9] + f[9] * g[8];
|
|
y[1] += CONSTANT(0.226179013155000000)*t;
|
|
y[11] += CONSTANT(-0.094031597259499999)*t;
|
|
y[25] += CONSTANT(0.245532000541000000)*t;
|
|
y[29] += CONSTANT(0.016943317729199998)*t;
|
|
|
|
// [8,14]: 2,12,30,34,
|
|
tf = CONSTANT(0.184674390919999990)*f[2] + CONSTANT(-0.188063194517999990)*f[12] + CONSTANT(0.053579475144400000)*f[30] + CONSTANT(0.190188269816000010)*f[34];
|
|
tg = CONSTANT(0.184674390919999990)*g[2] + CONSTANT(-0.188063194517999990)*g[12] + CONSTANT(0.053579475144400000)*g[30] + CONSTANT(0.190188269816000010)*g[34];
|
|
y[8] += tf*g[14] + tg*f[14];
|
|
y[14] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[14] + f[14] * g[8];
|
|
y[2] += CONSTANT(0.184674390919999990)*t;
|
|
y[12] += CONSTANT(-0.188063194517999990)*t;
|
|
y[30] += CONSTANT(0.053579475144400000)*t;
|
|
y[34] += CONSTANT(0.190188269816000010)*t;
|
|
|
|
// [8,15]: 13,3,31,35,
|
|
tf = CONSTANT(-0.094031597259499999)*f[13] + CONSTANT(0.226179013155000000)*f[3] + CONSTANT(0.016943317729199998)*f[31] + CONSTANT(0.245532000541000000)*f[35];
|
|
tg = CONSTANT(-0.094031597259499999)*g[13] + CONSTANT(0.226179013155000000)*g[3] + CONSTANT(0.016943317729199998)*g[31] + CONSTANT(0.245532000541000000)*g[35];
|
|
y[8] += tf*g[15] + tg*f[15];
|
|
y[15] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[15] + f[15] * g[8];
|
|
y[13] += CONSTANT(-0.094031597259499999)*t;
|
|
y[3] += CONSTANT(0.226179013155000000)*t;
|
|
y[31] += CONSTANT(0.016943317729199998)*t;
|
|
y[35] += CONSTANT(0.245532000541000000)*t;
|
|
|
|
// [8,22]: 6,20,24,
|
|
tf = CONSTANT(0.156078347226000000)*f[6] + CONSTANT(-0.190364615029000010)*f[20] + CONSTANT(-0.075080816691500005)*f[24];
|
|
tg = CONSTANT(0.156078347226000000)*g[6] + CONSTANT(-0.190364615029000010)*g[20] + CONSTANT(-0.075080816691500005)*g[24];
|
|
y[8] += tf*g[22] + tg*f[22];
|
|
y[22] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[22] + f[22] * g[8];
|
|
y[6] += CONSTANT(0.156078347226000000)*t;
|
|
y[20] += CONSTANT(-0.190364615029000010)*t;
|
|
y[24] += CONSTANT(-0.075080816691500005)*t;
|
|
|
|
// [8,26]: 10,28,
|
|
tf = CONSTANT(0.190188269806999990)*f[10] + CONSTANT(-0.097043558542400002)*f[28];
|
|
tg = CONSTANT(0.190188269806999990)*g[10] + CONSTANT(-0.097043558542400002)*g[28];
|
|
y[8] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[26] + f[26] * g[8];
|
|
y[10] += CONSTANT(0.190188269806999990)*t;
|
|
y[28] += CONSTANT(-0.097043558542400002)*t;
|
|
|
|
// [8,27]: 25,11,29,
|
|
tf = CONSTANT(-0.062641347680800000)*f[25] + CONSTANT(0.141757966609000000)*f[11] + CONSTANT(-0.121034582550000010)*f[29];
|
|
tg = CONSTANT(-0.062641347680800000)*g[25] + CONSTANT(0.141757966609000000)*g[11] + CONSTANT(-0.121034582550000010)*g[29];
|
|
y[8] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[27] + f[27] * g[8];
|
|
y[25] += CONSTANT(-0.062641347680800000)*t;
|
|
y[11] += CONSTANT(0.141757966609000000)*t;
|
|
y[29] += CONSTANT(-0.121034582550000010)*t;
|
|
|
|
// [8,32]: 30,12,34,
|
|
tf = CONSTANT(-0.191372478254000000)*f[30] + CONSTANT(0.141757966609000000)*f[12] + CONSTANT(-0.097043558538899996)*f[34];
|
|
tg = CONSTANT(-0.191372478254000000)*g[30] + CONSTANT(0.141757966609000000)*g[12] + CONSTANT(-0.097043558538899996)*g[34];
|
|
y[8] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[32] + f[32] * g[8];
|
|
y[30] += CONSTANT(-0.191372478254000000)*t;
|
|
y[12] += CONSTANT(0.141757966609000000)*t;
|
|
y[34] += CONSTANT(-0.097043558538899996)*t;
|
|
|
|
// [8,33]: 13,31,35,
|
|
tf = CONSTANT(0.141757966609000000)*f[13] + CONSTANT(-0.121034582550000010)*f[31] + CONSTANT(-0.062641347680800000)*f[35];
|
|
tg = CONSTANT(0.141757966609000000)*g[13] + CONSTANT(-0.121034582550000010)*g[31] + CONSTANT(-0.062641347680800000)*g[35];
|
|
y[8] += tf*g[33] + tg*f[33];
|
|
y[33] += tf*g[8] + tg*f[8];
|
|
t = f[8] * g[33] + f[33] * g[8];
|
|
y[13] += CONSTANT(0.141757966609000000)*t;
|
|
y[31] += CONSTANT(-0.121034582550000010)*t;
|
|
y[35] += CONSTANT(-0.062641347680800000)*t;
|
|
|
|
// [9,9]: 6,0,20,
|
|
tf = CONSTANT(-0.210261043508000010)*f[6] + CONSTANT(0.282094791766999970)*f[0] + CONSTANT(0.076934943209800002)*f[20];
|
|
tg = CONSTANT(-0.210261043508000010)*g[6] + CONSTANT(0.282094791766999970)*g[0] + CONSTANT(0.076934943209800002)*g[20];
|
|
y[9] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[9];
|
|
y[6] += CONSTANT(-0.210261043508000010)*t;
|
|
y[0] += CONSTANT(0.282094791766999970)*t;
|
|
y[20] += CONSTANT(0.076934943209800002)*t;
|
|
|
|
// [9,17]: 2,12,30,
|
|
tf = CONSTANT(0.162867503964999990)*f[2] + CONSTANT(-0.203550726872999990)*f[12] + CONSTANT(0.098140130728100003)*f[30];
|
|
tg = CONSTANT(0.162867503964999990)*g[2] + CONSTANT(-0.203550726872999990)*g[12] + CONSTANT(0.098140130728100003)*g[30];
|
|
y[9] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[17] + f[17] * g[9];
|
|
y[2] += CONSTANT(0.162867503964999990)*t;
|
|
y[12] += CONSTANT(-0.203550726872999990)*t;
|
|
y[30] += CONSTANT(0.098140130728100003)*t;
|
|
|
|
// [9,18]: 3,13,31,35,
|
|
tf = CONSTANT(-0.043528171377799997)*f[3] + CONSTANT(0.133255230519000010)*f[13] + CONSTANT(-0.101584686310000010)*f[31] + CONSTANT(0.098140130731999994)*f[35];
|
|
tg = CONSTANT(-0.043528171377799997)*g[3] + CONSTANT(0.133255230519000010)*g[13] + CONSTANT(-0.101584686310000010)*g[31] + CONSTANT(0.098140130731999994)*g[35];
|
|
y[9] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[18] + f[18] * g[9];
|
|
y[3] += CONSTANT(-0.043528171377799997)*t;
|
|
y[13] += CONSTANT(0.133255230519000010)*t;
|
|
y[31] += CONSTANT(-0.101584686310000010)*t;
|
|
y[35] += CONSTANT(0.098140130731999994)*t;
|
|
|
|
// [9,19]: 14,32,34,
|
|
tf = CONSTANT(-0.099322584600699995)*f[14] + CONSTANT(0.126698363970000010)*f[32] + CONSTANT(0.131668802180999990)*f[34];
|
|
tg = CONSTANT(-0.099322584600699995)*g[14] + CONSTANT(0.126698363970000010)*g[32] + CONSTANT(0.131668802180999990)*g[34];
|
|
y[9] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[19] + f[19] * g[9];
|
|
y[14] += CONSTANT(-0.099322584600699995)*t;
|
|
y[32] += CONSTANT(0.126698363970000010)*t;
|
|
y[34] += CONSTANT(0.131668802180999990)*t;
|
|
|
|
// [9,22]: 1,11,25,29,
|
|
tf = CONSTANT(-0.043528171378199997)*f[1] + CONSTANT(0.133255230518000010)*f[11] + CONSTANT(-0.098140130732499997)*f[25] + CONSTANT(-0.101584686311000000)*f[29];
|
|
tg = CONSTANT(-0.043528171378199997)*g[1] + CONSTANT(0.133255230518000010)*g[11] + CONSTANT(-0.098140130732499997)*g[25] + CONSTANT(-0.101584686311000000)*g[29];
|
|
y[9] += tf*g[22] + tg*f[22];
|
|
y[22] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[22] + f[22] * g[9];
|
|
y[1] += CONSTANT(-0.043528171378199997)*t;
|
|
y[11] += CONSTANT(0.133255230518000010)*t;
|
|
y[25] += CONSTANT(-0.098140130732499997)*t;
|
|
y[29] += CONSTANT(-0.101584686311000000)*t;
|
|
|
|
// [9,27]: 6,20,
|
|
tf = CONSTANT(0.126792179874999990)*f[6] + CONSTANT(-0.196280261464999990)*f[20];
|
|
tg = CONSTANT(0.126792179874999990)*g[6] + CONSTANT(-0.196280261464999990)*g[20];
|
|
y[9] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[9] + tg*f[9];
|
|
t = f[9] * g[27] + f[27] * g[9];
|
|
y[6] += CONSTANT(0.126792179874999990)*t;
|
|
y[20] += CONSTANT(-0.196280261464999990)*t;
|
|
|
|
// [10,10]: 0,20,24,
|
|
tf = CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.179514867494000000)*f[20] + CONSTANT(-0.151717754049000010)*f[24];
|
|
tg = CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.179514867494000000)*g[20] + CONSTANT(-0.151717754049000010)*g[24];
|
|
y[10] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[10];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.179514867494000000)*t;
|
|
y[24] += CONSTANT(-0.151717754049000010)*t;
|
|
|
|
// [10,16]: 14,32,
|
|
tf = CONSTANT(0.151717754044999990)*f[14] + CONSTANT(-0.077413979111300005)*f[32];
|
|
tg = CONSTANT(0.151717754044999990)*g[14] + CONSTANT(-0.077413979111300005)*g[32];
|
|
y[10] += tf*g[16] + tg*f[16];
|
|
y[16] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[16] + f[16] * g[10];
|
|
y[14] += CONSTANT(0.151717754044999990)*t;
|
|
y[32] += CONSTANT(-0.077413979111300005)*t;
|
|
|
|
// [10,17]: 13,3,31,35,
|
|
tf = CONSTANT(0.067850242288900006)*f[13] + CONSTANT(0.199471140200000010)*f[3] + CONSTANT(-0.113793659091000000)*f[31] + CONSTANT(-0.149911525925999990)*f[35];
|
|
tg = CONSTANT(0.067850242288900006)*g[13] + CONSTANT(0.199471140200000010)*g[3] + CONSTANT(-0.113793659091000000)*g[31] + CONSTANT(-0.149911525925999990)*g[35];
|
|
y[10] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[17] + f[17] * g[10];
|
|
y[13] += CONSTANT(0.067850242288900006)*t;
|
|
y[3] += CONSTANT(0.199471140200000010)*t;
|
|
y[31] += CONSTANT(-0.113793659091000000)*t;
|
|
y[35] += CONSTANT(-0.149911525925999990)*t;
|
|
|
|
// [10,18]: 12,2,30,34,
|
|
tf = CONSTANT(-0.044418410173299998)*f[12] + CONSTANT(0.213243618621000000)*f[2] + CONSTANT(-0.171327458205000000)*f[30] + CONSTANT(-0.101358691177000000)*f[34];
|
|
tg = CONSTANT(-0.044418410173299998)*g[12] + CONSTANT(0.213243618621000000)*g[2] + CONSTANT(-0.171327458205000000)*g[30] + CONSTANT(-0.101358691177000000)*g[34];
|
|
y[10] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[18] + f[18] * g[10];
|
|
y[12] += CONSTANT(-0.044418410173299998)*t;
|
|
y[2] += CONSTANT(0.213243618621000000)*t;
|
|
y[30] += CONSTANT(-0.171327458205000000)*t;
|
|
y[34] += CONSTANT(-0.101358691177000000)*t;
|
|
|
|
// [10,19]: 3,15,13,31,33,
|
|
tf = CONSTANT(-0.075393004386799994)*f[3] + CONSTANT(0.099322584599600000)*f[15] + CONSTANT(0.102579924281000000)*f[13] + CONSTANT(0.097749909976500002)*f[31] + CONSTANT(-0.025339672794100002)*f[33];
|
|
tg = CONSTANT(-0.075393004386799994)*g[3] + CONSTANT(0.099322584599600000)*g[15] + CONSTANT(0.102579924281000000)*g[13] + CONSTANT(0.097749909976500002)*g[31] + CONSTANT(-0.025339672794100002)*g[33];
|
|
y[10] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[19] + f[19] * g[10];
|
|
y[3] += CONSTANT(-0.075393004386799994)*t;
|
|
y[15] += CONSTANT(0.099322584599600000)*t;
|
|
y[13] += CONSTANT(0.102579924281000000)*t;
|
|
y[31] += CONSTANT(0.097749909976500002)*t;
|
|
y[33] += CONSTANT(-0.025339672794100002)*t;
|
|
|
|
// [10,21]: 11,1,9,27,29,
|
|
tf = CONSTANT(0.102579924281000000)*f[11] + CONSTANT(-0.075393004386799994)*f[1] + CONSTANT(-0.099322584599600000)*f[9] + CONSTANT(0.025339672794100002)*f[27] + CONSTANT(0.097749909976500002)*f[29];
|
|
tg = CONSTANT(0.102579924281000000)*g[11] + CONSTANT(-0.075393004386799994)*g[1] + CONSTANT(-0.099322584599600000)*g[9] + CONSTANT(0.025339672794100002)*g[27] + CONSTANT(0.097749909976500002)*g[29];
|
|
y[10] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[21] + f[21] * g[10];
|
|
y[11] += CONSTANT(0.102579924281000000)*t;
|
|
y[1] += CONSTANT(-0.075393004386799994)*t;
|
|
y[9] += CONSTANT(-0.099322584599600000)*t;
|
|
y[27] += CONSTANT(0.025339672794100002)*t;
|
|
y[29] += CONSTANT(0.097749909976500002)*t;
|
|
|
|
// [10,23]: 11,1,25,29,
|
|
tf = CONSTANT(-0.067850242288900006)*f[11] + CONSTANT(-0.199471140200000010)*f[1] + CONSTANT(0.149911525925999990)*f[25] + CONSTANT(0.113793659091000000)*f[29];
|
|
tg = CONSTANT(-0.067850242288900006)*g[11] + CONSTANT(-0.199471140200000010)*g[1] + CONSTANT(0.149911525925999990)*g[25] + CONSTANT(0.113793659091000000)*g[29];
|
|
y[10] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[23] + f[23] * g[10];
|
|
y[11] += CONSTANT(-0.067850242288900006)*t;
|
|
y[1] += CONSTANT(-0.199471140200000010)*t;
|
|
y[25] += CONSTANT(0.149911525925999990)*t;
|
|
y[29] += CONSTANT(0.113793659091000000)*t;
|
|
|
|
// [10,28]: 6,20,24,
|
|
tf = CONSTANT(0.190188269814000000)*f[6] + CONSTANT(-0.065426753820500005)*f[20] + CONSTANT(0.077413979109600004)*f[24];
|
|
tg = CONSTANT(0.190188269814000000)*g[6] + CONSTANT(-0.065426753820500005)*g[20] + CONSTANT(0.077413979109600004)*g[24];
|
|
y[10] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[10] + tg*f[10];
|
|
t = f[10] * g[28] + f[28] * g[10];
|
|
y[6] += CONSTANT(0.190188269814000000)*t;
|
|
y[20] += CONSTANT(-0.065426753820500005)*t;
|
|
y[24] += CONSTANT(0.077413979109600004)*t;
|
|
|
|
// [11,11]: 0,6,8,20,22,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.126156626101000010)*f[6] + CONSTANT(-0.145673124078999990)*f[8] + CONSTANT(0.025644981070299999)*f[20] + CONSTANT(-0.114687841910000000)*f[22];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.126156626101000010)*g[6] + CONSTANT(-0.145673124078999990)*g[8] + CONSTANT(0.025644981070299999)*g[20] + CONSTANT(-0.114687841910000000)*g[22];
|
|
y[11] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[11];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[6] += CONSTANT(0.126156626101000010)*t;
|
|
y[8] += CONSTANT(-0.145673124078999990)*t;
|
|
y[20] += CONSTANT(0.025644981070299999)*t;
|
|
y[22] += CONSTANT(-0.114687841910000000)*t;
|
|
|
|
// [11,16]: 15,33,35,
|
|
tf = CONSTANT(-0.117520066953000000)*f[15] + CONSTANT(0.119929220739999990)*f[33] + CONSTANT(0.134084945035999990)*f[35];
|
|
tg = CONSTANT(-0.117520066953000000)*g[15] + CONSTANT(0.119929220739999990)*g[33] + CONSTANT(0.134084945035999990)*g[35];
|
|
y[11] += tf*g[16] + tg*f[16];
|
|
y[16] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[16] + f[16] * g[11];
|
|
y[15] += CONSTANT(-0.117520066953000000)*t;
|
|
y[33] += CONSTANT(0.119929220739999990)*t;
|
|
y[35] += CONSTANT(0.134084945035999990)*t;
|
|
|
|
// [11,18]: 3,13,15,31,33,
|
|
tf = CONSTANT(0.168583882834000000)*f[3] + CONSTANT(0.114687841909000000)*f[13] + CONSTANT(-0.133255230519000010)*f[15] + CONSTANT(0.075189952564900006)*f[31] + CONSTANT(-0.101990215611000000)*f[33];
|
|
tg = CONSTANT(0.168583882834000000)*g[3] + CONSTANT(0.114687841909000000)*g[13] + CONSTANT(-0.133255230519000010)*g[15] + CONSTANT(0.075189952564900006)*g[31] + CONSTANT(-0.101990215611000000)*g[33];
|
|
y[11] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[18] + f[18] * g[11];
|
|
y[3] += CONSTANT(0.168583882834000000)*t;
|
|
y[13] += CONSTANT(0.114687841909000000)*t;
|
|
y[15] += CONSTANT(-0.133255230519000010)*t;
|
|
y[31] += CONSTANT(0.075189952564900006)*t;
|
|
y[33] += CONSTANT(-0.101990215611000000)*t;
|
|
|
|
// [11,19]: 2,14,12,30,32,
|
|
tf = CONSTANT(0.238413613504000000)*f[2] + CONSTANT(-0.102579924282000000)*f[14] + CONSTANT(0.099322584599300004)*f[12] + CONSTANT(0.009577496073830001)*f[30] + CONSTANT(-0.104682806112000000)*f[32];
|
|
tg = CONSTANT(0.238413613504000000)*g[2] + CONSTANT(-0.102579924282000000)*g[14] + CONSTANT(0.099322584599300004)*g[12] + CONSTANT(0.009577496073830001)*g[30] + CONSTANT(-0.104682806112000000)*g[32];
|
|
y[11] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[19] + f[19] * g[11];
|
|
y[2] += CONSTANT(0.238413613504000000)*t;
|
|
y[14] += CONSTANT(-0.102579924282000000)*t;
|
|
y[12] += CONSTANT(0.099322584599300004)*t;
|
|
y[30] += CONSTANT(0.009577496073830001)*t;
|
|
y[32] += CONSTANT(-0.104682806112000000)*t;
|
|
|
|
// [11,24]: 9,25,27,
|
|
tf = CONSTANT(0.117520066950999990)*f[9] + CONSTANT(-0.134084945037000000)*f[25] + CONSTANT(-0.119929220742000010)*f[27];
|
|
tg = CONSTANT(0.117520066950999990)*g[9] + CONSTANT(-0.134084945037000000)*g[25] + CONSTANT(-0.119929220742000010)*g[27];
|
|
y[11] += tf*g[24] + tg*f[24];
|
|
y[24] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[24] + f[24] * g[11];
|
|
y[9] += CONSTANT(0.117520066950999990)*t;
|
|
y[25] += CONSTANT(-0.134084945037000000)*t;
|
|
y[27] += CONSTANT(-0.119929220742000010)*t;
|
|
|
|
// [11,29]: 6,20,22,8,
|
|
tf = CONSTANT(0.227318461243000010)*f[6] + CONSTANT(0.086019920779800002)*f[20] + CONSTANT(-0.075189952565200002)*f[22] + CONSTANT(0.065621187395299999)*f[8];
|
|
tg = CONSTANT(0.227318461243000010)*g[6] + CONSTANT(0.086019920779800002)*g[20] + CONSTANT(-0.075189952565200002)*g[22] + CONSTANT(0.065621187395299999)*g[8];
|
|
y[11] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[11] + tg*f[11];
|
|
t = f[11] * g[29] + f[29] * g[11];
|
|
y[6] += CONSTANT(0.227318461243000010)*t;
|
|
y[20] += CONSTANT(0.086019920779800002)*t;
|
|
y[22] += CONSTANT(-0.075189952565200002)*t;
|
|
y[8] += CONSTANT(0.065621187395299999)*t;
|
|
|
|
// [12,12]: 0,6,20,
|
|
tf = CONSTANT(0.282094799871999980)*f[0] + CONSTANT(0.168208852954000010)*f[6] + CONSTANT(0.153869910786000010)*f[20];
|
|
tg = CONSTANT(0.282094799871999980)*g[0] + CONSTANT(0.168208852954000010)*g[6] + CONSTANT(0.153869910786000010)*g[20];
|
|
y[12] += tf*g[12] + tg*f[12];
|
|
t = f[12] * g[12];
|
|
y[0] += CONSTANT(0.282094799871999980)*t;
|
|
y[6] += CONSTANT(0.168208852954000010)*t;
|
|
y[20] += CONSTANT(0.153869910786000010)*t;
|
|
|
|
// [12,30]: 20,6,
|
|
tf = CONSTANT(0.148373961712999990)*f[20] + CONSTANT(0.239614719999000000)*f[6];
|
|
tg = CONSTANT(0.148373961712999990)*g[20] + CONSTANT(0.239614719999000000)*g[6];
|
|
y[12] += tf*g[30] + tg*f[30];
|
|
y[30] += tf*g[12] + tg*f[12];
|
|
t = f[12] * g[30] + f[30] * g[12];
|
|
y[20] += CONSTANT(0.148373961712999990)*t;
|
|
y[6] += CONSTANT(0.239614719999000000)*t;
|
|
|
|
// [13,13]: 0,8,6,20,22,
|
|
tf = CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.145673124078999990)*f[8] + CONSTANT(0.126156626101000010)*f[6] + CONSTANT(0.025644981070299999)*f[20] + CONSTANT(0.114687841910000000)*f[22];
|
|
tg = CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.145673124078999990)*g[8] + CONSTANT(0.126156626101000010)*g[6] + CONSTANT(0.025644981070299999)*g[20] + CONSTANT(0.114687841910000000)*g[22];
|
|
y[13] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[13];
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.145673124078999990)*t;
|
|
y[6] += CONSTANT(0.126156626101000010)*t;
|
|
y[20] += CONSTANT(0.025644981070299999)*t;
|
|
y[22] += CONSTANT(0.114687841910000000)*t;
|
|
|
|
// [13,16]: 9,25,27,
|
|
tf = CONSTANT(-0.117520066953000000)*f[9] + CONSTANT(-0.134084945035999990)*f[25] + CONSTANT(0.119929220739999990)*f[27];
|
|
tg = CONSTANT(-0.117520066953000000)*g[9] + CONSTANT(-0.134084945035999990)*g[25] + CONSTANT(0.119929220739999990)*g[27];
|
|
y[13] += tf*g[16] + tg*f[16];
|
|
y[16] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[16] + f[16] * g[13];
|
|
y[9] += CONSTANT(-0.117520066953000000)*t;
|
|
y[25] += CONSTANT(-0.134084945035999990)*t;
|
|
y[27] += CONSTANT(0.119929220739999990)*t;
|
|
|
|
// [13,21]: 2,12,14,30,32,
|
|
tf = CONSTANT(0.238413613504000000)*f[2] + CONSTANT(0.099322584599300004)*f[12] + CONSTANT(0.102579924282000000)*f[14] + CONSTANT(0.009577496073830001)*f[30] + CONSTANT(0.104682806112000000)*f[32];
|
|
tg = CONSTANT(0.238413613504000000)*g[2] + CONSTANT(0.099322584599300004)*g[12] + CONSTANT(0.102579924282000000)*g[14] + CONSTANT(0.009577496073830001)*g[30] + CONSTANT(0.104682806112000000)*g[32];
|
|
y[13] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[21] + f[21] * g[13];
|
|
y[2] += CONSTANT(0.238413613504000000)*t;
|
|
y[12] += CONSTANT(0.099322584599300004)*t;
|
|
y[14] += CONSTANT(0.102579924282000000)*t;
|
|
y[30] += CONSTANT(0.009577496073830001)*t;
|
|
y[32] += CONSTANT(0.104682806112000000)*t;
|
|
|
|
// [13,24]: 15,33,35,
|
|
tf = CONSTANT(-0.117520066950999990)*f[15] + CONSTANT(0.119929220742000010)*f[33] + CONSTANT(-0.134084945037000000)*f[35];
|
|
tg = CONSTANT(-0.117520066950999990)*g[15] + CONSTANT(0.119929220742000010)*g[33] + CONSTANT(-0.134084945037000000)*g[35];
|
|
y[13] += tf*g[24] + tg*f[24];
|
|
y[24] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[24] + f[24] * g[13];
|
|
y[15] += CONSTANT(-0.117520066950999990)*t;
|
|
y[33] += CONSTANT(0.119929220742000010)*t;
|
|
y[35] += CONSTANT(-0.134084945037000000)*t;
|
|
|
|
// [13,31]: 6,22,20,8,
|
|
tf = CONSTANT(0.227318461243000010)*f[6] + CONSTANT(0.075189952565200002)*f[22] + CONSTANT(0.086019920779800002)*f[20] + CONSTANT(-0.065621187395299999)*f[8];
|
|
tg = CONSTANT(0.227318461243000010)*g[6] + CONSTANT(0.075189952565200002)*g[22] + CONSTANT(0.086019920779800002)*g[20] + CONSTANT(-0.065621187395299999)*g[8];
|
|
y[13] += tf*g[31] + tg*f[31];
|
|
y[31] += tf*g[13] + tg*f[13];
|
|
t = f[13] * g[31] + f[31] * g[13];
|
|
y[6] += CONSTANT(0.227318461243000010)*t;
|
|
y[22] += CONSTANT(0.075189952565200002)*t;
|
|
y[20] += CONSTANT(0.086019920779800002)*t;
|
|
y[8] += CONSTANT(-0.065621187395299999)*t;
|
|
|
|
// [14,14]: 0,20,24,
|
|
tf = CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.179514867494000000)*f[20] + CONSTANT(0.151717754049000010)*f[24];
|
|
tg = CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.179514867494000000)*g[20] + CONSTANT(0.151717754049000010)*g[24];
|
|
y[14] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[14];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.179514867494000000)*t;
|
|
y[24] += CONSTANT(0.151717754049000010)*t;
|
|
|
|
// [14,17]: 11,1,25,29,
|
|
tf = CONSTANT(0.067850242288500007)*f[11] + CONSTANT(0.199471140196999990)*f[1] + CONSTANT(0.149911525925999990)*f[25] + CONSTANT(-0.113793659092000000)*f[29];
|
|
tg = CONSTANT(0.067850242288500007)*g[11] + CONSTANT(0.199471140196999990)*g[1] + CONSTANT(0.149911525925999990)*g[25] + CONSTANT(-0.113793659092000000)*g[29];
|
|
y[14] += tf*g[17] + tg*f[17];
|
|
y[17] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[17] + f[17] * g[14];
|
|
y[11] += CONSTANT(0.067850242288500007)*t;
|
|
y[1] += CONSTANT(0.199471140196999990)*t;
|
|
y[25] += CONSTANT(0.149911525925999990)*t;
|
|
y[29] += CONSTANT(-0.113793659092000000)*t;
|
|
|
|
// [14,22]: 12,2,30,34,
|
|
tf = CONSTANT(-0.044418410173299998)*f[12] + CONSTANT(0.213243618621000000)*f[2] + CONSTANT(-0.171327458205000000)*f[30] + CONSTANT(0.101358691177000000)*f[34];
|
|
tg = CONSTANT(-0.044418410173299998)*g[12] + CONSTANT(0.213243618621000000)*g[2] + CONSTANT(-0.171327458205000000)*g[30] + CONSTANT(0.101358691177000000)*g[34];
|
|
y[14] += tf*g[22] + tg*f[22];
|
|
y[22] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[22] + f[22] * g[14];
|
|
y[12] += CONSTANT(-0.044418410173299998)*t;
|
|
y[2] += CONSTANT(0.213243618621000000)*t;
|
|
y[30] += CONSTANT(-0.171327458205000000)*t;
|
|
y[34] += CONSTANT(0.101358691177000000)*t;
|
|
|
|
// [14,23]: 13,3,31,35,
|
|
tf = CONSTANT(0.067850242288500007)*f[13] + CONSTANT(0.199471140196999990)*f[3] + CONSTANT(-0.113793659092000000)*f[31] + CONSTANT(0.149911525925999990)*f[35];
|
|
tg = CONSTANT(0.067850242288500007)*g[13] + CONSTANT(0.199471140196999990)*g[3] + CONSTANT(-0.113793659092000000)*g[31] + CONSTANT(0.149911525925999990)*g[35];
|
|
y[14] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[23] + f[23] * g[14];
|
|
y[13] += CONSTANT(0.067850242288500007)*t;
|
|
y[3] += CONSTANT(0.199471140196999990)*t;
|
|
y[31] += CONSTANT(-0.113793659092000000)*t;
|
|
y[35] += CONSTANT(0.149911525925999990)*t;
|
|
|
|
// [14,32]: 20,6,24,
|
|
tf = CONSTANT(-0.065426753820500005)*f[20] + CONSTANT(0.190188269814000000)*f[6] + CONSTANT(-0.077413979109600004)*f[24];
|
|
tg = CONSTANT(-0.065426753820500005)*g[20] + CONSTANT(0.190188269814000000)*g[6] + CONSTANT(-0.077413979109600004)*g[24];
|
|
y[14] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[14] + tg*f[14];
|
|
t = f[14] * g[32] + f[32] * g[14];
|
|
y[20] += CONSTANT(-0.065426753820500005)*t;
|
|
y[6] += CONSTANT(0.190188269814000000)*t;
|
|
y[24] += CONSTANT(-0.077413979109600004)*t;
|
|
|
|
// [15,15]: 0,6,20,
|
|
tf = CONSTANT(0.282094791766999970)*f[0] + CONSTANT(-0.210261043508000010)*f[6] + CONSTANT(0.076934943209800002)*f[20];
|
|
tg = CONSTANT(0.282094791766999970)*g[0] + CONSTANT(-0.210261043508000010)*g[6] + CONSTANT(0.076934943209800002)*g[20];
|
|
y[15] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[15];
|
|
y[0] += CONSTANT(0.282094791766999970)*t;
|
|
y[6] += CONSTANT(-0.210261043508000010)*t;
|
|
y[20] += CONSTANT(0.076934943209800002)*t;
|
|
|
|
// [15,21]: 14,32,34,
|
|
tf = CONSTANT(-0.099322584600699995)*f[14] + CONSTANT(0.126698363970000010)*f[32] + CONSTANT(-0.131668802180999990)*f[34];
|
|
tg = CONSTANT(-0.099322584600699995)*g[14] + CONSTANT(0.126698363970000010)*g[32] + CONSTANT(-0.131668802180999990)*g[34];
|
|
y[15] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[21] + f[21] * g[15];
|
|
y[14] += CONSTANT(-0.099322584600699995)*t;
|
|
y[32] += CONSTANT(0.126698363970000010)*t;
|
|
y[34] += CONSTANT(-0.131668802180999990)*t;
|
|
|
|
// [15,22]: 13,3,31,35,
|
|
tf = CONSTANT(0.133255230518000010)*f[13] + CONSTANT(-0.043528171378199997)*f[3] + CONSTANT(-0.101584686311000000)*f[31] + CONSTANT(-0.098140130732499997)*f[35];
|
|
tg = CONSTANT(0.133255230518000010)*g[13] + CONSTANT(-0.043528171378199997)*g[3] + CONSTANT(-0.101584686311000000)*g[31] + CONSTANT(-0.098140130732499997)*g[35];
|
|
y[15] += tf*g[22] + tg*f[22];
|
|
y[22] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[22] + f[22] * g[15];
|
|
y[13] += CONSTANT(0.133255230518000010)*t;
|
|
y[3] += CONSTANT(-0.043528171378199997)*t;
|
|
y[31] += CONSTANT(-0.101584686311000000)*t;
|
|
y[35] += CONSTANT(-0.098140130732499997)*t;
|
|
|
|
// [15,23]: 12,2,30,
|
|
tf = CONSTANT(-0.203550726872999990)*f[12] + CONSTANT(0.162867503964999990)*f[2] + CONSTANT(0.098140130728100003)*f[30];
|
|
tg = CONSTANT(-0.203550726872999990)*g[12] + CONSTANT(0.162867503964999990)*g[2] + CONSTANT(0.098140130728100003)*g[30];
|
|
y[15] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[23] + f[23] * g[15];
|
|
y[12] += CONSTANT(-0.203550726872999990)*t;
|
|
y[2] += CONSTANT(0.162867503964999990)*t;
|
|
y[30] += CONSTANT(0.098140130728100003)*t;
|
|
|
|
// [15,33]: 6,20,
|
|
tf = CONSTANT(0.126792179874999990)*f[6] + CONSTANT(-0.196280261464999990)*f[20];
|
|
tg = CONSTANT(0.126792179874999990)*g[6] + CONSTANT(-0.196280261464999990)*g[20];
|
|
y[15] += tf*g[33] + tg*f[33];
|
|
y[33] += tf*g[15] + tg*f[15];
|
|
t = f[15] * g[33] + f[33] * g[15];
|
|
y[6] += CONSTANT(0.126792179874999990)*t;
|
|
y[20] += CONSTANT(-0.196280261464999990)*t;
|
|
|
|
// [16,16]: 0,6,20,
|
|
tf = CONSTANT(0.282094791763999990)*f[0] + CONSTANT(-0.229375683829000000)*f[6] + CONSTANT(0.106525305981000000)*f[20];
|
|
tg = CONSTANT(0.282094791763999990)*g[0] + CONSTANT(-0.229375683829000000)*g[6] + CONSTANT(0.106525305981000000)*g[20];
|
|
y[16] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[16];
|
|
y[0] += CONSTANT(0.282094791763999990)*t;
|
|
y[6] += CONSTANT(-0.229375683829000000)*t;
|
|
y[20] += CONSTANT(0.106525305981000000)*t;
|
|
|
|
// [16,18]: 8,22,
|
|
tf = CONSTANT(-0.075080816693699995)*f[8] + CONSTANT(0.135045473380000000)*f[22];
|
|
tg = CONSTANT(-0.075080816693699995)*g[8] + CONSTANT(0.135045473380000000)*g[22];
|
|
y[16] += tf*g[18] + tg*f[18];
|
|
y[18] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[18] + f[18] * g[16];
|
|
y[8] += CONSTANT(-0.075080816693699995)*t;
|
|
y[22] += CONSTANT(0.135045473380000000)*t;
|
|
|
|
// [16,23]: 19,5,
|
|
tf = CONSTANT(-0.119098912754999990)*f[19] + CONSTANT(0.140463346187999990)*f[5];
|
|
tg = CONSTANT(-0.119098912754999990)*g[19] + CONSTANT(0.140463346187999990)*g[5];
|
|
y[16] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[23] + f[23] * g[16];
|
|
y[19] += CONSTANT(-0.119098912754999990)*t;
|
|
y[5] += CONSTANT(0.140463346187999990)*t;
|
|
|
|
// [16,26]: 12,2,30,
|
|
tf = CONSTANT(-0.207723503645000000)*f[12] + CONSTANT(0.147319200325000010)*f[2] + CONSTANT(0.130197596199999990)*f[30];
|
|
tg = CONSTANT(-0.207723503645000000)*g[12] + CONSTANT(0.147319200325000010)*g[2] + CONSTANT(0.130197596199999990)*g[30];
|
|
y[16] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[26] + f[26] * g[16];
|
|
y[12] += CONSTANT(-0.207723503645000000)*t;
|
|
y[2] += CONSTANT(0.147319200325000010)*t;
|
|
y[30] += CONSTANT(0.130197596199999990)*t;
|
|
|
|
// [16,28]: 14,32,
|
|
tf = CONSTANT(-0.077413979111300005)*f[14] + CONSTANT(0.128376561115000010)*f[32];
|
|
tg = CONSTANT(-0.077413979111300005)*g[14] + CONSTANT(0.128376561115000010)*g[32];
|
|
y[16] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[28] + f[28] * g[16];
|
|
y[14] += CONSTANT(-0.077413979111300005)*t;
|
|
y[32] += CONSTANT(0.128376561115000010)*t;
|
|
|
|
// [16,29]: 15,33,35,
|
|
tf = CONSTANT(0.035835708931099997)*f[15] + CONSTANT(-0.118853600623999990)*f[33] + CONSTANT(-0.053152946071899999)*f[35];
|
|
tg = CONSTANT(0.035835708931099997)*g[15] + CONSTANT(-0.118853600623999990)*g[33] + CONSTANT(-0.053152946071899999)*g[35];
|
|
y[16] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[29] + f[29] * g[16];
|
|
y[15] += CONSTANT(0.035835708931099997)*t;
|
|
y[33] += CONSTANT(-0.118853600623999990)*t;
|
|
y[35] += CONSTANT(-0.053152946071899999)*t;
|
|
|
|
// [16,31]: 27,9,25,
|
|
tf = CONSTANT(-0.118853600623999990)*f[27] + CONSTANT(0.035835708931099997)*f[9] + CONSTANT(0.053152946071899999)*f[25];
|
|
tg = CONSTANT(-0.118853600623999990)*g[27] + CONSTANT(0.035835708931099997)*g[9] + CONSTANT(0.053152946071899999)*g[25];
|
|
y[16] += tf*g[31] + tg*f[31];
|
|
y[31] += tf*g[16] + tg*f[16];
|
|
t = f[16] * g[31] + f[31] * g[16];
|
|
y[27] += CONSTANT(-0.118853600623999990)*t;
|
|
y[9] += CONSTANT(0.035835708931099997)*t;
|
|
y[25] += CONSTANT(0.053152946071899999)*t;
|
|
|
|
// [17,17]: 0,6,20,
|
|
tf = CONSTANT(0.282094791768999990)*f[0] + CONSTANT(-0.057343920955899998)*f[6] + CONSTANT(-0.159787958979000000)*f[20];
|
|
tg = CONSTANT(0.282094791768999990)*g[0] + CONSTANT(-0.057343920955899998)*g[6] + CONSTANT(-0.159787958979000000)*g[20];
|
|
y[17] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[17];
|
|
y[0] += CONSTANT(0.282094791768999990)*t;
|
|
y[6] += CONSTANT(-0.057343920955899998)*t;
|
|
y[20] += CONSTANT(-0.159787958979000000)*t;
|
|
|
|
// [17,19]: 8,22,24,
|
|
tf = CONSTANT(-0.112621225039000000)*f[8] + CONSTANT(0.045015157794100001)*f[22] + CONSTANT(0.119098912753000000)*f[24];
|
|
tg = CONSTANT(-0.112621225039000000)*g[8] + CONSTANT(0.045015157794100001)*g[22] + CONSTANT(0.119098912753000000)*g[24];
|
|
y[17] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[19] + f[19] * g[17];
|
|
y[8] += CONSTANT(-0.112621225039000000)*t;
|
|
y[22] += CONSTANT(0.045015157794100001)*t;
|
|
y[24] += CONSTANT(0.119098912753000000)*t;
|
|
|
|
// [17,21]: 16,4,18,
|
|
tf = CONSTANT(-0.119098912754999990)*f[16] + CONSTANT(-0.112621225039000000)*f[4] + CONSTANT(0.045015157794399997)*f[18];
|
|
tg = CONSTANT(-0.119098912754999990)*g[16] + CONSTANT(-0.112621225039000000)*g[4] + CONSTANT(0.045015157794399997)*g[18];
|
|
y[17] += tf*g[21] + tg*f[21];
|
|
y[21] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[21] + f[21] * g[17];
|
|
y[16] += CONSTANT(-0.119098912754999990)*t;
|
|
y[4] += CONSTANT(-0.112621225039000000)*t;
|
|
y[18] += CONSTANT(0.045015157794399997)*t;
|
|
|
|
// [17,26]: 3,13,31,
|
|
tf = CONSTANT(0.208340811096000000)*f[3] + CONSTANT(0.029982305185199998)*f[13] + CONSTANT(-0.118853600623999990)*f[31];
|
|
tg = CONSTANT(0.208340811096000000)*g[3] + CONSTANT(0.029982305185199998)*g[13] + CONSTANT(-0.118853600623999990)*g[31];
|
|
y[17] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[26] + f[26] * g[17];
|
|
y[3] += CONSTANT(0.208340811096000000)*t;
|
|
y[13] += CONSTANT(0.029982305185199998)*t;
|
|
y[31] += CONSTANT(-0.118853600623999990)*t;
|
|
|
|
// [17,27]: 12,2,30,
|
|
tf = CONSTANT(-0.103861751821000010)*f[12] + CONSTANT(0.196425600433000000)*f[2] + CONSTANT(-0.130197596204999990)*f[30];
|
|
tg = CONSTANT(-0.103861751821000010)*g[12] + CONSTANT(0.196425600433000000)*g[2] + CONSTANT(-0.130197596204999990)*g[30];
|
|
y[17] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[27] + f[27] * g[17];
|
|
y[12] += CONSTANT(-0.103861751821000010)*t;
|
|
y[2] += CONSTANT(0.196425600433000000)*t;
|
|
y[30] += CONSTANT(-0.130197596204999990)*t;
|
|
|
|
// [17,28]: 13,3,31,35,
|
|
tf = CONSTANT(0.121172043789000000)*f[13] + CONSTANT(-0.060142811686500000)*f[3] + CONSTANT(0.034310079156700000)*f[31] + CONSTANT(0.099440056652200001)*f[35];
|
|
tg = CONSTANT(0.121172043789000000)*g[13] + CONSTANT(-0.060142811686500000)*g[3] + CONSTANT(0.034310079156700000)*g[31] + CONSTANT(0.099440056652200001)*g[35];
|
|
y[17] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[28] + f[28] * g[17];
|
|
y[13] += CONSTANT(0.121172043789000000)*t;
|
|
y[3] += CONSTANT(-0.060142811686500000)*t;
|
|
y[31] += CONSTANT(0.034310079156700000)*t;
|
|
y[35] += CONSTANT(0.099440056652200001)*t;
|
|
|
|
// [17,32]: 11,1,25,29,
|
|
tf = CONSTANT(0.121172043788000010)*f[11] + CONSTANT(-0.060142811686900000)*f[1] + CONSTANT(-0.099440056652700004)*f[25] + CONSTANT(0.034310079156599997)*f[29];
|
|
tg = CONSTANT(0.121172043788000010)*g[11] + CONSTANT(-0.060142811686900000)*g[1] + CONSTANT(-0.099440056652700004)*g[25] + CONSTANT(0.034310079156599997)*g[29];
|
|
y[17] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[32] + f[32] * g[17];
|
|
y[11] += CONSTANT(0.121172043788000010)*t;
|
|
y[1] += CONSTANT(-0.060142811686900000)*t;
|
|
y[25] += CONSTANT(-0.099440056652700004)*t;
|
|
y[29] += CONSTANT(0.034310079156599997)*t;
|
|
|
|
// [17,34]: 29,11,1,
|
|
tf = CONSTANT(0.118853600623000000)*f[29] + CONSTANT(-0.029982305185400002)*f[11] + CONSTANT(-0.208340811100000000)*f[1];
|
|
tg = CONSTANT(0.118853600623000000)*g[29] + CONSTANT(-0.029982305185400002)*g[11] + CONSTANT(-0.208340811100000000)*g[1];
|
|
y[17] += tf*g[34] + tg*f[34];
|
|
y[34] += tf*g[17] + tg*f[17];
|
|
t = f[17] * g[34] + f[34] * g[17];
|
|
y[29] += CONSTANT(0.118853600623000000)*t;
|
|
y[11] += CONSTANT(-0.029982305185400002)*t;
|
|
y[1] += CONSTANT(-0.208340811100000000)*t;
|
|
|
|
// [18,18]: 6,0,20,24,
|
|
tf = CONSTANT(0.065535909662600006)*f[6] + CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.083698454702400005)*f[20] + CONSTANT(-0.135045473384000000)*f[24];
|
|
tg = CONSTANT(0.065535909662600006)*g[6] + CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.083698454702400005)*g[20] + CONSTANT(-0.135045473384000000)*g[24];
|
|
y[18] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[18];
|
|
y[6] += CONSTANT(0.065535909662600006)*t;
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.083698454702400005)*t;
|
|
y[24] += CONSTANT(-0.135045473384000000)*t;
|
|
|
|
// [18,19]: 7,21,23,
|
|
tf = CONSTANT(0.090297865407399994)*f[7] + CONSTANT(0.102084782359000000)*f[21] + CONSTANT(-0.045015157794399997)*f[23];
|
|
tg = CONSTANT(0.090297865407399994)*g[7] + CONSTANT(0.102084782359000000)*g[21] + CONSTANT(-0.045015157794399997)*g[23];
|
|
y[18] += tf*g[19] + tg*f[19];
|
|
y[19] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[19] + f[19] * g[18];
|
|
y[7] += CONSTANT(0.090297865407399994)*t;
|
|
y[21] += CONSTANT(0.102084782359000000)*t;
|
|
y[23] += CONSTANT(-0.045015157794399997)*t;
|
|
|
|
// [18,25]: 15,33,
|
|
tf = CONSTANT(-0.098140130731999994)*f[15] + CONSTANT(0.130197596202000000)*f[33];
|
|
tg = CONSTANT(-0.098140130731999994)*g[15] + CONSTANT(0.130197596202000000)*g[33];
|
|
y[18] += tf*g[25] + tg*f[25];
|
|
y[25] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[25] + f[25] * g[18];
|
|
y[15] += CONSTANT(-0.098140130731999994)*t;
|
|
y[33] += CONSTANT(0.130197596202000000)*t;
|
|
|
|
// [18,26]: 14,32,
|
|
tf = CONSTANT(0.101358691174000000)*f[14] + CONSTANT(0.084042186965900004)*f[32];
|
|
tg = CONSTANT(0.101358691174000000)*g[14] + CONSTANT(0.084042186965900004)*g[32];
|
|
y[18] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[26] + f[26] * g[18];
|
|
y[14] += CONSTANT(0.101358691174000000)*t;
|
|
y[32] += CONSTANT(0.084042186965900004)*t;
|
|
|
|
// [18,27]: 13,3,35,
|
|
tf = CONSTANT(0.101990215611000000)*f[13] + CONSTANT(0.183739324705999990)*f[3] + CONSTANT(-0.130197596202000000)*f[35];
|
|
tg = CONSTANT(0.101990215611000000)*g[13] + CONSTANT(0.183739324705999990)*g[3] + CONSTANT(-0.130197596202000000)*g[35];
|
|
y[18] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[27] + f[27] * g[18];
|
|
y[13] += CONSTANT(0.101990215611000000)*t;
|
|
y[3] += CONSTANT(0.183739324705999990)*t;
|
|
y[35] += CONSTANT(-0.130197596202000000)*t;
|
|
|
|
// [18,28]: 2,12,30,34,
|
|
tf = CONSTANT(0.225033795606000010)*f[2] + CONSTANT(0.022664492358099999)*f[12] + CONSTANT(-0.099440056651100006)*f[30] + CONSTANT(-0.084042186968800003)*f[34];
|
|
tg = CONSTANT(0.225033795606000010)*g[2] + CONSTANT(0.022664492358099999)*g[12] + CONSTANT(-0.099440056651100006)*g[30] + CONSTANT(-0.084042186968800003)*g[34];
|
|
y[18] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[28] + f[28] * g[18];
|
|
y[2] += CONSTANT(0.225033795606000010)*t;
|
|
y[12] += CONSTANT(0.022664492358099999)*t;
|
|
y[30] += CONSTANT(-0.099440056651100006)*t;
|
|
y[34] += CONSTANT(-0.084042186968800003)*t;
|
|
|
|
// [18,29]: 3,13,15,31,
|
|
tf = CONSTANT(-0.085054779966799998)*f[3] + CONSTANT(0.075189952564900006)*f[13] + CONSTANT(0.101584686310000010)*f[15] + CONSTANT(0.097043558538999999)*f[31];
|
|
tg = CONSTANT(-0.085054779966799998)*g[3] + CONSTANT(0.075189952564900006)*g[13] + CONSTANT(0.101584686310000010)*g[15] + CONSTANT(0.097043558538999999)*g[31];
|
|
y[18] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[18] + tg*f[18];
|
|
t = f[18] * g[29] + f[29] * g[18];
|
|
y[3] += CONSTANT(-0.085054779966799998)*t;
|
|
y[13] += CONSTANT(0.075189952564900006)*t;
|
|
y[15] += CONSTANT(0.101584686310000010)*t;
|
|
y[31] += CONSTANT(0.097043558538999999)*t;
|
|
|
|
// [19,19]: 6,8,0,20,22,
|
|
tf = CONSTANT(0.139263808033999990)*f[6] + CONSTANT(-0.141889406570999990)*f[8] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.068480553847200004)*f[20] + CONSTANT(-0.102084782360000000)*f[22];
|
|
tg = CONSTANT(0.139263808033999990)*g[6] + CONSTANT(-0.141889406570999990)*g[8] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.068480553847200004)*g[20] + CONSTANT(-0.102084782360000000)*g[22];
|
|
y[19] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[19];
|
|
y[6] += CONSTANT(0.139263808033999990)*t;
|
|
y[8] += CONSTANT(-0.141889406570999990)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[20] += CONSTANT(0.068480553847200004)*t;
|
|
y[22] += CONSTANT(-0.102084782360000000)*t;
|
|
|
|
// [19,25]: 34,
|
|
tf = CONSTANT(-0.130197596205999990)*f[34];
|
|
tg = CONSTANT(-0.130197596205999990)*g[34];
|
|
y[19] += tf*g[25] + tg*f[25];
|
|
y[25] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[25] + f[25] * g[19];
|
|
y[34] += CONSTANT(-0.130197596205999990)*t;
|
|
|
|
// [19,26]: 15,35,
|
|
tf = CONSTANT(-0.131668802182000000)*f[15] + CONSTANT(0.130197596204999990)*f[35];
|
|
tg = CONSTANT(-0.131668802182000000)*g[15] + CONSTANT(0.130197596204999990)*g[35];
|
|
y[19] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[26] + f[26] * g[19];
|
|
y[15] += CONSTANT(-0.131668802182000000)*t;
|
|
y[35] += CONSTANT(0.130197596204999990)*t;
|
|
|
|
// [19,27]: 14,32,
|
|
tf = CONSTANT(0.025339672793899998)*f[14] + CONSTANT(0.084042186967699994)*f[32];
|
|
tg = CONSTANT(0.025339672793899998)*g[14] + CONSTANT(0.084042186967699994)*g[32];
|
|
y[19] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[27] + f[27] * g[19];
|
|
y[14] += CONSTANT(0.025339672793899998)*t;
|
|
y[32] += CONSTANT(0.084042186967699994)*t;
|
|
|
|
// [19,28]: 13,3,15,31,33,
|
|
tf = CONSTANT(0.104682806111000000)*f[13] + CONSTANT(0.159122922869999990)*f[3] + CONSTANT(-0.126698363970000010)*f[15] + CONSTANT(0.090775936911399999)*f[31] + CONSTANT(-0.084042186968400004)*f[33];
|
|
tg = CONSTANT(0.104682806111000000)*g[13] + CONSTANT(0.159122922869999990)*g[3] + CONSTANT(-0.126698363970000010)*g[15] + CONSTANT(0.090775936911399999)*g[31] + CONSTANT(-0.084042186968400004)*g[33];
|
|
y[19] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[28] + f[28] * g[19];
|
|
y[13] += CONSTANT(0.104682806111000000)*t;
|
|
y[3] += CONSTANT(0.159122922869999990)*t;
|
|
y[15] += CONSTANT(-0.126698363970000010)*t;
|
|
y[31] += CONSTANT(0.090775936911399999)*t;
|
|
y[33] += CONSTANT(-0.084042186968400004)*t;
|
|
|
|
// [19,29]: 12,14,2,30,32,
|
|
tf = CONSTANT(0.115089467124000010)*f[12] + CONSTANT(-0.097749909977199997)*f[14] + CONSTANT(0.240571246744999990)*f[2] + CONSTANT(0.053152946072499999)*f[30] + CONSTANT(-0.090775936912099994)*f[32];
|
|
tg = CONSTANT(0.115089467124000010)*g[12] + CONSTANT(-0.097749909977199997)*g[14] + CONSTANT(0.240571246744999990)*g[2] + CONSTANT(0.053152946072499999)*g[30] + CONSTANT(-0.090775936912099994)*g[32];
|
|
y[19] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[19] + tg*f[19];
|
|
t = f[19] * g[29] + f[29] * g[19];
|
|
y[12] += CONSTANT(0.115089467124000010)*t;
|
|
y[14] += CONSTANT(-0.097749909977199997)*t;
|
|
y[2] += CONSTANT(0.240571246744999990)*t;
|
|
y[30] += CONSTANT(0.053152946072499999)*t;
|
|
y[32] += CONSTANT(-0.090775936912099994)*t;
|
|
|
|
// [20,20]: 6,0,20,
|
|
tf = CONSTANT(0.163839797503000010)*f[6] + CONSTANT(0.282094802232000010)*f[0];
|
|
tg = CONSTANT(0.163839797503000010)*g[6] + CONSTANT(0.282094802232000010)*g[0];
|
|
y[20] += tf*g[20] + tg*f[20];
|
|
t = f[20] * g[20];
|
|
y[6] += CONSTANT(0.163839797503000010)*t;
|
|
y[0] += CONSTANT(0.282094802232000010)*t;
|
|
y[20] += CONSTANT(0.136961139005999990)*t;
|
|
|
|
// [21,21]: 6,20,0,8,22,
|
|
tf = CONSTANT(0.139263808033999990)*f[6] + CONSTANT(0.068480553847200004)*f[20] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(0.141889406570999990)*f[8] + CONSTANT(0.102084782360000000)*f[22];
|
|
tg = CONSTANT(0.139263808033999990)*g[6] + CONSTANT(0.068480553847200004)*g[20] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(0.141889406570999990)*g[8] + CONSTANT(0.102084782360000000)*g[22];
|
|
y[21] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[21];
|
|
y[6] += CONSTANT(0.139263808033999990)*t;
|
|
y[20] += CONSTANT(0.068480553847200004)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[8] += CONSTANT(0.141889406570999990)*t;
|
|
y[22] += CONSTANT(0.102084782360000000)*t;
|
|
|
|
// [21,23]: 8,22,24,
|
|
tf = CONSTANT(-0.112621225039000000)*f[8] + CONSTANT(0.045015157794100001)*f[22] + CONSTANT(-0.119098912753000000)*f[24];
|
|
tg = CONSTANT(-0.112621225039000000)*g[8] + CONSTANT(0.045015157794100001)*g[22] + CONSTANT(-0.119098912753000000)*g[24];
|
|
y[21] += tf*g[23] + tg*f[23];
|
|
y[23] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[23] + f[23] * g[21];
|
|
y[8] += CONSTANT(-0.112621225039000000)*t;
|
|
y[22] += CONSTANT(0.045015157794100001)*t;
|
|
y[24] += CONSTANT(-0.119098912753000000)*t;
|
|
|
|
// [21,26]: 9,25,
|
|
tf = CONSTANT(-0.131668802182000000)*f[9] + CONSTANT(-0.130197596204999990)*f[25];
|
|
tg = CONSTANT(-0.131668802182000000)*g[9] + CONSTANT(-0.130197596204999990)*g[25];
|
|
y[21] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[26] + f[26] * g[21];
|
|
y[9] += CONSTANT(-0.131668802182000000)*t;
|
|
y[25] += CONSTANT(-0.130197596204999990)*t;
|
|
|
|
// [21,28]: 27,1,11,9,29,
|
|
tf = CONSTANT(0.084042186968400004)*f[27] + CONSTANT(0.159122922869999990)*f[1] + CONSTANT(0.104682806111000000)*f[11] + CONSTANT(0.126698363970000010)*f[9] + CONSTANT(0.090775936911399999)*f[29];
|
|
tg = CONSTANT(0.084042186968400004)*g[27] + CONSTANT(0.159122922869999990)*g[1] + CONSTANT(0.104682806111000000)*g[11] + CONSTANT(0.126698363970000010)*g[9] + CONSTANT(0.090775936911399999)*g[29];
|
|
y[21] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[28] + f[28] * g[21];
|
|
y[27] += CONSTANT(0.084042186968400004)*t;
|
|
y[1] += CONSTANT(0.159122922869999990)*t;
|
|
y[11] += CONSTANT(0.104682806111000000)*t;
|
|
y[9] += CONSTANT(0.126698363970000010)*t;
|
|
y[29] += CONSTANT(0.090775936911399999)*t;
|
|
|
|
// [21,31]: 14,2,30,12,32,
|
|
tf = CONSTANT(0.097749909977199997)*f[14] + CONSTANT(0.240571246744999990)*f[2] + CONSTANT(0.053152946072499999)*f[30] + CONSTANT(0.115089467124000010)*f[12] + CONSTANT(0.090775936912099994)*f[32];
|
|
tg = CONSTANT(0.097749909977199997)*g[14] + CONSTANT(0.240571246744999990)*g[2] + CONSTANT(0.053152946072499999)*g[30] + CONSTANT(0.115089467124000010)*g[12] + CONSTANT(0.090775936912099994)*g[32];
|
|
y[21] += tf*g[31] + tg*f[31];
|
|
y[31] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[31] + f[31] * g[21];
|
|
y[14] += CONSTANT(0.097749909977199997)*t;
|
|
y[2] += CONSTANT(0.240571246744999990)*t;
|
|
y[30] += CONSTANT(0.053152946072499999)*t;
|
|
y[12] += CONSTANT(0.115089467124000010)*t;
|
|
y[32] += CONSTANT(0.090775936912099994)*t;
|
|
|
|
// [21,33]: 32,14,
|
|
tf = CONSTANT(0.084042186967699994)*f[32] + CONSTANT(0.025339672793899998)*f[14];
|
|
tg = CONSTANT(0.084042186967699994)*g[32] + CONSTANT(0.025339672793899998)*g[14];
|
|
y[21] += tf*g[33] + tg*f[33];
|
|
y[33] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[33] + f[33] * g[21];
|
|
y[32] += CONSTANT(0.084042186967699994)*t;
|
|
y[14] += CONSTANT(0.025339672793899998)*t;
|
|
|
|
// [21,34]: 35,
|
|
tf = CONSTANT(-0.130197596205999990)*f[35];
|
|
tg = CONSTANT(-0.130197596205999990)*g[35];
|
|
y[21] += tf*g[34] + tg*f[34];
|
|
y[34] += tf*g[21] + tg*f[21];
|
|
t = f[21] * g[34] + f[34] * g[21];
|
|
y[35] += CONSTANT(-0.130197596205999990)*t;
|
|
|
|
// [22,22]: 6,20,0,24,
|
|
tf = CONSTANT(0.065535909662600006)*f[6] + CONSTANT(-0.083698454702400005)*f[20] + CONSTANT(0.282094791771999980)*f[0] + CONSTANT(0.135045473384000000)*f[24];
|
|
tg = CONSTANT(0.065535909662600006)*g[6] + CONSTANT(-0.083698454702400005)*g[20] + CONSTANT(0.282094791771999980)*g[0] + CONSTANT(0.135045473384000000)*g[24];
|
|
y[22] += tf*g[22] + tg*f[22];
|
|
t = f[22] * g[22];
|
|
y[6] += CONSTANT(0.065535909662600006)*t;
|
|
y[20] += CONSTANT(-0.083698454702400005)*t;
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[24] += CONSTANT(0.135045473384000000)*t;
|
|
|
|
// [22,26]: 10,28,
|
|
tf = CONSTANT(0.101358691174000000)*f[10] + CONSTANT(0.084042186965900004)*f[28];
|
|
tg = CONSTANT(0.101358691174000000)*g[10] + CONSTANT(0.084042186965900004)*g[28];
|
|
y[22] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[22] + tg*f[22];
|
|
t = f[22] * g[26] + f[26] * g[22];
|
|
y[10] += CONSTANT(0.101358691174000000)*t;
|
|
y[28] += CONSTANT(0.084042186965900004)*t;
|
|
|
|
// [22,27]: 1,11,25,
|
|
tf = CONSTANT(0.183739324704000010)*f[1] + CONSTANT(0.101990215611000000)*f[11] + CONSTANT(0.130197596200999990)*f[25];
|
|
tg = CONSTANT(0.183739324704000010)*g[1] + CONSTANT(0.101990215611000000)*g[11] + CONSTANT(0.130197596200999990)*g[25];
|
|
y[22] += tf*g[27] + tg*f[27];
|
|
y[27] += tf*g[22] + tg*f[22];
|
|
t = f[22] * g[27] + f[27] * g[22];
|
|
y[1] += CONSTANT(0.183739324704000010)*t;
|
|
y[11] += CONSTANT(0.101990215611000000)*t;
|
|
y[25] += CONSTANT(0.130197596200999990)*t;
|
|
|
|
// [22,32]: 2,30,12,34,
|
|
tf = CONSTANT(0.225033795606000010)*f[2] + CONSTANT(-0.099440056651100006)*f[30] + CONSTANT(0.022664492358099999)*f[12] + CONSTANT(0.084042186968800003)*f[34];
|
|
tg = CONSTANT(0.225033795606000010)*g[2] + CONSTANT(-0.099440056651100006)*g[30] + CONSTANT(0.022664492358099999)*g[12] + CONSTANT(0.084042186968800003)*g[34];
|
|
y[22] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[22] + tg*f[22];
|
|
t = f[22] * g[32] + f[32] * g[22];
|
|
y[2] += CONSTANT(0.225033795606000010)*t;
|
|
y[30] += CONSTANT(-0.099440056651100006)*t;
|
|
y[12] += CONSTANT(0.022664492358099999)*t;
|
|
y[34] += CONSTANT(0.084042186968800003)*t;
|
|
|
|
// [22,33]: 3,13,35,
|
|
tf = CONSTANT(0.183739324704000010)*f[3] + CONSTANT(0.101990215611000000)*f[13] + CONSTANT(0.130197596200999990)*f[35];
|
|
tg = CONSTANT(0.183739324704000010)*g[3] + CONSTANT(0.101990215611000000)*g[13] + CONSTANT(0.130197596200999990)*g[35];
|
|
y[22] += tf*g[33] + tg*f[33];
|
|
y[33] += tf*g[22] + tg*f[22];
|
|
t = f[22] * g[33] + f[33] * g[22];
|
|
y[3] += CONSTANT(0.183739324704000010)*t;
|
|
y[13] += CONSTANT(0.101990215611000000)*t;
|
|
y[35] += CONSTANT(0.130197596200999990)*t;
|
|
|
|
// [23,23]: 6,20,0,
|
|
tf = CONSTANT(-0.057343920955899998)*f[6] + CONSTANT(-0.159787958979000000)*f[20] + CONSTANT(0.282094791768999990)*f[0];
|
|
tg = CONSTANT(-0.057343920955899998)*g[6] + CONSTANT(-0.159787958979000000)*g[20] + CONSTANT(0.282094791768999990)*g[0];
|
|
y[23] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[23];
|
|
y[6] += CONSTANT(-0.057343920955899998)*t;
|
|
y[20] += CONSTANT(-0.159787958979000000)*t;
|
|
y[0] += CONSTANT(0.282094791768999990)*t;
|
|
|
|
// [23,26]: 1,11,29,
|
|
tf = CONSTANT(0.208340811096000000)*f[1] + CONSTANT(0.029982305185199998)*f[11] + CONSTANT(-0.118853600623999990)*f[29];
|
|
tg = CONSTANT(0.208340811096000000)*g[1] + CONSTANT(0.029982305185199998)*g[11] + CONSTANT(-0.118853600623999990)*g[29];
|
|
y[23] += tf*g[26] + tg*f[26];
|
|
y[26] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[26] + f[26] * g[23];
|
|
y[1] += CONSTANT(0.208340811096000000)*t;
|
|
y[11] += CONSTANT(0.029982305185199998)*t;
|
|
y[29] += CONSTANT(-0.118853600623999990)*t;
|
|
|
|
// [23,28]: 25,11,1,29,
|
|
tf = CONSTANT(-0.099440056652200001)*f[25] + CONSTANT(-0.121172043789000000)*f[11] + CONSTANT(0.060142811686500000)*f[1] + CONSTANT(-0.034310079156700000)*f[29];
|
|
tg = CONSTANT(-0.099440056652200001)*g[25] + CONSTANT(-0.121172043789000000)*g[11] + CONSTANT(0.060142811686500000)*g[1] + CONSTANT(-0.034310079156700000)*g[29];
|
|
y[23] += tf*g[28] + tg*f[28];
|
|
y[28] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[28] + f[28] * g[23];
|
|
y[25] += CONSTANT(-0.099440056652200001)*t;
|
|
y[11] += CONSTANT(-0.121172043789000000)*t;
|
|
y[1] += CONSTANT(0.060142811686500000)*t;
|
|
y[29] += CONSTANT(-0.034310079156700000)*t;
|
|
|
|
// [23,32]: 31,13,3,35,
|
|
tf = CONSTANT(0.034310079156599997)*f[31] + CONSTANT(0.121172043788000010)*f[13] + CONSTANT(-0.060142811686900000)*f[3] + CONSTANT(-0.099440056652700004)*f[35];
|
|
tg = CONSTANT(0.034310079156599997)*g[31] + CONSTANT(0.121172043788000010)*g[13] + CONSTANT(-0.060142811686900000)*g[3] + CONSTANT(-0.099440056652700004)*g[35];
|
|
y[23] += tf*g[32] + tg*f[32];
|
|
y[32] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[32] + f[32] * g[23];
|
|
y[31] += CONSTANT(0.034310079156599997)*t;
|
|
y[13] += CONSTANT(0.121172043788000010)*t;
|
|
y[3] += CONSTANT(-0.060142811686900000)*t;
|
|
y[35] += CONSTANT(-0.099440056652700004)*t;
|
|
|
|
// [23,33]: 2,30,12,
|
|
tf = CONSTANT(0.196425600433000000)*f[2] + CONSTANT(-0.130197596204999990)*f[30] + CONSTANT(-0.103861751821000010)*f[12];
|
|
tg = CONSTANT(0.196425600433000000)*g[2] + CONSTANT(-0.130197596204999990)*g[30] + CONSTANT(-0.103861751821000010)*g[12];
|
|
y[23] += tf*g[33] + tg*f[33];
|
|
y[33] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[33] + f[33] * g[23];
|
|
y[2] += CONSTANT(0.196425600433000000)*t;
|
|
y[30] += CONSTANT(-0.130197596204999990)*t;
|
|
y[12] += CONSTANT(-0.103861751821000010)*t;
|
|
|
|
// [23,34]: 3,13,31,
|
|
tf = CONSTANT(0.208340811100000000)*f[3] + CONSTANT(0.029982305185400002)*f[13] + CONSTANT(-0.118853600623000000)*f[31];
|
|
tg = CONSTANT(0.208340811100000000)*g[3] + CONSTANT(0.029982305185400002)*g[13] + CONSTANT(-0.118853600623000000)*g[31];
|
|
y[23] += tf*g[34] + tg*f[34];
|
|
y[34] += tf*g[23] + tg*f[23];
|
|
t = f[23] * g[34] + f[34] * g[23];
|
|
y[3] += CONSTANT(0.208340811100000000)*t;
|
|
y[13] += CONSTANT(0.029982305185400002)*t;
|
|
y[31] += CONSTANT(-0.118853600623000000)*t;
|
|
|
|
// [24,24]: 6,0,20,
|
|
tf = CONSTANT(-0.229375683829000000)*f[6] + CONSTANT(0.282094791763999990)*f[0] + CONSTANT(0.106525305981000000)*f[20];
|
|
tg = CONSTANT(-0.229375683829000000)*g[6] + CONSTANT(0.282094791763999990)*g[0] + CONSTANT(0.106525305981000000)*g[20];
|
|
y[24] += tf*g[24] + tg*f[24];
|
|
t = f[24] * g[24];
|
|
y[6] += CONSTANT(-0.229375683829000000)*t;
|
|
y[0] += CONSTANT(0.282094791763999990)*t;
|
|
y[20] += CONSTANT(0.106525305981000000)*t;
|
|
|
|
// [24,29]: 9,27,25,
|
|
tf = CONSTANT(-0.035835708931400000)*f[9] + CONSTANT(0.118853600623000000)*f[27] + CONSTANT(0.053152946071199997)*f[25];
|
|
tg = CONSTANT(-0.035835708931400000)*g[9] + CONSTANT(0.118853600623000000)*g[27] + CONSTANT(0.053152946071199997)*g[25];
|
|
y[24] += tf*g[29] + tg*f[29];
|
|
y[29] += tf*g[24] + tg*f[24];
|
|
t = f[24] * g[29] + f[29] * g[24];
|
|
y[9] += CONSTANT(-0.035835708931400000)*t;
|
|
y[27] += CONSTANT(0.118853600623000000)*t;
|
|
y[25] += CONSTANT(0.053152946071199997)*t;
|
|
|
|
// [24,31]: 15,33,35,
|
|
tf = CONSTANT(0.035835708931400000)*f[15] + CONSTANT(-0.118853600623000000)*f[33] + CONSTANT(0.053152946071199997)*f[35];
|
|
tg = CONSTANT(0.035835708931400000)*g[15] + CONSTANT(-0.118853600623000000)*g[33] + CONSTANT(0.053152946071199997)*g[35];
|
|
y[24] += tf*g[31] + tg*f[31];
|
|
y[31] += tf*g[24] + tg*f[24];
|
|
t = f[24] * g[31] + f[31] * g[24];
|
|
y[15] += CONSTANT(0.035835708931400000)*t;
|
|
y[33] += CONSTANT(-0.118853600623000000)*t;
|
|
y[35] += CONSTANT(0.053152946071199997)*t;
|
|
|
|
// [24,34]: 12,30,2,
|
|
tf = CONSTANT(-0.207723503645000000)*f[12] + CONSTANT(0.130197596199999990)*f[30] + CONSTANT(0.147319200325000010)*f[2];
|
|
tg = CONSTANT(-0.207723503645000000)*g[12] + CONSTANT(0.130197596199999990)*g[30] + CONSTANT(0.147319200325000010)*g[2];
|
|
y[24] += tf*g[34] + tg*f[34];
|
|
y[34] += tf*g[24] + tg*f[24];
|
|
t = f[24] * g[34] + f[34] * g[24];
|
|
y[12] += CONSTANT(-0.207723503645000000)*t;
|
|
y[30] += CONSTANT(0.130197596199999990)*t;
|
|
y[2] += CONSTANT(0.147319200325000010)*t;
|
|
|
|
// [25,25]: 0,6,20,
|
|
tf = CONSTANT(0.282094791761999970)*f[0] + CONSTANT(-0.242608896358999990)*f[6] + CONSTANT(0.130197596198000000)*f[20];
|
|
tg = CONSTANT(0.282094791761999970)*g[0] + CONSTANT(-0.242608896358999990)*g[6] + CONSTANT(0.130197596198000000)*g[20];
|
|
y[25] += tf*g[25] + tg*f[25];
|
|
t = f[25] * g[25];
|
|
y[0] += CONSTANT(0.282094791761999970)*t;
|
|
y[6] += CONSTANT(-0.242608896358999990)*t;
|
|
y[20] += CONSTANT(0.130197596198000000)*t;
|
|
|
|
// [26,26]: 6,20,0,
|
|
tf = CONSTANT(-0.097043558542400002)*f[6] + CONSTANT(-0.130197596207000000)*f[20] + CONSTANT(0.282094791766000000)*f[0];
|
|
tg = CONSTANT(-0.097043558542400002)*g[6] + CONSTANT(-0.130197596207000000)*g[20] + CONSTANT(0.282094791766000000)*g[0];
|
|
y[26] += tf*g[26] + tg*f[26];
|
|
t = f[26] * g[26];
|
|
y[6] += CONSTANT(-0.097043558542400002)*t;
|
|
y[20] += CONSTANT(-0.130197596207000000)*t;
|
|
y[0] += CONSTANT(0.282094791766000000)*t;
|
|
|
|
// [27,27]: 0,20,6,
|
|
tf = CONSTANT(0.282094791770000020)*f[0] + CONSTANT(-0.130197596204999990)*f[20] + CONSTANT(0.016173926423100001)*f[6];
|
|
tg = CONSTANT(0.282094791770000020)*g[0] + CONSTANT(-0.130197596204999990)*g[20] + CONSTANT(0.016173926423100001)*g[6];
|
|
y[27] += tf*g[27] + tg*f[27];
|
|
t = f[27] * g[27];
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
y[20] += CONSTANT(-0.130197596204999990)*t;
|
|
y[6] += CONSTANT(0.016173926423100001)*t;
|
|
|
|
// [28,28]: 6,0,20,24,
|
|
tf = CONSTANT(0.097043558538800007)*f[6] + CONSTANT(0.282094791771999980)*f[0] + CONSTANT(-0.021699599367299999)*f[20] + CONSTANT(-0.128376561118000000)*f[24];
|
|
tg = CONSTANT(0.097043558538800007)*g[6] + CONSTANT(0.282094791771999980)*g[0] + CONSTANT(-0.021699599367299999)*g[20] + CONSTANT(-0.128376561118000000)*g[24];
|
|
y[28] += tf*g[28] + tg*f[28];
|
|
t = f[28] * g[28];
|
|
y[6] += CONSTANT(0.097043558538800007)*t;
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[20] += CONSTANT(-0.021699599367299999)*t;
|
|
y[24] += CONSTANT(-0.128376561118000000)*t;
|
|
|
|
// [29,29]: 20,6,0,22,8,
|
|
tf = CONSTANT(0.086798397468799998)*f[20] + CONSTANT(0.145565337808999990)*f[6] + CONSTANT(0.282094791773999990)*f[0] + CONSTANT(-0.097043558539500002)*f[22] + CONSTANT(-0.140070311615000000)*f[8];
|
|
tg = CONSTANT(0.086798397468799998)*g[20] + CONSTANT(0.145565337808999990)*g[6] + CONSTANT(0.282094791773999990)*g[0] + CONSTANT(-0.097043558539500002)*g[22] + CONSTANT(-0.140070311615000000)*g[8];
|
|
y[29] += tf*g[29] + tg*f[29];
|
|
t = f[29] * g[29];
|
|
y[20] += CONSTANT(0.086798397468799998)*t;
|
|
y[6] += CONSTANT(0.145565337808999990)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
y[22] += CONSTANT(-0.097043558539500002)*t;
|
|
y[8] += CONSTANT(-0.140070311615000000)*t;
|
|
|
|
// [30,30]: 0,20,6,
|
|
tf = CONSTANT(0.282094804531000000)*f[0] + CONSTANT(0.130197634486000000)*f[20] + CONSTANT(0.161739292769000010)*f[6];
|
|
tg = CONSTANT(0.282094804531000000)*g[0] + CONSTANT(0.130197634486000000)*g[20] + CONSTANT(0.161739292769000010)*g[6];
|
|
y[30] += tf*g[30] + tg*f[30];
|
|
t = f[30] * g[30];
|
|
y[0] += CONSTANT(0.282094804531000000)*t;
|
|
y[20] += CONSTANT(0.130197634486000000)*t;
|
|
y[6] += CONSTANT(0.161739292769000010)*t;
|
|
|
|
// [31,31]: 6,8,20,22,0,
|
|
tf = CONSTANT(0.145565337808999990)*f[6] + CONSTANT(0.140070311615000000)*f[8] + CONSTANT(0.086798397468799998)*f[20] + CONSTANT(0.097043558539500002)*f[22] + CONSTANT(0.282094791773999990)*f[0];
|
|
tg = CONSTANT(0.145565337808999990)*g[6] + CONSTANT(0.140070311615000000)*g[8] + CONSTANT(0.086798397468799998)*g[20] + CONSTANT(0.097043558539500002)*g[22] + CONSTANT(0.282094791773999990)*g[0];
|
|
y[31] += tf*g[31] + tg*f[31];
|
|
t = f[31] * g[31];
|
|
y[6] += CONSTANT(0.145565337808999990)*t;
|
|
y[8] += CONSTANT(0.140070311615000000)*t;
|
|
y[20] += CONSTANT(0.086798397468799998)*t;
|
|
y[22] += CONSTANT(0.097043558539500002)*t;
|
|
y[0] += CONSTANT(0.282094791773999990)*t;
|
|
|
|
// [32,32]: 0,24,20,6,
|
|
tf = CONSTANT(0.282094791771999980)*f[0] + CONSTANT(0.128376561118000000)*f[24] + CONSTANT(-0.021699599367299999)*f[20] + CONSTANT(0.097043558538800007)*f[6];
|
|
tg = CONSTANT(0.282094791771999980)*g[0] + CONSTANT(0.128376561118000000)*g[24] + CONSTANT(-0.021699599367299999)*g[20] + CONSTANT(0.097043558538800007)*g[6];
|
|
y[32] += tf*g[32] + tg*f[32];
|
|
t = f[32] * g[32];
|
|
y[0] += CONSTANT(0.282094791771999980)*t;
|
|
y[24] += CONSTANT(0.128376561118000000)*t;
|
|
y[20] += CONSTANT(-0.021699599367299999)*t;
|
|
y[6] += CONSTANT(0.097043558538800007)*t;
|
|
|
|
// [33,33]: 6,20,0,
|
|
tf = CONSTANT(0.016173926423100001)*f[6] + CONSTANT(-0.130197596204999990)*f[20] + CONSTANT(0.282094791770000020)*f[0];
|
|
tg = CONSTANT(0.016173926423100001)*g[6] + CONSTANT(-0.130197596204999990)*g[20] + CONSTANT(0.282094791770000020)*g[0];
|
|
y[33] += tf*g[33] + tg*f[33];
|
|
t = f[33] * g[33];
|
|
y[6] += CONSTANT(0.016173926423100001)*t;
|
|
y[20] += CONSTANT(-0.130197596204999990)*t;
|
|
y[0] += CONSTANT(0.282094791770000020)*t;
|
|
|
|
// [34,34]: 20,6,0,
|
|
tf = CONSTANT(-0.130197596207000000)*f[20] + CONSTANT(-0.097043558542400002)*f[6] + CONSTANT(0.282094791766000000)*f[0];
|
|
tg = CONSTANT(-0.130197596207000000)*g[20] + CONSTANT(-0.097043558542400002)*g[6] + CONSTANT(0.282094791766000000)*g[0];
|
|
y[34] += tf*g[34] + tg*f[34];
|
|
t = f[34] * g[34];
|
|
y[20] += CONSTANT(-0.130197596207000000)*t;
|
|
y[6] += CONSTANT(-0.097043558542400002)*t;
|
|
y[0] += CONSTANT(0.282094791766000000)*t;
|
|
|
|
// [35,35]: 6,0,20,
|
|
tf = CONSTANT(-0.242608896358999990)*f[6] + CONSTANT(0.282094791761999970)*f[0] + CONSTANT(0.130197596198000000)*f[20];
|
|
tg = CONSTANT(-0.242608896358999990)*g[6] + CONSTANT(0.282094791761999970)*g[0] + CONSTANT(0.130197596198000000)*g[20];
|
|
y[35] += tf*g[35] + tg*f[35];
|
|
t = f[35] * g[35];
|
|
y[6] += CONSTANT(-0.242608896358999990)*t;
|
|
y[0] += CONSTANT(0.282094791761999970)*t;
|
|
y[20] += CONSTANT(0.130197596198000000)*t;
|
|
|
|
// multiply count=2527
|
|
|
|
return y;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Evaluates a directional light and returns spectral SH data. The output
|
|
// vector is computed so that if the intensity of R/G/B is unit the resulting
|
|
// exit radiance of a point directly under the light on a diffuse object with
|
|
// an albedo of 1 would be 1.0. This will compute 3 spectral samples, resultR
|
|
// has to be specified, while resultG and resultB are optional.
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb204988.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
bool XM_CALLCONV DirectX::XMSHEvalDirectionalLight(
|
|
size_t order,
|
|
FXMVECTOR dir,
|
|
FXMVECTOR color,
|
|
float *resultR,
|
|
float *resultG,
|
|
float *resultB)
|
|
{
|
|
if (!resultR)
|
|
return false;
|
|
|
|
if (order < XM_SH_MINORDER || order > XM_SH_MAXORDER)
|
|
return false;
|
|
|
|
XMFLOAT3A clr;
|
|
XMStoreFloat3A(&clr, color);
|
|
|
|
float fTmp[XM_SH_MAXORDER * XM_SH_MAXORDER];
|
|
|
|
XMSHEvalDirection(fTmp, order, dir); // evaluate the BF in this direction...
|
|
|
|
// now compute "normalization" and scale vector for each valid spectral band
|
|
const float fNorm = XM_PI / CosWtInt(order);
|
|
|
|
const size_t numcoeff = order*order;
|
|
|
|
const float fRScale = fNorm * clr.x;
|
|
|
|
for (size_t i = 0; i < numcoeff; ++i)
|
|
{
|
|
resultR[i] = fTmp[i] * fRScale;
|
|
}
|
|
|
|
if (resultG)
|
|
{
|
|
const float fGScale = fNorm * clr.y;
|
|
|
|
for (size_t i = 0; i < numcoeff; ++i)
|
|
{
|
|
resultG[i] = fTmp[i] * fGScale;
|
|
}
|
|
}
|
|
|
|
if (resultB)
|
|
{
|
|
const float fBScale = fNorm * clr.z;
|
|
|
|
for (size_t i = 0; i < numcoeff; ++i)
|
|
{
|
|
resultB[i] = fTmp[i] * fBScale;
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
//------------------------------------------------------------------------------------
|
|
// Evaluates a spherical light and returns spectral SH data. There is no
|
|
// normalization of the intensity of the light like there is for directional
|
|
// lights, care has to be taken when specifiying the intensities. This will
|
|
// compute 3 spectral samples, resultR has to be specified, while resultG and
|
|
// resultB are optional.
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb205451.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
bool XM_CALLCONV DirectX::XMSHEvalSphericalLight(
|
|
size_t order,
|
|
FXMVECTOR pos,
|
|
float radius,
|
|
FXMVECTOR color,
|
|
float *resultR,
|
|
float *resultG,
|
|
float *resultB)
|
|
{
|
|
if (!resultR)
|
|
return false;
|
|
|
|
if (radius < 0.f)
|
|
return false;
|
|
|
|
const float fDist = XMVectorGetX(XMVector3Length(pos));
|
|
|
|
// WARNING: fDist should not be < radius - otherwise light contains origin
|
|
|
|
//const float fSinConeAngle = (fDist <= radius) ? 0.99999f : radius/fDist;
|
|
const float fConeAngle = (fDist <= radius) ? (XM_PIDIV2) : asinf(radius / fDist);
|
|
|
|
XMVECTOR dir = XMVector3Normalize(pos);
|
|
|
|
float fTmpDir[XM_SH_MAXORDER* XM_SH_MAXORDER]; // rotation "vector"
|
|
float fTmpL0[XM_SH_MAXORDER];
|
|
|
|
//
|
|
// Sphere at distance fDist, the cone angle is determined by looking at the
|
|
// right triangle with one side (the hypotenuse) beind the vector from the
|
|
// origin to the center of the sphere, another side is from the origin to
|
|
// a point on the sphere whose normal is perpendicular to the given side (this
|
|
// is one of the points on the cone that is defined by the projection of the sphere
|
|
// through the origin - we want to find the angle of this cone) and the final
|
|
// side being from the center of the sphere to the point of tagency (the two
|
|
// sides conected to this are at a right angle by construction.)
|
|
// From trig we know that sin(theta) = ||opposite||/||hypotenuse||, where
|
|
// ||opposite|| = Radius, ||hypotenuse|| = fDist
|
|
// theta is the angle of the cone that subtends the sphere from the origin
|
|
//
|
|
|
|
// no default normalization is done for this case, have to be careful how
|
|
// you represent the coefficients...
|
|
|
|
const float fNewNorm = 1.0f;///(fSinConeAngle*fSinConeAngle);
|
|
|
|
ComputeCapInt(order, fConeAngle, fTmpL0);
|
|
|
|
XMFLOAT3A vd;
|
|
XMStoreFloat3(&vd, dir);
|
|
|
|
const float fX = vd.x;
|
|
const float fY = vd.y;
|
|
const float fZ = vd.z;
|
|
|
|
switch (order)
|
|
{
|
|
case 2:
|
|
sh_eval_basis_1(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 3:
|
|
sh_eval_basis_2(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 4:
|
|
sh_eval_basis_3(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 5:
|
|
sh_eval_basis_4(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 6:
|
|
sh_eval_basis_5(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
default:
|
|
assert(order < XM_SH_MINORDER || order > XM_SH_MAXORDER);
|
|
return false;
|
|
}
|
|
|
|
XMFLOAT3A clr;
|
|
XMStoreFloat3A(&clr, color);
|
|
|
|
for (size_t i = 0; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * clr.x*fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultR[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
|
|
if (resultG)
|
|
{
|
|
for (size_t i = 0; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * clr.y*fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultG[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
}
|
|
|
|
if (resultB)
|
|
{
|
|
for (size_t i = 0; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * clr.z*fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultB[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------------------
|
|
// Evaluates a light that is a cone of constant intensity and returns spectral
|
|
// SH data. The output vector is computed so that if the intensity of R/G/B is
|
|
// unit the resulting exit radiance of a point directly under the light oriented
|
|
// in the cone direction on a diffuse object with an albedo of 1 would be 1.0.
|
|
// This will compute 3 spectral samples, resultR has to be specified, while resultG
|
|
// and resultB are optional.
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb204986.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
bool XM_CALLCONV DirectX::XMSHEvalConeLight(
|
|
size_t order,
|
|
FXMVECTOR dir,
|
|
float radius,
|
|
FXMVECTOR color,
|
|
float *resultR,
|
|
float *resultG,
|
|
float *resultB)
|
|
{
|
|
if (!resultR)
|
|
return false;
|
|
|
|
if (radius < 0.f || radius >(XM_PI*1.00001f))
|
|
return false;
|
|
|
|
if (radius < 0.0001f)
|
|
{
|
|
// turn it into a pure directional light...
|
|
return XMSHEvalDirectionalLight(order, dir, color, resultR, resultG, resultB);
|
|
}
|
|
else
|
|
{
|
|
float fTmpL0[XM_SH_MAXORDER];
|
|
float fTmpDir[XM_SH_MAXORDER * XM_SH_MAXORDER];
|
|
|
|
const float fConeAngle = radius;
|
|
const float fAngCheck = (fConeAngle > XM_PIDIV2) ? (XM_PIDIV2) : fConeAngle;
|
|
|
|
const float fNewNorm = 1.0f / (sinf(fAngCheck)*sinf(fAngCheck));
|
|
|
|
ComputeCapInt(order, fConeAngle, fTmpL0);
|
|
|
|
XMFLOAT3A vd;
|
|
XMStoreFloat3(&vd, dir);
|
|
|
|
const float fX = vd.x;
|
|
const float fY = vd.y;
|
|
const float fZ = vd.z;
|
|
|
|
switch (order)
|
|
{
|
|
case 2:
|
|
sh_eval_basis_1(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 3:
|
|
sh_eval_basis_2(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 4:
|
|
sh_eval_basis_3(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 5:
|
|
sh_eval_basis_4(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
case 6:
|
|
sh_eval_basis_5(fX, fY, fZ, fTmpDir);
|
|
break;
|
|
|
|
default:
|
|
assert(order < XM_SH_MINORDER || order > XM_SH_MAXORDER);
|
|
return false;
|
|
}
|
|
|
|
XMFLOAT3A clr;
|
|
XMStoreFloat3A(&clr, color);
|
|
|
|
for (size_t i = 0; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * clr.x*fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j)
|
|
resultR[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
|
|
if (resultG)
|
|
{
|
|
for (size_t i = 0; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * clr.y*fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j)
|
|
resultG[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
}
|
|
|
|
if (resultB)
|
|
{
|
|
for (size_t i = 0; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * clr.z*fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j)
|
|
resultB[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
//------------------------------------------------------------------------------------
|
|
// Evaluates a light that is a linear interpolant between two colors over the
|
|
// sphere. The interpolant is linear along the axis of the two points, not
|
|
// over the surface of the sphere (ie: if the axis was (0,0,1) it is linear in
|
|
// Z, not in the azimuthal angle.) The resulting spherical lighting function
|
|
// is normalized so that a point on a perfectly diffuse surface with no
|
|
// shadowing and a normal pointed in the direction pDir would result in exit
|
|
// radiance with a value of 1 if the top color was white and the bottom color
|
|
// was black. This is a very simple model where topColor represents the intensity
|
|
// of the "sky" and bottomColor represents the intensity of the "ground".
|
|
//
|
|
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb204989.aspx
|
|
//-------------------------------------------------------------------------------------
|
|
_Use_decl_annotations_
|
|
bool XM_CALLCONV DirectX::XMSHEvalHemisphereLight(
|
|
size_t order,
|
|
FXMVECTOR dir,
|
|
FXMVECTOR topColor,
|
|
FXMVECTOR bottomColor,
|
|
float *resultR,
|
|
float *resultG,
|
|
float *resultB)
|
|
{
|
|
if (!resultR)
|
|
return false;
|
|
|
|
if (order < XM_SH_MINORDER || order > XM_SH_MAXORDER)
|
|
return false;
|
|
|
|
// seperate "R/G/B colors...
|
|
|
|
float fTmpDir[XM_SH_MAXORDER * XM_SH_MAXORDER]; // rotation "vector"
|
|
float fTmpL0[XM_SH_MAXORDER];
|
|
|
|
const float fNewNorm = 3.0f / 2.0f; // normalizes things for 1 sky color, 0 ground color...
|
|
|
|
XMFLOAT3A vd;
|
|
XMStoreFloat3(&vd, dir);
|
|
|
|
const float fX = vd.x;
|
|
const float fY = vd.y;
|
|
const float fZ = vd.z;
|
|
|
|
sh_eval_basis_1(fX, fY, fZ, fTmpDir);
|
|
|
|
XMFLOAT3A clrTop;
|
|
XMStoreFloat3A(&clrTop, topColor);
|
|
|
|
XMFLOAT3A clrBottom;
|
|
XMStoreFloat3A(&clrBottom, bottomColor);
|
|
|
|
float fA = clrTop.x;
|
|
float fAvrg = (clrTop.x + clrBottom.x)*0.5f;
|
|
|
|
fTmpL0[0] = fAvrg*2.0f*SHEvalHemisphereLight_fSqrtPi;
|
|
fTmpL0[1] = (fA - fAvrg)*2.0f*SHEvalHemisphereLight_fSqrtPi3;
|
|
|
|
size_t i = 0;
|
|
for (; i < 2; ++i)
|
|
{
|
|
_Analysis_assume_(i < order);
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultR[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
|
|
for (; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultR[cStart + j] = 0.0f;
|
|
}
|
|
|
|
if (resultG)
|
|
{
|
|
fA = clrTop.y;
|
|
fAvrg = (clrTop.y + clrBottom.y)*0.5f;
|
|
|
|
fTmpL0[0] = fAvrg*2.0f*SHEvalHemisphereLight_fSqrtPi;
|
|
fTmpL0[1] = (fA - fAvrg)*2.0f*SHEvalHemisphereLight_fSqrtPi3;
|
|
|
|
for (i = 0; i < 2; ++i)
|
|
{
|
|
_Analysis_assume_(i < order);
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultG[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
|
|
for (; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultG[cStart + j] = 0.0f;
|
|
}
|
|
}
|
|
|
|
if (resultB)
|
|
{
|
|
fA = clrTop.z;
|
|
fAvrg = (clrTop.z + clrBottom.z)*0.5f;
|
|
|
|
fTmpL0[0] = fAvrg*2.0f*SHEvalHemisphereLight_fSqrtPi;
|
|
fTmpL0[1] = (fA - fAvrg)*2.0f*SHEvalHemisphereLight_fSqrtPi3;
|
|
|
|
for (i = 0; i < 2; ++i)
|
|
{
|
|
_Analysis_assume_(i < order);
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
const float fValUse = fTmpL0[i] * fNewNorm*fExtraNormFac[i];
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultB[cStart + j] = fTmpDir[cStart + j] * fValUse;
|
|
}
|
|
|
|
for (; i < order; ++i)
|
|
{
|
|
const size_t cNumCoefs = 2 * i + 1;
|
|
const size_t cStart = i*i;
|
|
for (size_t j = 0; j < cNumCoefs; ++j) resultB[cStart + j] = 0.0f;
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|