(* 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[ 31662, 667] NotebookOptionsPosition[ 30344, 619] NotebookOutlinePosition[ 30685, 634] CellTagsIndexPosition[ 30642, 631] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ 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.414863510815625*^9, 3.4148635127375*^9}, 3.41486423576875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"AAA", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{"AA", " ", RowBox[{"10", "^", "16"}]}], "]"}], "/", RowBox[{"10", "^", "16"}]}], ",", "200"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.414863584815625*^9, 3.41486361014375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"EE", "=", RowBox[{"Transpose", "[", RowBox[{"Eigenvectors", "[", "AAA", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.414863629003125*^9, 3.414863646815625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"EE1", "=", RowBox[{"PseudoInverse", "[", "EE", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.41486409758125*^9, 3.414864103565625*^9}, 3.414864765034375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"DD", "=", RowBox[{"Eigenvalues", "[", "AAA", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.414863692878125*^9, 3.414863700315625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CC1", "=", RowBox[{"EE1", ".", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.41486372214375*^9, 3.414863755378125*^9}, { 3.41486413764375*^9, 3.414864139425*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CC2", "=", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}], ".", "EE"}]}], ";"}]], "Input", CellChangeTimes->{{3.41486375995625*^9, 3.4148637754875*^9}, { 3.4148647801125*^9, 3.41486479126875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CC", "=", RowBox[{"CC1", " ", "CC2"}]}], ";"}]], "Input", CellChangeTimes->{{3.414863779065625*^9, 3.414863782159375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CC", ".", RowBox[{"DD", "^", "3"}]}]], "Input", CellChangeTimes->{{3.414864173940625*^9, 3.41486418758125*^9}, 3.414864810253125*^9}], Cell[BoxData[ RowBox[{"0.\ 314868237297136896744550917812717967844078356228999997930761224367714685974147\ 818203537363615137`60.75326996308842", "-", RowBox[{ "3.5250132705873673459897764385361400667`2.8647712348271264*^-59", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{{3.41486417589375*^9, 3.414864188096875*^9}, 3.414864282659375*^9, 3.4148648662375*^9, 3.4148649644875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"AAA", ".", "AAA", ".", "AAA"}], ")"}], "[", RowBox[{"[", RowBox[{"25", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.414864193628125*^9, 3.4148642036125*^9}}], Cell[BoxData["0.314868237297136896744550917812717967844078356229`199.\ 5228787452803"], "Output", CellChangeTimes->{3.4148642043*^9, 3.41486428401875*^9, 3.41486486755*^9, 3.414864964503125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", RowBox[{"(", RowBox[{ RowBox[{"a", "^", "k"}], "-", RowBox[{"a", "^", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", "\[Rule]", "Infinity"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Abs", "[", "a", "]"}], "<", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"n", "\[Element]", "Integers"}]}], "]"}]], "Input", CellChangeTimes->{{3.414864316034375*^9, 3.41486440955*^9}, { 3.41486449455*^9, 3.41486452655*^9}}], Cell[BoxData[ FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]], "Output", CellChangeTimes->{{3.414864358003125*^9, 3.4148644106125*^9}, { 3.41486451239375*^9, 3.414864527471875*^9}, 3.414864873128125*^9, 3.41486496464375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", RowBox[{"(", RowBox[{ RowBox[{"1", "^", "k"}], "-", RowBox[{"1", "^", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", "\[Rule]", "Infinity"}]}], "]"}]], "Input", CellChangeTimes->{{3.41486463955*^9, 3.41486464489375*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.414864645534375*^9, 3.41486487558125*^9, 3.414864964690625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DD", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.414864880425*^9, 3.4148649122375*^9}}], Cell[BoxData["1.`200."], "Output", CellChangeTimes->{{3.41486488595625*^9, 3.414864912925*^9}, 3.414864964690625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Max", "[", RowBox[{"Abs", "[", RowBox[{"Drop", "[", RowBox[{"DD", ",", "1"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.414864913753125*^9, 3.4148649247375*^9}}], Cell[BoxData["0.\ 323007928916670282179249404260659700896385165036565751942613557949436634629119\ 446634451200444138194691361158190922211309643638143211638943584768394005395494\ 726109384693418758017616469520105615567643657017505084077389439063633050538`\ 200."], "Output", CellChangeTimes->{{3.41486491858125*^9, 3.41486492533125*^9}, 3.41486496470625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Drop", "[", RowBox[{"CC", ",", "1"}], "]"}], ".", RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"Drop", "[", RowBox[{"DD", ",", "1"}], "]"}], "-", "1"}], ")"}]}], ")"}]}]], "Input",\ CellChangeTimes->{{3.4148646904875*^9, 3.41486470964375*^9}, 3.414864835815625*^9}], Cell[BoxData[ RowBox[{"4.\ 41034001104195965340167083783929565031236819058601667582832623079850080573683`\ 55.8784255523397", "+", RowBox[{"0``55.29642177397775", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.41486471114375*^9, {3.4148649413*^9, 3.414864964721875*^9}}] }, Open ]] }, WindowSize->{1175, 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[568, 21, 23211, 381, 2512, "Input"], Cell[23782, 404, 341, 10, 31, "Input"], Cell[24126, 416, 214, 5, 31, "Input"], Cell[24343, 423, 202, 5, 31, "Input"], Cell[24548, 430, 175, 4, 31, "Input"], Cell[24726, 436, 513, 11, 31, "Input"], Cell[25242, 449, 514, 12, 31, "Input"], Cell[25759, 463, 162, 4, 31, "Input"], Cell[CellGroupData[{ Cell[25946, 471, 165, 4, 31, "Input"], Cell[26114, 477, 404, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26555, 490, 229, 6, 31, "Input"], Cell[26787, 498, 198, 3, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27022, 506, 807, 23, 31, "Input"], Cell[27832, 531, 250, 6, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28119, 542, 493, 15, 31, "Input"], Cell[28615, 559, 116, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28768, 566, 139, 3, 31, "Input"], Cell[28910, 571, 122, 2, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29069, 578, 208, 5, 31, "Input"], Cell[29280, 585, 362, 6, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29679, 596, 358, 12, 31, "Input"], Cell[30040, 610, 288, 6, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)