(***********************************************************************

                    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[     39522,        736]*)
(*NotebookOutlinePosition[     40363,        763]*)
(*  CellTagsIndexPosition[     40319,        759]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \(\(Clear[H]; \)\)], "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\/57\ \@\(1\/222\ \((10097 + 1729\ \@33)\)\), 
          \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, {0, 
          1\/342\ \((\(-91\) - 19\ \@33)\), 0}, {0, \(-\(7\/\(342\ \@3\)\)\), 
          1\/\(18\ \@2\)}, {0, 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 + 27056\ \@33)\)\), 
          \(12 + \@33\)\/\(6\ \@222\)}, {0, 
          1\/513\ \@\(1\/74\ \((114831 + 18847\ \@33)\)\), 
          \(-\(1\/3\)\)\ \@\(1\/74\ \((12 + \@33)\)\)}, {0, 
          17\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 0}, {
          0, \(-\(1\/171\)\)\ \@\(1\/222\ \((114831 + 18847\ \@33)\)\), 
          \@\(1\/222\ \((12 + \@33)\)\)}, {0, 0, 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\/57\ \@\(1\/222\ \((10097 + 1729\ \@33)\)\), 
          1\/114\ \@\(161\/6 + \(19\ \@\(11\/3\)\)\/74\), 
          \(-\(\(4\ \@\(2\/37\)\)\/19\)\)}, {1\/342\ \((91 + 19\ \@33)\), 
          1\/684\ \((1 + 19\ \@33)\), \(-\(\(4\ \@\(2\/3\)\)\/19\)\)}, {
          \(-\(7\/\(342\ \@3\)\)\), \(-\(11\/\(342\ \@3\)\)\), 
          \(-\(\(2\ \@2\)\/171\)\)}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 + 27056\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((23147 - 3496\ \@33)\)\), 
          \(2\ \@\(22\/37\)\)\/19}, {
          1\/513\ \@\(1\/74\ \((114831 + 18847\ \@33)\)\), 
          1\/513\ \@\(1\/37\ \((18792 - 1801\ \@33)\)\), 
          \(-\(4\/57\)\)\ \@\(1\/111\ \((51 - 5\ \@33)\)\)}, {
          \(-\(17\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          7\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          \(4\ \((3 + \@33)\)\)\/\(57\ \@\(72 + 6\ \@33\)\)}, {
          \(-\(1\/171\)\)\ \@\(1\/222\ \((114831 + 18847\ \@33)\)\), 
          \(-\(1\/171\)\)\ \@\(1\/111\ \((18792 - 1801\ \@33)\)\), 
          4\/57\ \@\(1\/37\ \((51 - 5\ \@33)\)\)}, {
          17\/171\ \@\(\(7 + \@33\)\/\(24 + 2\ \@33\)\), 
          \(-\(7\/171\)\)\ \@\(\(2\ \((7 + \@33)\)\)\/\(12 + \@33\)\), 
          \(-\(\(4\ \((3 + \@33)\)\)\/\(57\ \@\(24 + 2\ \@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\/114\ \@\(6641\/222 - \(19\ \@\(11\/3\)\)\/2\), 
          \(-\(14\/\(57\ \@111\)\)\), 0}, {1\/684\ \((\(-37\) + 19\ \@33)\), 
          \(-\(14\/171\)\), 0}, {\(-\(41\/\(684\ \@3\)\)\), 
          \(-\(11\/\(342\ \@3\)\)\), 1\/\(18\ \@2\)}, {
          \(65\ \@\(11\/111\)\)\/684, 
          1\/342\ \@\(1\/111\ \((23147 + 3496\ \@33)\)\), 
          \(\(-12\) + \@33\)\/\(6\ \@222\)}, {
          \@\(1\/74\ \((227343 - 34529\ \@33)\)\)\/1026, 
          \(-\(7\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 0}, {
          1\/342\ \@\(\(34843 + 5781\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          1\/171\ \@\(\(2567 + 364\ \@33\)\/\(36 + 3\ \@33\)\), 
          \(-\(1\/\@\(6\ \((12 + \@33)\)\)\)\)}, {
          \(-\(1\/342\)\)\ \@\(1\/222\ \((227343 - 34529\ \@33)\)\), 
          7\/171\ \@\(2\/111\ \((51 - 5\ \@33)\)\), 0}, {
          \(-\(1\/342\)\)\ \@\(\(34843 + 5781\ \@33\)\/\(24 + 2\ \@33\)\), 
          \(-\(1\/171\)\)\ \@\(\(2567 + 364\ \@33\)\/\(12 + \@33\)\), 
          1\/\@\(24 + 2\ \@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, \(-\(\(7\ \@2\)\/57\)\), 0}, {0, 0, 0}, {0, 
          \(-\(1\/\(3\ \@2\)\)\), 0}, {0, 0, 0}, {0, \(-\(1\/\@6\)\), 0}, {0, 
          0, 0}, {0, 17\/\(57\ \@111\), 0}, {0, \(-\(17\/171\)\), 0}, {0, 0, 
          0}, {0, 0, 0}, {17\/\(57\ \@111\), 0, 0}, {17\/171, 0, 0}, {
          \(-\(7\/\(342\ \@3\)\)\), \(-\(7\/\(342\ \@3\)\)\), 0}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 - 27056\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 - 27056\ \@33)\)\), 0}, {
          17\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 
          \(-\(17\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 0}, {
          1\/171\ \@\(\(6811 - 1003\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          1\/171\ \@\(\(6811 - 1003\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          \(-\(17\/171\)\)\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 0, 0}, {
          \(-\(1\/171\)\)\ \@\(\(6811 - 1003\ \@33\)\/\(24 + 2\ \@33\)\), 
          \(-\(1\/171\)\)\ \@\(\(6811 - 1003\ \@33\)\/\(24 + 2\ \@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\/114\ \@\(6641\/222 - \(19\ \@\(11\/3\)\)\/2\), 
          \(-\(\(4\ \@\(2\/37\)\)\/19\)\)}, {0, 1\/684\ \((37 - 19\ \@33)\), 
          \(4\ \@\(2\/3\)\)\/19}, {0, \(-\(41\/\(684\ \@3\)\)\), 
          \(-\(\(2\ \@2\)\/171\)\)}, {0, \(65\ \@\(11\/111\)\)\/684, 
          \(2\ \@\(22\/37\)\)\/19}, {0, 
          \@\(1\/74\ \((227343 - 34529\ \@33)\)\)\/1026, 
          \(-\(4\/57\)\)\ \@\(1\/111\ \((51 - 5\ \@33)\)\)}, {0, 
          \(-\(1\/171\)\)\ 
            \@\(\(34843 + 5781\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(\(8\ \((3 + \@33)\)\)\/\(57\ \@\(72 + 6\ \@33\)\)\)\)}, {0, 
          \(-\(1\/342\)\)\ \@\(1\/222\ \((227343 - 34529\ \@33)\)\), 
          4\/57\ \@\(1\/37\ \((51 - 5\ \@33)\)\)}, {0, 0, 0}}; \)\)], "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\/114\ \@\(161\/6 + \(19\ \@\(11\/3\)\)\/74\), 5\/\(57\ \@111\), 
          \@\(1\/37\ \((17 - \@33)\)\)}, {1\/684\ \((\(-1\) - 19\ \@33)\), 
          \(-\(5\/171\)\), 0}, {\(-\(11\/\(342\ \@3\)\)\), 4\/\(171\ \@3\), 
          1\/\(9\ \@2\)}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((23147 - 3496\ \@33)\)\), 
          \(-\(2\/171\)\)\ \@\(2\/111\ \((547 - 19\ \@33)\)\), 
          \(12 + \@33\)\/\(3\ \@222\)}, {
          1\/513\ \@\(1\/37\ \((18792 - 1801\ \@33)\)\), 
          5\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 
          \(-\(1\/3\)\)\ \@\(2\/37\ \((12 + \@33)\)\)}, {
          \(-\(14\/171\)\)\ 
            \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          1\/171\ \@\(430\/3 + 662\/\(36 + 3\ \@33\)\), 0}, {
          \(-\(1\/171\)\)\ \@\(1\/111\ \((18792 - 1801\ \@33)\)\), 
          \(-\(5\/171\)\)\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 
          \@\(2\/111\ \((12 + \@33)\)\)}, {0, 0, 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\/\(57\ \@111\), 
          \(-\(1\/114\)\)\ \@\(161\/6 - \(19\ \@\(11\/3\)\)\/74\), 0}, {
          5\/171, 1\/684\ \((1 - 19\ \@33)\), 0}, {4\/\(171\ \@3\), 
          35\/\(684\ \@3\), 1\/\(9\ \@2\)}, {
          \(-\(2\/171\)\)\ \@\(2\/111\ \((547 - 19\ \@33)\)\), 
          \(-\(\(11\ \@\(11\/111\)\)\/684\)\), 
          \(\(-12\) + \@33\)\/\(3\ \@222\)}, {
          5\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 
          \(-\(\@\(1\/74\ \((153471 - 15377\ \@33)\)\)\/1026\)\), 0}, {
          \(-\(1\/171\)\)\ \@\(215\/6 + 331\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(1\/342\)\)\ 
            \@\(\(21163 + 3045\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(2\/\@\(72 + 6\ \@33\)\)\)}, {
          \(-\(5\/171\)\)\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 
          1\/342\ \@\(1\/222\ \((153471 - 15377\ \@33)\)\), 0}, {
          1\/171\ \@\(215\/2 + 331\/\(24 + 2\ \@33\)\), 
          1\/342\ \@\(\(21163 + 3045\ \@33\)\/\(24 + 2\ \@33\)\), 
          2\/\@\(24 + 2\ \@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, \(8\ \@2\)\/57, \(-\(\(9\ \@3\)\/19\)\)}, {0, 1\/\@6, 0}, {
          0, \(-\(1\/\(3\ \@2\)\)\), 0}, {0, \(-\(1\/\(2\ \@3\)\)\), 0}, {0, 
          1\/\@6, 0}, {0, 1\/2, 0}, {0, 
          \(-\(1\/114\)\)\ \@\(6641\/222 + \(19\ \@\(11\/3\)\)\/2\), 
          \(-\(\(4\ \@\(2\/37\)\)\/19\)\)}, {0, 1\/684\ \((37 + 19\ \@33)\), 
          \(4\ \@\(2\/3\)\)\/19}, {0, 0, 0}, {0, 0, 0}, {
          \(-\(1\/114\)\)\ \@\(6641\/222 + \(19\ \@\(11\/3\)\)\/2\), 0, 0}, {
          1\/684\ \((\(-37\) - 19\ \@33)\), 0, 0}, {4\/\(171\ \@3\), 
          4\/\(171\ \@3\), \(-\(\(2\ \@2\)\/171\)\)}, {
          2\/171\ \@\(2\/111\ \((547 + 19\ \@33)\)\), 
          2\/171\ \@\(2\/111\ \((547 + 19\ \@33)\)\), 
          \(2\ \@\(22\/37\)\)\/19}, {
          \(-\(1\/513\)\)\ \@\(1\/74\ \((27837 + 331\ \@33)\)\), 
          1\/513\ \@\(2\/37\ \((27837 + 331\ \@33)\)\), 
          8\/57\ \@\(1\/111\ \((51 - 5\ \@33)\)\)}, {
          \(-\(5\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(5\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(4\ \((3 + \@33)\)\)\/\(57\ \@\(72 + 6\ \@33\)\)}, {
          1\/171\ \@\(1\/222\ \((27837 + 331\ \@33)\)\), 0, 0}, {
          5\/171\ \@\(\(7 + \@33\)\/\(24 + 2\ \@33\)\), 
          5\/171\ \@\(\(7 + \@33\)\/\(24 + 2\ \@33\)\), 
          \(-\(\(4\ \((3 + \@33)\)\)\/\(57\ \@\(24 + 2\ \@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}, {\(8\ \@2\)\/57, \(8\ \@2\)\/57, 0}, {\(-\(1\/\@6\)\), 1\/\@6, 
          0}, {1\/\(3\ \@2\), \@2\/3, 0}, {\(-\(1\/\(2\ \@3\)\)\), 1\/\@3, 
          0}, {1\/\@6, 0, 0}, {\(-\(1\/2\)\), 0, 0}, {
          \(-\(14\/\(57\ \@111\)\)\), 
          1\/114\ \@\(6641\/222 - \(19\ \@\(11\/3\)\)\/2\), 0}, {14\/171, 
          1\/684\ \((37 - 19\ \@33)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {
          0, 0, 0}, {\(-\(11\/\(342\ \@3\)\)\), \(-\(41\/\(684\ \@3\)\)\), 
          0}, {1\/342\ \@\(1\/111\ \((23147 + 3496\ \@33)\)\), 
          \(65\ \@\(11\/111\)\)\/684, 0}, {
          14\/513\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 
          \(-\(1\/513\)\)\ \@\(1\/74\ \((227343 - 34529\ \@33)\)\), 0}, {
          1\/171\ \@\(\(2567 + 364\ \@33\)\/\(36 + 3\ \@33\)\), 
          1\/342\ \@\(\(34843 + 5781\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          0, 0, 0}, {
          \(-\(1\/171\)\)\ \@\(\(2567 + 364\ \@33\)\/\(12 + \@33\)\), 
          \(-\(1\/342\)\)\ \@\(\(34843 + 5781\ \@33\)\/\(24 + 2\ \@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, 
          17\/\(57\ \@111\), 0}, {0, \(-\(17\/171\)\), 0}, {0, 
          \(-\(7\/\(342\ \@3\)\)\), 1\/\(18\ \@2\)}, {0, 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 - 27056\ \@33)\)\), 
          \(\(-12\) + \@33\)\/\(6\ \@222\)}, {0, 
          17\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 0}, {0, 
          \(-\(1\/171\)\)\ \@\(\(13622 - 2006\ \@33\)\/\(36 + 3\ \@33\)\), 
          2\/\@\(72 + 6\ \@33\)}, {0, 
          \(-\(17\/171\)\)\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 0}, {0, 0, 0}}; 
    \)\)], "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}, {
          \(-\(14\/\(57\ \@111\)\)\), 
          \(-\(1\/114\)\)\ \@\(6641\/222 + \(19\ \@\(11\/3\)\)\/2\), 0}, {
          14\/171, 1\/684\ \((37 + 19\ \@33)\), 0}, {
          \(-\(11\/\(342\ \@3\)\)\), 4\/\(171\ \@3\), 1\/\(9\ \@2\)}, {
          1\/342\ \@\(1\/111\ \((23147 + 3496\ \@33)\)\), 
          2\/171\ \@\(2\/111\ \((547 + 19\ \@33)\)\), 
          \(\(-12\) + \@33\)\/\(3\ \@222\)}, {
          \(-\(7\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 
          \(-\(1\/513\)\)\ \@\(1\/74\ \((27837 + 331\ \@33)\)\), 0}, {
          \(-\(2\/171\)\)\ \@\(\(2567 + 364\ \@33\)\/\(36 + 3\ \@33\)\), 
          5\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          4\/\@\(72 + 6\ \@33\)}, {7\/171\ \@\(2\/111\ \((51 - 5\ \@33)\)\), 
          1\/171\ \@\(1\/222\ \((27837 + 331\ \@33)\)\), 0}, {0, 0, 0}}; 
    \)\)], "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\/114\)\)\ \@\(161\/6 - \(19\ \@\(11\/3\)\)\/74\), 
          \(-\(1\/57\)\)\ \@\(1\/222\ \((10097 - 1729\ \@33)\)\), 0}, {
          1\/684\ \((\(-1\) + 19\ \@33)\), 1\/342\ \((\(-91\) + 19\ \@33)\), 
          0}, {35\/\(684\ \@3\), 25\/\(171\ \@3\), \(-\(\(2\ \@2\)\/3\)\)}, {
          \(-\(\(11\ \@\(11\/111\)\)\/684\)\), 
          \(-\(\(73\ \@\(11\/111\)\)\/171\)\), 0}, {
          \(-\(\@\(1\/74\ \((153471 - 15377\ \@33)\)\)\/1026\)\), 
          \(-\(908\/171\)\)\ \@\(2\/\(3\ \((100029 + 17333\ \@33)\)\)\), 0}, {
          1\/171\ \@\(\(21163 + 3045\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          2\/171\ \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(3\ 
                    \((12 + \@33)\)\)\), 0}, {
          1\/342\ \@\(1\/222\ \((153471 - 15377\ \@33)\)\), 
          908\/171\ \@\(2\/\(100029 + 17333\ \@33\)\), 0}, {0, 0, 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, \(-\(\(7\ \@2\)\/57\)\), 0}, {0, 0, 0}, {0, \@2\/3, 0}, {0, 
          0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 
          \(-\(1\/57\)\)\ \@\(1\/222\ \((10097 - 1729\ \@33)\)\), 
          \@\(1\/37\ \((17 - \@33)\)\)}, {0, 
          1\/342\ \((\(-91\) + 19\ \@33)\), 0}, {0, 0, 0}, {0, 0, 0}, {
          \(-\(1\/57\)\)\ \@\(1\/222\ \((10097 - 1729\ \@33)\)\), 0, 0}, {
          1\/342\ \((91 - 19\ \@33)\), 0, 0}, {25\/\(171\ \@3\), 
          25\/\(171\ \@3\), 1\/\(9\ \@2\)}, {
          \(-\(\(73\ \@\(11\/111\)\)\/171\)\), 
          \(-\(\(73\ \@\(11\/111\)\)\/171\)\), \(12 + \@33\)\/\(3\ \@222\)}, {
          \(-\(908\/171\)\)\ \@\(2\/\(3\ \((100029 + 17333\ \@33)\)\)\), 
          1816\/171\ \@\(2\/\(3\ \((100029 + 17333\ \@33)\)\)\), 
          2\/3\ \@\(2\/37\ \((12 + \@33)\)\)}, {
          \(-\(1\/171\)\)\ 
            \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          \(-\(1\/171\)\)\ 
            \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          0}, {908\/171\ \@\(2\/\(100029 + 17333\ \@33\)\), 0, 0}, {
          1\/171\ \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(12 + \@33\)\), 
          1\/171\ \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(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}, {\(8\ \@2\)\/57, \(8\ \@2\)\/57, 0}, {\(-\(1\/\@6\)\), 1\/\@6, 
          0}, {\(-\(\@2\/3\)\), \(-\(1\/\(3\ \@2\)\)\), 0}, {1\/\@3, 
          \(-\(1\/\(2\ \@3\)\)\), 0}, {0, \(-\(1\/\@6\)\), 0}, {0, 
          \(-\(1\/2\)\), 0}, {
          \(-\(1\/114\)\)\ \@\(161\/6 - \(19\ \@\(11\/3\)\)\/74\), 
          5\/\(57\ \@111\), \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, {
          1\/684\ \((\(-1\) + 19\ \@33)\), \(-\(5\/171\)\), 0}, {0, 0, 0}, {
          0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {35\/\(684\ \@3\), 4\/\(171\ \@3\), 
          1\/\(18\ \@2\)}, {\(-\(\(11\ \@\(11\/111\)\)\/684\)\), 
          \(-\(2\/171\)\)\ \@\(2\/111\ \((547 - 19\ \@33)\)\), 
          \(12 + \@33\)\/\(6\ \@222\)}, {
          1\/513\ \@\(1\/74\ \((153471 - 15377\ \@33)\)\), 
          \(-\(5\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 
          1\/3\ \@\(2\/37\ \((12 + \@33)\)\)}, {
          \(-\(1\/342\)\)\ 
            \@\(\(21163 + 3045\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(1\/171\)\)\ \@\(215\/6 + 331\/\(6\ \((12 + \@33)\)\)\), 0}, {
          0, 0, 0}, {1\/342\ \@\(\(21163 + 3045\ \@33\)\/\(24 + 2\ \@33\)\), 
          1\/171\ \@\(215\/2 + 331\/\(24 + 2\ \@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}, {\(8\ \@2\)\/57, \(-\(\(7\ \@2\)\/57\)\), 0}, {\(-\(1\/\@6\)\), 
          0, 0}, {1\/\(3\ \@2\), \(-\(1\/\(3\ \@2\)\)\), 0}, {
          \(-\(1\/\(2\ \@3\)\)\), 0, 0}, {\(-\(1\/\@6\)\), 1\/\@6, 0}, {1\/2, 
          0, 0}, {1\/114\ \@\(161\/6 + \(19\ \@\(11\/3\)\)\/74\), 
          1\/57\ \@\(1\/222\ \((10097 + 1729\ \@33)\)\), 0}, {
          1\/684\ \((\(-1\) - 19\ \@33)\), 1\/342\ \((\(-91\) - 19\ \@33)\), 
          0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {
          \(-\(11\/\(342\ \@3\)\)\), \(-\(7\/\(342\ \@3\)\)\), 0}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((23147 - 3496\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 + 27056\ \@33)\)\), 0}, {
          \(-\(2\/513\)\)\ \@\(1\/37\ \((18792 - 1801\ \@33)\)\), 
          \(-\(1\/513\)\)\ \@\(2\/37\ \((114831 + 18847\ \@33)\)\), 0}, {
          7\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          \(-\(17\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          0, 0, 0}, {
          \(-\(7\/171\)\)\ \@\(\(2\ \((7 + \@33)\)\)\/\(12 + \@33\)\), 
          17\/171\ \@\(\(7 + \@33\)\/\(24 + 2\ \@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}, {17\/\(57\ \@111\), 
          \(-\(14\/\(57\ \@111\)\)\), \(-\(\(4\ \@\(2\/37\)\)\/19\)\)}, {
          17\/171, \(-\(14\/171\)\), \(-\(\(4\ \@\(2\/3\)\)\/19\)\)}, {0, 0, 
          0}, {0, 0, 0}, {\(-\(7\/\(342\ \@3\)\)\), 
          \(-\(11\/\(342\ \@3\)\)\), \(-\(\(2\ \@2\)\/171\)\)}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 - 27056\ \@33)\)\), 
          1\/342\ \@\(1\/111\ \((23147 + 3496\ \@33)\)\), 
          \(2\ \@\(22\/37\)\)\/19}, {
          17\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 
          \(-\(7\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 
          \(-\(4\/57\)\)\ \@\(1\/111\ \((51 - 5\ \@33)\)\)}, {
          \(-\(1\/171\)\)\ \@\(\(13622 - 2006\ \@33\)\/\(36 + 3\ \@33\)\), 
          \(-\(2\/171\)\)\ \@\(\(2567 + 364\ \@33\)\/\(36 + 3\ \@33\)\), 
          \(-\(\(8\ \((3 + \@33)\)\)\/\(57\ \@\(72 + 6\ \@33\)\)\)\)}, {
          17\/171\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 
          \(-\(7\/171\)\)\ \@\(2\/111\ \((51 - 5\ \@33)\)\), 
          \(-\(4\/57\)\)\ \@\(1\/37\ \((51 - 5\ \@33)\)\)}, {0, 0, 0}}; \)\)],
   "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\/114\)\)\ \@\(6641\/222 + \(19\ \@\(11\/3\)\)\/2\), 
          \(-\(1\/114\)\)\ \@\(161\/6 - \(19\ \@\(11\/3\)\)\/74\), 
          \@\(1\/37\ \((17 - \@33)\)\)}, {1\/684\ \((\(-37\) - 19\ \@33)\), 
          1\/684\ \((1 - 19\ \@33)\), 0}, {0, 0, 0}, {0, 0, 0}, {
          4\/\(171\ \@3\), 35\/\(684\ \@3\), 1\/\(9\ \@2\)}, {
          2\/171\ \@\(2\/111\ \((547 + 19\ \@33)\)\), 
          \(-\(\(11\ \@\(11\/111\)\)\/684\)\), \(12 + \@33\)\/\(3\ \@222\)}, {
          \(-\(1\/513\)\)\ \@\(1\/74\ \((27837 + 331\ \@33)\)\), 
          \(-\(\@\(1\/74\ \((153471 - 15377\ \@33)\)\)\/1026\)\), 
          \(-\(1\/3\)\)\ \@\(2\/37\ \((12 + \@33)\)\)}, {
          5\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          1\/171\ \@\(\(21163 + 3045\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          \(-\(1\/171\)\)\ \@\(1\/222\ \((27837 + 331\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/222\ \((153471 - 15377\ \@33)\)\), 
          \(-\@\(2\/111\ \((12 + \@33)\)\)\)}, {0, 0, 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\/57\)\)\ \@\(1\/222\ \((10097 - 1729\ \@33)\)\), 
          \(-\(1\/57\)\)\ \@\(1\/222\ \((10097 - 1729\ \@33)\)\), 0}, {
          1\/342\ \((91 - 19\ \@33)\), 1\/342\ \((\(-91\) + 19\ \@33)\), 0}, {
          0, 0, 0}, {0, 0, 0}, {25\/\(171\ \@3\), 25\/\(171\ \@3\), 
          1\/\(9\ \@2\)}, {\(-\(\(73\ \@\(11\/111\)\)\/171\)\), 
          \(-\(\(73\ \@\(11\/111\)\)\/171\)\), 
          \(\(-12\) + \@33\)\/\(3\ \@222\)}, {
          \(-\(908\/171\)\)\ \@\(2\/\(3\ \((100029 + 17333\ \@33)\)\)\), 
          \(-\(908\/171\)\)\ \@\(2\/\(3\ \((100029 + 17333\ \@33)\)\)\), 0}, {
          2\/171\ \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(3\ 
                    \((12 + \@33)\)\)\), 
          \(-\(1\/171\)\)\ 
            \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          \(-\(2\/\@\(72 + 6\ \@33\)\)\)}, {
          \(-\(908\/171\)\)\ \@\(2\/\(100029 + 17333\ \@33\)\), 
          \(-\(908\/171\)\)\ \@\(2\/\(100029 + 17333\ \@33\)\), 0}, {0, 
          \(-\(1\/171\)\)\ 
            \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(12 + \@33\)\), 
          \(-\(2\/\@\(24 + 2\ \@33\)\)\)}}; \)\)], "Input"],

Cell[BoxData[
    \(\(H[3, 3]
         = {{\(-\(\(7\ \@2\)\/57\)\), \(8\ \@2\)\/57, 
          \(-\(\(9\ \@3\)\/19\)\)}, {0, \(-\(1\/\@6\)\), 0}, {\@2\/3, 
          \(-\(\@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}, {
          \(-\(1\/57\)\)\ \@\(1\/222\ \((10097 - 1729\ \@33)\)\), 
          \(-\(1\/114\)\)\ \@\(161\/6 - \(19\ \@\(11\/3\)\)\/74\), 
          \(-\(\(4\ \@\(2\/37\)\)\/19\)\)}, {1\/342\ \((91 - 19\ \@33)\), 
          1\/684\ \((1 - 19\ \@33)\), \(-\(\(4\ \@\(2\/3\)\)\/19\)\)}, {0, 0, 
          0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {25\/\(171\ \@3\), 
          35\/\(684\ \@3\), \(-\(\(2\ \@2\)\/171\)\)}, {
          \(-\(\(73\ \@\(11\/111\)\)\/171\)\), 
          \(-\(\(11\ \@\(11\/111\)\)\/684\)\), \(2\ \@\(22\/37\)\)\/19}, {
          1816\/171\ \@\(2\/\(3\ \((100029 + 17333\ \@33)\)\)\), 
          1\/513\ \@\(1\/74\ \((153471 - 15377\ \@33)\)\), 
          8\/57\ \@\(1\/111\ \((51 - 5\ \@33)\)\)}, {
          \(-\(1\/171\)\)\ 
            \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          \(-\(1\/342\)\)\ 
            \@\(\(21163 + 3045\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(4\ \((3 + \@33)\)\)\/\(57\ \@\(72 + 6\ \@33\)\)}, {0, 0, 0}, {
          \(-\(1\/171\)\)\ 
            \@\(\(2\ \((15967 + 2775\ \@33)\)\)\/\(12 + \@33\)\), 
          \(-\(1\/342\)\)\ \@\(\(21163 + 3045\ \@33\)\/\(24 + 2\ \@33\)\), 
          \(4\ \((3 + \@33)\)\)\/\(57\ \@\(24 + 2\ \@33\)\)}}; \)\)], "Input"],

Cell[BoxData[
    \(\(H[3, 4]
         = {{\(8\ \@2\)\/57, \(8\ \@2\)\/57, 0}, {1\/\@6, \(-\(1\/\@6\)\), 
          0}, {\(-\(1\/\(3\ \@2\)\)\), 1\/\(3\ \@2\), 0}, {
          \(-\(1\/\(2\ \@3\)\)\), \(-\(1\/\(2\ \@3\)\)\), 0}, {
          \(-\(1\/\@6\)\), \(-\(1\/\@6\)\), 0}, {\(-\(1\/2\)\), 1\/2, 0}, {0, 
          0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {
          5\/\(57\ \@111\), 1\/114\ \@\(161\/6 + \(19\ \@\(11\/3\)\)\/74\), 
          0}, {5\/171, 1\/684\ \((1 + 19\ \@33)\), 0}, {0, 0, 0}, {0, 0, 0}, {
          0, 0, 0}, {0, 0, 0}, {4\/\(171\ \@3\), \(-\(11\/\(342\ \@3\)\)\), 
          0}, {\(-\(2\/171\)\)\ \@\(2\/111\ \((547 - 19\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((23147 - 3496\ \@33)\)\), 0}, {
          \(-\(5\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 
          \(-\(2\/513\)\)\ \@\(1\/37\ \((18792 - 1801\ \@33)\)\), 0}, {
          \(-\(1\/171\)\)\ \@\(215\/6 + 331\/\(6\ \((12 + \@33)\)\)\), 
          7\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 0}, {
          0, 0, 0}, {\(-\(1\/171\)\)\ \@\(215\/2 + 331\/\(24 + 2\ \@33\)\), 
          7\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(12 + \@33\)\), 0}}; \)\)], 
  "Input"],

Cell[BoxData[
    \(\(H[3, 5]
         = {{\(-\(\(7\ \@2\)\/57\)\), 0, 0}, {0, 0, 0}, {
          \(-\(1\/\(3\ \@2\)\)\), 0, 0}, {0, 0, 0}, {1\/\@6, 0, 0}, {0, 0, 
          0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
          0}, {1\/57\ \@\(1\/222\ \((10097 + 1729\ \@33)\)\), 0, 0}, {
          1\/342\ \((91 + 19\ \@33)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
          0}, {0, 0, 0}, {\(-\(7\/\(342\ \@3\)\)\), 0, 0}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 + 27056\ \@33)\)\), 0, 0}, {
          \(-\(1\/513\)\)\ \@\(2\/37\ \((114831 + 18847\ \@33)\)\), 0, 0}, {
          \(-\(17\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 0, 
          0}, {0, 0, 0}, {
          \(-\(17\/171\)\)\ \@\(\(7 + \@33\)\/\(24 + 2\ \@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\/114\ \@\(6641\/222 - \(19\ \@\(11\/3\)\)\/2\), 
          1\/114\ \@\(161\/6 + \(19\ \@\(11\/3\)\)\/74\), 
          \(-\@\(1\/37\ \((17 + \@33)\)\)\)}, {
          1\/684\ \((\(-37\) + 19\ \@33)\), 1\/684\ \((1 + 19\ \@33)\), 0}, {
          0, 0, 0}, {0, 0, 0}, {\(-\(41\/\(684\ \@3\)\)\), 
          \(-\(11\/\(342\ \@3\)\)\), 1\/\(18\ \@2\)}, {
          \(65\ \@\(11\/111\)\)\/684, 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((23147 - 3496\ \@33)\)\), 
          \(12 + \@33\)\/\(6\ \@222\)}, {
          \@\(1\/74\ \((227343 - 34529\ \@33)\)\)\/1026, 
          1\/513\ \@\(1\/37\ \((18792 - 1801\ \@33)\)\), 
          \(-\(1\/3\)\)\ \@\(1\/74\ \((12 + \@33)\)\)}, {
          \(-\(1\/171\)\)\ 
            \@\(\(34843 + 5781\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(14\/171\)\)\ 
            \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 0}, {
          1\/342\ \@\(1\/222\ \((227343 - 34529\ \@33)\)\), 
          1\/171\ \@\(1\/111\ \((18792 - 1801\ \@33)\)\), 
          \(-\@\(1\/222\ \((12 + \@33)\)\)\)}, {0, 0, 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\/\(57\ \@111\), 5\/\(57\ \@111\), 
          \(-\(\(4\ \@\(2\/37\)\)\/19\)\)}, {5\/171, \(-\(5\/171\)\), 
          \(4\ \@\(2\/3\)\)\/19}, {0, 0, 0}, {0, 0, 0}, {4\/\(171\ \@3\), 
          4\/\(171\ \@3\), \(-\(\(2\ \@2\)\/171\)\)}, {
          \(-\(2\/171\)\)\ \@\(2\/111\ \((547 - 19\ \@33)\)\), 
          \(-\(2\/171\)\)\ \@\(2\/111\ \((547 - 19\ \@33)\)\), 
          \(2\ \@\(22\/37\)\)\/19}, {5\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 
          5\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 
          \(-\(4\/57\)\)\ \@\(1\/111\ \((51 - 5\ \@33)\)\)}, {
          1\/171\ \@\(430\/3 + 662\/\(36 + 3\ \@33\)\), 
          \(-\(1\/171\)\)\ \@\(215\/6 + 331\/\(6\ \((12 + \@33)\)\)\), 
          \(4\ \((3 + \@33)\)\)\/\(57\ \@\(72 + 6\ \@33\)\)}, {
          5\/171\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 
          5\/171\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 
          \(-\(4\/57\)\)\ \@\(1\/37\ \((51 - 5\ \@33)\)\)}, {0, 
          \(-\(1\/171\)\)\ \@\(215\/2 + 331\/\(24 + 2\ \@33\)\), 
          \(4\ \((3 + \@33)\)\)\/\(57\ \@\(24 + 2\ \@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\/114\)\)\ \@\(161\/6 - \(19\ \@\(11\/3\)\)\/74\), 
          \(-\(1\/114\)\)\ \@\(6641\/222 + \(19\ \@\(11\/3\)\)\/2\), 0}, {
          1\/684\ \((\(-1\) + 19\ \@33)\), 1\/684\ \((37 + 19\ \@33)\), 0}, {
          0, 0, 0}, {0, 0, 0}, {35\/\(684\ \@3\), 4\/\(171\ \@3\), 
          1\/\(18\ \@2\)}, {\(-\(\(11\ \@\(11\/111\)\)\/684\)\), 
          2\/171\ \@\(2\/111\ \((547 + 19\ \@33)\)\), 
          \(\(-12\) + \@33\)\/\(6\ \@222\)}, {
          \(-\(\@\(1\/74\ \((153471 - 15377\ \@33)\)\)\/1026\)\), 
          \(-\(1\/513\)\)\ \@\(1\/74\ \((27837 + 331\ \@33)\)\), 0}, {
          \(-\(1\/342\)\)\ 
            \@\(\(21163 + 3045\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(5\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          \(-\(1\/\@\(6\ \((12 + \@33)\)\)\)\)}, {
          \(-\(1\/342\)\)\ \@\(1\/222\ \((153471 - 15377\ \@33)\)\), 
          \(-\(1\/171\)\)\ \@\(1\/222\ \((27837 + 331\ \@33)\)\), 0}, {
          \(-\(1\/342\)\)\ \@\(\(21163 + 3045\ \@33\)\/\(24 + 2\ \@33\)\), 
          \(-\(5\/171\)\)\ \@\(\(7 + \@33\)\/\(24 + 2\ \@33\)\), 
          \(-\(1\/\@\(24 + 2\ \@33\)\)\)}}; \)\)], "Input"],

Cell[BoxData[
    \(\(H[4, 3]
         = {{\(8\ \@2\)\/57, \(8\ \@2\)\/57, 0}, {1\/\@6, \(-\(1\/\@6\)\), 
          0}, {\(-\(1\/\(3\ \@2\)\)\), 1\/\(3\ \@2\), 0}, {
          \(-\(1\/\(2\ \@3\)\)\), \(-\(1\/\(2\ \@3\)\)\), 0}, {1\/\@6, 
          1\/\@6, 0}, {1\/2, \(-\(1\/2\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
          0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {
          \(-\(1\/114\)\)\ \@\(6641\/222 + \(19\ \@\(11\/3\)\)\/2\), 
          \(-\(14\/\(57\ \@111\)\)\), 0}, {1\/684\ \((\(-37\) - 19\ \@33)\), 
          \(-\(14\/171\)\), 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {
          4\/\(171\ \@3\), \(-\(11\/\(342\ \@3\)\)\), 0}, {
          2\/171\ \@\(2\/111\ \((547 + 19\ \@33)\)\), 
          1\/342\ \@\(1\/111\ \((23147 + 3496\ \@33)\)\), 0}, {
          1\/513\ \@\(2\/37\ \((27837 + 331\ \@33)\)\), 
          14\/513\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 0}, {
          \(-\(5\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 
          1\/171\ \@\(\(2567 + 364\ \@33\)\/\(36 + 3\ \@33\)\), 0}, {0, 0, 
          0}, {\(-\(5\/171\)\)\ \@\(\(7 + \@33\)\/\(24 + 2\ \@33\)\), 
          1\/171\ \@\(\(2567 + 364\ \@33\)\/\(12 + \@33\)\), 0}}; \)\)], 
  "Input"],

Cell[BoxData[
    \(\(H[4, 4]
         = {{\(8\ \@2\)\/57, 0, 0}, {1\/\@6, 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}, {
          1\/114\ \@\(6641\/222 - \(19\ \@\(11\/3\)\)\/2\), 0, 0}, {
          1\/684\ \((\(-37\) + 19\ \@33)\), 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 
          0, 0}, {0, 0, 0}, {\(-\(41\/\(684\ \@3\)\)\), 0, 0}, {
          \(65\ \@\(11\/111\)\)\/684, 0, 0}, {
          \(-\(1\/513\)\)\ \@\(1\/74\ \((227343 - 34529\ \@33)\)\), 0, 0}, {
          1\/342\ \@\(\(34843 + 5781\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0, 
          0}, {0, 0, 0}, {
          1\/342\ \@\(\(34843 + 5781\ \@33\)\/\(24 + 2\ \@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\/57\ \@\(1\/222\ \((10097 + 1729\ \@33)\)\), 
          1\/57\ \@\(1\/222\ \((10097 + 1729\ \@33)\)\), 0}, {
          1\/342\ \((91 + 19\ \@33)\), 1\/342\ \((\(-91\) - 19\ \@33)\), 0}, {
          0, 0, 0}, {0, 0, 0}, {\(-\(7\/\(342\ \@3\)\)\), 
          \(-\(7\/\(342\ \@3\)\)\), 0}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 + 27056\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 + 27056\ \@33)\)\), 0}, {
          1\/513\ \@\(1\/74\ \((114831 + 18847\ \@33)\)\), 
          1\/513\ \@\(1\/74\ \((114831 + 18847\ \@33)\)\), 0}, {
          17\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          \(-\(17\/171\)\)\ \@\(\(7 + \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          1\/171\ \@\(1\/222\ \((114831 + 18847\ \@33)\)\), 
          1\/171\ \@\(1\/222\ \((114831 + 18847\ \@33)\)\), 0}, {0, 
          \(-\(17\/171\)\)\ \@\(\(7 + \@33\)\/\(24 + 2\ \@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\/114\ \@\(161\/6 + \(19\ \@\(11\/3\)\)\/74\), 
          1\/114\ \@\(6641\/222 - \(19\ \@\(11\/3\)\)\/2\), 0}, {
          1\/684\ \((\(-1\) - 19\ \@33)\), 1\/684\ \((37 - 19\ \@33)\), 0}, {
          0, 0, 0}, {0, 0, 0}, {\(-\(11\/\(342\ \@3\)\)\), 
          \(-\(41\/\(684\ \@3\)\)\), 0}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((23147 - 3496\ \@33)\)\), 
          \(65\ \@\(11\/111\)\)\/684, 0}, {
          1\/513\ \@\(1\/37\ \((18792 - 1801\ \@33)\)\), 
          \@\(1\/74\ \((227343 - 34529\ \@33)\)\)\/1026, 0}, {
          7\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(3\ \((12 + \@33)\)\)\), 
          1\/342\ \@\(\(34843 + 5781\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          1\/171\ \@\(1\/111\ \((18792 - 1801\ \@33)\)\), 
          1\/342\ \@\(1\/222\ \((227343 - 34529\ \@33)\)\), 0}, {
          7\/171\ \@\(\(2\ \((7 + \@33)\)\)\/\(12 + \@33\)\), 
          1\/342\ \@\(\(34843 + 5781\ \@33\)\/\(24 + 2\ \@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}, {\(-\(14\/\(57\ \@111\)\)\), 
          17\/\(57\ \@111\), 0}, {14\/171, \(-\(17\/171\)\), 0}, {0, 0, 0}, {
          0, 0, 0}, {\(-\(11\/\(342\ \@3\)\)\), \(-\(7\/\(342\ \@3\)\)\), 
          0}, {1\/342\ \@\(1\/111\ \((23147 + 3496\ \@33)\)\), 
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 - 27056\ \@33)\)\), 0}, {
          \(-\(7\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 
          17\/513\ \@\(1\/74\ \((51 - 5\ \@33)\)\), 0}, {
          1\/171\ \@\(\(2567 + 364\ \@33\)\/\(36 + 3\ \@33\)\), 
          1\/171\ \@\(\(6811 - 1003\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0}, {
          \(-\(7\/171\)\)\ \@\(2\/111\ \((51 - 5\ \@33)\)\), 
          17\/171\ \@\(1\/222\ \((51 - 5\ \@33)\)\), 0}, {
          1\/171\ \@\(\(2567 + 364\ \@33\)\/\(12 + \@33\)\), 
          1\/171\ \@\(\(6811 - 1003\ \@33\)\/\(24 + 2\ \@33\)\), 0}}; \)\)], 
  "Input"],

Cell[BoxData[
    \(\(H[5, 3]
         = {{\(-\(\(7\ \@2\)\/57\)\), 0, 0}, {0, 0, 0}, {
          \(-\(1\/\(3\ \@2\)\)\), 0, 0}, {0, 0, 0}, {\(-\(1\/\@6\)\), 0, 0}, {
          0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {
          0, 0, 0}, {17\/\(57\ \@111\), 0, 0}, {17\/171, 0, 0}, {0, 0, 0}, {
          0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {\(-\(7\/\(342\ \@3\)\)\), 0, 0}, {
          \(-\(1\/342\)\)\ \@\(1\/111\ \((156443 - 27056\ \@33)\)\), 0, 0}, {
          \(-\(17\/513\)\)\ \@\(2\/37\ \((51 - 5\ \@33)\)\), 0, 0}, {
          1\/171\ \@\(\(6811 - 1003\ \@33\)\/\(6\ \((12 + \@33)\)\)\), 0, 
          0}, {0, 0, 0}, {
          1\/171\ \@\(\(6811 - 1003\ \@33\)\/\(24 + 2\ \@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"]
},
FrontEndVersion->"Macintosh 3.0",
ScreenRectangle->{{0, 1024}, {0, 748}},
WindowSize->{520, 653},
WindowMargins->{{Automatic, 57}, {32, 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, 47, 1, 26, "Input"],
Cell[1759, 52, 366, 6, 71, "Input"],
Cell[2128, 60, 366, 6, 71, "Input"],
Cell[2497, 68, 921, 15, 307, "Input"],
Cell[3421, 85, 1587, 26, 601, "Input"],
Cell[5011, 113, 1281, 21, 484, "Input"],
Cell[6295, 136, 1129, 17, 382, "Input"],
Cell[7427, 155, 366, 6, 71, "Input"],
Cell[7796, 163, 1004, 16, 372, "Input"],
Cell[8803, 181, 1198, 20, 449, "Input"],
Cell[10004, 203, 1245, 21, 465, "Input"],
Cell[11252, 226, 1515, 25, 614, "Input"],
Cell[12770, 253, 1159, 19, 419, "Input"],
Cell[13932, 274, 761, 13, 238, "Input"],
Cell[14696, 289, 1092, 18, 364, "Input"],
Cell[15791, 309, 1116, 18, 439, "Input"],
Cell[16910, 329, 1363, 23, 519, "Input"],
Cell[18276, 354, 1310, 21, 521, "Input"],
Cell[19589, 377, 1268, 19, 471, "Input"],
Cell[20860, 398, 1283, 21, 423, "Input"],
Cell[22146, 421, 1250, 19, 487, "Input"],
Cell[23399, 442, 1364, 23, 438, "Input"],
Cell[24766, 467, 1543, 25, 593, "Input"],
Cell[26312, 494, 1202, 18, 444, "Input"],
Cell[27517, 514, 801, 13, 336, "Input"],
Cell[28321, 529, 1294, 23, 511, "Input"],
Cell[29618, 554, 1288, 20, 458, "Input"],
Cell[30909, 576, 1376, 22, 511, "Input"],
Cell[32288, 600, 1188, 19, 433, "Input"],
Cell[33479, 621, 759, 13, 327, "Input"],
Cell[34241, 636, 366, 6, 71, "Input"],
Cell[34610, 644, 1161, 19, 417, "Input"],
Cell[35774, 665, 1186, 20, 456, "Input"],
Cell[36963, 687, 1072, 17, 431, "Input"],
Cell[38038, 706, 742, 12, 388, "Input"],
Cell[38783, 720, 366, 6, 86, "Input"],
Cell[39152, 728, 366, 6, 86, "Input"]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)