(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     11208,        314]
NotebookOptionsPosition[     10127,        269]
NotebookOutlinePosition[     10481,        285]
CellTagsIndexPosition[     10438,        282]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{"2", " ", 
    RowBox[{"\[Pi]", "/", "3"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.588294843665658*^9, 3.5882948572500362`*^9}}],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.588294858738069*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"2", " ", 
   RowBox[{"\[Pi]", "/", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588295011671541*^9, 3.588295024523768*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox["3"], "2"]], "Output",
 CellChangeTimes->{3.588295033982122*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"Sin", "[", 
   RowBox[{"\[Pi]", "/", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.588364148780719*^9, 3.588364165489254*^9}}],

Cell[BoxData[
 SqrtBox["3"]], "Output",
 CellChangeTimes->{3.588364168765696*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", 
  RowBox[{"Cos", "[", 
   RowBox[{"\[Pi]", "/", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.588364181509951*^9, 3.588364191218011*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.588364192006506*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"\[Pi]", "/", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.58836435971622*^9, 3.588364371660104*^9}, {
  3.588364464627035*^9, 3.58836446680936*^9}}],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox["2"]]], "Output",
 CellChangeTimes->{3.5883643727630053`*^9, 3.588364467475897*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", 
  RowBox[{"3", "/", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5883643877532873`*^9, 3.588364394139348*^9}}],

Cell[BoxData[
 SqrtBox[
  FractionBox["3", "2"]]], "Output",
 CellChangeTimes->{3.588364394581789*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.588364398197012*^9, 3.588364402235573*^9}}],

Cell[BoxData["1.224744871391589`"], "Output",
 CellChangeTimes->{3.588364402731634*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", " ", 
       RowBox[{"t", "^", "2"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Red", ",", 
        RowBox[{"Thickness", "[", "0.05", "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", " ", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "-", "t"}], ")"}], ",", " ", "4"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Green", ",", 
        RowBox[{"Thickness", "[", "0.05", "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p3", "=", " ", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{"4", "-", "t"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Orange", ",", 
        RowBox[{"Thickness", "[", "0.05", "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{"p1", ",", "p2", ",", "p3"}], "}"}], "]"}], 
  " "}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5883829089944773`*^9, 3.588383057943446*^9}, {
   3.588461100822338*^9, 3.5884611138295393`*^9}, 3.588461156748122*^9, {
   3.588462074889436*^9, 3.5884622323725357`*^9}, {3.588462269757886*^9, 
   3.588462305162922*^9}, 3.5884626063861923`*^9, {3.588462646176485*^9, 
   3.588462718401167*^9}, {3.5884627545286407`*^9, 3.588462762262672*^9}, {
   3.588462808429019*^9, 3.588462868995009*^9}, {3.588462917105647*^9, 
   3.588462972647081*^9}, {3.58846316559306*^9, 3.58846322494445*^9}, {
   3.588463258302782*^9, 3.588463441699823*^9}, {3.5884634819706993`*^9, 
   3.5884634975589943`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], Thickness[0.05], LineBox[CompressedData["
1:eJxd1mk0VW0fBnCSHKlzDKVCgyEZGpTKk+LaiVRmaTJlqCRvkqJCQknJY4jI
UMlwQjJ1pE5EZpJkyFQyhvIgTmb2877L/vTutfa6173uff+v3/VtS9pcMD69
gIuL69F/3/+t///YTItW+K3ShL9KoPIMItXn9ybU/o26yLW4FzqylnCfI99M
21VR56eo82Z1Vbb52/619rAV16bNvumivnekvh9QHxPnfDoafhG3O6+umDUZ
pe5fpu5Pqle37Cp8HeOKQ3PYOs0hqXnXqHk8YEbeYInFu+OGU+5ZjzY+zM/3
pOYvAZFqc/idiReed9I81Z4LYj7Pm8oTwXzeLSpvFVY6JGmtM/NFVoDyq93e
EpjPv03lr8V8/l0qXxrD8oMqPtb+aJizY8fkr6c89yjPBsoTSHk2orJPWaHb
LggfxYbMo2s3U75gyqdE+UIonzLlC6N8u6D28iSfCTsMwXN1f3RaVCnvA8q7
h/KGU15Q3kjKuw/LnRMnswsicUT8c0fCG03KH0X5tSh/NOXXpvyPKb8uBpV+
/VpR9hhfxX7fk47So/o8ofroU31iqT6GVJ+nVJ/DVJ8Eqs8JCKj+kc90SgBN
sSW2XsIUrKt1/i1lCajnHc+ymTUF71iQ7ibXRBhfjC95UmGOpGFaTW0tE9NB
trX62lYY7Jn6sjogGb/+kVhvcvoUImSaVbS7krFS6pDP+d+nQNjmPHRSTcFA
xfdM6xunEdJ+ybSoLwV3LmveaYk9g+2tA9/OaqUidMeoEH3qLNxq2rpfzqWB
c+bHQw9eR0gx8rS+HUlHYEOUxL50R3zQi2YuepGOmpwc527TCwjsUWSlbspA
gsPyD61mTmi36XMhWzPAt3f666eii7hpYT2Z8FcWnIpC2LsLLqPC+DDX8G8W
mmR/mks5uMOqYZHZU7Fs7OXK7hD54o6xY+xs433Z0Es7Y1u/1wMyFpIO2WHZ
ML3jaVEofh1edkMNbiqvoLLda6Nxsyd2etx7zns9B+7ZPVGxat6ITyw6Kk5j
wyilwG3zJl+oyl3JrFJiw9I6VCDigi9qUhSWeJ5gI8+nWcwuyxdz6SHv21PY
cFlYwFLbdRum7JMbmXpvUcYz1lCs4wfBT9PcW0NzMfibt1r11l1cn1B+sX9N
PowCssNKNAKx2JY/XXF/PsSj3X0CgwMR/rEtQ9AxH+WWV/vZbYHIiLvLasnL
R8NCUWl1jyA4M4cscjYXoK7HSWrcIhhMQ63TOtUFWBZn8XSKGQJ64vClS0sL
cWyYLWJgGQYT01bOaclCLNrPv8bhXhiiGaUux3cUQmFspPv16zDIuUVfUbMo
ROnph0n9Ig+gYbDfne9FIUx9FPliqx7AdTLaJ1q3CCMZzpJW2hFo09MOKbpX
jJ6uW5WbbKJQ5x7beeZpMUySc05+i4xCefKk8uKcYkhGmrmXfY7CS97UL4ad
xWgeH9PS0YjGnTxBiba/SpCd6S4nJBuDbZtamBM9JZBbkScVPvEIfkvO524i
yuBRz3At7I6F0of7vRGcCohztva7LU1EqQI9sIJWidig0OGDmxNh4X93+7RE
JZY6p1/eZpAI/4Ne3pZalYgWEB01CElEd9l58fXhlfAPeVyeK8rEw+IDBlkq
H5DVF/PFQvYZuN7Nvapyq8KWYn3PvOPJqMk4d5ub+xOat/jNjPCnQdjaKfbT
nlr0OL86wK5gYU1/xdDxgXp8/0GL9DZ/C6NE+67U840wVTL7z7oN72F5palb
bH0LPgdvYLual+D+9b/9D6d9xb0r9d/LWBWQ47GOK1X4DsetjTQxs2rofeLu
Th5sR8V7/Y+7f33GKpWx8galTrD30oRd0+pRK1/Logd2QUbVf5vhj0bsMc9r
7u7uxk1Nq2eLDraCnfTBMFbmByb+dGQvSWyDjNf76rM3eqH+t+uI5N4OxF1s
eSxa1Ae1NL5D2vJdWDrY4vJZ8icCuzokVh7rgXzKT195t1+oma12nIjoxQmv
1X1n3g7gtZ3KfbWqfrh0qBhlrhjEceGFPJ66A0g0d1nSYT6EgLwTMdx5gygS
sOZq1BtGWaNjptyjYaRsnp4tmhqG4fKV2zoXjiC6jZkgHfMb49l7XPKtR7HA
pLSaX2cEdkU7Z3f85EDD/vyDd2MjCFX2m+V3G0OAgCzvj/BRVL3mdf49PQ7d
S8YToZocCBj0tEakTkL0bHAY6wcHMwZ0nkK9abyeOfIx3vcPhi2LtyuMzuDz
0aC7q7aNQSKTLmZbOYdRtZZB7roxyAj95L+vzUUE/HzY6OQ9jt6ZfR9Xa3IT
W2Ts7Y1lJuC47mRTws4FRMpsQcSC4gmcSzt1k6XAQ8TEBBzcdXESl1n9a91U
FxIR5fYJncJTiBI+5/RWnZfgZ7N9hAuncHv3r2XjJxcRJjqhs4KO01DqLyBU
bvIRSfbXJX3oM2gfu6t/LpJGXNJrLb+WOwN1E+2/FKv5Ce13h1Z1W87CY0Kr
RvTPYoJTvXfR6rlZyA1tv+MqsYRYkZjq+jVlDrbe31P+sV1KaNLkg+m6JB52
+cwIxtAJ6VN9R9r0SXxotJALeUonFhQ8E08zIrHSmFUr9IxOFFyRfaZ3jAR3
c13csiw6sadX+l2ADQkhpW9K68rphHLpmoHF10is5Vm10IBDJ6RuLTvAxyRB
U9vhJ6DHILjb65Y2JpHw43j5RBsziPbdoXXM5yTWbTswo3icQTweFTq5P5NE
HA466NsyCDFbhqtvLonO+OUqkdcYhJDG4gSeOhKHQxp99zMZxPCjCvu6BhJX
U1rPtj1nENWTd7bEN5F4ddCs0jWTQQRk8r3VaCNxS+wjLTmXQdAkeWu9+0mY
87pfEqljEL0exRFGAyRMDMwOpTcxiNKmmxaSQyTs1uY80WljELeCF/QXcEi0
GnWU+PYzCNuB92nB4yTUWOnh0kMMQuOA92WrKRJvYiZ73nMYhGQCoao0S8JA
IP+l1RSDoH7bqFWQ+Be8XMHu
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], Thickness[0.05], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQUOEErAQWjJ7Qcz1/+3h/FVPbYfNI5H8C+f+vX/
wYZ/cH7FAZ2p0nwIvovY9d72vL9w/qxlvMy5B//A+c9WGp2/L4/g73n+WPxM
wW84f0cr75GXR37B+WumqR6fooLgazw66baz7CecP2dBjGz2lR9wvtn+9HA/
UwQ/SuI/7+qO73B+yZMW6anPv8H54q+nLf1hgeA/ClSc3Nv7Fc5frD3r+vq3
X+D8d/bzZ3g7IPj6xydtKJn3Gc7/1SHkKv7+E5z/ZhWX7WsnBP+K/cdun0Uf
4Xw3/pRw9S8f4Px1gUcr+wMR/KoXtv8DU94jwmMRJ0sF1zs4/5TTpm07jr+B
8/+EFye9yXwN59foql5tEnoF5794sfmr8aUXcH6GZDT/jbLnCPfp3782zegZ
nD+BLSR1x5cncH5c0MM3Z2Y/hvOlWryV/kQ+QpivdS5A7u8DRHrIj47alncf
zo/g/LPg6/s7CPN7z96Usr4F5y+5G5FXuuU6nH9HXPTr1u9X4PwNlzZx7nG/
BOcf2CTy5V33eYR/pqjuNJQ5Beef4F1lep/jKJyf0PHxrDj/AYT960ynWgRt
hfMbvt/7pVu3DI0/Dc5nQAECDgAx1enP
      "]]}}, {{}, {}, 
    {RGBColor[1, 0.5, 0], Thickness[0.05], LineBox[CompressedData["
1:eJxTTMoPSmViYGDwBWIQjQoEHGAsxbts52v+8sP5jrt45/38heA3lUjbfP6K
4LO+NKt49hrB57yU++HMdQRfaMntBzPXI/iqHtsPGscj+JdP/fr/YAMfnF9x
QGeqNB+C7yJ2vbc9jxfOn7WMlzn3IA+c/2yl0fn78gj+nuePxc8UcMP5O1p5
j7w8wgXnr5mmenyKCoKv8eik284yTjh/zoIY2ewrHHC+2f70cD9TBD9K4j/v
6g52OL/kSYv01OdscL7462lLf1gg+I8CFSf39rLC+Yu1Z11f/5YFzn9nP3+G
twOCr3980oaSecxw/q8OIVfx90xw/ptVXLavnRD8K/Yfu30WMcL5bvwp4epf
GOD8dYFHK/sDEfyqF7b/A1P+28PDYxEnSwXXPzj/lNOmbTuO/4Hz/4QXJ73J
/A3n1+iqXm0S+gXnv3ix+avxpR9wfoZkNP+Nsu9w/hX9+9emGX2D8yewhaTu
+PIFzo8LevjmzOzPcL5Ui7fSn8hPCPO1zgXI/f0A57vkR0dty3sP50dw/lnw
9f0bhPm9Z29KWb+C85fcjcgr3fIczr8jLvp16/cncP6GS5s497g/gvMPbBL5
8q77PsI/U1R3GsrcgvNP8K4yvc9xFc5P6Ph4Vpz/AsL+daZTLYKOwvkN3+/9
0q3bBucvqP7sZKqC4B/4z95tc2ornM/AYSjtLYbgN0g0W2es24zQb6les+je
BjTzl6GZtxTNvKVo5i1G8MHmLUAzbxqa/qkIviRI/2QE3wqkfwKC/wOkvw1N
fTOa+gY09WVo8gVo8mlo/DAEHwoAIhAaXw==
      "]]}}},
  AspectRatio->1.052224097225267,
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{293.8693080357143, 177.44921875},
  Method->{},
  PlotRange->{{0., 2.}, {0., 4.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.588463288491736*^9, {3.588463345161765*^9, 3.588463375235092*^9}, {
   3.588463426615312*^9, 3.588463442547348*^9}, 3.588463498074543*^9}]
}, Open  ]]
},
WindowSize->{740, 652},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 200, 5, 28, "Input"],
Cell[782, 29, 87, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[906, 36, 173, 4, 28, "Input"],
Cell[1082, 42, 102, 3, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1221, 50, 173, 4, 28, "Input"],
Cell[1397, 56, 81, 2, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1515, 63, 168, 4, 28, "Input"],
Cell[1686, 69, 70, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1793, 75, 196, 4, 28, "Input"],
Cell[1992, 81, 126, 3, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2155, 89, 148, 3, 28, "Input"],
Cell[2306, 94, 102, 3, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2445, 102, 120, 2, 28, "Input"],
Cell[2568, 106, 87, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2692, 112, 2197, 57, 148, "Input"],
Cell[4892, 171, 5219, 95, 226, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

