From 33613a85afc4b1481367fbe92a17ee59c240250b Mon Sep 17 00:00:00 2001 From: Sven Eisenhauer Date: Fri, 10 Nov 2023 15:11:48 +0100 Subject: add new repo --- Bachelor/Numerische Mathematik/Num05Aufg1_erg.nb | 2095 ++++++++++++++++++++++ 1 file changed, 2095 insertions(+) create mode 100644 Bachelor/Numerische Mathematik/Num05Aufg1_erg.nb (limited to 'Bachelor/Numerische Mathematik/Num05Aufg1_erg.nb') diff --git a/Bachelor/Numerische Mathematik/Num05Aufg1_erg.nb b/Bachelor/Numerische Mathematik/Num05Aufg1_erg.nb new file mode 100644 index 0000000..7deeaf2 --- /dev/null +++ b/Bachelor/Numerische Mathematik/Num05Aufg1_erg.nb @@ -0,0 +1,2095 @@ +(************** 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. +*******************************************************************) + -- cgit v1.2.3