(* 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[      1465,         55]
NotebookOptionsPosition[      1214,         42]
NotebookOutlinePosition[      1555,         57]
CellTagsIndexPosition[      1512,         54]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<c:\\Magic_as.dat\>\"", ",", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{"x", "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", 
            RowBox[{"9", "+", 
             RowBox[{"j", " ", "2", " ", "Pi"}]}]}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "0", ",", "99"}], "}"}]}], "]"}], "}"}], "]"}]}], 
  "]"}]], "Input"]
},
WindowSize->{609, 750},
WindowMargins->{{49, Automatic}, {Automatic, 62}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 642, 19, 152, "Input"]
}
]
*)

(* End of internal cache information *)

