(* 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[     66286,       1471]
NotebookOptionsPosition[     64817,       1417]
NotebookOutlinePosition[     65222,       1434]
CellTagsIndexPosition[     65179,       1431]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Fourierreihen", "Title",
 CellChangeTimes->{{3.432923847109375*^9, 3.432923856984375*^9}, 
   3.434887436203125*^9, 3.434958266765625*^9, {3.435651276984375*^9, 
   3.4356512810625*^9}}],

Cell[CellGroupData[{

Cell["Fourier", "Subsubsection",
 CellChangeTimes->{3.437208175421875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ak", "[", 
   RowBox[{"f_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"FullSimplify", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "t", "]"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"k", " ", "t"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], "/", "Pi"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"t", "\[Element]", " ", "Reals"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.435660371140625*^9, 3.43566042559375*^9}, {
  3.43566358578125*^9, 3.43566358671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bk", "[", 
   RowBox[{"f_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"FullSimplify", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"k", " ", "t"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], "/", "Pi"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"t", "\[Element]", " ", "Reals"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.435660412796875*^9, 3.435660437265625*^9}, 
   3.435660743125*^9, {3.435663588109375*^9, 3.43566358846875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ak", "[", 
   RowBox[{"f_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "t", "]"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"k", " ", "t"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], "/", 
   "Pi"}]}]], "Input",
 CellChangeTimes->{{3.435660371140625*^9, 3.43566042559375*^9}, {
  3.43566358578125*^9, 3.43566358671875*^9}, {3.4356655859375*^9, 
  3.435665595421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bk", "[", 
   RowBox[{"f_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"k", " ", "t"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], "/", 
   "Pi"}]}]], "Input",
 CellChangeTimes->{{3.435660412796875*^9, 3.435660437265625*^9}, 
   3.435660743125*^9, {3.435663588109375*^9, 3.43566358846875*^9}, {
   3.435665588578125*^9, 3.4356655973125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fourierseries", "[", 
   RowBox[{"f_", ",", "t_", ",", "n_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"ak", "[", 
     RowBox[{"f", ",", "0"}], "]"}], "/", "2"}], "+", 
   RowBox[{"Sum", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"ak", "[", 
       RowBox[{"f", ",", "k"}], "]"}], 
      RowBox[{"Cos", "[", 
       RowBox[{"k", " ", "t"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "+", 
   RowBox[{"Sum", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"bk", "[", 
       RowBox[{"f", ",", "t", ",", "k"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"k", " ", "t"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.435663593875*^9, 3.435663599828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fourierList", "[", 
   RowBox[{"f_", ",", "t_", ",", "n_"}], "]"}], ":=", 
  RowBox[{"Prepend", "[", 
   RowBox[{
    RowBox[{"Table", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ak", "[", 
         RowBox[{"f", ",", "k"}], "]"}], 
        RowBox[{"Cos", "[", 
         RowBox[{"k", " ", "t"}], "]"}]}], "+", " ", 
       RowBox[{
        RowBox[{"bk", "[", 
         RowBox[{"f", ",", "k"}], "]"}], 
        RowBox[{"Sin", "[", 
         RowBox[{"k", " ", "t"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", " ", 
    RowBox[{
     RowBox[{"ak", "[", 
      RowBox[{"f", ",", "0"}], "]"}], "/", "2"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.435663126015625*^9, 3.4356631870625*^9}, 
   3.435663226453125*^9, {3.43566360671875*^9, 3.43566360996875*^9}, {
   3.43566482546875*^9, 3.43566485146875*^9}, {3.43567311484375*^9, 
   3.4356731153125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fourierseriesFromList", "[", 
   RowBox[{"fList_", ",", "n_"}], "]"}], ":=", 
  RowBox[{"Total", "@", 
   RowBox[{"(", 
    RowBox[{"fList", "[", 
     RowBox[{"[", 
      RowBox[{"1", ";;", 
       RowBox[{"n", "+", "1"}]}], "]"}], "]"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.435663126015625*^9, 3.4356631870625*^9}, 
   3.435663226453125*^9, {3.43566360671875*^9, 3.43566360996875*^9}, {
   3.43566482546875*^9, 3.43566485146875*^9}, {3.435664926421875*^9, 
   3.43566494603125*^9}, {3.435665004640625*^9, 3.43566500771875*^9}, {
   3.435665218109375*^9, 3.435665218234375*^9}, 3.43566691259375*^9, {
   3.435666992375*^9, 3.4356669924375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"pulse", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43566915384375*^9, 3.435669166578125*^9}, {
  3.43566946190625*^9, 3.435669485875*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-9.999999591836735, -0.5}, {-9.803713183903064, -0.5}, \
{-9.607426775969392, -0.5}, {-9.181832858290827, -0.5}, {-8.784442328596958, \
-0.5}, {-8.394847023622479, -0.5}, {-7.972230616836778, -0.5}, \
{-7.577817598035772, -0.5}, {-7.364100537729658, -0.5}, {-7.150383477423544, \
-0.5}, {-7.045473753450334, -0.5}, {-6.940564029477125, -0.5}, \
{-6.88810916749052, -0.5}, {-6.835654305503915, -0.5}, {-6.822540590007264, \
-0.5}, {-6.810872825096693, -0.5}}], 
     LineBox[{{-6.802695340459078, 0.5}, {-6.7963131590139625`, 
      0.5}, {-6.789756301265637, 0.5}, {-6.7831994435173115`, 
      0.5}, {-6.75697201252401, 0.5}, {-6.730744581530707, 
      0.5}, {-6.535026827576635, 0.5}, {-6.339309073622564, 
      0.5}, {-6.127080768762882, 0.5}, {-5.9148524639032, 
      0.5}, {-5.865320811186367, 0.5}, {-5.815789158469533, 
      0.5}, {-5.791023332111116, 0.5}, {-5.7662575057527, 
      0.5}, {-5.765964082601696, 0.5}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQ/dOey9yTWfwAAxg82G/j+Xjpgr9icP4aFtcZnt8R
/N5qjtrZrxD8vE+nE9/eRfDLVj5vr6lA8OsSmNdxCyP4+90mblP3EYXzGXTl
9zu3isD5t7pntq++KgTny3BlrPziJAjnZ5tqsd6W4Yfzk83vrTh8mBvO16qw
+p+3hAPOX3g3+EilIyuc/7xR1MZdggnO3zVVw/VF2N/9ML7By5tf9Od+g/Nd
dt3m/Bv2Ac7/02fM1vbgJZxfsHL9D0Hhx3B+kc1K5Svuj+D80vOL/KbVPITz
zUwSbx7zRPC/zZBP+S6G4G/7e/ed+pMHcH6Ezpu5Cx4h+AAwqp4P
      "]], 
     LineBox[{{-0.5195330724726108, 0.5}, {-0.5092437548531725, 
      0.5}, {-0.49683887620601225`, 0.5}, {-0.44721936161737097`, 
      0.5}, {-0.39759984702872975`, 0.5}, {-0.2983608178514472, 
      0.5}, {-0.1991217886741647, 0.5}, {-0.0045413426792946104`, 0.5}, {
      0.19003910331557547`, 0.5}, {0.29558460176581614`, 0.5}, {
      0.4011301002160568, 0.5}, {0.4539028494411771, 0.5}, {
      0.5066755986662974, 0.5}, {0.5132721923194374, 0.5}, {
      0.5172212245778907, 0.5}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQ/Snj/MsJXx/YM4DBg/0RWvt/X+d7COdrNNhLvalC
8H9e3W/B8BzBn9V4oFRj/yM430r34KaA6Y/h/Pk8Zaa8T1/C+UxlondSJD/A
+ew8AY1J777B+c0PrjkXLf4L52+Y3RZQ94nRAcbPX5Qi8CSMFc6Py5ol297I
Aed3BpZZGs/hhvNZRKY+q//FB+dfP936oYVfEM4PrU4ym3VYCM7P4X6tdC5K
BM53u30jJktJFM6XX31sGtsrBL/s3dOjHmFicP5ZQ9avXYcQ/EVMZxtm30Xw
Ky5P4VnzA8Ffd7xNv+A/gt+7vM1hOas4nA8AQheLrw==
      "]], 
     LineBox[{{5.763652234706975, 0.5}, {5.769274120954902, 0.5}, {
      5.7824892737291345`, 0.5}, {5.795704426503367, 0.5}, {5.848565037600295,
       0.5}, {5.901425648697223, 0.5}, {6.098766399092588, 0.5}, {
      6.296107149487952, 0.5}, {6.509958450788927, 0.5}, {6.7238097520899025`,
       0.5}, {6.750053963207563, 0.5}, {6.776298174325222, 0.5}, {
      6.789420279884052, 0.5}, {6.800406531757477, 0.5}}], 
     LineBox[{{6.813161633798294, -0.5}, {6.815664491001712, -0.5}, {
      6.822225543781127, -0.5}, {6.828786596560542, -0.5}, {
      6.881275018795862, -0.5}, {6.933763441031182, -0.5}, {
      7.038740285501822, -0.5}, {7.143717129972463, -0.5}, {
      7.339569124921395, -0.5}, {7.535421119870328, -0.5}, {
      7.960146211579415, -0.5}, {8.356667915303806, -0.5}, {
      8.745394394308807, -0.5}, {9.16714197512503, -0.5}, {
      9.560686167956558, -0.5}, {9.780342879896647, -0.5}, {
      9.999999591836735, -0.5}}]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-10, 10}, {-0.5, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.445931988828125*^9, 3.453358332015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fs", "=", 
  RowBox[{"fourierseriesFromList", "[", 
   RowBox[{
    RowBox[{"fourierseriesList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], ",", "4"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.435671338265625*^9, 3.435671341*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "3"]}], "+", 
  FractionBox[
   RowBox[{"Cos", "[", "x", "]"}], "\[Pi]"], "+", 
  FractionBox[
   RowBox[{
    SqrtBox["3"], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", "x"}], "]"}]}], 
   RowBox[{"2", " ", "\[Pi]"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"3", " ", "x"}], "]"}]}], 
   RowBox[{"3", " ", "\[Pi]"}]], "+", 
  FractionBox[
   RowBox[{
    SqrtBox["3"], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"4", " ", "x"}], "]"}]}], 
   RowBox[{"4", " ", "\[Pi]"}]]}]], "Output",
 CellChangeTimes->{3.44593198928125*^9, 3.453358332015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\"\<hallo\>\"", "<>", 
  RowBox[{"ToString", "@", 
   RowBox[{"TraditionalForm", "@", "fs"}]}]}]], "Input",
 CellChangeTimes->{{3.43567137446875*^9, 3.435671378296875*^9}}],

Cell[BoxData["\<\"hallo\\!\\(TraditionalForm\\`\\(\\(cos(x)\\)\\/\[Pi] + \
\\(\\@3\\\\ \\(\\(cos(\\(\\(2\\\\ x\\)\\))\\)\\)\\)\\/\\(2\\\\ \[Pi]\\) + \
\\(2\\\\ \\(\\(cos(\\(\\(3\\\\ x\\)\\))\\)\\)\\)\\/\\(3\\\\ \[Pi]\\) + \
\\(\\@3\\\\ \\(\\(cos(\\(\\(4\\\\ x\\)\\))\\)\\)\\)\\/\\(4\\\\ \[Pi]\\) - \
1\\/3\\)\\)\"\>"], "Output",
 CellChangeTimes->{3.4459319893125*^9, 3.45335833203125*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Graphics", "Subsubsection",
 CellChangeTimes->{{3.43566056271875*^9, 3.4356605653125*^9}, 
   3.437208179875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"makeTooltip", "[", 
   RowBox[{"{", 
    RowBox[{"f_", ",", "fString_"}], "}"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "graphics", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"graphics", "=", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"LightGray", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "4"}], "]"}], ",", "Black", 
         ",", 
         RowBox[{"Circle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", "4"}], "]"}]}], "}"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Tooltip", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"graphics", ",", "\[IndentingNewLine]", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"2", 
              RowBox[{"f", "[", "x", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
             RowBox[{"Axes", "\[Rule]", "None"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
          "\[IndentingNewLine]", "}"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "40"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
         RowBox[{"PlotRangePadding", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{".2", ",", ".2"}], "}"}]}]}], "\[IndentingNewLine]", "]"}],
        ",", "fString"}], "\[IndentingNewLine]", "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.434028355375*^9, 3.43402846246875*^9}, {
   3.434028526671875*^9, 3.434028637796875*^9}, {3.43402878803125*^9, 
   3.4340288286875*^9}, 3.434029833890625*^9, 3.434029868765625*^9, {
   3.434029952296875*^9, 3.434029970640625*^9}, {3.43403024653125*^9, 
   3.4340302896875*^9}, {3.434030343609375*^9, 3.43403035075*^9}, {
   3.43409702228125*^9, 3.43409707684375*^9}, {3.43411226534375*^9, 
   3.434112317515625*^9}, {3.434112351171875*^9, 3.434112438734375*^9}, {
   3.434112537671875*^9, 3.434112577515625*^9}, 3.43417600409375*^9, {
   3.434278823625*^9, 3.43427883175*^9}, {3.43427891396875*^9, 
   3.4342789218125*^9}, {3.434278962859375*^9, 3.434278964265625*^9}, {
   3.434279066171875*^9, 3.434279071671875*^9}, {3.43427920015625*^9, 
   3.4342792015625*^9}, {3.434279237046875*^9, 3.43427924446875*^9}, {
   3.43427934571875*^9, 3.434279346046875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Init Code", "Subsubsection",
 CellChangeTimes->{{3.43564853525*^9, 3.435648536671875*^9}, 
   3.43564939246875*^9, {3.43567287396875*^9, 3.435672881*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nMax", "=", "9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"squareWave", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], "^", 
    RowBox[{"Floor", "[", 
     RowBox[{"x", "/", "Pi"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"squareWave", "[", "x_", "]"}], ":=", 
   RowBox[{"Sign", "[", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "/", 
       RowBox[{"(", 
        RowBox[{"2", "Pi"}], ")"}]}], "-", 
      RowBox[{"Round", "[", 
       RowBox[{"x", "/", 
        RowBox[{"(", 
         RowBox[{"2", "Pi"}], ")"}]}], "]"}]}], ")"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"auxTriangle", "[", "x_", "]"}], ":=", " ", 
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{"1", "-", " ", 
        RowBox[{"2", 
         RowBox[{"x", "/", "Pi"}]}]}], 
       RowBox[{"0", "\[LessEqual]", " ", "x", " ", "<", "Pi"}]},
      {
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"2", 
         RowBox[{"x", "/", "Pi"}]}]}], 
       RowBox[{"Pi", "\[LessEqual]", " ", "x", " ", "<", 
        RowBox[{"2", "Pi"}]}]}
     }]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"triangle", "[", "x_", "]"}], ":=", 
   RowBox[{"auxTriangle", "[", 
    RowBox[{"Mod", "[", 
     RowBox[{
      RowBox[{"x", "-", 
       RowBox[{"Pi", "/", "2"}]}], ",", 
      RowBox[{"2", "Pi"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sawtooth", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"x", "+", "Pi"}], ",", 
       RowBox[{"2", "Pi"}]}], "]"}], "/", "Pi"}], "-", "1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"auxPulse", "[", "x_", "]"}], ":=", " ", 
   RowBox[{"\[Piecewise]", GridBox[{
      {"1", 
       RowBox[{"0", "\[LessEqual]", " ", "x", " ", "<", 
        RowBox[{"Pi", "/", "6"}]}]},
      {"0", 
       RowBox[{
        RowBox[{"Pi", "/", "6"}], "\[LessEqual]", " ", "x", " ", "<", 
        RowBox[{
         RowBox[{"2", "Pi"}], "-", 
         RowBox[{"Pi", "/", "6"}]}]}]},
      {"1", 
       RowBox[{
        RowBox[{
         RowBox[{"2", "Pi"}], "-", 
         RowBox[{"Pi", "/", "6"}]}], "\[LessEqual]", " ", "x", " ", "<", 
        RowBox[{"2", "Pi"}]}]}
     }]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pulse", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"auxPulse", "[", 
     RowBox[{"Mod", "[", 
      RowBox[{"x", ",", 
       RowBox[{"2", "Pi"}]}], "]"}], "]"}], "-", 
    RowBox[{"1", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"auxAlternation", "[", "x_", "]"}], ":=", " ", 
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{"Sin", "[", "x", "]"}], 
       RowBox[{"0", "\[LessEqual]", " ", "x", " ", "<", "Pi"}]},
      {"0", 
       RowBox[{"Pi", "\[LessEqual]", " ", "x", " ", "<", 
        RowBox[{"2", "Pi"}]}]}
     }]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"alternation", "[", "x_", "]"}], ":=", 
    RowBox[{"auxAlternation", "[", 
     RowBox[{"Mod", "[", 
      RowBox[{"x", ",", 
       RowBox[{"2", "Pi"}]}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"functions", "=", 
   RowBox[{"{", 
    RowBox[{
    "squareWave", ",", "triangle", ",", "sawtooth", ",", "pulse", ",", 
     "alternation"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"functionStrings", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Rechteck\>\"", ",", "\"\<Dreieck\>\"", ",", 
     "\"\<S\[ADoubleDot]gezahn\>\"", ",", "\"\<Puls\>\"", ",", 
     "\"\<Halbschwingung\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"functionTooltips", "=", 
   RowBox[{"makeTooltip", "/@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"functions", ",", "functionStrings"}], "}"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"indexedTooltips", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "\[Rule]", 
      RowBox[{"functionTooltips", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "functionTooltips", "]"}]}], "}"}]}], "]"}]}], 
  ";", 
  RowBox[{"fourierseriesList", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"fourierList", "[", 
      RowBox[{
       RowBox[{"functions", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", "x", ",", "nMax"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "functions", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.43566544984375*^9, 3.43566552209375*^9}, {
   3.435665624578125*^9, 3.435665624609375*^9}, {3.435667035953125*^9, 
   3.435667054203125*^9}, {3.4356671600625*^9, 3.4356672964375*^9}, {
   3.435668995609375*^9, 3.43566901840625*^9}, {3.4356695148125*^9, 
   3.43566951559375*^9}, {3.435669561015625*^9, 3.435669561875*^9}, {
   3.4356700761875*^9, 3.435670088578125*^9}, {3.435670137203125*^9, 
   3.435670144125*^9}, {3.43567018409375*^9, 3.43567019225*^9}, {
   3.435670267890625*^9, 3.435670278765625*^9}, {3.43567037553125*^9, 
   3.435670375578125*^9}, {3.435670476578125*^9, 3.435670510265625*^9}, 
   3.4356705444375*^9, {3.435673764859375*^9, 3.435673870703125*^9}, {
   3.4359349485553703`*^9, 3.4359349506647453`*^9}, {3.4359350584928703`*^9, 
   3.4359350653053703`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Manipulate", "Subsubsection",
 CellChangeTimes->{{3.43564853525*^9, 3.435648536671875*^9}, 
   3.43564939246875*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "=", 
     RowBox[{"functions", "[", 
      RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"fs", "=", 
     RowBox[{"fourierseriesFromList", "[", 
      RowBox[{
       RowBox[{"fourierseriesList", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", "n"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"\"\<F = \>\"", "<>", 
           RowBox[{"ToString", "@", 
            RowBox[{"TraditionalForm", "@", "fs"}]}]}], ",", "16"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"f", "[", "x", "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", 
                RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotStyle", "\[Rule]", " ", 
               RowBox[{"{", 
                RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotLabel", "\[Rule]", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"functionStrings", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", "Bold"}], "]"}]}]}], 
             "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"Plot", "[", 
             RowBox[{"fs", ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", 
                RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotStyle", "\[Rule]", " ", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}]}], 
             "\[IndentingNewLine]", "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "\[Rule]", "400"}]}], "\[IndentingNewLine]", 
         "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"ItemSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "5"}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "\"\<Funktion\>\""}], "}"}], ",", 
     "indexedTooltips"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "5", ",", "\"\<Ordnung\>\""}], "}"}], ",", "0", ",", 
     "nMax", ",", "1", ",", 
     RowBox[{"AppearanceElements", "\[Rule]", "All"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "\[Rule]", "Bottom"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Fourierreihen\>\"", ",", "18", ",", "Bold"}], "]"}]}], 
       "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.43488434628125*^9, 3.434884347765625*^9}, {
   3.4348867088125*^9, 3.434886709515625*^9}, {3.434887185796875*^9, 
   3.434887218421875*^9}, {3.434887476046875*^9, 3.434887487734375*^9}, 
   3.434955260046875*^9, 3.434955347125*^9, {3.43495748525*^9, 
   3.434957491625*^9}, {3.434957559546875*^9, 3.434957560296875*^9}, {
   3.434957594734375*^9, 3.434957623703125*^9}, 3.4349577095625*^9, 
   3.434957755171875*^9, {3.43495823978125*^9, 3.434958242703125*^9}, {
   3.435648341578125*^9, 3.435648363546875*^9}, {3.4356484963125*^9, 
   3.43564851121875*^9}, {3.4356485506875*^9, 3.43564855790625*^9}, {
   3.435648752921875*^9, 3.435648773890625*^9}, {3.43564884790625*^9, 
   3.435648849046875*^9}, {3.43565183496875*^9, 3.435651896453125*^9}, {
   3.43565629584375*^9, 3.4356563119375*^9}, {3.435656360890625*^9, 
   3.435656422484375*^9}, {3.435656454421875*^9, 3.435656638515625*^9}, {
   3.4356566716875*^9, 3.435656757953125*^9}, {3.43565681365625*^9, 
   3.4356568665625*^9}, {3.4356569293125*^9, 3.435656930671875*^9}, 
   3.43565750815625*^9, {3.435657575328125*^9, 3.43565757671875*^9}, 
   3.435657616640625*^9, {3.43565764671875*^9, 3.435657647875*^9}, 
   3.43565844540625*^9, {3.435658586046875*^9, 3.435658595375*^9}, {
   3.435662768609375*^9, 3.435662776546875*^9}, {3.4356630015625*^9, 
   3.435663016234375*^9}, {3.435663239609375*^9, 3.43566324434375*^9}, {
   3.435663344265625*^9, 3.4356634595*^9}, {3.43566351821875*^9, 
   3.43566354725*^9}, {3.4356639710625*^9, 3.43566399853125*^9}, {
   3.435665291953125*^9, 3.43566530796875*^9}, {3.435665342328125*^9, 
   3.43566543525*^9}, {3.435665520734375*^9, 3.435665531296875*^9}, {
   3.435665701765625*^9, 3.4356657395*^9}, {3.435665817234375*^9, 
   3.435665881484375*^9}, {3.43566608084375*^9, 3.4356660821875*^9}, {
   3.4356673755625*^9, 3.435667412265625*^9}, {3.435669258796875*^9, 
   3.435669301109375*^9}, {3.43566981621875*^9, 3.435669850625*^9}, {
   3.435669913171875*^9, 3.435669960484375*^9}, {3.43567002825*^9, 
   3.435670043234375*^9}, {3.435670672484375*^9, 3.435670723109375*^9}, {
   3.435670753953125*^9, 3.435670758609375*^9}, {3.43567079846875*^9, 
   3.43567080434375*^9}, {3.435670900546875*^9, 3.435670973546875*^9}, {
   3.435671005515625*^9, 3.435671044359375*^9}, {3.435671093234375*^9, 
   3.43567110596875*^9}, {3.435671172140625*^9, 3.43567119728125*^9}, {
   3.435671244890625*^9, 3.43567131203125*^9}, {3.435671398765625*^9, 
   3.435671433609375*^9}, {3.435671489828125*^9, 3.43567158428125*^9}, {
   3.435671810671875*^9, 3.435671835171875*^9}, {3.435671898046875*^9, 
   3.435671902109375*^9}, {3.435672082578125*^9, 3.435672189421875*^9}, {
   3.435672229625*^9, 3.43567223275*^9}, {3.435672355515625*^9, 
   3.43567237871875*^9}, {3.435672472203125*^9, 3.435672528390625*^9}, {
   3.435672578421875*^9, 3.435672581765625*^9}, {3.43567271115625*^9, 
   3.43567271128125*^9}, 3.435672784015625*^9, {3.453358319609375*^9, 
   3.453358327203125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i$$ = 1, $CellContext`n$$ = 5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`i$$], 1, "Funktion"}, {1 -> Tooltip[
         Graphics[{{
            GrayLevel[0.85], 
            Disk[{0, 0}, 4], 
            GrayLevel[0], 
            Circle[{0, 0}, 4]}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              RGBColor[1, 0, 0], 
              Line[CompressedData["
1:eJxF01tIkwEUB/Bv7ua6CF6Y3ahmFJhSVqYydZ8SM10vpjMtKN2iZUmbmigi
IZLdcBrWCNRpSmm5hpuaJA7dKm1tUU0ZEmqFWlP3YC4V3XRZkf134HD4cc7D
eflzxLKUC14EQcT/6b9TkORzbIXDMhD/ynDRODqnfeQNl/NbGyR7Pc6zuvzu
+zNh89lt09/8GbC7T6XlbqXDkx2O6pMsGhzRxLBWbqTCMUFDByqWKfCOEp9r
cjsBW5SHMiSf1/T//TG7c+qozg23BA9GJfeuwGG1ltx8kxPmhMWOsJ8twfYe
Pp3Rvghvz9GJiuTz8C+zX/NcngO+Sm4SXlqahbuPvDcsdtlhje8bbWCvzXPP
raHyZBMw90Zm4vTlMfhH9urd0ttW+Hp/HZdcNsLSoB5lgEsPD+ti+lVULdxa
xZraL2qELc/DO72z0mFrgZp3uJ0k1x1XX8SfSVaeh5O1ZwZim/Lgwcd+7NSC
Ytie8HKUV1kO50QXhwqz5HDkvQUJSX0Ad99UvxAO18NfIqvUZF8LnBma4BZW
t8GrM0KziGOAxxMz0qQNb+EFDanZEm2FR5p3Sh2WMbhEqktMezgBZzQeTFdW
2mDJLZPXV4sdfl0eEiJ/Nwuf8/3+KuC0A57nGnnjhfOwRrbZKc5dhGmltjKx
Ygkuq9mTFKhwwidopcH9d1bgtqQrn2Zb3XBUrX7gQ/OaZy8eimPbiDj8u1sY
Er9AgTsmmV0Jc16wIIC+r4JCgwsF4REqgg6bnv5MGXB5nF3gOrVrAxOu44e7
UpnecP7xpoYnCo/X8w//Bo+mI3w=
               "]]}}}}, {
          ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
           PlotRangePadding -> {0.2, 0.2}}], "Rechteck"], 2 -> Tooltip[
         Graphics[{{
            GrayLevel[0.85], 
            Disk[{0, 0}, 4], 
            GrayLevel[0], 
            Circle[{0, 0}, 4]}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              RGBColor[1, 0, 0], 
              Line[CompressedData["
1:eJxlyn0slAEcB/A7UWdtR4f03Jm6SoQa8pK6hi6KMRSNUTsnL9maS1Zt4Win
tyNdWVPcLRElrsN52Yzfg4ZU3NkNmzhdmpPL24TnuZen6+/++O77/WxfJjf7
fJoFiURyN+dfR4RT2XqmNWqeY+hCcc/JtrwVirPZLDpPjVwBT+aieDfdbElF
VSuSC1RscMubZvbXiRYxIgDl2yJppoXZaZvdT5FySKD8QcY1FJTkdZ9ditRC
xuDUiqyGgnIcou89QuQgCH0nSXehoDxKq+tD5CNcV+G0Z3Y7UE5i9YeVVRUM
X6Jr5+y2o7ZEUfJZZzUYexpkJxAr1C12SdsvnIMfLauiWGtLNHckMKhifQH8
q7erSnduQ+3lu2bI5GVg7R87Ktwio3IN+8soaw2c7lDzS36RUDRLzEjUrYOi
yjshfZqAtUOnbJqubcJoZuu8X5cRDFvvbRkuONQdVh6P6daDD8FpvyA1QKZr
c29hmx7ORaF3QzsN4O4iimhu0gOncm90QJ8BpPtik2kSPZQEzMzTxw3Q4ajk
qwr0MJedhGiMBhiyUg4kBOuhYjY+jxdlhMXviriUfhwMvRGnS3VGkKpl06Iu
HGi2DVT+hhF400/S+1pxcLtsPcUjmWB9Mub2gVocLuKDN+LsTWAYVVT+FOAg
8wl9w2CZgNqj0FwNw4FbE0RpEJrA66WCl/MJgyGB78iAOwEPIm9aYCgG/jaf
LUR+BMyaGOX8Tgxev0gJSAomoCw1o6OkHoMC6eNXy/EELHmajHXF5v+kNmdP
EQFh6pqyI/kY1HL59RohARJROFOei4Htb4dvjc8JiNooP9ObisESmR0a0khA
I3gIp0LMfw+xY9YEAZY5SiduIAa09mORvhoCkg/ekmq9MCgMHi406QiQjzsF
Z7thoBvmtA1t/u+/1Fx8VA==
               "]], 
              Line[CompressedData["
1:eJxljHs0lAkYxke0ndMSOYpE0dHuLNIkyRm2dyu1dpM0fRZ1IlNZK8tKLmW3
jJWkOrY2upDKjGhjJmsqufS2oqZyS2MT04lZl82Oy2Dm+8bMfN/av/eP5/zO
c87veZz5CbyDc1gsVuBs/iPfN2b/j7Y69HE63F8yyWDtqIVmjqUOZfm9Fd3D
DMbywu2saApVGeLN/p0MNpoxtws0FGZobS2PPWPQ/oHI13GUQps4QY+knsHn
SyciXBUUeoUSiUvLGGQPZpf61876q2aKJ9MZzLjkvv5l1awv3B/LTmSw+6tO
2c7bFIrsWtdFRDN4SuyoirhMocz0RsvzYAaHUqWeR1MotOrZMnNjJYOi+Uqs
9Jz1s8+H7Gin0Znzec/iOyTK3rPNK1bQGMj7UOAhJDHHz6Tyqh2NaUfyd20t
JDHwytvtpxfQ2FYz2pJ8hsQOXm5e9IwRj20sRvkhEuXN/1g7dxpRzmNEF9xJ
HLgjXlIgMGJ28h8JC8RaNKR6fZrRZ8CR2i1zP6rSIMfqi01EsR6XHqqLSj07
hU2uObHKvyikX1iXTiSqUdVc5eTtrcUkMCe+I8dw2j3fE+9PYc3a1seaeyPo
dPy2t4eJGiULn961bRjCAO9x99IpFSZxr5huSFDiZf/Rjodpw8g9GRnwd6wC
OYT4l3BbJY7HGPJO5MixT9tsKXPpwZ+bCrlAPUOWYvDch6w2/LPOr+k307vI
4jlIe/dLMdJ9q5E4LwbW/PSuxuRq6A8IC4kvlsHjfpNlgrB2mJaAxM5XDhPj
dTpu41voKV0Wr+5QAEf4tjUoTAnp8XUBIdeVwN5ubaq5NwxhN1aHFp0bgrTI
NxmcByqIPvV8zvuOEagPcrQItlbDkyw3t7Mvx0DhvOh459UpiFg42GgTroa4
I25ReYu1MMV9tqE/ZQpaFFa8aBkFkgQLHf8HDRBH/YbnBepB9ZpDTqZpwOGA
rGvsGz24+hCaTIEGBoKIpq4oPYhYheqSCxpIc4m7KUzVw9Xz7BGlVANF7YV7
QKiHrOrNvXydBlQr9e0pM3rYTR5t4GdqIavzYc1guQEu7blWN5mrheCGLWUt
1QaQ4+OHmb9qwa78VX71IwPsyJl3v0SkhYqfPhwWyA3gvyRfrHyqhQ72klWO
LCOs9r17nf8xCU4n0m4SoUYwOzEk4F8kQeq2PvfJXBrik0xDoopIIFYTQrUl
Dd3fOrH3iUhQeSbWL7enoSJ4d9te6eyee2cs3YMGYkWbfbichJyA5bu8QmkQ
Nt+r3mFDQdjBeQ6l5TSY13ZmBzlQMBHjsu717zSkiMfDt7tQcDZuY5BJAw1f
X/qMtc2Lgvqk9Iy9r2iYjLkWuJWgwCVzfGDRDA2bzE8O+l2kgCp+U5m9jYEK
VkmNbxEFF0umn0pDGFiseXSGK6KAc2thnzKSgZF31BofKQX7KrdZwxEGLkji
jq+VUyCrwxSyiAGD8PROTwUFB1CRt7KMgejLt1zWDFBg9kRXvquKAa6g74XH
9Ozfi7W9kmYGRMnGa6sMFHS0Bk+/a2dgQax9oruZDuJefW9h3sNAWsR6fzdz
HZh15X7CHWBAySNsXW10UNRdBjFjDAR+mTjCdtCBj6IprID6f/8XHaihrw==

               "]], 
              Line[CompressedData["
1:eJwVzH1Qy3EcB/BftdqvSIvaQo9ktkoNu9A6n+9CKU89qFAceep0Zedad65M
oXZyR09KxCFLD9cateTqqNMq0+V0xXB+cTUmEon121Y/P3+8732ve9+9fVJO
xh61xjBMQOd/ewsairgBJFx1t5I6/qag0Lfv8AohCWa3saQRAwXTbvpg31AS
Drr2hj0gKDjgaO2wfDMJPc71/PNDFKz5K1J57yahxEFi5HZSUDW+57xXMgkz
dnHEjJoCuxFpgucREvbbBGu0DRS8622yLM0kgW8xl2RUUJBXuTySU0ZC14Q8
sDWDggCmwjJxgwQ/yV3/9iMU6DK5qu5qEoqnOnid+ygIjOZzTjWTkGL8tUwb
Tv/ZBen7B0lgWCVzCE8KhJkheeecTRDuIsDsXs7B550xjycum+BFiO5VfNAc
bGOc5XdfNMOwnCf9M2kBZWS67kfdLLDmmxqXiEyw/vpTzYCCAt/k/DBpixGU
KYOI/RlDyeXi52rjNBzz3u0vnrZCwpiRD+0RU/BwlKkO/2mN+prSq35cmoQo
F1vuJSsGyiqWHVrtPg5ZUcLgeswW6RxsCALXw/PaqViNyRZJ8qOyOE4fITXT
lODlwESq2i/6dbHDcGOL0BTHxFHft7CqAFkP1DcmVjyZh6Ot0dsn1/r2QJtr
tpDPwpGuJT5MpNXAa31Xxpwb7TOphki2BlgFu0Zr/XCEsS4LjyufQUHPif7Z
HTjiCd/23yE64VTEnVv3y3D0c4YwrZK1Ql5Tt2hhJe2uX7dDtWoo4hh0OTdp
FzIitrHV0PglcFFsDY68PfxKU5XNYJB3yC2PcITEUv9qQgUH+t5IYt7T+yJO
m0BWA+kCs2PHCG1FKGMnWwE51zwbuGO016VEpymroTL1qN78HUe5SY0GBXEb
hvDfe2vmaEfI1wTLymFUwjaybOxRbtqgVqIshSndhrJsJu0rHocbiCJwqssd
iGbRVh1fKZYVgKfzvbR2F9ozs4mtRC4EnO7FuYvtEXaB55woywLRp3FFkQdt
Xv3YOdkxiIpcsMnsQxvDBju/5m/8B64DZk8=
               "]]}, {}}, {{}, {}, {}}}}, {
          ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
           PlotRangePadding -> {0.2, 0.2}}], "Dreieck"], 3 -> Tooltip[
         Graphics[{{
            GrayLevel[0.85], 
            Disk[{0, 0}, 4], 
            GrayLevel[0], 
            Circle[{0, 0}, 4]}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              RGBColor[1, 0, 0], 
              Line[CompressedData["
1:eJwt1P8303scwHHM8lmikSaVFZWTOO6Uq5rq9b51uSjdiEunG9fuabnkS+qG
o5vcq+imk8o9F8lVvuTLzahcdc3en4qG2xdpIVadWdaaG5sZtrHPvfec+8Pz
PP+DhwsvOeyghZmZWci//ffgINsdRhcG6QUsFUVR2K/5hJpgM8hk/ao8vYHC
ni6jV1lLGWTTbW83rY7CtnrxjLc9g9ywNoSnGKXw85rshjgLBrnRLmfwcT+F
owidU98wQSK5prtYQOFD4iF1YwVB7s19Ur8hhsI5/rVl/DUEmfEsJ/GQyISP
SAz2lxdZkX0Sa9X92DncfWCp8t2ieSSbTHbYuHwWz4nqGrlOdLIloZ2+8LUB
y29pLoYyLElevrf61Y967HttnuS8NY00XsrMwzCDt7j2ep2bMSerbd84Fcmm
8PJM2x/yVWZkebB36ouzOtxT6h3Ff03h3MOx6e5Bk/hZ3O33n7bO4WxaXVrq
xwlc7f580542Iz506tnqvhoN5pT0pKR26XFp20hRabwau3C2DrLqp3Hn27UL
fncdw6o//enzmnR4PRNtDy8bxcsSWmPT8rWYXJcXPyxXYlO3fZX6iAaPdTSt
9PVV4KOwIPy76TE86fnLevyHHN/d8ITUNasw+2Str5e5DAvsHjU6tinwLt9x
zyqtFB/lFtO2JQ/j8s8/9txL78fc0zGByngp5oQ3FOxz7MXjcbMXsvIkWDnV
sbBzdTf+qf0KF2bEmCkdOf8hR4T7Wre019EaMQpbfmfo20oc4xkwF36xAUhG
5ssH31eALDAqIqmsE0iZOTs7CsOkAARL/CSgHm/Vcx90wWAVO0nTIwVOxasn
u6N6ITOpNTDit2HghNjTdM39EFX+SWTpeQWkx/Sf4rRIgZ/bZfG2RwXC3c42
e+xl8DDHwyP/rzGQuiw+2Vsih2i7kQcO+zRw+JhH7AWWArRc8TbZcS08ljLD
+J1KECTb6HkpOgjP2PLeatcoWGYpsnmF03DHY+PPD+ljkF28KsixUA9shlBZ
GaiGnZZZ7u1njcASJvjT8zTQEJQ4MFY7Bwa9RW3q8ARsKsEdT6soGAtti+5Y
MwkNvF7EUpihXp+YZWtydMBfGe7x2aQ54kcy7VylU3BLbtUcoLZAtoXvoiyd
ZyDYge52ztwSXd9ffkObrofjwT6+dWZ0FLw1K7CzzQBdNRNhHQY6uh6d6Mqd
NULcMcNXK+ZbIdX8HbR7EXNwxd/HsNeKQAHP/Xydi0xQdzPyV5E1gWa51veF
V01wd3GmjzuTQLcqB3d+XWGCvpH7SaYlBHJNz4i90mAC5pkv5TXrCGS2oiXf
qcMEZx7FP54LIZDo8Hr54gkTpH5xrexGIYE2Ee4FtrsoyBa0+9kXE0h9ZGZp
QygFBY7KgRNXCVQzJK4KiaTg5nuvRWHVBGIJ+K35PAqUucLc2RYCTUVUKuZn
UBDd2Z8SOkSgOxUrtlpVU5DIMdoI3xIo3mZcXF1PwYkidr3bOwKtThOFBTRR
UBx3cMT4N4EuBR+IOy2kQEJo91WbCJSqKblMe0GBPIU1zaQx0Lr98eyKAQom
BjYXZlox0HD75trtbyhYWHvq6R4mA4UVDYiyP1DAtqtMaHVgIMKiJshlnALP
DDHh5sRAooQ0CTlJgZ9MVVXgzEDpLwNivjFQ8L9f6H+/4B94d3dM
               "]]}}}}, {
          ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
           PlotRangePadding -> {0.2, 0.2}}], "S\[ADoubleDot]gezahn"], 4 -> 
       Tooltip[
         Graphics[{{
            GrayLevel[0.85], 
            Disk[{0, 0}, 4], 
            GrayLevel[0], 
            Circle[{0, 0}, 4]}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              RGBColor[1, 0, 0], 
              Line[CompressedData["
1:eJxTTMoPSmViYGCQAWIQ7eXJ5/xbkfMAAxh82J9+/PaHDYs54PwW15Xz0lQR
/MIrv4QmC7PD+adipV48EWaD8//uW7XBSpIVzn+86ePEQE4WON9sIduVXm5m
ON9G6ZJe9w9GOF+mmq+25xUDnH9hjmFE2t3/+2H88xmbn5vu/gvnL9O8aBGw
9zecbzDrQkHRyZ9wvqKB7S2x1d/h/Fe7XFnZNn6F86WzdyeW93yG8/+dElr6
ofAjnF9szxOS+f0dnL/D+OyBr1tfwfnrBY9tEN/7DM4XXKZ/S2vaE4R+q5nM
dvmP4PwK7jXHWV48hPPr7uzrPp2A4DO4nnirJ4vgN6+96D/p5gM4f969hwx7
LiL4AAP7q3M=
               "]], 
              Line[CompressedData["
1:eJxTTMoPSmViYGAQBWIQrcdRmf9iw4P9DGDwwf7p7oibd5Yh+Gxitzd+nYrg
u5+6n6ReguB31D0RjgxC8FUdRSzOtt+D861a4z1eZN2B80W+677ZXHkDzn+f
8ae/vuMKnN98ZLaV/Y/jcP613TZHVjFvgPPjddz+hkxcZw/jP/SICM2bdwLO
/7Lefr2E9RU4/7nWej7Wthtw/q2lcnkfL9yB8xdu/rIt/s09OH9LwtP/z5of
wPlKgjpFh6Yg+BMOFj2ZuxTB14WEH5wPAOBWeUc=
               "]], 
              Line[CompressedData["
1:eJxTTMoPSmViYGCQBWIQPffeQ4Y9Fx/YM4DBh/1ezb1ruV8i+GpPpCYd4noI
599fahpt4Ifgz0gPUJk3EcHnet26rVLiEZxfnbfbI3Q+gp/V/vV8xbQncH7E
Av3wOb3P4Py09pNM9y+8gvMPt2hr95x+B+fHCT49JBL5Ec7/bHXc7mHZZzh/
fT7vz6SCr3A+S/2zxqQp3+H8xpnKnuJTfsL53iz1mkc6f8P56zxzb7xb+RfO
t5i1/+i5pf8R8kmXHMSeMTjA3asQou34hRHO3/SYfavbByY430uEVa2bkQXO
L/MyMVvFwArnn1zxKejoLwQ/o+RXmDwXO5w/29XkVzA7B5xf5L5w3vIpCL6X
J5/zb0VOOB8AZ16epA==
               "]]}, {}}, {{}, {}, {}}}}, {
          ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
           PlotRangePadding -> {0.2, 0.2}}], "Puls"], 5 -> Tooltip[
         Graphics[{{
            GrayLevel[0.85], 
            Disk[{0, 0}, 4], 
            GrayLevel[0], 
            Circle[{0, 0}, 4]}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              RGBColor[1, 0, 0], 
              Line[CompressedData["
1:eJxTTMoPSmViYGAwBWIQ7eXJ5/xbkfMAAxRYb635wCGH4Osovp4rJoXg8/08
/sNQCMG/uKJxXQYTgh/B8VXy2iMOOD/9+O0PGxYj+C2uK+elqSL4hVd+CU0W
ZofzT8VKvXgizAbn/923aoOVJCuc/3jTx4mBnCxwvtlCtiu93Mxwvo3SJb3u
H4xwvkw1X23PKwY4/8Icw4i0u//3w/jnMzY/N939F85fpnnRImDvbzjfYNaF
gqKTP+F8RQPbW2Krv8P5r3a5srJt/ArnS2fvTizv+Qzn/zsltPRD4Uc4v9ie
JyTz+zs4f4fx2QNft76C89cLHtsgvvcZQr3VTGa7/EdwvlVrvMeLrDtw/vuM
P/31HVfg/OYjs63sfxyH81+cs5ycugPB97t5/XV3BYIv9U547o0fx+D8DeI9
/wt/HoXz72bVHFny6zCcn6e0a47Ir/1wvqX5N9/EKgSfxcfo/9pf++D82aWr
Et1/74XzT5yYpVb1Zzecr5RfveH+v+1w/rXdNkdWMW+A82Uqk+594lkP5/dU
eZtMEFoH52fXyj44JbsGztdqPmjuYLICzl/Zx/lcK3EBnG+k8LRywtl5cL6Q
8nbV0zfmwPkXNaJrHd7PgPMDTBbraMtMhPMvbDHZzJEQjpMPAE605pU=
               "]], 
              Line[CompressedData["
1:eJwVlnk0VusfxQl53VwhkUYkmdLArS5qHyUpypjkukiaDYVGpUhEEpKhDIUo
MmXqGirJVJLIEA3GZJ5e7/y+53d+f5x11met86znrP3s/X22squX9dF5QkJC
E9Tz/3fShV3DlolHkDItnmeR6APLfIeabY/PYnDfEj39xwH4nC4rb+N7Ccab
rA6Z+obimflR3aK062iwkdV7mhaJEZOq7u13giArW0Oo34nBaYNL2rYu4cgI
YGcvcUnEy+DnpbbtSbhfY0Ij2nLgrG3Ct43Kxclmp5V54a9gGJ8RwXiUh5nB
r2ebH76GZKCItLl9Pv5Q+uXle+ANhsePPB4/XoDge9Nj/m5VSK1RfbchpBDl
0jeYBwOrIXcuQ6K0phTmtXJ0VkUdeMO27w8rv0Hrulnaeflm9JraH/BMrsfg
IiXDJxc6Qc9D3hKDLzi89oWqyWA/up6s9Jxu/oaF71Oe6XWNws+z3PRASh8e
XtpQXB07DftH6w8m3vmFTZFp9o7ldBwLaZj3s3kEW+7I9Ks1MOG48HRpQ88I
LFKqyxpambCKk3QvmhrBh0mbnGM/mDDMtGgLlR7FR97dzohZJmTr2jL1LEdh
FG0uiFvBQuX8PvOwT6PQ0HTdcfsMC3LBnNi/msZgnuTW0S/DRnWQllb4hwlI
N9gFthpxoE/ef6TWPYFtJSIPyvdy8OKSkHzVyAR0fxw7m2TDQapnmxBDYhKJ
3T/s9h/lIND+Wruz6STOj36ucrvFwQ7t1gDdmkkE7o80cf3IQc/Jbe4ezlPw
PsxrjrLmYnnmTIb+8SlsDl08mOPAhf1AZq+41xRuxhperHblotlJ9mCq/xQG
C8Tkur25eGMzZNSRNIXooUVj5dFcpGyLUjD6NoWOT2UXdnzmwklm8K3coWls
2WW03G4PD6IPvtBvH55GamX3J0MrHrJU3qmJnJoGXWph7LJDPDB108KmL09D
2c7bquoED5F2h62bEqfhWTp/d04ID9UPv/eG9Ewjx+Wemdg7HtTV2oW4x2dg
RwtXztzMR1NuzSbvMzN4e7xFKnwbH+e2FLsNX5yBmXpY4wljPt6axtR3hM5g
+8ijAglrPv45bR1ZlD2D2uaN47/d+YjIb1rlOTkDNaXUkGWP+ZjVr9vee34W
v1abFxiLCFBrk7+rzn8WeypiZstpAsS7J5jnBM/iapTSgJaUANuTTztcip1F
w8+S93NLBAgTlj4vUzILoSi90I06AqjU2+cYzc3iyzra890HBbA6MLIs1YeO
ppSFY4NpAqh6tqrc8qNDN9/k1pmnAjCCKzQ8b9CR4duWPftcgMSXEVv079GR
O3g/qL9YgN/LdG1aXtChLW3mdLJOgOt9fmHzZuhgFzbUSA4LkOf1J9v1zBxs
Ul2ds9VIjLVuYM5cnAPRsGF+tCYJza22c4EBczg2Nu+Nlw6JdKGH06nRcwgd
3X1CejOJB1HqI31Fc+j3mXP/ZUwiqHBntyt7DmEnzR0HXEi8VTj+dUaYgTVM
+SIDNxKkX1hH4B8M7Bo6LBV2nMRl48+tqcsYkGUU1C7wJOHV5tTYt42BcTMH
7bTLJByYlypdAxlYKAkx5WgScf8klc+EMTAct1jxdwyJL6/f/Bd4jwFbvp9y
RhwJi1viJanpDNwrbJcUTyJhrHg/t6+WAZXwk1sdM0kEXn353PsTAymB1t1d
z0i87u3OmtfJgIHfB3fL5yT0s1QyVYYZ8GxPtlcqILHeID/FdQETOj4lhE0Z
CfeU1qSZRUyEhrOMQytIZIkwHwYuZ0Jd7OymklckVBu3xaeuY0IzP7SW/pbE
0n8/RPZZMHFCIvyt6AcSotd+BbjGMPH3stnbXl9JePqIHDicyISR5ENLVheJ
zuNK6i7pTBjMdStd+kbiuaVD079FTHibZ/W5/iRhq9K09NAXJtY88eltHyDx
Sn50/OA3JsZFmlmrfpFQX0CrshtgwnkHb8nhIRK8WaPjtnQmyhJuen8YJpFW
U1xoIcfCoteLAokJEpJlLcH7l7MwbpDQsWeSxPncyUP7VFmQ+ZiuazZFYm+c
hpCZHgvpihaCv2ZIFN02ad1jyMI5Ex/3VbMkVl4/kmFqTPEp9R4hOomZE0nm
JrYsJLkd68ieI+H4b9mqXY4s2CYGOZxjkKi16pjZ6caCZ4RT32Ym5R99mQQj
XxaWWwWTj1mUPut13Ikr1P7nLsWYsSl9VpsBQSzs5nivG6d4h+TNQcMYFo5X
fj21hEvpI5T60iCRhRkjnlQqxfJzr27rp1NzsvhuyWoeievD3U5/P2fBo8Tn
cBLFI99ZG7cWsaA3ELpwIZ/Ss2Wx2JYKFrZ3F7+5SPGr2k2df71jQWTLd98u
itXLLbL1GlnIjBrS0hOQiM5z99f9wgL/xqvBmxTz0kKtNn1jIfrJvtRPFB+L
z1DdOMDC8/DAwzIkiebwaub6MRasm8xXm1GsH9DzXofOgqUgaegKxenn+Enr
eCz8nXcyN4NiqVNLz2qLsuHh/eRCPcUXnbYYa0myId9purOP4j5rWwVNOTZ0
vfbJ0Ck23312RH05G5E1ub18iksMIirXqrLRdPxUEUmx0obsSDVtNlx6r4Wy
KQ5TrT+yRo+N8Iopl1GK6UsGN6saUvsFvtFvo9jpz3l/rDZmY7yMLl9Kcb3w
qu/K5mw0jMXMRVK8iWGQr2RLrU/KanelOHHE/sYqRzbuWBmVaVM8/+c5u5Vu
1Prbxx5NUHqcaY3WWOHOxr0mjdCnFHfV5fGW+bKx9kGirwPFxhWNn5ZeYUPG
s8VVlOLc/OFUxSA2ztb32GRQ+gckrN6jEMNGxLyh7S3U+WmLP+GNP2TD3VUo
yYniTl+1/HdpbHTUVOzrp85fx1JDwbuQDaGW2Mw2DomvlVnvTcvZMNWds9xJ
cZCWtv+qajZUJC7ue0b5qWv++sHGFjb86q4TTpT/bvrmx6d1sWG7xm5LDuXP
DX0bzS/3sXG4byKATvk3pFKvcO0MGwsyVyxyp/yt56sfECjDgeSLSk1ymsTP
3nK9Q4ocOFyZeCdNcZjFtt/rlTlgfb9YtJTKU48mYfF9Awe5frdiFKj83end
tWKrJQcXS644F1P53GpR1yxlz0HDhF126G8SAxWmQYPOHDwqi91vR+VZP95s
NNqLgzyOV2Inlf9f+63+G4/goOCmlFMANR+iKlrc38VyMDlwx2PJDxKGmrZK
D5M5iLxIb8+k5km02MEQ01wOMNP1Mo+aP6hwPJBG3fP/Da+rPtJK5UPjB+1y
GwcjHzjZlZ9JxMY5V1h+p3qCcMb0wmbqfvB2XS0Y42Bf01/3kxpJxGucmLaX
pHqBE8P03xoSO+OG09fLcVFyzk31cjWJCdHT9vOXc2FnucLlbhWJXT0erwu1
uLCwMOWkVlLzItbnjpQZF5qDnbWexSTMRK9pvAvlIn7p3Y0JaSRcKvW/GFO9
gU+UlNIeU/PpPMO/5gEX0jC28Eomkfrb40ttNhchY8HFygkkWI2O1xo+cmHo
1OqzLILK1339tiYZHrStdE4eOU+ibD/jmsVSHvQ+Ohwx9iHxSfyFZrMKD27N
XX7Lz5DgXNK4/lmXB//QEwtenCRh6bRE68sBHgJGzV95O1J5V2Nc/5rAg6KI
sKkZQUK2p0DLIZWHnv0tccmGJNYmeLR3ZfHQ2nF08fBWEtYLBrW+lfMgljc/
+chGEk8nW9t/fOfh9iYlkUllEgdeFmgPKPMxOuYs5yJM+X+PR+fEMz46PoZF
F/4nwFS0iv2PAj7qCrICCOo+3/Sto+Pjf3yc9RDrr8kXoMRzR8fzBj46/duE
yjIFeH1Pof3UMB/TV3Xqd98XoPl7VesvdQGK8syCOZ4CzJ6V//SD+q7h+YE1
NcsF2Fz+YX9TngB7GlemuioIcFE0oKmyVIA2WVYpS0YAXuzox0SqN6RGbyiS
EhdAtOJNo8MQ1RuSz8n1TfEhP//0+3aqN0zWr3m6tpqPrQ9e1zQ9ITE99EBx
qysfAzp5hidyKd80Fa53+4ePqOrkQuFSqhdMtbwPseVjZOzqY716Eoqti+KL
TfhIhOHVByMkhm68rM3W5OO6t+PSQgUhIkLUapvoNA+DCl8/+zsKEb9eLj7g
e4GHXNcWQv6XEHHCeVz302kunpy8MrZ/RIi4s+fyRoUjXCSeUYsPmRAixDm9
EQepvhrmf3mSxRAiptfP86ky5eLoA5XkbnFhYlaBWKO/hvJxizf3kYYw8S/d
06nqGwdhRotKtDyEiZzmf5hbTTg4pmSrZUQXJkaOvFN2FWHjRb94scnUPCJ6
1x97PzozsFdOTO22sCihXbnuVIXyLM7v1ducJSRGDHqX1VTHTaLh6Yx1DUeM
SCy1Lau79xsnfDl2q/4QJy787KxTiujBw116HBtxGpF+wfHpisTPyMo5GPdq
AY0onu+is8LuM14u9tPTkKYRNSMfTitIf0b7YJWnYAmNkBQ3cOXdaIZ0sEX/
U00acfX8O7XFHU0Irj3VyN9HI26NyJ+/7/Me3rsfJ2fG0AiaZ/KfPRlVCMh7
ZyCbQCMsv3Z0/1SsQqTC784rSTRCMajNpyv8DXKGdBZZZ9CIyCBZh4DBV/gd
UhHCK6X+54rOVPaVMjjVd5yx6qYRA1n31e49K4DHBu6fFT9phKq7l7nc3Xxc
iV+ZrTZAI0qjixqVhnORcOLoIHeMRqzbm5A055+FL7TZQxkCGlG5K6VsZ9Zj
9J+RZ0qLSBArNfYaSI8kY6bz7xg/cQlijO56/+61B1j47HqTpbQEEdY+dPxC
VhRWyqSfLpeTIOJkfqrUXAuD9qU6mpqiBKGdcc71XlYADHpHnkSukCBWpHhc
e5l1Fnv3SO3kKksQ4fEmTf1/RW3/H4sY1G0=
               "]]}, {}}, {{}, {}, {}}}}, {
          ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
           PlotRangePadding -> {0.2, 0.2}}], "Halbschwingung"]}}, {{
       Hold[$CellContext`n$$], 5, "Ordnung"}, 0, 9, 1}}, Typeset`size$$ = {
    400., {156.5, 161.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`i$13575$$ = 
    False, $CellContext`n$13576$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`i$$ = 1, $CellContext`n$$ = 5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`i$$, $CellContext`i$13575$$, False], 
        Hold[$CellContext`n$$, $CellContext`n$13576$$, 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`f = 
        Part[$CellContext`functions, $CellContext`i$$]; $CellContext`fs = \
$CellContext`fourierseriesFromList[
          
          Part[$CellContext`fourierseriesList, $CellContext`i$$], \
$CellContext`n$$]; Column[{
          Style[
           StringJoin["F = ", 
            ToString[
             TraditionalForm[$CellContext`fs]]], 16], 
          Show[{
            Plot[
             $CellContext`f[$CellContext`x], {$CellContext`x, -Pi, Pi}, 
             PlotRange -> {-1.3, 1.3}, PlotStyle -> {Red, Thick}, PlotLabel -> 
             Style[
               Part[$CellContext`functionStrings, $CellContext`i$$], Bold]], 
            
            Plot[$CellContext`fs, {$CellContext`x, -Pi, Pi}, 
             PlotStyle -> {Blue, Thick}, PlotRange -> {-1.3, 1.3}]}, 
           ImageSize -> 400]}, ItemSize -> {Automatic, 5}]), 
      "Specifications" :> {{{$CellContext`i$$, 1, "Funktion"}, {1 -> Tooltip[
            Graphics[{{
               GrayLevel[0.85], 
               Disk[{0, 0}, 4], 
               GrayLevel[0], 
               Circle[{0, 0}, 4]}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 RGBColor[1, 0, 0], 
                 Line[CompressedData["
1:eJxF01tIkwEUB/Bv7ua6CF6Y3ahmFJhSVqYydZ8SM10vpjMtKN2iZUmbmigi
IZLdcBrWCNRpSmm5hpuaJA7dKm1tUU0ZEmqFWlP3YC4V3XRZkf134HD4cc7D
eflzxLKUC14EQcT/6b9TkORzbIXDMhD/ynDRODqnfeQNl/NbGyR7Pc6zuvzu
+zNh89lt09/8GbC7T6XlbqXDkx2O6pMsGhzRxLBWbqTCMUFDByqWKfCOEp9r
cjsBW5SHMiSf1/T//TG7c+qozg23BA9GJfeuwGG1ltx8kxPmhMWOsJ8twfYe
Pp3Rvghvz9GJiuTz8C+zX/NcngO+Sm4SXlqahbuPvDcsdtlhje8bbWCvzXPP
raHyZBMw90Zm4vTlMfhH9urd0ttW+Hp/HZdcNsLSoB5lgEsPD+ti+lVULdxa
xZraL2qELc/DO72z0mFrgZp3uJ0k1x1XX8SfSVaeh5O1ZwZim/Lgwcd+7NSC
Ytie8HKUV1kO50QXhwqz5HDkvQUJSX0Ad99UvxAO18NfIqvUZF8LnBma4BZW
t8GrM0KziGOAxxMz0qQNb+EFDanZEm2FR5p3Sh2WMbhEqktMezgBZzQeTFdW
2mDJLZPXV4sdfl0eEiJ/Nwuf8/3+KuC0A57nGnnjhfOwRrbZKc5dhGmltjKx
Ygkuq9mTFKhwwidopcH9d1bgtqQrn2Zb3XBUrX7gQ/OaZy8eimPbiDj8u1sY
Er9AgTsmmV0Jc16wIIC+r4JCgwsF4REqgg6bnv5MGXB5nF3gOrVrAxOu44e7
UpnecP7xpoYnCo/X8w//Bo+mI3w=
                  "]]}}}}, {
             ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
              PlotRangePadding -> {0.2, 0.2}}], "Rechteck"], 2 -> Tooltip[
            Graphics[{{
               GrayLevel[0.85], 
               Disk[{0, 0}, 4], 
               GrayLevel[0], 
               Circle[{0, 0}, 4]}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 RGBColor[1, 0, 0], 
                 Line[CompressedData["
1:eJxlyn0slAEcB/A7UWdtR4f03Jm6SoQa8pK6hi6KMRSNUTsnL9maS1Zt4Win
tyNdWVPcLRElrsN52Yzfg4ZU3NkNmzhdmpPL24TnuZen6+/++O77/WxfJjf7
fJoFiURyN+dfR4RT2XqmNWqeY+hCcc/JtrwVirPZLDpPjVwBT+aieDfdbElF
VSuSC1RscMubZvbXiRYxIgDl2yJppoXZaZvdT5FySKD8QcY1FJTkdZ9ditRC
xuDUiqyGgnIcou89QuQgCH0nSXehoDxKq+tD5CNcV+G0Z3Y7UE5i9YeVVRUM
X6Jr5+y2o7ZEUfJZZzUYexpkJxAr1C12SdsvnIMfLauiWGtLNHckMKhifQH8
q7erSnduQ+3lu2bI5GVg7R87Ktwio3IN+8soaw2c7lDzS36RUDRLzEjUrYOi
yjshfZqAtUOnbJqubcJoZuu8X5cRDFvvbRkuONQdVh6P6daDD8FpvyA1QKZr
c29hmx7ORaF3QzsN4O4iimhu0gOncm90QJ8BpPtik2kSPZQEzMzTxw3Q4ajk
qwr0MJedhGiMBhiyUg4kBOuhYjY+jxdlhMXviriUfhwMvRGnS3VGkKpl06Iu
HGi2DVT+hhF400/S+1pxcLtsPcUjmWB9Mub2gVocLuKDN+LsTWAYVVT+FOAg
8wl9w2CZgNqj0FwNw4FbE0RpEJrA66WCl/MJgyGB78iAOwEPIm9aYCgG/jaf
LUR+BMyaGOX8Tgxev0gJSAomoCw1o6OkHoMC6eNXy/EELHmajHXF5v+kNmdP
EQFh6pqyI/kY1HL59RohARJROFOei4Htb4dvjc8JiNooP9ObisESmR0a0khA
I3gIp0LMfw+xY9YEAZY5SiduIAa09mORvhoCkg/ekmq9MCgMHi406QiQjzsF
Z7thoBvmtA1t/u+/1Fx8VA==
                  "]], 
                 Line[CompressedData["
1:eJxljHs0lAkYxke0ndMSOYpE0dHuLNIkyRm2dyu1dpM0fRZ1IlNZK8tKLmW3
jJWkOrY2upDKjGhjJmsqufS2oqZyS2MT04lZl82Oy2Dm+8bMfN/av/eP5/zO
c87veZz5CbyDc1gsVuBs/iPfN2b/j7Y69HE63F8yyWDtqIVmjqUOZfm9Fd3D
DMbywu2saApVGeLN/p0MNpoxtws0FGZobS2PPWPQ/oHI13GUQps4QY+knsHn
SyciXBUUeoUSiUvLGGQPZpf61876q2aKJ9MZzLjkvv5l1awv3B/LTmSw+6tO
2c7bFIrsWtdFRDN4SuyoirhMocz0RsvzYAaHUqWeR1MotOrZMnNjJYOi+Uqs
9Jz1s8+H7Gin0Znzec/iOyTK3rPNK1bQGMj7UOAhJDHHz6Tyqh2NaUfyd20t
JDHwytvtpxfQ2FYz2pJ8hsQOXm5e9IwRj20sRvkhEuXN/1g7dxpRzmNEF9xJ
HLgjXlIgMGJ28h8JC8RaNKR6fZrRZ8CR2i1zP6rSIMfqi01EsR6XHqqLSj07
hU2uObHKvyikX1iXTiSqUdVc5eTtrcUkMCe+I8dw2j3fE+9PYc3a1seaeyPo
dPy2t4eJGiULn961bRjCAO9x99IpFSZxr5huSFDiZf/Rjodpw8g9GRnwd6wC
OYT4l3BbJY7HGPJO5MixT9tsKXPpwZ+bCrlAPUOWYvDch6w2/LPOr+k307vI
4jlIe/dLMdJ9q5E4LwbW/PSuxuRq6A8IC4kvlsHjfpNlgrB2mJaAxM5XDhPj
dTpu41voKV0Wr+5QAEf4tjUoTAnp8XUBIdeVwN5ubaq5NwxhN1aHFp0bgrTI
NxmcByqIPvV8zvuOEagPcrQItlbDkyw3t7Mvx0DhvOh459UpiFg42GgTroa4
I25ReYu1MMV9tqE/ZQpaFFa8aBkFkgQLHf8HDRBH/YbnBepB9ZpDTqZpwOGA
rGvsGz24+hCaTIEGBoKIpq4oPYhYheqSCxpIc4m7KUzVw9Xz7BGlVANF7YV7
QKiHrOrNvXydBlQr9e0pM3rYTR5t4GdqIavzYc1guQEu7blWN5mrheCGLWUt
1QaQ4+OHmb9qwa78VX71IwPsyJl3v0SkhYqfPhwWyA3gvyRfrHyqhQ72klWO
LCOs9r17nf8xCU4n0m4SoUYwOzEk4F8kQeq2PvfJXBrik0xDoopIIFYTQrUl
Dd3fOrH3iUhQeSbWL7enoSJ4d9te6eyee2cs3YMGYkWbfbichJyA5bu8QmkQ
Nt+r3mFDQdjBeQ6l5TSY13ZmBzlQMBHjsu717zSkiMfDt7tQcDZuY5BJAw1f
X/qMtc2Lgvqk9Iy9r2iYjLkWuJWgwCVzfGDRDA2bzE8O+l2kgCp+U5m9jYEK
VkmNbxEFF0umn0pDGFiseXSGK6KAc2thnzKSgZF31BofKQX7KrdZwxEGLkji
jq+VUyCrwxSyiAGD8PROTwUFB1CRt7KMgejLt1zWDFBg9kRXvquKAa6g74XH
9Ozfi7W9kmYGRMnGa6sMFHS0Bk+/a2dgQax9oruZDuJefW9h3sNAWsR6fzdz
HZh15X7CHWBAySNsXW10UNRdBjFjDAR+mTjCdtCBj6IprID6f/8XHaihrw==

                  "]], 
                 Line[CompressedData["
1:eJwVzH1Qy3EcB/BftdqvSIvaQo9ktkoNu9A6n+9CKU89qFAceep0Zedad65M
oXZyR09KxCFLD9cateTqqNMq0+V0xXB+cTUmEon121Y/P3+8732ve9+9fVJO
xh61xjBMQOd/ewsairgBJFx1t5I6/qag0Lfv8AohCWa3saQRAwXTbvpg31AS
Drr2hj0gKDjgaO2wfDMJPc71/PNDFKz5K1J57yahxEFi5HZSUDW+57xXMgkz
dnHEjJoCuxFpgucREvbbBGu0DRS8622yLM0kgW8xl2RUUJBXuTySU0ZC14Q8
sDWDggCmwjJxgwQ/yV3/9iMU6DK5qu5qEoqnOnid+ygIjOZzTjWTkGL8tUwb
Tv/ZBen7B0lgWCVzCE8KhJkheeecTRDuIsDsXs7B550xjycum+BFiO5VfNAc
bGOc5XdfNMOwnCf9M2kBZWS67kfdLLDmmxqXiEyw/vpTzYCCAt/k/DBpixGU
KYOI/RlDyeXi52rjNBzz3u0vnrZCwpiRD+0RU/BwlKkO/2mN+prSq35cmoQo
F1vuJSsGyiqWHVrtPg5ZUcLgeswW6RxsCALXw/PaqViNyRZJ8qOyOE4fITXT
lODlwESq2i/6dbHDcGOL0BTHxFHft7CqAFkP1DcmVjyZh6Ot0dsn1/r2QJtr
tpDPwpGuJT5MpNXAa31Xxpwb7TOphki2BlgFu0Zr/XCEsS4LjyufQUHPif7Z
HTjiCd/23yE64VTEnVv3y3D0c4YwrZK1Ql5Tt2hhJe2uX7dDtWoo4hh0OTdp
FzIitrHV0PglcFFsDY68PfxKU5XNYJB3yC2PcITEUv9qQgUH+t5IYt7T+yJO
m0BWA+kCs2PHCG1FKGMnWwE51zwbuGO016VEpymroTL1qN78HUe5SY0GBXEb
hvDfe2vmaEfI1wTLymFUwjaybOxRbtqgVqIshSndhrJsJu0rHocbiCJwqssd
iGbRVh1fKZYVgKfzvbR2F9ozs4mtRC4EnO7FuYvtEXaB55woywLRp3FFkQdt
Xv3YOdkxiIpcsMnsQxvDBju/5m/8B64DZk8=
                  "]]}, {}}, {{}, {}, {}}}}, {
             ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
              PlotRangePadding -> {0.2, 0.2}}], "Dreieck"], 3 -> Tooltip[
            Graphics[{{
               GrayLevel[0.85], 
               Disk[{0, 0}, 4], 
               GrayLevel[0], 
               Circle[{0, 0}, 4]}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 RGBColor[1, 0, 0], 
                 Line[CompressedData["
1:eJwt1P8303scwHHM8lmikSaVFZWTOO6Uq5rq9b51uSjdiEunG9fuabnkS+qG
o5vcq+imk8o9F8lVvuTLzahcdc3en4qG2xdpIVadWdaaG5sZtrHPvfec+8Pz
PP+DhwsvOeyghZmZWci//ffgINsdRhcG6QUsFUVR2K/5hJpgM8hk/ao8vYHC
ni6jV1lLGWTTbW83rY7CtnrxjLc9g9ywNoSnGKXw85rshjgLBrnRLmfwcT+F
owidU98wQSK5prtYQOFD4iF1YwVB7s19Ur8hhsI5/rVl/DUEmfEsJ/GQyISP
SAz2lxdZkX0Sa9X92DncfWCp8t2ieSSbTHbYuHwWz4nqGrlOdLIloZ2+8LUB
y29pLoYyLElevrf61Y967HttnuS8NY00XsrMwzCDt7j2ep2bMSerbd84Fcmm
8PJM2x/yVWZkebB36ouzOtxT6h3Ff03h3MOx6e5Bk/hZ3O33n7bO4WxaXVrq
xwlc7f580542Iz506tnqvhoN5pT0pKR26XFp20hRabwau3C2DrLqp3Hn27UL
fncdw6o//enzmnR4PRNtDy8bxcsSWmPT8rWYXJcXPyxXYlO3fZX6iAaPdTSt
9PVV4KOwIPy76TE86fnLevyHHN/d8ITUNasw+2Str5e5DAvsHjU6tinwLt9x
zyqtFB/lFtO2JQ/j8s8/9txL78fc0zGByngp5oQ3FOxz7MXjcbMXsvIkWDnV
sbBzdTf+qf0KF2bEmCkdOf8hR4T7Wre019EaMQpbfmfo20oc4xkwF36xAUhG
5ssH31eALDAqIqmsE0iZOTs7CsOkAARL/CSgHm/Vcx90wWAVO0nTIwVOxasn
u6N6ITOpNTDit2HghNjTdM39EFX+SWTpeQWkx/Sf4rRIgZ/bZfG2RwXC3c42
e+xl8DDHwyP/rzGQuiw+2Vsih2i7kQcO+zRw+JhH7AWWArRc8TbZcS08ljLD
+J1KECTb6HkpOgjP2PLeatcoWGYpsnmF03DHY+PPD+ljkF28KsixUA9shlBZ
GaiGnZZZ7u1njcASJvjT8zTQEJQ4MFY7Bwa9RW3q8ARsKsEdT6soGAtti+5Y
MwkNvF7EUpihXp+YZWtydMBfGe7x2aQ54kcy7VylU3BLbtUcoLZAtoXvoiyd
ZyDYge52ztwSXd9ffkObrofjwT6+dWZ0FLw1K7CzzQBdNRNhHQY6uh6d6Mqd
NULcMcNXK+ZbIdX8HbR7EXNwxd/HsNeKQAHP/Xydi0xQdzPyV5E1gWa51veF
V01wd3GmjzuTQLcqB3d+XWGCvpH7SaYlBHJNz4i90mAC5pkv5TXrCGS2oiXf
qcMEZx7FP54LIZDo8Hr54gkTpH5xrexGIYE2Ee4FtrsoyBa0+9kXE0h9ZGZp
QygFBY7KgRNXCVQzJK4KiaTg5nuvRWHVBGIJ+K35PAqUucLc2RYCTUVUKuZn
UBDd2Z8SOkSgOxUrtlpVU5DIMdoI3xIo3mZcXF1PwYkidr3bOwKtThOFBTRR
UBx3cMT4N4EuBR+IOy2kQEJo91WbCJSqKblMe0GBPIU1zaQx0Lr98eyKAQom
BjYXZlox0HD75trtbyhYWHvq6R4mA4UVDYiyP1DAtqtMaHVgIMKiJshlnALP
DDHh5sRAooQ0CTlJgZ9MVVXgzEDpLwNivjFQ8L9f6H+/4B94d3dM
                  "]]}}}}, {
             ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
              PlotRangePadding -> {0.2, 0.2}}], "S\[ADoubleDot]gezahn"], 4 -> 
          Tooltip[
            Graphics[{{
               GrayLevel[0.85], 
               Disk[{0, 0}, 4], 
               GrayLevel[0], 
               Circle[{0, 0}, 4]}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 RGBColor[1, 0, 0], 
                 Line[CompressedData["
1:eJxTTMoPSmViYGCQAWIQ7eXJ5/xbkfMAAxh82J9+/PaHDYs54PwW15Xz0lQR
/MIrv4QmC7PD+adipV48EWaD8//uW7XBSpIVzn+86ePEQE4WON9sIduVXm5m
ON9G6ZJe9w9GOF+mmq+25xUDnH9hjmFE2t3/+2H88xmbn5vu/gvnL9O8aBGw
9zecbzDrQkHRyZ9wvqKB7S2x1d/h/Fe7XFnZNn6F86WzdyeW93yG8/+dElr6
ofAjnF9szxOS+f0dnL/D+OyBr1tfwfnrBY9tEN/7DM4XXKZ/S2vaE4R+q5nM
dvmP4PwK7jXHWV48hPPr7uzrPp2A4DO4nnirJ4vgN6+96D/p5gM4f969hwx7
LiL4AAP7q3M=
                  "]], 
                 Line[CompressedData["
1:eJxTTMoPSmViYGAQBWIQrcdRmf9iw4P9DGDwwf7p7oibd5Yh+Gxitzd+nYrg
u5+6n6ReguB31D0RjgxC8FUdRSzOtt+D861a4z1eZN2B80W+677ZXHkDzn+f
8ae/vuMKnN98ZLaV/Y/jcP613TZHVjFvgPPjddz+hkxcZw/jP/SICM2bdwLO
/7Lefr2E9RU4/7nWej7Wthtw/q2lcnkfL9yB8xdu/rIt/s09OH9LwtP/z5of
wPlKgjpFh6Yg+BMOFj2ZuxTB14WEH5wPAOBWeUc=
                  "]], 
                 Line[CompressedData["
1:eJxTTMoPSmViYGCQBWIQPffeQ4Y9Fx/YM4DBh/1ezb1ruV8i+GpPpCYd4noI
599fahpt4Ifgz0gPUJk3EcHnet26rVLiEZxfnbfbI3Q+gp/V/vV8xbQncH7E
Av3wOb3P4Py09pNM9y+8gvMPt2hr95x+B+fHCT49JBL5Ec7/bHXc7mHZZzh/
fT7vz6SCr3A+S/2zxqQp3+H8xpnKnuJTfsL53iz1mkc6f8P56zxzb7xb+RfO
t5i1/+i5pf8R8kmXHMSeMTjA3asQou34hRHO3/SYfavbByY430uEVa2bkQXO
L/MyMVvFwArnn1zxKejoLwQ/o+RXmDwXO5w/29XkVzA7B5xf5L5w3vIpCL6X
J5/zb0VOOB8AZ16epA==
                  "]]}, {}}, {{}, {}, {}}}}, {
             ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
              PlotRangePadding -> {0.2, 0.2}}], "Puls"], 5 -> Tooltip[
            Graphics[{{
               GrayLevel[0.85], 
               Disk[{0, 0}, 4], 
               GrayLevel[0], 
               Circle[{0, 0}, 4]}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 RGBColor[1, 0, 0], 
                 Line[CompressedData["
1:eJxTTMoPSmViYGAwBWIQ7eXJ5/xbkfMAAxRYb635wCGH4Osovp4rJoXg8/08
/sNQCMG/uKJxXQYTgh/B8VXy2iMOOD/9+O0PGxYj+C2uK+elqSL4hVd+CU0W
ZofzT8VKvXgizAbn/923aoOVJCuc/3jTx4mBnCxwvtlCtiu93Mxwvo3SJb3u
H4xwvkw1X23PKwY4/8Icw4i0u//3w/jnMzY/N939F85fpnnRImDvbzjfYNaF
gqKTP+F8RQPbW2Krv8P5r3a5srJt/ArnS2fvTizv+Qzn/zsltPRD4Uc4v9ie
JyTz+zs4f4fx2QNft76C89cLHtsgvvcZQr3VTGa7/EdwvlVrvMeLrDtw/vuM
P/31HVfg/OYjs63sfxyH81+cs5ycugPB97t5/XV3BYIv9U547o0fx+D8DeI9
/wt/HoXz72bVHFny6zCcn6e0a47Ir/1wvqX5N9/EKgSfxcfo/9pf++D82aWr
Et1/74XzT5yYpVb1Zzecr5RfveH+v+1w/rXdNkdWMW+A82Uqk+594lkP5/dU
eZtMEFoH52fXyj44JbsGztdqPmjuYLICzl/Zx/lcK3EBnG+k8LRywtl5cL6Q
8nbV0zfmwPkXNaJrHd7PgPMDTBbraMtMhPMvbDHZzJEQjpMPAE605pU=
                  "]], 
                 Line[CompressedData["
1:eJwVlnk0VusfxQl53VwhkUYkmdLArS5qHyUpypjkukiaDYVGpUhEEpKhDIUo
MmXqGirJVJLIEA3GZJ5e7/y+53d+f5x11met86znrP3s/X22squX9dF5QkJC
E9Tz/3fShV3DlolHkDItnmeR6APLfIeabY/PYnDfEj39xwH4nC4rb+N7Ccab
rA6Z+obimflR3aK062iwkdV7mhaJEZOq7u13giArW0Oo34nBaYNL2rYu4cgI
YGcvcUnEy+DnpbbtSbhfY0Ij2nLgrG3Ct43Kxclmp5V54a9gGJ8RwXiUh5nB
r2ebH76GZKCItLl9Pv5Q+uXle+ANhsePPB4/XoDge9Nj/m5VSK1RfbchpBDl
0jeYBwOrIXcuQ6K0phTmtXJ0VkUdeMO27w8rv0Hrulnaeflm9JraH/BMrsfg
IiXDJxc6Qc9D3hKDLzi89oWqyWA/up6s9Jxu/oaF71Oe6XWNws+z3PRASh8e
XtpQXB07DftH6w8m3vmFTZFp9o7ldBwLaZj3s3kEW+7I9Ks1MOG48HRpQ88I
LFKqyxpambCKk3QvmhrBh0mbnGM/mDDMtGgLlR7FR97dzohZJmTr2jL1LEdh
FG0uiFvBQuX8PvOwT6PQ0HTdcfsMC3LBnNi/msZgnuTW0S/DRnWQllb4hwlI
N9gFthpxoE/ef6TWPYFtJSIPyvdy8OKSkHzVyAR0fxw7m2TDQapnmxBDYhKJ
3T/s9h/lIND+Wruz6STOj36ucrvFwQ7t1gDdmkkE7o80cf3IQc/Jbe4ezlPw
PsxrjrLmYnnmTIb+8SlsDl08mOPAhf1AZq+41xRuxhperHblotlJ9mCq/xQG
C8Tkur25eGMzZNSRNIXooUVj5dFcpGyLUjD6NoWOT2UXdnzmwklm8K3coWls
2WW03G4PD6IPvtBvH55GamX3J0MrHrJU3qmJnJoGXWph7LJDPDB108KmL09D
2c7bquoED5F2h62bEqfhWTp/d04ID9UPv/eG9Ewjx+Wemdg7HtTV2oW4x2dg
RwtXztzMR1NuzSbvMzN4e7xFKnwbH+e2FLsNX5yBmXpY4wljPt6axtR3hM5g
+8ijAglrPv45bR1ZlD2D2uaN47/d+YjIb1rlOTkDNaXUkGWP+ZjVr9vee34W
v1abFxiLCFBrk7+rzn8WeypiZstpAsS7J5jnBM/iapTSgJaUANuTTztcip1F
w8+S93NLBAgTlj4vUzILoSi90I06AqjU2+cYzc3iyzra890HBbA6MLIs1YeO
ppSFY4NpAqh6tqrc8qNDN9/k1pmnAjCCKzQ8b9CR4duWPftcgMSXEVv079GR
O3g/qL9YgN/LdG1aXtChLW3mdLJOgOt9fmHzZuhgFzbUSA4LkOf1J9v1zBxs
Ul2ds9VIjLVuYM5cnAPRsGF+tCYJza22c4EBczg2Nu+Nlw6JdKGH06nRcwgd
3X1CejOJB1HqI31Fc+j3mXP/ZUwiqHBntyt7DmEnzR0HXEi8VTj+dUaYgTVM
+SIDNxKkX1hH4B8M7Bo6LBV2nMRl48+tqcsYkGUU1C7wJOHV5tTYt42BcTMH
7bTLJByYlypdAxlYKAkx5WgScf8klc+EMTAct1jxdwyJL6/f/Bd4jwFbvp9y
RhwJi1viJanpDNwrbJcUTyJhrHg/t6+WAZXwk1sdM0kEXn353PsTAymB1t1d
z0i87u3OmtfJgIHfB3fL5yT0s1QyVYYZ8GxPtlcqILHeID/FdQETOj4lhE0Z
CfeU1qSZRUyEhrOMQytIZIkwHwYuZ0Jd7OymklckVBu3xaeuY0IzP7SW/pbE
0n8/RPZZMHFCIvyt6AcSotd+BbjGMPH3stnbXl9JePqIHDicyISR5ENLVheJ
zuNK6i7pTBjMdStd+kbiuaVD079FTHibZ/W5/iRhq9K09NAXJtY88eltHyDx
Sn50/OA3JsZFmlmrfpFQX0CrshtgwnkHb8nhIRK8WaPjtnQmyhJuen8YJpFW
U1xoIcfCoteLAokJEpJlLcH7l7MwbpDQsWeSxPncyUP7VFmQ+ZiuazZFYm+c
hpCZHgvpihaCv2ZIFN02ad1jyMI5Ex/3VbMkVl4/kmFqTPEp9R4hOomZE0nm
JrYsJLkd68ieI+H4b9mqXY4s2CYGOZxjkKi16pjZ6caCZ4RT32Ym5R99mQQj
XxaWWwWTj1mUPut13Ikr1P7nLsWYsSl9VpsBQSzs5nivG6d4h+TNQcMYFo5X
fj21hEvpI5T60iCRhRkjnlQqxfJzr27rp1NzsvhuyWoeievD3U5/P2fBo8Tn
cBLFI99ZG7cWsaA3ELpwIZ/Ss2Wx2JYKFrZ3F7+5SPGr2k2df71jQWTLd98u
itXLLbL1GlnIjBrS0hOQiM5z99f9wgL/xqvBmxTz0kKtNn1jIfrJvtRPFB+L
z1DdOMDC8/DAwzIkiebwaub6MRasm8xXm1GsH9DzXofOgqUgaegKxenn+Enr
eCz8nXcyN4NiqVNLz2qLsuHh/eRCPcUXnbYYa0myId9purOP4j5rWwVNOTZ0
vfbJ0Ck23312RH05G5E1ub18iksMIirXqrLRdPxUEUmx0obsSDVtNlx6r4Wy
KQ5TrT+yRo+N8Iopl1GK6UsGN6saUvsFvtFvo9jpz3l/rDZmY7yMLl9Kcb3w
qu/K5mw0jMXMRVK8iWGQr2RLrU/KanelOHHE/sYqRzbuWBmVaVM8/+c5u5Vu
1Prbxx5NUHqcaY3WWOHOxr0mjdCnFHfV5fGW+bKx9kGirwPFxhWNn5ZeYUPG
s8VVlOLc/OFUxSA2ztb32GRQ+gckrN6jEMNGxLyh7S3U+WmLP+GNP2TD3VUo
yYniTl+1/HdpbHTUVOzrp85fx1JDwbuQDaGW2Mw2DomvlVnvTcvZMNWds9xJ
cZCWtv+qajZUJC7ue0b5qWv++sHGFjb86q4TTpT/bvrmx6d1sWG7xm5LDuXP
DX0bzS/3sXG4byKATvk3pFKvcO0MGwsyVyxyp/yt56sfECjDgeSLSk1ymsTP
3nK9Q4ocOFyZeCdNcZjFtt/rlTlgfb9YtJTKU48mYfF9Awe5frdiFKj83end
tWKrJQcXS644F1P53GpR1yxlz0HDhF126G8SAxWmQYPOHDwqi91vR+VZP95s
NNqLgzyOV2Inlf9f+63+G4/goOCmlFMANR+iKlrc38VyMDlwx2PJDxKGmrZK
D5M5iLxIb8+k5km02MEQ01wOMNP1Mo+aP6hwPJBG3fP/Da+rPtJK5UPjB+1y
GwcjHzjZlZ9JxMY5V1h+p3qCcMb0wmbqfvB2XS0Y42Bf01/3kxpJxGucmLaX
pHqBE8P03xoSO+OG09fLcVFyzk31cjWJCdHT9vOXc2FnucLlbhWJXT0erwu1
uLCwMOWkVlLzItbnjpQZF5qDnbWexSTMRK9pvAvlIn7p3Y0JaSRcKvW/GFO9
gU+UlNIeU/PpPMO/5gEX0jC28Eomkfrb40ttNhchY8HFygkkWI2O1xo+cmHo
1OqzLILK1339tiYZHrStdE4eOU+ibD/jmsVSHvQ+Ohwx9iHxSfyFZrMKD27N
XX7Lz5DgXNK4/lmXB//QEwtenCRh6bRE68sBHgJGzV95O1J5V2Nc/5rAg6KI
sKkZQUK2p0DLIZWHnv0tccmGJNYmeLR3ZfHQ2nF08fBWEtYLBrW+lfMgljc/
+chGEk8nW9t/fOfh9iYlkUllEgdeFmgPKPMxOuYs5yJM+X+PR+fEMz46PoZF
F/4nwFS0iv2PAj7qCrICCOo+3/Sto+Pjf3yc9RDrr8kXoMRzR8fzBj46/duE
yjIFeH1Pof3UMB/TV3Xqd98XoPl7VesvdQGK8syCOZ4CzJ6V//SD+q7h+YE1
NcsF2Fz+YX9TngB7GlemuioIcFE0oKmyVIA2WVYpS0YAXuzox0SqN6RGbyiS
EhdAtOJNo8MQ1RuSz8n1TfEhP//0+3aqN0zWr3m6tpqPrQ9e1zQ9ITE99EBx
qysfAzp5hidyKd80Fa53+4ePqOrkQuFSqhdMtbwPseVjZOzqY716Eoqti+KL
TfhIhOHVByMkhm68rM3W5OO6t+PSQgUhIkLUapvoNA+DCl8/+zsKEb9eLj7g
e4GHXNcWQv6XEHHCeVz302kunpy8MrZ/RIi4s+fyRoUjXCSeUYsPmRAixDm9
EQepvhrmf3mSxRAiptfP86ky5eLoA5XkbnFhYlaBWKO/hvJxizf3kYYw8S/d
06nqGwdhRotKtDyEiZzmf5hbTTg4pmSrZUQXJkaOvFN2FWHjRb94scnUPCJ6
1x97PzozsFdOTO22sCihXbnuVIXyLM7v1ducJSRGDHqX1VTHTaLh6Yx1DUeM
SCy1Lau79xsnfDl2q/4QJy787KxTiujBw116HBtxGpF+wfHpisTPyMo5GPdq
AY0onu+is8LuM14u9tPTkKYRNSMfTitIf0b7YJWnYAmNkBQ3cOXdaIZ0sEX/
U00acfX8O7XFHU0Irj3VyN9HI26NyJ+/7/Me3rsfJ2fG0AiaZ/KfPRlVCMh7
ZyCbQCMsv3Z0/1SsQqTC784rSTRCMajNpyv8DXKGdBZZZ9CIyCBZh4DBV/gd
UhHCK6X+54rOVPaVMjjVd5yx6qYRA1n31e49K4DHBu6fFT9phKq7l7nc3Xxc
iV+ZrTZAI0qjixqVhnORcOLoIHeMRqzbm5A055+FL7TZQxkCGlG5K6VsZ9Zj
9J+RZ0qLSBArNfYaSI8kY6bz7xg/cQlijO56/+61B1j47HqTpbQEEdY+dPxC
VhRWyqSfLpeTIOJkfqrUXAuD9qU6mpqiBKGdcc71XlYADHpHnkSukCBWpHhc
e5l1Fnv3SO3kKksQ4fEmTf1/RW3/H4sY1G0=
                  "]]}, {}}, {{}, {}, {}}}}, {
             ImageSize -> 40, PlotRange -> {{-4, 4}, {-4, 4}}, 
              PlotRangePadding -> {0.2, 0.2}}], 
            "Halbschwingung"]}}, {{$CellContext`n$$, 5, "Ordnung"}, 0, 9, 1, 
         AppearanceElements -> All}}, 
      "Options" :> {ControlPlacement -> Bottom, FrameLabel -> {{"", ""}, {"", 
           Style["Fourierreihen", 18, Bold]}}}, "DefaultOptions" :> {}],
     ImageSizeCache->{461., {243., 248.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`f = $CellContext`squareWave, \
$CellContext`squareWave[
         Pattern[$CellContext`x, 
          Blank[]]] := 
       Sign[$CellContext`x/(2 Pi) - 
         Round[$CellContext`x/(2 
          Pi)]], $CellContext`functions = {$CellContext`squareWave, \
$CellContext`triangle, $CellContext`sawtooth, $CellContext`pulse, \
$CellContext`alternation}, $CellContext`triangle[
         Pattern[$CellContext`x, 
          Blank[]]] := $CellContext`auxTriangle[
         Mod[$CellContext`x - Pi/2, 2 Pi]], $CellContext`auxTriangle[
         Pattern[$CellContext`x, 
          Blank[]]] := Piecewise[{{1 - 2 ($CellContext`x/Pi), 
           Inequality[0, LessEqual, $CellContext`x, Less, Pi]}, {-3 + 
           2 ($CellContext`x/Pi), 
           Inequality[
           Pi, LessEqual, $CellContext`x, Less, 2 
            Pi]}}], $CellContext`sawtooth[
         Pattern[$CellContext`x, 
          Blank[]]] := 
       Mod[$CellContext`x + Pi, 2 Pi]/Pi - 1, $CellContext`pulse[
         Pattern[$CellContext`x, 
          Blank[]]] := $CellContext`auxPulse[
          Mod[$CellContext`x, 2 Pi]] - 1/2, $CellContext`auxPulse[
         Pattern[$CellContext`x, 
          Blank[]]] := Piecewise[{{1, 
           Inequality[0, LessEqual, $CellContext`x, Less, Pi/6]}, {0, 
           Inequality[Pi/6, LessEqual, $CellContext`x, Less, 2 Pi - Pi/6]}, {
          1, 
           Inequality[
           2 Pi - Pi/6, LessEqual, $CellContext`x, Less, 2 
            Pi]}}], $CellContext`alternation[
         Pattern[$CellContext`x, 
          Blank[]]] := $CellContext`auxAlternation[
         Mod[$CellContext`x, 2 Pi]], $CellContext`auxAlternation[
         Pattern[$CellContext`x, 
          Blank[]]] := Piecewise[{{
           Sin[$CellContext`x], 
           Inequality[0, LessEqual, $CellContext`x, Less, Pi]}, {0, 
           Inequality[
           Pi, LessEqual, $CellContext`x, Less, 2 
            Pi]}}], $CellContext`fs = (-1)/3 + 
        Cos[$CellContext`x]/Pi + (Sqrt[3] Cos[2 $CellContext`x])/(2 
         Pi) + (2 Cos[3 $CellContext`x])/(3 
         Pi) + (Sqrt[3] Cos[4 $CellContext`x])/(4 
         Pi), $CellContext`fourierseriesFromList[
         Pattern[$CellContext`fList, 
          Blank[]], 
         Pattern[$CellContext`n, 
          Blank[]]] := Total[
         Part[$CellContext`fList, 
          Span[1, $CellContext`n + 1]]], $CellContext`fourierseriesList = {{
         0, (4 Sin[$CellContext`x])/Pi, 0, (4 Sin[3 $CellContext`x])/(3 Pi), 
          0, (4 Sin[5 $CellContext`x])/(5 Pi), 0, (4 Sin[7 $CellContext`x])/(
          7 Pi), 0, (4 Sin[9 $CellContext`x])/(9 Pi)}, {
         0, (8 Sin[$CellContext`x])/Pi^2, 0, ((-8) Sin[3 $CellContext`x])/(9 
          Pi^2), 0, (8 Sin[5 $CellContext`x])/(25 Pi^2), 
          0, ((-8) Sin[7 $CellContext`x])/(49 Pi^2), 
          0, (8 Sin[9 $CellContext`x])/(81 Pi^2)}, {
         0, (2 Sin[$CellContext`x])/
          Pi, -(Sin[2 $CellContext`x]/Pi), (2 Sin[3 $CellContext`x])/(3 Pi), -
          Sin[4 $CellContext`x]/(2 Pi), (2 Sin[5 $CellContext`x])/(5 Pi), -
          Sin[6 $CellContext`x]/(3 Pi), (2 Sin[7 $CellContext`x])/(7 Pi), -
          Sin[8 $CellContext`x]/(4 Pi), (2 Sin[9 $CellContext`x])/(9 
          Pi)}, {(-1)/3, Cos[$CellContext`x]/
          Pi, (Sqrt[3] Cos[2 $CellContext`x])/(2 
          Pi), (2 Cos[3 $CellContext`x])/(3 
          Pi), (Sqrt[3] Cos[4 $CellContext`x])/(4 Pi), Cos[5 $CellContext`x]/(
          5 Pi), 0, -Cos[7 $CellContext`x]/(7 
          Pi), -(Sqrt[3] Cos[8 $CellContext`x])/(8 
          Pi), ((-2) Cos[9 $CellContext`x])/(9 Pi)}, {
         Pi^(-1), Sin[$CellContext`x]/2, ((-2) Cos[2 $CellContext`x])/(3 Pi), 
          0, ((-2) Cos[4 $CellContext`x])/(15 Pi), 
          0, ((-2) Cos[6 $CellContext`x])/(35 Pi), 
          0, ((-2) Cos[8 $CellContext`x])/(63 Pi), 
          0}}, $CellContext`functionStrings = {
        "Rechteck", "Dreieck", "S\[ADoubleDot]gezahn", "Puls", 
         "Halbschwingung"}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.44593199975*^9, 3.453358342296875*^9}]
}, {2}]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{815, 922},
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, 192, 3, 83, "Title"],
Cell[CellGroupData[{
Cell[784, 29, 74, 1, 27, "Subsubsection"],
Cell[861, 32, 684, 19, 31, "Input"],
Cell[1548, 53, 706, 19, 31, "Input"],
Cell[2257, 74, 562, 17, 31, "Input"],
Cell[2822, 93, 585, 17, 31, "Input"],
Cell[3410, 112, 850, 26, 31, "Input"],
Cell[4263, 140, 971, 27, 31, "Input"],
Cell[5237, 169, 687, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[5949, 188, 305, 8, 31, "Input"],
Cell[6257, 198, 3557, 63, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9851, 266, 254, 6, 31, "Input"],
Cell[10108, 274, 660, 23, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10805, 302, 196, 4, 31, "Input"],
Cell[11004, 308, 389, 5, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11442, 319, 119, 2, 21, "Subsubsection"],
Cell[11564, 323, 2948, 67, 272, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[14549, 395, 160, 2, 21, "Subsubsection"],
Cell[14712, 399, 5562, 162, 389, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[20311, 566, 122, 2, 21, "Subsubsection"],
Cell[CellGroupData[{
Cell[20458, 572, 6791, 139, 512, "Input"],
Cell[27252, 713, 37528, 699, 508, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
