(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.0'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing 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[     72187,       2061]*)
(*NotebookOutlinePosition[     72831,       2083]*)
(*  CellTagsIndexPosition[     72787,       2079]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    TagBox[GridBox[{
          {
            TagBox[
              TagBox["\<\"   \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"\\!\\(\\* StyleBox[\\(\\\\ \\\\ \\* StyleBox[\\\" \
\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)]\\)\\!\\(\\* \
StyleBox[\\\"n\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\) \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"\\!\\(\\* StyleBox[\\\" \
\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\\!\\(\\* StyleBox[\\\
\"Absch\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"\\!\\(\\* StyleBox[\\(\\\\ \\* StyleBox[\\\" \
\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)]\\)\\!\\(\\* \
StyleBox[\\\"Rund\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, \
0]]\\)\"\>",
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"  \\!\\(\\* \
StyleBox[\\\"Abschn\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\
\>",
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"\\!\\(\\* StyleBox[\\(\\\\ \\\\ \\\\ \\* \
StyleBox[\\\" \\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)]\\)\\!\
\\(\\* StyleBox[\\\"Runden\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, \
0]]\\)\"\>",
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"    \\!\\(\\* \
StyleBox[\\\"Abschnei\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\
\"\>",
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"    \\!\\(\\* \
StyleBox[\\\"Runden\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\
\>",
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              
              TagBox["\<\"  \\!\\(\\* StyleBox[\\\"Volle\\\",\\nFontSize->14,\
\\nFontColor->RGBColor[1, 0, 0]]\\)\\!\\(\\* StyleBox[\\\" \
\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\\!\\(\\* StyleBox[\\\
\"Genauigkeit\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"   10\"\>",
                  10,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.910\"\>",
                  2.9100000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.930\"\>",
                  2.9300000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928950\"\>",
                  2.9289500000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928970\"\>",
                  2.9289700000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928968253950\"\>",
                  2.9289682539499999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928968253970\"\>",
                  2.9289682539699999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  2.928968253968254\"\>",
                  2.9289682539682538,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.017\"\>",
                  -.0167,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.001\"\>",
                  .001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000017\"\>",
                  -.000016999799999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000002\"\>",
                  .19999999999999999*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000017\"\>",
                  -.170000818977*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000000000002\"\>",
                  .199983085647*^-11,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"   10\"\>",
                  10,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.920\"\>",
                  2.9199999999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.930\"\>",
                  2.9300000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928960\"\>",
                  2.9289600000000005,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928970\"\>",
                  2.9289700000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928968253960\"\>",
                  2.9289682539599999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 2.928968253970\"\>",
                  2.9289682539699999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  2.928968253968254\"\>",
                  2.9289682539682538,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.007\"\>",
                  -.0069900000000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.001\"\>",
                  .001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000007\"\>",
                  -.69999499999999998*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000002\"\>",
                  .19999999999999999*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000007\"\>",
                  -.69996231033499997*^-11,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000000000002\"\>",
                  .20002888234700001*^-11,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"   50\"\>",
                  50,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.320\"\>",
                  4.3200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.500\"\>",
                  4.5,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499010\"\>",
                  4.4990100000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499210\"\>",
                  4.4992100000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499205338120\"\>",
                  4.4992053381199995,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499205338320\"\>",
                  4.4992053383199995,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  4.499205338329423\"\>",
                  4.499205338329423,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.163\"\>",
                  -.16300000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.001\"\>",
                  .00079999999999999993,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000192\"\>",
                  -.000192289,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000005\"\>",
                  .49999999999999996*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000206\"\>",
                  -.20629851646399998*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000009\"\>",
                  -.91015910086400004*^-11,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"   50\"\>",
                  50,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.430\"\>",
                  4.4299999999999997,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.510\"\>",
                  4.5099999999999998,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499130\"\>",
                  4.4991300000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499210\"\>",
                  4.4992100000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499205338250\"\>",
                  4.4992053382499995,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.499205338330\"\>",
                  4.4992053383299995,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  4.499205338329425\"\>",
                  4.4992053383294248,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.065\"\>",
                  -.064700000000000008,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.011\"\>",
                  .010800000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000072\"\>",
                  -.0000722989,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000005\"\>",
                  .49999999999999996*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000076\"\>",
                  -.76301076568000006*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000000000001\"\>",
                  .89939167224899996*^-12,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  100\"\>",
                  100,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.820\"\>",
                  4.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.160\"\>",
                  5.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.186920\"\>",
                  5.1869200000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187390\"\>",
                  5.1873900000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187377517210\"\>",
                  5.1873775172099998,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187377517610\"\>",
                  5.1873775176099999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  5.187377517639621\"\>",
                  5.1873775176396206,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.325\"\>",
                  -.32500000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.027\"\>",
                  -.027300000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000452\"\>",
                  -.00045236100000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000013\"\>",
                  .000012800000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000424\"\>",
                  -.42449887181699994*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000029\"\>",
                  -.29203519810700004*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  100\"\>",
                  100,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.030\"\>",
                  5.0300000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.200\"\>",
                  5.2000000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187220\"\>",
                  5.1872200000000008,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187370\"\>",
                  5.1873700000000005,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187377517480\"\>",
                  5.1873775174799999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.187377517650\"\>",
                  5.1873775176499999,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  5.187377517639622\"\>",
                  5.1873775176396215,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.142\"\>",
                  -.14200000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.013\"\>",
                  .012700000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000152\"\>",
                  -.00015238800000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000007\"\>",
                  -.71999999999999997*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000154\"\>",
                  -.154499413262*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000000000011\"\>",
                  .10799472427400001*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  200\"\>",
                  200,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.820\"\>",
                  4.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.160\"\>",
                  6.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.877100\"\>",
                  5.8771000000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.878000\"\>",
                  5.8780000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.878030947200\"\>",
                  5.8780309472000001,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.878030948080\"\>",
                  5.8780309480799993,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  5.878030948121446\"\>",
                  5.8780309481214461,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.969\"\>",
                  -.96899999999999997,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.284\"\>",
                  .28400000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000925\"\>",
                  -.0009252450000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000031\"\>",
                  -.000030689999999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000916\"\>",
                  -.91583906690999993*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000041\"\>",
                  -.41073917704500001*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  200\"\>",
                  200,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.510\"\>",
                  5.5099999999999998,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.900\"\>",
                  5.9000000000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.877650\"\>",
                  5.87765,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.878040\"\>",
                  5.8780400000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.878030947770\"\>",
                  5.8780309477699992,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.878030948100\"\>",
                  5.8780309480999993,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  5.878030948121443\"\>",
                  5.8780309481214426,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.328\"\>",
                  -.32800000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.022\"\>",
                  .022100000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000375\"\>",
                  -.00037528400000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000009\"\>",
                  .9309999999999999*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000346\"\>",
                  -.34584057839699999*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000021\"\>",
                  -.21071033806700002*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  300\"\>",
                  300,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.820\"\>",
                  4.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.160\"\>",
                  6.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.281240\"\>",
                  6.2812400000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282640\"\>",
                  6.2826400000000007,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282663878900\"\>",
                  6.2826638788999993,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282663880230\"\>",
                  6.2826638802299994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  6.282663880299502\"\>",
                  6.2826638802995021,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.118\"\>",
                  -.11800000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.001417\"\>",
                  -.0014172500000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000024\"\>",
                  -.000023589999999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000001393\"\>",
                  -.139341130647*^-8,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000069\"\>",
                  -.69110637351799999*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  300\"\>",
                  300,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.820\"\>",
                  5.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.260\"\>",
                  6.2599999999999998,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282080\"\>",
                  6.2820800000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282670\"\>",
                  6.2826700000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282663879750\"\>",
                  6.2826638797499994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.282663880260\"\>",
                  6.2826638802599994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  6.282663880299501\"\>",
                  6.2826638802995012,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.413\"\>",
                  -.41300000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.023\"\>",
                  -.022600000000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000578\"\>",
                  -.00057768300000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.000006\"\>",
                  .64099999999999996*^-5,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000543\"\>",
                  -.54341053878899995*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000039\"\>",
                  -.39110825689200003*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  500\"\>",
                  500,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.820\"\>",
                  4.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.160\"\>",
                  6.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.790400\"\>",
                  6.7904000000000009,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.792800\"\>",
                  6.7928000000000006,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.792823427560\"\>",
                  6.7928234275599992,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.792823429970\"\>",
                  6.7928234299699994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  6.792823429990520\"\>",
                  6.7928234299905199,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.618\"\>",
                  -.61799999999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.002415\"\>",
                  -.00241494,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000023\"\>",
                  -.000023070000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000002424\"\>",
                  -.24235593514599999*^-8,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000020\"\>",
                  -.20052624491499999*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  500\"\>",
                  500,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.820\"\>",
                  5.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.980\"\>",
                  6.9800000000000004,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.791840\"\>",
                  6.7918400000000005,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.792780\"\>",
                  6.7927800000000005,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.792823429020\"\>",
                  6.7928234290199994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.792823429930\"\>",
                  6.7928234299299994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  6.792823429990523\"\>",
                  6.7928234299905235,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.849\"\>",
                  -.84899999999999998,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 0.186\"\>",
                  .186,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000976\"\>",
                  -.00097623600000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000043\"\>",
                  -.000043069999999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000964\"\>",
                  -.96355978751399989*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000060\"\>",
                  -.60051408290500003*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  800\"\>",
                  800,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.820\"\>",
                  4.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.160\"\>",
                  6.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.258550\"\>",
                  7.2585500000000005,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.262440\"\>",
                  7.2624400000000007,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.262452258510\"\>",
                  7.2624522585099998,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.262452262240\"\>",
                  7.2624522622399992,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  7.262452262361148\"\>",
                  7.2624522623611485,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.003891\"\>",
                  -.0038908599999999999,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000012\"\>",
                  -.000011940000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000003843\"\>",
                  -.384279744028*^-8,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000121\"\>",
                  -.12063797075*^-9,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  800\"\>",
                  800,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.820\"\>",
                  5.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.160\"\>",
                  7.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.260860\"\>",
                  7.260860000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.262430\"\>",
                  7.2624300000000002,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.262452260840\"\>",
                  7.26245226084,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.262452262280\"\>",
                  7.2624522622799992,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  7.262452262361142\"\>",
                  7.2624522623611423,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.104\"\>",
                  -.10400000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.001583\"\>",
                  -.00158289,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000022\"\>",
                  -.00002194,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000001513\"\>",
                  -.151280044047*^-8,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000081\"\>",
                  -.80628725918100006*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"wa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 1000\"\>",
                  1000,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 4.820\"\>",
                  4.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 6.160\"\>",
                  6.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.480580\"\>",
                  7.4805800000000007,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.485450\"\>",
                  7.485450000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.485470855730\"\>",
                  7.4854708557299992,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.485470860470\"\>",
                  7.4854708604699995,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  7.485470860550343\"\>",
                  7.4854708605503433,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"diwa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.004878\"\>",
                  -.0048776100000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000021\"\>",
                  -.00002052,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000004811\"\>",
                  -.481105077911*^-8,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000080\"\>",
                  -.79870886814100004*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              
              TagBox["\<\"\\!\\(\\* \
StyleBox[\\\"fa\\\",\\nFontSize->14,\\nFontColor->RGBColor[1, 0, 0]]\\)\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 1000\"\>",
                  1000,
                  Editable->False],
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 5.820\"\>",
                  5.8200000000000003,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.160\"\>",
                  7.1600000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.483440\"\>",
                  7.4834400000000008,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.485460\"\>",
                  7.4854600000000007,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.485470858550\"\>",
                  7.4854708585499994,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\" 7.485470860500\"\>",
                  7.4854708604999995,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  7.485470860550341\"\>",
                  7.4854708605503406,
                  AutoDelete->True],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]},
          {
            TagBox[
              TagBox["\<\"difa\"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox["\<\"    \"\>",
                (PaddedForm[ #, 4]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-1.000\"\>",
                  -1.0,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.323\"\>",
                  -.32300000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {4, 3}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.002020\"\>",
                  -.00202002,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000011\"\>",
                  -.000010520000000000001,
                  AutoDelete->True],
                (PaddedForm[ #, {7, 6}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000001991\"\>",
                  -.19910507687*^-8,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"-0.000000000050\"\>",
                  -.49859560924400004*^-10,
                  AutoDelete->True],
                (PaddedForm[ #, {13, 12}]&)],
              AccountingForm], 
            TagBox[
              TagBox[
                InterpretationBox["\<\"  0.000000000000000\"\>",
                  0,
                  Editable->False],
                (PaddedForm[ #, {17, 15}]&)],
              AccountingForm]}
          },
        RowSpacings->2,
        ColumnSpacings->1,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      Function[ BoxForm`e$, 
        TableForm[ BoxForm`e$, TableSpacing -> {2, 1}]]]], "Output"]
},
FrontEndVersion->"5.0 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 685}},
WindowSize->{1016, 651},
WindowMargins->{{0, Automatic}, {Automatic, 0}}
]

(*******************************************************************
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[1754, 51, 70429, 2008, 753, "Output"]
}
]
*)



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