(* 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[      6089,        177]
NotebookOptionsPosition[      5759,        161]
NotebookOutlinePosition[      6103,        176]
CellTagsIndexPosition[      6060,        173]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"ClearAll", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"angle", "[", "v_", "]"}], ":=", 
   RowBox[{"Arg", "[", 
    RowBox[{
     RowBox[{"v", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"v", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"arc", "[", 
    RowBox[{"{", 
     RowBox[{"pt_", ",", "x_", ",", "y_", ",", "s_"}], "}"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{"angle", "[", "x", "]"}]}], ";", 
      RowBox[{"b", "=", 
       RowBox[{"angle", "[", "y", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"a", "<", "0"}], ",", 
        RowBox[{"a", "=", 
         RowBox[{"a", "+", 
          RowBox[{"2", "\[Pi]"}]}]}], ",", 
        RowBox[{"{", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"b", "<", "0"}], ",", 
        RowBox[{"b", "=", 
         RowBox[{"b", "+", 
          RowBox[{"2", "\[Pi]"}]}]}], ",", 
        RowBox[{"{", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"a", "-", "b"}], "]"}], ">", "\[Pi]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"a", ">", "b"}], ",", 
          RowBox[{"{", 
           RowBox[{"b", "=", 
            RowBox[{"b", "+", 
             RowBox[{"2", "\[Pi]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", "=", 
            RowBox[{"a", "+", 
             RowBox[{"2", "\[Pi]"}]}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
       RowBox[{"Circle", "[", 
        RowBox[{"pt", ",", "s", ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"a", "<", "b"}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "b"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"b", ",", "a"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
        "]"}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pt1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";", 
  RowBox[{"pt2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "4"}], "}"}]}], ";", 
  RowBox[{"pt3", "=", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     RowBox[{"-", "9"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v12", "=", 
   RowBox[{"pt2", "-", "pt1"}]}], ";", 
  RowBox[{"v13", "=", 
   RowBox[{"pt3", "-", "pt1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"Line", "[", 
     RowBox[{"{", 
      RowBox[{"pt1", ",", "pt2"}], "}"}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Line", "[", 
     RowBox[{"{", 
      RowBox[{"pt1", ",", "pt3"}], "}"}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"arc", "[", 
    RowBox[{"{", 
     RowBox[{"pt1", ",", "v12", ",", "v13", ",", ".5"}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.43563859853125*^9, 3.435638637203125*^9}, {
  3.43563874303125*^9, 3.4356387779375*^9}, {3.43563881996875*^9, 
  3.4356388485625*^9}, {3.43563893365625*^9, 3.4356389409375*^9}, {
  3.435638999421875*^9, 3.435639014359375*^9}, {3.435639046375*^9, 
  3.435639047140625*^9}, {3.4356390971875*^9, 3.435639099546875*^9}, {
  3.435639261296875*^9, 3.43563931503125*^9}, {3.43563940121875*^9, 
  3.43563946796875*^9}, {3.435639549859375*^9, 3.435639724296875*^9}, {
  3.435639763671875*^9, 3.435639778890625*^9}, {3.43563981209375*^9, 
  3.43563981434375*^9}}],

Cell[BoxData[
 GraphicsBox[{LineBox[{{0, 0}, {-3, 4}}], LineBox[{{0, 0}, {5, -9}}], 
   CircleBox[{0, 0}, 0.5, 
    NCache[{Pi - ArcTan[Rational[4, 3]], 2 Pi - ArcTan[Rational[9, 5]]}, {
     2.214297435588181, 5.2194874847770265`}]]},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  ImageSize->{240.92698598790275`, Automatic}]], "Output",
 CellChangeTimes->{{3.435638749578125*^9, 3.435638783359375*^9}, {
   3.435638830375*^9, 3.435638852234375*^9}, {3.435638942875*^9, 
   3.43563895884375*^9}, 3.435639016265625*^9, 3.435639048203125*^9, {
   3.435639267734375*^9, 3.435639284890625*^9}, 3.4356393171875*^9, {
   3.435639408796875*^9, 3.435639468640625*^9}, {3.435639615875*^9, 
   3.435639667421875*^9}, {3.43563969978125*^9, 3.43563972540625*^9}, {
   3.43563976871875*^9, 3.435639781734375*^9}, 3.435639819296875*^9}]
}, Open  ]]
},
WindowSize->{616, 666},
WindowMargins->{{Automatic, 77}, {Automatic, 72}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 7, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 4270, 117, 452, "Input"],
Cell[4863, 142, 880, 16, 398, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)