(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     16126,        502]
NotebookOptionsPosition[     14912,        453]
NotebookOutlinePosition[     15257,        468]
CellTagsIndexPosition[     15214,        465]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Expressions", "Title",
 CellChangeTimes->{{3.448097725640625*^9, 3.4480977285625*^9}}],

Cell[CellGroupData[{

Cell["Forms", "Subsection",
 CellChangeTimes->{{3.46038016759375*^9, 3.460380168328125*^9}, {
  3.460380217734375*^9, 3.46038022915625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], "^", "3"}], "-", " ", 
   RowBox[{"2", 
    RowBox[{"Sin", "[", "z", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448096389609375*^9, 3.44809641609375*^9}, {
   3.448097744984375*^9, 3.448097751953125*^9}, 3.448097786*^9, 
   3.448100301109375*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Plus", "[", 
    RowBox[{
     RowBox[{"Power", "[", 
      RowBox[{
       RowBox[{"Plus", "[", 
        RowBox[{"x", ",", 
         RowBox[{"Times", "[", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "y"}], "]"}]}], "]"}], ",", "3"}], "]"}], 
     ",", 
     RowBox[{"Times", "[", 
      RowBox[{
       RowBox[{"-", "2"}], ",", 
       RowBox[{"Sin", "[", "z", "]"}]}], "]"}]}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.448097760203125*^9, 3.4480977955*^9, 3.44809783228125*^9, {
   3.448097943484375*^9, 3.44809798359375*^9}, {3.448098018125*^9, 
   3.4480980254375*^9}, 3.448098163453125*^9, 3.448100316421875*^9, 
   3.448100442*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TraditionalForm", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], "^", "3"}], "-", " ", 
   RowBox[{"2", 
    RowBox[{"Sin", "[", "z", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448096389609375*^9, 3.44809641609375*^9}, 
   3.448097744984375*^9, 3.4480977869375*^9, {3.4480978983125*^9, 
   3.4480979009375*^9}, 3.448100303421875*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], "3"], "-", 
   RowBox[{"2", " ", 
    RowBox[{"sin", "(", "z", ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.4480977601875*^9, 3.448097795484375*^9, 3.448097832265625*^9, 
   3.4480979059375*^9, {3.4480979435625*^9, 3.44809798365625*^9}, {
   3.448098018171875*^9, 3.448098025515625*^9}, 3.448098163515625*^9, 
   3.448100316484375*^9, 3.448100442015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TreeForm", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], "^", "3"}], "-", " ", 
   RowBox[{"2", 
    RowBox[{"Sin", "[", "z", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448096389609375*^9, 3.44809641609375*^9}, 
   3.448097744984375*^9, 3.4480977869375*^9, 3.448100302*^9}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsComplexBox[{{1.7126976771553506`, 3.425395354310701}, {
    0.8563488385776753, 2.569046515733026}, {0.42817441928883765`, 
    1.7126976771553506`}, {0., 0.8563488385776754}, {0.8563488385776753, 
    0.8563488385776754}, {0.42817441928883765`, 0.}, {1.284523257866513, 
    0.}, {1.284523257866513, 1.7126976771553506`}, {2.569046515733026, 
    2.569046515733026}, {2.140872096444188, 1.7126976771553506`}, {
    2.9972209350218635`, 1.7126976771553506`}, {2.9972209350218635`, 
    0.8563488385776754}}, {
     {RGBColor[0.55, 0.45, 0.45], 
      LineBox[{{1, 2}, {1, 9}, {2, 3}, {2, 8}, {3, 4}, {3, 5}, {5, 6}, {5, 
       7}, {9, 10}, {9, 11}, {11, 12}}]}, {
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox["Plus", "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 1],
        TagBox[
         RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
              RowBox[{"x", "-", "y"}], ")"}], "3"], "-", 
           RowBox[{"2", " ", 
             RowBox[{"Sin", "[", "z", "]"}]}]}], HoldForm]],
       Annotation[#, 
        HoldForm[($CellContext`x - $CellContext`y)^3 - 2 Sin[$CellContext`z]],
         "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox["Power", "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 2],
        TagBox[
         SuperscriptBox[
          RowBox[{"(", 
            RowBox[{"x", "-", "y"}], ")"}], "3"], HoldForm]],
       Annotation[#, 
        HoldForm[($CellContext`x - $CellContext`y)^3], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox["Plus", "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 3],
        TagBox[
         RowBox[{"x", "-", "y"}], HoldForm]],
       Annotation[#, 
        HoldForm[$CellContext`x - $CellContext`y], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox[
           TagBox["x",
            HoldForm], "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 4],
        TagBox["x", HoldForm]],
       Annotation[#, 
        HoldForm[$CellContext`x], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox["Times", "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 5],
        TagBox[
         RowBox[{"-", "y"}], HoldForm]],
       Annotation[#, 
        HoldForm[-$CellContext`y], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox[
           TagBox[
            RowBox[{"-", "1"}],
            HoldForm], "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 6],
        TagBox[
         RowBox[{"-", "1"}], HoldForm]],
       Annotation[#, 
        HoldForm[-1], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox[
           TagBox["y",
            HoldForm], "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 7],
        TagBox["y", HoldForm]],
       Annotation[#, 
        HoldForm[$CellContext`y], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox[
           TagBox["3",
            HoldForm], "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 8],
        TagBox["3", HoldForm]],
       Annotation[#, 
        HoldForm[3], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox["Times", "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 9],
        TagBox[
         RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"Sin", "[", "z", "]"}]}], HoldForm]],
       Annotation[#, 
        HoldForm[(-2) Sin[$CellContext`z]], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox[
           TagBox[
            RowBox[{"-", "2"}],
            HoldForm], "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 10],
        TagBox[
         RowBox[{"-", "2"}], HoldForm]],
       Annotation[#, 
        HoldForm[-2], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox["Sin", "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 11],
        TagBox[
         RowBox[{"Sin", "[", "z", "]"}], HoldForm]],
       Annotation[#, 
        HoldForm[
         Sin[$CellContext`z]], "Tooltip"]& ], 
      TagBox[
       TooltipBox[InsetBox[
         FrameBox[
          StyleBox[
           TagBox["z",
            HoldForm], "StandardForm", "Output",
           StripOnInput->False,
           FrontFaceColor->GrayLevel[0],
           BackFaceColor->GrayLevel[0],
           GraphicsColor->GrayLevel[0],
           FontSize->Scaled[0.05],
           FontColor->GrayLevel[0]],
          Background->RGBColor[1., 1., 0.871],
          FrameStyle->GrayLevel[0.5],
          StripOnInput->False], 12],
        TagBox["z", HoldForm]],
       Annotation[#, 
        HoldForm[$CellContext`z], "Tooltip"]& ]}}],
   Annotation[#, 
    VertexCoordinateRules -> {{1.7126976771553506`, 3.425395354310701}, {
     0.8563488385776753, 2.569046515733026}, {0.42817441928883765`, 
     1.7126976771553506`}, {0., 0.8563488385776754}, {0.8563488385776753, 
     0.8563488385776754}, {0.42817441928883765`, 0.}, {1.284523257866513, 
     0.}, {1.284523257866513, 1.7126976771553506`}, {2.569046515733026, 
     2.569046515733026}, {2.140872096444188, 1.7126976771553506`}, {
     2.9972209350218635`, 1.7126976771553506`}, {2.9972209350218635`, 
     0.8563488385776754}}]& ],
  AspectRatio->1,
  FrameTicks->Automatic,
  ImageSize->{Automatic, 165.00000000000006`},
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.448096393078125*^9, 3.448096417328125*^9}, 
   3.44809776025*^9, 3.448097795546875*^9, 3.448097832328125*^9, {
   3.448097943546875*^9, 3.448097983640625*^9}, {3.448098018171875*^9, 
   3.4480980255*^9}, 3.4480981635*^9, 3.44810031646875*^9, 
   3.448100442078125*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Head", "Subsection",
 CellChangeTimes->{{3.46038016759375*^9, 3.460380168328125*^9}, {
  3.460380200171875*^9, 3.460380200828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Head", "[", "x", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "implizite", " ", "Deklaration", " ", "des", " ", "Symbols", " ", "x"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.460379857296875*^9, 3.460379883578125*^9}}],

Cell[BoxData["Symbol"], "Output",
 CellChangeTimes->{3.460380329125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "2"}], ";", 
  RowBox[{"Head", "[", "x", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "das", " ", "Symbol", " ", "x", " ", "bekommt", " ", "den", " ", "Wert", 
    " ", "2", " ", "zugewiesen"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.460379857296875*^9, 3.4603799259375*^9}}],

Cell[BoxData["Integer"], "Output",
 CellChangeTimes->{3.46038032915625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"2", "a"}], "+", "b"}], "]"}]}], ";", 
  RowBox[{"Head", "[", "x", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"das", " ", "Symbol", " ", "x", " ", "bekommt", " ", 
    RowBox[{"f", "[", 
     RowBox[{
      RowBox[{"2", "a"}], "+", "b"}], "]"}], " ", "zugewiesen"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.460379857296875*^9, 3.4603799259375*^9}, {
   3.460380030359375*^9, 3.460380036171875*^9}, 3.46038008853125*^9}],

Cell[BoxData["f"], "Output",
 CellChangeTimes->{3.460380329171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=."}], ";", 
  RowBox[{"Head", "[", "x", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "der", " ", "Inhalt", " ", "des", " ", "Symbols", " ", "x", " ", "wird", 
    " ", "gel\[ODoubleDot]scht"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.460379857296875*^9, 3.4603799259375*^9}, 
   3.460380025984375*^9, {3.460380103171875*^9, 3.4603801203125*^9}}],

Cell[BoxData["Symbol"], "Output",
 CellChangeTimes->{3.4603803291875*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{660, 750},
WindowMargins->{{Automatic, 88}, {39, 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, 92, 1, 83, "Title"],
Cell[CellGroupData[{
Cell[684, 27, 140, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[849, 33, 372, 10, 31, "Input"],
Cell[1224, 45, 797, 25, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2058, 75, 401, 10, 31, "Input"],
Cell[2462, 87, 485, 12, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2984, 104, 342, 9, 31, "Input"],
Cell[3329, 115, 9391, 256, 180, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12769, 377, 140, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[12934, 383, 269, 7, 31, "Input"],
Cell[13206, 392, 72, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13315, 398, 332, 8, 31, "Input"],
Cell[13650, 408, 75, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13762, 414, 526, 14, 31, "Input"],
Cell[14291, 430, 70, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14398, 436, 398, 9, 31, "Input"],
Cell[14799, 447, 73, 1, 30, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
