(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 44150, 852] NotebookOptionsPosition[ 43331, 819] NotebookOutlinePosition[ 43672, 834] CellTagsIndexPosition[ 43629, 831] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AA", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.25386345367754200000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.25386345367754200000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.67699207108332900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.63935043492898200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.25386345367754200000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.65927145194008600000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.01772061914324370000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.65927145194008600000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.63932389951870200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.25386345367754200000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.65924491652980500000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.63932389951870200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.63932389951870200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.01992101701110310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01992101701110310000", ",", "0.01992101701110310000", ",", "0.67699207108332900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.02306866098645590000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01992101701110310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.65927145194008600000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.25386345367754200000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.63935043492898200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.01772061914324370000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.65927145194008600000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00569232178172080000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.63935043492898200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.25386345367754200000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.00000000000000000000", ",", "0.16150307994465900000", ",", "0.16150307994465900000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01772061914324370000", ",", "0.65927145194008600000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.63935043492898200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000", ",", "0.09236037373288310000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.04038349247095150000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.63935043492898200000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.09236037373288310000", ",", "0.00000000000000000000"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.00002653541028030780", ",", "0.00002653541028030780", ",", "0.00002653541028030780", ",", "0.00002653541028030780", ",", "0.00000000000000000000", ",", "0.00000000000000000000", ",", "0.01992101701110310000", ",", "0.00000000000000000000", ",", "0.01992101701110310000", ",", "0.00000000000000000000", ",", "0.01992101701110310000", ",", "0.01992101701110310000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "0.67699207108332900000", ",", "1.00000000000000000000"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.41484498651875*^9, 3.414844991096875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.253863453677542`19.404600184101042", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.253863453677542`19.404600184101042", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.`", ",", "0.`", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.639350434928982`19.805738964949114", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`19.404600184101042", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.6592714519400859999999999999999999999999999999999999999999`19.\ 81906427014182", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.0177206191432437`18.24847889169306", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.6592714519400859999999999999999999999999999999999999999999`19.\ 81906427014182", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6393238995187020000000000000000000000000000000000000000001`19.\ 80572093974606", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`19.404600184101042", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.6592449165298049999999999999999999999999999999999999999999`19.\ 81904678961213", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6393238995187020000000000000000000000000000000000000000001`19.\ 80572093974606", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6393238995187020000000000000000000000000000000000000000001`19.\ 80572093974606", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.`", ",", "0.`", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.0230686609864559`18.363022386759052", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6592714519400859999999999999999999999999999999999999999999`19.\ 81906427014182", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`19.404600184101042", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.639350434928982`19.805738964949114", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.0177206191432437`18.24847889169306", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.6592714519400859999999999999999999999999999999999999999999`19.\ 81906427014182", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.0056923217817208`17.75528944237425", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639350434928982`19.805738964949114", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`19.404600184101042", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.`", ",", "0.161503079944659`19.208180808959476", ",", "0.161503079944659`19.208180808959476", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`18.24847889169306", ",", "0.6592714519400859999999999999999999999999999999999999999999`19.\ 81906427014182", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639350434928982`19.805738964949114", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`18.606203875164177", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639350434928982`19.805738964949114", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.0923603737328831000000000000000000000000000000000000000001`18.\ 96548568160547", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0000265354102803078`", ",", "0.0000265354102803078`", ",", "0.0000265354102803078`", ",", "0.0000265354102803078`", ",", "0.`", ",", "0.`", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.`", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.`", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.0199210170111030999999999999999999999999999999999999999999`18.\ 299311506328415", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "0.6769920710833290000000000000000000000000000000000000000001`19.\ 830583582267238", ",", "1.`20.000000000000007"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.414844996034375*^9, 3.4148469713625*^9, 3.414847086440625*^9, 3.41484715339375*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"CalcLength", "[", RowBox[{"M_", ",", "K_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "p", ",", "pnew", ",", "B", ",", "retval"}], "}"}], ",", RowBox[{ RowBox[{"B", "=", "M"}], ";", RowBox[{"p", "=", "0"}], ";", RowBox[{"retval", "=", "0"}], ";", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", "K"}], ",", RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{"pnew", "=", RowBox[{"B", "[", RowBox[{"[", RowBox[{ RowBox[{"Length", "[", "M", "]"}], ",", "1"}], "]"}], "]"}]}], ";", RowBox[{"retval", "=", RowBox[{"retval", "+", RowBox[{"k", RowBox[{"(", RowBox[{"pnew", "-", "p"}], ")"}]}]}]}], ";", RowBox[{"p", "=", "pnew"}], ";", RowBox[{"B", "=", RowBox[{"B", ".", "M"}]}]}]}], "]"}], ";", "retval"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4148483276125*^9, 3.414848391128125*^9}, { 3.414848450534375*^9, 3.414848499003125*^9}, {3.414848538190625*^9, 3.414848538675*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CalcLength", "[", RowBox[{"AA", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.4148485093*^9, 3.414848514815625*^9}, { 3.41484854489375*^9, 3.4148485512375*^9}}], Cell[BoxData["4.379880885601716`"], "Output", CellChangeTimes->{{3.414848515534375*^9, 3.414848551940625*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CalcLength", "[", RowBox[{"AA", ",", "15"}], "]"}]], "Input", CellChangeTimes->{{3.4148485093*^9, 3.414848514815625*^9}, { 3.41484854489375*^9, 3.414848561175*^9}}], Cell[BoxData["4.40999816724091`"], "Output", CellChangeTimes->{3.414848561659375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CalcLength", "[", RowBox[{"AA", ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.4148485093*^9, 3.414848514815625*^9}, { 3.41484854489375*^9, 3.41484856470625*^9}}], Cell[BoxData["4.410337238315533`"], "Output", CellChangeTimes->{3.41484856508125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CalcLength", "[", RowBox[{"AA", ",", "30"}], "]"}]], "Input", CellChangeTimes->{{3.4148485093*^9, 3.414848514815625*^9}, { 3.41484854489375*^9, 3.414848568409375*^9}}], Cell[BoxData["4.410340010929318`"], "Output", CellChangeTimes->{3.414848568971875*^9}] }, Open ]] }, WindowSize->{1191, 750}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 22792, 379, 2512, "Input"], Cell[23385, 404, 17391, 326, 848, "Output"] }, Open ]], Cell[40791, 733, 1224, 36, 52, "Input"], Cell[CellGroupData[{ Cell[42040, 773, 195, 4, 31, "Input"], Cell[42238, 779, 111, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42386, 785, 194, 4, 31, "Input"], Cell[42583, 791, 86, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42706, 797, 196, 4, 31, "Input"], Cell[42905, 803, 86, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43028, 809, 197, 4, 31, "Input"], Cell[43228, 815, 87, 1, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)