781 lines
22 KiB
JavaScript
781 lines
22 KiB
JavaScript
|
|
// order n
|
|
function SHEval(fX, fY, fZ, order)
|
|
{
|
|
return SHEvalFct[order - 3](fX, fY, fZ);
|
|
}
|
|
|
|
SHEvalFct = [
|
|
SHEval3,
|
|
SHEval4,
|
|
SHEval5,
|
|
SHEval6,
|
|
SHEval7,
|
|
SHEval8,
|
|
SHEval9,
|
|
SHEval10
|
|
];
|
|
|
|
// order 3
|
|
function SHEval3(fX, fY, fZ) {
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(9);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpC = 0.5462742152960395;
|
|
pSH[8] = fTmpC*fC1;
|
|
pSH[4] = fTmpC*fS1;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 4
|
|
function SHEval4(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(16);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpC = -0.5900435899266435;
|
|
pSH[15] = fTmpC*fC0;
|
|
pSH[9] = fTmpC*fS0;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 5
|
|
function SHEval5(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(25);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
pSH[20] = 1.984313483298443*fZ*pSH[12] + -1.006230589874905*pSH[6];
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fTmpA = fZ*(-4.683325804901025*fZ2 + 2.007139630671868);
|
|
pSH[21] = fTmpA*fC0;
|
|
pSH[19] = fTmpA*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fTmpC = 3.31161143515146*fZ2 + -0.47308734787878;
|
|
pSH[22] = fTmpC*fC1;
|
|
pSH[18] = fTmpC*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.5900435899266435;
|
|
pSH[15] = fTmpA*fC0;
|
|
pSH[9] = fTmpA*fS0;
|
|
fTmpB = -1.770130769779931*fZ;
|
|
pSH[23] = fTmpB*fC0;
|
|
pSH[17] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpC = 0.6258357354491763;
|
|
pSH[24] = fTmpC*fC1;
|
|
pSH[16] = fTmpC*fS1;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 6
|
|
function SHEval6(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(36);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
pSH[20] = 1.984313483298443*fZ*pSH[12] + -1.006230589874905*pSH[6];
|
|
pSH[30] = 1.98997487421324*fZ*pSH[20] + -1.002853072844814*pSH[12];
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fTmpA = fZ*(-4.683325804901025*fZ2 + 2.007139630671868);
|
|
pSH[21] = fTmpA*fC0;
|
|
pSH[19] = fTmpA*fS0;
|
|
fTmpB = 2.03100960115899*fZ*fTmpA + -0.991031208965115*fTmpC;
|
|
pSH[31] = fTmpB*fC0;
|
|
pSH[29] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fTmpC = 3.31161143515146*fZ2 + -0.47308734787878;
|
|
pSH[22] = fTmpC*fC1;
|
|
pSH[18] = fTmpC*fS1;
|
|
fTmpA = fZ*(7.190305177459987*fZ2 + -2.396768392486662);
|
|
pSH[32] = fTmpA*fC1;
|
|
pSH[28] = fTmpA*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.5900435899266435;
|
|
pSH[15] = fTmpA*fC0;
|
|
pSH[9] = fTmpA*fS0;
|
|
fTmpB = -1.770130769779931*fZ;
|
|
pSH[23] = fTmpB*fC0;
|
|
pSH[17] = fTmpB*fS0;
|
|
fTmpC = -4.403144694917254*fZ2 + 0.4892382994352505;
|
|
pSH[33] = fTmpC*fC0;
|
|
pSH[27] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6258357354491763;
|
|
pSH[24] = fTmpA*fC1;
|
|
pSH[16] = fTmpA*fS1;
|
|
fTmpB = 2.075662314881041*fZ;
|
|
pSH[34] = fTmpB*fC1;
|
|
pSH[26] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpC = -0.6563820568401703;
|
|
pSH[35] = fTmpC*fC0;
|
|
pSH[25] = fTmpC*fS0;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 7
|
|
function SHEval7(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(49);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
pSH[20] = 1.984313483298443*fZ*pSH[12] + -1.006230589874905*pSH[6];
|
|
pSH[30] = 1.98997487421324*fZ*pSH[20] + -1.002853072844814*pSH[12];
|
|
pSH[42] = 1.993043457183567*fZ*pSH[30] + -1.001542020962219*pSH[20];
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fTmpA = fZ*(-4.683325804901025*fZ2 + 2.007139630671868);
|
|
pSH[21] = fTmpA*fC0;
|
|
pSH[19] = fTmpA*fS0;
|
|
fTmpB = 2.03100960115899*fZ*fTmpA + -0.991031208965115*fTmpC;
|
|
pSH[31] = fTmpB*fC0;
|
|
pSH[29] = fTmpB*fS0;
|
|
fTmpC = 2.021314989237028*fZ*fTmpB + -0.9952267030562385*fTmpA;
|
|
pSH[43] = fTmpC*fC0;
|
|
pSH[41] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fTmpC = 3.31161143515146*fZ2 + -0.47308734787878;
|
|
pSH[22] = fTmpC*fC1;
|
|
pSH[18] = fTmpC*fS1;
|
|
fTmpA = fZ*(7.190305177459987*fZ2 + -2.396768392486662);
|
|
pSH[32] = fTmpA*fC1;
|
|
pSH[28] = fTmpA*fS1;
|
|
fTmpB = 2.11394181566097*fZ*fTmpA + -0.9736101204623268*fTmpC;
|
|
pSH[44] = fTmpB*fC1;
|
|
pSH[40] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.5900435899266435;
|
|
pSH[15] = fTmpA*fC0;
|
|
pSH[9] = fTmpA*fS0;
|
|
fTmpB = -1.770130769779931*fZ;
|
|
pSH[23] = fTmpB*fC0;
|
|
pSH[17] = fTmpB*fS0;
|
|
fTmpC = -4.403144694917254*fZ2 + 0.4892382994352505;
|
|
pSH[33] = fTmpC*fC0;
|
|
pSH[27] = fTmpC*fS0;
|
|
fTmpA = fZ*(-10.13325785466416*fZ2 + 2.763615778544771);
|
|
pSH[45] = fTmpA*fC0;
|
|
pSH[39] = fTmpA*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6258357354491763;
|
|
pSH[24] = fTmpA*fC1;
|
|
pSH[16] = fTmpA*fS1;
|
|
fTmpB = 2.075662314881041*fZ;
|
|
pSH[34] = fTmpB*fC1;
|
|
pSH[26] = fTmpB*fS1;
|
|
fTmpC = 5.550213908015966*fZ2 + -0.5045649007287241;
|
|
pSH[46] = fTmpC*fC1;
|
|
pSH[38] = fTmpC*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.6563820568401703;
|
|
pSH[35] = fTmpA*fC0;
|
|
pSH[25] = fTmpA*fS0;
|
|
fTmpB = -2.366619162231753*fZ;
|
|
pSH[47] = fTmpB*fC0;
|
|
pSH[37] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpC = 0.6831841051919144;
|
|
pSH[48] = fTmpC*fC1;
|
|
pSH[36] = fTmpC*fS1;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 8
|
|
function SHEval8(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(64);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
pSH[20] = 1.984313483298443*fZ*pSH[12] + -1.006230589874905*pSH[6];
|
|
pSH[30] = 1.98997487421324*fZ*pSH[20] + -1.002853072844814*pSH[12];
|
|
pSH[42] = 1.993043457183567*fZ*pSH[30] + -1.001542020962219*pSH[20];
|
|
pSH[56] = 1.994891434824135*fZ*pSH[42] + -1.000927213921958*pSH[30];
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fTmpA = fZ*(-4.683325804901025*fZ2 + 2.007139630671868);
|
|
pSH[21] = fTmpA*fC0;
|
|
pSH[19] = fTmpA*fS0;
|
|
fTmpB = 2.03100960115899*fZ*fTmpA + -0.991031208965115*fTmpC;
|
|
pSH[31] = fTmpB*fC0;
|
|
pSH[29] = fTmpB*fS0;
|
|
fTmpC = 2.021314989237028*fZ*fTmpB + -0.9952267030562385*fTmpA;
|
|
pSH[43] = fTmpC*fC0;
|
|
pSH[41] = fTmpC*fS0;
|
|
fTmpA = 2.015564437074638*fZ*fTmpC + -0.9971550440218319*fTmpB;
|
|
pSH[57] = fTmpA*fC0;
|
|
pSH[55] = fTmpA*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fTmpC = 3.31161143515146*fZ2 + -0.47308734787878;
|
|
pSH[22] = fTmpC*fC1;
|
|
pSH[18] = fTmpC*fS1;
|
|
fTmpA = fZ*(7.190305177459987*fZ2 + -2.396768392486662);
|
|
pSH[32] = fTmpA*fC1;
|
|
pSH[28] = fTmpA*fS1;
|
|
fTmpB = 2.11394181566097*fZ*fTmpA + -0.9736101204623268*fTmpC;
|
|
pSH[44] = fTmpB*fC1;
|
|
pSH[40] = fTmpB*fS1;
|
|
fTmpC = 2.081665999466133*fZ*fTmpB + -0.9847319278346618*fTmpA;
|
|
pSH[58] = fTmpC*fC1;
|
|
pSH[54] = fTmpC*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.5900435899266435;
|
|
pSH[15] = fTmpA*fC0;
|
|
pSH[9] = fTmpA*fS0;
|
|
fTmpB = -1.770130769779931*fZ;
|
|
pSH[23] = fTmpB*fC0;
|
|
pSH[17] = fTmpB*fS0;
|
|
fTmpC = -4.403144694917254*fZ2 + 0.4892382994352505;
|
|
pSH[33] = fTmpC*fC0;
|
|
pSH[27] = fTmpC*fS0;
|
|
fTmpA = fZ*(-10.13325785466416*fZ2 + 2.763615778544771);
|
|
pSH[45] = fTmpA*fC0;
|
|
pSH[39] = fTmpA*fS0;
|
|
fTmpB = 2.207940216581962*fZ*fTmpA + -0.959403223600247*fTmpC;
|
|
pSH[59] = fTmpB*fC0;
|
|
pSH[53] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6258357354491763;
|
|
pSH[24] = fTmpA*fC1;
|
|
pSH[16] = fTmpA*fS1;
|
|
fTmpB = 2.075662314881041*fZ;
|
|
pSH[34] = fTmpB*fC1;
|
|
pSH[26] = fTmpB*fS1;
|
|
fTmpC = 5.550213908015966*fZ2 + -0.5045649007287241;
|
|
pSH[46] = fTmpC*fC1;
|
|
pSH[38] = fTmpC*fS1;
|
|
fTmpA = fZ*(13.49180504672677*fZ2 + -3.113493472321562);
|
|
pSH[60] = fTmpA*fC1;
|
|
pSH[52] = fTmpA*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.6563820568401703;
|
|
pSH[35] = fTmpA*fC0;
|
|
pSH[25] = fTmpA*fS0;
|
|
fTmpB = -2.366619162231753*fZ;
|
|
pSH[47] = fTmpB*fC0;
|
|
pSH[37] = fTmpB*fS0;
|
|
fTmpC = -6.745902523363385*fZ2 + 0.5189155787202604;
|
|
pSH[61] = fTmpC*fC0;
|
|
pSH[51] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6831841051919144;
|
|
pSH[48] = fTmpA*fC1;
|
|
pSH[36] = fTmpA*fS1;
|
|
fTmpB = 2.645960661801901*fZ;
|
|
pSH[62] = fTmpB*fC1;
|
|
pSH[50] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpC = -0.7071627325245963;
|
|
pSH[63] = fTmpC*fC0;
|
|
pSH[49] = fTmpC*fS0;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 9
|
|
function SHEval9(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(81);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
pSH[20] = 1.984313483298443*fZ*pSH[12] + -1.006230589874905*pSH[6];
|
|
pSH[30] = 1.98997487421324*fZ*pSH[20] + -1.002853072844814*pSH[12];
|
|
pSH[42] = 1.993043457183567*fZ*pSH[30] + -1.001542020962219*pSH[20];
|
|
pSH[56] = 1.994891434824135*fZ*pSH[42] + -1.000927213921958*pSH[30];
|
|
pSH[72] = 1.996089927833914*fZ*pSH[56] + -1.000600781069515*pSH[42];
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fTmpA = fZ*(-4.683325804901025*fZ2 + 2.007139630671868);
|
|
pSH[21] = fTmpA*fC0;
|
|
pSH[19] = fTmpA*fS0;
|
|
fTmpB = 2.03100960115899*fZ*fTmpA + -0.991031208965115*fTmpC;
|
|
pSH[31] = fTmpB*fC0;
|
|
pSH[29] = fTmpB*fS0;
|
|
fTmpC = 2.021314989237028*fZ*fTmpB + -0.9952267030562385*fTmpA;
|
|
pSH[43] = fTmpC*fC0;
|
|
pSH[41] = fTmpC*fS0;
|
|
fTmpA = 2.015564437074638*fZ*fTmpC + -0.9971550440218319*fTmpB;
|
|
pSH[57] = fTmpA*fC0;
|
|
pSH[55] = fTmpA*fS0;
|
|
fTmpB = 2.011869540407391*fZ*fTmpA + -0.9981668178901745*fTmpC;
|
|
pSH[73] = fTmpB*fC0;
|
|
pSH[71] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fTmpC = 3.31161143515146*fZ2 + -0.47308734787878;
|
|
pSH[22] = fTmpC*fC1;
|
|
pSH[18] = fTmpC*fS1;
|
|
fTmpA = fZ*(7.190305177459987*fZ2 + -2.396768392486662);
|
|
pSH[32] = fTmpA*fC1;
|
|
pSH[28] = fTmpA*fS1;
|
|
fTmpB = 2.11394181566097*fZ*fTmpA + -0.9736101204623268*fTmpC;
|
|
pSH[44] = fTmpB*fC1;
|
|
pSH[40] = fTmpB*fS1;
|
|
fTmpC = 2.081665999466133*fZ*fTmpB + -0.9847319278346618*fTmpA;
|
|
pSH[58] = fTmpC*fC1;
|
|
pSH[54] = fTmpC*fS1;
|
|
fTmpA = 2.06155281280883*fZ*fTmpC + -0.9903379376602873*fTmpB;
|
|
pSH[74] = fTmpA*fC1;
|
|
pSH[70] = fTmpA*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.5900435899266435;
|
|
pSH[15] = fTmpA*fC0;
|
|
pSH[9] = fTmpA*fS0;
|
|
fTmpB = -1.770130769779931*fZ;
|
|
pSH[23] = fTmpB*fC0;
|
|
pSH[17] = fTmpB*fS0;
|
|
fTmpC = -4.403144694917254*fZ2 + 0.4892382994352505;
|
|
pSH[33] = fTmpC*fC0;
|
|
pSH[27] = fTmpC*fS0;
|
|
fTmpA = fZ*(-10.13325785466416*fZ2 + 2.763615778544771);
|
|
pSH[45] = fTmpA*fC0;
|
|
pSH[39] = fTmpA*fS0;
|
|
fTmpB = 2.207940216581962*fZ*fTmpA + -0.959403223600247*fTmpC;
|
|
pSH[59] = fTmpB*fC0;
|
|
pSH[53] = fTmpB*fS0;
|
|
fTmpC = 2.15322168769582*fZ*fTmpB + -0.9752173865600178*fTmpA;
|
|
pSH[75] = fTmpC*fC0;
|
|
pSH[69] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6258357354491763;
|
|
pSH[24] = fTmpA*fC1;
|
|
pSH[16] = fTmpA*fS1;
|
|
fTmpB = 2.075662314881041*fZ;
|
|
pSH[34] = fTmpB*fC1;
|
|
pSH[26] = fTmpB*fS1;
|
|
fTmpC = 5.550213908015966*fZ2 + -0.5045649007287241;
|
|
pSH[46] = fTmpC*fC1;
|
|
pSH[38] = fTmpC*fS1;
|
|
fTmpA = fZ*(13.49180504672677*fZ2 + -3.113493472321562);
|
|
pSH[60] = fTmpA*fC1;
|
|
pSH[52] = fTmpA*fS1;
|
|
fTmpB = 2.304886114323221*fZ*fTmpA + -0.9481763873554654*fTmpC;
|
|
pSH[76] = fTmpB*fC1;
|
|
pSH[68] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.6563820568401703;
|
|
pSH[35] = fTmpA*fC0;
|
|
pSH[25] = fTmpA*fS0;
|
|
fTmpB = -2.366619162231753*fZ;
|
|
pSH[47] = fTmpB*fC0;
|
|
pSH[37] = fTmpB*fS0;
|
|
fTmpC = -6.745902523363385*fZ2 + 0.5189155787202604;
|
|
pSH[61] = fTmpC*fC0;
|
|
pSH[51] = fTmpC*fS0;
|
|
fTmpA = fZ*(-17.24955311049054*fZ2 + 3.449910622098108);
|
|
pSH[77] = fTmpA*fC0;
|
|
pSH[67] = fTmpA*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6831841051919144;
|
|
pSH[48] = fTmpA*fC1;
|
|
pSH[36] = fTmpA*fS1;
|
|
fTmpB = 2.645960661801901*fZ;
|
|
pSH[62] = fTmpB*fC1;
|
|
pSH[50] = fTmpB*fS1;
|
|
fTmpC = 7.984991490893139*fZ2 + -0.5323327660595426;
|
|
pSH[78] = fTmpC*fC1;
|
|
pSH[66] = fTmpC*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.7071627325245963;
|
|
pSH[63] = fTmpA*fC0;
|
|
pSH[49] = fTmpA*fS0;
|
|
fTmpB = -2.91570664069932*fZ;
|
|
pSH[79] = fTmpB*fC0;
|
|
pSH[65] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpC = 0.72892666017483;
|
|
pSH[80] = fTmpC*fC1;
|
|
pSH[64] = fTmpC*fS1;
|
|
|
|
return pSH;
|
|
}
|
|
|
|
// order 10
|
|
function SHEval10(fX, fY, fZ)
|
|
{
|
|
var fC0,fC1,fS0,fS1,fTmpA,fTmpB,fTmpC;
|
|
var fZ2 = fZ*fZ;
|
|
var pSH = new Array(100);
|
|
|
|
pSH[0] = 0.2820947917738781;
|
|
pSH[2] = 0.4886025119029199*fZ;
|
|
pSH[6] = 0.9461746957575601*fZ2 + -0.3153915652525201;
|
|
pSH[12] = fZ*(1.865881662950577*fZ2 + -1.119528997770346);
|
|
pSH[20] = 1.984313483298443*fZ*pSH[12] + -1.006230589874905*pSH[6];
|
|
pSH[30] = 1.98997487421324*fZ*pSH[20] + -1.002853072844814*pSH[12];
|
|
pSH[42] = 1.993043457183567*fZ*pSH[30] + -1.001542020962219*pSH[20];
|
|
pSH[56] = 1.994891434824135*fZ*pSH[42] + -1.000927213921958*pSH[30];
|
|
pSH[72] = 1.996089927833914*fZ*pSH[56] + -1.000600781069515*pSH[42];
|
|
pSH[90] = 1.996911195067937*fZ*pSH[72] + -1.000411437993134*pSH[56];
|
|
fC0 = fX;
|
|
fS0 = fY;
|
|
|
|
fTmpA = -0.48860251190292;
|
|
pSH[3] = fTmpA*fC0;
|
|
pSH[1] = fTmpA*fS0;
|
|
fTmpB = -1.092548430592079*fZ;
|
|
pSH[7] = fTmpB*fC0;
|
|
pSH[5] = fTmpB*fS0;
|
|
fTmpC = -2.285228997322329*fZ2 + 0.4570457994644658;
|
|
pSH[13] = fTmpC*fC0;
|
|
pSH[11] = fTmpC*fS0;
|
|
fTmpA = fZ*(-4.683325804901025*fZ2 + 2.007139630671868);
|
|
pSH[21] = fTmpA*fC0;
|
|
pSH[19] = fTmpA*fS0;
|
|
fTmpB = 2.03100960115899*fZ*fTmpA + -0.991031208965115*fTmpC;
|
|
pSH[31] = fTmpB*fC0;
|
|
pSH[29] = fTmpB*fS0;
|
|
fTmpC = 2.021314989237028*fZ*fTmpB + -0.9952267030562385*fTmpA;
|
|
pSH[43] = fTmpC*fC0;
|
|
pSH[41] = fTmpC*fS0;
|
|
fTmpA = 2.015564437074638*fZ*fTmpC + -0.9971550440218319*fTmpB;
|
|
pSH[57] = fTmpA*fC0;
|
|
pSH[55] = fTmpA*fS0;
|
|
fTmpB = 2.011869540407391*fZ*fTmpA + -0.9981668178901745*fTmpC;
|
|
pSH[73] = fTmpB*fC0;
|
|
pSH[71] = fTmpB*fS0;
|
|
fTmpC = 2.009353129741012*fZ*fTmpB + -0.9987492177719088*fTmpA;
|
|
pSH[91] = fTmpC*fC0;
|
|
pSH[89] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.5462742152960395;
|
|
pSH[8] = fTmpA*fC1;
|
|
pSH[4] = fTmpA*fS1;
|
|
fTmpB = 1.445305721320277*fZ;
|
|
pSH[14] = fTmpB*fC1;
|
|
pSH[10] = fTmpB*fS1;
|
|
fTmpC = 3.31161143515146*fZ2 + -0.47308734787878;
|
|
pSH[22] = fTmpC*fC1;
|
|
pSH[18] = fTmpC*fS1;
|
|
fTmpA = fZ*(7.190305177459987*fZ2 + -2.396768392486662);
|
|
pSH[32] = fTmpA*fC1;
|
|
pSH[28] = fTmpA*fS1;
|
|
fTmpB = 2.11394181566097*fZ*fTmpA + -0.9736101204623268*fTmpC;
|
|
pSH[44] = fTmpB*fC1;
|
|
pSH[40] = fTmpB*fS1;
|
|
fTmpC = 2.081665999466133*fZ*fTmpB + -0.9847319278346618*fTmpA;
|
|
pSH[58] = fTmpC*fC1;
|
|
pSH[54] = fTmpC*fS1;
|
|
fTmpA = 2.06155281280883*fZ*fTmpC + -0.9903379376602873*fTmpB;
|
|
pSH[74] = fTmpA*fC1;
|
|
pSH[70] = fTmpA*fS1;
|
|
fTmpB = 2.048122358357819*fZ*fTmpA + -0.9934852726704042*fTmpC;
|
|
pSH[92] = fTmpB*fC1;
|
|
pSH[88] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.5900435899266435;
|
|
pSH[15] = fTmpA*fC0;
|
|
pSH[9] = fTmpA*fS0;
|
|
fTmpB = -1.770130769779931*fZ;
|
|
pSH[23] = fTmpB*fC0;
|
|
pSH[17] = fTmpB*fS0;
|
|
fTmpC = -4.403144694917254*fZ2 + 0.4892382994352505;
|
|
pSH[33] = fTmpC*fC0;
|
|
pSH[27] = fTmpC*fS0;
|
|
fTmpA = fZ*(-10.13325785466416*fZ2 + 2.763615778544771);
|
|
pSH[45] = fTmpA*fC0;
|
|
pSH[39] = fTmpA*fS0;
|
|
fTmpB = 2.207940216581962*fZ*fTmpA + -0.959403223600247*fTmpC;
|
|
pSH[59] = fTmpB*fC0;
|
|
pSH[53] = fTmpB*fS0;
|
|
fTmpC = 2.15322168769582*fZ*fTmpB + -0.9752173865600178*fTmpA;
|
|
pSH[75] = fTmpC*fC0;
|
|
pSH[69] = fTmpC*fS0;
|
|
fTmpA = 2.118044171189805*fZ*fTmpC + -0.9836628449792094*fTmpB;
|
|
pSH[93] = fTmpA*fC0;
|
|
pSH[87] = fTmpA*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6258357354491763;
|
|
pSH[24] = fTmpA*fC1;
|
|
pSH[16] = fTmpA*fS1;
|
|
fTmpB = 2.075662314881041*fZ;
|
|
pSH[34] = fTmpB*fC1;
|
|
pSH[26] = fTmpB*fS1;
|
|
fTmpC = 5.550213908015966*fZ2 + -0.5045649007287241;
|
|
pSH[46] = fTmpC*fC1;
|
|
pSH[38] = fTmpC*fS1;
|
|
fTmpA = fZ*(13.49180504672677*fZ2 + -3.113493472321562);
|
|
pSH[60] = fTmpA*fC1;
|
|
pSH[52] = fTmpA*fS1;
|
|
fTmpB = 2.304886114323221*fZ*fTmpA + -0.9481763873554654*fTmpC;
|
|
pSH[76] = fTmpB*fC1;
|
|
pSH[68] = fTmpB*fS1;
|
|
fTmpC = 2.229177150706235*fZ*fTmpB + -0.9671528397231821*fTmpA;
|
|
pSH[94] = fTmpC*fC1;
|
|
pSH[86] = fTmpC*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.6563820568401703;
|
|
pSH[35] = fTmpA*fC0;
|
|
pSH[25] = fTmpA*fS0;
|
|
fTmpB = -2.366619162231753*fZ;
|
|
pSH[47] = fTmpB*fC0;
|
|
pSH[37] = fTmpB*fS0;
|
|
fTmpC = -6.745902523363385*fZ2 + 0.5189155787202604;
|
|
pSH[61] = fTmpC*fC0;
|
|
pSH[51] = fTmpC*fS0;
|
|
fTmpA = fZ*(-17.24955311049054*fZ2 + 3.449910622098108);
|
|
pSH[77] = fTmpA*fC0;
|
|
pSH[67] = fTmpA*fS0;
|
|
fTmpB = 2.401636346922062*fZ*fTmpA + -0.9392246042043708*fTmpC;
|
|
pSH[95] = fTmpB*fC0;
|
|
pSH[85] = fTmpB*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.6831841051919144;
|
|
pSH[48] = fTmpA*fC1;
|
|
pSH[36] = fTmpA*fS1;
|
|
fTmpB = 2.645960661801901*fZ;
|
|
pSH[62] = fTmpB*fC1;
|
|
pSH[50] = fTmpB*fS1;
|
|
fTmpC = 7.984991490893139*fZ2 + -0.5323327660595426;
|
|
pSH[78] = fTmpC*fC1;
|
|
pSH[66] = fTmpC*fS1;
|
|
fTmpA = fZ*(21.39289019090864*fZ2 + -3.775215916042701);
|
|
pSH[96] = fTmpA*fC1;
|
|
pSH[84] = fTmpA*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpA = -0.7071627325245963;
|
|
pSH[63] = fTmpA*fC0;
|
|
pSH[49] = fTmpA*fS0;
|
|
fTmpB = -2.91570664069932*fZ;
|
|
pSH[79] = fTmpB*fC0;
|
|
pSH[65] = fTmpB*fS0;
|
|
fTmpC = -9.263393182848905*fZ2 + 0.5449054813440533;
|
|
pSH[97] = fTmpC*fC0;
|
|
pSH[83] = fTmpC*fS0;
|
|
fC1 = fX*fC0 - fY*fS0;
|
|
fS1 = fX*fS0 + fY*fC0;
|
|
|
|
fTmpA = 0.72892666017483;
|
|
pSH[80] = fTmpA*fC1;
|
|
pSH[64] = fTmpA*fS1;
|
|
fTmpB = 3.177317648954698*fZ;
|
|
pSH[98] = fTmpB*fC1;
|
|
pSH[82] = fTmpB*fS1;
|
|
fC0 = fX*fC1 - fY*fS1;
|
|
fS0 = fX*fS1 + fY*fC1;
|
|
|
|
fTmpC = -0.7489009518531884;
|
|
pSH[99] = fTmpC*fC0;
|
|
pSH[81] = fTmpC*fS0;
|
|
|
|
return pSH;
|
|
}
|