(* 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[     40323,        939]
NotebookOptionsPosition[     39876,        919]
NotebookOutlinePosition[     40223,        934]
CellTagsIndexPosition[     40180,        931]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<Zykloiden`\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"colorControls", "=", 
   RowBox[{"makeColorControls", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Switch", "[", "\[IndentingNewLine]", 
    RowBox[{"type", ",", "\[IndentingNewLine]", "1", ",", 
     RowBox[{"zeichneZykloide", "[", 
      RowBox[{
       RowBox[{"clamp", "[", "l1", "]"}], ",", 
       RowBox[{"4", "Pi"}], ",", 
       RowBox[{"2", "Pi", " ", "t1"}]}], "]"}], ",", "\[IndentingNewLine]", 
     "2", ",", 
     RowBox[{
      RowBox[{"r1r2", "=", 
       RowBox[{"Exp", "[", 
        RowBox[{"n\[ADoubleDot]chsterWert", "[", 
         RowBox[{"r2", ",", " ", "radienlisteEpiLog"}], "]"}], "]"}]}], ";", 
      RowBox[{"zeichneEpizykloide", "[", 
       RowBox[{"r1r2", ",", " ", 
        RowBox[{"clamp", "[", "l2", "]"}], ",", " ", "t2"}], "]"}]}], ",", 
     "\[IndentingNewLine]", "3", ",", 
     RowBox[{
      RowBox[{"r1r2", "=", 
       RowBox[{"Exp", "[", 
        RowBox[{"n\[ADoubleDot]chsterWert", "[", 
         RowBox[{"r3", ",", " ", "radienlisteHypoLog"}], "]"}], "]"}]}], ";", 
      RowBox[{"zeichneHypozykloide", "[", 
       RowBox[{"r1r2", ",", " ", 
        RowBox[{"clamp", "[", "l3", "]"}], ",", " ", "t3"}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"type", ",", "1", ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "\[Rule]", "\"\<Normalzykloide\>\""}], ",", 
       RowBox[{"2", "\[Rule]", "\"\<Epizykloide\>\""}], ",", 
       RowBox[{"3", "\[Rule]", "\"\<Hypozykloide\>\""}]}], "}"}]}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"PaneSelector", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"1", "\[Rule]", 
        RowBox[{"controlsNormalzykloide", "[", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"{", 
           RowBox[{"t1", ",", "l1"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"controlsEpizykloide", "[", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"{", 
           RowBox[{"t2", ",", "l2", ",", "r2"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"3", "\[Rule]", 
        RowBox[{"controlsHypozykloide", "[", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"{", 
           RowBox[{"t3", ",", "l3", ",", "r3"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Dynamic", "[", "type", "]"}]}], "\[IndentingNewLine]", "]"}], 
   ",", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "showColorControls", ",", "False", ",", 
       "\"\<  Farbauswahlmen\[UDoubleDot]\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Row", "@", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Spacer", "[", "5", "]"}], ",", 
      RowBox[{"Dynamic", "@", 
       RowBox[{"If", "[", 
        RowBox[{"showColorControls", ",", "colorControls", ",", "\"\<\>\""}], 
        "]"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"l1", ",", "1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Stabl\[ADoubleDot]nge", " ", "Normalzykloide"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t1", ",", "1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Kurvenparameter", " ", "Normalzykloide"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r2", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "/", "4"}], "]"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Radienverh\[ADoubleDot]ltnis", " ", "Epizykloide"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"l2", ",", "1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Stabl\[ADoubleDot]nge", " ", "Epizykloide"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t2", ",", "1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Kurvenparameter", " ", "Epizykloide"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r3", ",", 
       RowBox[{"Log", "[", "2", "]"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Radienverh\[ADoubleDot]ltnis", " ", "Hypozykloide"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"l3", ",", "1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Stabl\[ADoubleDot]nge", " ", "Hypozykloide"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t3", ",", "1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"(*", " ", 
    RowBox[{"Kurvenparameter", " ", "Hypozykloide"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "\[Rule]", "Right"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"TrackedSymbols", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.455413145046875*^9, 3.455413240171875*^9}, {
   3.455413603703125*^9, 3.45541360415625*^9}, {3.45541367034375*^9, 
   3.45541375434375*^9}, 3.455413861*^9, {3.455413903109375*^9, 
   3.455413924828125*^9}, {3.45541396*^9, 3.455413965015625*^9}, 
   3.455414140671875*^9, {3.45541423284375*^9, 3.455414299859375*^9}, {
   3.4554143685625*^9, 3.45541438503125*^9}, 3.45541710015625*^9, 
   3.455417299109375*^9, {3.4554178538125*^9, 3.4554178910625*^9}, {
   3.455417971265625*^9, 3.4554181050625*^9}, {3.455418167421875*^9, 
   3.455418246890625*^9}, {3.455419444203125*^9, 3.45541949775*^9}, {
   3.455419548625*^9, 3.455419646203125*^9}, {3.455419803609375*^9, 
   3.4554198394375*^9}, {3.45542014390625*^9, 3.455420144109375*^9}, {
   3.45542034359375*^9, 3.45542040984375*^9}, {3.455422848125*^9, 
   3.45542288025*^9}, 3.45542302378125*^9, {3.455423139765625*^9, 
   3.4554232798125*^9}, {3.455423351421875*^9, 3.45542340596875*^9}, {
   3.4554234889375*^9, 3.455423502546875*^9}, {3.455423575921875*^9, 
   3.455423649046875*^9}, {3.455423744875*^9, 3.455423745015625*^9}, {
   3.455423839*^9, 3.455423841734375*^9}, {3.455423922296875*^9, 
   3.455424039234375*^9}, {3.455424078203125*^9, 3.45542412803125*^9}, 
   3.455424176859375*^9, {3.45542444590625*^9, 3.455424492421875*^9}, {
   3.45542454321875*^9, 3.45542463*^9}, {3.45542470378125*^9, 
   3.455424716609375*^9}, {3.45542475146875*^9, 3.45542493859375*^9}, {
   3.45542501878125*^9, 3.45542504684375*^9}, {3.45542541034375*^9, 
   3.45542541684375*^9}, {3.455426409015625*^9, 3.455426450359375*^9}, 
   3.455427653421875*^9, 3.455428065171875*^9, {3.455429370703125*^9, 
   3.455429399109375*^9}, 3.4554303075625*^9, {3.455431692125*^9, 
   3.4554317015625*^9}, {3.45553569515625*^9, 3.45553569665625*^9}, {
   3.455535899890625*^9, 3.455535956765625*^9}, {3.45553621621875*^9, 
   3.455536219015625*^9}, {3.455536658609375*^9, 3.45553666484375*^9}, {
   3.455536708046875*^9, 3.4555367118125*^9}, {3.45553683475*^9, 
   3.45553687415625*^9}, {3.455536912515625*^9, 3.4555369253125*^9}, {
   3.45553741303125*^9, 3.455537414453125*^9}, {3.4555398646875*^9, 
   3.455539870890625*^9}, {3.455612278453125*^9, 3.455612303609375*^9}, {
   3.455612697953125*^9, 3.45561269934375*^9}, {3.455613202234375*^9, 
   3.455613207796875*^9}, {3.455680567655375*^9, 3.45568059138975*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`l1$$ = 1, $CellContext`l2$$ = 
    1, $CellContext`l3$$ = 1, $CellContext`r2$$ = -Log[4], $CellContext`r3$$ =
     Log[2], $CellContext`showColorControls$$ = False, $CellContext`t1$$ = 
    1, $CellContext`t2$$ = 1, $CellContext`t3$$ = 1, $CellContext`type$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`type$$], 1, ""}, {
      1 -> "Normalzykloide", 2 -> "Epizykloide", 3 -> "Hypozykloide"}}, {
      Hold[
       PaneSelector[{1 -> Grid[{{
             Style["Ort", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[$CellContext`t1$$], {0, 2}]}, {
             Style["Stabl\[ADoubleDot]nge", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[$CellContext`l1$$], {0, 9}]}, {
             Spacer[79], 
             Spacer[3], 
             Spacer[1]}}, 
           Alignment -> {{Right, Center, Left}, {Center, Center, Center}}], 2 -> 
         Grid[{{
             Style["Ort", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[$CellContext`t2$$], {0, 1}]}, {
             Style["Stabl\[ADoubleDot]nge", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[$CellContext`l2$$], {0, 9}]}, {
             Style["Radienverh\[ADoubleDot]ltnis", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[
               BoxForm`RemapVariable[$CellContext`r2$$, {-Log[4], 
                 Log[4]}], BoxForm`RemapValue[#, $CellContext`r2$$, {-Log[4], 
                 Log[4]}]& ], {0, 1}]}, {Null, 
             Spacer[3], 
             Dynamic[
              Zykloiden`rationalToString[
               Exp[$CellContext`r2$$], Zykloiden`radienlisteEpi]]}}, 
           Alignment -> {{Right, Center, Left}, {Center, Center, Center}}], 3 -> 
         Grid[{{
             Style["Ort", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[$CellContext`t3$$], {0, 1}]}, {
             Style["Stabl\[ADoubleDot]nge", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[$CellContext`l3$$], {0, 9}]}, {
             Style["Radienverh\[ADoubleDot]ltnis", FontFamily -> "Helvetica"], 
             Spacer[3], 
             Manipulator[
              Dynamic[
               BoxForm`RemapVariable[$CellContext`r3$$, {
                 Log[
                  Rational[5, 4]], 
                 Log[8]}], BoxForm`RemapValue[#, $CellContext`r3$$, {
                 Log[
                  Rational[5, 4]], 
                 Log[8]}]& ], {0, 1}]}, {Null, 
             Spacer[3], 
             Dynamic[
              Zykloiden`rationalToString[
               Exp[$CellContext`r3$$], Zykloiden`radienlisteHypo]]}}, 
           Alignment -> {{Right, Center, Left}, {Center, Center, Center}}]}, 
        Dynamic[$CellContext`type$$]]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`showColorControls$$], False, 
       "  Farbauswahlmen\[UDoubleDot]"}, {True, False}}, {
      Hold[
       Row[{
         Spacer[5], 
         Dynamic[
          
          If[$CellContext`showColorControls$$, Zykloiden`colorControls, 
           ""]]}]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`l1$$], 1}}, {{
       Hold[$CellContext`t1$$], 1}}, {{
       Hold[$CellContext`r2$$], -Log[4]}}, {{
       Hold[$CellContext`l2$$], 1}}, {{
       Hold[$CellContext`t2$$], 1}}, {{
       Hold[$CellContext`r3$$], 
       Log[2]}}, {{
       Hold[$CellContext`l3$$], 1}}, {{
       Hold[$CellContext`t3$$], 1}}}, Typeset`size$$ = {400., {198., 202.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`type$13086$$ = 
    False, $CellContext`showColorControls$13087$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`l1$$ = 1, $CellContext`l2$$ = 
        1, $CellContext`l3$$ = 
        1, $CellContext`r2$$ = -Log[4], $CellContext`r3$$ = 
        Log[2], $CellContext`showColorControls$$ = False, $CellContext`t1$$ = 
        1, $CellContext`t2$$ = 1, $CellContext`t3$$ = 1, $CellContext`type$$ = 
        1}, "ControllerVariables" :> {
        Hold[$CellContext`type$$, $CellContext`type$13086$$, False], 
        Hold[$CellContext`showColorControls$$, \
$CellContext`showColorControls$13087$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Switch[$CellContext`type$$, 1, 
        Zykloiden`zeichneZykloide[
         Zykloiden`clamp[$CellContext`l1$$], 4 Pi, 2 Pi $CellContext`t1$$], 2,
         Zykloiden`r1r2 = Exp[
           
           Zykloiden`n\[ADoubleDot]chsterWert[$CellContext`r2$$, 
            Zykloiden`radienlisteEpiLog]]; 
        Zykloiden`zeichneEpizykloide[Zykloiden`r1r2, 
          Zykloiden`clamp[$CellContext`l2$$], $CellContext`t2$$], 3, 
        Zykloiden`r1r2 = Exp[
           
           Zykloiden`n\[ADoubleDot]chsterWert[$CellContext`r3$$, 
            Zykloiden`radienlisteHypoLog]]; 
        Zykloiden`zeichneHypozykloide[Zykloiden`r1r2, 
          Zykloiden`clamp[$CellContext`l3$$], $CellContext`t3$$]], 
      "Specifications" :> {{{$CellContext`type$$, 1, ""}, {
         1 -> "Normalzykloide", 2 -> "Epizykloide", 3 -> "Hypozykloide"}}, 
        PaneSelector[{1 -> Grid[{{
              Style["Ort", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[$CellContext`t1$$], {0, 2}]}, {
              Style["Stabl\[ADoubleDot]nge", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[$CellContext`l1$$], {0, 9}]}, {
              Spacer[79], 
              Spacer[3], 
              Spacer[1]}}, 
            Alignment -> {{Right, Center, Left}, {Center, Center, Center}}], 
          2 -> Grid[{{
              Style["Ort", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[$CellContext`t2$$], {0, 1}]}, {
              Style["Stabl\[ADoubleDot]nge", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[$CellContext`l2$$], {0, 9}]}, {
              Style[
              "Radienverh\[ADoubleDot]ltnis", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[
                BoxForm`RemapVariable[$CellContext`r2$$, {-Log[4], 
                  Log[4]}], BoxForm`RemapValue[#, $CellContext`r2$$, {-Log[4], 
                  Log[4]}]& ], {0, 1}]}, {Null, 
              Spacer[3], 
              Dynamic[
               Zykloiden`rationalToString[
                Exp[$CellContext`r2$$], Zykloiden`radienlisteEpi]]}}, 
            Alignment -> {{Right, Center, Left}, {Center, Center, Center}}], 
          3 -> Grid[{{
              Style["Ort", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[$CellContext`t3$$], {0, 1}]}, {
              Style["Stabl\[ADoubleDot]nge", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[$CellContext`l3$$], {0, 9}]}, {
              Style[
              "Radienverh\[ADoubleDot]ltnis", FontFamily -> "Helvetica"], 
              Spacer[3], 
              Manipulator[
               Dynamic[
                BoxForm`RemapVariable[$CellContext`r3$$, {
                  Log[
                   Rational[5, 4]], 
                  Log[8]}], BoxForm`RemapValue[#, $CellContext`r3$$, {
                  Log[
                   Rational[5, 4]], 
                  Log[8]}]& ], {0, 1}]}, {Null, 
              Spacer[3], 
              Dynamic[
               Zykloiden`rationalToString[
                Exp[$CellContext`r3$$], Zykloiden`radienlisteHypo]]}}, 
            Alignment -> {{Right, Center, Left}, {Center, Center, Center}}]}, 
         Dynamic[$CellContext`type$$]], 
        Delimiter, {{$CellContext`showColorControls$$, False, 
          "  Farbauswahlmen\[UDoubleDot]"}, {True, False}}, 
        Row[{
          Spacer[5], 
          Dynamic[
           
           If[$CellContext`showColorControls$$, Zykloiden`colorControls, 
            ""]]}], {{$CellContext`l1$$, 1}, ControlType -> 
         None}, {{$CellContext`t1$$, 1}, ControlType -> 
         None}, {{$CellContext`r2$$, -Log[4]}, ControlType -> 
         None}, {{$CellContext`l2$$, 1}, ControlType -> 
         None}, {{$CellContext`t2$$, 1}, ControlType -> 
         None}, {{$CellContext`r3$$, 
          Log[2]}, ControlType -> None}, {{$CellContext`l3$$, 1}, ControlType -> 
         None}, {{$CellContext`t3$$, 1}, ControlType -> None}}, 
      "Options" :> {ControlPlacement -> Right, TrackedSymbols -> All}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{755., {227., 232.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({Zykloiden`zeichneZykloide[
         Optional[
          Pattern[Zykloiden`stabLaenge, 
           Blank[]], -1], 
         Optional[
          Pattern[Zykloiden`maxWinkel, 
           Blank[]], -1], 
         Optional[
          Pattern[Zykloiden`winkel, 
           Blank[]], -1]] := 
       Module[{Zykloiden`radius, Zykloiden`pointRadius, Zykloiden`offset, 
          Zykloiden`zykloide, Zykloiden`rollkreisCenter, Zykloiden`rollkreis, 
          Zykloiden`rollkreisRand, Zykloiden`kurve, Zykloiden`punkt, 
          Zykloiden`linie, Zykloiden`grundlinie, Zykloiden`a, Zykloiden`b, 
          Zykloiden`c, Zykloiden`d, Zykloiden`checkParameter}, 
         Zykloiden`checkParameter[] := 
          And[Zykloiden`stabLaenge >= 0, Zykloiden`maxWinkel > 0, 
            Zykloiden`winkel >= 0, Zykloiden`winkel <= Zykloiden`maxWinkel]; 
         If[Zykloiden`checkParameter[] == False, 
           Print["Usage: zeichneZykloide[stabLaenge,maxWinkel,winkel]"]; 
           Return[]]; Zykloiden`radius = 1; 
         Zykloiden`pointRadius = 0.08 Zykloiden`radius; 
         Zykloiden`offset = 0.1; 
         Zykloiden`a = -Max[Zykloiden`stabLaenge, Zykloiden`radius] - 
           Zykloiden`offset; 
         Zykloiden`b = 
          Zykloiden`maxWinkel Zykloiden`radius + 
           Max[Zykloiden`stabLaenge, Zykloiden`radius] + Zykloiden`offset; 
         Zykloiden`c = -Max[Zykloiden`stabLaenge - Zykloiden`radius, 0] - 
           Zykloiden`pointRadius - Zykloiden`offset; 
         Zykloiden`d = 
          Max[Zykloiden`stabLaenge + Zykloiden`radius, 2 Zykloiden`radius] + 
           Zykloiden`pointRadius + Zykloiden`offset; Zykloiden`rollkreisCenter[
            Pattern[Zykloiden`t, 
             Blank[]]] := {Zykloiden`radius Zykloiden`t, Zykloiden`radius}; 
         Zykloiden`zykloide[
            Pattern[Zykloiden`t, 
             Blank[]]] := 
          Zykloiden`rollkreisCenter[Zykloiden`t] - Zykloiden`stabLaenge {
             Sin[Zykloiden`t], 
             Cos[Zykloiden`t]}; Zykloiden`rollkreis = Graphics[{
             Dynamic[Zykloiden`farbeRollkreis], 
             Disk[
              Zykloiden`rollkreisCenter[Zykloiden`winkel], 
              Zykloiden`radius]}]; Zykloiden`rollkreisRand = Graphics[{
             GrayLevel[0.3], 
             Circle[
              Zykloiden`rollkreisCenter[Zykloiden`winkel], 
              Zykloiden`radius]}]; Zykloiden`linie = Graphics[{
             Dynamic[Zykloiden`farbeZeiger], 
             AbsoluteThickness[1.5], 
             Line[{
               Zykloiden`rollkreisCenter[Zykloiden`winkel], 
               Zykloiden`zykloide[Zykloiden`winkel]}]}]; 
         Zykloiden`grundlinie = Graphics[{Black, 
             AbsoluteThickness[1.5], 
             Line[{{Zykloiden`a, 0}, {Zykloiden`b, 0}}]}]; 
         Zykloiden`punkt = Graphics[{Zykloiden`farbeZeiger, 
             Disk[
              Zykloiden`zykloide[Zykloiden`winkel], Zykloiden`pointRadius]}]; 
         Zykloiden`kurve = {}; 
         If[Zykloiden`winkel > 0, Zykloiden`kurve = ParametricPlot[
             Zykloiden`zykloide[Zykloiden`t], {
             Zykloiden`t, 0, Zykloiden`winkel}, PlotStyle -> 
             Dynamic[Zykloiden`farbeBahnkurve]]]; 
         Show[Zykloiden`grundlinie, Zykloiden`rollkreis, 
           Zykloiden`rollkreisRand, Zykloiden`kurve, Zykloiden`linie, 
           Zykloiden`punkt, 
           PlotRange -> {{Zykloiden`a, Zykloiden`b}, {
             Zykloiden`c, Zykloiden`d}}, ImageSize -> Zykloiden`imageSize, 
           Background -> Dynamic[Zykloiden`farbeHintergrund]]], 
       Zykloiden`farbeRollkreis = 
       RGBColor[0.9098039215686274, 0.8352941176470589, 0.40784313725490196`],
        Zykloiden`farbeZeiger = RGBColor[0, 0, 0.6235294117647059], 
       Zykloiden`farbeBahnkurve = RGBColor[1, 0, 0], 
       Zykloiden`imageSize = {400, 400}, Zykloiden`farbeHintergrund = 
       GrayLevel[0.95], Zykloiden`clamp[
         Pattern[Zykloiden`x, 
          Blank[]]] := Module[{Zykloiden`tol = 0.1}, If[
           And[
           Zykloiden`x < 1 + Zykloiden`tol, Zykloiden`x > 1 - Zykloiden`tol], 
           Return[1]]; Zykloiden`x], Zykloiden`r1r2 = 1/4, 
       Zykloiden`n\[ADoubleDot]chsterWert[
         Pattern[Zykloiden`x, 
          Blank[]], 
         Pattern[Zykloiden`l, 
          Blank[List]]] := 
       Module[{Zykloiden`winner = 1, Zykloiden`i}, 
         For[Zykloiden`i = 2, Zykloiden`i <= Length[Zykloiden`l], 
           Increment[Zykloiden`i], 
           If[Abs[N[
                Part[Zykloiden`l, Zykloiden`winner]] - Zykloiden`x] > Abs[N[
                Part[Zykloiden`l, Zykloiden`i]] - Zykloiden`x], 
            Zykloiden`winner = Zykloiden`i]]; 
         Part[Zykloiden`l, Zykloiden`winner]], 
       Zykloiden`radienlisteEpiLog = {-Log[4], -Log[3], -Log[2], -Log[3/2], -
         Log[4/3], 0, 
         Log[4/3], 
         Log[3/2], 
         Log[2], 
         Log[3], 
         Log[4]}, Zykloiden`zeichneEpizykloide[
         Pattern[Zykloiden`r1r2Ratio, 
          Blank[]], 
         Pattern[Zykloiden`stablaengeRelativ, 
          Blank[]], 
         Pattern[Zykloiden`p, 
          Blank[]], 
         Pattern[Zykloiden`opts, 
          BlankNullSequence[]]] := 
       Module[{Zykloiden`rInnen, Zykloiden`rAussen, Zykloiden`pointRadius, 
          Zykloiden`offset, Zykloiden`stablaenge, Zykloiden`ort, 
          Zykloiden`epizykloide, Zykloiden`checkParameter, 
          Zykloiden`rollkreis, Zykloiden`rollkreisRand, 
          Zykloiden`rollkreisCenter, Zykloiden`linie, Zykloiden`punkt, 
          Zykloiden`festkreis, Zykloiden`festkreisRand, Zykloiden`kurve, 
          Zykloiden`a, Zykloiden`b, Zykloiden`c, Zykloiden`d, 
          Zykloiden`parameterRangeVal}, 
         Zykloiden`checkParameter[] := 
          And[Zykloiden`r1r2Ratio > 0, Zykloiden`stablaengeRelativ >= 0, 
            Zykloiden`p >= 0]; 
         If[Zykloiden`checkParameter[] == False, 
           Print["Usage: \
zeichneEpizykloide[radienverh\[ADoubleDot]ltnis,stablaengeRelativ,param]"]; 
           Return[]]; 
         Zykloiden`parameterRangeVal = 
          ReplaceAll[Zykloiden`parameterRange, {Zykloiden`opts}]; 
         If[Zykloiden`parameterRangeVal == Zykloiden`parameterRange, 
           Zykloiden`parameterRangeVal = Automatic]; Zykloiden`rInnen = 1; 
         Zykloiden`rAussen = Zykloiden`rInnen Zykloiden`r1r2Ratio; 
         Zykloiden`stablaenge = 
          Zykloiden`stablaengeRelativ Zykloiden`r1r2Ratio; 
         Zykloiden`pointRadius = 0.1 Zykloiden`rAussen; 
         Zykloiden`ort = (2 Pi) Zykloiden`p; 
         If[Zykloiden`parameterRangeVal == Automatic, 
           Zykloiden`ort = ((2 Pi) Zykloiden`p) 
            Numerator[Zykloiden`r1r2Ratio]]; Zykloiden`offset = 0.2; 
         Zykloiden`a = -(Zykloiden`rInnen + 2 Zykloiden`rAussen + 
            Zykloiden`stablaenge + Zykloiden`offset); 
         Zykloiden`b = 
          Zykloiden`rInnen + 2 Zykloiden`rAussen + Zykloiden`stablaenge + 
           Zykloiden`offset; 
         Zykloiden`c = -(Zykloiden`rInnen + 2 Zykloiden`rAussen + 
            Zykloiden`stablaenge + Zykloiden`offset); 
         Zykloiden`d = 
          Zykloiden`rInnen + 2 Zykloiden`rAussen + Zykloiden`stablaenge + 
           Zykloiden`offset; Zykloiden`rollkreisCenter[
            Pattern[Zykloiden`t, 
             Blank[]]] := {(Zykloiden`rInnen + Zykloiden`rAussen) 
            Cos[Zykloiden`t], (Zykloiden`rInnen + Zykloiden`rAussen) 
            Sin[Zykloiden`t]}; Zykloiden`epizykloide[
            Pattern[Zykloiden`t, 
             Blank[]]] := 
          Zykloiden`rollkreisCenter[Zykloiden`t] - Zykloiden`stablaenge {
             
             Cos[((Zykloiden`rInnen + Zykloiden`rAussen)/Zykloiden`rAussen) 
              Zykloiden`t], 
             
             Sin[((Zykloiden`rInnen + Zykloiden`rAussen)/Zykloiden`rAussen) 
              Zykloiden`t]}; Zykloiden`rollkreis = Graphics[{
             Dynamic[Zykloiden`farbeRollkreis], 
             Disk[
              Zykloiden`rollkreisCenter[Zykloiden`ort], Zykloiden`rAussen]}]; 
         Zykloiden`rollkreisRand = Graphics[{
             GrayLevel[0.3], 
             Circle[
              Zykloiden`rollkreisCenter[Zykloiden`ort], Zykloiden`rAussen]}]; 
         Zykloiden`linie = Graphics[{
             Dynamic[Zykloiden`farbeZeiger], 
             AbsoluteThickness[2], 
             Line[{
               Zykloiden`rollkreisCenter[Zykloiden`ort], 
               Zykloiden`epizykloide[Zykloiden`ort]}]}]; 
         Zykloiden`punkt = Graphics[{
             Dynamic[Zykloiden`farbeZeiger], 
             Disk[
              Zykloiden`epizykloide[Zykloiden`ort], Zykloiden`pointRadius]}]; 
         Zykloiden`festkreis = Graphics[{
             Dynamic[Zykloiden`farbeFestkreis], 
             Disk[{0, 0}, Zykloiden`rInnen]}]; 
         Zykloiden`festkreisRand = Graphics[{
             GrayLevel[0.6], 
             Circle[{0, 0}, Zykloiden`rInnen]}]; Zykloiden`kurve = {}; 
         If[Zykloiden`ort > 0, Zykloiden`kurve = ParametricPlot[
             Evaluate[
              Zykloiden`epizykloide[Zykloiden`t]], {
             Zykloiden`t, 0, Zykloiden`ort}, PlotStyle -> 
             Zykloiden`farbeBahnkurve]]; 
         Show[Zykloiden`festkreis, Zykloiden`festkreisRand, 
           Zykloiden`rollkreis, Zykloiden`rollkreisRand, Zykloiden`kurve, 
           Zykloiden`linie, Zykloiden`punkt, 
           PlotRange -> {{Zykloiden`a, Zykloiden`b}, {
             Zykloiden`c, Zykloiden`d}}, Background -> 
           Dynamic[Zykloiden`farbeHintergrund], ImageSize -> 
           Zykloiden`imageSize]], Zykloiden`farbeFestkreis = 
       RGBColor[0.615686274509804, 0.8, 0.7725490196078432], 
       Zykloiden`radienlisteHypoLog = {
         Log[5/4], 
         Log[3/2], 
         Log[5/3], 
         Log[7/4], 
         Log[2], 
         Log[7/3], 
         Log[5/2], 
         Log[8/3], 
         Log[3], 
         Log[7/2], 
         Log[4], 
         Log[5], 
         Log[6], 
         Log[7], 
         Log[8]}, Zykloiden`zeichneHypozykloide[
         Pattern[Zykloiden`r1r2Ratio, 
          Blank[]], 
         Pattern[Zykloiden`stablaenge, 
          Blank[]], 
         Pattern[Zykloiden`p, 
          Blank[]], 
         Pattern[Zykloiden`opts, 
          BlankNullSequence[]]] := 
       Module[{Zykloiden`rInnen, Zykloiden`rAussen, Zykloiden`pointRadius, 
          Zykloiden`offset, Zykloiden`ort, Zykloiden`hypozykloide, 
          Zykloiden`checkParameter, Zykloiden`rollkreis, 
          Zykloiden`rollkreisRand, Zykloiden`rollkreisCenter, Zykloiden`linie,
           Zykloiden`punkt, Zykloiden`festkreis, Zykloiden`festkreisRand, 
          Zykloiden`kurve, Zykloiden`parameterRangeVal, Zykloiden`a, 
          Zykloiden`b, Zykloiden`c, Zykloiden`d}, 
         Zykloiden`checkParameter[] := 
          And[Zykloiden`r1r2Ratio > 1, Zykloiden`stablaenge >= 0, Zykloiden`p >= 
            0]; 
         If[Zykloiden`checkParameter[] == False, 
           Print["Usage: \
zeichneZykloide[radienverh\[ADoubleDot]ltnis,stablaengeRelativ,param]"]; 
           Return[]]; 
         Zykloiden`parameterRangeVal = 
          ReplaceAll[Zykloiden`parameterRange, {Zykloiden`opts}]; 
         If[Zykloiden`parameterRangeVal == Zykloiden`parameterRange, 
           Zykloiden`parameterRangeVal = Automatic]; Zykloiden`rInnen = 1; 
         Zykloiden`rAussen = Zykloiden`r1r2Ratio Zykloiden`rInnen; 
         Zykloiden`pointRadius = 0.08 Zykloiden`rInnen; 
         Zykloiden`ort = (2 Pi) Zykloiden`p; 
         If[Zykloiden`parameterRangeVal == Automatic, 
           TimesBy[Zykloiden`ort, 
            Denominator[Zykloiden`r1r2Ratio]]]; 
         Zykloiden`offset = 0.2 Zykloiden`rInnen; 
         Zykloiden`a = -(Zykloiden`rAussen + 
            Max[0, Zykloiden`stablaenge - Zykloiden`rInnen] + 
            Zykloiden`offset); Zykloiden`b = -Zykloiden`a; 
         Zykloiden`c = Zykloiden`a; Zykloiden`d = Zykloiden`b; 
         Zykloiden`rollkreisCenter[
            Pattern[Zykloiden`t, 
             Blank[]]] := {(Zykloiden`rAussen - Zykloiden`rInnen) 
            Cos[Zykloiden`t], (Zykloiden`rAussen - Zykloiden`rInnen) 
            Sin[Zykloiden`t]}; Zykloiden`hypozykloide[
            Pattern[Zykloiden`t, 
             Blank[]]] := 
          Zykloiden`rollkreisCenter[Zykloiden`t] + Zykloiden`stablaenge {
              
              Cos[((Zykloiden`rInnen - Zykloiden`rAussen)/Zykloiden`rInnen) 
               Zykloiden`t], 
              
              Sin[((Zykloiden`rInnen - Zykloiden`rAussen)/Zykloiden`rInnen) 
               Zykloiden`t]}; Zykloiden`rollkreis = Graphics[{
             Dynamic[Zykloiden`farbeRollkreis], 
             Disk[
              Zykloiden`rollkreisCenter[Zykloiden`ort], Zykloiden`rInnen]}]; 
         Zykloiden`rollkreisRand = Graphics[{
             GrayLevel[0.3], 
             Circle[
              Zykloiden`rollkreisCenter[Zykloiden`ort], Zykloiden`rInnen]}]; 
         Zykloiden`linie = Graphics[{
             Dynamic[Zykloiden`farbeZeiger], 
             AbsoluteThickness[2], 
             Line[{
               Zykloiden`rollkreisCenter[Zykloiden`ort], 
               Zykloiden`hypozykloide[Zykloiden`ort]}]}]; 
         Zykloiden`punkt = Graphics[{
             Dynamic[Zykloiden`farbeZeiger], 
             Disk[
              Zykloiden`hypozykloide[Zykloiden`ort], Zykloiden`pointRadius]}]; 
         Zykloiden`festkreis = Graphics[{
             Dynamic[Zykloiden`farbeHintergrund], 
             Disk[{0, 0}, Zykloiden`rAussen]}]; 
         Zykloiden`festkreisRand = Graphics[{
             GrayLevel[0.7], 
             Circle[{0, 0}, Zykloiden`rAussen]}]; Zykloiden`kurve = {}; 
         If[Zykloiden`ort > 0, Zykloiden`kurve = ParametricPlot[
             Zykloiden`hypozykloide[Zykloiden`t], {
             Zykloiden`t, 0, Zykloiden`ort}, PlotStyle -> 
             Dynamic[Zykloiden`farbeBahnkurve]]]; 
         Show[Zykloiden`festkreis, Zykloiden`festkreisRand, 
           Zykloiden`rollkreis, Zykloiden`rollkreisRand, Zykloiden`kurve, 
           Zykloiden`linie, Zykloiden`punkt, 
           PlotRange -> {{Zykloiden`a, Zykloiden`b}, {
             Zykloiden`c, Zykloiden`d}}, ImageSize -> Zykloiden`imageSize, 
           Background -> Dynamic[Zykloiden`farbeFestkreis]]], 
       Attributes[BoxForm`RemapVariable] = {HoldAllComplete}, 
       BoxForm`RemapVariable[
         Pattern[BoxForm`var, 
          Blank[]], {{
           Pattern[BoxForm`xmin, 
            Blank[]], 
           Pattern[BoxForm`ymin, 
            Blank[]]}, {
           Pattern[BoxForm`xmax, 
            Blank[]], 
           Pattern[BoxForm`ymax, 
            Blank[]]}}] := {
         If[BoxForm`xmax - BoxForm`xmin == 0, BoxForm`xmin, 
          Cancel[
           
           Rationalize[(Part[BoxForm`var, 1] - BoxForm`xmin)/(BoxForm`xmax - 
            BoxForm`xmin), 0]]], 
         If[BoxForm`ymax - BoxForm`ymin == 0, BoxForm`ymin, 
          Cancel[
           
           Rationalize[(Part[BoxForm`var, 2] - BoxForm`ymin)/(BoxForm`ymax - 
            BoxForm`ymin), 0]]]}, BoxForm`RemapVariable[
         Pattern[BoxForm`var, 
          Blank[]], {
          Pattern[BoxForm`min, {
            Blank[], 
            Blank[]}], 
          Pattern[BoxForm`max, {
            Blank[], 
            Blank[]}], 
          Pattern[BoxForm`step, {
            Blank[], 
            Blank[]}]}] := Cancel[
         Rationalize[(BoxForm`var - BoxForm`min)/BoxForm`step, 0]], 
       BoxForm`RemapVariable[
         Pattern[BoxForm`var, 
          Blank[]], {
          Pattern[BoxForm`min, 
           Blank[]], 
          Pattern[BoxForm`max, 
           Blank[]]}] := 
       If[BoxForm`max - BoxForm`min == 0 BoxForm`min, BoxForm`min, 
         Cancel[
          
          Rationalize[(BoxForm`var - BoxForm`min)/(BoxForm`max - BoxForm`min),
            0]]], BoxForm`RemapVariable[
         Pattern[BoxForm`var, 
          Blank[]], {
          Pattern[BoxForm`min, 
           Blank[]], 
          Pattern[BoxForm`max, 
           Blank[]], 
          Pattern[BoxForm`step, 
           Blank[]]}] := Cancel[
         Rationalize[(BoxForm`var - BoxForm`min)/BoxForm`step, 0]], 
       Attributes[BoxForm`RemapValue] = {HoldAllComplete}, BoxForm`RemapValue[
         Pattern[BoxForm`val, 
          Blank[]], 
         Pattern[BoxForm`var, 
          Blank[]], {
          Pattern[BoxForm`min, 
           Blank[]], 
          Pattern[BoxForm`max, 
           Blank[]]}] := (
        BoxForm`var = (1 - BoxForm`val) BoxForm`min + 
         BoxForm`val BoxForm`max), BoxForm`RemapValue[
         Pattern[BoxForm`val, 
          Blank[]], 
         Pattern[BoxForm`var, 
          Blank[]], {
          Pattern[BoxForm`min, 
           Blank[]], 
          Pattern[BoxForm`max, 
           Blank[]], 
          Pattern[BoxForm`step, 
           Blank[]]}] := (BoxForm`var = 
        BoxForm`min + BoxForm`step BoxForm`val), Zykloiden`rationalToString[
         Pattern[Zykloiden`Private`approxValue, 
          Blank[]], 
         Pattern[Zykloiden`Private`valueList, 
          Blank[]]] := 
       Module[{Zykloiden`r1r2}, 
         Zykloiden`r1r2 = 
          Zykloiden`n\[ADoubleDot]chsterWert[
           Zykloiden`Private`approxValue, Zykloiden`Private`valueList]; 
         StringJoin[
           ToString[
            TraditionalForm[
            "\!\(\*SubscriptBox[\"R\", \"1\"]\)"/
             "\!\(\*SubscriptBox[\"R\", \"2\"]\)"]], " = ", 
           ToString[
            TraditionalForm[Zykloiden`r1r2]]]], 
       Zykloiden`radienlisteEpi = {
        1/4, 1/3, 1/2, 2/3, 3/4, 1, 4/3, 3/2, 2, 3, 4}, 
       Zykloiden`radienlisteHypo = {
        5/4, 3/2, 5/3, 7/4, 2, 7/3, 5/2, 8/3, 3, 7/2, 4, 5, 6, 7, 8}, 
       Zykloiden`colorControls = Grid[{{"Zeiger", 
           ColorSlider[
            Dynamic[Zykloiden`farbeZeiger]]}, {"Festkreis", 
           ColorSlider[
            Dynamic[Zykloiden`farbeFestkreis]]}, {"Bahnkurve", 
           ColorSlider[
            Dynamic[Zykloiden`farbeBahnkurve]]}, {"Rollkreis", 
           ColorSlider[
            Dynamic[Zykloiden`farbeRollkreis]]}, {"Hintergrund", 
           ColorSlider[
            Dynamic[Zykloiden`farbeHintergrund]]}, {"", 
           Button["Reset", 
            Zykloiden`resetColorsToDefault[]]}}, Alignment -> {Left, Left}], 
       Zykloiden`resetColorsToDefault[] := 
       Module[{}, Zykloiden`farbeZeiger = RGBColor[0/255., 0/255., 159/255.]; 
         Zykloiden`farbeFestkreis = RGBColor[157/255., 204/255., 197/255.]; 
         Zykloiden`farbeBahnkurve = Red; 
         Zykloiden`farbeRollkreis = RGBColor[232/255., 213/255., 104/255.]; 
         Zykloiden`farbeHintergrund = GrayLevel[0.95]; Null]}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.455621922234375*^9, {3.45568058145225*^9, 3.455680617342875*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", "\[IndentingNewLine]", " ", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<\>\"", ",", "200"}], "]"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<Things to try:\>\"", ",", "15"}], "]"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<\>\"", ",", "200"}], "]"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Spacer", "[", "250", "]"}], ",", 
      RowBox[{"Button", "[", 
       RowBox[{
       "\"\<\\n  Zur\[UDoubleDot]ck zum Hauptmen\[UDoubleDot]  \\n\>\"", ",", 
        RowBox[{"NotebookClose", "[", 
         RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], "]"}]}], "}"}]}], 
   "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.443860065046875*^9, 3.44386011659375*^9}, {
   3.44386017690625*^9, 3.4438601875*^9}, 3.44386039296875*^9, {
   3.4549064626875*^9, 3.454906494390625*^9}, {3.454906832453125*^9, 
   3.454906841046875*^9}, 3.45490694025*^9, {3.454906971484375*^9, 
   3.454906984390625*^9}, {3.454907073390625*^9, 3.4549071430625*^9}, {
   3.454936546765625*^9, 3.45493656734375*^9}, {3.454936627921875*^9, 
   3.454936690421875*^9}, {3.45493673790625*^9, 3.454936784140625*^9}, {
   3.45541335196875*^9, 3.455413377921875*^9}, {3.455413414953125*^9, 
   3.45541342190625*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     StyleBox["\<\"\"\>",
      StripOnInput->False,
      FontSize->200], ""},
    {
     StyleBox["\<\"Things to try:\"\>",
      StripOnInput->False,
      FontSize->15], ""},
    {
     StyleBox["\<\"\"\>",
      StripOnInput->False,
      FontSize->200], ""},
    {
     InterpretationBox[
      StyleBox[
       GraphicsBox[{},
        BaselinePosition->Baseline,
        ImageSize->{250, 0}],
       CacheGraphics->False],
      Spacer[250]], 
     ButtonBox["\<\"\\n  Zur\[UDoubleDot]ck zum Hauptmen\[UDoubleDot]  \
\\n\"\>",
      Appearance->Automatic,
      ButtonFunction:>NotebookClose[
        EvaluationNotebook[]],
      Evaluator->Automatic,
      Method->"Preemptive"]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.455621922359375*^9}]
}, {2}]]
},
WindowSize->{952, 1160},
WindowMargins->{{Automatic, 126}, {Automatic, 98}},
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, 8408, 191, 692, "Input"],
Cell[8978, 215, 28446, 628, 476, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[37458, 848, 1509, 33, 172, "Input"],
Cell[38970, 883, 893, 33, 274, "Output"]
}, {2}]]
}
]
*)

(* End of internal cache information *)
