(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 82951, 1560]*) (*NotebookOutlinePosition[ 83792, 1587]*) (* CellTagsIndexPosition[ 83748, 1583]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ \(\(Clear[H, Ht]; \)\)], "Input"], Cell[BoxData[ \(\(H[0, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[0, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[0, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 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\/12\ \@\(5\/37\ \((133 + 20\ \@33)\)\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, {0, \(-\(1\/12\)\)\ \@\(5\/3\ \((133 + 20\ \@33)\)\), 0}, {0, \@5\/72, 1\/\(18\ \@2\)}, {0, \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 + 800\ \@33)\)\), \(12 + \@33\)\/\(6\ \@222\)}, {0, 0, 0}, {0, \(-\(7\/12\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, {0, 1\/18\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\@\(2\/\(36 - 3\ \@33\)\)\)}, {0, 7\/36\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[0, 3] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/12\ \@\(5\/37\ \((133 + 20\ \@33)\)\), 1\/96\ \@\(5\/37\ \((553 - 40\ \@33)\)\), \(-\(19\/\(8\ \@74\)\)\)}, { 1\/12\ \@\(5\/3\ \((133 + 20\ \@33)\)\), 1\/96\ \@\(5\/3\ \((553 - 40\ \@33)\)\), \(-\(19\/\(8\ \@6\)\)\)}, { \@5\/72, \(-\(\(11\ \@5\)\/576\)\), \(-\(19\/\(144\ \@2\)\)\)}, { \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 + 800\ \@33)\)\), 1187\/\(96\ \@\(222\ \((154578\/5 + 5376\ \@33)\)\)\), \(19\ \@\(11\/74\)\)\/16}, {0, 0, 0}, {0, 0, 0}, { 1\/18\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 1\/144\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(\(19\ \((\(-3\) + \@33)\)\)\/\(24\ \@\(72 - 6\ \@33\)\)\)\)}, { \(-\(7\/18\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 17\/144\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(19\ \((3 + \@33)\)\)\/\(24\ \@\(6\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[0, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\ \@\(5\/37\ \((697 - 104\ \@33)\)\), \(-\(\(17\ \@\(5\/37\)\)\/96\)\), 0}, { 1\/48\ \@\(3485\/12 - 130\ \@\(11\/3\)\), \(-\(\(17\ \@\(5\/3\)\)\/96\)\), 0}, {\(-\(\(19\ \@5\)\/576\)\), \(-\(\(11\ \@5\)\/576\)\), 1\/\(18\ \@2\)}, { \(43\ \@\(55\/37\)\)\/576, 1\/576\ \@\(5\/37\ \((25763 + 4480\ \@33)\)\), \(\(-12\) + \@33\)\/\(6\ \@222\)}, {0, 0, 0}, {0, 0, 0}, { 1\/144\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(17\/144\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 0}, { 1\/144\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/144\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\@\(2\/\(3\ \((12 + \@33)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[0, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, \(-\(2\^\(3/4\)\/\(9\ 5\^\(1/4\)\)\)\), 0}, {0, 0, 0}, {0, \(-\(1\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 8\/\@65, 0}, {0, \(7\ \@\(5\/37\)\)\/12, 0}, {0, \(-\(\(7\ \@\(5\/3\)\)\/12\)\), 0}, {0, 0, 0}, {0, 0, 0}, {\(7\ \@\(5\/37\)\)\/12, 0, 0}, { \(7\ \@\(5\/3\)\)\/12, 0, 0}, {\@5\/72, \@5\/72, 0}, { \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 - 800\ \@33)\)\), \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 - 800\ \@33)\)\), 0}, {0, \(-\(7\/12\)\)\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, {0, 0, 0}, {7\/18\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-\(7\/36\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/18\)\)\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/18\)\)\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[1, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[1, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 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\/96\ \@\(5\/37\ \((697 - 104\ \@33)\)\), \(-\(19\/\(8\ \@74\)\)\)}, {0, \(-\(1\/48\)\)\ \@\(3485\/12 - 130\ \@\(11\/3\)\), 19\/\(8\ \@6\)}, {0, \(-\(\(19\ \@5\)\/576\)\), \(-\(19\/\(144\ \@2\)\)\)}, {0, \(43\ \@\(55\/37\)\)\/576, \(19\ \@\(11\/74\)\)\/16}, {0, 0, 0}, {0, 1\/96\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(19\ \((3 + \@33)\)\)\/\(48\ \@\(24 + 2\ \@33\)\)}, {0, 1\/144\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(\(19\ \((\(-3\) + \@33)\)\)\/\(24\ \@\(72 - 6\ \@33\)\)\)\)}, { 0, \(-\(1\/288\)\)\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(\(19\ \((3 + \@33)\)\)\/\(48\ \@\(6\ \((12 + \@33)\)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[1, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\ \@\(5\/37\ \((553 - 40\ \@33)\)\), \(-\(\@\(5\/37\)\/96\)\), \@\(1\/37\ \((17 - \@33)\)\)}, { \(-\(1\/96\)\)\ \@\(5\/3\ \((553 - 40\ \@33)\)\), \@\(5\/3\)\/96, 0}, {\(-\(\(11\ \@5\)\/576\)\), \(5\ \@5\)\/576, 1\/\(9\ \@2\)}, { 1187\/\(96\ \@\(222\ \((154578\/5 + 5376\ \@33)\)\)\), \(-\(1\/576\)\)\ \@\(5\/37\ \((16259 - 2432\ \@33)\)\), \(12 + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, { 17\/96\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { 1\/144\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/144\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-2\)\ \@\(2\/\(36 - 3\ \@33\)\)}, { \(-\(17\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/288\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[1, 3] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(\@\(5\/37\)\/96\)\), \(-\(1\/96\)\)\ \@\(5\/37\ \((553 + 40\ \@33)\)\), 0}, { \(-\(\@\(5\/3\)\/96\)\), \(-\(1\/96\)\)\ \@\(5\/3\ \((553 + 40\ \@33)\)\), 0}, { \(5\ \@5\)\/576, \(13\ \@5\)\/576, 1\/\(9\ \@2\)}, { \(-\(1\/576\)\)\ \@\(5\/37\ \((16259 - 2432\ \@33)\)\), \(11\ \@\(55\/37\)\)\/576, \(\(-12\) + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, {0, 0, 0}, { \(-\(1\/144\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/144\)\)\ \@\(1365\/2 + 3625\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/144\)\)\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/144\)\)\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-2\)\ \@\(2\/\(3\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[1, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, \(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 3\/10\^\(3/4\)}, { 0, \(-\(1\/\@10\)\), 0}, {0, 1\/3, 0}, {0, \(-\(1\/3\)\), 0}, {0, 0, \(-\(\(18\ \@\(2\/13\)\)\/5\)\)}, {0, 0, \(-\(\(18\ \@\(2\/13\)\)\/5\)\)}, {0, \(-\(1\/96\)\)\ \@\(5\/37\ \((697 + 104\ \@33)\)\), \(-\(19\/\(8\ \@74\)\)\)}, {0, 1\/96\ \@\(5\/3\ \((697 + 104\ \@33)\)\), 19\/\(8\ \@6\)}, {0, 0, 0}, {0, 0, 0}, {\(-\(1\/96\)\)\ \@\(5\/37\ \((697 + 104\ \@33)\)\), 0, 0}, {\(-\(1\/96\)\)\ \@\(5\/3\ \((697 + 104\ \@33)\)\), 0, 0}, { \(5\ \@5\)\/576, \(5\ \@5\)\/576, \(-\(19\/\(144\ \@2\)\)\)}, { 1\/576\ \@\(5\/37\ \((16259 + 2432\ \@33)\)\), 1\/576\ \@\(5\/37\ \((16259 + 2432\ \@33)\)\), \(19\ \@\(11\/74\)\)\/16}, {0, 1\/96\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(24 - 2\ \@33\)\)}, {0, 0, 0}, {\(-\(1\/144\)\)\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 1\/288\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(72 - 6\ \@33\)\)}, { 1\/144\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/144\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(19\ \((3 + \@33)\)\)\/\(24\ \@\(6\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[1, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), \(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 0}, {1\/\@10, \(-\(1\/\@10\)\), 0}, {1\/3, 0, 0}, {0, 1\/3, 0}, {0, \@\(13\/5\), 0}, {\(-\(3\/\@65\)\), 0, 0}, {\(-\(\(17\ \@\(5\/37\)\)\/96\)\), 1\/96\ \@\(5\/37\ \((697 - 104\ \@33)\)\), 0}, { \(17\ \@\(5\/3\)\)\/96, \(-\(1\/48\)\)\ \@\(3485\/12 - 130\ \@\(11\/3\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\(11\ \@5\)\/576\)\), \(-\(\(19\ \@5\)\/576\)\), 0}, { 1\/576\ \@\(5\/37\ \((25763 + 4480\ \@33)\)\), \(43\ \@\(55\/37\)\)\/576, 0}, { 17\/96\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, {0, 0, 0}, {17\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, {1\/144\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/144\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[2, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, \(7\ \@\(5\/37\)\)\/12, 0}, {0, \(-\(\(7\ \@\(5\/3\)\)\/12\)\), 0}, {0, \@5\/72, 1\/\(18\ \@2\)}, {0, \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 - 800\ \@33)\)\), \(\(-12\) + \@33\)\/\(6\ \@222\)}, {0, 0, 0}, {0, \(-\(1\/12\)\)\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/\@\(24 + 2\ \@33\)\)\)}, {0, 7\/18\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 0}, {0, 1\/36\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/\@\(6\ \((12 + \@33)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[2, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(\(17\ \@\(5\/37\)\)\/96\)\), \(-\(1\/96\)\)\ \@\(5\/37\ \((697 + 104\ \@33)\)\), 0}, { \(17\ \@\(5\/3\)\)\/96, 1\/96\ \@\(5\/3\ \((697 + 104\ \@33)\)\), 0}, {\(-\(\(11\ \@5\)\/576\)\), \(5\ \@5\)\/576, 1\/\(9\ \@2\)}, { 1\/576\ \@\(5\/37\ \((25763 + 4480\ \@33)\)\), 1\/576\ \@\(5\/37\ \((16259 + 2432\ \@33)\)\), \(\(-12\) + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, { 1\/96\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/96\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\@\(2\/\(12 + \@33\)\)\)}, { \(-\(17\/144\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/144\)\)\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, { \(-\(1\/288\)\)\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \@\(2\/\(3\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[2, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\)\)\ \@\(5\/37\ \((553 + 40\ \@33)\)\), 1\/12\ \@\(5\/37\ \((133 - 20\ \@33)\)\), 0}, { 1\/96\ \@\(5\/3\ \((553 + 40\ \@33)\)\), \(-\(1\/12\)\)\ \@\(5\/3\ \((133 - 20\ \@33)\)\), 0}, { \(13\ \@5\)\/576, \(7\ \@5\)\/72, \(-\(\(2\ \@2\)\/3\)\)}, { \(11\ \@\(55\/37\)\)\/576, \(-\(\(31\ \@\(55\/37\)\)\/72\)\), 0}, { 0, 0, 0}, { \(-\(1\/96\)\)\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/12\)\)\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { \(-\(1\/144\)\)\ \@\(1365\/2 + 3625\/\(\(-24\) + 2\ \@33\)\), 1\/18\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, {1\/288\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/36\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[2, 3] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, \(-\(2\^\(3/4\)\/\(9\ 5\^\(1/4\)\)\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 1\/3, 0}, {0, 8\/\@65, 0}, {0, 0, 0}, {0, 1\/12\ \@\(5\/37\ \((133 - 20\ \@33)\)\), \@\(1\/37\ \((17 - \@33)\)\)}, {0, \(-\(1\/12\)\)\ \@\(5\/3\ \((133 - 20\ \@33)\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {1\/12\ \@\(5\/37\ \((133 - 20\ \@33)\)\), 0, 0}, { 1\/12\ \@\(5\/3\ \((133 - 20\ \@33)\)\), 0, 0}, {\(7\ \@5\)\/72, \(7\ \@5\)\/72, 1\/\(9\ \@2\)}, {\(-\(\(31\ \@\(55\/37\)\)\/72\)\), \(-\(\(31\ \@\(55\/37\)\)\/72\)\), \(12 + \@33\)\/\(3\ \@222\)}, { 0, \(-\(1\/12\)\)\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \@\(2\/\(12 - \@33\)\)}, {0, 0, 0}, { 1\/18\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/36\)\)\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \@\(2\/\(36 - 3\ \@33\)\)}, { \(-\(1\/18\)\)\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/18\)\)\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[2, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), \(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 0}, {1\/\@10, \(-\(1\/\@10\)\), 0}, {0, \(-\(1\/3\)\), 0}, {\(-\(1\/3\)\), 0, 0}, {\(-\(3\/\@65\)\), 0, 0}, {0, \@\(13\/5\), 0}, { \(-\(1\/96\)\)\ \@\(5\/37\ \((553 + 40\ \@33)\)\), \(-\(\@\(5\/37\)\/96\)\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, { 1\/96\ \@\(5\/3\ \((553 + 40\ \@33)\)\), \@\(5\/3\)\/96, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(13\ \@5\)\/576, \(5\ \@5\)\/576, 1\/\(18\ \@2\)}, {\(11\ \@\(55\/37\)\)\/576, \(-\(1\/576\)\)\ \@\(5\/37\ \((16259 - 2432\ \@33)\)\), \(12 + \@33\)\/\(6\ \@222\)}, { 1\/96\ \@\(\(5\ \((2551 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/96\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/\@\(24 - 2\ \@33\)}, {0, 0, 0}, { 1\/288\ \@\(1365\/2 + 3625\/\(\(-24\) + 2\ \@33\)\), 1\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 1\/\@\(72 - 6\ \@33\)}, { \(-\(1\/144\)\)\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/144\)\)\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[2, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), \(-\(2\^\(3/4\)\/\(9\ 5\^\(1/4\)\)\)\), 0}, {1\/\@10, 0, 0}, { \(-\(1\/3\)\), 1\/3, 0}, {1\/3, \(-\(1\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {1\/96\ \@\(5\/37\ \((553 - 40\ \@33)\)\), 1\/12\ \@\(5\/37\ \((133 + 20\ \@33)\)\), 0}, { \(-\(1\/96\)\)\ \@\(5\/3\ \((553 - 40\ \@33)\)\), \(-\(1\/12\)\)\ \@\(5\/3\ \((133 + 20\ \@33)\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\(11\ \@5\)\/576\)\), \@5\/72, 0}, { 1187\/\(96\ \@\(222\ \((154578\/5 + 5376\ \@33)\)\)\), \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 + 800\ \@33)\)\), 0}, { \(-\(1\/96\)\)\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/12\)\)\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, {0, 0, 0}, {\(-\(1\/288\)\)\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/36\)\)\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, { 17\/144\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(7\/18\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[3, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(7\ \@\(5\/37\)\)\/12, \(-\(\(17\ \@\(5\/37\)\)\/96\)\), \(-\(19\/\(8\ \@74\)\)\)}, { \(7\ \@\(5\/3\)\)\/12, \(-\(\(17\ \@\(5\/3\)\)\/96\)\), \(-\(19\/\(8\ \@6\)\)\)}, {0, 0, 0}, {0, 0, 0}, {\@5\/72, \(-\(\(11\ \@5\)\/576\)\), \(-\(19\/\(144\ \@2\)\)\)}, { \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 - 800\ \@33)\)\), 1\/576\ \@\(5\/37\ \((25763 + 4480\ \@33)\)\), \(19\ \@\(11\/74\)\)\/16}, { 7\/12\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(17\/96\)\)\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(\(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(24 - 2\ \@33\)\)\)\)}, { \(-\(1\/12\)\)\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/96\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(19\ \((3 + \@33)\)\)\/\(48\ \@\(24 + 2\ \@33\)\)}, { \(-\(7\/36\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 17\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(72 - 6\ \@33\)\)}, { 1\/36\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(\(19\ \((3 + \@33)\)\)\/\(48\ \@\(6\ \((12 + \@33)\)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[3, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\)\)\ \@\(5\/37\ \((697 + 104\ \@33)\)\), \(-\(1\/96\)\)\ \@\(5\/37\ \((553 + 40\ \@33)\)\), \@\(1\/37\ \((17 - \@33)\)\)}, { \(-\(1\/96\)\)\ \@\(5\/3\ \((697 + 104\ \@33)\)\), \(-\(1\/96\)\)\ \@\(5\/3\ \((553 + 40\ \@33)\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {\(5\ \@5\)\/576, \(13\ \@5\)\/576, 1\/\(9\ \@2\)}, { 1\/576\ \@\(5\/37\ \((16259 + 2432\ \@33)\)\), \(11\ \@\(55\/37\)\)\/576, \(12 + \@33\)\/\(3\ \@222\)}, { \(-\(1\/96\)\)\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((2551 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\@\(2\/\(12 - \@33\)\)\)}, { 1\/96\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { 1\/288\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 1\/288\ \@\(1365\/2 + 3625\/\(\(-24\) + 2\ \@33\)\), \@\(2\/\(36 - 3\ \@33\)\)}, { \(-\(1\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/288\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[3, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/12\ \@\(5\/37\ \((133 - 20\ \@33)\)\), 1\/12\ \@\(5\/37\ \((133 - 20\ \@33)\)\), 0}, { 1\/12\ \@\(5\/3\ \((133 - 20\ \@33)\)\), \(-\(1\/12\)\)\ \@\(5\/3\ \((133 - 20\ \@33)\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {\(7\ \@5\)\/72, \(7\ \@5\)\/72, 1\/\(9\ \@2\)}, { \(-\(\(31\ \@\(55\/37\)\)\/72\)\), \(-\(\(31\ \@\(55\/37\)\)\/72\)\), \(\(-12\) + \@33\)\/\(3\ \@222\)}, { 1\/12\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/12\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, {\(-\(1\/12\)\)\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/12\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \@\(2\/\(12 + \@33\)\)}, { \(-\(1\/36\)\)\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/36\)\)\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, { 1\/36\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/36\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \@\(2\/\(3\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[3, 3] = {{\(-\(2\^\(3/4\)\/\(9\ 5\^\(1/4\)\)\)\), \(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 3\/10\^\(3/4\)}, {0, 1\/\@10, 0}, {0, 0, 0}, {1\/3, \(-\(1\/3\)\), 0}, {8\/\@65, \(-\(3\/\@65\)\), \(-\(\(18\ \@\(2\/13\)\)\/5\)\)}, {0, 0, \(-\(\(18\ \@\(2\/13\)\)\/5\)\)}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { 0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { 1\/12\ \@\(5\/37\ \((133 - 20\ \@33)\)\), \(-\(1\/96\)\)\ \@\(5\/37\ \((553 + 40\ \@33)\)\), \(-\(19\/\(8\ \@74\)\)\)}, { 1\/12\ \@\(5\/3\ \((133 - 20\ \@33)\)\), \(-\(1\/96\)\)\ \@\(5\/3\ \((553 + 40\ \@33)\)\), \(-\(19\/\(8\ \@6\)\)\)}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(7\ \@5\)\/72, \(13\ \@5\)\/576, \(-\(19\/\(144\ \@2\)\)\)}, { \(-\(\(31\ \@\(55\/37\)\)\/72\)\), \(11\ \@\(55\/37\)\)\/576, \(19\ \@\(11\/74\)\)\/16}, { \(-\(1\/12\)\)\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/96\ \@\(\(5\ \((2551 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(24 - 2\ \@33\)\)}, { 1\/12\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/96\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(\(19\ \((3 + \@33)\)\)\/\(48\ \@\(24 + 2\ \@33\)\)\)\)}, { \(-\(1\/36\)\)\ \@\(\(5\ \((1591 - 273\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 1\/288\ \@\(1365\/2 + 3625\/\(\(-24\) + 2\ \@33\)\), \(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(72 - 6\ \@33\)\)}, { 1\/36\ \@\(\(5\ \((1591 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/288\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(\(19\ \((3 + \@33)\)\)\/\(48\ \@\(6\ \((12 + \@33)\)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[3, 4] = {{\(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), \(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 0}, {\(-\(1\/\@10\)\), 1\/\@10, 0}, {\(-\(1\/3\)\), \(-\(1\/3\)\), 0}, {0, 1\/3, 0}, {0, 0, 0}, {\@\(13\/5\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\@\(5\/37\)\/96\)\), 1\/96\ \@\(5\/37\ \((553 - 40\ \@33)\)\), 0}, { \(-\(\@\(5\/3\)\/96\)\), 1\/96\ \@\(5\/3\ \((553 - 40\ \@33)\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(5\ \@5\)\/576, \(-\(\(11\ \@5\)\/576\)\), 0}, { \(-\(1\/576\)\)\ \@\(5\/37\ \((16259 - 2432\ \@33)\)\), 1187\/\(96\ \@\(222\ \((154578\/5 + 5376\ \@33)\)\)\), 0}, { 1\/96\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, { 1\/96\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(17\/96\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { 1\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, { 1\/288\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(17\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[3, 5] = {{\(-\(2\^\(3/4\)\/\(9\ 5\^\(1/4\)\)\)\), 0, 0}, {0, 0, 0}, {1\/3, 0, 0}, {\(-\(1\/3\)\), 0, 0}, {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\/12\ \@\(5\/37\ \((133 + 20\ \@33)\)\), 0, 0}, { 1\/12\ \@\(5\/3\ \((133 + 20\ \@33)\)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\@5\/72, 0, 0}, { \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 + 800\ \@33)\)\), 0, 0}, { \(-\(1\/12\)\)\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0, 0}, { 7\/12\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0, 0}, { \(-\(1\/36\)\)\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0, 0}, { 7\/36\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[4, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\ \@\(5\/37\ \((697 - 104\ \@33)\)\), 1\/96\ \@\(5\/37\ \((553 - 40\ \@33)\)\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, { 1\/48\ \@\(3485\/12 - 130\ \@\(11\/3\)\), 1\/96\ \@\(5\/3\ \((553 - 40\ \@33)\)\), 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(\(19\ \@5\)\/576\)\), \(-\(\(11\ \@5\)\/576\)\), 1\/\(18\ \@2\)}, {\(43\ \@\(55\/37\)\)\/576, 1187\/\(96\ \@\(222\ \((154578\/5 + 5376\ \@33)\)\)\), \(12 + \@33\)\/\(6\ \@222\)}, { 1\/96\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/96\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/\@\(24 - 2\ \@33\)\)\)}, { 1\/96\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 17\/96\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { \(-\(1\/288\)\)\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 1\/\@\(72 - 6\ \@33\)}, { \(-\(1\/288\)\)\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(17\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[4, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\@\(5\/37\)\/96\)\), \(-\(\@\(5\/37\)\/96\)\), \(-\(19\/\(8\ \@74\)\)\)}, { \(-\(\@\(5\/3\)\/96\)\), \@\(5\/3\)\/96, 19\/\(8\ \@6\)}, {0, 0, 0}, {0, 0, 0}, {\(5\ \@5\)\/576, \(5\ \@5\)\/576, \(-\(19\/\(144\ \@2\)\)\)}, { \(-\(1\/576\)\)\ \@\(5\/37\ \((16259 - 2432\ \@33)\)\), \(-\(1\/576\)\)\ \@\(5\/37\ \((16259 - 2432\ \@33)\)\), \(19\ \@\(11\/74\)\)\/16}, { \(-\(1\/96\)\)\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(\(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(24 - 2\ \@33\)\)\)\)}, { \(-\(1\/96\)\)\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/96\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(\(19\ \((3 + \@33)\)\)\/\(48\ \@\(24 + 2\ \@33\)\)\)\)}, { 1\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 1\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(19\ \((\(-3\) + \@33)\)\)\/\(48\ \@\(72 - 6\ \@33\)\)}, { 1\/288\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/288\ \@\(\(5\ \((1447 - 31\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(\(19\ \((3 + \@33)\)\)\/\(48\ \@\(6\ \((12 + \@33)\)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[4, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\)\)\ \@\(5\/37\ \((553 + 40\ \@33)\)\), \(-\(1\/96\)\)\ \@\(5\/37\ \((697 + 104\ \@33)\)\), 0}, { 1\/96\ \@\(5\/3\ \((553 + 40\ \@33)\)\), 1\/96\ \@\(5\/3\ \((697 + 104\ \@33)\)\), 0}, {0, 0, 0}, {0, 0, 0}, {\(13\ \@5\)\/576, \(5\ \@5\)\/576, 1\/\(18\ \@2\)}, { \(11\ \@\(55\/37\)\)\/576, 1\/576\ \@\(5\/37\ \((16259 + 2432\ \@33)\)\), \(\(-12\) + \@33\)\/\(6\ \@222\)}, { \(-\(1\/96\)\)\ \@\(\(5\ \((2551 - 273\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, { 1\/96\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/\@\(24 + 2\ \@33\)}, { 1\/288\ \@\(1365\/2 + 3625\/\(\(-24\) + 2\ \@33\)\), 1\/288\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, {1\/288\ \@\(\(5\ \((2551 + 273\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/\@\(6\ \((12 + \@33)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(H[4, 3] = {{\(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), \(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 0}, {\(-\(1\/\@10\)\), 1\/\@10, 0}, {1\/3, 1\/3, 0}, {\(-\(1\/3\)\), 0, 0}, {0, 0, 0}, {0, \(-\(3\/\@65\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { 0, 0, 0}, {0, 0, 0}, { \(-\(1\/96\)\)\ \@\(5\/37\ \((697 + 104\ \@33)\)\), \(-\(\(17\ \@\(5\/37\)\)\/96\)\), 0}, { \(-\(1\/96\)\)\ \@\(5\/3\ \((697 + 104\ \@33)\)\), \(-\(\(17\ \@\(5\/3\)\)\/96\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(5\ \@5\)\/576, \(-\(\(11\ \@5\)\/576\)\), 0}, { 1\/576\ \@\(5\/37\ \((16259 + 2432\ \@33)\)\), 1\/576\ \@\(5\/37\ \((25763 + 4480\ \@33)\)\), 0}, { 1\/96\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 17\/96\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, { \(-\(1\/96\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { 1\/288\ \@\(\(5\ \((1447 + 31\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 17\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[4, 4] = {{\(-\(5\^\(3/4\)\/\(36\ 2\^\(1/4\)\)\)\), 0, 0}, { \(-\(1\/\@10\)\), 0, 0}, {0, 0, 0}, {1\/3, 0, 0}, {\@\(13\/5\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {1\/96\ \@\(5\/37\ \((697 - 104\ \@33)\)\), 0, 0}, { 1\/48\ \@\(3485\/12 - 130\ \@\(11\/3\)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\(19\ \@5\)\/576\)\), 0, 0}, { \(43\ \@\(55\/37\)\)\/576, 0, 0}, { \(-\(1\/96\)\)\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0, 0}, {\(-\(1\/96\)\)\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0, 0}, {\(-\(1\/288\)\)\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0, 0}, {\(-\(1\/288\)\)\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[4, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[5, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/12\ \@\(5\/37\ \((133 + 20\ \@33)\)\), 1\/12\ \@\(5\/37\ \((133 + 20\ \@33)\)\), 0}, { 1\/12\ \@\(5\/3\ \((133 + 20\ \@33)\)\), \(-\(1\/12\)\)\ \@\(5\/3\ \((133 + 20\ \@33)\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {\@5\/72, \@5\/72, 0}, { \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 + 800\ \@33)\)\), \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 + 800\ \@33)\)\), 0}, { 1\/12\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/12\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, {\(-\(7\/12\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 7\/12\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, { \(-\(1\/36\)\)\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/36\)\)\ \@\(\(5\ \((271 + 7\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, { 7\/36\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 7\/36\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[5, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/96\ \@\(5\/37\ \((553 - 40\ \@33)\)\), 1\/96\ \@\(5\/37\ \((697 - 104\ \@33)\)\), 0}, { \(-\(1\/96\)\)\ \@\(5\/3\ \((553 - 40\ \@33)\)\), \(-\(1\/48\)\)\ \@\(3485\/12 - 130\ \@\(11\/3\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {\(-\(\(11\ \@5\)\/576\)\), \(-\(\(19\ \@5\)\/576\)\), 0}, {1187\/\(96\ \@\(222\ \((154578\/5 + 5376\ \@33)\)\)\), \(43\ \@\(55\/37\)\)\/576, 0}, { 1\/96\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 1\/96\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, { \(-\(17\/96\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/96\)\)\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, {\(-\(1\/288\)\)\ \@\(\(5\ \((5191 - 833\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((8311 - 1425\ \@33)\)\)\/\(2\ \((12 - \@33)\)\)\), 0}, {\(-\(17\/288\)\)\ \@\(\(5\ \((7 + \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/288\)\)\ \@\(\(5\ \((8311 + 1425\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[5, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\(17\ \@\(5\/37\)\)\/96\)\), \(7\ \@\(5\/37\)\)\/12, 0}, {\(17\ \@\(5\/3\)\)\/96, \(-\(\(7\ \@\(5\/3\)\)\/12\)\), 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(\(11\ \@5\)\/576\)\), \@5\/72, 0}, { 1\/576\ \@\(5\/37\ \((25763 + 4480\ \@33)\)\), \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 - 800\ \@33)\)\), 0}, { \(-\(17\/96\)\)\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 7\/12\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0}, { \(-\(1\/96\)\)\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 1\/12\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0}, {17\/288\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), \(-\(7\/36\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/288\)\)\ \@\(\(5\ \((5191 + 833\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 1\/36\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[5, 3] = {{\(-\(2\^\(3/4\)\/\(9\ 5\^\(1/4\)\)\)\), 0, 0}, {0, 0, 0}, { \(-\(1\/3\)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {8\/\@65, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { \(7\ \@\(5\/37\)\)\/12, 0, 0}, {\(7\ \@\(5\/3\)\)\/12, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\@5\/72, 0, 0}, { \(-\(1\/72\)\)\ \@\(5\/37\ \((7643 - 800\ \@33)\)\), 0, 0}, { \(-\(7\/12\)\)\ \@\(\(5\ \((7 - \@33)\)\)\/\(6\ \((12 - \@33)\)\)\), 0, 0}, { 1\/12\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(6\ \((12 + \@33)\)\)\), 0, 0}, {\(-\(7\/36\)\)\ \@\(5\/2 + 25\/\(\(-24\) + 2\ \@33\)\), 0, 0}, {1\/36\ \@\(\(5\ \((271 - 7\ \@33)\)\)\/\(2\ \((12 + \@33)\)\)\), 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[5, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(H[5, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[0, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[0, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[0, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 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\/45\ \@\(1114\/185 + \(34\ \@33\)\/37\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, {0, \(-\(1\/45\)\)\ \@\(1114\/15 + 34\ \@\(11\/3\)\), 0}, {0, \(-\(1\/\(45\ \@5\)\)\), 1\/\(18\ \@2\)}, {0, \(-\(1\/135\)\)\ \@\(6659\/185 + \(208\ \@33\)\/37\), \(12 + \@33\)\/\(6\ \@222\)}, {0, 0, 0}, {0, \(-\(1\/45\)\)\ \@\(2\/15 - 2\/\(3\ \((12 + \@33)\)\)\), 0}, {0, 2\/135\ \@\(\(-38\)\/5 - 310\/\(\(-12\) + \@33\)\), \(-\@\(2\/\(36 - 3\ \@33\)\)\)}, {0, 1\/135\ \@\(2\/5 - 2\/\(12 + \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[0, 3] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/45\ \@\(1114\/185 + \(34\ \@33\)\/37\), 1\/90\ \@\(829\/185 + \(4\ \@33\)\/37\), 1\/\(10\ \@74\)}, { 1\/45\ \@\(1114\/15 + 34\ \@\(11\/3\)\), 1\/45\ \@\(829\/60 + \@\(11\/3\)\), 1\/\(10\ \@6\)}, { \(-\(1\/\(45\ \@5\)\)\), \(-\(11\/\(540\ \@5\)\)\), 1\/\(180\ \@2\)}, { \(-\(1\/135\)\)\ \@\(6659\/185 + \(208\ \@33\)\/37\), \(-\(1\/540\)\)\ \@\(1\/185\ \((23171 - 3040\ \@33)\)\), \(-\(\@\(11\/74\)\/20\)\)}, {0, 0, 0}, {0, 0, 0}, { 2\/135\ \@\(\(-38\)\/5 - 310\/\(\(-12\) + \@33\)\), 1\/135\ \@\(689\/10 + 625\/\(\(-24\) + 2\ \@33\)\), \(\(-3\) + \@33\)\/\(30\ \@\(72 - 6\ \@33\)\)}, { \(-\(2\/135\)\)\ \@\(2\/5 - 2\/\(12 + \@33\)\), 13\/135\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \(-\(\(3 + \@33\)\/\(30\ \@\(6\ \((12 + \@33)\)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[0, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\ \@\(889\/185 - \(16\ \@33\)\/37\), \(-\(13\/\(90\ \@185\)\)\), 0}, { 1\/45\ \@\(889\/60 - 4\ \@\(11\/3\)\), \(-\(13\/\(90\ \@15\)\)\), 0}, {\(-\(7\/\(180\ \@5\)\)\), \(-\(11\/\(540\ \@5\)\)\), 1\/\(18\ \@2\)}, {\(29\ \@\(11\/185\)\)\/540, 1\/540\ \@\(1\/185\ \((23171 + 3040\ \@33)\)\), \(\(-12\) + \@33\)\/\(6\ \@222\)}, {0, 0, 0}, {0, 0, 0}, { 1\/135\ \@\(1449\/10 + 1705\/\(\(-24\) + 2\ \@33\)\), \(-\(13\/135\)\)\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), 0}, { 1\/135\ \@\(\(8863 + 1449\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 1\/135\ \@\(\(5143 + 689\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(-\@\(2\/\(3\ \((12 + \@33)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[0, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 3\/10\^\(3/4\), 0}, {0, 0, 0}, {0, \(-\(2\/3\)\), 0}, {0, \(-\(1\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 2\/\(45\ \@185\), 0}, { 0, \(-\(2\/\(45\ \@15\)\)\), 0}, {0, 0, 0}, {0, 0, 0}, { 2\/\(45\ \@185\), 0, 0}, {2\/\(45\ \@15\), 0, 0}, { \(-\(1\/\(45\ \@5\)\)\), \(-\(1\/\(45\ \@5\)\)\), 0}, { 1\/135\ \@\(6659\/185 - \(208\ \@33\)\/37\), 1\/135\ \@\(6659\/185 - \(208\ \@33\)\/37\), 0}, {0, \(-\(1\/45\)\)\ \@\(2\/15 + 2\/\(\(-36\) + 3\ \@33\)\), 0}, {0, 0, 0}, {2\/135\ \@\(2\/5 + 2\/\(\(-12\) + \@33\)\), \(-\(1\/135\)\)\ \@\(2\/5 + 2\/\(\(-12\) + \@33\)\), 0}, { 2\/135\ \@\(\(-38\)\/5 + 310\/\(12 + \@33\)\), 2\/135\ \@\(\(-38\)\/5 + 310\/\(12 + \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[1, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[1, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 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\/90\ \@\(889\/185 - \(16\ \@33\)\/37\), 1\/\(10\ \@74\)}, {0, \(-\(1\/45\)\)\ \@\(889\/60 - 4\ \@\(11\/3\)\), \(-\(1\/\(10\ \@6\)\)\)}, {0, \(-\(7\/\(180\ \@5\)\)\), 1\/\(180\ \@2\)}, {0, \(29\ \@\(11\/185\)\)\/540, \(-\(\@\(11\/74\)\/20\)\)}, {0, 0, 0}, {0, 1\/90\ \@\(\(8863 + 1449\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(-\(\(3 + \@33\)\/\(60\ \@\(24 + 2\ \@33\)\)\)\)}, {0, 1\/135\ \@\(1449\/10 + 1705\/\(\(-24\) + 2\ \@33\)\), \(\(-3\) + \@33\)\/\(30\ \@\(72 - 6\ \@33\)\)}, {0, \(-\(1\/270\)\)\ \@\(\(8863 + 1449\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(3 + \@33\)\/\(60\ \@\(6\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[1, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\ \@\(829\/185 + \(4\ \@33\)\/37\), 7\/\(90\ \@185\), \@\(1\/37\ \((17 - \@33)\)\)}, { \(-\(1\/45\)\)\ \@\(829\/60 + \@\(11\/3\)\), \(-\(7\/\(90\ \@15\)\)\), 0}, {\(-\(11\/\(540\ \@5\)\)\), 1\/\(60\ \@5\), 1\/\(9\ \@2\)}, { \(-\(1\/540\)\)\ \@\(1\/185\ \((23171 - 3040\ \@33)\)\), \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(12 + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, { 13\/90\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/90\)\)\ \@\(\(3583 + 329\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 0}, { 1\/135\ \@\(689\/10 + 625\/\(\(-24\) + 2\ \@33\)\), 7\/135\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-2\)\ \@\(2\/\(36 - 3\ \@33\)\)}, { \(-\(13\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), 1\/270\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Ht[1, 3]\)], "Input"], Cell[BoxData[ \({{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {7\/\(90\ \@185\), \(-\(1\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), 0}, { 7\/\(90\ \@15\), \(-\(1\/45\)\)\ \@\(829\/60 - \@\(11\/3\)\), 0}, { 1\/\(60\ \@5\), 19\/\(540\ \@5\), 1\/\(9\ \@2\)}, { \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(-\(\(11\ \@\(11\/185\)\)\/540\)\), \(\(-12\) + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, {0, 0, 0}, { 7\/135\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/135\)\)\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/135\)\)\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/135\)\)\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(-2\)\ \@\(2\/\(3\ \((12 + \@33)\)\)\)}}\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Ht[1, 3] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {7\/\(90\ \@185\), \(-\(1\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), 0}, { 7\/\(90\ \@15\), \(-\(1\/45\)\)\ \@\(829\/60 - \@\(11\/3\)\), 0}, { 1\/\(60\ \@5\), 19\/\(540\ \@5\), 1\/\(9\ \@2\)}, { \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(-\(\(11\ \@\(11\/185\)\)\/540\)\), \(\(-12\) + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, {0, 0, 0}, { 7\/135\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/135\)\)\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/135\)\)\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), \(-\(1\/135\)\)\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(-2\)\ \@\(2\/\(3\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[1, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, \(-\(\(21\ 5\^\(1/4\)\)\/\(4\ 2\^\(3/4\)\)\)\), 27\/\(8\ 10\^\(1/4\)\)}, {0, \(-\(7\/\@10\)\), 0}, {0, \(-\(7\/15\)\), 0}, {0, 7\/15, 0}, {0, \(-\(\@\(13\/5\)\/2\)\), 0}, {0, \(-\(\@\(13\/5\)\/2\)\), 0}, {0, \(-\(1\/90\)\)\ \@\(889\/185 + \(16\ \@33\)\/37\), 1\/\(10\ \@74\)}, {0, 1\/45\ \@\(889\/60 + 4\ \@\(11\/3\)\), \(-\(1\/\(10\ \@6\)\)\)}, {0, 0, 0}, {0, 0, 0}, { \(-\(1\/90\)\)\ \@\(889\/185 + \(16\ \@33\)\/37\), 0, 0}, { \(-\(1\/45\)\)\ \@\(889\/60 + 4\ \@\(11\/3\)\), 0, 0}, { 1\/\(60\ \@5\), 1\/\(60\ \@5\), 1\/\(180\ \@2\)}, { 1\/540\ \@\(19211\/185 - \(32\ \@33\)\/37\), 1\/540\ \@\(19211\/185 - \(32\ \@33\)\/37\), \(-\(\@\(11\/74\)\/20\)\)}, {0, 1\/90\ \@\(329\/30 + 73\/\(6\ \((\(-12\) + \@33)\)\)\), \(-\(\(\(-3\) + \@33\)\/\(60\ \@\(24 - 2\ \@33\)\)\)\)}, {0, 0, 0}, {\(-\(1\/135\)\)\ \@\(329\/10 + 73\/\(\(-24\) + 2\ \@33\)\), 1\/270\ \@\(329\/10 + 73\/\(\(-24\) + 2\ \@33\)\), \(-\(\(\(-3\) + \@33\)\/\(60\ \@\(72 - 6\ \@33\)\)\)\)}, { \(-\(7\/135\)\)\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \(-\(7\/135\)\)\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \(-\(\(3 + \@33\)\/\(30\ \@\(6\ \((12 + \@33)\)\)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[1, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {39\/\(4\ 10\^\(3/4\)\), 39\/\(4\ 10\^\(3/4\)\), 0}, { 13\/\(3\ \@10\), 1\/\@10, 0}, {34\/15, \(-\(7\/15\)\), 0}, {17\/15, \(-\(14\/15\)\), 0}, {0, \@\(13\/5\)\/2, 0}, {\@\(13\/5\)\/2, 0, 0}, {\(-\(13\/\(90\ \@185\)\)\), 1\/90\ \@\(889\/185 - \(16\ \@33\)\/37\), 0}, {13\/\(90\ \@15\), \(-\(1\/45\)\)\ \@\(889\/60 - 4\ \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(11\/\(540\ \@5\)\)\), \(-\(7\/\(180\ \@5\)\)\), 0}, { 1\/540\ \@\(1\/185\ \((23171 + 3040\ \@33)\)\), \(29\ \@\(11\/185\)\)\/540, 0}, { 13\/90\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), \(-\(1\/90\)\)\ \@\(\(8863 - 1449\ \@33\)\/\(30\ \((12 - \@33)\)\)\), 0}, {0, 0, 0}, {13\/270\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/270\)\)\ \@\(1449\/10 + 1705\/\(\(-24\) + 2\ \@33\)\), 0}, { 1\/135\ \@\(\(5143 + 689\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 1\/135\ \@\(\(8863 + 1449\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[2, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 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\/\(45\ \@185\), 0}, {0, \(-\(2\/\(45\ \@15\)\)\), 0}, {0, \(-\(1\/\(45\ \@5\)\)\), 1\/\(18\ \@2\)}, {0, 1\/135\ \@\(6659\/185 - \(208\ \@33\)\/37\), \(\(-12\) + \@33\)\/\(6\ \@222\)}, {0, 0, 0}, {0, 1\/45\ \@\(\(-38\)\/15 + 310\/\(36 + 3\ \@33\)\), \(-\(1\/\@\(24 + 2\ \@33\)\)\)}, {0, 2\/135\ \@\(2\/5 + 2\/\(\(-12\) + \@33\)\), 0}, {0, \(-\(1\/135\)\)\ \@\(\(-38\)\/5 + 310\/\(12 + \@33\)\), 1\/\@\(6\ \((12 + \@33)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[2, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(13\/\(90\ \@185\)\)\), \(-\(1\/90\)\)\ \@\(889\/185 + \(16\ \@33\)\/37\), 0}, { 13\/\(90\ \@15\), 1\/45\ \@\(889\/60 + 4\ \@\(11\/3\)\), 0}, { \(-\(11\/\(540\ \@5\)\)\), 1\/\(60\ \@5\), 1\/\(9\ \@2\)}, { 1\/540\ \@\(1\/185\ \((23171 + 3040\ \@33)\)\), 1\/540\ \@\(19211\/185 - \(32\ \@33\)\/37\), \(\(-12\) + \@33\)\/\(3\ \@222\)}, {0, 0, 0}, { 1\/90\ \@\(\(5143 + 689\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(-\(7\/90\)\)\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), \(-\@\(2\/\(12 + \@33\)\)\)}, { \(-\(13\/135\)\)\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/135\)\)\ \@\(329\/10 + 73\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(1\/270\)\)\ \@\(\(5143 + 689\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 7\/270\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \@\(2\/\(3\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[2, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), \(-\(1\/45\)\)\ \@\(1114\/185 - \(34\ \@33\)\/37\), 0}, { 1\/45\ \@\(829\/60 - \@\(11\/3\)\), 1\/45\ \@\(1114\/15 - 34\ \@\(11\/3\)\), 0}, {19\/\(540\ \@5\), 4\/\(45\ \@5\), \(-\(\(2\ \@2\)\/3\)\)}, { \(-\(\(11\ \@\(11\/185\)\)\/540\)\), \(-\(\(28\ \@\(11\/185\)\)\/135\)\), 0}, {0, 0, 0}, { \(-\(1\/90\)\)\ \@\(\(6463 + 969\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(-\(4\/45\)\)\ \@\(\(419 + 72\ \@33\)\/\(15\ \((12 + \@33)\)\)\), 0}, {\(-\(1\/135\)\)\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), \(-\(8\/135\)\)\ \@\(72\/5 + 89\/\(\(-12\) + \@33\)\), 0}, { 1\/270\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 4\/135\ \@\(\(419 + 72\ \@33\)\/\(60 + 5\ \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[2, 3] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 3\/10\^\(3/4\), 0}, {0, 0, 0}, {0, 1\/3, 0}, {0, 2\/3, 0}, { 0, 0, 0}, {0, 0, 0}, {0, \(-\(1\/45\)\)\ \@\(1114\/185 - \(34\ \@33\)\/37\), \@\(1\/37\ \((17 - \@33)\)\)}, {0, 1\/45\ \@\(1114\/15 - 34\ \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(1\/45\)\)\ \@\(1114\/185 - \(34\ \@33\)\/37\), 0, 0}, { \(-\(1\/45\)\)\ \@\(1114\/15 - 34\ \@\(11\/3\)\), 0, 0}, { 4\/\(45\ \@5\), 4\/\(45\ \@5\), 1\/\(9\ \@2\)}, { \(-\(\(28\ \@\(11\/185\)\)\/135\)\), \(-\(\(28\ \@\(11\/185\)\)\/135\)\), \(12 + \@33\)\/\(3\ \@222\)}, { 0, 4\/45\ \@\(\(419 - 72\ \@33\)\/\(15\ \((12 - \@33)\)\)\), \@\(2\/\(12 - \@33\)\)}, {0, 0, 0}, { \(-\(8\/135\)\)\ \@\(72\/5 + 89\/\(\(-12\) + \@33\)\), 4\/135\ \@\(72\/5 + 89\/\(\(-12\) + \@33\)\), \@\(2\/\(36 - 3\ \@33\)\)}, { \(-\(8\/135\)\)\ \@\(\(419 + 72\ \@33\)\/\(60 + 5\ \@33\)\), \(-\(8\/135\)\)\ \@\(\(419 + 72\ \@33\)\/\(60 + 5\ \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[2, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {39\/\(4\ 10\^\(3/4\)\), 39\/\(4\ 10\^\(3/4\)\), 0}, { 13\/\(3\ \@10\), 1\/\@10, 0}, {\(-\(17\/15\)\), 14\/15, 0}, { \(-\(34\/15\)\), 7\/15, 0}, {\@\(13\/5\)\/2, 0, 0}, {0, \@\(13\/5\)\/2, 0}, { \(-\(1\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), 7\/\(90\ \@185\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, { 1\/45\ \@\(829\/60 - \@\(11\/3\)\), \(-\(7\/\(90\ \@15\)\)\), 0}, { 0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {19\/\(540\ \@5\), 1\/\(60\ \@5\), 1\/\(18\ \@2\)}, { \(-\(\(11\ \@\(11\/185\)\)\/540\)\), \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(12 + \@33\)\/\(6\ \@222\)}, { 1\/90\ \@\(\(6463 - 969\ \@33\)\/\(30\ \((12 - \@33)\)\)\), \(-\(7\/90\)\)\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), 1\/\@\(24 - 2\ \@33\)}, {0, 0, 0}, { 1\/270\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), \(-\(7\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), 1\/\@\(72 - 6\ \@33\)}, { \(-\(1\/135\)\)\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(-\(1\/135\)\)\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[2, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(\(21\ 5\^\(1/4\)\)\/\(4\ 2\^\(3/4\)\)\)\), 3\/10\^\(3/4\), 0}, {\(-\(11\/\(3\ \@10\)\)\), 0, 0}, { \(-\(17\/15\)\), 1\/3, 0}, {17\/15, \(-\(1\/3\)\), 0}, { \(-\(\@\(13\/5\)\/2\)\), 0, 0}, {\(-\(\@\(13\/5\)\/2\)\), 0, 0}, { 1\/90\ \@\(829\/185 + \(4\ \@33\)\/37\), 1\/45\ \@\(1114\/185 + \(34\ \@33\)\/37\), 0}, { \(-\(1\/45\)\)\ \@\(829\/60 + \@\(11\/3\)\), \(-\(1\/45\)\)\ \@\(1114\/15 + 34\ \@\(11\/3\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(11\/\(540\ \@5\)\)\), \(-\(1\/\(45\ \@5\)\)\), 0}, { \(-\(1\/540\)\)\ \@\(1\/185\ \((23171 - 3040\ \@33)\)\), \(-\(1\/135\)\)\ \@\(6659\/185 + \(208\ \@33\)\/37\), 0}, { \(-\(1\/90\)\)\ \@\(689\/30 + 625\/\(6\ \((\(-12\) + \@33)\)\)\), \(-\(1\/45\)\)\ \@\(\(-38\)\/15 + 310\/\(36 - 3\ \@33\)\), 0}, {0, 0, 0}, {\(-\(1\/270\)\)\ \@\(689\/10 + 625\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/135\)\)\ \@\(\(-38\)\/5 - 310\/\(\(-12\) + \@33\)\), 0}, { 13\/135\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \(-\(2\/135\)\)\ \@\(2\/5 - 2\/\(12 + \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[3, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/\(45\ \@185\), \(-\(13\/\(90\ \@185\)\)\), 1\/\(10\ \@74\)}, {2\/\(45\ \@15\), \(-\(13\/\(90\ \@15\)\)\), 1\/\(10\ \@6\)}, {0, 0, 0}, {0, 0, 0}, { \(-\(1\/\(45\ \@5\)\)\), \(-\(11\/\(540\ \@5\)\)\), 1\/\(180\ \@2\)}, {1\/135\ \@\(6659\/185 - \(208\ \@33\)\/37\), 1\/540\ \@\(1\/185\ \((23171 + 3040\ \@33)\)\), \(-\(\@\(11\/74\)\/20\)\)}, { 1\/45\ \@\(2\/15 + 2\/\(\(-36\) + 3\ \@33\)\), \(-\(13\/90\)\)\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), \(\(-3\) + \@33\)\/\(60\ \@\(24 - 2\ \@33\)\)}, { 1\/45\ \@\(\(-38\)\/15 + 310\/\(36 + 3\ \@33\)\), 1\/90\ \@\(\(5143 + 689\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(-\(\(3 + \@33\)\/\(60\ \@\(24 + 2\ \@33\)\)\)\)}, { \(-\(1\/135\)\)\ \@\(2\/5 + 2\/\(\(-12\) + \@33\)\), 13\/270\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(\(\(-3\) + \@33\)\/\(60\ \@\(72 - 6\ \@33\)\)\)\)}, { \(-\(1\/135\)\)\ \@\(\(-38\)\/5 + 310\/\(12 + \@33\)\), \(-\(1\/270\)\)\ \@\(\(5143 + 689\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(3 + \@33\)\/\(60\ \@\(6\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[3, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\)\)\ \@\(889\/185 + \(16\ \@33\)\/37\), \(-\(1\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), \@\(1\/37\ \((17 - \@33)\)\)}, { \(-\(1\/45\)\)\ \@\(889\/60 + 4\ \@\(11\/3\)\), \(-\(1\/45\)\)\ \@\(829\/60 - \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {1\/\(60\ \@5\), 19\/\(540\ \@5\), 1\/\(9\ \@2\)}, { 1\/540\ \@\(19211\/185 - \(32\ \@33\)\/37\), \(-\(\(11\ \@\(11\/185\)\)\/540\)\), \(12 + \@33\)\/\(3\ \@222\)}, { \(-\(1\/90\)\)\ \@\(329\/30 + 73\/\(6\ \((\(-12\) + \@33)\)\)\), \(-\(1\/90\)\)\ \@\(\(6463 - 969\ \@33\)\/\(30\ \((12 - \@33)\)\)\), \(-\@\(2\/\(12 - \@33\)\)\)}, { \(-\(7\/90\)\)\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/90\)\)\ \@\(\(6463 + 969\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 0}, { 1\/270\ \@\(329\/10 + 73\/\(\(-24\) + 2\ \@33\)\), 1\/270\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), \@\(2\/\(36 - 3\ \@33\)\)}, { 7\/270\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), 1\/270\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[3, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/45\)\)\ \@\(1114\/185 - \(34\ \@33\)\/37\), \(-\(1\/45\)\)\ \@\(1114\/185 - \(34\ \@33\)\/37\), 0}, { \(-\(1\/45\)\)\ \@\(1114\/15 - 34\ \@\(11\/3\)\), 1\/45\ \@\(1114\/15 - 34\ \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, { 4\/\(45\ \@5\), 4\/\(45\ \@5\), 1\/\(9\ \@2\)}, { \(-\(\(28\ \@\(11\/185\)\)\/135\)\), \(-\(\(28\ \@\(11\/185\)\)\/135\)\), \(\(-12\) + \@33\)\/\(3\ \@222\)}, { \(-\(4\/45\)\)\ \@\(\(419 - 72\ \@33\)\/\(15\ \((12 - \@33)\)\)\), \(-\(4\/45\)\)\ \@\(\(419 - 72\ \@33\)\/\(15\ \((12 - \@33)\)\)\), 0}, {\(-\(4\/45\)\)\ \@\(\(419 + 72\ \@33\)\/\(15\ \((12 + \@33)\)\)\), 4\/45\ \@\(\(419 + 72\ \@33\)\/\(15\ \((12 + \@33)\)\)\), \@\(2\/\(12 + \@33\)\)}, { 4\/135\ \@\(72\/5 + 89\/\(\(-12\) + \@33\)\), 4\/135\ \@\(72\/5 + 89\/\(\(-12\) + \@33\)\), 0}, { 4\/135\ \@\(\(419 + 72\ \@33\)\/\(60 + 5\ \@33\)\), 4\/135\ \@\(\(419 + 72\ \@33\)\/\(60 + 5\ \@33\)\), \@\(2\/\(3\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[3, 3] = {{3\/10\^\(3/4\), 39\/\(4\ 10\^\(3/4\)\), 27\/\(8\ 10\^\(1/4\)\)}, {0, 13\/\(3\ \@10\), 0}, {1\/3, \(-\(17\/15\)\), 0}, {2\/3, \(-\(34\/15\)\), 0}, {0, \@\(13\/5\)\/2, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(1\/45\)\)\ \@\(1114\/185 - \(34\ \@33\)\/37\), \(-\(1\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), 1\/\(10\ \@74\)}, { \(-\(1\/45\)\)\ \@\(1114\/15 - 34\ \@\(11\/3\)\), \(-\(1\/45\)\)\ \@\(829\/60 - \@\(11\/3\)\), 1\/\(10\ \@6\)}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {4\/\(45\ \@5\), 19\/\(540\ \@5\), 1\/\(180\ \@2\)}, { \(-\(\(28\ \@\(11\/185\)\)\/135\)\), \(-\(\(11\ \@\(11\/185\)\)\/540\)\), \(-\(\@\(11\/74\)\/20\)\)}, { 4\/45\ \@\(\(419 - 72\ \@33\)\/\(15\ \((12 - \@33)\)\)\), 1\/90\ \@\(\(6463 - 969\ \@33\)\/\(30\ \((12 - \@33)\)\)\), \(-\(\(\(-3\) + \@33\)\/\(60\ \@\(24 - 2\ \@33\)\)\)\)}, { 4\/45\ \@\(\(419 + 72\ \@33\)\/\(15\ \((12 + \@33)\)\)\), 1\/90\ \@\(\(6463 + 969\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(3 + \@33\)\/\(60\ \@\(24 + 2\ \@33\)\)}, { 4\/135\ \@\(72\/5 + 89\/\(\(-12\) + \@33\)\), 1\/270\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), \(-\(\(\(-3\) + \@33\)\/\(60\ \@\(72 - 6\ \@33\)\)\)\)}, { 4\/135\ \@\(\(419 + 72\ \@33\)\/\(60 + 5\ \@33\)\), 1\/270\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(3 + \@33\)\/\(60\ \@\(6\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[3, 4] = {{39\/\(4\ 10\^\(3/4\)\), \(-\(\(21\ 5\^\(1/4\)\)\/\(4\ 2\^\(3/4\)\)\)\), 0}, {1\/\@10, \(-\(11\/\(3\ \@10\)\)\), 0}, {14\/15, \(-\(17\/15\)\), 0}, {7\/15, 17\/15, 0}, {0, \(-\(\@\(13\/5\)\/2\)\), 0}, {\@\(13\/5\)\/2, \(-\(\@\(13\/5\)\/2\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {7\/\(90\ \@185\), 1\/90\ \@\(829\/185 + \(4\ \@33\)\/37\), 0}, {7\/\(90\ \@15\), 1\/45\ \@\(829\/60 + \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {1\/\(60\ \@5\), \(-\(11\/\(540\ \@5\)\)\), 0}, { \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(-\(1\/540\)\)\ \@\(1\/185\ \((23171 - 3040\ \@33)\)\), 0}, { \(-\(7\/90\)\)\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), \(-\(1\/90\)\)\ \@\(689\/30 + 625\/\(6\ \((\(-12\) + \@33)\)\)\), 0}, {1\/90\ \@\(\(3583 + 329\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(-\(13\/90\)\)\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), 0}, { \(-\(7\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/270\)\)\ \@\(689\/10 + 625\/\(\(-24\) + 2\ \@33\)\), 0}, { 1\/270\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), \(-\(13\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[3, 5] = {{3\/10\^\(3/4\), 0, 0}, {0, 0, 0}, {1\/3, 0, 0}, {\(-\(1\/3\)\), 0, 0}, {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\/45\ \@\(1114\/185 + \(34\ \@33\)\/37\), 0, 0}, { 1\/45\ \@\(1114\/15 + 34\ \@\(11\/3\)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(1\/\(45\ \@5\)\)\), 0, 0}, { \(-\(1\/135\)\)\ \@\(6659\/185 + \(208\ \@33\)\/37\), 0, 0}, { \(-\(1\/45\)\)\ \@\(\(-38\)\/15 + 310\/\(36 - 3\ \@33\)\), 0, 0}, { 1\/45\ \@\(2\/15 - 2\/\(3\ \((12 + \@33)\)\)\), 0, 0}, { \(-\(1\/135\)\)\ \@\(\(-38\)\/5 - 310\/\(\(-12\) + \@33\)\), 0, 0}, {1\/135\ \@\(2\/5 - 2\/\(12 + \@33\)\), 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[4, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\ \@\(889\/185 - \(16\ \@33\)\/37\), 1\/90\ \@\(829\/185 + \(4\ \@33\)\/37\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, { 1\/45\ \@\(889\/60 - 4\ \@\(11\/3\)\), 1\/45\ \@\(829\/60 + \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(7\/\(180\ \@5\)\)\), \(-\(11\/\(540\ \@5\)\)\), 1\/\(18\ \@2\)}, {\(29\ \@\(11\/185\)\)\/540, \(-\(1\/540\)\)\ \@\(1\/185\ \((23171 - 3040\ \@33)\)\), \(12 + \@33\)\/\(6\ \@222\)}, { 1\/90\ \@\(\(8863 - 1449\ \@33\)\/\(30\ \((12 - \@33)\)\)\), 1\/90\ \@\(689\/30 + 625\/\(6\ \((\(-12\) + \@33)\)\)\), \(-\(1\/\@\(24 - 2\ \@33\)\)\)}, { 1\/90\ \@\(\(8863 + 1449\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 13\/90\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), 0}, { \(-\(1\/270\)\)\ \@\(1449\/10 + 1705\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/270\)\)\ \@\(689\/10 + 625\/\(\(-24\) + 2\ \@33\)\), 1\/\@\(72 - 6\ \@33\)}, { \(-\(1\/270\)\)\ \@\(\(8863 + 1449\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(-\(13\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[4, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {7\/\(90\ \@185\), 7\/\(90\ \@185\), 1\/\(10\ \@74\)}, {7\/\(90\ \@15\), \(-\(7\/\(90\ \@15\)\)\), \(-\(1\/\(10\ \@6\)\)\)}, {0, 0, 0}, {0, 0, 0}, {1\/\(60\ \@5\), 1\/\(60\ \@5\), 1\/\(180\ \@2\)}, { \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(-\(1\/540\)\)\ \@\(19211\/185 + \(32\ \@33\)\/37\), \(-\(\@\(11\/74\)\/20\)\)}, { 7\/90\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), 7\/90\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), \(\(-3\) + \@33\)\/\(60\ \@\(24 - 2\ \@33\)\)}, { \(-\(1\/90\)\)\ \@\(\(3583 + 329\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 1\/90\ \@\(\(3583 + 329\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(3 + \@33\)\/\(60\ \@\(24 + 2\ \@33\)\)}, { \(-\(7\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(7\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(\(\(-3\) + \@33\)\/\(60\ \@\(72 - 6\ \@33\)\)\)\)}, { 1\/270\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), 1\/270\ \@\(329\/10 - 73\/\(2\ \((12 + \@33)\)\)\), \(3 + \@33\)\/\(60\ \@\(6\ \((12 + \@33)\)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[4, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\)\)\ \@\(829\/185 - \(4\ \@33\)\/37\), \(-\(1\/90\)\)\ \@\(889\/185 + \(16\ \@33\)\/37\), 0}, { 1\/45\ \@\(829\/60 - \@\(11\/3\)\), 1\/45\ \@\(889\/60 + 4\ \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, { 19\/\(540\ \@5\), 1\/\(60\ \@5\), 1\/\(18\ \@2\)}, { \(-\(\(11\ \@\(11\/185\)\)\/540\)\), 1\/540\ \@\(19211\/185 - \(32\ \@33\)\/37\), \(\(-12\) + \@33\)\/\(6\ \@222\)}, { \(-\(1\/90\)\)\ \@\(\(6463 - 969\ \@33\)\/\(30\ \((12 - \@33)\)\)\), \(-\(1\/90\)\)\ \@\(329\/30 + 73\/\(6\ \((\(-12\) + \@33)\)\)\), 0}, {1\/90\ \@\(\(6463 + 969\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 7\/90\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), 1\/\@\(24 + 2\ \@33\)}, { 1\/270\ \@\(969\/10 + 1033\/\(\(-24\) + 2\ \@33\)\), 1\/270\ \@\(329\/10 + 73\/\(\(-24\) + 2\ \@33\)\), 0}, { 1\/270\ \@\(\(6463 + 969\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 7\/270\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), 1\/\@\(6\ \((12 + \@33)\)\)}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[4, 3] = {{\(-\(\(21\ 5\^\(1/4\)\)\/\(4\ 2\^\(3/4\)\)\)\), 39\/\(4\ 10\^\(3/4\)\), 0}, {\(-\(7\/\@10\)\), 13\/\(3\ \@10\), 0}, {\(-\(7\/15\)\), 34\/15, 0}, {7\/15, 17\/15, 0}, { \(-\(\@\(13\/5\)\/2\)\), 0, 0}, {\(-\(\@\(13\/5\)\/2\)\), \@\(13\/5\)\/2, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { \(-\(1\/90\)\)\ \@\(889\/185 + \(16\ \@33\)\/37\), \(-\(13\/\(90\ \@185\)\)\), 0}, { \(-\(1\/45\)\)\ \@\(889\/60 + 4\ \@\(11\/3\)\), \(-\(13\/\(90\ \@15\)\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {1\/\(60\ \@5\), \(-\(11\/\(540\ \@5\)\)\), 0}, { 1\/540\ \@\(19211\/185 - \(32\ \@33\)\/37\), 1\/540\ \@\(1\/185\ \((23171 + 3040\ \@33)\)\), 0}, { 1\/90\ \@\(329\/30 + 73\/\(6\ \((\(-12\) + \@33)\)\)\), 13\/90\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), 0}, { 7\/90\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/90\)\)\ \@\(\(5143 + 689\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 0}, { 1\/270\ \@\(329\/10 + 73\/\(\(-24\) + 2\ \@33\)\), 13\/270\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), 0}, { 7\/270\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \(-\(1\/270\)\)\ \@\(\(5143 + 689\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[4, 4] = {{39\/\(4\ 10\^\(3/4\)\), 0, 0}, {1\/\@10, 0, 0}, {\(-\(7\/15\)\), 0, 0}, {\(-\(14\/15\)\), 0, 0}, {\@\(13\/5\)\/2, 0, 0}, {0, 0, 0}, { 0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, { 1\/90\ \@\(889\/185 - \(16\ \@33\)\/37\), 0, 0}, { 1\/45\ \@\(889\/60 - 4\ \@\(11\/3\)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(7\/\(180\ \@5\)\)\), 0, 0}, { \(29\ \@\(11\/185\)\)\/540, 0, 0}, { \(-\(1\/90\)\)\ \@\(\(8863 - 1449\ \@33\)\/\(30\ \((12 - \@33)\)\)\), 0, 0}, { \(-\(1\/90\)\)\ \@\(\(8863 + 1449\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 0, 0}, { \(-\(1\/270\)\)\ \@\(1449\/10 + 1705\/\(\(-24\) + 2\ \@33\)\), 0, 0}, {\(-\(1\/270\)\)\ \@\(\(8863 + 1449\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[4, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[5, 0] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/45\ \@\(1114\/185 + \(34\ \@33\)\/37\), 1\/45\ \@\(1114\/185 + \(34\ \@33\)\/37\), 0}, { 1\/45\ \@\(1114\/15 + 34\ \@\(11\/3\)\), \(-\(1\/45\)\)\ \@\(1114\/15 + 34\ \@\(11\/3\)\), 0}, {0, 0, 0}, { 0, 0, 0}, {\(-\(1\/\(45\ \@5\)\)\), \(-\(1\/\(45\ \@5\)\)\), 0}, { \(-\(1\/135\)\)\ \@\(6659\/185 + \(208\ \@33\)\/37\), \(-\(1\/135\)\)\ \@\(6659\/185 + \(208\ \@33\)\/37\), 0}, { 1\/45\ \@\(\(-38\)\/15 + 310\/\(36 - 3\ \@33\)\), 1\/45\ \@\(\(-38\)\/15 + 310\/\(36 - 3\ \@33\)\), 0}, { \(-\(1\/45\)\)\ \@\(2\/15 - 2\/\(3\ \((12 + \@33)\)\)\), 1\/45\ \@\(2\/15 - 2\/\(3\ \((12 + \@33)\)\)\), 0}, { \(-\(1\/135\)\)\ \@\(\(-38\)\/5 - 310\/\(\(-12\) + \@33\)\), \(-\(1\/135\)\)\ \@\(\(-38\)\/5 - 310\/\(\(-12\) + \@33\)\), 0}, { 1\/135\ \@\(2\/5 - 2\/\(12 + \@33\)\), 1\/135\ \@\(2\/5 - 2\/\(12 + \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[5, 1] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {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\/90\ \@\(829\/185 + \(4\ \@33\)\/37\), 1\/90\ \@\(889\/185 - \(16\ \@33\)\/37\), 0}, { \(-\(1\/45\)\)\ \@\(829\/60 + \@\(11\/3\)\), \(-\(1\/45\)\)\ \@\(889\/60 - 4\ \@\(11\/3\)\), 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(11\/\(540\ \@5\)\)\), \(-\(7\/\(180\ \@5\)\)\), 0}, { \(-\(1\/540\)\)\ \@\(1\/185\ \((23171 - 3040\ \@33)\)\), \(29\ \@\(11\/185\)\)\/540, 0}, { 1\/90\ \@\(689\/30 + 625\/\(6\ \((\(-12\) + \@33)\)\)\), 1\/90\ \@\(\(8863 - 1449\ \@33\)\/\(30\ \((12 - \@33)\)\)\), 0}, { \(-\(13\/90\)\)\ \@\(1\/30 - 1\/\(6\ \((12 + \@33)\)\)\), \(-\(1\/90\)\)\ \@\(\(8863 + 1449\ \@33\)\/\(30\ \((12 + \@33)\)\)\), 0}, { \(-\(1\/270\)\)\ \@\(689\/10 + 625\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/270\)\)\ \@\(1449\/10 + 1705\/\(\(-24\) + 2\ \@33\)\), 0}, { \(-\(13\/270\)\)\ \@\(1\/10 + 1\/\(\(-24\) - 2\ \@33\)\), \(-\(1\/270\)\)\ \@\(\(8863 + 1449\ \@33\)\/\(10\ \((12 + \@33)\)\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[5, 2] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(13\/\(90\ \@185\)\)\), 2\/\(45\ \@185\), 0}, {13\/\(90\ \@15\), \(-\(2\/\(45\ \@15\)\)\), 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(11\/\(540\ \@5\)\)\), \(-\(1\/\(45\ \@5\)\)\), 0}, { 1\/540\ \@\(1\/185\ \((23171 + 3040\ \@33)\)\), 1\/135\ \@\(6659\/185 - \(208\ \@33\)\/37\), 0}, { \(-\(13\/90\)\)\ \@\(1\/30 + 1\/\(\(-72\) + 6\ \@33\)\), 1\/45\ \@\(2\/15 + 2\/\(\(-36\) + 3\ \@33\)\), 0}, { \(-\(1\/90\)\)\ \@\(\(5143 + 689\ \@33\)\/\(30\ \((12 + \@33)\)\)\), \(-\(1\/45\)\)\ \@\(\(-38\)\/15 + 310\/\(36 + 3\ \@33\)\), 0}, { 13\/270\ \@\(1\/10 + 1\/\(\(-24\) + 2\ \@33\)\), \(-\(1\/135\)\)\ \@\(2\/5 + 2\/\(\(-12\) + \@33\)\), 0}, { \(-\(1\/270\)\)\ \@\(\(5143 + 689\ \@33\)\/\(10\ \((12 + \@33)\)\)\), \(-\(1\/135\)\)\ \@\(\(-38\)\/5 + 310\/\(12 + \@33\)\), 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[5, 3] = {{3\/10\^\(3/4\), 0, 0}, {0, 0, 0}, {\(-\(2\/3\)\), 0, 0}, { \(-\(1\/3\)\), 0, 0}, {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\/\(45\ \@185\), 0, 0}, {2\/\(45\ \@15\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(1\/\(45\ \@5\)\)\), 0, 0}, { 1\/135\ \@\(6659\/185 - \(208\ \@33\)\/37\), 0, 0}, { \(-\(1\/45\)\)\ \@\(2\/15 + 2\/\(\(-36\) + 3\ \@33\)\), 0, 0}, { \(-\(1\/45\)\)\ \@\(\(-38\)\/15 + 310\/\(36 + 3\ \@33\)\), 0, 0}, { \(-\(1\/135\)\)\ \@\(2\/5 + 2\/\(\(-12\) + \@33\)\), 0, 0}, { \(-\(1\/135\)\)\ \@\(\(-38\)\/5 + 310\/\(12 + \@33\)\), 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[5, 4] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"], Cell[BoxData[ \(\(Ht[5, 5] = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}}; \)\)], "Input"] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 1024}, {0, 748}}, WindowSize->{520, 653}, WindowMargins->{{Automatic, 65}, {20, Automatic}}, MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1709, 49, 51, 1, 26, "Input"], Cell[1763, 52, 366, 6, 86, "Input"], Cell[2132, 60, 366, 6, 86, "Input"], Cell[2501, 68, 899, 16, 413, "Input"], Cell[3403, 86, 1295, 22, 703, "Input"], Cell[4701, 110, 1140, 20, 579, "Input"], Cell[5844, 132, 1061, 18, 513, "Input"], Cell[6908, 152, 366, 6, 86, "Input"], Cell[7277, 160, 1154, 20, 506, "Input"], Cell[8434, 182, 1302, 22, 585, "Input"], Cell[9739, 206, 1102, 19, 565, "Input"], Cell[10844, 227, 1576, 25, 775, "Input"], Cell[12423, 254, 1341, 23, 662, "Input"], Cell[13767, 279, 838, 14, 398, "Input"], Cell[14608, 295, 1306, 22, 662, "Input"], Cell[15917, 319, 1217, 21, 411, "Input"], Cell[17137, 342, 1325, 23, 474, "Input"], Cell[18465, 367, 1413, 24, 730, "Input"], Cell[19881, 393, 1408, 25, 608, "Input"], Cell[21292, 420, 1655, 27, 502, "Input"], Cell[22950, 449, 1545, 27, 703, "Input"], Cell[24498, 478, 1475, 25, 471, "Input"], Cell[25976, 505, 1966, 32, 617, "Input"], Cell[27945, 539, 1489, 25, 557, "Input"], Cell[29437, 566, 904, 15, 508, "Input"], Cell[30344, 583, 1600, 30, 775, "Input"], Cell[31947, 615, 1637, 27, 526, "Input"], Cell[33587, 644, 1494, 27, 532, "Input"], Cell[35084, 673, 1517, 26, 578, "Input"], Cell[36604, 701, 990, 17, 324, "Input"], Cell[37597, 720, 366, 6, 71, "Input"], Cell[37966, 728, 1331, 23, 483, "Input"], Cell[39300, 753, 1485, 27, 511, "Input"], Cell[40788, 782, 1259, 21, 532, "Input"], Cell[42050, 805, 847, 14, 483, "Input"], Cell[42900, 821, 366, 6, 86, "Input"], Cell[43269, 829, 366, 6, 86, "Input"], Cell[43638, 837, 367, 6, 86, "Input"], Cell[44008, 845, 367, 6, 86, "Input"], Cell[44378, 853, 854, 14, 422, "Input"], Cell[45235, 869, 1165, 20, 435, "Input"], Cell[46403, 891, 1020, 16, 350, "Input"], Cell[47426, 909, 919, 14, 342, "Input"], Cell[48348, 925, 367, 6, 71, "Input"], Cell[48718, 933, 999, 16, 383, "Input"], Cell[49720, 951, 1193, 21, 414, "Input"], Cell[CellGroupData[{ Cell[50938, 976, 41, 1, 26, "Input"], Cell[50982, 979, 956, 14, 455, "Output"] }, Open ]], Cell[51953, 996, 1020, 16, 539, "Input"], Cell[52976, 1014, 1486, 24, 576, "Input"], Cell[54465, 1040, 1218, 20, 445, "Input"], Cell[55686, 1062, 786, 13, 275, "Input"], Cell[56475, 1077, 1205, 20, 400, "Input"], Cell[57683, 1099, 1136, 19, 422, "Input"], Cell[58822, 1120, 1187, 20, 431, "Input"], Cell[60012, 1142, 1367, 24, 491, "Input"], Cell[61382, 1168, 1337, 21, 542, "Input"], Cell[62722, 1191, 1440, 23, 450, "Input"], Cell[64165, 1216, 1424, 25, 702, "Input"], Cell[65592, 1243, 1358, 23, 587, "Input"], Cell[66953, 1268, 1674, 27, 619, "Input"], Cell[68630, 1297, 1392, 21, 530, "Input"], Cell[70025, 1320, 807, 12, 340, "Input"], Cell[70835, 1334, 1421, 25, 513, "Input"], Cell[72259, 1361, 1423, 23, 474, "Input"], Cell[73685, 1386, 1345, 23, 660, "Input"], Cell[75033, 1411, 1432, 25, 757, "Input"], Cell[76468, 1438, 929, 16, 359, "Input"], Cell[77400, 1456, 367, 6, 71, "Input"], Cell[77770, 1464, 1202, 19, 701, "Input"], Cell[78975, 1485, 1293, 21, 605, "Input"], Cell[80271, 1508, 1164, 20, 476, "Input"], Cell[81438, 1530, 769, 12, 439, "Input"], Cell[82210, 1544, 367, 6, 86, "Input"], Cell[82580, 1552, 367, 6, 86, "Input"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)