(* 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[      3700,        119]
NotebookOptionsPosition[      3366,        104]
NotebookOutlinePosition[      3713,        119]
CellTagsIndexPosition[      3670,        116]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{"\"\<#12 \>\"", "\n", 
 RowBox[{
  RowBox[{"Curve1", "=", 
   RowBox[{"PolarPlot", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0", ",", "1"}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Curve2", "=", 
   RowBox[{"PolarPlot", "[", 
    RowBox[{
     RowBox[{"1", "+", 
      RowBox[{"Cos", "[", "t", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "1", ",", "0"}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"Curve1", ",", "Curve2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.41175019696875*^9, 3.41175022915625*^9}, {
   3.412285343921875*^9, 3.412285360765625*^9}, {3.46611106040625*^9, 
   3.466111063125*^9}, 3.470184532375*^9}],

Cell[BoxData[{
 RowBox[{"Integrate", "[", " ", 
  RowBox[{"r", ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"Pi", "/", "2"}], ",", 
     RowBox[{"1.5", "Pi"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"r", ",", " ", 
     RowBox[{"1", "+", 
      RowBox[{"Cos", "[", "t", "]"}]}], ",", "1"}], "}"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", "-", 
    RowBox[{"Pi", "/", "4"}]}], ")"}], "//", "N"}]}], "Input",
 CellChangeTimes->{
  3.465823072953125*^9, {3.4701844665625*^9, 3.4701844833125*^9}}],

Cell[BoxData[{"\"\<#38      r=\!\(\*SqrtBox[\(2  Cos[2  t]\)]\)    \
Leminiscate = 8-shape\>\"", "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"PolarPlot", "[", 
    RowBox[{
     SqrtBox[
      RowBox[{"2", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "t"}], "]"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "1", ",", "0"}], "]"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "x"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.465823072953125*^9, {3.465823526921875*^9, 3.465823535390625*^9}, {
   3.465823584671875*^9, 3.46582362678125*^9}, {3.465823665109375*^9, 
   3.46582374765625*^9}, {3.46582378953125*^9, 3.465823825828125*^9}, {
   3.465823858125*^9, 3.46582386871875*^9}, {3.47018450753125*^9, 
   3.470184527890625*^9}}]
},
WindowSize->{1191, 887},
WindowMargins->{{Automatic, 12}, {-25, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1097, 31, 92, "Input"],
Cell[1645, 53, 565, 17, 52, "Input"],
Cell[2213, 72, 1149, 30, 63, "Input"]
}
]
*)

(* End of internal cache information *)