(* 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[ 15196, 421] NotebookOptionsPosition[ 14865, 405] NotebookOutlinePosition[ 15207, 420] CellTagsIndexPosition[ 15164, 417] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ 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[{"ptA", "=", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], ";", RowBox[{"ptP", "=", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], ";", RowBox[{"vPA", "=", RowBox[{"ptA", "-", "ptP"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{ RowBox[{"vPA", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"vPA", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["z", "3"], "=", RowBox[{ RowBox[{"Re", "[", RowBox[{"z", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"120", "\[Degree]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"120", "\[Degree]"}], "]"}]}]}], ")"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Im", "[", RowBox[{"z", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"120", "\[Degree]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"120", "\[Degree]"}], "]"}]}]}], ")"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptB", "=", RowBox[{"ptP", "+", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", SubscriptBox["z", "3"], "]"}], ",", RowBox[{"Im", "[", SubscriptBox["z", "3"], "]"}]}], "}"}]}]}], ";", RowBox[{"vPB", "=", RowBox[{"ptB", "-", "ptP"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["z", "4"], "=", RowBox[{ RowBox[{"Re", "[", RowBox[{"z", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "120"}], "\[Degree]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"-", "120"}], "\[Degree]"}], "]"}]}]}], ")"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Im", "[", RowBox[{"z", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "120"}], "\[Degree]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"-", "120"}], "\[Degree]"}], "]"}]}]}], ")"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptC", "=", RowBox[{"ptP", "+", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", SubscriptBox["z", "4"], "]"}], ",", RowBox[{"Im", "[", SubscriptBox["z", "4"], "]"}]}], "}"}]}]}], ";", RowBox[{"vPC", "=", RowBox[{"ptC", "-", "ptP"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"ptA", ",", "ptB", ",", "ptC", ",", "ptP"}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{"ptP", ",", RowBox[{"Norm", "[", "z", "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"ptA", ",", "ptB", ",", "ptC", ",", "ptA"}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ptP", ",", "ptA"}], "}"}], ",", RowBox[{"{", RowBox[{"ptP", ",", "ptB"}], "}"}], ",", RowBox[{"{", RowBox[{"ptP", ",", "ptC"}], "}"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", RowBox[{"ptP", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"ptP", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "12", ",", "Red"}], "]"}], ",", RowBox[{"ptP", "+", RowBox[{"{", RowBox[{ RowBox[{"-", ".3"}], ",", RowBox[{"-", ".7"}]}], "}"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", RowBox[{"ptA", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"ptA", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "12", ",", "Red"}], "]"}], ",", RowBox[{"ptA", "+", RowBox[{"{", RowBox[{".5", ",", ".5"}], "}"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", RowBox[{"ptB", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"ptB", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "12", ",", "Red"}], "]"}], ",", RowBox[{"ptB", "+", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", ".5"}], "}"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", RowBox[{"ptC", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"ptC", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "12", ",", "Red"}], "]"}], ",", RowBox[{"ptC", "+", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", ".5"}]}], "}"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"arc", "[", RowBox[{"{", RowBox[{"ptP", ",", "vPA", ",", "vPB", ",", ".2"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"arc", "[", RowBox[{"{", RowBox[{"ptP", ",", "vPA", ",", "vPC", ",", ".3"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"arc", "[", RowBox[{"{", RowBox[{"ptP", ",", "vPB", ",", "vPC", ",", ".4"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{ 3.4356272048125*^9, {3.435627343234375*^9, 3.4356274084375*^9}, 3.435627449953125*^9, 3.4356274875625*^9, {3.43562751796875*^9, 3.43562758578125*^9}, {3.435628117671875*^9, 3.435628121234375*^9}, 3.43562815625*^9, {3.43562823871875*^9, 3.43562824909375*^9}, { 3.435628566765625*^9, 3.435628599546875*^9}, {3.435628658390625*^9, 3.435628716984375*^9}, {3.435628753625*^9, 3.43562880509375*^9}, { 3.435628931828125*^9, 3.43562895421875*^9}, {3.43562908309375*^9, 3.435629125265625*^9}, {3.435629165375*^9, 3.43562916978125*^9}, { 3.435629205671875*^9, 3.435629240359375*^9}, 3.435629351703125*^9, { 3.4356294999375*^9, 3.435629539359375*^9}, {3.435629854359375*^9, 3.435629872265625*^9}, {3.435629914171875*^9, 3.435629938765625*^9}, { 3.435630092015625*^9, 3.435630184890625*^9}, {3.435630268328125*^9, 3.435630330578125*^9}, {3.435630656796875*^9, 3.43563070765625*^9}, { 3.43563074528125*^9, 3.43563079225*^9}, {3.43563146925*^9, 3.435631499734375*^9}, {3.4356315391875*^9, 3.435631543796875*^9}, { 3.435631584875*^9, 3.43563167559375*^9}, {3.435634349234375*^9, 3.435634434*^9}, {3.43563459315625*^9, 3.43563485009375*^9}, { 3.43563488315625*^9, 3.4356348865625*^9}, {3.435635488109375*^9, 3.43563556096875*^9}, {3.435635783875*^9, 3.435635784328125*^9}, { 3.435635861015625*^9, 3.435635944765625*^9}, {3.435636305375*^9, 3.435636332359375*^9}, {3.43563637475*^9, 3.435636446859375*^9}, 3.435636490796875*^9, {3.435636585265625*^9, 3.435636619953125*^9}, { 3.43563709090625*^9, 3.435637111125*^9}, {3.435637246203125*^9, 3.435637247765625*^9}, {3.435638883046875*^9, 3.435638895046875*^9}}], Cell[BoxData[ GraphicsBox[{ PointBox[NCache[{{3, 4}, {-3^Rational[1, 2], 1 + 3^Rational[1, 2]}, { 3^Rational[1, 2], 1 - 3^Rational[1, 2]}, {1, 2}}, {{3, 4}, {-1.7320508075688772`, 2.732050807568877}, { 1.7320508075688772`, -0.7320508075688772}, {1, 2}}]], CircleBox[{1, 2}, NCache[2 2^Rational[1, 2], 2.8284271247461903`]], LineBox[NCache[{{3, 4}, {-3^Rational[1, 2], 1 + 3^Rational[1, 2]}, { 3^Rational[1, 2], 1 - 3^Rational[1, 2]}, {3, 4}}, {{3, 4}, {-1.7320508075688772`, 2.732050807568877}, { 1.7320508075688772`, -0.7320508075688772}, {3, 4}}]], LineBox[NCache[{{{1, 2}, {3, 4}}, {{1, 2}, {-3^Rational[1, 2], 1 + 3^Rational[1, 2]}}, {{1, 2}, { 3^Rational[1, 2], 1 - 3^Rational[1, 2]}}}, {{{1, 2}, {3, 4}}, {{1, 2}, {-1.7320508075688772`, 2.732050807568877}}, {{1, 2}, { 1.7320508075688772`, -0.7320508075688772}}}]], InsetBox[ StyleBox[ InterpretationBox["\<\"P(\\!\\(TraditionalForm\\`1\\),\\!\\(\ TraditionalForm\\`2\\))\"\>", StringForm["P(``,``)", 1, 2], Editable->False], StripOnInput->False, FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->12, FontColor->RGBColor[1, 0, 0]], {0.7, 1.3}], InsetBox[ StyleBox[ InterpretationBox["\<\"A(\\!\\(TraditionalForm\\`3\\),\\!\\(\ TraditionalForm\\`4\\))\"\>", StringForm["A(``,``)", 3, 4], Editable->False], StripOnInput->False, FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->12, FontColor->RGBColor[1, 0, 0]], {3.5, 4.5}], InsetBox[ StyleBox[ InterpretationBox["\<\"B(\\!\\(TraditionalForm\\`\\(-\\@3\\)\\),\\!\\(\ TraditionalForm\\`\\(1 + \\@3\\)\\))\"\>", StringForm["B(``,``)", -3^Rational[1, 2], 1 + 3^Rational[1, 2]], Editable->False], StripOnInput->False, FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->12, FontColor->RGBColor[1, 0, 0]], {-3.232050807568877, 3.232050807568877}], InsetBox[ StyleBox[ InterpretationBox["\<\"C(\\!\\(TraditionalForm\\`\\@3\\),\\!\\(\ TraditionalForm\\`\\(1 - \\@3\\)\\))\"\>", StringForm["C(``,``)", 3^Rational[1, 2], 1 - 3^Rational[1, 2]], Editable->False], StripOnInput->False, FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontSize->12, FontColor->RGBColor[ 1, 0, 0]], {3.232050807568877, -1.2320508075688772`}], CircleBox[{1, 2}, 0.2, NCache[{Rational[1, 4] Pi, Pi + ArcTan[(-1 - 3^Rational[1, 2])^(-1) (-1 + 3^Rational[1, 2])]}, { 0.7853981633974483, 2.8797932657906435`}]], CircleBox[{1, 2}, 0.3, NCache[{2 Pi + ArcTan[(-1 - 3^Rational[1, 2])/(-1 + 3^Rational[1, 2])], Rational[9, 4] Pi}, {4.974188368183839, 7.0685834705770345`}]], CircleBox[{1, 2}, 0.4, NCache[{Pi + ArcTan[(-1 - 3^Rational[1, 2])^(-1) (-1 + 3^Rational[1, 2])], 2 Pi + ArcTan[(-1 - 3^Rational[1, 2])/(-1 + 3^Rational[1, 2])]}, { 2.8797932657906435`, 4.974188368183839}]]}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}]], "Output", CellChangeTimes->{ 3.4356381928125*^9, 3.435638502359375*^9, 3.435638663375*^9, { 3.435638886015625*^9, 3.43563889746875*^9}}] }, Open ]] }, WindowSize->{496, 661}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, 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, 10766, 298, 892, "Input"], Cell[11359, 323, 3490, 79, 301, "Output"] }, Open ]] } ] *) (* End of internal cache information *)