(* 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[      6138,        175]
NotebookOptionsPosition[      5676,        154]
NotebookOutlinePosition[      6083,        171]
CellTagsIndexPosition[      6040,        168]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Demo Viereck Parallelogramm", "Title",
 CellChangeTimes->{{3.414491164109375*^9, 3.414491176703125*^9}, {
  3.4293301793125*^9, 3.429330183609375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2", ",", "p3", ",", "p4", ",", "p1"}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"p1", "+", "p2"}], ")"}], "/", "2"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"p2", "+", "p3"}], ")"}], "/", "2"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"p3", "+", "p4"}], ")"}], "/", "2"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"p4", "+", "p1"}], ")"}], "/", "2"}]}], "}"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "\[IndentingNewLine]", "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p1", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p2", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p3", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", "Locator"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p4", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.4491133590625*^9, 3.44911337975*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`p1$$ = {-0.484, 1.02}, $CellContext`p2$$ = {
    1.596, -0.13000000000000012`}, $CellContext`p3$$ = {
    1.892, -1.}, $CellContext`p4$$ = {-1.604, -0.54}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p1$$], {-1, 1}}, Automatic}, {{
       Hold[$CellContext`p2$$], {1, 1}}, Automatic}, {{
       Hold[$CellContext`p3$$], {1, -1}}, Automatic}, {{
       Hold[$CellContext`p4$$], {-1, -1}}, Automatic}}, Typeset`size$$ = {
    500., {135., 140.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`p1$$ = {-1, 1}, $CellContext`p2$$ = {1, 
         1}, $CellContext`p3$$ = {1, -1}, $CellContext`p4$$ = {-1, -1}}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Line[{$CellContext`p1$$, $CellContext`p2$$, $CellContext`p3$$, \
$CellContext`p4$$, $CellContext`p1$$}], 
         Polygon[{($CellContext`p1$$ + $CellContext`p2$$)/
           2, ($CellContext`p2$$ + $CellContext`p3$$)/
           2, ($CellContext`p3$$ + $CellContext`p4$$)/
           2, ($CellContext`p4$$ + $CellContext`p1$$)/2}]}, 
        PlotRange -> {{-2, 2}, {-1.1, 1.1}}, ImageSize -> 500], 
      "Specifications" :> {{{$CellContext`p1$$, {-1, 1}}, Automatic, 
         ControlType -> Locator}, {{$CellContext`p2$$, {1, 1}}, Automatic, 
         ControlType -> Locator}, {{$CellContext`p3$$, {1, -1}}, Automatic, 
         ControlType -> Locator}, {{$CellContext`p4$$, {-1, -1}}, Automatic, 
         ControlType -> Locator}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {167., 172.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.444731065390625*^9, 3.44473128934375*^9, {3.44911336209375*^9, 
   3.449113380296875*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1001, 1180},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, 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[CellGroupData[{
Cell[567, 22, 157, 2, 83, "Title"],
Cell[CellGroupData[{
Cell[749, 28, 2310, 71, 252, "Input"],
Cell[3062, 101, 2586, 49, 356, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
