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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5164,        147]
NotebookOptionsPosition[      4843,        131]
NotebookOutlinePosition[      5192,        146]
CellTagsIndexPosition[      5149,        143]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"s", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"12", "-", "x"}], ")"}], "/", "4"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"r", " ", "=", " ", 
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{"2", "Pi"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "r"}], ",", "0"}], "}"}], ",", "r"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{
              RowBox[{"-", "s"}], "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s", ",", 
             RowBox[{
              RowBox[{"-", "s"}], "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s", ",", 
             RowBox[{"s", "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"s", "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{
              RowBox[{"-", "s"}], "/", "2"}]}], "}"}]}], "}"}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "12"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.653929167101659*^9, 3.653929195715659*^9}, {
   3.6539293132306585`*^9, 3.653929335819999*^9}, {3.6539294654053545`*^9, 
   3.6539295178393545`*^9}, {3.6539295683543544`*^9, 3.6539295735513544`*^9}, 
   3.6539296255053544`*^9, {3.653929795923354*^9, 3.6539299199783545`*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`x$$ = 4.82, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`x$$], 0, 12}}, Typeset`size$$ = {
      360., {101., 105.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = True, $CellContext`x$6651$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, "Variables" :> {$CellContext`x$$ = 0}, 
        "ControllerVariables" :> {
          Hold[$CellContext`x$$, $CellContext`x$6651$$, 0]}, 
        "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, 
        "Body" :> ($CellContext`s = (12 - $CellContext`x$$)/
           4; $CellContext`r = $CellContext`x$$/(2 Pi); Graphics[{
            Circle[{-$CellContext`r, 0}, $CellContext`r], 
            
            Line[{{0, (-$CellContext`s)/
               2}, {$CellContext`s, (-$CellContext`s)/
               2}, {$CellContext`s, $CellContext`s/2}, {
              0, $CellContext`s/2}, {0, (-$CellContext`s)/2}}]}, 
           PlotRange -> {{-4, 3}, {-2, 2}}]), 
        "Specifications" :> {{$CellContext`x$$, 0, 12}}, "Options" :> {}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{411., {146., 153.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.6539298908853545`*^9, 3.653929920468354*^9}, 
   3.6539299645873547`*^9}]
}, Open  ]]
},
WindowSize->{833, 635},
WindowMargins->{{Automatic, -1284}, {-20, Automatic}},
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2081, 59, 152, "Input"],
Cell[2664, 83, 2163, 45, 316, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)