(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      7085,        213]
NotebookOptionsPosition[      6636,        195]
NotebookOutlinePosition[      6981,        210]
CellTagsIndexPosition[      6938,        207]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Mathematica", " ", "code", " ", "for", " ", "drawing", " ", "a", " ", 
    "square", " ", "grid"}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"plotgrid2", "[", "data_", "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"J", "=", 
       RowBox[{"Length", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"K", "=", 
       RowBox[{"Length", "[", 
        RowBox[{"data", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"lines", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"AppendTo", "[", 
             RowBox[{"lines", ",", 
              RowBox[{"Graphics", "[", 
               RowBox[{"Line", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Re", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", ",", "k"}], "]"}], "]"}], "]"}], ",", 
                    RowBox[{"Im", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", ",", "k"}], "]"}], "]"}], "]"}]}], "}"}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Re", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", ",", 
                    RowBox[{"k", "+", "1"}]}], "]"}], "]"}], "]"}], ",", 
                    RowBox[{"Im", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", ",", 
                    RowBox[{"k", "+", "1"}]}], "]"}], "]"}], "]"}]}], "}"}]}],
                  "}"}], "]"}], "]"}]}], "]"}], ";"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "J"}], "}"}]}], "]"}], ";"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", 
          RowBox[{"K", "-", "1"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"AppendTo", "[", 
             RowBox[{"lines", ",", 
              RowBox[{"Graphics", "[", 
               RowBox[{"Line", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Re", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", ",", "k"}], "]"}], "]"}], "]"}], ",", 
                    RowBox[{"Im", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", ",", "k"}], "]"}], "]"}], "]"}]}], "}"}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Re", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"j", "+", "1"}], ",", "k"}], "]"}], "]"}], "]"}], 
                    ",", 
                    RowBox[{"Im", "[", 
                    RowBox[{"data", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"j", "+", "1"}], ",", "k"}], "]"}], "]"}], 
                    "]"}]}], "}"}]}], "}"}], "]"}], "]"}]}], "]"}], ";"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", 
             RowBox[{"J", "-", "1"}]}], "}"}]}], "]"}], ";"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", "K"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"{", "lines", "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ")"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{3.462103020401511*^9, 3.4622753399591775`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"grid1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", "10"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"j", "+", 
        RowBox[{"I", " ", "k"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "20"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"grid2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", "10"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"j", "+", 
        RowBox[{"I", " ", "k"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "61"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.462103020401511*^9, 3.462103024521391*^9}}],

Cell[BoxData[
 RowBox[{"plotgrid2", "[", "grid1", "]"}]], "Input",
 CellChangeTimes->{{3.462103020401511*^9, 3.462103030717398*^9}}],

Cell[BoxData[
 RowBox[{"plotgrid2", "[", 
  RowBox[{"grid1", "^", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.462103020401511*^9, 3.462103035259632*^9}}],

Cell[BoxData[
 RowBox[{"plotgrid2", "[", 
  RowBox[{"grid1", "^", 
   RowBox[{"(", 
    RowBox[{"1", "/", "2"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.462103020401511*^9, 3.462103041656961*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Manipulate", "[", 
     RowBox[{
      RowBox[{"plotgrid2", "[", 
       RowBox[{"grid1", "^", "t"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", ".1", ",", "4"}], "}"}]}], "]"}], ";"}], 
   "\n"}]}]], "Input",
 CellChangeTimes->{{3.462103020401511*^9, 3.462103041656961*^9}}]
},
WindowSize->{640, 750},
WindowMargins->{{34, Automatic}, {Automatic, 67}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 4300, 113, 352, "Input"],
Cell[4848, 135, 908, 29, 52, "Input"],
Cell[5759, 166, 132, 2, 31, "Input"],
Cell[5894, 170, 155, 3, 31, "Input"],
Cell[6052, 175, 204, 5, 31, "Input"],
Cell[6259, 182, 373, 11, 72, "Input"]
}
]
*)

(* End of internal cache information *)