(* 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[      2406,         93]
NotebookOptionsPosition[      1904,         70]
NotebookOutlinePosition[      2249,         85]
CellTagsIndexPosition[      2206,         82]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Mathematica Code Layout Beispiel", "Title",
 CellChangeTimes->{{3.433749150671875*^9, 3.43374915090625*^9}, 
   3.433749810171875*^9, {3.4338543140625*^9, 3.433854314359375*^9}, {
   3.443763360453125*^9, 3.443763362625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"\[Omega]", " ", "t"}], " ", "+", " ", "\[Phi]"}], "]"}], ",", 
   "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.443763385390625*^9, 3.443763428625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"t", " ", "\[Omega]"}], "]"}]}], "\[Omega]"]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", " ", "\[Omega]"}], "]"}]}], "\[Omega]"]}]], "Output",
 CellChangeTimes->{3.4437634315*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.443763500671875*^9, 3.443763510921875*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"Cos", "[", 
    RowBox[{"\[Phi]", "+", 
     RowBox[{"t", " ", "\[Omega]"}]}], "]"}], "\[Omega]"]}]], "Output",
 CellChangeTimes->{3.443763511703125*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{733, 922},
WindowMargins->{{69, Automatic}, {Automatic, -1}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 231, 3, 83, "Title"],
Cell[CellGroupData[{
Cell[823, 29, 256, 7, 31, "Input"],
Cell[1082, 38, 418, 13, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1537, 56, 127, 2, 31, "Input"],
Cell[1667, 60, 209, 6, 47, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
