/* The top row of each of these matrices is psi = 100 degrees */ /* The leftmost column of each is phi = 100 degrees */ /* The bottom row of each is psi = -100 */ /* The rightmost row is phi = -100 */ #ifndef MATRICES_H static double CA[][27] = { {0,0,-1.603124,-1.30507,-1.347593,-1.349491,0,0,0,0,0,0,1.005059,1.09652,1.178676,0,0,0,0,0,-1.603124,-1.30507,-1.347593,-1.349491,0,0,0}, {0,0,0,0,-2.06632,-1.673611,0,0,0,0,0,0,1.129557,1.193428,0,0,0,0,0,0,0,0,-2.06632,-1.673611,0,0,0}, {0,0,0,-2.014875,-2.104717,-1.7888,0,0,0,0,0,0,0.282678,0,0,0,0,0,0,0,0,-2.014875,-2.104717,-1.7888,0,0,0}, {0,0,0,-1.864082,-2.015371,-1.764993,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.864082,-2.015371,-1.764993,0,0,0}, {0,-1.214637,-1.360877,-1.475057,-1.677828,-1.578509,-1.015623,0,0,0,0,0,0,0,0,0,0,0,0,-1.214637,-1.360877,-1.475057,-1.677828,-1.578509,-1.015623,0,0}, {-1.753594,-1.527769,-1.557402,-1.566805,-1.516681,-1.480891,-1.000565,0,0,0,0,0,0,0.660411,0.688322,0.234326,-1.135629,-1.353751,-1.753594,-1.527769,-1.557402,-1.566805,-1.516681,-1.480891,-1.000565,0,0}, {-1.599183,-1.613988,-1.745546,-1.793079,-1.67787,-1.340081,-0.816543,0,0,0,0,0.950299,1.084501,1.262352,1.125602,0.520001,-0.850665,-1.424719,-1.599183,-1.613988,-1.745546,-1.793079,-1.67787,-1.340081,-0.816543,0,0}, {-1.744009,-1.713303,-1.717837,-1.724233,-1.705841,-1.267609,-0.400368,-0.086727,0,1.233354,1.578504,1.498233,1.487984,1.586552,1.417525,0.858597,-0.776448,-1.640204,-1.744009,-1.713303,-1.717837,-1.724233,-1.705841,-1.267609,-0.400368,-0.086727,0}, {-1.630414,-1.606314,-1.441878,-1.233211,-1.249462,-1.044101,0.094387,0.067867,0,1.492641,1.770911,1.999326,2.005463,1.896508,1.77371,1.435437,-0.59222,-1.102378,-1.630414,-1.606314,-1.441878,-1.233211,-1.249462,-1.044101,0.094387,0.067867,0}, {-1.218413,-1.007659,-0.693359,-0.647924,-0.952043,-0.755462,0,0,0,2.024941,2.594402,2.602375,2.497192,2.224585,2.168325,1.92761,-0.255904,-0.690931,-1.218413,-1.007659,-0.693359,-0.647924,-0.952043,-0.755462,0,0,0}, {-0.568579,-0.407548,-0.307601,-0.309621,-0.626527,-0.718274,0,0,0,2.461801,2.699684,2.671828,2.613348,2.478667,1.800882,1.678663,0.392483,-0.306246,-0.568579,-0.407548,-0.307601,-0.309621,-0.626527,-0.718274,0,0,0}, {0,0.083169,-0.046272,-0.083511,-0.433618,0,0,0,0,2.505099,2.718839,2.682888,2.559847,2.339279,0,0,0,0,0,0.083169,-0.046272,-0.083511,-0.433618,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,1.994127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0.697815,0.466885,0,0,0,0,0,0,1.485725,1.070119,0.749799,0,0,0,0,0,0,0,0.697815,0.466885,0}, {0,0,0,0,0,0.450084,0.784893,0.802462,0,0,0,0,1.943212,1.277139,1.284392,1.173703,0.824914,0,0,0,0,0,0,0.450084,0.784893,0.802462,0}, {0,0,0,-0.889828,-0.982571,-0.65121,0.432552,0.846541,0,0,0,0,1.157988,1.104029,1.16851,1.309159,0,0,0,0,0,-0.889828,-0.982571,-0.65121,0.432552,0.846541,0}, {0,0,-1.603124,-1.30507,-1.347593,-1.349491,0,0,0,0,0,0,1.005059,1.09652,1.178676,0,0,0,0,0,-1.603124,-1.30507,-1.347593,-1.349491,0,0,0}, {0,0,0,0,-2.06632,-1.673611,0,0,0,0,0,0,1.129557,1.193428,0,0,0,0,0,0,0,0,-2.06632,-1.673611,0,0,0}, {0,0,0,-2.014875,-2.104717,-1.7888,0,0,0,0,0,0,0.282678,0,0,0,0,0,0,0,0,-2.014875,-2.104717,-1.7888,0,0,0}, {0,0,0,-1.864082,-2.015371,-1.764993,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.864082,-2.015371,-1.764993,0,0,0}, {0,-1.214637,-1.360877,-1.475057,-1.677828,-1.578509,-1.015623,0,0,0,0,0,0,0,0,0,0,0,0,-1.214637,-1.360877,-1.475057,-1.677828,-1.578509,-1.015623,0,0}, {-1.753594,-1.527769,-1.557402,-1.566805,-1.516681,-1.480891,-1.000565,0,0,0,0,0,0,0.660411,0.688322,0.234326,-1.135629,-1.353751,-1.753594,-1.527769,-1.557402,-1.566805,-1.516681,-1.480891,-1.000565,0,0}, {-1.599183,-1.613988,-1.745546,-1.793079,-1.67787,-1.340081,-0.816543,0,0,0,0,0.950299,1.084501,1.262352,1.125602,0.520001,-0.850665,-1.424719,-1.599183,-1.613988,-1.745546,-1.793079,-1.67787,-1.340081,-0.816543,0,0}, {-1.744009,-1.713303,-1.717837,-1.724233,-1.705841,-1.267609,-0.400368,-0.086727,0,1.233354,1.578504,1.498233,1.487984,1.586552,1.417525,0.858597,-0.776448,-1.640204,-1.744009,-1.713303,-1.717837,-1.724233,-1.705841,-1.267609,-0.400368,-0.086727,0}, {-1.630414,-1.606314,-1.441878,-1.233211,-1.249462,-1.044101,0.094387,0.067867,0,1.492641,1.770911,1.999326,2.005463,1.896508,1.77371,1.435437,-0.59222,-1.102378,-1.630414,-1.606314,-1.441878,-1.233211,-1.249462,-1.044101,0.094387,0.067867,0}, }; static double CB[][27] = { {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,2.593859,2.726442,2.570381,2.235776,2.123403,0,0,0,0,0,0,0,0,0,0,0,0,0,2.593859,2.726442,2.570381,2.235776,2.123403,0,0,0}, {1.593821,2.293696,2.679615,2.774553,2.60021,1.975695,0,0,0,0,0,0,0,0,1.064473,0,0,0.132283,1.593821,2.293696,2.679615,2.774553,2.60021,1.975695,0,0,0}, {1.652302,2.077357,2.425698,2.684819,2.744234,2.133422,0,0,0,0,-0.093557,0.816922,0.663061,0.523429,0.462464,0.352597,0.419961,0.634348,1.652302,2.077357,2.425698,2.684819,2.744234,2.133422,0,0,0}, {1.233328,1.67662,1.998759,2.279599,2.423266,2.514199,0,0,0,0.416635,1.044918,0.71105,0.468473,0.081999,-0.217787,-0.163419,0.471821,0.585212,1.233328,1.67662,1.998759,2.279599,2.423266,2.514199,0,0,0}, {0.635818,1.02027,1.294496,1.533503,1.545776,1.501548,0,0,0,-0.623699,-0.183782,-0.151497,-0.141627,-0.227015,-0.387982,-0.458179,-0.688821,-0.111156,0.635818,1.02027,1.294496,1.533503,1.545776,1.501548,0,0,0}, {0.402481,0.470108,0.460756,0.631264,0.95243,0.651825,0,0,0,-0.536615,-0.739348,-0.781726,-0.716547,-0.496215,-0.517573,-0.606699,-0.872322,-0.343751,0.402481,0.470108,0.460756,0.631264,0.95243,0.651825,0,0,0}, {0.208766,0.207142,0.168063,0.163065,0.403835,0.571887,0,0,0,-0.190644,-0.788773,-0.82346,-0.831028,-0.78069,-0.948527,0,0,-0.498762,0.208766,0.207142,0.168063,0.163065,0.403835,0.571887,0,0,0}, {0.228115,0.080918,-0.037933,-0.121486,0.696069,0,0,0,0,0,-0.874212,-0.85475,-0.836314,-1.387469,0,0,0,0,0.228115,0.080918,-0.037933,-0.121486,0.696069,0,0,0,0}, {0,0,-0.378806,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.378806,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,-4.510712,-5.203111,-5.683892,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,-4.836757,-4.539137,-5.033995,-5.501333,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,-4.948954,-4.569748,-4.557393,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,2.593859,2.726442,2.570381,2.235776,2.123403,0,0,0,0,0,0,0,0,0,0,0,0,0,2.593859,2.726442,2.570381,2.235776,2.123403,0,0,0}, {1.593821,2.293696,2.679615,2.774553,2.60021,1.975695,0,0,0,0,0,0,0,0,1.064473,0,0,0.132283,1.593821,2.293696,2.679615,2.774553,2.60021,1.975695,0,0,0}, {1.652302,2.077357,2.425698,2.684819,2.744234,2.133422,0,0,0,0,-0.093557,0.816922,0.663061,0.523429,0.462464,0.352597,0.419961,0.634348,1.652302,2.077357,2.425698,2.684819,2.744234,2.133422,0,0,0}, {1.233328,1.67662,1.998759,2.279599,2.423266,2.514199,0,0,0,0.416635,1.044918,0.71105,0.468473,0.081999,-0.217787,-0.163419,0.471821,0.585212,1.233328,1.67662,1.998759,2.279599,2.423266,2.514199,0,0,0}, {0.635818,1.02027,1.294496,1.533503,1.545776,1.501548,0,0,0,-0.623699,-0.183782,-0.151497,-0.141627,-0.227015,-0.387982,-0.458179,-0.688821,-0.111156,0.635818,1.02027,1.294496,1.533503,1.545776,1.501548,0,0,0}, }; static double CO[][27] = { {0,0,0,0,-0.918799,-0.175903,0,0,0,0,0,0,0.194542,0.239127,0.15903,0,0,0,0,0,0,0,-0.918799,-0.175903,0,0,0}, {0,0,0,0,-1.197651,-0.585799,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.197651,-0.585799,0,0,0}, {0,0,0,0,-2.04875,-2.142165,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.04875,-2.142165,0,0,0}, {0,0,0,-1.808096,-2.0465,-1.899214,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.808096,-2.0465,-1.899214,0,0,0}, {0,-1.757627,-1.154259,-1.413127,-1.557145,-1.252471,-1.071927,0,0,0,0,0,0,0,0,0,0,0,0,-1.757627,-1.154259,-1.413127,-1.557145,-1.252471,-1.071927,0,0}, {-1.188275,-1.539697,-1.457618,-1.369128,-1.320135,-1.326572,-1.262444,0,0,0,0,0.578923,0,-1.097335,-1.11831,0,0,-1.863809,-1.188275,-1.539697,-1.457618,-1.369128,-1.320135,-1.326572,-1.262444,0,0}, {-0.85842,-1.02894,-1.242096,-1.28439,-1.251479,-1.476668,-1.493363,0,0,0,0.324843,0.66622,0.694826,-0.042603,-0.286618,-0.596786,-1.557039,-1.510262,-0.85842,-1.02894,-1.242096,-1.28439,-1.251479,-1.476668,-1.493363,0,0}, {-0.743711,-0.756771,-0.835445,-0.935221,-0.974825,-1.153442,-1.186017,0,0,0,0.213598,0.664849,0.628704,0.33437,0.152514,-0.164456,-0.634048,-0.947951,-0.743711,-0.756771,-0.835445,-0.935221,-0.974825,-1.153442,-1.186017,0,0}, {-0.686764,-0.486113,-0.421159,-0.471845,-0.567954,-0.6434,-1.043625,0,0,-0.092085,0.856665,1.076898,0.846241,0.55415,0.314787,0.177054,-0.29518,-0.876806,-0.686764,-0.486113,-0.421159,-0.471845,-0.567954,-0.6434,-1.043625,0,0}, {-0.475379,-0.118605,0.004984,-0.2054,-0.528622,-0.343244,0,0,0,0.430361,1.309506,1.343726,1.210201,0.7695,0.390032,0.376924,-0.312986,-0.624549,-0.475379,-0.118605,0.004984,-0.2054,-0.528622,-0.343244,0,0,0}, {-0.000592,0.23606,0.170832,-0.048745,-0.627844,-1.076068,0,0,0,1.014583,1.425695,1.410868,1.333488,1.031594,0.021525,-0.043827,-0.012632,0.277787,-0.000592,0.23606,0.170832,-0.048745,-0.627844,-1.076068,0,0,0}, {0,0.345911,0.176571,-0.19411,-1.015428,-1.349762,0,0,0,2.057981,1.602391,1.534547,1.443842,1.589415,0,0,0,0,0,0.345911,0.176571,-0.19411,-1.015428,-1.349762,0,0,0}, {0,0,-0.624012,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.624012,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,-0.153534,0,0,0,0,0,0,-0.459753,-0.337143,-0.326987,-0.289218,0,0,0,0,0,0,0,-0.153534,0,0}, {0,0,0,0,0,-0.27893,-0.025607,0.228578,0,0,0,0,-0.091986,-0.119319,-0.305498,-0.391657,-0.452422,0,0,0,0,0,0,-0.27893,-0.025607,0.228578,0}, {0,0,0,-0.908989,-0.918423,-0.213218,0.172219,0.257741,0,0,0,0,0.057127,0.136067,-0.064752,-0.38885,0,0,0,0,0,-0.908989,-0.918423,-0.213218,0.172219,0.257741,0}, {0,0,0,0,-0.918799,-0.175903,0,0,0,0,0,0,0.194542,0.239127,0.15903,0,0,0,0,0,0,0,-0.918799,-0.175903,0,0,0}, {0,0,0,0,-1.197651,-0.585799,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.197651,-0.585799,0,0,0}, {0,0,0,0,-2.04875,-2.142165,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.04875,-2.142165,0,0,0}, {0,0,0,-1.808096,-2.0465,-1.899214,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.808096,-2.0465,-1.899214,0,0,0}, {0,-1.757627,-1.154259,-1.413127,-1.557145,-1.252471,-1.071927,0,0,0,0,0,0,0,0,0,0,0,0,-1.757627,-1.154259,-1.413127,-1.557145,-1.252471,-1.071927,0,0}, {-1.188275,-1.539697,-1.457618,-1.369128,-1.320135,-1.326572,-1.262444,0,0,0,0,0.578923,0,-1.097335,-1.11831,0,0,-1.863809,-1.188275,-1.539697,-1.457618,-1.369128,-1.320135,-1.326572,-1.262444,0,0}, {-0.85842,-1.02894,-1.242096,-1.28439,-1.251479,-1.476668,-1.493363,0,0,0,0.324843,0.66622,0.694826,-0.042603,-0.286618,-0.596786,-1.557039,-1.510262,-0.85842,-1.02894,-1.242096,-1.28439,-1.251479,-1.476668,-1.493363,0,0}, {-0.743711,-0.756771,-0.835445,-0.935221,-0.974825,-1.153442,-1.186017,0,0,0,0.213598,0.664849,0.628704,0.33437,0.152514,-0.164456,-0.634048,-0.947951,-0.743711,-0.756771,-0.835445,-0.935221,-0.974825,-1.153442,-1.186017,0,0}, {-0.686764,-0.486113,-0.421159,-0.471845,-0.567954,-0.6434,-1.043625,0,0,-0.092085,0.856665,1.076898,0.846241,0.55415,0.314787,0.177054,-0.29518,-0.876806,-0.686764,-0.486113,-0.421159,-0.471845,-0.567954,-0.6434,-1.043625,0,0}, }; static double HA[][27] = { {0,0,-0.035619,-0.021185,0.011477,-0.034351,0,0,0,0,0,-0.19253,-0.205664,-0.217552,-0.255511,0,0,0,0,0,-0.035619,-0.021185,0.011477,-0.034351,0,0,0}, {0,0,0,-0.102131,0.032576,0.032426,0,0,0,0,0,0,-0.253261,-0.195534,0,0,0,0,0,0,0,-0.102131,0.032576,0.032426,0,0,0}, {0,0,0,0.167931,0.253162,0.149582,0,0,0,0,0,0,-0.268367,0,0,0,0,0,0,0,0,0.167931,0.253162,0.149582,0,0,0}, {0,0,0,0.257702,0.111891,0.04795,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.257702,0.111891,0.04795,0,0,0}, {0,0.226597,0.207862,0.201342,0.166755,0.103712,0.07005,0,0,0,0,0,0,0,0,0,0,0,0,0.226597,0.207862,0.201342,0.166755,0.103712,0.07005,0,0}, {0.161762,0.177881,0.271454,0.289024,0.297131,0.282574,-0.050613,0,0,0,0,0,0,-0.11647,0.120848,0.073484,0.236092,0.489646,0.161762,0.177881,0.271454,0.289024,0.297131,0.282574,-0.050613,0,0}, {0.233518,0.262495,0.353421,0.374815,0.315756,0.315204,0.122471,0,0,0,0.029464,0.035994,-0.123114,-0.13822,0.034365,0.249387,0.359664,0.287674,0.233518,0.262495,0.353421,0.374815,0.315756,0.315204,0.122471,0,0}, {0.277957,0.295981,0.347314,0.37686,0.31061,0.227693,0.144571,0.045091,0,-0.009036,-0.185988,-0.112394,-0.128518,-0.168846,-0.0796,0.151602,0.333755,0.223849,0.277957,0.295981,0.347314,0.37686,0.31061,0.227693,0.144571,0.045091,0}, {0.220834,0.258399,0.259407,0.242148,0.238617,0.212094,-0.011484,0,0,-0.159651,-0.259267,-0.221378,-0.214089,-0.20172,-0.115617,0.110458,0.204351,0.145715,0.220834,0.258399,0.259407,0.242148,0.238617,0.212094,-0.011484,0,0}, {0.149843,0.12024,0.051567,0.048122,0.144483,0.137048,0,0,0,-0.254891,-0.343922,-0.338772,-0.319763,-0.257647,-0.145679,0.011381,0.173323,0.142792,0.149843,0.12024,0.051567,0.048122,0.144483,0.137048,0,0,0}, {0.068251,-0.056503,-0.066534,-0.029806,0.06078,0.032631,0,0,0,-0.305273,-0.363233,-0.359386,-0.353431,-0.323039,-0.165302,-0.127039,0.16696,0.217193,0.068251,-0.056503,-0.066534,-0.029806,0.06078,0.032631,0,0,0}, {-0.018889,-0.185894,-0.166287,-0.084664,0.041449,0.106598,0,0,0,0,-0.380532,-0.381421,-0.392748,-0.420487,0,0,0,0,-0.018889,-0.185894,-0.166287,-0.084664,0.041449,0.106598,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,-0.797893,-0.996819,0,0,0,0,0,-0.637263,-0.675037,-0.754782,-0.821935,0,0,0,0,0,0,0,-0.797893,-0.996819,0}, {0,0,0,0,0,-0.449251,-0.699063,-0.777817,0,0,0,0,-0.208635,-0.513833,-0.606614,-0.704648,-0.833212,0,0,0,0,0,0,-0.449251,-0.699063,-0.777817,0}, {0,0,0,0.049965,0.008832,-0.276939,-0.546069,-0.593528,0,0,0,0,-0.197135,-0.285581,-0.39975,-0.550356,0,0,0,0,0,0.049965,0.008832,-0.276939,-0.546069,-0.593528,0}, {0,0,-0.035619,-0.021185,0.011477,-0.034351,0,0,0,0,0,-0.19253,-0.205664,-0.217552,-0.255511,0,0,0,0,0,-0.035619,-0.021185,0.011477,-0.034351,0,0,0}, {0,0,0,-0.102131,0.032576,0.032426,0,0,0,0,0,0,-0.253261,-0.195534,0,0,0,0,0,0,0,-0.102131,0.032576,0.032426,0,0,0}, {0,0,0,0.167931,0.253162,0.149582,0,0,0,0,0,0,-0.268367,0,0,0,0,0,0,0,0,0.167931,0.253162,0.149582,0,0,0}, {0,0,0,0.257702,0.111891,0.04795,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.257702,0.111891,0.04795,0,0,0}, {0,0.226597,0.207862,0.201342,0.166755,0.103712,0.07005,0,0,0,0,0,0,0,0,0,0,0,0,0.226597,0.207862,0.201342,0.166755,0.103712,0.07005,0,0}, {0.161762,0.177881,0.271454,0.289024,0.297131,0.282574,-0.050613,0,0,0,0,0,0,-0.11647,0.120848,0.073484,0.236092,0.489646,0.161762,0.177881,0.271454,0.289024,0.297131,0.282574,-0.050613,0,0}, {0.233518,0.262495,0.353421,0.374815,0.315756,0.315204,0.122471,0,0,0,0.029464,0.035994,-0.123114,-0.13822,0.034365,0.249387,0.359664,0.287674,0.233518,0.262495,0.353421,0.374815,0.315756,0.315204,0.122471,0,0}, {0.277957,0.295981,0.347314,0.37686,0.31061,0.227693,0.144571,0.045091,0,-0.009036,-0.185988,-0.112394,-0.128518,-0.168846,-0.0796,0.151602,0.333755,0.223849,0.277957,0.295981,0.347314,0.37686,0.31061,0.227693,0.144571,0.045091,0}, {0.220834,0.258399,0.259407,0.242148,0.238617,0.212094,-0.011484,0,0,-0.159651,-0.259267,-0.221378,-0.214089,-0.20172,-0.115617,0.110458,0.204351,0.145715,0.220834,0.258399,0.259407,0.242148,0.238617,0.212094,-0.011484,0,0}, }; static double HN[][27] = { {0,0,0,0.178153,0.005449,0,0,0,0,0,0,0,0.421518,0.406793,0.333466,0,0,0,0,0,0,0.178153,0.005449,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,-0.183121,0,0.094499,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.183121,0,0.094499,0,0,0,0}, {0.163253,0.258666,0.395852,0.34645,0.291968,0,0,0,0,0,0.044749,-0.144831,0,0,0,0,0.297186,0.58135,0.163253,0.258666,0.395852,0.34645,0.291968,0,0,0,0}, {0.195427,0.182489,0.288031,0.35322,0.382227,0,0,0,0,0,0,0.541019,0.039057,-0.183621,0,-0.401524,0.012461,0.56309,0.195427,0.182489,0.288031,0.35322,0.382227,0,0,0,0}, {-0.07154,0.132767,0.200928,0.215847,0.271707,0,0,0,0,0,0.047007,0.264369,0.126299,-0.01704,-0.019712,-0.292657,-0.460398,0.206114,-0.07154,0.132767,0.200928,0.215847,0.271707,0,0,0,0}, {-0.127621,0.089758,0.133114,0.073918,0.164095,0.313598,0,0,0,0,0.183258,0.10247,0.085129,0.069456,0.021079,0,-0.136724,-0.093453,-0.127621,0.089758,0.133114,0.073918,0.164095,0.313598,0,0,0}, {-0.038423,-0.022377,0.014334,0.090406,0.166634,0.333299,0,0,0,-0.059914,0.221464,0.207621,0.175197,0.198254,0.112474,-0.308649,-0.321184,-0.127975,-0.038423,-0.022377,0.014334,0.090406,0.166634,0.333299,0,0,0}, {-0.002796,-0.03685,0.059781,0.188246,0.075962,0.065452,0,0,0,-0.11764,0.206694,0.202094,0.183049,0.275301,0,0,0,0,-0.002796,-0.03685,0.059781,0.188246,0.075962,0.065452,0,0,0}, {0,0.120783,0.049277,0.004118,0,0,0,0,0,0,0.186989,0.177764,0.12258,0,0,0,0,0,0,0.120783,0.049277,0.004118,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.199925,0.294714,0.449871,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.231807,0.341473,0.572768,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,-0.002603,0,0,0,0,0,0,0,0.320634,0.368058,0.263265,0.29378,0,0,0,0,0,0,-0.002603,0,0,0,0}, {0,0,0,0.178153,0.005449,0,0,0,0,0,0,0,0.421518,0.406793,0.333466,0,0,0,0,0,0,0.178153,0.005449,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,-0.183121,0,0.094499,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.183121,0,0.094499,0,0,0,0}, {0.163253,0.258666,0.395852,0.34645,0.291968,0,0,0,0,0,0.044749,-0.144831,0,0,0,0,0.297186,0.58135,0.163253,0.258666,0.395852,0.34645,0.291968,0,0,0,0}, {0.195427,0.182489,0.288031,0.35322,0.382227,0,0,0,0,0,0,0.541019,0.039057,-0.183621,0,-0.401524,0.012461,0.56309,0.195427,0.182489,0.288031,0.35322,0.382227,0,0,0,0}, {-0.07154,0.132767,0.200928,0.215847,0.271707,0,0,0,0,0,0.047007,0.264369,0.126299,-0.01704,-0.019712,-0.292657,-0.460398,0.206114,-0.07154,0.132767,0.200928,0.215847,0.271707,0,0,0,0}, {-0.127621,0.089758,0.133114,0.073918,0.164095,0.313598,0,0,0,0,0.183258,0.10247,0.085129,0.069456,0.021079,0,-0.136724,-0.093453,-0.127621,0.089758,0.133114,0.073918,0.164095,0.313598,0,0,0}, }; static double N15[][27] = { {0,0,0,0.786777,1.339453,0.573824,0,0,0,0,0,0,0.906431,0.668626,0.818698,1.891523,0,0,0,0,0,0.786777,1.339453,0.786777,1.339453,0.573824,0}, {0,0,0,1.134326,0.779578,0.150419,0,0,0,0,0,0,0.6771,-0.152461,0,0,0,0,0,0,0,1.134326,0.779578,1.134326,0.779578,0.150419,0}, {0,0,0,2.514649,2.458276,1.891563,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.514649,2.458276,2.514649,2.458276,1.891563,0}, {0,0,0,1.909611,0.806568,0.499349,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.909611,0.806568,1.909611,0.806568,0.499349,0}, {0,0.215579,0.250212,0.090747,0.30023,0.695653,1.545488,0,0,0,0,0,0,0,0,0,0,0,0,0.215579,0.250212,0.090747,0.30023,0.090747,0.30023,0.695653,1.545488}, {2.658052,1.959976,1.059586,0.823946,1.149536,1.457619,1.098807,0,0,0,0,0,0,-4.309975,-2.813626,0,0.59737,0.871831,2.658052,1.959976,1.059586,0.823946,1.149536,0.823946,1.149536,1.457619,1.098807}, {2.429613,2.076559,1.637021,1.376203,1.461583,2.181275,1.406961,0,0,0,-2.028117,-1.905116,-2.980813,-3.133364,-1.603341,0.635444,0.747353,1.474283,2.429613,2.076559,1.637021,1.376203,1.461583,1.376203,1.461583,2.181275,1.406961}, {2.485992,2.24781,2.022177,1.714763,1.541985,3.626657,4.02193,0,0,-0.373927,-0.14097,-0.576045,-1.294682,-1.143343,-0.947819,-0.092236,1.34667,1.97244,2.485992,2.24781,2.022177,1.714763,1.541985,1.714763,1.541985,3.626657,4.02193}, {2.810621,2.766912,2.652472,2.536282,2.599295,2.629419,5.435277,0,0,0.494199,-0.071179,-0.410342,-0.404367,-0.162115,-0.164243,-0.317194,3.586493,3.143802,2.810621,2.766912,2.652472,2.536282,2.599295,2.536282,2.599295,2.629419,5.435277}, {2.397801,3.03377,3.210401,3.14571,3.14519,2.043762,0,0,0,0.364909,0.406987,0.45211,0.343228,0.103022,0.578832,0.757984,2.891112,2.666801,2.397801,3.03377,3.210401,3.14571,3.14519,3.14571,3.14519,2.043762,0}, {1.043927,2.729249,3.059617,3.051818,2.832552,2.00446,0,0,0,0.497633,0.292652,0.411799,0.53441,0.295624,0.10644,0.43915,1.402508,0.883339,1.043927,2.729249,3.059617,3.051818,2.832552,3.051818,2.832552,2.00446,0}, {0,2.572853,2.521634,2.544402,0,0,0,0,0,0.639816,0.06532,0.112015,0.344461,0.744108,0,0,0,0,0,2.572853,2.521634,2.544402,0,2.544402,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,1.141107,0.839016,0,0,0,0,0,0,-2.948184,-2.960203,-3.261003,0,0,0,0,0,0,0,0,0,1.141107}, {0,0,0,0,0,2.483636,2.23544,2.291658,0,0,0,0,-0.221327,-1.48914,-2.194604,-2.802482,-3.641937,0,0,0,0,0,0,0,0,2.483636,2.23544}, {0,0,0,1.090018,2.540554,2.460274,1.880341,2.000464,0,0,0,0,0.732526,0.22297,-0.570901,-1.822559,0,0,0,0,0,1.090018,2.540554,1.090018,2.540554,2.460274,1.880341}, {0,0,0,0.786777,1.339453,0.573824,0,0,0,0,0,0,0.906431,0.668626,0.818698,1.891523,0,0,0,0,0,0.786777,1.339453,0.786777,1.339453,0.573824,0}, {0,0,0,1.134326,0.779578,0.150419,0,0,0,0,0,0,0.6771,-0.152461,0,0,0,0,0,0,0,1.134326,0.779578,1.134326,0.779578,0.150419,0}, {0,0,0,2.514649,2.458276,1.891563,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.514649,2.458276,2.514649,2.458276,1.891563,0}, {0,0,0,1.909611,0.806568,0.499349,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.909611,0.806568,1.909611,0.806568,0.499349,0}, {0,0.215579,0.250212,0.090747,0.30023,0.695653,1.545488,0,0,0,0,0,0,0,0,0,0,0,0,0.215579,0.250212,0.090747,0.30023,0.090747,0.30023,0.695653,1.545488}, {2.658052,1.959976,1.059586,0.823946,1.149536,1.457619,1.098807,0,0,0,0,0,0,-4.309975,-2.813626,0,0.59737,0.871831,2.658052,1.959976,1.059586,0.823946,1.149536,0.823946,1.149536,1.457619,1.098807}, {2.429613,2.076559,1.637021,1.376203,1.461583,2.181275,1.406961,0,0,0,-2.028117,-1.905116,-2.980813,-3.133364,-1.603341,0.635444,0.747353,1.474283,2.429613,2.076559,1.637021,1.376203,1.461583,1.376203,1.461583,2.181275,1.406961}, {2.485992,2.24781,2.022177,1.714763,1.541985,3.626657,4.02193,0,0,-0.373927,-0.14097,-0.576045,-1.294682,-1.143343,-0.947819,-0.092236,1.34667,1.97244,2.485992,2.24781,2.022177,1.714763,1.541985,1.714763,1.541985,3.626657,4.02193}, {2.810621,2.766912,2.652472,2.536282,2.599295,2.629419,5.435277,0,0,0.494199,-0.071179,-0.410342,-0.404367,-0.162115,-0.164243,-0.317194,3.586493,3.143802,2.810621,2.766912,2.652472,2.536282,2.599295,2.536282,2.599295,2.629419,5.435277}, }; #define MATRIX_ROWS 27 #define MATRIX_COLUMNS 27 #define ANGULAR_INC 20 #define START -260.0 #define MATRICES_H #endif