(* 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[     13555,        376]
NotebookOptionsPosition[     13224,        361]
NotebookOutlinePosition[     13563,        376]
CellTagsIndexPosition[     13520,        373]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "x", "]"}], "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
            RowBox[{"Circle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", ".025"}], "]"}]}], "}"}], 
          ",", " ", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{".65", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{".7071", ",", ".7071"}], "}"}], ",", " ", 
               RowBox[{"{", 
                RowBox[{".4571", ",", ".4571"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", " ", 
               RowBox[{"{", 
                RowBox[{"0", ",", ".65"}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".7071"}], ",", ".7071"}], "}"}], ",", " ", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".4571"}], ",", ".4571"}], "}"}]}], "}"}], 
             "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".65"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",",
             
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".7071"}], ",", 
                 RowBox[{"-", ".7071"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".4571"}], ",", 
                 RowBox[{"-", ".4571"}]}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", ".65"}]}], "}"}]}], "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{".7071", ",", 
                 RowBox[{"-", ".7071"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{".4571", ",", 
                 RowBox[{"-", ".4571"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Dashed", ",", 
          RowBox[{"{", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", ".3827"}], ",", 
                RowBox[{"-", ".9239"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", ".2827"}], ",", 
                RowBox[{"-", ".7239"}]}], "}"}]}], "}"}], "]"}], "}"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".9239"}], ",", " ", 
               RowBox[{"-", ".3827"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".7239"}], ",", 
               RowBox[{"-", ".2827"}]}], "}"}]}], "}"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".9239"}], ",", ".3827"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".7239"}], ",", ".2827"}], "}"}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".3827"}], ",", ".9239"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".2827"}], ",", ".7239"}], "}"}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".3837", ",", ".9239"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".2827", ",", ".7239"}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".9239", ",", " ", ".3837"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".7239", ",", ".2827"}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".9239", ",", " ", 
               RowBox[{"-", ".3837"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".7239", ",", 
               RowBox[{"-", ".2827"}]}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".3827", ",", 
               RowBox[{"-", ".9239"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".2827", ",", 
               RowBox[{"-", ".7239"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<140\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.4571", ",", 
            RowBox[{"-", ".4571"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", " ", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<120\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".65", ",", "0"}], "}"}]}], "]"}], ",", " ", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<100\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".4571", ",", ".4571"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<80\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", ".65"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<60\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4571"}], ",", "0.4571"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<40\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".65"}], ",", "0"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<20\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4571"}], ",", 
            RowBox[{"-", "0.4571"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<0\>\"", ",", "Large", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", ".65"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<10\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".2827"}], ",", 
            RowBox[{"-", ".7239"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<30\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".7239"}], ",", 
            RowBox[{"-", ".2827"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<50\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".7239"}], ",", ".2827"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<70\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".2827"}], ",", ".7239"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<90\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".2827", ",", ".7239"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<110\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".7239", ",", ".2827"}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<130\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".7239", ",", 
            RowBox[{"-", ".2827"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<150\>\"", ",", "Medium", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".2827", ",", 
            RowBox[{"-", ".7239"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", "0.008", "]"}], ",", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "+", "15.7"}], ")"}], "*", ".1"}], ")"}], 
                 "+", "\[Pi]"}], "]"}], ",", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "+", "15.7"}], ")"}], "*", ".1"}], ")"}], 
                 "+", "\[Pi]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], 
       "}"}], "}"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "12", ",", "63"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.406921397359375*^9, 3.4069214085625*^9}, {
  3.40692169615625*^9, 3.406921696703125*^9}, {3.40692173875*^9, 
  3.406921746578125*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"a", "[", "x", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "63", ",", "12", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.406921412921875*^9, 3.406921413328125*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Gaviola.gif\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"a", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "63", ",", "12", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.406921431109375*^9, 3.406921431453125*^9}}]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 11978, 317, 872, "Input"],
Cell[12549, 340, 285, 7, 31, "Input"],
Cell[12837, 349, 383, 10, 31, "Input"]
}
]
*)

(* End of internal cache information *)