(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    319571,       8332]
NotebookOptionsPosition[    266852,       7635]
NotebookOutlinePosition[    267488,       7658]
CellTagsIndexPosition[    267445,       7655]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Einf\[UDoubleDot]hrung in Mathematica", "Title",
 CellChangeTimes->{{3.529736694722261*^9, 3.5297367195705547`*^9}, 
   3.529773051349444*^9},ExpressionUUID->"26c95577-b717-4594-871c-\
fded58151949"],

Cell[TextData[{
 "Dieses ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Notebook ist dazu gedacht, Sie mit der Arbeitsweise dieses \"Systems\" an \
sich und den grundlegendsten Funktionen vertraut zu machen. Hierbei werden \
anhand einfacher Beispiele und ohne Anspruch auf Vollst\[ADoubleDot]ndigkeit \
verschiedene M\[ODoubleDot]glichkeiten demonstriert ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " einzusetzen. \n\nWichtig: Versuchen Sie alle Beispiele nachzuvollziehen! \n\
\n",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "ist mit umfangreichen Paketen und Funktionen ausgestattet und daher f\
\[UDoubleDot]r viele verschiedene Anwendungszwecke einsetzbar. Vielleicht \
kann gerade deswegen der Einstieg in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " recht schwer fallen. Daher sollten Sie bei Unklarheiten der Funktionsweise \
von Befehlen oder bei solchen, die hier nicht vorgestellt werden die  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Dokumentation, bzw. Hilfefunktion bem\[UDoubleDot]hen.\n"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297367642392406`*^9, 3.529736766786724*^9}, {
   3.5297368439613132`*^9, 3.529736924831789*^9}, {3.529736960434835*^9, 
   3.529736993799666*^9}, {3.529737026431807*^9, 3.529737186522756*^9}, {
   3.529737217683305*^9, 3.529737291426849*^9}, {3.5297373417020607`*^9, 
   3.52973752316285*^9}, {3.529737565582078*^9, 3.529737613877935*^9}, {
   3.529737728488254*^9, 3.529737732753344*^9}, {3.529737847641294*^9, 
   3.529737949791535*^9}, {3.529737987304834*^9, 3.529738208312291*^9}, {
   3.529741160557745*^9, 3.529741183249587*^9}, 3.529773051349903*^9, {
   3.685337497716714*^9, 3.685337507239153*^9}, {3.712560923213891*^9, 
   3.712560970645604*^9}, 
   3.74635299889708*^9},ExpressionUUID->"6d83e001-7c8f-4360-bf30-\
0e0d385549ea"],

Cell["Zun\[ADoubleDot]chst Grundlegendes:", "ItemParagraph",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529738459049155*^9, 3.52973846264318*^9}, {
   3.529739016087378*^9, 3.529739018974525*^9}, {3.529762446929366*^9, 
   3.529762451756379*^9}, 3.5297730513501997`*^9},
 FontWeight->"Bold",ExpressionUUID->"9d2d15bd-f6e8-4ea8-9d01-523797f88108"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Befehle werden nach Eingeben durch ",
 StyleBox["[SHIFT] + [ENTER]",
  FontWeight->"Bold"],
 " ausgef\[UDoubleDot]hrt."
}], "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529738245520091*^9, 3.529738305128664*^9}, {
   3.529738381855735*^9, 3.52973839414126*^9}, {3.529738736308807*^9, 
   3.529738736311892*^9}, {3.529738891469797*^9, 3.5297389012423983`*^9}, 
   3.529739424142115*^9, {3.5297405222072697`*^9, 3.529740548265975*^9}, {
   3.5297483668571787`*^9, 3.529748366861474*^9}, 
   3.529773051350425*^9},ExpressionUUID->"b18806a0-d5e2-4c2c-85bd-\
3f75ca173872"],

Cell[TextData[{
 "Kommazahlen werden mit einem \[OpenCurlyDoubleQuote]",
 StyleBox[".", "Input"],
 "\[OpenCurlyDoubleQuote] eingegeben (z.B. 3.1415927)."
}], "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297483677758207`*^9, 3.529748404529604*^9}, 
   3.529773051351486*^9, {3.685337563258217*^9, 3.6853376010954103`*^9}, {
   3.910536759019022*^9, 3.9105367590221643`*^9}, {3.9105383094973183`*^9, 
   3.91053831153043*^9}},ExpressionUUID->"00da020b-d4c0-4ff4-bfab-\
0c4c561c9bba"],

Cell[TextData[{
 "In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " werden Klammern folgenderma\[SZ]en verwendet: [] f\[UDoubleDot]r Argumente \
von Funktionen, {} f\[UDoubleDot]r Listen und () um Ausdr\[UDoubleDot]cke zu \
klammern."
}], "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297483677758207`*^9, 3.529748404529604*^9}, 
   3.529773051351486*^9, {3.685337563258217*^9, 3.6853376010954103`*^9}, {
   3.910536763203424*^9, 3.9105368434345503`*^9}, {3.910536880734371*^9, 
   3.910536918017296*^9}, {3.9105369938436813`*^9, 3.9105369988822603`*^9}, {
   3.910537034001923*^9, 
   3.9105370393282957`*^9}},ExpressionUUID->"0c74ea59-395d-4075-a4ca-\
a7944c128151"],

Cell[CellGroupData[{

Cell["Es gibt verschiedene Wege die Hilfe aufzurufen:", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529738507385913*^9, 3.5297385248173103`*^9}, {
   3.5297388040718317`*^9, 3.5297388314919157`*^9}, {3.529748412682096*^9, 
   3.529748417641966*^9}, 
   3.5297730513515778`*^9},ExpressionUUID->"7f44bd93-b250-4ae9-a66f-\
819561d60c00"],

Cell["\[UDoubleDot]ber \[OpenCurlyDoubleQuote]Help -> Documentation Center\
\[CloseCurlyDoubleQuote],", "Subsubitem",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529738536426656*^9, 3.529738582557468*^9}, {
   3.5297386158102407`*^9, 3.529738699919004*^9}, 3.5297389989368773`*^9, {
   3.529739088442273*^9, 3.529739088444723*^9}, 3.529739428257804*^9, {
   3.5297404206883183`*^9, 3.529740427767137*^9}, 
   3.529773051351657*^9},ExpressionUUID->"5c26bd15-a52d-41dc-9aeb-\
d9ca27d3553a"],

Cell[TextData[{
 "durch Markieren eines Schl\[UDoubleDot]sselwortes und ",
 StyleBox["[F1]",
  FontWeight->"Bold"],
 ","
}], "Subsubitem",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297390897082367`*^9, 3.529739114794444*^9}, 
   3.529739428733199*^9, {3.5297405593368692`*^9, 3.529740563564867*^9}, 
   3.529773051352013*^9},ExpressionUUID->"f0137ccc-107d-483f-a38b-\
8ee2cb884899"],

Cell[TextData[{
 "mit den Befehlen ",
 StyleBox["?<Funktion>", "Input"],
 " (\[OpenCurlyDoubleQuote]Wildcard\[CloseCurlyDoubleQuote] ",
 StyleBox["*", "Input"],
 StyleBox[" m", "Text"],
 "\[ODoubleDot]",
 StyleBox["glich", "Text"],
 ") oder ",
 StyleBox["??<Funktion>", "Input"],
 " (zus\[ADoubleDot]tzliche Angaben \[UDoubleDot]ber Attribute und \
Optionen),"
}], "Subsubitem",
 PageWidth->PaperWidth,
 CellChangeTimes->{
  3.529739091281728*^9, {3.529739133440261*^9, 3.529739133442337*^9}, 
   3.529739429859048*^9, {3.529740450164974*^9, 3.529740478579692*^9}, {
   3.5297409355446978`*^9, 3.529740971467626*^9}, {3.529741245982085*^9, 
   3.529741245983595*^9}, {3.529746366195677*^9, 3.529746404852614*^9}, 
   3.5297730513520937`*^9},ExpressionUUID->"9c1deb41-7700-4e66-aadb-\
244e3387f470"],

Cell[TextData[{
 "Benutzen der Web-Dokumentation unter ",
 ButtonBox["https://reference.wolfram.com/language/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://reference.wolfram.com/language/"], None},
  ButtonNote->"https://reference.wolfram.com/language/"],
 ButtonBox[".",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://reference.wolfram.com/mathematica/guide/Mathematica.html"], 
    None},
  ButtonNote->
   "http://reference.wolfram.com/mathematica/guide/Mathematica.html"]
}], "Subsubitem",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297391342616673`*^9, 3.5297391651404953`*^9}, {
   3.529739318352044*^9, 3.529739355162678*^9}, 3.5297394308921413`*^9, 
   3.52977305135217*^9, {3.746353119918931*^9, 3.746353121190868*^9}, {
   3.780041161434595*^9, 
   3.780041176189749*^9}},ExpressionUUID->"9fb304b2-45c5-4c69-b1d3-\
2aa0b956441f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Die Arbeit mit ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Notebooks wird durch Anzeigen der \[OpenCurlyDoubleQuote]open/close icons\
\[CloseCurlyDoubleQuote] wesentlich erleichtert. Dazu m\[UDoubleDot]ssen Sie \
die Option unter \[OpenCurlyDoubleQuote]Edit -> Preferences, Interface -> \
Show open/close icon for cell groups\[CloseCurlyDoubleQuote] \
ausw\[ADoubleDot]hlen."
}], "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529739416059264*^9, 3.529739583504971*^9}, {
   3.529739615250711*^9, 3.529739692601282*^9}, {3.529739727563298*^9, 
   3.529739746107092*^9}, {3.529740292209531*^9, 3.529740320807157*^9}, 
   3.529773051352243*^9, {3.7800414710271873`*^9, 3.780041473802436*^9}, {
   3.9105370766352997`*^9, 
   3.9105371858094797`*^9}},ExpressionUUID->"417e9381-1c77-4bda-bcf0-\
03b1e2aa3d0f"],

Cell[BoxData[
 RowBox[{"?", "Exp"}]], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529741266663995*^9, 3.529741267824898*^9}, 
   3.52977305135245*^9},ExpressionUUID->"8b789fe4-989c-4deb-a039-\
594833c76491"],

Cell[BoxData[
 RowBox[{"?", "Plot"}]], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529741266663995*^9, 3.529741294234335*^9}, 
   3.529773051353683*^9},ExpressionUUID->"6ca1908c-189f-4d24-b377-\
488fdcae71aa"],

Cell[BoxData[
 RowBox[{"?", "Plot*"}]], "Input",
 CellChangeTimes->{{3.52974641600181*^9, 3.5297464605730133`*^9}, 
   3.5297730513545427`*^9, {3.910537064439836*^9, 
   3.910537067343611*^9}},ExpressionUUID->"f8b57906-acd5-4cd8-96cb-\
246c87349ad2"],

Cell["Ausschnitt aus dem Funktionsumfang:", "ItemParagraph",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761863375415*^9, 3.529761876932777*^9}, {
   3.5297705023230658`*^9, 3.529770507051538*^9}, 3.529773051357847*^9},
 FontWeight->"Bold",ExpressionUUID->"b40969d8-9647-43c5-863f-0ce4e0bd6e91"]
}, Open  ]],

Cell["numerische und symbolische Berechnungen,", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761884503272*^9, 3.529761902312182*^9}, 
   3.529773051357925*^9},ExpressionUUID->"ca20e7b6-1953-46e3-8ce6-\
3095b6547d41"],

Cell["Visualisierung von Daten,", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761885375618*^9, 3.529761910560466*^9}, 
   3.529773051358027*^9},ExpressionUUID->"2258c3c1-10fc-41a1-9621-\
b9f949d6b93b"],

Cell["Statistik und Datenmanipulation,", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761885565773*^9, 3.529761885567686*^9}, 
   3.52976191774016*^9, 
   3.529773051358102*^9},ExpressionUUID->"e3e26b59-93e8-4ee0-91ca-\
e2d7d9fa47bb"],

Cell["interaktive Oberfl\[ADoubleDot]chen,", "Item",
 PageWidth->PaperWidth,ExpressionUUID->"eb866802-f67b-444b-ab5b-24a2df7b97da"],

Cell["h\[ODoubleDot]here Programmiersprache (funktionale Programmierung),", \
"Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297619354407988`*^9, 3.529761943716585*^9}, 
   3.529773051358247*^9, {3.529829910528288*^9, 3.529829914447157*^9}, {
   3.685337807039753*^9, 
   3.685337812199513*^9}},ExpressionUUID->"da4936dd-db8d-4200-a0f3-\
bcea54186228"],

Cell["\<\
Bibliotheken zu zahlreichen Gebieten der Mathematik und der \
Naturwissenschaften (sowie Geographie und \[CapitalODoubleDot]konomie),\
\>", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297619357259903`*^9, 3.5297619540985813`*^9}, 
   3.52977305135832*^9, {3.530333819676947*^9, 3.5303338520730467`*^9}, {
   3.685337858951598*^9, 
   3.685337903783154*^9}},ExpressionUUID->"88bce5e0-c48b-4c3e-bdc2-\
afaf6a3bc1bd"],

Cell["Netzwerk-Funktionalit\[ADoubleDot]t,", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761960228178*^9, 3.5297619604517097`*^9}, 
   3.52977305135839*^9, {3.685337920998476*^9, 
   3.6853379211983624`*^9}},ExpressionUUID->"a37a0f6b-b2a6-43a1-b1a6-\
b1a18ee22d9e"],

Cell["Einbindung externer Programme,", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761968619728*^9, 3.5297619760323687`*^9}, 
   3.5297730513584633`*^9},ExpressionUUID->"2c5b1e11-1fe2-436c-9cb6-\
9894f733c9ca"],

Cell["etc.", "Item",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529761976997225*^9, 3.529761978941066*^9}, 
   3.529773051358535*^9},ExpressionUUID->"ba66b58f-0094-4355-b217-\
b67b12d471ec"],

Cell[TextData[{
 "Notebooks (Endung \[OpenCurlyDoubleQuote]",
 StyleBox[".nb", "Input"],
 "\[CloseCurlyDoubleQuote]) sind ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " als Editor vorbehalten und k\[ODoubleDot]nnen interaktiv ausgef\
\[UDoubleDot]hrt werden. Dateien mit der Endung \[OpenCurlyDoubleQuote]",
 StyleBox[".m", "Input"],
 "\[CloseCurlyDoubleQuote] sind Pakete mit ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Code, die entweder nachtr\[ADoubleDot]glich geladen (beispielsweise f\
\[UDoubleDot]r zus\[ADoubleDot]tzliche Funktionalit\[ADoubleDot]t) oder aus \
der Konsole direkt mit \[OpenCurlyDoubleQuote]",
 StyleBox["math < file.m", "Input"],
 "\[CloseCurlyDoubleQuote] eingesen und verarbeitet werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297620070758743`*^9, 3.5297622399774523`*^9}, {
   3.529762274596977*^9, 3.529762275729828*^9}, {3.5297624126452217`*^9, 
   3.5297624220513153`*^9}, 
   3.529773051358654*^9},ExpressionUUID->"5a13be94-81ae-4b8c-94d5-\
9f8be3f277b6"],

Cell[CellGroupData[{

Cell["1. Grundlegendes", "Subtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529742534520773*^9, 3.529742643999269*^9}, {
   3.529742909469145*^9, 3.5297429127422*^9}, 
   3.529773051358811*^9},ExpressionUUID->"ea7bae80-b8a8-4c93-972c-\
13dbe010c8e9"],

Cell[TextData[{
 "1.1 ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " als Taschenrechner"
}], "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529742955903411*^9, 3.52974297357767*^9}, {
   3.529743876591792*^9, 3.52974387964113*^9}, 3.529743912614644*^9, {
   3.529758649352309*^9, 3.529758651044498*^9}, 
   3.529773051359024*^9},ExpressionUUID->"6344b6af-7f01-4391-b3ab-\
bd2832dbf56d"],

Cell[CellGroupData[{

Cell["Arithmetische Operationen ", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529743909641494*^9, 3.5297439424278593`*^9}, {
   3.529745635207573*^9, 3.529745676426961*^9}, 3.529745732500554*^9, 
   3.529773051359194*^9},ExpressionUUID->"43ac5d98-8c15-4f8e-a445-\
348e59ecf52b"],

Cell[TextData[{
 "Ausdr\[UDoubleDot]cke mit \[OpenCurlyDoubleQuote]",
 StyleBox["+", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["-", "Input"],
 "\[OpenCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["*", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["/", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["^", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["(", "Input"],
 "\[OpenCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox[")", "Input"],
 "\[CloseCurlyDoubleQuote] werden sofort und so weit wie m\[ODoubleDot]glich \
ausgewertet."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52974573449111*^9, 3.529745742916967*^9}, {
   3.529746012510673*^9, 3.529746076351515*^9}, 3.52977305135933*^9, {
   3.5303342019338017`*^9, 3.530334306390542*^9}, {3.7125611861727247`*^9, 
   3.7125611889246807`*^9}},ExpressionUUID->"eb0bd93d-7165-4713-91a7-\
20c9f55fc624"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "+", "2"}]], "Input",
 CellChangeTimes->{{3.529745835181941*^9, 3.529745835562264*^9}, 
   3.5297730513594933`*^9},ExpressionUUID->"8d38739d-a52b-4cc8-a399-\
7d7027a25487"],

Cell[BoxData["3"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.52974583628001*^9, 3.529773051359654*^9, 
  3.530334331747777*^9, 3.591411164839422*^9, 
  3.7463553473934193`*^9},ExpressionUUID->"bde881fd-61df-446a-b53b-\
984451436206"],

Cell[BoxData["3"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.52974583628001*^9, 3.529773051359654*^9, 
  3.530334331747777*^9, 
  3.591411164839422*^9},ExpressionUUID->"b5f97430-d30e-4a02-b305-\
f58ad57fc524"],

Cell[BoxData["3"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.52974583628001*^9, 3.529773051359654*^9, 
  3.530334331747777*^9},ExpressionUUID->"20ef709f-53e9-4fd4-bbc8-\
af136ea0189f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"45", "*", 
  RowBox[{"124", "/", "35"}]}]], "Input",
 CellChangeTimes->{{3.529745841813085*^9, 3.529745849393052*^9}, 
   3.529773051360217*^9, {3.68533848445846*^9, 
   3.685338492692066*^9}},ExpressionUUID->"51379b54-55fe-4534-a4ca-\
130b7a0c566b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vordefinierte Konstanten", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52974395786697*^9, 3.5297439816214237`*^9}, 
   3.529745756258812*^9, 
   3.529773051361264*^9},ExpressionUUID->"debcddca-4137-41aa-ba2f-\
197fd205d6a5"],

Cell[TextData[{
 "\[OpenCurlyDoubleQuote]",
 StyleBox["E", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["I", "Input"],
 "\[CloseCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox["Pi", "Input"],
 "\[CloseCurlyDoubleQuote] sind (Beispiele f\[UDoubleDot]r) vordefinierte \
Konstanten."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529745895192103*^9, 3.529745895452142*^9}, {
   3.529745939402812*^9, 3.529746010344677*^9}, 3.529773051361403*^9, {
   3.5303343729850893`*^9, 
   3.5303343929667883`*^9}},ExpressionUUID->"da3ae148-c939-43c2-8480-\
9334070dcf67"],

Cell[BoxData["E"], "Input",
 CellChangeTimes->{3.529746088488598*^9, 
  3.5297730513615303`*^9},ExpressionUUID->"12c3ac3f-34bb-42b1-9f88-\
6cc17ac1a22f"],

Cell[BoxData["I"], "Input",
 CellChangeTimes->{3.5297460907030983`*^9, 
  3.529773051361795*^9},ExpressionUUID->"8f4db936-7e4a-40d8-9dc0-\
0ef4a191f2a4"],

Cell[BoxData["Pi"], "Input",
 CellChangeTimes->{{3.529746092330162*^9, 3.5297460925523653`*^9}, 
   3.529773051362064*^9},ExpressionUUID->"5da32513-d183-4dba-a0c0-\
595fab7affd3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Numerische Auswertung", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529743991229147*^9, 3.52974399607226*^9}, 
   3.529773051362351*^9},ExpressionUUID->"f74e5199-8af8-4c4f-b88b-\
430e6d32f14a"],

Cell[TextData[{
 "Mit Hilfe der Funktion ",
 StyleBox["N[<Ausdruck>]", "Input"],
 " kann die numerische Auswertung erzwungen werden. (Argumente zu einer \
Funktion werden in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " mit eckigen Klammern \[OpenCurlyDoubleQuote]",
 StyleBox["[", "Input"],
 "\[CloseCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox["]", "Input"],
 "\[CloseCurlyDoubleQuote] umschlossen.)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529746159072803*^9, 3.529746225739079*^9}, {
   3.529772880466877*^9, 3.5297729224122047`*^9}, 
   3.529773051362487*^9},ExpressionUUID->"46c2e026-7592-4648-add3-\
333209d876a1"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"1997", "/", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.529746233621257*^9, 3.529746246283658*^9}, 
   3.5297730513626347`*^9},ExpressionUUID->"626eb19e-335d-4c17-a7e4-\
29dfb323bce6"],

Cell[BoxData[
 RowBox[{"N", "[", "Pi", "]"}]], "Input",
 CellChangeTimes->{{3.529746252144218*^9, 3.529746253693468*^9}, 
   3.529773051362937*^9},ExpressionUUID->"02d1b48b-bc9b-4f07-bdaa-\
b889e59530a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgaben",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529746534192808*^9, 3.529746548591523*^9}, 
   3.529746661107045*^9, 
   3.529773051363248*^9},ExpressionUUID->"e189485f-1977-497a-8c44-\
6a740eb72d36"],

Cell[TextData[{
 StyleBox["Wie findet man heraus, welche weiteren Konstanten ", 
  "ItemNumbered"],
 StyleBox["Mathematica", "ItemNumbered",
  FontSlant->"Italic"],
 StyleBox[" kennt?", "ItemNumbered"]
}], "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529746614756171*^9, 3.529746629410859*^9}, {
   3.5297467155949717`*^9, 3.529746758185754*^9}, 3.529773051363348*^9, {
   3.53033446437993*^9, 
   3.5303344670554028`*^9}},ExpressionUUID->"bf9e50c9-82f9-4a15-a084-\
816dd6b22cbf"],

Cell["\<\
Wie kann man bei numerischer Auswertung weitere Stellen erhalten?\
\>", "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529746614756171*^9, 3.529746629405918*^9}, {
   3.529746767040867*^9, 3.529746782341703*^9}, {3.529746856571542*^9, 
   3.529746856573999*^9}, 
   3.529773051363433*^9},ExpressionUUID->"744ef8a7-c0e4-40ca-9f96-\
0c46c582730f"],

Cell[TextData[{
 "Was bewirkt die Funktion ",
 StyleBox["Rationalize", "Input"],
 StyleBox["?", "Text"]
}], "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529746857522026*^9, 3.5297468795692596`*^9}, 
   3.52977305136351*^9},ExpressionUUID->"310a95ae-8584-4a34-9c50-\
cdc84043dafd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sungen",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529773989883778*^9, 
  3.529773993519004*^9}},ExpressionUUID->"fe2cce78-8db9-4c79-bfbf-\
8ec149452924"],

Cell[CellGroupData[{

Cell[TextData[{
 "\"mathematical constants\" in der Hilfe suchen (",
 Cell[BoxData[
  FormBox[
   ButtonBox[
    RowBox[{"Mathematical", " ", "Constants"}],
    BaseStyle->"Link",
    ButtonData->"paclet:guide/MathematicalConstants"], TextForm]],
  ExpressionUUID->"78b81cf2-bee3-4ceb-a493-c417de3dc294"],
 ")."
}], "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297745597843447`*^9, 3.529774602759284*^9}, {
  3.5303345894651127`*^9, 
  3.530334659039604*^9}},ExpressionUUID->"6ddc4eb3-2839-4710-aaa3-\
dbf488daa1f1"],

Cell[CellGroupData[{

Cell[TextData[{
 "(",
 Cell[BoxData[
  FormBox[
   ButtonBox["N",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/N"], TextForm]],ExpressionUUID->
  "6af9fc44-ff6a-44ae-81f5-bdb5447a820a"],
 " in der Hilfe.)"
}], "ItemNumbered",
 PageWidth->PaperWidth,
 CellGroupingRules->{GroupTogetherGrouping, 15001.},
 CellChangeTimes->{{3.530334687437394*^9, 3.53033471736791*^9}, {
   3.530334764467004*^9, 3.530334766873786*^9}, 
   3.685338344025004*^9},ExpressionUUID->"86f265b5-9bd6-4b4f-86bc-\
19b668a97875"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"1", "/", "3"}], "]"}], ",", "100"}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 15001.},
 CellChangeTimes->{{3.529774617909692*^9, 3.5297746328161097`*^9}, 
   3.6853383440252132`*^9},ExpressionUUID->"95853943-34e0-49f1-a64d-\
786e42368edd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 RowBox[{"(", 
  RowBox[{
   ButtonBox["Rationalize",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Rationalize"], " ", "in", " ", "der", " ", 
   RowBox[{"Hilfe", "."}]}], ")"}]],
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530334753909741*^9, 3.530334772592238*^9}, 
   3.6853381129299603`*^9},ExpressionUUID->"e3325f43-2686-4498-b8d5-\
81ac5c1ac427"]], "ItemNumbered",
 CellGroupingRules->{GroupTogetherGrouping, 15002.},
 CellChangeTimes->{3.685338288092094*^9, 
  3.685338368544056*^9},ExpressionUUID->"ef5c82e5-7d19-4ddf-8813-\
6212108a0d38"],

Cell[BoxData[
 RowBox[{"Rationalize", "[", 
  RowBox[{"0.3333333", ",", "0.1"}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 15002.},
 CellChangeTimes->{{3.529774640324065*^9, 3.529774677084893*^9}, 
   3.685338368544209*^9},ExpressionUUID->"5353469e-2358-45d3-b941-\
1cc300406e28"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Es bewirkt die Approximation einer Gleitkommazahl durch einen Bruch.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529774688296049*^9, 
  3.529774711206945*^9}},ExpressionUUID->"d790e71e-eb18-486c-81ea-\
5a2d53dfc5a7"]
}, Closed]],

Cell[CellGroupData[{

Cell["1.2 Einige wichtige (mathematische) Funktionen", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529743049768918*^9, 3.52974305591536*^9}, {
   3.52975717301374*^9, 3.529757215725666*^9}, {3.5297586724399*^9, 
   3.529758672865993*^9}, 
   3.529773051363682*^9},ExpressionUUID->"8fde26e8-0948-4b38-8cef-\
d7bd74a5e255"],

Cell[CellGroupData[{

Cell["Elementare Funktionen", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297480950072393`*^9, 3.529748103823175*^9}, 
   3.529773051363817*^9, 
   3.7800416080344667`*^9},ExpressionUUID->"a202d52d-64af-4034-9a04-\
1d15d552ecdf"],

Cell[BoxData[
 RowBox[{"Sqrt", "[", "44", "]"}]], "Input",
 CellChangeTimes->{{3.5297471739476357`*^9, 3.529747176365367*^9}, {
   3.529748186875018*^9, 3.529748187513617*^9}, {3.529748224424876*^9, 
   3.52974822694556*^9}, 
   3.529773051363987*^9},ExpressionUUID->"99a2d903-3d5a-4c92-8417-\
8409abce0875"],

Cell[BoxData[
 RowBox[{"Exp", "[", "0.5", "]"}]], "Input",
 CellChangeTimes->{{3.529747177679175*^9, 3.5297471801940737`*^9}, {
   3.5297481996831503`*^9, 3.529748209359765*^9}, 
   3.529773051364541*^9},ExpressionUUID->"39976f8b-b096-4229-bd2f-\
f2eab993dc24"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Numerische Funktionen", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297481175090322`*^9, 3.529748120489772*^9}, 
   3.529773051365078*^9},ExpressionUUID->"b074e6c9-a74a-4c66-a682-\
d1c11d51728b"],

Cell[BoxData[
 RowBox[{"Abs", "[", 
  RowBox[{"-", "22"}], "]"}]], "Input",
 CellChangeTimes->{{3.529747287226829*^9, 3.529747287543468*^9}, {
   3.529748297963442*^9, 3.529748300653792*^9}, 
   3.529773051365245*^9},ExpressionUUID->"758356a9-b88a-4fb9-85f9-\
2e62dd215f79"],

Cell[BoxData[
 RowBox[{"Round", "[", "6.54321", "]"}]], "Input",
 CellChangeTimes->{{3.529747300892124*^9, 3.52974730410384*^9}, {
   3.5297483171042557`*^9, 3.529748330970628*^9}, {3.529748437603183*^9, 
   3.529748442485125*^9}, 
   3.5297730513660927`*^9},ExpressionUUID->"5759be12-2c94-421e-a5b0-\
5a4a1bc93183"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Zufallszahlen", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529748156320656*^9, 3.5297481610427113`*^9}, 
   3.5297730513682947`*^9},ExpressionUUID->"c8686893-c974-4e53-97ec-\
06e70be5bea9"],

Cell[BoxData[
 RowBox[{"RandomReal", "[", "]"}]], "Input",
 CellChangeTimes->{{3.529747353233625*^9, 3.529747360704709*^9}, {
   3.529748175904747*^9, 3.5297481817953987`*^9}, {3.529748459174616*^9, 
   3.5297484668938437`*^9}, 
   3.529773051368596*^9},ExpressionUUID->"f92ca180-2be1-4371-bbb3-\
5416540babc5"],

Cell[BoxData[
 RowBox[{"RandomInteger", "[", "100", "]"}]], "Input",
 CellChangeTimes->{{3.529748475314032*^9, 3.529748479137904*^9}, 
   3.529748548214285*^9, 
   3.529773051368876*^9},ExpressionUUID->"4d76e11b-5251-497c-a869-\
ecc518820ff0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgaben",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297482438277683`*^9, 3.529748244818735*^9}, 
   3.529773051369138*^9},ExpressionUUID->"34170d36-5932-44c0-a470-\
6597b051f07d"],

Cell["Berechnen Sie den Logarithmus von 8 in der Basis 2!", "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529748838810506*^9, 3.5297488696625757`*^9}, {
   3.529749004921398*^9, 3.529749017171417*^9}, 
   3.529773051369236*^9},ExpressionUUID->"8415d46e-124e-4f01-ac36-\
56d5cfc5d099"],

Cell["\<\
\[CapitalUDoubleDot]berpr\[UDoubleDot]fen Sie die Relation zwischen der \
Eulerschen Gammafunktion und der Fakult\[ADoubleDot]t: \[CapitalGamma](n+1) \
=n!\
\>", "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297488389333353`*^9, 3.5297488389376*^9}, {
   3.529748924969342*^9, 3.5297489432915287`*^9}, 3.52977305136932*^9, {
   3.685338661511735*^9, 
   3.685338774803253*^9}},ExpressionUUID->"be13d517-fc49-4c2a-b368-\
3d100064115d"],

Cell[TextData[{
 "Was passiert, wenn Sie obige Befehle auf komplexe Zahlen anwenden (Siehe \
auch ",
 StyleBox["Re", "Input"],
 " und ",
 StyleBox["Im", "Input"],
 ")?"
}], "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529749030352195*^9, 3.52974907611755*^9}, 
   3.529773051369397*^9},ExpressionUUID->"171ede77-1ab6-4d61-a76c-\
ef72645108e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sungen",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529774009481127*^9, 
  3.529774012416782*^9}},ExpressionUUID->"fafbae17-b5bb-4ed5-8c2f-\
16eac460e2eb"],

Cell[CellGroupData[{

Cell["", "ItemNumbered",ExpressionUUID->"2187b6c2-5199-491d-97f9-012431343858"],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{"2", ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.5297740504007483`*^9, 
  3.529774053643053*^9}},ExpressionUUID->"0c17ddc5-565f-489b-b539-\
a3e06c5ecb25"]
}, Open  ]],

Cell[TextData[{
 "Beachte die Reihenfolge der Argumente (",
 Cell[BoxData[
  FormBox[
   ButtonBox["Log",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Log"], TextForm]],ExpressionUUID->
  "651c4d88-0b52-4a13-b027-d400dd0d106c"],
 ")!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{
  3.5297745252329407`*^9, {3.530336631098052*^9, 
   3.530336649285226*^9}},ExpressionUUID->"9bfff8a2-d251-454a-9811-\
cc2e5c2a5171"],

Cell[CellGroupData[{

Cell["", "ItemNumbered",ExpressionUUID->"453ed3fe-ced9-4230-a7c4-1f65f2fdc5ba"],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Gamma", "[", 
      RowBox[{"#", "+", "1"}], "]"}], "-", 
     RowBox[{"#", "!"}]}], "&"}], ",", 
   RowBox[{"Range", "[", "12", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6853388956922092`*^9, 
  3.6853389316387053`*^9}},ExpressionUUID->"adbcb3b2-be7a-45ea-9aec-\
b85df9d04a19"]
}, Open  ]],

Cell[TextData[{
 "Funktionen, die f\[UDoubleDot]r komplexe Zahlen definierbar sind (",
 StyleBox["Sqrt", "Input"],
 ", ",
 StyleBox["Exp", "Input"],
 ", ",
 StyleBox["Log", "Input"],
 ", ",
 StyleBox["Sin", "Input"],
 ", ",
 StyleBox["...", "Input"],
 "), k\[ODoubleDot]nnen wie zu erwarten ausgewertet werden, solche f\
\[UDoubleDot]r die das nicht gilt (",
 StyleBox["Min", "Input"],
 ", ",
 StyleBox["Max", "Input"],
 ", ",
 StyleBox["...", "Input"],
 ") aber nicht."
}], "ItemNumbered",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529774203854248*^9, 3.529774329588429*^9}, {
  3.529774365864402*^9, 3.529774377937664*^9}, {3.780041638170609*^9, 
  3.780041639050167*^9}},ExpressionUUID->"f77e699d-63e4-4387-9438-\
f75941f943e6"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.3 Ausdr\[UDoubleDot]cke & Symbole", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529742826018319*^9, 3.529742836434126*^9}, {
   3.5297437366473293`*^9, 3.5297437447916517`*^9}, {3.52975867492907*^9, 
   3.529758675758161*^9}, 
   3.5297730513696203`*^9},ExpressionUUID->"d943b2d9-3a37-4a81-b809-\
0fddc3c6f6bc"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " arbeitet den Quellcode Ausdruck f\[UDoubleDot]r Ausdruck ab, wobei nach \
nach jeder Auswertung das Ergebnis ausgegeben wird. Ein Ausdruck wird durch \
einen Zeilenumbruch oder ein \[OpenCurlyDoubleQuote]",
 StyleBox[";", "Input"],
 "\[CloseCurlyDoubleQuote] (Semikolon/Strichpunkt) beendet, wobei letzteres \
die Ausgabe des Ergebnisses unterdr\[UDoubleDot]ckt. (Mehrere Befehle k\
\[ODoubleDot]nnen also in einer Zeile oder Zelle untergebracht werden.)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52975063640701*^9, 3.529750827187196*^9}, {
   3.529750858328718*^9, 3.529750951298003*^9}, {3.529750996865749*^9, 
   3.529751019081653*^9}, 3.5297533287692757`*^9, {3.529753392508995*^9, 
   3.529753393832539*^9}, {3.529753436160894*^9, 3.5297534732114143`*^9}, 
   3.5297730513697577`*^9, {3.530336754125355*^9, 3.5303367733917294`*^9}, {
   3.685339023667675*^9, 
   3.685339024419153*^9}},ExpressionUUID->"2d66ec92-6d20-4f3b-bca5-\
98c2c261e8e7"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"E", "^", 
   RowBox[{"(", 
    RowBox[{"I", "*", 
     RowBox[{"(", 
      RowBox[{"Pi", "/", "3"}], ")"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.529751030705175*^9, 3.529751052973456*^9}, 
   3.529773051369937*^9},ExpressionUUID->"a456f355-b3a7-4ccd-948e-\
cf7af36aeb09"],

Cell[BoxData[
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"I", "*", 
      RowBox[{"(", 
       RowBox[{"Pi", "/", "3"}], ")"}]}], ")"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.529751030705175*^9, 3.5297510706821203`*^9}, 
   3.529773051370302*^9},ExpressionUUID->"d80bbdaf-262d-451d-bdc1-\
060b676fbb13"],

Cell[TextData[{
 "Nicht ausgegebene Ausdr\[UDoubleDot]cke k\[ODoubleDot]nnen beispielsweise \
durch Verwendung des \[OpenCurlyDoubleQuote]History-Operators\
\[CloseCurlyDoubleQuote] \[OpenCurlyDoubleQuote]",
 StyleBox["%", "Input"],
 "\[CloseCurlyDoubleQuote] angezeigt werden. (Nicht zu verwechseln mit ",
 StyleBox["Out[<Ausgabezeile>]", "Input"],
 ", bzw. ",
 StyleBox["%<Ausgabezeile>", "Input"],
 "!) Auch ",
 StyleBox["%%", "Input"],
 ", ",
 StyleBox["%%%", "Input"],
 ", usw. sind m\[ODoubleDot]glich aber nicht zu empfehlen!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{
  3.5297491018836737`*^9, {3.5297515137234163`*^9, 3.529751590618545*^9}, {
   3.529751656236456*^9, 3.5297516634917383`*^9}, {3.529751825729393*^9, 
   3.52975187396362*^9}, {3.529751922826226*^9, 3.5297519476000023`*^9}, 
   3.529773051370422*^9, {3.5303368215870523`*^9, 3.530336839449131*^9}, 
   3.530336893833918*^9},ExpressionUUID->"9a7c4b51-7366-4b8a-9125-\
08d715e4462b"],

Cell[BoxData["%"], "Input",
 CellChangeTimes->{3.529751666505785*^9, 
  3.529773051370544*^9},ExpressionUUID->"bba0c657-79c6-417c-8b8c-\
af27c2fca18c"],

Cell[TextData[{
 "Mit ",
 StyleBox["Print", "Input"],
 " l\[ADoubleDot]sst sich beliebig zusammengesetzter Text ausgeben. Strings m\
\[UDoubleDot]ssen in Anf\[UDoubleDot]hrungszeichen geschrieben werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297519843483047`*^9, 3.5297520428770742`*^9}, {
   3.529752084176421*^9, 3.529752133242957*^9}, 3.5297730513708153`*^9, {
   3.530335333432892*^9, 3.5303353346804543`*^9}, 
   3.780041672626192*^9},ExpressionUUID->"cf4d7698-5ec6-4de9-9128-\
85716f37e1cb"],

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Ergebnis des vorletzten Ausdrucks: \>\"", ",", "%%"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.529752046105338*^9, 3.529752073224515*^9}, {
   3.529752137714521*^9, 3.529752153804515*^9}, 
   3.529773051371003*^9},ExpressionUUID->"2587beb2-c48f-46c3-b9ac-\
2ce75695d7af"],

Cell[TextData[StyleBox["Ausdr\[UDoubleDot]cke lassen sich auch in Variablen \
oder Symbolen speichern. Hierzu gibt es zwei M\[ODoubleDot]glichkeiten:",
 FontWeight->"Bold"]], "ItemParagraph",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529752325101363*^9, 3.52975242958362*^9}, {
   3.529752492060771*^9, 3.529752521481395*^9}, 3.529773051371277*^9, 
   3.685339138503825*^9},ExpressionUUID->"3962a002-37c9-4905-ba7d-\
a4580e3e44c4"],

Cell[TextData[{
 StyleBox["Set", "Input"],
 ", bzw. \[OpenCurlyDoubleQuote]",
 StyleBox["=", "Input"],
 "\[CloseCurlyDoubleQuote] (Shortcut)"
}], "Item",
 CellChangeTimes->{{3.529752450881103*^9, 3.529752510369131*^9}, 
   3.5297730513714237`*^9, 
   3.68533913850404*^9},ExpressionUUID->"907ee581-0ade-46e7-92e3-\
f94d08d97054"],

Cell[CellGroupData[{

Cell[TextData[{
 "und ",
 StyleBox["SetDelayed", "Input"],
 ", bzw. \[OpenCurlyDoubleQuote]",
 StyleBox[":=", "Input"],
 "\[CloseCurlyDoubleQuote]."
}], "Item",
 CellChangeTimes->{{3.529752525117017*^9, 3.529752565162279*^9}, 
   3.529773051371573*^9, 
   3.685339138504199*^9},ExpressionUUID->"f33e1577-77e3-4207-844a-\
da9a5da2e34e"],

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"N", "[", 
   RowBox[{"Exp", "[", "44", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5297526251059847`*^9, 3.5297526327432423`*^9}, 
   3.5297730513717527`*^9},ExpressionUUID->"5d9ffe72-1b8c-472d-87c8-\
154c5a94664a"],

Cell[BoxData[
 RowBox[{"b", ":=", 
  RowBox[{"N", "[", 
   RowBox[{"Log", "[", "44", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529752641349326*^9, 3.529752653811602*^9}, 
   3.52977305137212*^9},ExpressionUUID->"df9afedb-717a-4288-a18d-\
f165c17f53ea"]
}, Open  ]],

Cell[TextData[{
 "Hierbei f\[ADoubleDot]llt auf, dass f\[UDoubleDot]r \[OpenCurlyDoubleQuote]",
 StyleBox["b", "Input"],
 "\[CloseCurlyDoubleQuote] keine Ausgabe erscheint. Grund hierf\[UDoubleDot]r \
ist folgendes: Bei ",
 StyleBox["Set", "Input"],
 " wird die rechte Seite sofort ausgewertet und das Ergebnis im Symbol auf \
der linken Seite gespeichert (Wertzuweisung wie bspw. in ",
 StyleBox["C++)", "Input"],
 ". Bei ",
 StyleBox["SetDelayed", "Input"],
 " wird nicht das Ergebnis der Auswertung der rechten Seite, sondern die \
Eingabe selbst im Symbol abgelegt (Anlegen einer Definition)."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297529918497562`*^9, 3.529753266580289*^9}, 
   3.529773051372243*^9, {3.5303370973676243`*^9, 3.530337101393215*^9}, {
   3.530337133679701*^9, 
   3.5303371362851667`*^9}},ExpressionUUID->"b5844e8b-814f-4d83-8d3e-\
6077ba22cede"],

Cell[TextData[{
 "Hierzu ein kleines Beispiel (Kommentare m\[UDoubleDot]ssen in \
\[OpenCurlyDoubleQuote]",
 StyleBox["(*", "Input"],
 "\[CloseCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox["*)", "Input"],
 "\[CloseCurlyDoubleQuote] eingeschlossen werden):"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529753679045218*^9, 3.529753791707284*^9}, 
   3.529773051372348*^9},ExpressionUUID->"24ea38c4-6662-4bff-b929-\
587f422d3e23"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "Wertzuweisung", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"RandomReal", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "Definitionszuweisung", " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"b", ":=", 
    RowBox[{"RandomReal", "[", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"mehrfacher", " ", "Aufruf"}], " ", "*)"}], "\[IndentingNewLine]",
    "a", "\[IndentingNewLine]", "a", "\[IndentingNewLine]", "a", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"a", " ", "konstant"}], " ", "*)"}], "\[IndentingNewLine]", "b", 
   "\[IndentingNewLine]", "b", "\[IndentingNewLine]", "b", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"b", " ", "variabel"}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.529753531377174*^9, 3.529753538814619*^9}, {
   3.5297535937727127`*^9, 3.529753654451997*^9}, {3.5297537569955673`*^9, 
   3.5297537624789057`*^9}, {3.5297538010999403`*^9, 
   3.5297538132759666`*^9}, {3.52975392708714*^9, 3.529754002194806*^9}, {
   3.5297540446943407`*^9, 3.5297540595740957`*^9}, 3.529773051372636*^9, 
   3.530426679311956*^9},ExpressionUUID->"dbe91b50-105d-4750-a57b-\
6f82e4a3d103"],

Cell[TextData[{
 "Bei der Auswahl von Symbolnamen kann die farbliche Syntax-Hervorhebung \
helfen: Bereits vergebene/gesetzte Namen werden schwarz, alle anderen blau \
dargestellt. Eingebaute ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Funktionen oder Konstanten beginnen in der Regel mit einem \
Gro\[SZ]buchstaben (auch zur Trennung von Wortteilen im Funktionsnamen). Man \
ist folglich auf der sicheren Seite, wenn man eigene Symbolnamen immer mit \
einem Kleinbuchstaben beginnt (Symbolnamen sind \[OpenCurlyDoubleQuote]Case \
sensitive\[CloseCurlyDoubleQuote])."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52975707496774*^9, 3.52975709148726*^9}, {
   3.529757262562008*^9, 3.52975741599712*^9}, {3.5297578701313677`*^9, 
   3.529757990336257*^9}, {3.529758026946002*^9, 3.52975808506255*^9}, 
   3.5297730513737507`*^9, {3.5303340645573683`*^9, 3.530334089396057*^9}, {
   3.530334129801613*^9, 3.5303341301881123`*^9}, {3.530337235264893*^9, 
   3.5303372404342403`*^9}, {3.685336773952606*^9, 3.6853367967223883`*^9}, {
   3.780041697299312*^9, 
   3.7800416985554543`*^9}},ExpressionUUID->"266efd42-63a3-472b-9961-\
93e1fbc58727"],

Cell[BoxData[{
 RowBox[{"a", ";", "b", ";"}], "\[IndentingNewLine]", 
 RowBox[{"c", ";"}]}], "Input",
 CellChangeTimes->{{3.529758557868072*^9, 3.52975862104111*^9}, 
   3.529773051373962*^9, {3.712564793706382*^9, 
   3.712564794890285*^9}},ExpressionUUID->"8385fedd-aab0-49ab-af06-\
434ec50c97ab"],

Cell[TextData[{
 "Die Verwendung von ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "-internen Sonderzeichen wie ",
 StyleBox["\[Alpha]", "Input"],
 ", ",
 StyleBox["\[Beta]", "Input"],
 ", ",
 StyleBox["\[Gamma]", "Input"],
 " usw. sollte aus Gr\[UDoubleDot]nden der Lesbarkeit, Benutzung anderer \
Editoren und Portierbarkeit von Code vermieden werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529758133789613*^9, 3.5297584627490253`*^9}, {
   3.529770435119555*^9, 3.52977043613139*^9}, 
   3.529773051374085*^9},ExpressionUUID->"6bf703bc-4980-480d-9ac3-\
6e70de6261bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.53034407273593*^9, 
  3.5303440769222097`*^9}},ExpressionUUID->"e3905d2e-cbfc-43f3-b2dc-\
9958ef152ebc"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgabe",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297747600942793`*^9, 
  3.52977476232712*^9}},ExpressionUUID->"acb8e1f4-7850-4211-8ea0-\
14158835a35a"],

Cell[TextData[{
 "Probieren Sie \[OpenCurlyDoubleQuote]",
 StyleBox["d", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["D", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["e", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["E", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["0D", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["d0d", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["Im", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["d_", "Input"],
 "\[CloseCurlyDoubleQuote] als Variablennamen aus. Welche davon lassen sich \
verwenden und welche nicht? Warum ist das so?"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529774779213578*^9, 3.529774922915406*^9}, {
  3.530337344825742*^9, 
  3.5303373515042667`*^9}},ExpressionUUID->"f62c8823-a1b5-4937-9f36-\
cd1820a104fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sung",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297749274270687`*^9, 
  3.529774937606641*^9}},ExpressionUUID->"2b45bfde-22d5-4de6-a8ae-\
1a04f1d58161"],

Cell[BoxData[{
 RowBox[{"d", "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{"D", "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{"e", "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{"E", "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"0", "D"}], "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{"d0d", "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{"Im", "=", "123"}], "\[IndentingNewLine]", 
 RowBox[{"d_", "=", "123"}]}], "Input",
 CellChangeTimes->{{3.5297749423931437`*^9, 
  3.529774973526827*^9}},ExpressionUUID->"e2d98a7a-fbd7-435f-b11d-\
3de634537187"],

Cell[TextData[{
 "Zul\[ADoubleDot]ssig (oder nicht \[OpenCurlyDoubleQuote]",
 StyleBox["Protected", "Input"],
 "\[CloseCurlyDoubleQuote]) sind nur \[OpenCurlyDoubleQuote]",
 StyleBox["d", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["e", "Input"],
 "\[CloseCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox["d0d", "Input"],
 "\[CloseCurlyDoubleQuote]. \[OpenCurlyDoubleQuote]",
 StyleBox["D", "Input"],
 "\[CloseCurlyDoubleQuote] ist die Ableitungsfunktion, \
\[OpenCurlyDoubleQuote]",
 StyleBox["E", "Input"],
 "\[CloseCurlyDoubleQuote] die Euler Konstante, \[OpenCurlyDoubleQuote]",
 StyleBox["0d", "Input"],
 "\[CloseCurlyDoubleQuote] beginnt mit einer Ziffer, \
\[OpenCurlyDoubleQuote]",
 StyleBox["Im", "Input"],
 "\[OpenCurlyDoubleQuote] ist die Funktion f\[UDoubleDot]r den Imagin\
\[ADoubleDot]rteil und \[OpenCurlyDoubleQuote]",
 StyleBox["d_", "Input"],
 "\[CloseCurlyDoubleQuote] ist ein Pattern (kein g\[UDoubleDot]ltiger \
Symbolname)."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529775027482527*^9, 3.529775191841564*^9}, {
  3.53033741187504*^9, 
  3.53033742722546*^9}},ExpressionUUID->"d49769fe-bb6d-4685-9dec-\
760755e0d96c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"d", ",", "e", ",", "d0d"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530344099428894*^9, 
  3.5303441107468863`*^9}},ExpressionUUID->"00b03492-f8fe-45da-b4be-\
96265fdedc76"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.4 Der \[OpenCurlyDoubleQuote]Kernel\[CloseCurlyDoubleQuote]", \
"Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297590979861727`*^9, 3.5297591021145573`*^9}, {
   3.529759440074375*^9, 3.529759442451075*^9}, 
   3.5297730513742743`*^9},ExpressionUUID->"cd37168f-aab3-40b2-a23e-\
4245a22c1732"],

Cell[TextData[{
 "Sobald Sie ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " starten, sei es durch \[CapitalODoubleDot]ffnen eines Notebooks oder durch \
Aufruf in einem Konsolenfenster, wird ein \[OpenCurlyDoubleQuote]Kernel\
\[CloseCurlyDoubleQuote] gestartet. Jeder Aufruf einer Funktion, jede \
Auswertung, das Speichern von Werten oder Definitionen usw. wird vom Kernel (\
\[OpenCurlyDoubleQuote]Backend\[CloseCurlyDoubleQuote]) \
\[UDoubleDot]bernommen. Das Interface in dem Sie sich gerade dieses Notebook \
anschauen ist das sog. \
\[OpenCurlyDoubleQuote]Frontend\[CloseCurlyDoubleQuote], es dient lediglich \
zur angenehmeren Darstellung von Ergebnissen und der \
\[CapitalUDoubleDot]bergabe von Eingaben an den Kernel."
}], "Text",
 PageWidth->PaperWidth,ExpressionUUID->"0fde5169-43d2-4d37-8221-00e5cde07982"],

Cell[TextData[{
 "Wenn Sie eine Definition oder einen Wert aus dem aktuellen Zustand des \
Kernels l\[ODoubleDot]schen wollen, helfen Ihnen die Befehle ",
 StyleBox["Clear[<Liste von Symbolen>]", "Input"],
 " oder",
 StyleBox[" ClearAll", "Input"],
 "."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297599056284437`*^9, 3.529760195330166*^9}, 
   3.52976079716825*^9, {3.529770464079427*^9, 3.529770465032073*^9}, 
   3.529773051374507*^9},ExpressionUUID->"b0c53b7a-ec65-4de2-9944-\
2692e956005d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", ":=", "11"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", ":=", 
   RowBox[{"a", "+", "b"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "c"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "b", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "c"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "a", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "c"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "c", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "c"}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.529760226141128*^9, 3.5297604807772703`*^9}, {
   3.529760666841454*^9, 3.529760667039885*^9}, 
   3.529773051374908*^9},ExpressionUUID->"fcf0e4a9-abee-4e83-b0aa-\
0d35ab459396"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", ":=", "11"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", ":=", 
   RowBox[{"a", "+", "b"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "c"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "c", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "c"}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.529760226141128*^9, 3.529760547475607*^9}, {
   3.529760673489504*^9, 3.529760673680419*^9}, 
   3.5297730513758297`*^9},ExpressionUUID->"88a6ea7d-4520-43a1-9e96-\
cc770274999a"],

Cell[TextData[{
 "Um ganz sicher zu gehen, mit einem \[OpenCurlyDoubleQuote]frischen\
\[CloseCurlyDoubleQuote] Kernel zu arbeiten, l\[ADoubleDot]sst sich dieser \
\[UDoubleDot]ber \[OpenCurlyDoubleQuote]Evaluation -> Quit Kernel -> Local\
\[CloseCurlyDoubleQuote] beenden. Alternativ kann auch der Befehl ",
 StyleBox["Quit[]", "Input"],
 " eingegeben werden. Eine neue Instanz des Kernels startet dann bei Ausf\
\[UDoubleDot]hren des n\[ADoubleDot]chsten Befehls. ",
 StyleBox["Achtung",
  FontSlant->"Italic"],
 ": alle bis dahin gespeicherten Ausdr\[UDoubleDot]cke verschwinden dadurch \
aus dem Speicher!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297609135101767`*^9, 3.529761234871277*^9}, 
   3.529773051376254*^9, {3.530337616747136*^9, 
   3.530337618611779*^9}},ExpressionUUID->"a2adc759-c20c-4a0c-afd1-\
e13b2d6f54be"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.53034413926096*^9, 
  3.530344145319668*^9}},ExpressionUUID->"9c7837b8-da03-475d-8c0a-\
b6125f9e8f41"]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.5 Listen", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529770574437111*^9, 3.529770579221714*^9}, 
   3.529773051376411*^9},ExpressionUUID->"fc99ccb3-35fe-4463-acfb-\
93ffeb8f3714"],

Cell[TextData[{
 "Ausdr\[UDoubleDot]cke haben in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " keinen festen Datentyp  sondern sind Typ-frei. Variablen \
k\[ODoubleDot]nnen also ohne Einschr\[ADoubleDot]nkung Zahlen- oder \
Stringwerte, Definitionen oder Ausdr\[UDoubleDot]cke zugewiesen werden. Ein \
wichtigstes Konstrukt sind Listen, die in \[OpenCurlyDoubleQuote]",
 StyleBox["{", "Input"],
 "\[OpenCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox["}", "Input"],
 "\[CloseCurlyDoubleQuote] eingefasst und deren Elemente durch Komma \
\[OpenCurlyDoubleQuote]",
 StyleBox[",", "Input"],
 "\[CloseCurlyDoubleQuote] voneinander getrennt werden. Listenelemente k\
\[ODoubleDot]nnen nun wiederum beliebig kompliziert konstruiert werden. \
Insbesondere k\[ODoubleDot]nnen die einzelnen Listenelemente unterschiedlich \
aufgebaut werden, was den wichtigsten Unterschied zu einfachen Arrays \
darstellt, deren Elemente immer desselben Typs sind."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52982996966669*^9, 3.529830050661449*^9}, {
   3.5298301256976347`*^9, 3.529830179346147*^9}, {3.529830212232257*^9, 
   3.529830404898897*^9}, {3.529830445741592*^9, 3.529830503875929*^9}, {
   3.5298305378828583`*^9, 3.529830558986567*^9}, {3.52983060035525*^9, 
   3.5298307325036983`*^9}, 3.530337697223444*^9, 3.712570369563452*^9, {
   3.712570400195032*^9, 
   3.712570418803028*^9}},ExpressionUUID->"1c16812e-0a86-46af-8b84-\
ff2d92306f8d"],

Cell[BoxData[{
 RowBox[{"liste1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "3", ",", "2", ",", "4"}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"liste2", "=", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"liste3", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "a", ",", "\"\<strg\>\""}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"liste4", "=", 
  RowBox[{"{", 
   RowBox[{"d", ",", "liste3"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.529830760262662*^9, 3.529830859937476*^9}, {
  3.5304267333579597`*^9, 
  3.5304267481658773`*^9}},ExpressionUUID->"5453458d-13b1-4448-bc9a-\
6c3dbb0ffced"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " bietet zahlreiche Funktionen f\[UDoubleDot]r den Umgang mit Listen, siehe ",
 Cell[BoxData[
  FormBox[
   ButtonBox[
    RowBox[{"List", " ", "Manipulation"}],
    BaseStyle->"Link",
    ButtonData->"paclet:guide/ListManipulation"], TextForm]],ExpressionUUID->
  "d8ea9805-a37a-4dc9-8702-0024dd101969"],
 "."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5298315427010107`*^9, 3.5298315817198553`*^9}, {
  3.529831621966662*^9, 3.52983165389819*^9}, {3.529831688110125*^9, 
  3.529831689468412*^9}, {3.5298334250117693`*^9, 
  3.529833440358917*^9}},ExpressionUUID->"1fe157ec-ea60-4316-80b9-\
c69de71cc2c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Generierung", " ", "von", " ", "Listen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"10", "-", "i"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "j"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5298316953616257`*^9, 
  3.529831771961241*^9}},ExpressionUUID->"02aec85f-5de7-4297-a2c7-\
6975ab765d07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Operationen", " ", "auf", " ", "Listen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"liste1", "=", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"liste2", "=", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5"}], "}"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.529831793766492*^9, 3.529831866476795*^9}, {
  3.529831917289907*^9, 3.529831984825498*^9}, {3.529832064407311*^9, 
  3.529832090538495*^9}, {3.52983212555575*^9, 
  3.529832156295846*^9}},ExpressionUUID->"afc8bddf-de66-46af-88a1-\
ea234f092f56"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "Aneinanderh\[ADoubleDot]ngen", " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"liste5", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"liste1", ",", "liste2"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529831793766492*^9, 3.529831866476795*^9}, {
   3.529831917289907*^9, 3.529831984825498*^9}, {3.529832064407311*^9, 
   3.529832090538495*^9}, {3.52983212555575*^9, 3.529832158530424*^9}, {
   3.529832245274631*^9, 3.529832251614353*^9}, 
   3.529833048196052*^9},ExpressionUUID->"50ec3063-8fcd-4bed-a413-\
a1d0175efadc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Anf\[UDoubleDot]gen", " ", "eines", " ", "Elements"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Append", "[", 
   RowBox[{"liste2", ",", "6"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529831793766492*^9, 3.529831866476795*^9}, {
  3.529831917289907*^9, 3.529831984825498*^9}, {3.529832064407311*^9, 
  3.529832090538495*^9}, {3.52983212555575*^9, 
  3.529832160420443*^9}},ExpressionUUID->"4344e394-e55b-411a-b31e-\
19258a962192"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Herausgreifen", " ", "eines", " ", "Bereichs"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Take", "[", 
   RowBox[{"liste5", ",", "4"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5298322070372562`*^9, 3.5298322917348223`*^9}, {
   3.5298324791467037`*^9, 3.5298324802024183`*^9}, 
   3.529833064273987*^9},ExpressionUUID->"8ca869bf-9c09-4098-adcd-\
7cb4e9fe4c41"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"L\[ADoubleDot]nge", " ", "=", " ", 
    RowBox[{"Anzahl", " ", "der", " ", "Elemente"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Length", "[", "liste5", "]"}]}]], "Input",
 CellChangeTimes->{{3.529831793766492*^9, 3.529831866476795*^9}, {
   3.529831917289907*^9, 3.529831984825498*^9}, {3.529832064407311*^9, 
   3.529832090538495*^9}, {3.52983212555575*^9, 3.5298321614325647`*^9}, 
   3.5298323302456417`*^9, 
   3.529833067805296*^9},ExpressionUUID->"154c76a2-2bc3-4292-929e-\
cedd4fd5c85e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Zugriff", " ", "auf", " ", "Elemente"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"First", "[", "liste5", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Part", "[", 
    RowBox[{"liste5", ",", "3"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Last", "[", "liste5", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5298321772730503`*^9, 3.5298321839326553`*^9}, {
  3.529832299744404*^9, 3.529832328366468*^9}, {3.5298330690559673`*^9, 
  3.5298330699350147`*^9}, {3.529833556941732*^9, 
  3.529833563257172*^9}},ExpressionUUID->"062ff939-2a47-4f30-8279-\
882cdb70de39"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"alternativer", " ", "Zugriff", " ", "auf", " ", "Elemente"}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"liste5", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"liste5", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"liste5", "[", 
    RowBox[{"[", "5", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529832500619175*^9, 3.529832542617009*^9}, {
   3.529833071317227*^9, 3.5298330720998507`*^9}, {3.529833565506296*^9, 
   3.52983357221712*^9}, 
   3.530337763743938*^9},ExpressionUUID->"82ec7c08-4ad4-47a8-818e-\
f9fe0cc86791"],

Cell[TextData[{
 StyleBox["Beachte",
  FontSlant->"Italic"],
 ": Einfache eckige Klammern \[OpenCurlyDoubleQuote]",
 StyleBox["[...]", "Input"],
 "\[CloseCurlyDoubleQuote] = Parameter\[UDoubleDot]bergabe an Funktionen, \
doppelte eckige Klammern \[OpenCurlyDoubleQuote]",
 StyleBox["[[...]]", "Input"],
 "\[CloseCurlyDoubleQuote] = Elementzugriff! Im Gegensatz zu den meisten \
Programmiersprachen befindet sich bei ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " das erste zugewiesene Listenelement nicht in ",
 StyleBox["<Liste>[[0]]", "Input"],
 ", sondern  in ",
 StyleBox["<Liste>[[1]]", "Input"],
 "!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529832549109166*^9, 3.529832835302505*^9}, {
  3.529833134002098*^9, 3.5298331693556957`*^9}, {3.712570500211104*^9, 
  3.7125705097550373`*^9}},ExpressionUUID->"5d85fd3a-d83b-4b81-a390-\
e06758387bdc"],

Cell["Weiteren Listenoperationen:", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5298328880288763`*^9, 3.529832937441543*^9}, {
  3.52983348671215*^9, 3.5298334883654127`*^9}, {3.712570522050973*^9, 
  3.712570527858873*^9}},ExpressionUUID->"0ba86cf4-3efe-4b02-99cf-\
d4531af1dc30"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "erzeuge", " ", "20", " ", "Zufallszahlen", " ", "von", " ", "0", " ", 
    "bis", " ", "100"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"liste6", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"RandomInteger", "[", "100", "]"}], ",", 
     RowBox[{"{", "20", "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.52983320478946*^9, 3.52983326816718*^9}, 
   3.530337885332878*^9},ExpressionUUID->"755c1f4f-d816-45cd-9bd5-\
6e1135c6f806"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "Sortieren", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"liste6", "=", 
   RowBox[{"Sort", "[", "liste6", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529832357584099*^9, 3.529832358021253*^9}, {
   3.529832941181535*^9, 3.529832965724236*^9}, 3.529833177264016*^9, {
   3.529833274092908*^9, 
   3.529833291484939*^9}},ExpressionUUID->"25614fbb-b12e-4e96-8ccc-\
0ece9d02a2c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Umkehren", " ", "der", " ", "Reihenfolge"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Reverse", "[", "liste6", "]"}]}]], "Input",
 CellChangeTimes->{{3.5298323964380703`*^9, 3.529832397587166*^9}, {
  3.529833295563229*^9, 
  3.5298333088248034`*^9}},ExpressionUUID->"b0cc7bc5-d2c2-4c4c-bba2-\
838be003ea89"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Aufl\[ODoubleDot]sen", " ", "verschachtelter", " ", "Listenstrukturen"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"liste4", "\[IndentingNewLine]", 
   RowBox[{"Flatten", "[", "liste4", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529832359065399*^9, 3.5298323632440987`*^9}, {
  3.5298333127707777`*^9, 
  3.5298333788346157`*^9}},ExpressionUUID->"a4ee3a5b-1a3c-4667-95ff-\
e69b595323c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Funktion", " ", "zur", " ", "angehmeren", " ", "Darstellung", " ", "auch",
     " ", "verschachtelter", " ", 
    RowBox[{"Listen", "/", "Tabellen"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", "liste6", "]"}]}]], "Input",
 CellChangeTimes->{{3.530251854394429*^9, 3.530251922400484*^9}, {
  3.530251961057269*^9, 3.5302519725917253`*^9}, {3.5303121996860027`*^9, 
  3.5303122027434072`*^9}},ExpressionUUID->"87940630-ed61-484f-8c36-\
17c5809b089f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "liste1", ",", "liste2", ",", "liste3", ",", "liste4", ",", "liste5", ",", 
    "liste6"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530344177643702*^9, 
  3.530344191158703*^9}},ExpressionUUID->"156b075e-0581-4c77-9de8-\
17b6d0336f12"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgabe",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529833622938807*^9, 
  3.52983362405859*^9}},ExpressionUUID->"aee428da-21e5-433f-b178-\
55b26786db79"],

Cell[TextData[{
 "Generieren Sie eine Liste von beliebig vielen (",
 StyleBox["n=1000", "Input"],
 ") ganzen Zahlen von 0 bis 100 und erzeugen Sie hieraus eine Liste der \
Zahlen die gerade sind (",
 StyleBox["EvenQ", "Input"],
 ")!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529833692596896*^9, 3.529833695202927*^9}, {
  3.52983376681222*^9, 3.529833879055909*^9}, {3.52983395179139*^9, 
  3.529833952623743*^9}, {3.529834003366561*^9, 3.529834004790514*^9}, {
  3.5298340877620287`*^9, 3.5298341212774553`*^9}, {3.5298342185913467`*^9, 
  3.529834259069395*^9}},ExpressionUUID->"823ca33e-67a0-45b6-886e-\
15660f1a3ac8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sung",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5298336268014936`*^9, 
  3.529833631189019*^9}},ExpressionUUID->"16eab41f-7921-4775-80b0-\
8875890986f5"],

Cell[TextData[{
 "(Hier helfen ",
 Cell[BoxData[
  ButtonBox["Select",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Select"]],ExpressionUUID->
  "941a3595-4041-414f-a317-2e46d69da8af"],
 " und ",
 Cell[BoxData[
  ButtonBox["EvenQ",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/EvenQ"]],ExpressionUUID->
  "dd6c4c64-2f0e-4487-8846-badacc693f86"],
 ")"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530337967064577*^9, 
  3.530338013662266*^9}},ExpressionUUID->"d1795215-eb32-4853-8e97-\
8725c7a220bf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"randNrs", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"RandomInteger", "[", "100", "]"}], ",", 
      RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "easier", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"randNrs", "=", 
     RowBox[{"RandomInteger", "[", 
      RowBox[{"100", ",", "n"}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"evenNrs", "=", 
  RowBox[{"Select", "[", 
   RowBox[{"randNrs", ",", "EvenQ"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.529833886079237*^9, 3.529834042639656*^9}, {
   3.529834234809314*^9, 3.5298343746988373`*^9}, 3.746353587410769*^9, 
   3.746353753470983*^9},ExpressionUUID->"ab1de86f-cd61-4512-81e3-\
9793e76df9ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"n", ",", "randNrs", ",", "evenNrs"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5303441957902603`*^9, 
  3.530344210331119*^9}},ExpressionUUID->"86e1fb77-4f8a-4bcb-9ce0-\
0dc4f36ab8f6"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.6 Regeln und Ersetzungen", "Subsubtitle",
 CellChangeTimes->{{3.529770581260783*^9, 3.529770583279516*^9}, 
   3.529773051376573*^9, {3.529829318092561*^9, 
   3.529829322314672*^9}},ExpressionUUID->"24413625-76c7-4809-bde6-\
3b8422c9c44a"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " bietet analog zum \[OpenCurlyDoubleQuote]Rechnen mit Papier und Bleistift\
\[CloseCurlyDoubleQuote] die M\[ODoubleDot]glichkeit, Symbole oder sogar \
ganze Unterausdr\[UDoubleDot]cke in Ausdr\[UDoubleDot]cken durch andere zu \
ersetzen/substituieren. Formal wird das durch die Anwendung einer \
Ersetzungsregel auf einen Ausdruck erreicht. Ersetzungsregeln sowie nat\
\[UDoubleDot]rlich Ergebnisse einer Substitution k\[ODoubleDot]nnen in \
Variablen/Symbolen gespeichert werden. Syntax:"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5298346584805307`*^9, 3.529834795868228*^9}, {
   3.529835333121469*^9, 3.52983553555931*^9}, {3.5298355805755463`*^9, 
   3.529835778861347*^9}, {3.530338340013083*^9, 3.530338361977755*^9}, {
   3.7125706033473167`*^9, 3.712570635971167*^9}, 
   3.780041846002613*^9},ExpressionUUID->"f674a3cb-229e-4163-a157-\
fc6c322f34f0"],

Cell[TextData[{
 StyleBox["<Ersetzungsregel> = <alter_Unterausdr.> -> <neuer_Unterausdr.>", 
  "Input"],
 "\nwobei\n",
 StyleBox["<Ausdruck> /. <Ersetzungsregel>", "Input"],
 "\noder auch direkt:\n",
 StyleBox["<Ausdruck> /. <alter_Unterausdr.> -> <neuer_Unterausdr.>", 
  "Input"]
}], "Text",
 CellChangeTimes->{{3.529835782688017*^9, 3.52983581946529*^9}, {
  3.529836278662591*^9, 
  3.529836394477687*^9}},ExpressionUUID->"43403fac-980e-4687-9b01-\
17668b293093"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"1", "+", 
    RowBox[{"x", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"regel", "=", 
   RowBox[{"(", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"x", "+", "1"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"g", "=", 
  RowBox[{"f", "/.", "regel"}]}]}], "Input",
 CellChangeTimes->{{3.5298361991331377`*^9, 
  3.529836253155437*^9}},ExpressionUUID->"fa3d7715-ec4f-4db6-9d45-\
2d6c1888c21b"],

Cell[TextData[{
 "Mehrere Ersetzungen k\[ODoubleDot]nnen auch gleichzeitig angewandt werden, \
indem man sie in einer Liste zusammenfasst. \n\nDurch Verwendung von \
\[OpenCurlyDoubleQuote]",
 StyleBox["//.", "Input"],
 "\[CloseCurlyDoubleQuote] erreicht man es, dass die Ersetzung(en) solange \
vorgenommen werden, bis keine der Regeln mehr greift. \[OpenCurlyDoubleQuote]",
 StyleBox[":>", "Input"],
 "\[CloseCurlyDoubleQuote] hat eine \[ADoubleDot]hnliche Wirkung wie \
\[OpenCurlyDoubleQuote]",
 StyleBox[":=", "Input"],
 "\[CloseCurlyDoubleQuote] im Vergleich von \[OpenCurlyDoubleQuote]",
 StyleBox["->", "Input"],
 "\[CloseCurlyDoubleQuote] zu \[OpenCurlyDoubleQuote]",
 StyleBox["=", "Input"],
 "\[CloseCurlyDoubleQuote]: die rechte Seite der Regel wird bei jeder tats\
\[ADoubleDot]chlichen Substitution neu ausgewertet."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5298358579056*^9, 3.529836183049614*^9}, {
  3.5303384206630163`*^9, 3.530338421049027*^9}, {3.7125706646434317`*^9, 
  3.71257066513943*^9}, {3.780041882163333*^9, 
  3.780041884970348*^9}},ExpressionUUID->"abaedd3a-c025-4ea4-aeb2-\
d99710b36103"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"y", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"g", "=", 
  RowBox[{"f", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"r", "*", 
       RowBox[{"Cos", "[", "phi", "]"}]}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"r", "*", 
       RowBox[{"Sin", "[", "phi", "]"}]}]}]}], "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.5298364094730673`*^9, 
  3.5298364823767033`*^9}},ExpressionUUID->"a7f310da-6e1b-4f5e-ba30-\
db7908ae1344"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", "x"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"regel", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "y"}], ",", 
     RowBox[{"y", "\[Rule]", "z"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "/.", "regel"}], "\[IndentingNewLine]", 
 RowBox[{"f", "//.", "regel"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "/.", "regel"}], "/.", "regel"}]}], "Input",
 CellChangeTimes->{{3.5298365105333*^9, 
  3.529836634175104*^9}},ExpressionUUID->"f6302da5-da8d-4589-aa64-\
a0b0e961956e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "f", ",", "x", ",", "regel", ",", "g", ",", "y", ",", "r", ",", "phi", ",",
     "z"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530344231642091*^9, 3.530344273482555*^9}, {
  3.530426556881928*^9, 
  3.530426588013591*^9}},ExpressionUUID->"447e0d6b-756a-4458-b6ff-\
d8dface89322"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgabe",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529836769624946*^9, 3.529836770461752*^9}, 
   3.529837834962648*^9, 
   3.529839793910857*^9},ExpressionUUID->"0c6a7069-7a6d-416c-9036-\
8c4529d3b617"],

Cell[TextData[{
 "Multiplizieren Sie ein beliebiges Polynom in sin(x) und cos(x) aus und \
verwenden Sie sin(x)^2 + cos(x)^2 = 1 um alle cos(x)-Terme zu eliminieren! \
(",
 StyleBox["Hinweis",
  FontSlant->"Italic"],
 ": formulieren Sie Ihre Regel geschickt und verwenden Sie ",
 StyleBox["Expand", "Input"],
 "!)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529836787055979*^9, 3.5298368227585907`*^9}, {
  3.5298370453687963`*^9, 3.5298370515686607`*^9}, {3.529837524132135*^9, 
  3.529837529079043*^9}, {3.5298378469193068`*^9, 3.529837863462945*^9}, {
  3.529837930026115*^9, 3.52983800457614*^9}, {3.529839380390664*^9, 
  3.5298393803934717`*^9}, {3.5298394163466597`*^9, 3.529839500442215*^9}, {
  3.529839726312224*^9, 
  3.529839783586006*^9}},ExpressionUUID->"68eb734b-cbc9-4909-b7f0-\
ff1512a185e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sung",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529836772224371*^9, 
  3.529836774852188*^9}},ExpressionUUID->"3e499ef4-d422-4a77-83e5-\
c5590d9e4449"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "p"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "7"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"poly", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", "*", 
       RowBox[{"Sin", "[", "x", "]"}]}], "+", 
      RowBox[{"b", "*", 
       RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "^", "p"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"%", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "\[Rule]", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], "^", "2"}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.52983951143327*^9, 3.529839707248439*^9}, 
   3.52983980919147*^9, {3.530426842879424*^9, 
   3.530426859359603*^9}},ExpressionUUID->"976d877e-36a2-4855-90f9-\
7d861d5a8c06"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", "b", ",", "p", ",", "poly"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530344283042199*^9, 
  3.530344291371413*^9}},ExpressionUUID->"517cce23-f2fe-4d80-9379-\
5bfaccc6d067"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2. Anwendungen", "Subtitle",
 CellChangeTimes->{{3.5297425543763027`*^9, 3.529742557910366*^9}, {
   3.5297426316137447`*^9, 3.52974264182384*^9}, 3.529742708591662*^9, {
   3.529743601950033*^9, 3.5297436189959297`*^9}, 
   3.529773051376731*^9},ExpressionUUID->"bbb2bcf6-7083-47a1-84d6-\
252f830ec055"],

Cell["2.1 Gleichungen", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297414250588303`*^9, 3.529741426879901*^9}, {
   3.5297586825012903`*^9, 3.529758683048922*^9}, {3.529771218788065*^9, 
   3.529771220221965*^9}, 
   3.529773051376895*^9},ExpressionUUID->"01c3c816-7364-4667-a572-\
f7b624e54a66"],

Cell[TextData[{
 "Gleichungen werden mit \[OpenCurlyDoubleQuote]",
 StyleBox["==", "Input"],
 "\[CloseCurlyDoubleQuote] notiert und wieder, soweit m\[ODoubleDot]glich, \
ausgewertet. (Es existieren weitere Vergleichsoperatoren \
\[CloseCurlyDoubleQuote]",
 StyleBox["!=", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["<", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox[">", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["<=", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox[">=", "Input"],
 "\[CloseCurlyDoubleQuote].)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529770823301293*^9, 3.529770852369877*^9}, {
   3.529771276792819*^9, 3.529771304122431*^9}, 3.529773051377132*^9, {
   3.529773417634728*^9, 
   3.5297735848018093`*^9}},ExpressionUUID->"2fc2bc7e-ae22-48d7-85ce-\
4091f4b348df"],

Cell[BoxData[
 RowBox[{"1", "\[Equal]", "0"}]], "Input",
 CellChangeTimes->{{3.52977085471239*^9, 3.529770855536456*^9}, 
   3.529773051377304*^9},ExpressionUUID->"310fac0c-f7b0-480b-9294-\
330f73947ee5"],

Cell[BoxData[
 RowBox[{"1", "\[Equal]", "1"}]], "Input",
 CellChangeTimes->{{3.52977123387621*^9, 3.52977123420462*^9}, 
   3.529773051381428*^9},ExpressionUUID->"d95dfe3c-1d89-404d-ad1b-\
12e02da93b9d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "124"}], "+", 
   RowBox[{"345234", "/", "354"}]}], "\[GreaterEqual]", 
  RowBox[{"3", "^", "7"}]}]], "Input",
 CellChangeTimes->{{3.529773336579412*^9, 
  3.529773391753715*^9}},ExpressionUUID->"f64bcdb2-f413-41c7-82fb-\
30f485abca45"],

Cell["Ist das nicht der Fall ...", "Text",
 CellChangeTimes->{{3.529771314548194*^9, 3.529771329526422*^9}, 
   3.529773051386767*^9},ExpressionUUID->"d75d70a3-e6e9-41c4-86ba-\
80eb1c957406"],

Cell[BoxData[
 RowBox[{"gln", "=", 
  RowBox[{"(", 
   RowBox[{"y", "\[Equal]", 
    RowBox[{
     RowBox[{"a", "*", 
      RowBox[{"x", "^", "2"}]}], "+", 
     RowBox[{"b", "*", "x"}], "+", "c"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5297712442769833`*^9, 3.5297712520232983`*^9}, {
   3.529771337417548*^9, 3.529771341426229*^9}, {3.529771517785946*^9, 
   3.529771537685425*^9}, 
   3.5297730513903837`*^9},ExpressionUUID->"d3c2bd9b-e98b-4170-82cc-\
f4999d74b132"],

Cell[TextData[{
 "... hilft der Befehl ",
 StyleBox["Solve[<Gleichung>,<Variable>]", "Input"],
 ". ",
 StyleBox["<Gleichung>", "Input"],
 " und ",
 StyleBox["<Variable>", "Input"],
 " k\[ODoubleDot]nnen jeweils auch Listen sein."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529771351932129*^9, 3.5297714882428493`*^9}, 
   3.5297730513930798`*^9, 3.530339349534217*^9, {3.5303394193434343`*^9, 
   3.530339420030011*^9}},ExpressionUUID->"974b5c44-5c0f-42c7-83a6-\
e9df961eb3f4"],

Cell[BoxData[
 RowBox[{"lsg", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{"gln", ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529749680906555*^9, 3.5297496838250713`*^9}, {
   3.5297715116355247`*^9, 3.529771544270914*^9}, {3.52977158561487*^9, 
   3.529771592504961*^9}, 3.529773051393305*^9, {3.530339443127781*^9, 
   3.530339443760988*^9}},ExpressionUUID->"45eb664e-478e-4958-85db-\
01c113b2fd35"],

Cell["\<\
Der Output erfolgt als Liste von Ersetzungsregeln (mehrere Listeneintr\
\[ADoubleDot]ge bedeuten mehrere m\[ODoubleDot]gliche L\[ODoubleDot]sungen).\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529771621300481*^9, 3.529771637160696*^9}, 
   3.529773051396237*^9, {3.530191722565606*^9, 3.53019175378104*^9}, 
   3.530334920476159*^9, {3.530334981427575*^9, 
   3.530334982351969*^9}},ExpressionUUID->"52202a78-5093-46f8-bce5-\
1a27c31fdc57"],

Cell[BoxData[
 RowBox[{"lsg1", "=", 
  RowBox[{"x", "/.", 
   RowBox[{"lsg", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529771562134741*^9, 3.529771594923847*^9}, 
   3.5297730513965*^9},ExpressionUUID->"d854af76-1412-4bea-b279-8ffe70a442bf"],

Cell[BoxData[
 RowBox[{"lsg2", "=", 
  RowBox[{"x", "/.", 
   RowBox[{"lsg", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5297715968459997`*^9, 3.529771604098432*^9}, 
   3.52977305139935*^9},ExpressionUUID->"18bd5e03-3f50-4ed7-b86f-\
9c3b9972fb00"],

Cell[TextData[{
 "Ist keine analytische L\[ODoubleDot]sung m\[ODoubleDot]glich, kann man es \
mit ",
 StyleBox["N", "Input",
  FontWeight->"Bold"],
 StyleBox["Solve", "Input"],
 " oder ",
 StyleBox["FindRoot ", "Input"],
 "versuchen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529772051819387*^9, 3.5297720956238413`*^9}, {
   3.529772198512426*^9, 3.529772198825835*^9}, 3.529773051402281*^9, {
   3.530339491806239*^9, 
   3.530339497051845*^9}},ExpressionUUID->"44f04a1c-5c48-4361-b454-\
4fe35f7ac2cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gln", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", "x"}], ")"}]}], 
  ";"}]], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297721252374153`*^9, 3.5297721572156773`*^9}, {
   3.5297722326444483`*^9, 3.529772259863913*^9}, 
   3.5297730514025593`*^9},ExpressionUUID->"1ef2970f-b755-464b-b471-\
469765c6f39d"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"gln", ",", "x"}], "]"}]], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52977214311467*^9, 3.529772147461681*^9}, 
   3.529773051404071*^9},ExpressionUUID->"6f60c259-6f0d-4dba-aea1-\
614b887683fe"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{"gln", ",", "x", ",", "Reals"}], "]"}]], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297721714623623`*^9, 3.529772254296051*^9}, 
   3.5297730514099207`*^9},ExpressionUUID->"a4cd1dfa-9c81-448d-bb65-\
0efe90f9695c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "0", " ", "ist", " ", "die", " ", "Vorgabe", " ", "f\[UDoubleDot]r", " ", 
    "einen", " ", "Startwert", " ", "bei", " ", "der", " ", "Suche", " ", 
    "nach", " ", "Nullstellen"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FindRoot", "[", 
   RowBox[{"gln", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5297722766666803`*^9, 3.529772314394628*^9}, 
   3.529773051412561*^9, {3.5299041172433977`*^9, 3.529904145181005*^9}, {
   3.5299146795570803`*^9, 3.529914685115509*^9}, {3.780041918025955*^9, 
   3.780041918610057*^9}},ExpressionUUID->"2637eaec-9190-4598-9148-\
e5e2c43f263d"],

Cell[TextData[{
 "H\[ADoubleDot]ufig haben ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Funktionen mehrere m\[ODoubleDot]gliche Schreibweisen, das bedeutet, sie \
lassen sich mit unterschiedlicher Anzahl an Argumenten oder Optionen aufrufen \
(oder auch mit Argumenten unterschiedlicher Bedeutung!). Optionen \
unterscheiden sich von Argumenten dadurch, dass sie als Ersetzungsregel \
\[UDoubleDot]bergeben werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52977238868574*^9, 3.529772748713258*^9}, {
   3.5297729753504*^9, 3.5297729787330437`*^9}, 3.529773051414941*^9, {
   3.530339565450218*^9, 3.530339565701507*^9}, 
   3.780041934418714*^9},ExpressionUUID->"a3a24e91-0483-43d9-b720-\
b52bf887d54b"],

Cell[TextData[StyleBox["<Funktionsname>[<Argument_1>,<Argument_2>(,<\
optionales_Argument>(,<Option> -> <Optionswert>))]", "Input"]], "Text",
 CellChangeTimes->{{3.529772750443842*^9, 3.529772832436352*^9}, 
   3.529773051415213*^9, {3.530341087010797*^9, 
   3.530341094438883*^9}},ExpressionUUID->"d879189b-9b07-4d63-8fa8-\
08f4c7df931f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "gln", ",", "y", ",", "x", ",", "a", ",", "b", ",", "c", ",", "lsg", ",", 
    "lsg1", ",", "lsg2"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.529771259970899*^9, 3.52977126420462*^9}, 
   3.529773051387519*^9, {3.5303393635470324`*^9, 3.530339425127902*^9}, {
   3.530344316830555*^9, 3.530344331150199*^9}, {3.530426901173951*^9, 
   3.530426927647101*^9}},ExpressionUUID->"ef05a36d-9f9b-4e59-8a44-\
abb813703471"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgabe",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5297730514153633`*^9, 3.529773078007635*^9}, 
   3.52977391746216*^9},ExpressionUUID->"c8747620-d819-40f1-9416-\
cfec5f2ae067"],

Cell["\<\
Finden nur mit einem Aufruf von NSolve alle L\[ODoubleDot]sungen der Gln. \
sin(x) = x/17, die innerhalb des Intervalls [2*Pi, 3*Pi] liegen!\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529773108696808*^9, 3.5297731889156437`*^9}, {
  3.529773657201383*^9, 3.5297737923507967`*^9}, {3.5297738862326*^9, 
  3.5297738944497957`*^9}, {3.530341013779306*^9, 3.5303410152292852`*^9}, {
  3.530341154735632*^9, 
  3.530341193560316*^9}},ExpressionUUID->"d3184dfc-ed37-4953-bbc6-\
027b85095296"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sung",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52977390989176*^9, 
  3.529773913572118*^9}},ExpressionUUID->"11e96c70-fead-4e59-bbe5-\
3b4230412d4b"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", 
      RowBox[{"x", "/", "17"}]}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{"2", "*", "Pi"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"3", "*", "Pi"}]}]}], "}"}], ",", "x", ",", "Reals"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5297732230043993`*^9, 3.5297732627644243`*^9}, {
  3.5297738039347267`*^9, 
  3.529773880359617*^9}},ExpressionUUID->"3290a14b-e6f0-4871-b6d6-\
1414462102ca"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"x", "/", "17"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.529773837993639*^9, 
  3.529773869285303*^9}},ExpressionUUID->"491abf86-9e16-455e-9738-\
cf8dc4d05935"]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2 Arbeiten mit Ausdr\[UDoubleDot]cken", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529841488522442*^9, 3.529841509801214*^9}, {
  3.529914196108808*^9, 
  3.529914201191702*^9}},ExpressionUUID->"359c4a20-f6fb-4f4a-89fd-\
f2ca7ad186f5"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " bietet eine F\[UDoubleDot]lle von M\[ODoubleDot]glichkeiten, Ausdr\
\[UDoubleDot]cke umzuformen, so zun\[ADoubleDot]chst einfaches \
Ausmultiplizieren und Faktorisieren (von Polynomen):"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530019585676546*^9, 3.530019652657398*^9}, {
   3.530019710417715*^9, 3.53001971658772*^9}, 
   3.780042007154068*^9},ExpressionUUID->"a53623e5-7187-41de-a4df-\
e1f6beb92091"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", "*", "x"}]}], ")"}], "^", "6"}], "]"}]], "Input",
 CellChangeTimes->{{3.529914424158058*^9, 3.5299144271537857`*^9}, {
  3.530019665549429*^9, 
  3.530019678611504*^9}},ExpressionUUID->"526a7d84-fac6-4058-a944-\
caff2155dd31"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"1", "+", "x", "+", 
   RowBox[{"x", "^", "2"}], "+", 
   RowBox[{"x", "^", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530019681434188*^9, 
  3.5300196990105267`*^9}},ExpressionUUID->"9d926158-0754-4362-a42a-\
b16d4411e27d"],

Cell["\<\
Rationale Ausdr\[UDoubleDot]cke lassen sich auf einen Hauptnenner bringen \
oder in ihre Partialbr\[UDoubleDot]che zerlegen:\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530019730424399*^9, 3.5300197695317087`*^9}, {
  3.530341377660277*^9, 
  3.530341378930066*^9}},ExpressionUUID->"ee44a1a3-5536-4de4-ab74-\
4f1d7b2b67ca"],

Cell[BoxData[
 RowBox[{"Together", "[", 
  RowBox[{
   RowBox[{"x", "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], "+", 
   RowBox[{"3", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530019779030706*^9, 
  3.5300197988533087`*^9}},ExpressionUUID->"598f5745-2b20-4a07-9a3c-\
ba97eb1590f6"],

Cell[BoxData[
 RowBox[{"Apart", "[", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"1", "+", "x", "+", 
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"x", "^", "3"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530019801846446*^9, 
  3.5300198217918253`*^9}},ExpressionUUID->"e66a7862-7a84-4084-bc39-\
da02b44ad6ff"],

Cell[TextData[{
 "Sehr n\[UDoubleDot]tzlich sind auch die Funktionen ",
 StyleBox["Collect", "Input"],
 " zum Ausklammern bestimmter Symbole und ",
 StyleBox["Coefficient", "Input"],
 " f\[UDoubleDot]r den direkten Zugriff auf bestimmte Koeffizienten eines \
Ausdrucks."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530019855594514*^9, 3.530019965853817*^9}, {
  3.53033498624378*^9, 3.530334992178282*^9}, {3.530341401853902*^9, 
  3.530341402010911*^9}, {3.712570962843547*^9, 
  3.712570964875523*^9}},ExpressionUUID->"a19c515f-ffcd-4fb0-8bc5-\
30fcd3d2d56b"],

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"4", "*", 
     RowBox[{"a", "^", "3"}], "*", 
     RowBox[{"b", "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{"a", "^", "3"}], "*", 
     RowBox[{"1", "/", "b"}]}], "-", 
    RowBox[{"3", "*", 
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{"b", "^", "2"}]}], "-", 
    RowBox[{"a", "*", "b"}], "-", 
    RowBox[{"5", "*", "a"}], "+", 
    RowBox[{"7", "*", "b"}], "+", "1"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5300199737081337`*^9, 
  3.530020078007506*^9}},ExpressionUUID->"9c3dea81-3085-4f1b-ac8c-\
90f16f349ac9"],

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"4", "*", 
     RowBox[{"a", "^", "3"}], "*", 
     RowBox[{"b", "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{"a", "^", "3"}], "*", 
     RowBox[{"1", "/", "b"}]}], "-", 
    RowBox[{"3", "*", 
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{"b", "^", "2"}]}], "-", 
    RowBox[{"a", "*", "b"}], "-", 
    RowBox[{"5", "*", "a"}], "+", 
    RowBox[{"7", "*", "b"}], "+", "1"}], ",", 
   RowBox[{"a", "*", "b"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.529914203275519*^9, 3.529914204923875*^9}, {
  3.5300200881289186`*^9, 
  3.5300200989835653`*^9}},ExpressionUUID->"fc818e10-f5fd-4f6a-82fb-\
2cc19691a28e"],

Cell[TextData[{
 "Zum Vereinfachen gibt es bspw. die Kommandos ",
 StyleBox["Refine", "Input"],
 " (siehe auch ",
 StyleBox["Assuming", "Input"],
 "), ",
 StyleBox["ComplexExpand", "Input"],
 " oder ",
 StyleBox["(Full)Simplify", "Input"],
 ". Letzteres Beispiel ist zwar sehr m\[ADoubleDot]chtig, sollte jedoch mit \
Vorsicht gehandhabt werden!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5300201483845787`*^9, 3.530020176206847*^9}, {
  3.5300202491023006`*^9, 3.53002026409332*^9}, {3.530020305008329*^9, 
  3.530020424812708*^9}, {3.530020563124483*^9, 3.530020602659186*^9}, {
  3.530341665624189*^9, 
  3.530341680983033*^9}},ExpressionUUID->"5a1aee7c-fc02-4464-8b22-\
bbcf83ac8c7b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Refine", " ", "wendet", " ", "Annahmen", " ", "auf", " ", 
    "Ausdr\[UDoubleDot]cke", " ", "an"}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"x", "^", "2"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Refine", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"x", "^", "2"}], "]"}], ",", 
     RowBox[{"x", ">", "0"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530020656630636*^9, 3.530020674847228*^9}, {
  3.530020832511344*^9, 
  3.53002087127374*^9}},ExpressionUUID->"5761bfed-3821-4286-b616-\
000178a14617"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Simplify", " ", "wendet", " ", "auch", " ", 
    "Funktionsidentit\[ADoubleDot]ten", " ", "und", " ", "weitere", " ", 
    "Umformungen", " ", "an"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "+", 
      RowBox[{"2", "*", 
       RowBox[{
        RowBox[{"Cos", "[", "x", "]"}], "^", "2"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"Tan", "[", "x", "]"}], "^", "2"}]}], ")"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.530020974466413*^9, 3.5300210370520353`*^9}, {
  3.530341479723363*^9, 
  3.530341493137054*^9}},ExpressionUUID->"9947b77e-51fa-48d3-aaac-\
f82551e6a455"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.3 Ableiten und Integrieren", "Subsubtitle",
 CellChangeTimes->{{3.529741375309197*^9, 3.529741390221168*^9}, 
   3.529773051415547*^9, {3.5299243597427683`*^9, 
   3.529924360099634*^9}},ExpressionUUID->"9fdfd7e5-8c24-46b1-8a01-\
d033e61275c6"],

Cell[CellGroupData[{

Cell["Ableiten", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529907048579191*^9, 
  3.52990705022462*^9}},ExpressionUUID->"6d68d707-5109-498e-88a0-\
db1fb1972f95"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " kann nahezu beliebig komplexe Ausdr\[UDoubleDot]cke aus rationalen \
Funktionen oder mathematischen Standardfunktionen ableiten, daf\[UDoubleDot]r \
gibt es die Funktion \[OpenCurlyDoubleQuote]",
 StyleBox["D", "Input"],
 "\[CloseCurlyDoubleQuote], der (partielle) Ableitungsoperator. "
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529906139483782*^9, 3.529906192967905*^9}, {
  3.529906236671418*^9, 3.529906409644198*^9}, {3.529906833991053*^9, 
  3.529906846386511*^9}},ExpressionUUID->"5f708eae-a2fb-48f2-bd7c-\
3373864ef3bf"],

Cell["Verschiedene Varianten (aber nicht alle):", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529906433680312*^9, 3.529906446579585*^9}, {
  3.529906819702467*^9, 
  3.5299068267023573`*^9}},ExpressionUUID->"17682e20-9634-4e33-b0e7-\
5e872b5540ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"erste", " ", "Ableitung"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529906423060451*^9, 
  3.5299064875094213`*^9}},ExpressionUUID->"c72ae738-76cc-49e0-977b-\
34a8f1729588"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"zweite", " ", "Ableitung"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5299064960790567`*^9, 
  3.52990650940414*^9}},ExpressionUUID->"a913f3b7-6b2b-4df9-ab5c-\
897bd6d814ec"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Ableitungen", " ", "bei", " ", "mehreren", " ", 
    "Ver\[ADoubleDot]nderlichen"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"x", "*", 
       RowBox[{"y", "^", "2"}]}], "]"}], ",", 
     RowBox[{"{", "x", "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"x", "*", 
       RowBox[{"y", "^", "2"}]}], "]"}], ",", 
     RowBox[{"{", "y", "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529906522882757*^9, 3.529906533845436*^9}, {
  3.529906588576428*^9, 
  3.5299066397462*^9}},ExpressionUUID->"e49ee219-044c-4318-aad9-778d227324b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"rein", " ", "symbolisch"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "*", 
     RowBox[{"f", "[", "x", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5299067155818777`*^9, 3.529906746725811*^9}, {
  3.529906929015299*^9, 3.529906931087202*^9}, {3.71257106669175*^9, 
  3.712571066739564*^9}},ExpressionUUID->"4e5c55f4-6c3d-4b45-84c5-\
35bb773ac6e3"],

Cell[TextData[{
 "Mit der totalen Ableitung \[OpenCurlyDoubleQuote]",
 StyleBox["Dt", "Input"],
 "\[CloseCurlyDoubleQuote] m\[UDoubleDot]ssen Abh\[ADoubleDot]ngigkeiten \
nicht mehr explizit angegeben werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529906762389699*^9, 3.529906763707629*^9}, {
  3.529906950968073*^9, 
  3.529907028908585*^9}},ExpressionUUID->"7ac74d2c-3b99-40f7-8dfc-\
8667e3ae02b8"],

Cell[BoxData[
 RowBox[{"Dt", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "*", "f"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5299067662680492`*^9, 3.5299067665034313`*^9}, {
  3.529906875933326*^9, 3.5299068822226543`*^9}, {3.5299069382211637`*^9, 
  3.529906945025532*^9}},ExpressionUUID->"8f2de345-c477-40aa-a60b-\
d512f988967f"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgabe",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529907738771572*^9, 3.5299077399677134`*^9}, 
   3.780042066409854*^9},ExpressionUUID->"dc40af94-317b-44ed-a110-\
7de2dd840198"],

Cell[TextData[{
 "\[CapitalUDoubleDot]berpr\[UDoubleDot]fen Sie die ",
 StyleBox["Cauchy-Riemannschen Differentialgleichungen",
  FontSlant->"Italic"],
 " explizit f\[UDoubleDot]r die Funktionen f(z) = 1 + exp(z), g(z) = z + \
1/z^2 und h(z) = z^2 + |z| (",
 StyleBox["Hinweis",
  FontSlant->"Italic"],
 ": verwenden Sie ",
 StyleBox["z=x+I*y ", "Input"],
 "und",
 StyleBox[" ComplexExpand[]", "Input"],
 "). Welche Eigenschaft besitzen die Funktionen folglich (nicht)?"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299077640098257`*^9, 3.529907812930545*^9}, {
   3.529907890703499*^9, 3.5299079306139727`*^9}, {3.529907981889964*^9, 
   3.529908031409422*^9}, 3.529908070377213*^9, {3.529908115370124*^9, 
   3.5299081291667747`*^9}, {3.529908193402796*^9, 3.529908200009365*^9}, {
   3.529908741240694*^9, 3.529908765952776*^9}, {3.5299088817125473`*^9, 
   3.529908917038766*^9}, {3.712571087395688*^9, 3.712571089267683*^9}, {
   3.712571122123728*^9, 
   3.712571174579853*^9}},ExpressionUUID->"d1d844c0-fbce-4f43-90d7-\
baf38e8b34dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sung",
 FontSlant->"Italic"]], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529907743511579*^9, 
  3.529907745939653*^9}},ExpressionUUID->"5b285716-c363-423e-811f-\
8418b7953bae"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "z", "]"}], ":=", 
  RowBox[{"1", "+", 
   RowBox[{"Exp", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "[", "z", "]"}], ":=", 
  RowBox[{"z", "+", 
   RowBox[{"1", "/", 
    RowBox[{"z", "^", "2"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "[", "z", "]"}], ":=", 
  RowBox[{
   RowBox[{"z", "^", "2"}], "+", 
   RowBox[{"Abs", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"subst", "=", 
   RowBox[{"{", 
    RowBox[{"z", "\[Rule]", 
     RowBox[{"x", "+", 
      RowBox[{"I", "*", "y"}]}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.529908079669347*^9, 3.52990810668567*^9}, {
  3.529908137024003*^9, 3.529908139366194*^9}, {3.529908219395433*^9, 
  3.529908233764974*^9}, {3.5299082865961857`*^9, 3.529908289976844*^9}, {
  3.529908649968585*^9, 3.529908663527012*^9}, {3.5299088563226833`*^9, 
  3.529908870568179*^9}},ExpressionUUID->"d1218f37-6440-49e7-bd80-\
206767584e60"],

Cell[BoxData[{
 RowBox[{"uf", "=", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{"f", "[", "z", "]"}], "/.", "subst"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"vf", "=", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Im", "[", 
    RowBox[{
     RowBox[{"f", "[", "z", "]"}], "/.", "subst"}], "]"}], "]"}]}]}], "Input",\

 CellChangeTimes->{{3.5299082623345957`*^9, 3.529908425081141*^9}, {
  3.529908474187285*^9, 
  3.529908500556288*^9}},ExpressionUUID->"1f6383ab-a688-4221-a81a-\
b67f013687e0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"uf", ",", "x"}], "]"}], "\[Equal]", 
  RowBox[{"D", "[", 
   RowBox[{"vf", ",", "y"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"uf", ",", "y"}], "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{"D", "[", 
    RowBox[{"vf", ",", "x"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{
  3.529908075299302*^9, {3.529908151822968*^9, 3.529908168423869*^9}, {
   3.529908231095337*^9, 3.5299082370641527`*^9}, {3.529908525284861*^9, 
   3.5299085881958523`*^9}, {3.529908671686946*^9, 
   3.529908675023391*^9}},ExpressionUUID->"e3bfa59c-380d-4a62-a521-\
a1d93e079283"],

Cell["f ist holomorph.", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52990877465635*^9, 3.529908779710505*^9}, {
  3.529909029871962*^9, 
  3.5299090305099077`*^9}},ExpressionUUID->"5739d0d5-4ef1-436b-924f-\
39e6e7c0a86b"],

Cell[BoxData[{
 RowBox[{"ug", "=", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{"g", "[", "z", "]"}], "/.", "subst"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"vg", "=", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Im", "[", 
    RowBox[{
     RowBox[{"g", "[", "z", "]"}], "/.", "subst"}], "]"}], "]"}]}]}], "Input",\

 CellChangeTimes->{{3.5299082623345957`*^9, 3.529908425081141*^9}, {
  3.529908474187285*^9, 
  3.529908513805558*^9}},ExpressionUUID->"1a07cdae-3cde-44a2-a3fd-\
970d0f1ca7aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"ug", ",", "x"}], "]"}], "\[Equal]", 
  RowBox[{"D", "[", 
   RowBox[{"vg", ",", "y"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"ug", ",", "y"}], "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{"D", "[", 
    RowBox[{"vg", ",", "x"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.5299085521610527`*^9, 3.5299086275556707`*^9}, {
  3.53034240646506*^9, 
  3.53034242508773*^9}},ExpressionUUID->"88e3c337-ac46-4541-86cc-\
848ee9a68eb1"],

Cell["g ist holomorph bis auf (0, 0).", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52990877465635*^9, 3.529908779710505*^9}, 
   3.529908962639677*^9, {3.5303419542257557`*^9, 3.530341955063631*^9}, {
   3.530342109583003*^9, 3.530342113634357*^9}, {3.530342414690896*^9, 
   3.530342415999711*^9}, {3.53034453538028*^9, 
   3.530344542111408*^9}},ExpressionUUID->"f25ac320-f51f-44f6-a5d8-\
6d3c40ae2c88"],

Cell[BoxData[{
 RowBox[{"uh", "=", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{"h", "[", "z", "]"}], "/.", "subst"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"vh", "=", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Im", "[", 
    RowBox[{
     RowBox[{"h", "[", "z", "]"}], "/.", "subst"}], "]"}], "]"}]}]}], "Input",\

 CellChangeTimes->{{3.5299082623345957`*^9, 3.529908425081141*^9}, {
  3.529908474187285*^9, 3.529908513805558*^9}, {3.5299089677453327`*^9, 
  3.5299089729971027`*^9}},ExpressionUUID->"efbe17c7-f3f4-48e1-8d7a-\
8793e2dabcdc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"uh", ",", "x"}], "]"}], "\[Equal]", 
  RowBox[{"D", "[", 
   RowBox[{"vh", ",", "y"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"uh", ",", "y"}], "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{"D", "[", 
    RowBox[{"vh", ",", "x"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{
  3.529908075299302*^9, {3.529908151822968*^9, 3.529908168423869*^9}, {
   3.529908231095337*^9, 3.5299082370641527`*^9}, {3.529908525284861*^9, 
   3.5299085881958523`*^9}, {3.529908671686946*^9, 3.529908675023391*^9}, {
   3.529908984876453*^9, 3.5299089998759947`*^9}, {3.530342432239971*^9, 
   3.530342450218788*^9}},ExpressionUUID->"8fc2a956-1cd6-4f04-94a0-\
dc3fde2a1dcb"],

Cell["g ist nicht holomorph.", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52990877465635*^9, 3.529908779710505*^9}, 
   3.529908962639677*^9, {3.529909005979648*^9, 
   3.529909007241332*^9}},ExpressionUUID->"8eed7acf-2f97-43b1-a010-\
90572b01d39f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "f", ",", "g", ",", "h", ",", "subst", ",", "x", ",", "y", ",", "z", ",", 
    "uf", ",", "vf", ",", "ug", ",", "vg", ",", "uh", ",", "vh"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.529908144240089*^9, 3.5299081487843018`*^9}, {
  3.529908921594626*^9, 3.529908945247057*^9}, {3.530344461419034*^9, 
  3.530344478358197*^9}, {3.530426988017282*^9, 3.530426993920163*^9}, {
  3.53042704388983*^9, 
  3.530427052901702*^9}},ExpressionUUID->"3d2c50ed-af96-4cd3-95c7-\
bd839158b63d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrieren", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529907058927429*^9, 
  3.5299070665355186`*^9}},ExpressionUUID->"f67d4c28-84a7-479a-b527-\
1c1198559972"],

Cell[TextData[{
 "Nat\[UDoubleDot]rlich stehen in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " auch Routinen f\[UDoubleDot]r Bestimmte und Unbestimmte Integrale \
(Stammfunktionen) bereit."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529907143776333*^9, 3.529907252825013*^9}, {
  3.5299073230977*^9, 
  3.529907323947091*^9}},ExpressionUUID->"8568b451-4b34-4850-abce-\
274002c87a9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"einfache", " ", "Polynome"}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"3", "*", "x"}], "-", 
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"35", "*", 
      RowBox[{"x", "^", "7"}]}]}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529907473478527*^9, 
  3.529907501256117*^9}},ExpressionUUID->"883bb6a8-e2fc-437d-b433-\
17522c00f603"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"elementare", " ", "Funktionen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"1", "/", "x"}], ",", "x"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", "x", "]"}], "^", "2"}], ",", "x"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"Cosh", "[", "x", "]"}], ",", "x"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"5", "*", "x"}], "]"}], ",", "x"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5299073324843807`*^9, 3.5299073400835238`*^9}, {
  3.529907424953713*^9, 3.5299074672068653`*^9}, {3.529907514226787*^9, 
  3.529907563258479*^9}},ExpressionUUID->"f750a4f3-d0d7-4a18-9b00-\
30e99bba673e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"komplexere", " ", "Ausdr\[UDoubleDot]cke"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"1", "+", "x", "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"1", "+", "x"}], "]"}]}], ",", "x"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"x", "^", "2"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"x", "^", "2"}]}], ")"}]}], ",", "x"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"1", "+", 
        RowBox[{"Sin", "[", "x", "]"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Cos", "[", "x", "]"}]}], ")"}]}], ",", "x"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529907350945114*^9, 3.529907404909479*^9}, {
  3.5299075713135557`*^9, 
  3.529907654420292*^9}},ExpressionUUID->"374a2d79-3834-4437-97ae-\
0e3879176744"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"bestimmte", " ", "Integrale"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"1", "+", 
      RowBox[{"x", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"9", "/", "7"}], ",", 
       RowBox[{"33", "/", "7"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "das", " ", "Symbol", " ", "Infinity", " ", "sollte", " ", 
     "selbsterkl\[ADoubleDot]rend", " ", "sein"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"x", "^", "2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529907668143649*^9, 3.5299076799627743`*^9}, {
  3.529907721263831*^9, 3.529907725892693*^9}, {3.5299090483878202`*^9, 
  3.529909188760028*^9}, {3.529909224361047*^9, 3.529909277877701*^9}, {
  3.5303425526842003`*^9, 
  3.530342555409752*^9}},ExpressionUUID->"ab7c09da-744e-4a38-bb27-\
45ded3a8c692"],

Cell[CellGroupData[{

Cell["Aufgabe", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52990955537903*^9, 
  3.529909558668667*^9}},ExpressionUUID->"c26e2f30-90f6-48cb-ac8d-\
f3ee5b90240d"],

Cell[TextData[{
 "Integrieren Sie die Funktion sin(x)/x auf dem Intervall [0,1] (",
 StyleBox["Hinweis",
  FontSlant->"Italic"],
 ": es ist nur nach einem numerischen Ergebnis gefragt)!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529913616434259*^9, 3.5299136255104723`*^9}, {
  3.5299136667902937`*^9, 3.52991372390784*^9}, {3.529914038372671*^9, 
  3.529914045357698*^9}},ExpressionUUID->"918e9823-e629-4e7a-9341-\
008f22e2366d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["L\[ODoubleDot]sung", "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299095623625317`*^9, 
  3.529909564801345*^9}},ExpressionUUID->"5c72840f-1096-46a1-90e2-\
176cb4d6b17e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"alternativ", ":", " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "//", "N"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5299095673051043`*^9, 3.529909571493595*^9}, {
  3.529913998424891*^9, 3.5299140740279427`*^9}, {3.530342586589017*^9, 
  3.530342590947929*^9}},ExpressionUUID->"731c63ab-bd25-4e4f-b32e-\
cf507ccb7ee5"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.4 Reihenentwicklung und Grenzwerte", "Subsubtitle",
 CellChangeTimes->{{3.529740863209552*^9, 3.5297408692601748`*^9}, {
   3.529741356797666*^9, 3.529741370251501*^9}, 3.529773051415709*^9, {
   3.529924362578012*^9, 
   3.5299243641424713`*^9}},ExpressionUUID->"4f756300-5ed1-4999-8426-\
bda410b18a4f"],

Cell[CellGroupData[{

Cell["Reihenentwicklung", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529914165966857*^9, 
  3.529914170425736*^9}},ExpressionUUID->"4c398c46-49f6-4259-92c5-\
929f9fd33ff8"],

Cell["\<\
Die Taylor-, bzw. Laurentreihe eines Ausdrucks liefert die Funktion: \
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529916032947423*^9, 3.529916046840706*^9}, {
  3.529916581533374*^9, 3.529916622621828*^9}, {3.529916652814498*^9, 
  3.529916719052512*^9}, {3.529916753397909*^9, 3.5299167617013187`*^9}, {
  3.530342707601181*^9, 
  3.5303427124856577`*^9}},ExpressionUUID->"37b9f208-4767-4cdd-8d7e-\
cd27dae92b59"],

Cell[TextData[StyleBox["Series[<Ausdr.>,{<Var.>,<Entw.pkt>,<Entw.ordn.>}]", \
"Input"]], "Text",
 CellChangeTimes->{{3.529916762954028*^9, 
  3.5299167917988167`*^9}},ExpressionUUID->"b8ebf5af-ce7d-4617-90b5-\
87669d12654d"],

Cell[TextData[{
 "Die Ausgabe dieses Befehls erfolgt in Form von ",
 StyleBox["SeriesData", "Input"],
 ", einer \[OpenCurlyDoubleQuote]Container\[CloseCurlyDoubleQuote]-Funktion. \
In der Entwicklung vernachl\[ADoubleDot]ssigte h\[ODoubleDot]here Ordnungen \
werden mit ",
 StyleBox["O[<Var.>]^(<Entw.ordn.>+1)", "Input"],
 " repr\[ADoubleDot]sentiert. Handlicher ist aber ein Ausdruck, den man durch \
Anwenden von ",
 StyleBox["Normal", "Input"],
 " erh\[ADoubleDot]lt."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299167964176807`*^9, 3.529916809436161*^9}, {
  3.529916853629181*^9, 3.529916952447485*^9}, {3.5299169918121433`*^9, 
  3.529917101981324*^9}, {3.5299172508932877`*^9, 3.529917256196376*^9}, {
  3.712571274219838*^9, 
  3.712571275036083*^9}},ExpressionUUID->"14f4027e-195a-422c-92ef-\
7a6119be3996"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "SeriesData", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5299171144461193`*^9, 3.5299171384739122`*^9}, {
  3.529917187721766*^9, 
  3.52991719359846*^9}},ExpressionUUID->"382fb14e-8c8f-412d-9a0c-\
e659e1189081"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "Ausdruck", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Normal", "[", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5299171501889963`*^9, 3.529917162874846*^9}, {
  3.529917195427215*^9, 
  3.5299172002757597`*^9}},ExpressionUUID->"cef41db3-ad2e-418d-aad9-\
a88faa275f3e"],

Cell[BoxData[{
 RowBox[{"1", "+", "x", "+", 
  RowBox[{"x", "^", "2"}], "+", 
  RowBox[{"x", "^", "3"}], "+", 
  RowBox[{
   RowBox[{"O", "[", "x", "]"}], "^", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"Exp", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "2"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Exp", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "-", "1"}], ")"}], "^", "10"}]}]}], "Input",
 CellChangeTimes->{{3.529917202666946*^9, 3.529917203663568*^9}, {
  3.529917262685033*^9, 3.5299173906491413`*^9}, {3.7125713449962254`*^9, 
  3.712571356060108*^9}},ExpressionUUID->"234da33a-3b20-4818-98e2-\
fffdd9b61853"],

Cell[TextData[{
 "H\[ODoubleDot]here Ordnungen werden also automatisch in \
\[OpenCurlyDoubleQuote]",
 StyleBox["O", "Input"],
 "\[CloseCurlyDoubleQuote] absorbiert und somit konsistent gehandhabt. Also \
",
 StyleBox["beachte",
  FontSlant->"Italic"],
 ":"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529917395436892*^9, 3.529917467049981*^9}, {
  3.529917755991321*^9, 
  3.5299177729836397`*^9}},ExpressionUUID->"535aef8f-d09e-4cff-bdef-\
f93f2b85660d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"Exp", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}], "+", 
  RowBox[{"x", "^", "5"}]}], "\[IndentingNewLine]", 
 RowBox[{"Normal", "[", 
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"Exp", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}], "+", 
   RowBox[{"x", "^", "5"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.529917471440802*^9, 
  3.5299175203478527`*^9}},ExpressionUUID->"230c46f2-830e-42f7-9e76-\
d8e3c10da745"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Grenzwerte", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299141719986277`*^9, 
  3.5299141753117867`*^9}},ExpressionUUID->"bc0fc840-b142-44a1-8bb3-\
40191f7321d3"],

Cell[TextData[{
 "Mit ",
 StyleBox["Limit", "Input"],
 " k\[ODoubleDot]nnen Sie in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Grenzwerte berechnen. ",
 StyleBox["Limit", "Input"],
 " nimmt zwei Argumente entgegen, den zu betrachtenden Ausdruck und eine \
Regel zur Grenzwertbildung. Mit der Option ",
 StyleBox["Direction", "Input"],
 " kann man zwischen links- und rechtsseitigem (Std.) Grenzwert \
w\[ADoubleDot]hlen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299157681141157`*^9, 3.529915883976317*^9}, {
  3.5299161302696257`*^9, 
  3.529916133787558*^9}},ExpressionUUID->"c0942804-41b6-4abb-b555-\
14d8a83b1d4a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"f\[UDoubleDot]r", " ", "Folgen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "n"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "n"}], ")"}]}], ",", 
    RowBox[{"n", "\[Rule]", "Infinity"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529916315929883*^9, 3.529916350076507*^9}, {
  3.529916414447185*^9, 
  3.529916416967107*^9}},ExpressionUUID->"93143766-18d2-40e3-9090-\
37ec9dfcc24f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"f\[UDoubleDot]r", " ", "Reihen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"n", "^", "2"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}], ",", 
    RowBox[{"nmax", "\[Rule]", "Infinity"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.52991615113842*^9, 
  3.5299162973945723`*^9}},ExpressionUUID->"2a4133e2-15f9-4b53-b9d6-\
7400aa7a68a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"f\[UDoubleDot]r", " ", "Funktionen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{"x", "/", 
     RowBox[{"Log", "[", "x", "]"}]}], ",", 
    RowBox[{"x", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529914149108096*^9, 3.5299141804456053`*^9}, {
  3.529915905329681*^9, 3.529915935905301*^9}, {3.5303430334903717`*^9, 
  3.5303430632541237`*^9}},ExpressionUUID->"54ab70b7-fc87-4983-b08f-\
447e7d92a5a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"mit", " ", "der", " ", "Option", " ", "Direction"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"ArcTan", "[", 
      RowBox[{"1", "/", "x"}], "]"}], ",", 
     RowBox[{"x", "\[Rule]", "0"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"+", "1"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"ArcTan", "[", 
      RowBox[{"1", "/", "x"}], "]"}], ",", 
     RowBox[{"x", "\[Rule]", "0"}], ",", 
     RowBox[{"Direction", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529915947760686*^9, 3.529916004947847*^9}, {
  3.5299160997894373`*^9, 3.5299161122996883`*^9}, {3.530343065830159*^9, 
  3.530343076492838*^9}},ExpressionUUID->"44efb821-a437-4f70-92a2-\
cfb414900299"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"n", ",", "nmax", ",", "x"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.529916377470722*^9, 
  3.529916393145626*^9}},ExpressionUUID->"a8833b21-bb02-412b-a1c9-\
54416ba10529"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.5 Vektoren und Matrizen", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529741340952188*^9, 3.529741343926262*^9}, {
   3.5297415835458803`*^9, 3.5297415876813602`*^9}, 3.5297730514160223`*^9, {
   3.529924366431777*^9, 
   3.52992436731455*^9}},ExpressionUUID->"590aa64f-c49f-43fb-bdaa-\
baa3266c831c"],

Cell[TextData[{
 "Vektoren und Matrizen (und bel. Tensoren) lassen sich durch \
(verschachtelte) Listen verk\[ODoubleDot]rpern. Mit ",
 StyleBox["MatrixForm", "Input"],
 " erh\[ADoubleDot]lt man auch die gewohnte Darstellung."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52992280188772*^9, 3.529922956698097*^9}, 
   3.5303433816812696`*^9},ExpressionUUID->"d277afa1-f7e7-4621-9030-\
949686dab762"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vektor1", "=", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"matrix1", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "3", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "1", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "vektor1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "matrix1", "]"}]}], "Input",
 CellChangeTimes->{{3.529922962424451*^9, 3.529923025626401*^9}, {
  3.529923080636455*^9, 3.529923123487823*^9}, {3.52992366845153*^9, 
  3.52992369038737*^9}},ExpressionUUID->"e0cd71c1-f4fc-4512-be64-\
858b507b1c51"],

Cell[TextData[{
 "Ein \[OpenCurlyDoubleQuote]",
 StyleBox[".", "Input"],
 "\[CloseCurlyDoubleQuote] zwischen zwei Vektoren, bzw. Matrizen f\
\[UDoubleDot]hrt das entsprechende Skalar- oder Matrizenprodukt aus."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529923145905864*^9, 3.5299232409300947`*^9}, {
  3.529940658520585*^9, 3.529940658791263*^9}, {3.530343400510241*^9, 
  3.530343401244034*^9}},ExpressionUUID->"62ba6f64-e9fb-4e54-9992-\
16e7f5433b75"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vektor2", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matrix2", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.529923254542617*^9, 3.529923279967482*^9}, {
  3.5299234390178423`*^9, 3.5299234468494883`*^9}, {3.5299236977687063`*^9, 
  3.5299237310676117`*^9}},ExpressionUUID->"866ca66e-f6c1-484f-93f4-\
852d92644f65"],

Cell[BoxData[{
 RowBox[{"vektor1", ".", "vektor2"}], "\[IndentingNewLine]", 
 RowBox[{"vektor1", ".", "vektor1"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"matrix2", ".", "vektor1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"matrix1", ".", "matrix2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.529923739412394*^9, 
  3.5299237711669903`*^9}},ExpressionUUID->"4e8ad97a-83c3-459d-8174-\
6a3d6930a1a9"],

Cell[TextData[{
 "Weiterhin existieren Routinen f\[UDoubleDot]r Transponierung (",
 StyleBox["Transpose", "Input"],
 "), Kreuzprodukt (",
 StyleBox["Cross", "Input"],
 "), die Spur (",
 StyleBox["Tr", "Input"],
 "), die Determinante (",
 StyleBox["Det", "Input"],
 ") sowie die inverse Matrix (",
 StyleBox["Inverse", "Input"],
 ") oder eine n-dimensionale Diagonalmatrix (",
 StyleBox["DiagonalMatrix", "Input"],
 ")."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299238232748737`*^9, 3.5299240614409313`*^9}, {
  3.52994068152155*^9, 3.529940695452344*^9}, {3.530343461229169*^9, 
  3.530343519961693*^9}, {3.712571532339528*^9, 
  3.712571534643486*^9}},ExpressionUUID->"40105ba0-b80e-44ed-b983-\
e1d38c52b099"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", "matrix1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.52992443125455*^9, 3.5299244369659986`*^9}, {
  3.5299246071929626`*^9, 3.529924608413844*^9}, {3.529924909204115*^9, 
  3.529924922133472*^9}},ExpressionUUID->"bb677934-fa01-487d-8433-\
004b8896418d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"matrix1i", "=", 
   RowBox[{"Inverse", "[", "matrix1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "matrix1i", "]"}]}], "Input",
 CellChangeTimes->{{3.529925158670075*^9, 
  3.529925208283638*^9}},ExpressionUUID->"e27712fd-4513-4e28-89f9-\
dcab0f9be916"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"matrix1", ".", "matrix1i"}], "]"}]], "Input",
 CellChangeTimes->{{3.529925288199617*^9, 
  3.5299252999500103`*^9}},ExpressionUUID->"3a94fb14-107f-459e-b6a9-\
8c7675d5e688"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"DiagonalMatrix", "[", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.529925320916532*^9, 
  3.529925357717764*^9}},ExpressionUUID->"9ee8124c-0bbc-4987-b44f-\
a15b6ad53144"],

Cell[BoxData[
 RowBox[{"Det", "[", "matrix1", "]"}]], "Input",
 CellChangeTimes->{{3.5299407462506323`*^9, 
  3.5299407510644293`*^9}},ExpressionUUID->"92cc9b9a-c0e1-4b2b-b9c5-\
8dd17325309d"],

Cell[BoxData[
 RowBox[{"Tr", "[", "matrix1", "]"}]], "Input",
 CellChangeTimes->{{3.529940754108243*^9, 
  3.529940763434291*^9}},ExpressionUUID->"0160b301-9e20-4cc7-bfdf-\
d51f00e88bad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "vektor1", ",", "vektor2", ",", "matrix1", ",", "matrix2", ",", 
    "matrix1i"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530344595221383*^9, 
  3.530344632671605*^9}},ExpressionUUID->"7712c7d4-502c-4df4-80b5-\
eeb7d9024470"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Aufgabe",
 FontSlant->"Italic"]], "Subsubsection",
 CellChangeTimes->{{3.529924097561617*^9, 
  3.529924110358605*^9}},ExpressionUUID->"a17d2146-08f5-4512-8c77-\
14b0c9b3fe93"],

Cell[TextData[{
 "Berechnen Sie die Eigenwerte und -vektoren der Matrix M! (",
 StyleBox["Hinweis",
  FontSlant->"Italic"],
 ": Sie k\[ODoubleDot]nnen mit den Ergebnissen von ",
 StyleBox["Eigenvalues", "Input"],
 " und ",
 StyleBox["Eigenvectors", "Input"],
 ", bzw. ",
 StyleBox["Eigensystem", "Input"],
 " vergleichen.)\n\nM = ",
 Cell[BoxData[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", 
       FractionBox["1", 
        SqrtBox["2"]], 
       RowBox[{"-", 
        FractionBox["1", 
         SqrtBox["2"]]}]},
      {
       FractionBox["1", 
        SqrtBox["2"]], 
       FractionBox["1", 
        SqrtBox["2"]], "1"},
      {"0", "1", "0"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]], "Output",
  CellChangeTimes->{3.529940968439139*^9},ExpressionUUID->
  "a44b50f7-4076-449f-81bd-01c768fbd329"],
 " "
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.529940806981792*^9, 3.529940942733818*^9}, {
  3.529941038367558*^9, 
  3.529941191535701*^9}},ExpressionUUID->"2f520805-ec88-4337-8f22-\
89ca8e8e639e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["L\[ODoubleDot]sung",
 FontSlant->"Italic"]], "Subsubsection",
 CellChangeTimes->{{3.529924103003066*^9, 
  3.529924105066742*^9}},ExpressionUUID->"092f122a-f70f-41e3-81ba-\
3fb1afe3dec9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "M", "]"}]}], "Input",
 CellChangeTimes->{{3.529940949037599*^9, 
  3.529940968017819*^9}},ExpressionUUID->"b5cd6434-ddcc-44d4-ab2f-\
d4dbb1dc1e13"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"lhs", "=", 
   RowBox[{"M", "-", 
    RowBox[{"la", "*", 
     RowBox[{"DiagonalMatrix", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "lhs", "]"}], "\[Equal]", "0"}]}], "Input",
 CellChangeTimes->{{3.529941320849429*^9, 3.529941375956663*^9}, 
   3.5299414245196447`*^9, {3.529941521705737*^9, 3.529941680521791*^9}, {
   3.5299417573061953`*^9, 
   3.52994176121692*^9}},ExpressionUUID->"4692ae8c-502e-4c60-8487-\
daadef3bc0bd"],

Cell[BoxData[
 RowBox[{"eVal", "=", 
  RowBox[{"la", "/.", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Det", "[", "lhs", "]"}], "\[Equal]", "0"}], ",", "la"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.529941378207004*^9, 3.529941406704925*^9}, 
   3.529941522725939*^9, {3.529941604304945*^9, 3.529941615096375*^9}, {
   3.52994168558502*^9, 3.529941690786097*^9}, {3.5299417464274273`*^9, 
   3.529941752323112*^9}},ExpressionUUID->"30031c52-c3ef-4af8-a133-\
1acef4023532"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"eVec", "=", 
    RowBox[{"{", 
     RowBox[{"v1", ",", "v2", ",", "v3"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eqn1", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"lhs", "/.", 
      RowBox[{"{", 
       RowBox[{"la", "\[Rule]", 
        RowBox[{"eVal", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ")"}], ".", "eVec"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"eqn1", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"eqn1", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"eqn1", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", " ", "0"}], ",", 
      RowBox[{"v3", "\[Equal]", "1"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eVec1", "=", 
    RowBox[{"eVec", "/.", 
     RowBox[{"sol1", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eqn2", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"lhs", "/.", 
        RowBox[{"{", 
         RowBox[{"la", "\[Rule]", 
          RowBox[{"eVal", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ")"}], ".", "eVec"}], 
     ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{"v3", "\[Rule]", " ", "1"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol2", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"eqn2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"eqn2", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"eqn2", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"v3", "\[Equal]", "1"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eVec2", "=", 
    RowBox[{"eVec", "/.", 
     RowBox[{"sol2", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eqn3", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"lhs", "/.", 
        RowBox[{"{", 
         RowBox[{"la", "\[Rule]", 
          RowBox[{"eVal", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ")"}], ".", "eVec"}], 
     ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{"v3", "\[Rule]", " ", "1"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol3", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"eqn3", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"eqn3", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"eqn3", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"v3", "\[Equal]", "1"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eVec3", "=", 
    RowBox[{"eVec", "/.", 
     RowBox[{"sol3", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "/@", 
  RowBox[{"{", 
   RowBox[{"eVec1", ",", "eVec2", ",", "eVec3"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.560835521995571*^9, 3.560835556005685*^9}, {
  3.560835920658271*^9, 3.5608361739713993`*^9}, {3.560836215428952*^9, 
  3.560836304969583*^9}, {3.560836357497651*^9, 3.560836409296719*^9}, {
  3.5608364416177197`*^9, 3.5608364662976522`*^9}, {3.560836523688406*^9, 
  3.5608365424146442`*^9}, {3.560836595036215*^9, 3.560836788518694*^9}, {
  3.560836827699957*^9, 3.5608368300265007`*^9}, {3.561124965606731*^9, 
  3.561125013881009*^9}},ExpressionUUID->"bad26010-7cb7-445b-b2e3-\
35cb581f3fbe"],

Cell[BoxData[{
 RowBox[{"Eigenvalues", "[", "M", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "/@", 
  RowBox[{"Eigenvectors", "[", "M", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Eigensystem", "[", "M", "]"}], " ", "macht", " ", "beides", " ", 
    "gleichzeitig"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.529940972515011*^9, 3.529941025124592*^9}, {
  3.529941216713105*^9, 3.529941229544491*^9}, {3.529942412823962*^9, 
  3.529942413405086*^9}},ExpressionUUID->"268c19a9-7f6a-4397-99b5-\
05d2768f351f"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " sortiert Eigenwerte und entsprechend deren Eigenvektoren nach abnehmendem \
Absolutbetrag."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530018188027873*^9, 3.530018219123913*^9}, 
   3.530018420440619*^9},ExpressionUUID->"5237b883-a8bf-4424-96b1-\
06ac12e12db8"],

Cell[BoxData[
 RowBox[{"SortBy", "[", 
  RowBox[{"eVal", ",", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"N", "[", "#", "]"}], "]"}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530018233642256*^9, 3.530018253010352*^9}, {
  3.530018388800171*^9, 
  3.530018405989915*^9}},ExpressionUUID->"a8f262e8-f029-4aae-965f-\
a7ef7b807254"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "M", ",", "lhs", ",", "la", ",", "eVal", ",", "eVec", ",", "v1", ",", "v2",
     ",", "v3", ",", "eqns1", ",", "eVec1", ",", "eqns2", ",", "eVec2", ",", 
    "eqns3", ",", "eVec3"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.529941856495804*^9, 3.529941861773181*^9}, {
  3.529943084685543*^9, 3.529943099977662*^9}, {3.530344684377718*^9, 
  3.530344714720039*^9}, {3.530427213451185*^9, 
  3.5304272248116302`*^9}},ExpressionUUID->"be03cd53-93f4-45f5-9c81-\
a2c85a4c9b10"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Bemerkung",
  FontSlant->"Italic"],
 " zu Listen"
}], "Subsubsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5299412747960052`*^9, 
  3.529941308619627*^9}},ExpressionUUID->"a1230b1e-f2ab-41cb-8582-\
cc87ec08cd2c"],

Cell[TextData[{
 "Man sollte beachten, dass die Operationen \[OpenCurlyDoubleQuote]",
 StyleBox["+", "Input"],
 "\[OpenCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["-", "Input"],
 "\[OpenCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["*", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["/", "Input"],
 "\[CloseCurlyDoubleQuote] sowie viele (\[OpenCurlyDoubleQuote]",
 StyleBox["Listable", "Input"],
 "\[CloseCurlyDoubleQuote]) Funktionen elementweise wirken (auch bei \
verschachtelten Listen)."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530018810819345*^9, 3.5300188663433867`*^9}, {
  3.530018968444167*^9, 3.530019051728306*^9}, {3.530019392325416*^9, 
  3.530019403330628*^9}},ExpressionUUID->"270a51c9-0310-4818-8149-\
8504a537f8e2"],

Cell[BoxData[
 RowBox[{"Attributes", "[", "Plus", "]"}]], "Input",
 CellChangeTimes->{{3.5300190176242867`*^9, 
  3.530019024298649*^9}},ExpressionUUID->"b9677d7e-4607-46c8-b3c9-\
42c286833261"],

Cell[BoxData[
 RowBox[{"Attributes", "[", "Exp", "]"}]], "Input",
 CellChangeTimes->{{3.5300190176242867`*^9, 3.530019024298649*^9}, {
  3.5300190794203997`*^9, 
  3.530019079790769*^9}},ExpressionUUID->"9b67d57f-9eff-4bff-a731-\
eed36f5f1813"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"liste1", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"liste2", "=", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"liste3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "j"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "l"}], "}"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5300191023933973`*^9, 3.530019204796969*^9}, {
  3.530019416110197*^9, 
  3.5300194377221537`*^9}},ExpressionUUID->"85e49d08-000f-4964-b55e-\
083e2d4ba91b"],

Cell[BoxData[
 RowBox[{"25", "*", "liste1"}]], "Input",
 CellChangeTimes->{{3.530019219790166*^9, 
  3.530019222838554*^9}},ExpressionUUID->"1e862239-fdcd-4dec-84c5-\
f0a9843758e7"],

Cell[BoxData[{
 RowBox[{"liste1", "*", "liste2"}], "\[IndentingNewLine]", 
 RowBox[{"liste1", ".", "liste2"}]}], "Input",
 CellChangeTimes->{{3.5300191023933973`*^9, 
  3.5300192069779987`*^9}},ExpressionUUID->"09b068c0-a360-4540-8d52-\
2bbb9dbf676f"],

Cell[BoxData[
 RowBox[{"liste1", "/", "liste2"}]], "Input",
 CellChangeTimes->{{3.5300191023933973`*^9, 
  3.530019213201497*^9}},ExpressionUUID->"94b1b11a-5863-45af-957a-\
f32322f51c04"],

Cell[BoxData[
 RowBox[{"Exp", "[", "liste2", "]"}]], "Input",
 CellChangeTimes->{{3.530019244490851*^9, 
  3.530019258671961*^9}},ExpressionUUID->"617ef30f-2fd4-4589-b3ae-\
8298f0e75397"],

Cell[BoxData[
 RowBox[{"liste3", "+", "1"}]], "Input",
 CellChangeTimes->{{3.5300194417661552`*^9, 
  3.530019508219667*^9}},ExpressionUUID->"9d33c021-be7f-4dc6-a8f5-\
4e8a63c58fc1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"u", ",", "v"}], "}"}], "*", "liste3"}]], "Input",
 CellChangeTimes->{{3.5300195125681553`*^9, 
  3.5300195305512257`*^9}},ExpressionUUID->"767cfa32-f341-4cd3-8560-\
9eaa62bfdef5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "liste1", ",", "liste2", ",", "liste3", ",", "a", ",", "b", ",", "c", ",", 
    "x", ",", "y", ",", "z", ",", "i", ",", "j", ",", "k", ",", "l"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"verwendete", " ", "Symbole"}], ",", " ", 
    RowBox[{"die", " ", "nicht", " ", "gesetzt", " ", "wurden", " ", 
     RowBox[{"(", 
      RowBox[{"a", ",", "b", ",", "..."}], ")"}], " ", "eigentlich", " ", 
     "unn\[ODoubleDot]tig"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5303437634803047`*^9, 3.530343785693927*^9}, {
  3.530427369270153*^9, 
  3.530427418110138*^9}},ExpressionUUID->"49eca505-c897-42a3-9349-\
1967362a9def"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.6 Plotten in 2D und 3D", "Subsubtitle",
 CellChangeTimes->{{3.5297413490390368`*^9, 3.529741351366197*^9}, {
   3.529741591432526*^9, 3.529741601382472*^9}, 3.529773051416176*^9, {
   3.529924376296419*^9, 3.529924378680689*^9}, {3.530191463543275*^9, 
   3.530191466883074*^9}},ExpressionUUID->"2c9239a7-59a6-420a-95aa-\
a0a45e14bd37"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " ist \[ADoubleDot]u",
 "\[SZ]",
 "erst m\[ADoubleDot]chtig, was die Visualisierung von Daten angeht. Das \
betrifft hier vorwiegend das einfache Plotten von Funktionen, parametrischen \
Darstellungen oder diskreten Datenpunkten in 2 oder 3 Dimensionen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530249139332801*^9, 3.5302493287651243`*^9}, {
   3.530334930039832*^9, 3.530334931024352*^9}, 
   3.530335144757416*^9},ExpressionUUID->"973ccf94-e535-44e2-b6c0-\
9aebe451e75a"],

Cell[CellGroupData[{

Cell["2-dimensionales Plotten von Funktionen", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.53024937228185*^9, 3.530249374468267*^9}, {
  3.530249468561273*^9, 3.5302494811926203`*^9}, {3.530265768353744*^9, 
  3.530265773832037*^9}},ExpressionUUID->"ce0005eb-92d8-4869-ab8c-\
beed4e0a4f93"],

Cell[TextData[{
 "Zun",
 "\[ADoubleDot]",
 "chst ein Blick auf die Syntax des ",
 StyleBox["Plot", "Input"],
 "-Befehls:"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5302505650638638`*^9, 3.530250586938047*^9}, 
   3.530334932267405*^9},ExpressionUUID->"036b7d8b-edf9-47ef-8213-\
9433020fc50a"],

Cell[BoxData[
 RowBox[{"?", "Plot"}]], "Input",
 CellChangeTimes->{{3.530250529928145*^9, 
  3.530250531439773*^9}},ExpressionUUID->"57923df4-25a0-45c3-ba9a-\
2314187875c9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"1.", " ", 
    RowBox[{"Variante", ":", " ", 
     RowBox[{"einzelne", " ", "Funktion"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", "*", "x"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.53025059793933*^9, 
  3.530250634276848*^9}},ExpressionUUID->"fce12842-5235-4c40-8077-\
8279c5971bbb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"2.", " ", 
    RowBox[{"Variante", ":", " ", 
     RowBox[{
      RowBox[{
      "mehrere", " ", "zu", " ", "plottende", " ", "Funktionen", " ", 
       "werden", " ", "Mathematica"}], "-", 
      RowBox[{
      "typisch", " ", "als", " ", "Liste", " ", 
       "\[UDoubleDot]bergeben"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"Pi", "*", "x"}], "]"}], ",", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", "Pi", "*", "x"}], "]"}], ",", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"Pi", "*", "x"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"Pi", "*", "x"}], ")"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530249591581849*^9, 3.530249681928047*^9}, {
   3.530250636149786*^9, 3.5302506400373583`*^9}, 
   3.5303350388354607`*^9},ExpressionUUID->"d9d94aeb-6191-4fe9-9768-\
4171a50dafe2"],

Cell[TextData[{
 "Der Befehl ",
 StyleBox["Show", "Input"],
 " dient allgemein dazu, graphischen Output zu kombinieren:"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5302497320921783`*^9, 
  3.530249776648695*^9}},ExpressionUUID->"1eb1d7fb-4d3c-45f8-9117-\
14076c028c9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"alternativ", ",", " ", 
    RowBox[{
    "f\[UDoubleDot]r", " ", "komplexere", " ", "Plots", " ", "zu", " ", 
     "empfehlen"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"plot1", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"Pi", "*", "x"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"2", "*", "Pi", "*", "x"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plot1", ",", "plot2"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530249784366866*^9, 3.530250007208297*^9}, {
   3.530250169485619*^9, 3.53025018637752*^9}, 
   3.530335041110312*^9},ExpressionUUID->"ba050ed0-2021-4867-a680-\
4e5c4aa094be"],

Cell["\<\
Plot hat eine F\[UDoubleDot]lle an Optionen, um die graphische Darstellung \
nahezu beliebig anzupassen:\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530250686945703*^9, 3.530250744597929*^9}, 
   3.530335042226307*^9, 
   3.780042449841734*^9},ExpressionUUID->"2cf123e1-1511-4130-bad2-\
e5629146a7d4"],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Options", "[", "Plot", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.530250746239161*^9, 3.530250749905097*^9}, {
  3.530251801979847*^9, 
  3.530251808180284*^9}},ExpressionUUID->"b5fc6a94-4c2a-43a9-a03e-\
8ebc4af72aaa"],

Cell[TextData[{
 StyleBox["PlotStyle", "Input"],
 " gibt genau vor, mit welchen Eigenschaften Kurven gezeichnet werden sollen. \
Je nach benutzter Variante des Plot-Befehls ist ",
 StyleBox["PlotStyle", "Input"],
 " Liste oder verschachtelte Liste von Grafik-Direktiven."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530252239190734*^9, 3.530252243795483*^9}, {
  3.530252284423687*^9, 3.5302523789197206`*^9}, {3.530253797386237*^9, 
  3.530253921588479*^9}},ExpressionUUID->"33c870e1-981d-414f-bd1d-\
e1cf2edc1d8e"],

Cell[TextData[{
 "Obiges Beispiel mit ",
 StyleBox["Plot", "Input"],
 "-Optionen:"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5302595174430513`*^9, 
  3.530259542353724*^9}},ExpressionUUID->"a38aa029-8fe2-4fc4-85b7-\
9b224ea827b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"plotStyle", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", 
        RowBox[{"Dashing", "[", 
         RowBox[{"{", 
          RowBox[{"0.05", ",", "0.025", ",", "0.1", ",", "0.025"}], "}"}], 
         "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Hue", "[", "0.4", "]"}], ",", "Dashed"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0.75", ",", "0.25", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"Pi", "*", "x"}], "]"}], ",", 
     RowBox[{"Sin", "[", 
      RowBox[{"2", "*", "Pi", "*", "x"}], "]"}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"Pi", "*", "x"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"Pi", "*", "x"}], ")"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", "/", "2"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<Beispiel-Plot\>\""}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", "plotStyle"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.530259556190557*^9, 3.5302596497962637`*^9}, {
  3.530259719474514*^9, 3.530259823337344*^9}, {3.5302646562889347`*^9, 
  3.5302646759699793`*^9}, {3.53026489647668*^9, 3.530265007855212*^9}, {
  3.530265064806149*^9, 3.5302651083247423`*^9}, {3.530265168673913*^9, 
  3.5302652339231377`*^9}, {3.530265296308819*^9, 
  3.530265310453388*^9}},ExpressionUUID->"83d1acab-8cc9-456a-a95e-\
3bb791fa68e3"],

Cell[TextData[{
 StyleBox["PlotRange", "Input"],
 " kann bei Funktionen mit starken Schwankungen oder Divergenzen zum Einsatz \
kommen:"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530265353296116*^9, 3.530265405939139*^9}, {
  3.530265750724985*^9, 3.530265751497855*^9}, {3.530339106198721*^9, 
  3.530339107039554*^9}},ExpressionUUID->"975cf43a-7fb6-4b7d-beae-\
c3ecdbf29949"],

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.530265783153151*^9, 3.530265817924096*^9}, {
  3.530265860451684*^9, 3.530265921521524*^9}, {3.530265951696548*^9, 
  3.530266202665814*^9}},ExpressionUUID->"ab32f3da-da5e-4414-9beb-\
0d274aa2bda1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"plot1", ",", "plot2", ",", "plotStyle"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5303447889951963`*^9, 
  3.5303447982184267`*^9}},ExpressionUUID->"547607f3-2330-4a2a-9752-\
28558ab15f01"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Andere M\[ODoubleDot]glichkeiten 2-dimensionalen Plottens", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5302663273743553`*^9, 3.5302663401870317`*^9}, 
   3.5303350023493443`*^9},ExpressionUUID->"0abbdc1e-8a7d-404f-9707-\
b00b03cdb596"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "i"}], "/", "25"}], "]"}], "+", 
      RowBox[{"RandomReal", "[", "0.1", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", "list", "]"}]}], "Input",
 CellChangeTimes->{{3.53026702607274*^9, 3.530267028370895*^9}, {
  3.530267328099367*^9, 
  3.53026743268246*^9}},ExpressionUUID->"76ce6e1c-5848-4182-a5a9-\
c526f1b242ad"],

Cell[BoxData[
 RowBox[{"PolarPlot", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"phi", "/", "10"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"phi", ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530267092303732*^9, 3.5302670946045113`*^9}, {
  3.530267476717944*^9, 
  3.530267547663644*^9}},ExpressionUUID->"dc0c3f48-babb-4c0f-8f9d-\
52da409d08ec"],

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "t", "]"}], "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"t", "/", "10"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "t", "]"}], "*", 
      RowBox[{"Sin", "[", 
       RowBox[{"t", "/", "10"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.494862256915543*^9, 3.494862257008041*^9}, {
  3.494862313232044*^9, 3.4948623433751*^9}, {3.494862385601258*^9, 
  3.494862429906587*^9}, {3.530267034638543*^9, 3.530267042984502*^9}, {
  3.530267567503564*^9, 
  3.5302677743157263`*^9}},ExpressionUUID->"8579a359-6e02-47b6-992c-\
7d5c7848bcbd"],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "*", 
    RowBox[{"Sin", "[", "y", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "*", "Pi"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", 
     RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5302671350832777`*^9, 3.5302671386690617`*^9}, {
  3.530268117244894*^9, 3.5302681198033323`*^9}, {3.530268309703869*^9, 
  3.530268355466031*^9}},ExpressionUUID->"1d2c4f0e-dbcf-4f8e-8df3-\
5d4f6a7f5a63"],

Cell[BoxData[
 RowBox[{"DensityPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "*", 
    RowBox[{"Sin", "[", "y", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"3", "*", "Pi"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", 
     RowBox[{"3", "*", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5302671350832777`*^9, 3.5302671386690617`*^9}, {
  3.530268117244894*^9, 3.5302681198033323`*^9}, {3.530268309703869*^9, 
  3.530268377349332*^9}},ExpressionUUID->"43ebbc8b-ac7e-4957-ad25-\
01f87a7cd538"],

Cell[BoxData[
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "*", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"x", "^", "2"}]}], "-", 
         RowBox[{"y", "^", "2"}]}], "]"}], "^", "2"}]}], ",", 
     RowBox[{
      RowBox[{"-", "x"}], "*", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"x", "^", "2"}]}], "-", 
         RowBox[{"y", "^", "2"}]}], "]"}], "^", "2"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530267193795024*^9, 3.5302671958475847`*^9}, {
  3.530268400511257*^9, 
  3.530268939815805*^9}},ExpressionUUID->"dd8c79d5-bba2-4d3d-b43c-\
f7f809bc5edc"],

Cell[TextData[{
 "Mit ",
 StyleBox["Animate", "Input"],
 " l",
 "\[ADoubleDot]",
 "sst sich im Allgemeinen das Ergebnis einer Funktion darstellen, wenn man \
einen Wert der Parameter zeitlich variiert. (Siehe auch ",
 StyleBox["Manipulate", "Input"],
 ".)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530268085418007*^9, 3.530268092686511*^9}, {
   3.530268175985107*^9, 3.530268202105349*^9}, {3.530268271891388*^9, 
   3.5302682906595*^9}, {3.530269388842505*^9, 3.5302694253959017`*^9}, 
   3.530334938172002*^9, 
   3.780042469033745*^9},ExpressionUUID->"d5c6ca25-97c6-4a97-bde9-\
ea699579ca87"],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", "t", "]"}], "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"t", "/", "10"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"t", "/", "10"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"tmax", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.494862256915543*^9, 3.494862257008041*^9}, {
  3.494862313232044*^9, 3.4948623433751*^9}, {3.494862385601258*^9, 
  3.494862429906587*^9}, {3.530267034638543*^9, 3.530267042984502*^9}, {
  3.530267567503564*^9, 
  3.5302680528118*^9}},ExpressionUUID->"3be62308-64b1-42e4-bab7-d5877f34734d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "list", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530344810961536*^9, 
  3.53034481523096*^9}},ExpressionUUID->"606a5ee7-47b1-454f-bd4c-\
87f397da21c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["3-dimensionales Plotten", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5302663982917223`*^9, 
  3.530266412764741*^9}},ExpressionUUID->"750d2a3e-d896-4c27-a485-\
45ca732ad29e"],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "*", 
    RowBox[{"Cos", "[", "y", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "*", "Pi"}], ",", 
     RowBox[{"2", "*", "Pi"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "*", "Pi"}], ",", 
     RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.494862459090159*^9, 3.494862547039816*^9}, {
  3.530269988337144*^9, 
  3.530270026446224*^9}},ExpressionUUID->"00102202-1257-418a-af76-\
54394f8430c0"],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], ",", 
       RowBox[{"Sin", "[", "t", "]"}], ",", 
       RowBox[{"t", "/", 
        RowBox[{"(", 
         RowBox[{"10", "*", "Pi"}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"tmax", ",", "0", ",", 
     RowBox[{"10", "*", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530270103998288*^9, 
  3.530270294216524*^9}},ExpressionUUID->"6758230a-4afc-45bc-bf3b-\
f9da78e52f95"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Einfache grafische Objekte", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.53027090852808*^9, 
  3.530270918765161*^9}},ExpressionUUID->"c597435a-e952-4229-9635-\
7ad1c9d78b68"],

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Green", ",", 
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", 
      RowBox[{"Translate", "[", 
       RowBox[{
        RowBox[{"Rotate", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], ",", 
          RowBox[{"Pi", "/", "4"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Yellow", ",", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.5", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.5", ",", 
           RowBox[{"-", 
            RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.5301945299919367`*^9, 3.530194544375839*^9}, 
   3.530250041207149*^9, 3.530252269960226*^9, {3.530271699510849*^9, 
   3.530272101307002*^9}, {3.530272329846505*^9, 3.530272662225069*^9}, {
   3.5302730967724447`*^9, 
   3.5302731321562157`*^9}},ExpressionUUID->"f1c77181-74f5-44c7-839b-\
d9859e2be99b"],

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}],
     "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Green", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", 
            RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", 
      RowBox[{"Cone", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0.5", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0.5", ",", 
            RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], 
    "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.5301945299919367`*^9, 3.530194544375839*^9}, 
   3.530250041207149*^9, 3.530252269960226*^9, {3.530271699510849*^9, 
   3.530272101307002*^9}, {3.530272329846505*^9, 3.530272662225069*^9}, {
   3.5302730967724447`*^9, 3.5302731321562157`*^9}, {3.53027318707872*^9, 
   3.5302734114031143`*^9}, {3.530273466749609*^9, 
   3.530273531778038*^9}},ExpressionUUID->"2090bbde-1fb8-4bf6-8b3d-\
b6c5c91e30a5"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.530273162129175*^9, 
  3.5302731634306507`*^9}},ExpressionUUID->"55c1e8cd-78c8-4313-86d4-\
a191d23a0251"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.7 Differentialgleichungen", "Subsubtitle",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.52974144712798*^9, 3.5297414538862247`*^9}, {
   3.5297414860870447`*^9, 3.529741486396851*^9}, 3.529773051415864*^9, {
   3.529924371489483*^9, 3.529924372035397*^9}, {3.5301892823347797`*^9, 
   3.5301892846641893`*^9}, {3.530191468559938*^9, 
   3.530191468634067*^9}},ExpressionUUID->"403914f4-664c-4041-8ff8-\
96186d6d2a91"],

Cell[TextData[{
 "Wie f\[UDoubleDot]r algebraische Gleichungen gibt es f",
 "\[UDoubleDot]",
 "r Differentialgleichungen eine Funktion zum Auffinden der \
L\[ODoubleDot]sungen: ",
 StyleBox["DSolve", "Input"],
 " (analytisch), bzw. ",
 StyleBox["NDSolve", "Input"],
 " (numerisch)."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530189321347843*^9, 3.5301893221574287`*^9}, {
   3.530189404158413*^9, 3.530189636497501*^9}, {3.5301896906363287`*^9, 
   3.530189708376135*^9}, {3.5301897391027193`*^9, 3.530189772158428*^9}, {
   3.530190660782638*^9, 3.530190667387738*^9}, 3.5303350037347107`*^9, {
   3.530335065067623*^9, 
   3.530335066818371*^9}},ExpressionUUID->"e148ea67-a4be-4b41-a964-\
2db473ae9eea"],

Cell[TextData[{
 StyleBox["Bemerkung",
  FontSlant->"Italic"],
 ": in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " sind \[OpenCurlyDoubleQuote]",
 StyleBox["+", "Input"],
 "\[OpenCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["*", "Input"],
 "\[CloseCurlyDoubleQuote], usw. Shortcuts f\[UDoubleDot]r Funktionen (",
 StyleBox["Plus", "Input"],
 ", ",
 StyleBox["Times", "Input"],
 "), im kommenden ist es n\[UDoubleDot]tzlich ",
 StyleBox["f[x]\[CloseCurlyQuote]", "Input"],
 " oder ",
 StyleBox["f\[CloseCurlyQuote]", "Input"],
 " als Ersatz f\[UDoubleDot]r ",
 StyleBox["D[f[x],x]", "Input"],
 " oder ",
 StyleBox["D[f,x]", "Input"],
 " zu haben."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5301897882796373`*^9, 3.530189971588325*^9}, {
  3.5301900865266647`*^9, 3.5301901145657673`*^9}, {3.5301906252586937`*^9, 
  3.530190628340589*^9}, {3.53033506880329*^9, 3.5303350708287992`*^9}, {
  3.53033856382749*^9, 
  3.530338565147805*^9}},ExpressionUUID->"fa314d17-9edc-4bf8-bb8f-\
cba35426a45f"],

Cell["Einfacher (ged\[ADoubleDot]mpfter, freier) harmonischer Oszillator:", \
"Text",
 CellChangeTimes->{{3.530190832619277*^9, 3.530190883693012*^9}, {
   3.530191543209627*^9, 3.530191549786256*^9}, 
   3.5303349396009398`*^9},ExpressionUUID->"90d49479-1543-428f-8810-\
eb773432911a"],

Cell[BoxData[
 RowBox[{"deqn", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "*", 
      RowBox[{
       RowBox[{"f", "''"}], "[", "x", "]"}]}], "+", 
     RowBox[{"b", "*", 
      RowBox[{
       RowBox[{"f", "'"}], "[", "x", "]"}]}], "+", 
     RowBox[{"c", "*", 
      RowBox[{"f", "[", "x", "]"}]}], "+", "d"}], "\[Equal]", "0"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.53019128888398*^9, 
  3.530191314479385*^9}},ExpressionUUID->"b9441e7d-61f7-4cda-80e2-\
e567dcaa0315"],

Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{"deqn", ",", 
   RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.530190681287055*^9, 3.530190686235244*^9}, {
  3.5301907214941874`*^9, 3.530190814244617*^9}, {3.5301912958655157`*^9, 
  3.530191319771661*^9}},ExpressionUUID->"87b159e0-8918-41bd-8f1f-\
12688de37ccb"],

Cell[TextData[{
 StyleBox["Bemerkung",
  FontSlant->"Italic"],
 ": die Funktion \[OpenCurlyDoubleQuote]",
 StyleBox["C", "Input"],
 "\[CloseCurlyDoubleQuote] steht f\[UDoubleDot]r Integrationskonstanten, die \
nicht durch die ",
 "\[UDoubleDot]",
 "bergebenen Gleichungen festlegbar sind."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530190893727076*^9, 3.530191034608279*^9}, {
  3.530193211164345*^9, 3.530193211828514*^9}, {3.530335072113031*^9, 
  3.5303350733553247`*^9}, {3.530335292602408*^9, 
  3.530335295184401*^9}},ExpressionUUID->"2460cb2f-5003-4abd-bf52-\
63db4e7324b3"],

Cell["\<\
Spezifikation auf die Anfangsbedingungen f(0) = 10 und f\[CloseCurlyQuote](0) \
= 5 durch die Angabe aller Gleichungen in geschweiften Klammern:\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530191107312977*^9, 3.530191153045138*^9}, {
  3.530191822765435*^9, 3.530191844818708*^9}, {3.53033867887669*^9, 
  3.530338679781892*^9}},ExpressionUUID->"b04a8d92-c65f-493f-94b2-\
6b05964c0109"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"deqn", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "\[Rule]", "1"}], ",", 
          RowBox[{"b", "\[Rule]", 
           RowBox[{"1", "/", "2"}]}], ",", 
          RowBox[{"c", "\[Rule]", "8"}], ",", 
          RowBox[{"d", "\[Rule]", 
           RowBox[{"-", "4"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"f", "[", "0", "]"}], "\[Equal]", "10"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "''"}], "[", "0", "]"}], "\[Equal]", "5"}]}], 
      "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"fp", "=", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], "/.", 
   RowBox[{"sol", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.530190681287055*^9, 3.530190686235244*^9}, {
  3.5301907214941874`*^9, 3.530190814244617*^9}, {3.530191160078377*^9, 
  3.530191195915104*^9}, {3.5301912276905518`*^9, 3.530191274056252*^9}, {
  3.5301913265574217`*^9, 3.53019144938868*^9}, {3.530191783266835*^9, 
  3.530191806409946*^9}, {3.530193197871591*^9, 3.530193201779496*^9}, {
  3.5303387817374897`*^9, 
  3.530338793979555*^9}},ExpressionUUID->"72750060-cc3f-4b58-9804-\
aae80db74c90"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x", "]"}], "/.", "\[VeryThinSpace]", 
  RowBox[{"{", 
   RowBox[{"deqn", ",", 
    RowBox[{
     RowBox[{"f", "[", "0", "]"}], "\[Equal]", "10"}], ",", 
    RowBox[{
     RowBox[{
      SuperscriptBox["f", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "0", "]"}], "\[Equal]", "5"}]}], 
   "}"}]}]], "Output",
 CellChangeTimes->{
  3.780042583706378*^9},ExpressionUUID->"f9e958dd-0853-4049-960f-\
e8bf6f417a74"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"fp", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530191526328842*^9, 
  3.530191532454178*^9}},ExpressionUUID->"67bc3add-0edb-4c1f-8fa2-\
05a9a95ca73f"],

Cell["\<\
Dasselbe nun erneut f\[UDoubleDot]r eine numerisch gel\[ODoubleDot]ste \
Differentialgleichung: getriebener harmonischer Oszillator.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530191863481986*^9, 3.530191921983226*^9}, {
   3.530191991613628*^9, 3.5301920077335033`*^9}, 3.5303349741799307`*^9, 
   3.5303350744626226`*^9, {3.530338737545096*^9, 
   3.530338744835782*^9}},ExpressionUUID->"695c28bf-d4f1-40ec-8f76-\
198ac8dbf131"],

Cell[BoxData[
 RowBox[{"deqn", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "*", 
      RowBox[{
       RowBox[{"f", "''"}], "[", "x", "]"}]}], "+", 
     RowBox[{"b", "*", 
      RowBox[{
       RowBox[{"f", "'"}], "[", "x", "]"}]}], "+", 
     RowBox[{"c", "*", 
      RowBox[{"f", "[", "x", "]"}]}], "+", "d"}], "\[Equal]", 
    RowBox[{"g", "[", "x", "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.53019128888398*^9, 3.530191314479385*^9}, {
  3.530192021542975*^9, 
  3.530192022497035*^9}},ExpressionUUID->"4637b522-90f0-49fd-9b3d-\
d0ab3ab95830"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "bei", " ", "NDSolve", " ", "m\[UDoubleDot]ssen", " ", "alle", " ", 
    "Parameter", " ", "spezifiziert", " ", "werden"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"deqn", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"g", "[", "x", "]"}], "\[Rule]", 
             RowBox[{"1", "/", 
              RowBox[{"(", 
               RowBox[{"1", "+", "x"}], ")"}]}]}], ",", 
            RowBox[{"a", "\[Rule]", 
             RowBox[{"-", "1"}]}], ",", 
            RowBox[{"b", "\[Rule]", 
             RowBox[{"1", "/", "2"}]}], ",", 
            RowBox[{"c", "\[Rule]", 
             RowBox[{"-", "3"}]}], ",", 
            RowBox[{"d", "\[Rule]", 
             RowBox[{"1", "/", "4"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"f", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"f", "'"}], "[", "0", "]"}], "\[Equal]", "10"}]}], 
        "\[IndentingNewLine]", "}"}], ",", 
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fp", "=", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "/.", 
      RowBox[{"sol", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.530190681287055*^9, 3.530190686235244*^9}, {
   3.5301907214941874`*^9, 3.530190814244617*^9}, {3.530191160078377*^9, 
   3.530191195915104*^9}, {3.5301912276905518`*^9, 3.530191274056252*^9}, {
   3.5301913265574217`*^9, 3.53019144938868*^9}, {3.530191783266835*^9, 
   3.530191806409946*^9}, {3.530192140925129*^9, 3.5301923137639847`*^9}, {
   3.5301923589087143`*^9, 3.530192414498876*^9}, {3.530192453185767*^9, 
   3.530192467921386*^9}, 3.5301927716580353`*^9, {3.5301928145360003`*^9, 
   3.5301928228874283`*^9}, {3.530192883543232*^9, 3.5301930839760313`*^9}, {
   3.5301931207035103`*^9, 3.530193180454666*^9}, {3.530193245155645*^9, 
   3.530193283008535*^9}, 3.530335075848782*^9, {3.5303388234698563`*^9, 
   3.530338829812851*^9}},ExpressionUUID->"e2ad8708-150c-4d7d-8770-\
397b906d0873"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"fp", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "100"}], ",", "100"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530191526328842*^9, 3.530191532454178*^9}, {
  3.530192389364134*^9, 3.5301923967267113`*^9}, {3.530192427899544*^9, 
  3.530192480532546*^9}, {3.530192782443966*^9, 3.530192808098764*^9}, {
  3.5301929729188213`*^9, 3.53019297490906*^9}, {3.5301930483169003`*^9, 
  3.530193048524061*^9}, {3.5301930976114407`*^9, 
  3.5301931155948563`*^9}},ExpressionUUID->"42fba7f4-3cc5-43ca-a369-\
4d643b1a9dfc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "deqn", ",", "f", ",", "x", ",", "a", ",", "b", ",", "c", ",", "d", ",", 
    "sol", ",", "g", ",", "fp"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5303386242006397`*^9, 3.53033865097471*^9}, {
  3.530338759961563*^9, 3.5303387647415047`*^9}, {3.530427511524323*^9, 
  3.530427511712665*^9}},ExpressionUUID->"83f5bc2f-82e2-4a7d-89de-\
c5db205410be"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3. Weitere Themen", "Subtitle",
 CellChangeTimes->{{3.529742646748269*^9, 3.52974265373625*^9}, {
   3.529742733088111*^9, 3.529742743263365*^9}, {3.5297430130674458`*^9, 
   3.529743013229287*^9}, 3.529773051416341*^9, {3.712572621514985*^9, 
   3.712572625818913*^9}},ExpressionUUID->"bbf70611-846b-4992-9293-\
064419ce6d5f"],

Cell[TextData[{
 "Diese Abschnitt soll Sie \[UDoubleDot]ber die oben aufgezeigten M\
\[ODoubleDot]glichkeiten hinaus vorwiegend mit den Aspekten von ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " vertraut machen, die helfen, Dinge zu automatisieren oder einfach nur \
eleganter und schneller zu erledigen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5307722193636293`*^9, 3.530772234609045*^9}, {
   3.530801265259925*^9, 3.530801473969255*^9}, {3.530801505278955*^9, 
   3.5308016537092333`*^9}, {3.530801704479204*^9, 3.5308017051509943`*^9}, {
   3.530871202039857*^9, 3.5308712025562077`*^9}, {3.530871265735161*^9, 
   3.530871270771305*^9}, {3.712572028311365*^9, 3.712572093047234*^9}, {
   3.712572123294669*^9, 3.7125721255747843`*^9}, 
   3.712572366541134*^9},ExpressionUUID->"836a8566-da1c-4f6c-a524-\
2b8cdbf46ba0"],

Cell[TextData[{
 "Es soll hier auf die Erkl\[ADoubleDot]rung von Befehlen verzichtet werden, \
die es auch in anderen (z.B. in C++) Programmiersprachen gibt\nwie \
beispielsweise ",
 StyleBox["For[]", "Input"],
 ", ",
 StyleBox["While[]", "Input"],
 ", ...  Die entsprechende Notation kann in der ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "-Hilfe nachgeschaut werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530801751379981*^9, 3.530801894869713*^9}, {
   3.530801931868331*^9, 3.5308019519561377`*^9}, {3.530801983260076*^9, 
   3.530802014721878*^9}, 3.530802089592732*^9, {3.530802141126656*^9, 
   3.530802195629004*^9}, {3.530802228605659*^9, 3.530802257587603*^9}, {
   3.5308712370643663`*^9, 3.5308712388336477`*^9}, {3.712572138350512*^9, 
   3.7125722230139017`*^9}, {3.712572276269547*^9, 3.712572309973299*^9}, 
   3.780042623217766*^9},ExpressionUUID->"82fb7ea3-3552-4c04-a9a3-\
27d0eb19425b"],

Cell[CellGroupData[{

Cell["3.1 \[OpenCurlyDoubleQuote]Pattern Matching\[CloseCurlyDoubleQuote]", \
"Subsubtitle",
 CellChangeTimes->{{3.529742759690398*^9, 3.529742780136752*^9}, 
   3.5297730514166594`*^9, {3.530802451954485*^9, 
   3.5308024530540247`*^9}},ExpressionUUID->"17a44c5b-bcc3-407e-ab48-\
60d2cb5a6453"],

Cell[TextData[{
 "Pattern-Objekte sind Platzhalter f\[UDoubleDot]r prinzipiell beliebige \
Konstrukte in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ". Ein einzelner Ausdruck wird durch \[OpenCurlyDoubleQuote]",
 StyleBox["_", "Input"],
 "\[CloseCurlyDoubleQuote] repr\[ADoubleDot]sentiert, durch Voranstellen \
eines Symbols l\[ADoubleDot]sst sich das \[OpenCurlyDoubleQuote]",
 StyleBox["Blank", "Input"],
 "\[CloseCurlyDoubleQuote] Pattern-Objekt benennen. \[OpenCurlyDoubleQuote]",
 StyleBox["__", "Input"],
 "\[CloseCurlyDoubleQuote] (",
 StyleBox["BlankSequence", "Input"],
 ") bezeichnet eine Sequenz, also eine durch Kommas getrennte beliebig lange \
Abfolge von Ausdr\[UDoubleDot]cken (eine Liste ohne geschweifte Klammern wie \
die Argumente einer Funktion). \[OpenCurlyDoubleQuote]___\
\[CloseCurlyDoubleQuote] (",
 StyleBox["BlankNullSequence", "Input"],
 ") beinhaltet auch den Fall einer leeren \[OpenCurlyDoubleQuote]Liste\
\[CloseCurlyDoubleQuote]."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530437783091597*^9, 3.530437846620727*^9}, {
   3.5304379215473633`*^9, 3.530438065858643*^9}, {3.530438100108511*^9, 
   3.530438181556171*^9}, {3.530438562921565*^9, 3.530438596209655*^9}, {
   3.530438635813436*^9, 3.5304387309005117`*^9}, {3.530438969559222*^9, 
   3.5304390219808493`*^9}, {3.530439341076107*^9, 3.530439348911366*^9}, {
   3.530607757576515*^9, 3.5306077860641193`*^9}, {3.5306078679836082`*^9, 
   3.530607919501308*^9}, {3.5306085429688683`*^9, 3.530608553702937*^9}, 
   3.780042638017662*^9},ExpressionUUID->"11b0eda1-de44-4663-8bb5-\
b4de39d5b56e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"expr", "=", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "+", 
    RowBox[{"f", "[", "y", "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "x"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"y", ",", "z"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "y"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"z", ",", "x", ",", "y"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"z", ",", "y", ",", "x"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.530607227000866*^9},ExpressionUUID->"983a35aa-c92a-40d2-bc7b-\
b62f0d78835c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "ersetzt", " ", "nur", " ", "f", " ", "mit", " ", "einem", " ", 
    "Argument"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "_", "]"}], "\[Rule]", "f1"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530607230345706*^9, 3.5306072947087097`*^9}, {
  3.530607374663618*^9, 
  3.530607374731146*^9}},ExpressionUUID->"92fe1408-00d6-4439-b7d8-\
c190d525f9e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "ersetze", " ", "alle", " ", "f", " ", "mit", " ", "genau", " ", "2", " ", 
    "Argumenten"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "f2"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.5306073268214684`*^9, 
  3.530607413091655*^9}},ExpressionUUID->"35830289-81b2-47ed-b850-\
b0bae76a189c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"ersetze", " ", "alle", " ", "f"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "__", "]"}], "\[Rule]", "ff"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.5306074470365887`*^9, 3.530607450256836*^9}, 
   3.530871457560974*^9},ExpressionUUID->"b55ba764-6992-4247-84a0-\
4f4cf02c22bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"ersetze", " ", "alle", " ", "f", " ", "mit", " ", 
    RowBox[{"mind", ".", " ", "2"}], " ", "Argumenten"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"_", ",", "__"}], "]"}], "\[Rule]", "f2p"}], "}"}]}]}]], "Input",\

 CellChangeTimes->{{3.5306074253952007`*^9, 3.530607429649007*^9}, {
  3.5308714680493526`*^9, 
  3.530871470587287*^9}},ExpressionUUID->"e57920eb-0516-4aa4-b3b5-\
c8156e73a58f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"mit", " ", "Benennung"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x_", "]"}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530607318739908*^9, 
  3.5306073447938957`*^9}},ExpressionUUID->"61648e51-d08d-4320-bd03-\
a75fdb7a3149"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"multpliziere", " ", "das", " ", "erste", " ", "Argument"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x_", ",", "y__"}], "]"}], "\[Rule]", 
     RowBox[{"x", "*", 
      RowBox[{"g", "[", "y", "]"}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530607955825714*^9, 
  3.530608009122836*^9}},ExpressionUUID->"41f4c578-65b8-444f-a9a2-\
751efe373a3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nun", " ", "auch", " ", "mit", " ", "leeren", " ", "y"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x_", ",", "y___"}], "]"}], "\[Rule]", 
     RowBox[{"x", "*", 
      RowBox[{"g", "[", "y", "]"}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.5306080262950773`*^9, 3.5306080362176228`*^9}, {
   3.530608312310055*^9, 3.5306083152624702`*^9}, 
   3.5308714972985287`*^9},ExpressionUUID->"5019c116-65fc-431c-8e27-\
b3ccb0d2a63d"],

Cell[CellGroupData[{

Cell["Bedingungen an Patterns", "Subsection",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530605701495453*^9, 3.530605714837665*^9}, 
   3.5306059985168657`*^9},ExpressionUUID->"4adfb12a-2e16-4aae-ac8a-\
f1a248e08fbc"],

Cell[TextData[{
 "Durch die Benutzung von Patterns, kann man leicht bestimmte Konstrukte aus \
einem Ausdruck herausfiltern. Die gestellten Bedingungen lassen sich durch \
einige ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "-Sprachelemente leicht weiter eingrenzen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530605978760682*^9, 3.530606176210825*^9}, {
   3.530871533003319*^9, 3.5308715531436167`*^9}, 
   3.780042654954287*^9},ExpressionUUID->"53886d14-50b9-4be4-a585-\
0da652e25c08"],

Cell[TextData[{
 StyleBox["Condition", "Input"],
 ", bzw. ",
 StyleBox["<Pattern>/;<Boolsche_Bedinung>", "Input"],
 " ist eine der vorhandenen Varianten. Es steht entweder unmittelbar hinter \
dem Pattern oder kann, falls das Pattern auf der linken Seite einer verz\
\[ODoubleDot]gerten Zuweisung, bzw. Ersetzung erscheint, hinter der rechten \
Seite stehen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5306062134740477`*^9, 3.5306062613974457`*^9}, {
   3.5306070539438963`*^9, 3.530607060511548*^9}, 3.530608353204648*^9, {
   3.530608404703319*^9, 3.530608515324223*^9}, {3.530608579353437*^9, 
   3.530608599272489*^9}, {3.530871569043932*^9, 3.530871570190444*^9}, {
   3.530871859938856*^9, 
   3.53087189033531*^9}},ExpressionUUID->"2c638e61-26ea-46f8-be06-\
9d7372780da9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"expr", "=", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"-", "1"}], "]"}], "+", 
    RowBox[{"f", "[", "32", "]"}], "+", 
    RowBox[{"f", "[", "x", "]"}], "+", 
    RowBox[{"f", "[", "y", "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", "^", "2"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", "*", "y"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"y", "^", "2"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530606266173036*^9, 3.530606338694118*^9}, {
  3.5306070924851217`*^9, 3.530607211807481*^9}, {3.530608610299973*^9, 
  3.5306087288914337`*^9}, {3.530609629422792*^9, 3.530609633094515*^9}, {
  3.530609943238041*^9, 
  3.530609957450613*^9}},ExpressionUUID->"356a210e-1def-446c-8d80-\
e2c717e105c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"x", " ", ">", " ", 
    RowBox[{"0", " ", "und", " ", "damit", " ", "auch", " ", "Zahl"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x_", "/;", 
       RowBox[{"(", 
        RowBox[{"x", ">", "0"}], ")"}]}], "]"}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530609903737011*^9, 3.5306099306472607`*^9}, {
  3.530616077775259*^9, 
  3.530616096864471*^9}},ExpressionUUID->"b3df9507-b302-4609-851c-\
0144a5bd4182"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"\[ADoubleDot]quivalent", ",", " ", 
    RowBox[{"aber", " ", ":>", " ", 
     RowBox[{"muss", " ", "verwendet", " ", "werden"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x_", "]"}], "\[RuleDelayed]", 
     RowBox[{
      RowBox[{"g", "[", "x", "]"}], "/;", 
      RowBox[{"(", 
       RowBox[{"x", ">", "0"}], ")"}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530616101538773*^9, 3.530616171027776*^9}, {
  3.5306162700267973`*^9, 
  3.5306162792579107`*^9}},ExpressionUUID->"4da8d2d9-c1f0-4068-ba41-\
90b35ab8226b"],

Cell[TextData[{
 "N\[UDoubleDot]tzliche Testfunktionen sind z.B. ",
 StyleBox["IntegerQ", "Input"],
 ", ",
 StyleBox["EvenQ", "Input"],
 ", ",
 StyleBox["OddQ", "Input"],
 ", ",
 StyleBox["NumberQ", "Input"],
 ", ",
 StyleBox["MemberQ", "Input"],
 ", ",
 StyleBox["FreeQ", "Input"],
 " und ",
 StyleBox["MatchQ", "Input"],
 "."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5306163685604057`*^9, 3.530616370498147*^9}, {
  3.530616923907913*^9, 3.5306169345020647`*^9}, {3.530617172593594*^9, 
  3.5306172347877073`*^9}, {3.530617269579413*^9, 
  3.530617286725844*^9}},ExpressionUUID->"b89cab18-8e5f-4d1a-b9a5-\
1c3227d1d2f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Test", " ", "auf", " ", "Zahl"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x_", "]"}], "/;", 
      RowBox[{"NumberQ", "[", "x", "]"}]}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530616101538773*^9, 3.530616171027776*^9}, {
   3.530616207907649*^9, 3.530616227755735*^9}, {3.530616286126041*^9, 
   3.5306162912581882`*^9}, 
   3.530616473986754*^9},ExpressionUUID->"c47a07e3-844b-486d-a459-\
2dbd42193f9d"],

Cell[TextData[{
 "Weitere M\[ODoubleDot]glichkeiten Bedingungen zu stellen, sind das \
Nachstellen eines Funktionskopfes (",
 StyleBox["Head", "Input"],
 ") hinter das Pattern oder die Verwendung von \[OpenCurlyDoubleQuote]",
 StyleBox["?", "Input"],
 "\[CloseCurlyDoubleQuote] (",
 StyleBox["PatternTest", "Input"],
 ")."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530609655106999*^9, 3.5306097428806953`*^9}, {
  3.53060983808391*^9, 
  3.530609888646072*^9}},ExpressionUUID->"b2671867-3f20-4053-958d-\
dba87705c782"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Test", " ", "auf", " ", "Symbol"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x_Symbol", "]"}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530616101538773*^9, 3.530616171027776*^9}, {
   3.530616207907649*^9, 3.530616227755735*^9}, {3.530616286126041*^9, 
   3.5306162912581882`*^9}, {3.530616377713916*^9, 3.530616413916576*^9}, 
   3.530616471501977*^9, {3.530616543860551*^9, 
   3.530616595666909*^9}},ExpressionUUID->"39589f5d-c941-47ef-b656-\
fa89f5e8ae34"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Symbole", " ", "werden", " ", "nur", " ", "jeweils", " ", "einmal", " ", 
    "nach", " ", "der", " ", "Reihenfolge", " ", "der", " ", "Regeln", " ", 
    "ersetzt"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x_Symbol", "]"}], "\[Rule]", 
      RowBox[{"f", "[", "x", "]"}]}], ",", 
     RowBox[{
      RowBox[{"f", "[", "x_", "]"}], "\[Rule]", 
      RowBox[{"g", "[", "x", "]"}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530616621047237*^9, 3.530616628617539*^9}, {
  3.530616670802991*^9, 3.530616749785968*^9}, {3.530871802778376*^9, 
  3.530871814433926*^9}},ExpressionUUID->"818ee584-2159-4c96-acac-\
bb7f41c6ce81"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Tauschen", " ", "in", " ", "einem", " ", "Schritt", " ", 
    "m\[ODoubleDot]glich"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], "+", 
     RowBox[{"g", "[", "y", "]"}]}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x_", "]"}], "\[Rule]", 
      RowBox[{"g", "[", "x", "]"}]}], ",", 
     RowBox[{
      RowBox[{"g", "[", "x_", "]"}], "\[Rule]", 
      RowBox[{"f", "[", "x", "]"}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530616759855589*^9, 3.530616862489718*^9}, {
  3.561464496968944*^9, 
  3.561464498467923*^9}},ExpressionUUID->"f763bba7-35fe-491a-94cd-\
42d9c1e337a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"alternativer", " ", "Test", " ", "auf", " ", "Zahl"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x_", "?", "NumberQ"}], "]"}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530616101538773*^9, 3.530616171027776*^9}, {
   3.530616207907649*^9, 3.530616227755735*^9}, {3.530616286126041*^9, 
   3.5306162912581882`*^9}, {3.530616377713916*^9, 3.530616413916576*^9}, 
   3.530616471501977*^9},ExpressionUUID->"b8cf471b-742e-4cba-b6ad-\
72f996dec33e"],

Cell[TextData[{
 "Weitere Funktionsk\[ODoubleDot]pfe sind ",
 StyleBox["Integer", "Input"],
 ", ",
 StyleBox["Real", "Input"],
 ", ",
 StyleBox["List", "Input"],
 ", ",
 StyleBox["Plus", "Input"],
 ", ",
 StyleBox["Times", "Input"],
 " oder",
 " ",
 StyleBox["<f>", "Input"],
 " bei einer Funktion ",
 StyleBox["f[...]", "Input"],
 "."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5306169028909492`*^9, 3.530616919501142*^9}, {
  3.530616999315637*^9, 3.530617048391704*^9}, {3.530617089273525*^9, 
  3.5306170946671467`*^9}},ExpressionUUID->"67d77aa4-7a52-4063-bbae-\
6b5a73e99d77"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"expr", ",", "f", ",", "g", ",", "x", ",", "y", ",", "z"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5306096074018507`*^9, 
  3.5306096224748173`*^9}},ExpressionUUID->"8330a306-d535-43b6-bb73-\
a6c90004d6ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Weiteres zu Patterns", "Subsection",
 CellChangeTimes->{{3.530617329686027*^9, 3.530617348001058*^9}, {
  3.530618612528182*^9, 
  3.5306186147497377`*^9}},ExpressionUUID->"e6204a00-1103-4358-8f59-\
b703c879ce37"],

Cell[TextData[{
 "F\[UDoubleDot]r sich wiederholende Symbole gibt es das Pattern \
\[OpenCurlyDoubleQuote]",
 StyleBox["..", "Input"],
 "\[CloseCurlyDoubleQuote] oder ",
 StyleBox["Repeated", "Input"],
 ". ",
 StyleBox["Achtung:",
  FontSlant->"Italic"],
 " ",
 StyleBox["x_..", "Input"],
 " ist nicht zul\[ADoubleDot]ssig!"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.53061773047386*^9, 3.5306178022400513`*^9}, {
  3.530618167514041*^9, 
  3.530618205513146*^9}},ExpressionUUID->"41cbf27a-9ec7-4825-bea8-\
caa929a4d7fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"expr", "=", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "+", 
    RowBox[{"f", "[", "y", "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "x"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"y", ",", "y"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "x", ",", "x", ",", "x"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "x", ",", "y", ",", "x"}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "x", ",", "x", ",", "x", ",", "y"}], 
     "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.530607227000866*^9, {3.530617962421838*^9, 
   3.530618045910141*^9}},ExpressionUUID->"1d99e5fa-6e1d-46a0-944a-\
4a91e7a4bb30"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"wirkt", " ", "auf", " ", 
     RowBox[{"f", "[", "x", "]"}]}], ",", " ", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "x"}], "]"}], " ", "und", " ", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "x", ",", "x", ",", "x"}], "]"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ".."}], "]"}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.5306178207246027`*^9, 3.5306178875966053`*^9}, {
  3.530618020528126*^9, 3.530618024139222*^9}, {3.5306180548879633`*^9, 
  3.530618056547945*^9}},ExpressionUUID->"2da211a7-75db-440e-9e2d-\
4b9771939f2d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"wirkt", " ", "auf", " ", "alle", " ", 
    RowBox[{"mind", ".", " ", "doppelt"}], " ", "auftretenden", " ", "x"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"___", ",", "x", ",", 
       RowBox[{"x", ".."}], ",", "___"}], "]"}], "\[Rule]", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.5306178207246027`*^9, 3.5306179295951977`*^9}, {
  3.530618090417368*^9, 3.5306181018372507`*^9}, {3.530618337770007*^9, 
  3.5306183384468718`*^9}, {3.5306184251345053`*^9, 
  3.530618427317361*^9}},ExpressionUUID->"80f0e66b-6cbc-44bb-bdf5-\
48f57227922d"],

Cell[TextData[{
 "\[OpenCurlyDoubleQuote]",
 StyleBox[":", "Input"],
 "\[CloseCurlyDoubleQuote] dient zum Benennen von komplexeren Patterns als \
bspw. \[OpenCurlyDoubleQuote]",
 StyleBox["_", "Input"],
 "\[CloseCurlyDoubleQuote]."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530618432984928*^9, 3.530618434940176*^9}, {
  3.530618474158463*^9, 3.530618505635871*^9}, {3.5308719805767717`*^9, 
  3.530871981382743*^9}},ExpressionUUID->"295aa969-a536-4c86-823b-\
386b61607d11"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "g", " ", "auf", " ", "alle", " ", "f", " ", "mit", " ", "genau", " ", 
    "zwei", " ", "Argumenten", " ", "anwenden"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"expr", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ff", ":", 
      RowBox[{"f", "[", 
       RowBox[{"_", ",", "_"}], "]"}]}], "\[Rule]", 
     RowBox[{"g", "[", "ff", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.530618518713357*^9, 
  3.5306186045157022`*^9}},ExpressionUUID->"2fbff748-27c3-4130-94b2-\
39de3ec6d891"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"expr", ",", "f", ",", "g", ",", "x", ",", "y", ",", "z"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5306096074018507`*^9, 
  3.5306096224748173`*^9}},ExpressionUUID->"874794c1-44c9-4e1a-a07a-\
8b650fd5f6b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Aufgabe", "Subsection",
 CellChangeTimes->{{3.530617383653572*^9, 
  3.530617385097031*^9}},ExpressionUUID->"1a5ac023-d166-4550-8df2-\
965a3c71b4e4"],

Cell["\<\
Schreiben Sie zwei unterschiedliche Regels\[ADoubleDot]tze. Der eine soll \
Summen von Logarithmen in einem Ausdruck in einen einzelnen Logarithmus \
umschreiben. Der andere soll daf\[UDoubleDot]r sorgen, dass nur noch \
Logarithmen mit m\[ODoubleDot]glichst einfachen Symbolen als Argument \
auftreten. Verwenden Sie die bekannten Identit\[ADoubleDot]ten!\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530618656247212*^9, 3.530618839937806*^9}, {
  3.530872041970626*^9, 3.530872048328053*^9}, {3.5308854530723667`*^9, 
  3.530885469079445*^9}, {3.712572540547708*^9, 
  3.712572541083722*^9}},ExpressionUUID->"35eec8d9-b259-4e99-b99b-\
5d58ce7ae668"],

Cell[BoxData[
 RowBox[{
  RowBox[{"testexpr", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"x", "*", 
       RowBox[{"y", "^", "2"}]}], "]"}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{"z", "/", "2"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Log", "[", "x", "]"}], "/", 
     RowBox[{
      RowBox[{"Log", "[", "y", "]"}], "^", "2"}]}], "+", 
    RowBox[{"Log", "[", 
     RowBox[{"z", "/", 
      RowBox[{"y", "^", "2"}]}], "]"}], "-", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{"z", "^", "3"}], "*", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], "^", "2"}]}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.530618848528287*^9, 3.530618894928125*^9}, 
   3.530618972227713*^9, {3.530619275947401*^9, 3.530619281066805*^9}, {
   3.530619490019146*^9, 3.530619498998818*^9}, {3.53062011698871*^9, 
   3.5306201263887453`*^9}, {3.53062023184976*^9, 
   3.5306202422791853`*^9}},ExpressionUUID->"c536097c-3582-4508-b660-\
7734079ff398"]
}, Open  ]],

Cell[CellGroupData[{

Cell["L\[ODoubleDot]sung", "Subsection",
 CellChangeTimes->{{3.53061863171632*^9, 
  3.53061863425914*^9}},ExpressionUUID->"3336ce66-7ff3-4e9c-8ae4-\
7fbabd00ea1d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"logsMulti", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"keine", " ", "Logs", " ", "in", " ", "Logs"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"i_", "/;", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Head", "[", "i", "]"}], "=!=", "Log"}], ")"}], "*", 
        RowBox[{"Log", "[", "x_", "]"}]}]}], "\[Rule]", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "^", "i"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", "x_", "]"}], "+", 
       RowBox[{"Log", "[", "y_", "]"}]}], "\[Rule]", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "*", "y"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", "x_", "]"}], "-", 
       RowBox[{"Log", "[", "y_", "]"}]}], "\[Rule]", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "/", "y"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.530618908387618*^9, 3.5306189554240227`*^9}, {
  3.530618989905059*^9, 3.530619062426282*^9}, {3.530619783386261*^9, 
  3.530619844958794*^9}, {3.530619950348898*^9, 3.530620042489118*^9}, {
  3.530620077478403*^9, 3.530620088078285*^9}, {3.5306201408287487`*^9, 
  3.530620170897026*^9}, {3.530620272690383*^9, 
  3.5306202811616697`*^9}},ExpressionUUID->"35dffb79-ffef-420b-a39d-\
def0845b48ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"logsSingle", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"x_", "^", "i_."}], "*", 
        RowBox[{"y_", "^", "j_."}]}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"i", "*", 
        RowBox[{"Log", "[", "x", "]"}]}], "+", 
       RowBox[{"j", "*", 
        RowBox[{"Log", "[", "y", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"kein", " ", "weiterer", " ", "Ausdruck", " ", "vorhanden"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"x_", "^", "i_."}], "]"}], "\[Rule]", 
      RowBox[{"i", "*", 
       RowBox[{"Log", "[", "x", "]"}]}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5306189266274776`*^9, 3.530618957145886*^9}, {
  3.5306191616473627`*^9, 3.5306192131881227`*^9}, {3.5306192892381573`*^9, 
  3.530619478768471*^9}, {3.530620292914958*^9, 
  3.530620314609908*^9}},ExpressionUUID->"84903dd6-54ed-4f7b-bb45-\
886819bc432a"],

Cell[TextData[{
 StyleBox["Bemerkung",
  FontSlant->"Italic"],
 ": Der Punkt hinter einem Pattern bedeutet, dass bei Nichtvorhandensein im \
betrachteten Ausdruck (auf den das Pattern angewandt oder \
\[CloseCurlyDoubleQuote]gematcht\[CloseCurlyDoubleQuote] wird) ein \
Default-Wert angenommen wird."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5614645298885307`*^9, 3.561464612008192*^9}, {
  3.561701386628592*^9, 3.561701458955928*^9}, {3.561701489706571*^9, 
  3.561701515612434*^9}, {3.56170232042724*^9, 3.561702323555663*^9}, {
  3.561702365921132*^9, 
  3.561702368280819*^9}},ExpressionUUID->"f24f9e5a-1419-4f55-b500-\
038d8f79c250"],

Cell[BoxData[{
 RowBox[{"MatchQ", "[", 
  RowBox[{"2", ",", 
   RowBox[{"a_", "+", "b_"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatchQ", "[", 
  RowBox[{"2", ",", 
   RowBox[{"a_", "*", "b_"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatchQ", "[", 
  RowBox[{"2", ",", 
   RowBox[{"a_", "^", "b_"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.561701976936488*^9, 
  3.561702071995099*^9}},ExpressionUUID->"f5daa2c0-a3c5-4105-8b37-\
171f87bca8a0"],

Cell[BoxData[{
 RowBox[{"MatchQ", "[", 
  RowBox[{"2", ",", 
   RowBox[{"a_", "+", "b_."}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatchQ", "[", 
  RowBox[{"2", ",", 
   RowBox[{"a_", "*", "b_."}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatchQ", "[", 
  RowBox[{"2", ",", 
   RowBox[{"a_", "^", "b_."}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.561702050731658*^9, 
  3.561702075343725*^9}},ExpressionUUID->"9730eb70-2187-40fc-bb16-\
698a7ce601bc"],

Cell[TextData[{
 "Je nach Kontext gibt es unterschiedliche Default-Werte, so gilt im obigen \
Beispiel: \[CloseCurlyDoubleQuote]",
 StyleBox["0", "Input"],
 "\[OpenCurlyDoubleQuote] bei \[OpenCurlyDoubleQuote]",
 StyleBox["+", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["1", "Input"],
 "\[OpenCurlyDoubleQuote] bei \[CloseCurlyDoubleQuote]",
 StyleBox["*", "Input"],
 "\[CloseCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]",
 StyleBox["1", "Input"],
 "\[CloseCurlyDoubleQuote] (nicht \[OpenCurlyDoubleQuote]",
 StyleBox["0", "Input"],
 "\[CloseCurlyDoubleQuote]!) bei \[OpenCurlyDoubleQuote]",
 StyleBox["^", "Input"],
 "\[CloseCurlyDoubleQuote]."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5614645298885307`*^9, 3.561464612008192*^9}, {
  3.561701386628592*^9, 3.561701458955928*^9}, {3.561701489706571*^9, 
  3.561701581678152*^9}, {3.561701635041996*^9, 3.561701745422348*^9}, {
  3.5617018332316647`*^9, 3.5617019123088703`*^9}, {3.561702112917614*^9, 
  3.561702169158966*^9}, {3.56170241706495*^9, 
  3.561702420591827*^9}},ExpressionUUID->"a287cc03-9248-4bcc-b6e1-\
1ab9c68530c1"],

Cell[BoxData[
 RowBox[{"testexpr", "//.", "logsSingle"}]], "Input",
 CellChangeTimes->{{3.5306192175544767`*^9, 3.530619231969378*^9}, 
   3.530619387653771*^9},ExpressionUUID->"ba9e58cb-8c81-4df1-a172-\
9c6c182da86c"],

Cell[BoxData[
 RowBox[{"testexpr", "//.", "logsMulti"}]], "Input",
 CellChangeTimes->{{3.5306195252466383`*^9, 3.5306195305841217`*^9}, 
   3.530619919573*^9, 
   3.530620021085094*^9},ExpressionUUID->"a8809b25-1de8-45a0-9878-\
00689d85b8f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "testexpr", ",", "x", ",", "y", ",", "z", ",", "logsMulti", ",", 
    "logsSingle"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530618960441886*^9, 
  3.530618987062368*^9}},ExpressionUUID->"8b8a26cf-4a1a-4c48-839c-\
8d1911688af1"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3.2 Funktionen", "Subsubtitle",
 CellChangeTimes->{{3.5302795444703836`*^9, 3.530279546315255*^9}, {
  3.530802456525878*^9, 
  3.530802457213481*^9}},ExpressionUUID->"838096cd-2c1a-4e08-b223-\
2b172c87497b"],

Cell[CellGroupData[{

Cell["Einfache Funktionen", "Subsection",
 CellChangeTimes->{{3.530311937866961*^9, 
  3.5303119463117733`*^9}},ExpressionUUID->"bad7de7c-c661-4cc1-861a-\
fb8a1f0c4ba3"],

Cell[TextData[{
 "Einfache Funktionen werden in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " definiert durch Angabe eines Funktionsnamens, dahinter in eckigen Klammern \
Patterns f\[UDoubleDot]r die Parameter, einem SetDelayed \
\[OpenCurlyDoubleQuote]",
 StyleBox[":=", "Input"],
 "\[CloseCurlyDoubleQuote] und einem Funktionsk\[ODoubleDot]rper, in dem die \
(benannten) Platzhalter wieder verwendet werden (k\[ODoubleDot]nnen)."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530778309253889*^9, 3.5307785910268993`*^9}, {
  3.530778622962163*^9, 3.5307786320171747`*^9}, {3.530872356191432*^9, 
  3.530872358012533*^9}},ExpressionUUID->"62540573-a3d1-4545-a53e-\
914e30128774"],

Cell["Also zum Beispiel:", "Text",
 CellChangeTimes->{{3.530778637948079*^9, 
  3.530778650288004*^9}},ExpressionUUID->"32e2b60c-7849-47c7-a18d-\
fbf5e119b947"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], "*", 
   RowBox[{"Cos", "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.53027971462432*^9, 
  3.5302797272425327`*^9}},ExpressionUUID->"a1f0c0fa-f6aa-4bc8-85b9-\
2ce417d56fd1"],

Cell[TextData[{
 "Dabei ist \[CloseCurlyDoubleQuote]",
 StyleBox["f", "Input"],
 "\[OpenCurlyDoubleQuote] der Funktionsname und das Pattern \
\[OpenCurlyDoubleQuote]",
 StyleBox["x_", "Input"],
 "\[CloseCurlyDoubleQuote] das Argument. Ein Pattern ist Platzhalter (hier f\
\[UDoubleDot]r eine Zahl oder einen beliebigen Ausdruck), der f\[UDoubleDot]r \
all das was man als Argument \[UDoubleDot]bergibt (durch ",
 StyleBox["SetDelayed", "Input"],
 "), das \[OpenCurlyDoubleQuote]",
 StyleBox["x", "Input"],
 "\[CloseCurlyDoubleQuote] rechts ersetzt. (Das Symbol ",
 StyleBox["f[x]", "Input"],
 " ist hier demnach f\[UDoubleDot]r beliebige ",
 StyleBox["x", "Input"],
 " definiert.)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530279734439062*^9, 3.530280039021722*^9}, {
  3.530280099063066*^9, 3.530280153030838*^9}, {3.530293463632206*^9, 
  3.5302934649741287`*^9}, {3.5304368943184423`*^9, 3.530436896902733*^9}, {
  3.530437188915925*^9, 3.530437194077935*^9}, {3.530777513739263*^9, 
  3.5307775155917788`*^9}, {3.5307787459277678`*^9, 3.5307787897528667`*^9}, {
  3.530872419305275*^9, 
  3.5308724330202303`*^9}},ExpressionUUID->"31e08b39-9f0b-41bc-94da-\
276262179cac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], "*", 
   RowBox[{"Cos", "[", "y", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530280272923573*^9, 
  3.530280287285726*^9}},ExpressionUUID->"2b7c2023-83a4-4643-8a03-\
0c62bb117f44"],

Cell[TextData[{
 "Hinter einer Funktionsdefinition braucht kein \[OpenCurlyDoubleQuote]",
 StyleBox[";", "Input"],
 "\[CloseCurlyDoubleQuote] zu stehen, da dank \[OpenCurlyDoubleQuote]",
 StyleBox[":=", "Input"],
 "\[CloseCurlyDoubleQuote] sowieso keine direkte Auswertung und Ausgabe \
erfolgt."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530779801789804*^9, 3.5307798632166452`*^9}, 
   3.5308724664910803`*^9},ExpressionUUID->"eab2980f-f83a-41cb-8d0c-\
716cf7711a80"],

Cell[CellGroupData[{

Cell["Ausnahmen", "Subsubsection",
 CellChangeTimes->{{3.530779142401498*^9, 
  3.530779144039946*^9}},ExpressionUUID->"76d885ff-84a3-4f61-92a4-\
74b279e5a286"],

Cell["\<\
Bei mehreren Ver\[ADoubleDot]nderlichen funktioniert das  eben diskutierte \
analog. Den selben Funktionsnamen zu w\[ADoubleDot]hlen ist \
zul\[ADoubleDot]ssig, genauso wie die Definition von Ausnahmen:\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5302802977829437`*^9, 3.5302804154070997`*^9}, {
  3.530280445823415*^9, 3.530280461807472*^9}, {3.530293484651196*^9, 
  3.5302935000385647`*^9}, {3.5303115401545687`*^9, 3.5303115441021233`*^9}, {
  3.5304371316699944`*^9, 3.530437133363084*^9}, {3.53077882688618*^9, 
  3.530778827059375*^9}, {3.530872495526835*^9, 
  3.5308725131980543`*^9}},ExpressionUUID->"afe17af2-d1a3-4e46-b4a1-\
cd996868ce2b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "x_"}], "]"}], ":=", "10"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"5", ",", "x_"}], "]"}], ":=", "x"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"1", ",", "1"}], "]"}], ":=", "100"}]}], "Input",
 CellChangeTimes->{{3.530280475176139*^9, 3.53028048702232*^9}, {
  3.530311553420628*^9, 
  3.530311604165368*^9}},ExpressionUUID->"913df857-3eae-44c0-94ca-\
80576ce3390e"],

Cell[BoxData[{
 RowBox[{"f", "[", 
  RowBox[{"1", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"1", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"5", ",", "67"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"2", ",", "2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.530293518129156*^9, 3.5302935511726637`*^9}, {
  3.530311633060182*^9, 3.530311644117663*^9}, {3.5614647829157887`*^9, 
  3.561464785174965*^9}},ExpressionUUID->"976854e0-a6f7-4217-b914-\
4e8fd584fcb1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530314706671769*^9, 3.530314712217634*^9}, {
  3.530779666492736*^9, 
  3.530779666778843*^9}},ExpressionUUID->"ca2620a9-4a6d-412b-9dfb-\
314e0f32a062"],

Cell["Iterative Funktionsdefinition:", "Text",
 CellChangeTimes->{{3.530314687786394*^9, 3.530314698277306*^9}, {
  3.53031479173006*^9, 3.530314797285749*^9}, {3.7800427755614567`*^9, 
  3.780042776545439*^9}},ExpressionUUID->"c35e7fc0-d102-4fb9-bd6c-\
be6a25ef029b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"kein", " ", ":=", " ", 
    RowBox[{
    "da", " ", "Ergebnis", " ", "nicht", " ", "von", " ", "Argument", " ", 
     "abh\[ADoubleDot]ngt"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Summe", " ", "von", " ", "0", " ", "bis", " ", "zu", " ", "einer", " ", 
     "ganzen", " ", "Zahl"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "[", "i_", "]"}], ":=", 
    RowBox[{"i", "+", 
     RowBox[{"f", "[", 
      RowBox[{"i", "-", "1"}], "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.530314700668112*^9, 3.530314778163855*^9}, {
  3.530778895253923*^9, 3.530778949547934*^9}, {3.53077900332187*^9, 
  3.5307790310332623`*^9}},ExpressionUUID->"c19e030f-3818-42b3-b0d5-\
9d95ae67b182"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "0", "]"}], ",", 
   RowBox[{"f", "[", "1", "]"}], ",", 
   RowBox[{"f", "[", "2", "]"}], ",", 
   RowBox[{"f", "[", "3", "]"}], ",", 
   RowBox[{"f", "[", "4", "]"}], ",", 
   RowBox[{"f", "[", "5", "]"}], ",", 
   RowBox[{"f", "[", "6", "]"}], ",", 
   RowBox[{"f", "[", "7", "]"}], ",", 
   RowBox[{"f", "[", "8", "]"}], ",", 
   RowBox[{"f", "[", "9", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.530314769831758*^9, 3.5303147724962187`*^9}, {
  3.530778982678376*^9, 3.530778989064899*^9}, {3.5307790399748*^9, 
  3.5307790758395023`*^9}},ExpressionUUID->"d094e144-8b33-4e33-aa0b-\
be2fdc6e696d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530314706671769*^9, 3.530314712217634*^9}, {
  3.530779672555649*^9, 
  3.5307796729384336`*^9}},ExpressionUUID->"a212572f-5010-4148-bce8-\
61bf9d95cde3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Caching\[CloseCurlyDoubleQuote]", "Subsubsection",
 CellChangeTimes->{{3.530779107109871*^9, 
  3.530779109913982*^9}},ExpressionUUID->"05fc22da-fc82-4945-ba00-\
71b8aee4bceb"],

Cell["\<\
Ein einfacher Trick, Rechenzeit zu sparen ist es, schon einmal berechnete \
Funktionswerte zu tabellieren, der Funktion also ein \
\[OpenCurlyDoubleQuote]Ged\[ADoubleDot]chtnis\[CloseCurlyDoubleQuote] zu \
geben. Mit dem Konstrukt in der folgenden Funktion wird f\[UDoubleDot]r \
verschiedene auftretende Argumente die Funktionsdefinition jeweils nur ein \
einziges Mal ausgewertet, ein Wert berechnet und gespeichert. Wird die \
Funktion mit demselben Argument erneut aufgerufen wird der einmal berechnete, \
alte Wert erneut ausgegeben.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5303148286323767`*^9, 3.5303150065533533`*^9}, {
   3.53031509198526*^9, 3.5303152767153683`*^9}, 3.530437134608416*^9, 
   3.5304371961802807`*^9, {3.530779171225914*^9, 3.53077948293336*^9}, {
   3.5308725853299427`*^9, 
   3.5308726307545347`*^9}},ExpressionUUID->"d062df5e-ab25-4a96-a8fe-\
44e58c825231"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Funktion", " ", "von", " ", "oben", " ", "mit", " ", 
    "zuf\[ADoubleDot]lligen", " ", "Nachkommastellen"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "[", "i_", "]"}], ":=", 
    RowBox[{
     RowBox[{"f", "[", "i", "]"}], "=", 
     RowBox[{"i", "+", 
      RowBox[{"f", "[", 
       RowBox[{"i", "-", "1"}], "]"}], "+", 
      RowBox[{"RandomReal", "[", "]"}]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.530314700668112*^9, 3.530314778163855*^9}, {
  3.5303150337030163`*^9, 3.530315072574442*^9}, {3.530779497969603*^9, 
  3.530779520569343*^9}, {3.530779601309422*^9, 3.530779654036962*^9}, {
  3.530779777139586*^9, 
  3.530779793258039*^9}},ExpressionUUID->"417a1ca8-1514-46db-b0f6-\
f4d8dace726f"],

Cell[BoxData[{
 RowBox[{"f", "[", "0", "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", "3", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"alte", " ", "Werte", " ", "trotz", " ", "RandomReal"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "4", "]"}]}], "Input",
 CellChangeTimes->{{3.530314769831758*^9, 3.5303147724962187`*^9}, {
  3.530315063285822*^9, 3.530315063508526*^9}, {3.530315286561728*^9, 
  3.5303153375345707`*^9}, {3.5307796989705887`*^9, 3.530779714913311*^9}, {
  3.530779912282909*^9, 
  3.5307799313875523`*^9}},ExpressionUUID->"d69e7c58-c233-4e78-951a-\
443996d53274"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530314706671769*^9, 3.530314712217634*^9}, {
  3.530779680642025*^9, 
  3.53077968095441*^9}},ExpressionUUID->"c0481eaf-5bfa-4caf-a19e-\
be1ba0f33219"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Optionale Argumente und \[CapitalUDoubleDot]berladen von Funktionen", \
"Subsection",
 CellChangeTimes->{{3.530312688711564*^9, 3.530312696908596*^9}, 
   3.5303134732476187`*^9, {3.53072263581497*^9, 3.530722637745069*^9}, {
   3.530772690931221*^9, 3.530772703491008*^9}, {3.530777189429081*^9, 
   3.530777193783162*^9}},ExpressionUUID->"bca59065-9e2e-4081-a5a6-\
2179a2f4935e"],

Cell["\<\
Eine Funktion l\[ADoubleDot]sst sich auch mit weniger Argumenten aufrufen, \
als in der Definition angegeben, insofern f\[UDoubleDot]r diese optionalen \
Argumente \[OpenCurlyDoubleQuote]Default\[CloseCurlyDoubleQuote]-Werte \
gesetzt wurden. Bei mehreren optionalen Argumenten werden bei einem Aufruf \
die in der Definition zuerst aufgef\[UDoubleDot]hrten als \
\[UDoubleDot]bergeben angenommen.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.53031271394895*^9, 3.530312832151044*^9}, 
   3.530313473248502*^9, 3.530437135699318*^9, 3.530437206801581*^9, 
   3.530722642378059*^9, {3.5307726330396423`*^9, 3.530772664252281*^9}, {
   3.5307727145955553`*^9, 3.530772754849798*^9}, {3.530777203506528*^9, 
   3.5307772265274963`*^9}},ExpressionUUID->"2aaa0a84-a98d-457c-bb3b-\
8b273ef0005e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", 
    RowBox[{"y_", ":", "100"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], "*", 
   RowBox[{"Cos", "[", "y", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530312838484784*^9, 3.530312877779126*^9}, 
   3.530313473252129*^9, {3.530772778728817*^9, 
   3.530772785772936*^9}},ExpressionUUID->"ce110d31-f581-4a09-a2af-\
ddbc8764ad99"],

Cell[BoxData[{
 RowBox[{"f", "[", 
  RowBox[{"x", ",", "y"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "x", "]"}]}], "Input",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530312882359888*^9, 3.530312891721352*^9}, 
   3.53031347325452*^9, {3.5307729438561087`*^9, 
   3.530772954426602*^9}},ExpressionUUID->"7f325cca-1b26-4646-a4e6-\
b6a91cf6486b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"eigentlich", " ", "unn\[ODoubleDot]tig"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ClearAll", "[", "f", "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.5303128982843857`*^9, 3.530312900906023*^9}, 
   3.530313473248939*^9, {3.530772837796426*^9, 3.530772838096208*^9}, 
   3.5307729790806303`*^9, {3.5307800277785788`*^9, 
   3.5307800441472*^9}},ExpressionUUID->"4cc804f6-8a88-4b34-995b-\
4725bbba9f72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", 
    RowBox[{"y_", ":", "100"}], ",", 
    RowBox[{"z_", ":", "1000"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], "*", 
   RowBox[{"Cos", "[", "y", "]"}], "*", 
   RowBox[{"Tan", "[", "z", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530772875055086*^9, 
  3.530772907063858*^9}},ExpressionUUID->"ebb64278-c523-42f2-8c47-\
897285fac23b"],

Cell[BoxData[{
 RowBox[{"f", "[", 
  RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"x", ",", "y"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.5307729088049994`*^9, 
  3.530772971855199*^9}},ExpressionUUID->"30c71b79-9654-47d6-8eec-\
1d92dc983e8c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530772973854211*^9, 
  3.530772981671926*^9}},ExpressionUUID->"ee167d32-7743-4198-8976-\
2329f33c8bc8"],

Cell[TextData[{
 "Eine einfache M\[ODoubleDot]glichkeit, aufw\[ADoubleDot]ndige \
Fallunterscheidungen bzgl. Anzahl und Art der \[UDoubleDot]bergebenen \
Argumente innerhalb eines Funktionsk\[ODoubleDot]rpers zu umgehen/vermeiden, \
ist das \[CapitalUDoubleDot]berladen von Funktionsdefinitionen. Das \
hei\[SZ]t: man definiert die Funktion (jeweils immer der selbe Name) f\
\[UDoubleDot]r unterschiedliche Patterns (entspricht im Grunde einer st\
\[UDoubleDot]ckweisen Tabellierung) und ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " w\[ADoubleDot]hlt bei Aufruf der Funktion automatisch das Passend(st)e aus."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530773000381031*^9, 3.530773259659274*^9}, {
   3.5307760136797943`*^9, 3.5307760260329447`*^9}, {3.530872848509235*^9, 
   3.530872883591069*^9}, 
   3.780042807447101*^9},ExpressionUUID->"a9b1e55a-4488-4108-ae5d-\
426d8a1ba9d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"zeigt", " ", "jeweils", " ", "die", " ", "ersten"}], " ", "<", 
     "y", ">", " ", "Stellen"}], ",", " ", "Zeichen", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"bzw", ".", " ", "Elemente"}], " ", "von"}], " ", "<", "x", ">",
      " ", "an"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{
      RowBox[{"x_", "?", "NumberQ"}], ",", 
      RowBox[{"y_Integer", ":", "5"}]}], "]"}], ":=", 
    RowBox[{"Print", "[", 
     RowBox[{"N", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x_String", ",", 
      RowBox[{"y_Integer", ":", "5"}]}], "]"}], ":=", 
    RowBox[{"Print", "[", 
     RowBox[{"StringTake", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x_List", ",", 
      RowBox[{"y_Integer", ":", "5"}]}], "]"}], ":=", 
    RowBox[{"Print", "[", 
     RowBox[{"x", "[", 
      RowBox[{"[", 
       RowBox[{";;", "y"}], "]"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.530775920222484*^9, 3.530775920667962*^9}, {
  3.530776079679904*^9, 3.530776201845397*^9}, {3.5307764190666122`*^9, 
  3.530776501879242*^9}, {3.530776532893221*^9, 3.530776617973629*^9}, {
  3.530776681453335*^9, 3.530776690242971*^9}, {3.530776722370844*^9, 
  3.530776729561988*^9}, {3.530776862030044*^9, 3.5307768622695208`*^9}, {
  3.5307770050410433`*^9, 3.530777005207868*^9}, {3.530777053895241*^9, 
  3.5307770600708313`*^9}},ExpressionUUID->"c6c1a120-67cc-4df4-93f7-\
a9ecdc751bf2"],

Cell[TextData[{
 StyleBox["Bemerkung",
  FontSlant->"Italic"],
 ": \[OpenCurlyDoubleQuote]",
 StyleBox[";;", "Input"],
 "\[CloseCurlyDoubleQuote] (der Shortcut f\[UDoubleDot]r ",
 StyleBox["Span", "Input"],
 ") wird weiter unten ausf\[UDoubleDot]hrlicher erkl",
 "\[ADoubleDot]rt."
}], "Text",
 CellChangeTimes->{{3.561702449552063*^9, 
  3.5617025787371407`*^9}},ExpressionUUID->"662eeafd-09e6-49ed-980e-\
54fda354b3fb"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"{", 
   RowBox[{
   "e1", ",", "e2", ",", "e3", ",", "e4", ",", "e5", ",", "e6", ",", "e7", 
    ",", "e8", ",", "e9", ",", "e10"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.530776693049757*^9, 3.5307767579004374`*^9}, {
  3.530776817499119*^9, 
  3.530776822666535*^9}},ExpressionUUID->"83a4aa9a-89d8-4692-8492-\
a981fbd3481a"],

Cell[BoxData[
 RowBox[{"f", "[", "\"\<abcdefghijklmnopqrstuvwxyz\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.530776774472267*^9, 
  3.5307768052192383`*^9}},ExpressionUUID->"95ba420f-aebc-4619-9e2e-\
b272c1647d45"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"N", "[", 
   RowBox[{"Pi", ",", "10"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5307767603512583`*^9, 3.530776768769084*^9}, {
  3.530776827802837*^9, 3.530776879711915*^9}, {3.5307769434402647`*^9, 
  3.530777066516333*^9}},ExpressionUUID->"db051ce8-d77e-4875-8806-\
4d417b6df75b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530776073409672*^9, 
  3.530776077794071*^9}},ExpressionUUID->"1bec3eaf-c29b-4d74-a6e5-\
b183f3c07587"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Module", "Subsection",
 CellChangeTimes->{{3.530311958000095*^9, 
  3.530311959927552*^9}},ExpressionUUID->"13ff0e1f-ce56-4c73-a531-\
7c4d5db376ed"],

Cell["\<\
Es sind auch Funktionen/Prozeduren/Subroutinen wie in anderen \
Programmiersprachen m\[ODoubleDot]glich:\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530293579971689*^9, 3.530293620510069*^9}, {
  3.5303119663119783`*^9, 3.5303120103521*^9}, {3.530780487471855*^9, 
  3.530780502644794*^9}},ExpressionUUID->"f06e88ef-6116-41f2-85c2-\
cc5ad2d2f4fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", ",", "i"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"RandomReal", "[", 
         RowBox[{"Abs", "[", "x", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Round", "[", "y", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"z", "=", 
      RowBox[{"z", "[", 
       RowBox[{"[", 
        RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.530312032882494*^9, 3.530312161165112*^9}, 
   3.530312217147517*^9, {3.5307805460587473`*^9, 3.530780550746356*^9}, 
   3.530780944965745*^9},ExpressionUUID->"bda37fc1-1a6c-48e2-861f-\
3e0be1d16a73"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"1", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.530780877908325*^9, 
  3.530780897907988*^9}},ExpressionUUID->"913801db-0fb2-42d0-86e1-\
2e01c905cf68"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"2", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.53078089047346*^9, 
  3.530780893468051*^9}},ExpressionUUID->"d8bcfb95-50aa-4953-b159-\
f56eb3351ae9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530780861273466*^9, 
  3.530780865532915*^9}},ExpressionUUID->"9f14835b-c76b-4b3a-ab8a-\
705030c6a486"],

Cell[TextData[{
 "Das erste Argument von ",
 StyleBox["Module", "Input"],
 " ist eine Liste lokaler Variablen (siehe auch ",
 StyleBox["Block", "Input"],
 ", ",
 StyleBox["With", "Input"],
 "), das zweite Argument ist der Funktionsk\[ODoubleDot]rper aus Anweisungen. \
R\[UDoubleDot]ckgabewert eines Moduls ist das Ergebnis der letzten Anweisung, \
bzw. das Argument von ",
 StyleBox["Return", "Input"],
 ". ",
 StyleBox["Return", "Input"],
 " muss nicht am Ende im Funktionsk\[ODoubleDot]rper stehen, denn durch den \
Aufruf von ",
 StyleBox["Return", "Input"],
 " wird die weitere Auswertung des Funktionsk\[ODoubleDot]rpers abgebrochen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5303122468818417`*^9, 3.530312319674211*^9}, {
   3.530312355299363*^9, 3.530312359859459*^9}, {3.53031239181581*^9, 
   3.530312433804957*^9}, 3.530437205674704*^9, {3.5307806004688597`*^9, 
   3.530780844241517*^9}},ExpressionUUID->"59a25e7f-0bd7-40c7-b491-\
50ca3a0567a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"simple", " ", "Betragsfunktion", " ", "mit", " ", "Ausgabe"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"x", ">", "0"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<Zahl gr\[ODoubleDot]\[SZ]er 0: \>\"", ",", "x"}], 
          "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Return", "[", "x", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Zahl kleiner 0: \>\"", ",", "x"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"-", "x"}], "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530780931858695*^9, 
  3.530781102432575*^9}},ExpressionUUID->"1cdbdcac-43b9-4eb1-a825-\
b34717c68c95"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"-", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.530781081028117*^9, 
  3.530781082303999*^9}},ExpressionUUID->"db21ae7f-aae1-4d9f-b107-\
34ae243414ac"],

Cell[BoxData[
 RowBox[{"f", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.530781084264236*^9, 
  3.5307810853730183`*^9}},ExpressionUUID->"9d175b0c-bd29-4341-a37a-\
6ef3957fe367"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530780861273466*^9, 
  3.530780865532915*^9}},ExpressionUUID->"e9bae750-c0ae-420c-8fb1-\
cf63a4e54bdc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Optionen", "Subsection",
 CellChangeTimes->{{3.530312916802596*^9, 
  3.530312923342531*^9}},ExpressionUUID->"7c1da3be-66b3-423d-829f-\
8fca0607f3c5"],

Cell["\<\
Optionen werden durch die Art der \[CapitalUDoubleDot]bergabe (als Regel) von \
(optionalen) Argumenten unterschieden. Sie sind dazu gedacht, um zum Beispiel \
zwischen zwei m\[ODoubleDot]glichen implementierten Verfahren wechseln oder \
Parameter eines Algorithmus (wie etwa die maximale Anzahl an \
Iterationsschritten) setzen zu k\[ODoubleDot]nnen.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5303129395724688`*^9, 3.530313084623941*^9}, {
   3.530313115962449*^9, 3.530313126817603*^9}, {3.530437163508257*^9, 
   3.530437165168071*^9}, 3.530437226283942*^9, {3.530723218321311*^9, 
   3.5307232198878937`*^9}, {3.5307232499288893`*^9, 3.53072326523388*^9}, {
   3.530723317038848*^9, 
   3.530723359789446*^9}},ExpressionUUID->"6b3046a3-ec6b-4c11-97ca-\
9c41b7105d56"],

Cell[TextData[{
 "Eine Funktion mit Optionen wird durch ",
 StyleBox["OptionsPattern", "Input"],
 " in der Argumentenliste eingef\[UDoubleDot]hrt. Der Zugriff auf die Werte \
\[UDoubleDot]bergebener Optionen innerhalb des Funktionsk\[ODoubleDot]rpers \
kann mittels ",
 StyleBox["OptionValue[<Optionsname>]", "Input"],
 " erreicht werden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530724355716872*^9, 3.53072455046835*^9}, {
  3.530724596836458*^9, 
  3.530724601701013*^9}},ExpressionUUID->"5bcf1e1d-85ce-4ab9-b543-\
1bdf5fdbd36b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Generierung", " ", "von", " ", "Zufallszahlen", " ", "von", " ", "0", 
      " ", "bis"}], " ", "<", "x", ">"}], ",", " ", 
    RowBox[{
     RowBox[{
     "R\[UDoubleDot]ckgabe", " ", "der", " ", "letzten", " ", "Zahl"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"+", " ", "Optionaler"}], " ", "Parameter"}], " ", "<", "max",
        ">"}], ":", " ", 
      RowBox[{"Anzahl", " ", "der", " ", "Zahlen"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"+", " ", "Option"}], " ", "<", "info", ">"}], ":", " ", 
      RowBox[{
      "Flag", " ", "f\[UDoubleDot]r", " ", "Ausgabe", " ", "der", " ", 
       "generierten", " ", "Liste"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", " ", "Obergrenze"}], " ", "muss", " ", "Number", " ", 
      "sein"}]}], ",", " ", 
    RowBox[{
     RowBox[{"also", " ", "Integer", " ", "oder", " ", "Real"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", " ", "L\[ADoubleDot]nge"}], " ", "der", " ", "Liste", " ", 
      "muss", " ", "Integer", " ", "sein"}], ";"}]}], "\[IndentingNewLine]", 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"func", "[", 
    RowBox[{
     RowBox[{"x_", "?", "NumberQ"}], ",", 
     RowBox[{"max_Integer", ":", "10"}], ",", 
     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", ",", "i"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", "x", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "max"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"OptionValue", "[", "info", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"TableForm", "[", "y", "]"}], "]"}]}], "\[IndentingNewLine]",
        "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "gebe", " ", "nur", " ", "die", " ", "letzte", " ", "Zufallszahl", " ",
         "zur\[UDoubleDot]ck"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"y", "=", 
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "y", "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5303131427195683`*^9, 3.5303133651257772`*^9}, {
   3.530769720637788*^9, 3.530769752811351*^9}, 3.5307697834105577`*^9, {
   3.5307698880020027`*^9, 3.530769888543499*^9}, {3.530769923734578*^9, 
   3.530769958266704*^9}, 3.5307700105580883`*^9, {3.5307701462809877`*^9, 
   3.530770170414206*^9}, {3.530770208914221*^9, 3.530770209608886*^9}, {
   3.530770245299177*^9, 3.5307704965322523`*^9}, 3.530770612769041*^9, {
   3.53077621301609*^9, 3.5307764065571337`*^9}, {3.530873230946953*^9, 
   3.5308732400036783`*^9}},ExpressionUUID->"46f6d004-e506-42f7-aa84-\
f034c4a0130c"],

Cell[BoxData[
 RowBox[{"func", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.53076994758948*^9, 3.530770242509923*^9}, {
  3.530770284293663*^9, 3.530770325712048*^9}, {3.530770489150546*^9, 
  3.530770505686264*^9}},ExpressionUUID->"85c60ab2-f417-491f-92d5-\
98082e0f3ce8"],

Cell[BoxData[
 RowBox[{"func", "[", 
  RowBox[{"1", ",", "20"}], "]"}]], "Input",
 CellChangeTimes->{{3.530770511279315*^9, 3.53077052440595*^9}, {
  3.530770615019*^9, 
  3.530770618482554*^9}},ExpressionUUID->"53dd7583-54d0-4d5a-b18e-\
a8a939845dca"],

Cell[BoxData[
 RowBox[{"func", "[", 
  RowBox[{"1", ",", "5", ",", 
   RowBox[{"info", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530770525984921*^9, 3.5307705333893423`*^9}, {
  3.530770621795483*^9, 
  3.530770622850305*^9}},ExpressionUUID->"8558db3f-d7a8-41a2-8128-\
e45db03cdf40"],

Cell[BoxData[
 RowBox[{"func", "[", 
  RowBox[{"1", ",", "5", ",", 
   RowBox[{"info", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530770525984921*^9, 3.5307705333893423`*^9}, {
  3.530770599068995*^9, 
  3.530770627314851*^9}},ExpressionUUID->"ef0bd386-0a10-4f3d-9cda-\
791e216dec70"],

Cell[BoxData["0.6350065484529415`"], "Input",
 CellChangeTimes->{{3.5308734178867493`*^9, 
  3.5308734179249496`*^9}},ExpressionUUID->"7b12aa1e-04f6-4c92-a40e-\
f22e4f6bfb72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Mathematica", " ", "unterscheidet", " ", "zwischen", " ", "Optionen", " ",
     "und", " ", 
    RowBox[{"opt", ".", " ", "Argumenten"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"func", "[", 
   RowBox[{"1", ",", 
    RowBox[{"info", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5307705506277*^9, 
  3.530770672609995*^9}},ExpressionUUID->"ab07317e-9336-40b6-969a-\
46543a6740c3"],

Cell[CellGroupData[{

Cell["Default-Werte", "Subsubsection",
 CellChangeTimes->{{3.530779972832889*^9, 
  3.5307799779568577`*^9}},ExpressionUUID->"272758e8-c282-4bdd-94b3-\
ed3623ae75a8"],

Cell[TextData[{
 "Es besteht die M\[ODoubleDot]glichkeit auch f\[UDoubleDot]r Optionen \
Default-Werte festzulegen. Dies geschieht indem man ",
 StyleBox["Options[<Funktionsname>]", "Input"],
 " einen Wert (Liste mit Ersetzungsregeln) zuweist. (",
 StyleBox["Options", "Input"],
 " ist eine Funktion, deren Werte tabelliert sind.)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{
  3.530724575583054*^9, {3.530724611409997*^9, 3.530724642889003*^9}, {
   3.530724726174868*^9, 3.53072478495887*^9}, {3.530725315183654*^9, 
   3.530725332439033*^9}},ExpressionUUID->"62c90f62-a93c-4b7d-9cae-\
76c86ca912ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "func", "]"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"info", "\[Rule]", "True"}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.530769787803858*^9, 3.530769789520217*^9}, {
  3.5307707033391523`*^9, 
  3.530770704199301*^9}},ExpressionUUID->"8288ac91-4a6f-4e26-8a22-\
12eb957c9cdf"],

Cell[BoxData[
 RowBox[{"func", "[", 
  RowBox[{"1", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.530770706651931*^9, 
  3.530770720239493*^9}},ExpressionUUID->"0e362afa-8436-47cc-9eed-\
b1c19a53d071"],

Cell[BoxData[
 RowBox[{"func", "[", 
  RowBox[{"1", ",", 
   RowBox[{"info", "\[Rule]", "True"}]}], "]"}]], "Input",ExpressionUUID->\
"fbd60d46-fd0e-41e6-bc45-c306eceaf222"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Options-\[CapitalUDoubleDot]bergabe", "Subsubsection",
 CellChangeTimes->{{3.530779982726067*^9, 
  3.530779990524441*^9}},ExpressionUUID->"fa7b8eaa-e92b-4302-a2dc-\
ec1814cc1c5a"],

Cell[TextData[{
 "M\[ODoubleDot]chte man etwa Optionen innerhalb einer Funktion an eine \
andere \[CapitalUDoubleDot]bergeben, so muss man mit ",
 StyleBox["opts:OptionsPattern[]", "Input"],
 " einen Namen an die Optionen vergeben. Stimmen die Optionen der beiden \
Funktionen nicht \[UDoubleDot]berein, so muss man die Optionen mit ",
 StyleBox["FilterRules", "Input"],
 " filtern."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530313375594939*^9, 3.530313405645125*^9}, {
  3.5307248251252832`*^9, 3.530724827484651*^9}, {3.530724866197812*^9, 
  3.530724884602274*^9}, {3.530724966584271*^9, 3.530725083156946*^9}, {
  3.5307251200050287`*^9, 3.5307251296195602`*^9}, {3.530725372509453*^9, 
  3.530725396124516*^9}, {3.53072545245383*^9, 3.530725468242423*^9}, {
  3.530725565159976*^9, 
  3.530725627126275*^9}},ExpressionUUID->"1e023687-c910-443a-856b-\
e74a8b9344f9"],

Cell["Dabei hilft folgendes Konstrukt:", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530770749019887*^9, 3.530770776506342*^9}, {
  3.530770814412991*^9, 
  3.5307708448404617`*^9}},ExpressionUUID->"544505cd-a51d-4a30-becd-\
6e6dbd8c296e"],

Cell[TextData[StyleBox["func1[<Argumente>,<optionale_Argumente>,opts:\
OptionsPattern[]]:=\n\tModule[{<lokale_Variablen>},\n\t\t...\n\t\tfunc2[\n\t\t\
\t<Argumente_und_evtl._optionale>,\n\t\t\tFilterRules[{opts},Options[func2]]\n\
\t\t];\n\t\t...\n\t\tReturn[<Return_Wert>]\n\t]", "Input"]], "Text",
 CellChangeTimes->{{3.5307708466417093`*^9, 3.5307709989715*^9}, {
  3.530771538628381*^9, 3.530771575091387*^9}, {3.5307719867305183`*^9, 
  3.530771993895599*^9}, {3.530772024513197*^9, 3.530772068847063*^9}, {
  3.5308734052760553`*^9, 
  3.530873406758358*^9}},ExpressionUUID->"b29312d3-3879-4488-b8b8-\
5d0310c5f9ee"],

Cell[BoxData[
 RowBox[{"ClearAll", "[", "func", "]"}]], "Input",
 CellChangeTimes->{{3.530313134635339*^9, 3.530313160268302*^9}, {
  3.530770733474071*^9, 
  3.5307707338703413`*^9}},ExpressionUUID->"5112c95e-1ac9-4e26-9de4-\
49e71b41456d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Pure Functions\[CloseCurlyDoubleQuote]", \
"Subsection",
 CellChangeTimes->{{3.530313496398142*^9, 3.530313507227137*^9}, {
  3.5303136185801897`*^9, 3.530313622908094*^9}, {3.530315559301558*^9, 
  3.530315563909298*^9}},ExpressionUUID->"d6d4688c-d26c-4105-bc8e-\
fae4c288ce0f"],

Cell["\<\
\[OpenCurlyDoubleQuote]Reine Funktionen\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]Pure Functions\[CloseCurlyDoubleQuote], bzw. anonyme \
Funktionen haben keinen eigenen Namen, k\[ODoubleDot]nnen aber nat\
\[UDoubleDot]rlich in einer Variablen gespeichert werden. Durch diesen \
Formalismus lassen sich neue Funktionen sehr rasch aus vorhandenen \
konstruieren.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530313607398571*^9, 3.530313735709937*^9}, {
   3.530313779845522*^9, 3.530313855493833*^9}, {3.530313916474679*^9, 
   3.5303139596711073`*^9}, {3.5304371664191837`*^9, 3.530437182655252*^9}, 
   3.5308735815530033`*^9},ExpressionUUID->"8dba68b6-0056-40bf-9ca7-\
37d7fc4e2298"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"(", "#", ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.530314002919874*^9, 3.530314048293466*^9}, {
  3.530314087670125*^9, 
  3.5303140877899513`*^9}},ExpressionUUID->"75d1b82d-b66a-441d-a44e-\
c08168b2dea2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "+", "#2"}], ")"}], "&"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"a", ",", "4"}], "]"}]}], "Input",
 CellChangeTimes->{{3.530314093540783*^9, 
  3.530314152887776*^9}},ExpressionUUID->"1e851c23-3457-47e9-bb65-\
a58b062329ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "f", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530314425773151*^9, 3.5303144333937597`*^9}, {
  3.5307813026715183`*^9, 
  3.530781303118416*^9}},ExpressionUUID->"0296c417-177d-4c75-9851-\
53f8b7f50baf"],

Cell[TextData[{
 "\[OpenCurlyDoubleQuote]",
 StyleBox["&", "Input"],
 "\[CloseCurlyDoubleQuote] (",
 StyleBox["Function", "Input"],
 ") beendet die reine Funktion, alles davorstehende wird als Funktionsk\
\[ODoubleDot]rper aufgefasst. \[OpenCurlyDoubleQuote]",
 StyleBox["#", "Input"],
 "\[CloseCurlyDoubleQuote] (",
 StyleBox["Slot", "Input"],
 ") erlaubt Zugriff auf die einzelnen Argumente im Aufruf, bei nur einem \
Argument gen\[UDoubleDot]gt \[OpenCurlyDoubleQuote]",
 StyleBox["#", "Input"],
 "\[CloseCurlyDoubleQuote], bei mehreren sind \[OpenCurlyDoubleQuote]",
 StyleBox["#1", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["#2", "Input"],
 "\[CloseCurlyDoubleQuote], usw. zu verwenden."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530314160596219*^9, 3.5303142390099916`*^9}, {
  3.530314272499531*^9, 3.530314309050156*^9}, {3.530781327108807*^9, 
  3.530781329339167*^9}, {3.530781360042809*^9, 3.5307814929492397`*^9}, {
  3.5308736107462378`*^9, 
  3.530873611622388*^9}},ExpressionUUID->"8a83b530-16e1-4836-8b4d-\
c7acf4def66a"],

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "b"}], "+", "a", "+", "1"}], ")"}], "^", "3"}], 
    "]"}], ",", 
   RowBox[{"{", "a", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5614649099280148`*^9, 
  3.56146491189694*^9}},ExpressionUUID->"62916ed6-3c09-4353-beb4-\
31aa2aca77bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Klammere", " ", "Koeffizienten", " ", "von", " ", "a", " ", "und", " ", 
    "schreibe", " ", "diese", " ", "als", " ", "faktorisierte", " ", 
    RowBox[{"Arg", ".", " ", "von"}], " ", "f"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"Expand", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "*", "b"}], "+", "a", "+", "1"}], ")"}], "^", "3"}], 
     "]"}], ",", 
    RowBox[{"{", "a", "}"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"f", "[", 
       RowBox[{"Factor", "[", "#", "]"}], "]"}], ")"}], "&"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.530314349615037*^9, 3.530314458121461*^9}, {
  3.530781499579811*^9, 
  3.53078153621592*^9}},ExpressionUUID->"b6a78384-e02c-45de-b7c5-\
5be3e1540455"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "w\[ADoubleDot]hle", " ", "aus", " ", "ganzen", " ", "Zufallszahlen", " ",
      "von", " ", "0", " ", "bis", " ", "100", " ", "nur", " ", "solche"}], 
    " ", ">", " ", 
    RowBox[{"50", " ", "aus"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"RandomInteger", "[", "100", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "100"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"#", ">", "50"}], ")"}], "&"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Length", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5303144694487762`*^9, 3.5303145493227167`*^9}, {
  3.530781563741602*^9, 3.530781667452641*^9}, {3.5308736517288*^9, 
  3.53087365269519*^9}},ExpressionUUID->"509d4aa6-0109-426e-ba83-\
22ba902a33f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Anwendung von Funktionen", "Subsection",
 CellChangeTimes->{{3.530315539061022*^9, 3.530315543085438*^9}, {
  3.5307772979380493`*^9, 
  3.530777306115932*^9}},ExpressionUUID->"89126981-83bc-4b27-90f0-\
1b76bc38bef9"],

Cell[TextData[{
 "In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " gibt es eine Reihe von M\[ODoubleDot]glichkeiten Funktionen \
aufzurufen/anzuwenden, wie es sie z.B. in C++ nicht gibt."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5307817688065243`*^9, 3.530781823642214*^9}, {
  3.5307821476820393`*^9, 
  3.530782150325865*^9}},ExpressionUUID->"2068a095-2cf4-4d9f-ac0a-\
e376d58b72cb"],

Cell[TextData[{
 "Neben der bisher bekannten Notation zum Funktionsaufruf ",
 StyleBox["f[x]", "Input"],
 " gibt es Pr\[ADoubleDot]fix-Aufruf ",
 StyleBox["f@x", "Input"],
 " und Postfix-Aufruf ",
 StyleBox["x//f", "Input"],
 "."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530782278683913*^9, 3.530782353239386*^9}, {
  3.530782402734075*^9, 
  3.530782420220978*^9}},ExpressionUUID->"78e66662-94ca-48a6-b28d-\
06623fab7f0c"],

Cell[BoxData[{
 RowBox[{"N", "[", "Pi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "@", "Pi"}], "\[IndentingNewLine]", 
 RowBox[{"Pi", "//", "N"}]}], "Input",
 CellChangeTimes->{{3.530782429793633*^9, 
  3.5307824427283688`*^9}},ExpressionUUID->"107b3501-e67f-42b0-b859-\
4206d5a3db56"],

Cell[TextData[{
 StyleBox["Apply", "Input"],
 " \[OpenCurlyDoubleQuote]",
 StyleBox["@@", "Input"],
 "\[CloseCurlyDoubleQuote] ersetzt den Funktionskopf eines Ausdrucks mit dem \
angegebenen. Wie man sich durch ",
 StyleBox["FullForm", "Input"],
 " / ",
 StyleBox["TreeForm", "Input"],
 " oder auch ",
 StyleBox["<Ausdruck>[[0]]", "Input"],
 ", bzw. ",
 StyleBox["Head", "Input"],
 " ",
 "\[UDoubleDot]",
 "berzeugen kann, hat jeder Ausdruck einen solchen Funktionskopf."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530782539883621*^9, 3.5307826757181807`*^9}, {
   3.5307827310273333`*^9, 3.5307827545704813`*^9}, {3.53087368807968*^9, 
   3.530873689885231*^9}, 
   3.530873890207409*^9},ExpressionUUID->"3ddff599-ee33-4fea-886e-\
049e390722ac"],

Cell[BoxData[{
 RowBox[{"Head", "[", 
  RowBox[{"a", "+", "b"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Head", "[", 
  RowBox[{"a", "*", "b"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Head", "[", "\"\<a b\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Head", "[", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b"}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Head", "[", "f", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Head", "[", 
  RowBox[{"f", "[", "x", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.530782763004244*^9, 
  3.5307828077881927`*^9}},ExpressionUUID->"89907a22-ce79-44ae-8938-\
a12dc100a045"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "@", "x"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Vorsicht", "!"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "@@", "x"}], "\[IndentingNewLine]", 
 RowBox[{"f", "@@", 
  RowBox[{"{", "x", "}"}]}]}], "Input",
 CellChangeTimes->{{3.530782823174897*^9, 3.53078285157933*^9}, {
  3.530782927627737*^9, 3.530782947072315*^9}, {3.530783082555519*^9, 
  3.5307830846601152`*^9}},ExpressionUUID->"187cf205-493a-49a4-a30e-\
5d2fda2b54a1"],

Cell[BoxData[{
 RowBox[{"Plus", "@@", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"List", "@@", 
  RowBox[{"(", 
   RowBox[{"a", "+", "b", "+", "c"}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plus", "@@", 
  RowBox[{"f", "[", 
   RowBox[{
    RowBox[{"g", "[", 
     RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
    RowBox[{"h", "[", 
     RowBox[{"k", ",", "l", ",", "m"}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.530782863325988*^9, 3.530782884028947*^9}, {
  3.561464950554888*^9, 
  3.5614650460485487`*^9}},ExpressionUUID->"aaef9b26-9d39-4fbe-8380-\
f86428b75aff"],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Mapping\[CloseCurlyDoubleQuote] + Bsp.", \
"Subsubsection",
 CellChangeTimes->{{3.530783060291527*^9, 3.530783063248355*^9}, {
  3.530808656379382*^9, 
  3.530808658433921*^9}},ExpressionUUID->"9e086bcc-cfaa-4013-a237-\
7fad4dbeb8c1"],

Cell[TextData[{
 "Mit ",
 StyleBox["Map", "Input"],
 " (",
 StyleBox["/@", "Input"],
 ") und ",
 StyleBox["MapThread", "Input"],
 " gibt es zwei sehr praktische Methoden, Funktionen auf jeweils alle \
Elemente in Listen als Argumente anzuwenden. Das Ergebnis ist dann wiederum \
eine Liste."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{
  3.530782773619754*^9, 3.530783051807345*^9, {3.530783160932952*^9, 
   3.530783172493198*^9}, {3.530783224718399*^9, 3.530783449245388*^9}, {
   3.5307835113079023`*^9, 3.530783513385825*^9}, {3.530784147226029*^9, 
   3.5307841693188143`*^9}, {3.530873940143489*^9, 
   3.530873941288175*^9}},ExpressionUUID->"46c1b880-3226-4023-be46-\
e0f92f0a231b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Liste", " ", "von", " ", "sin"}], "-", "Werten"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Map", "[", 
   RowBox[{"Sin", ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "1", ",", "0.1"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.53078351981667*^9, 3.530783563933483*^9}, {
  3.530783700632092*^9, 
  3.530783729351747*^9}},ExpressionUUID->"d3c1c4b9-fb4b-4685-9b57-\
1cb94098dd3a"],

Cell[TextData[{
 StyleBox["Range[x0,x1,dx]", "Input"],
 " erzeugt eine Liste von Zahlen von ",
 StyleBox["x0", "Input"],
 " bis ",
 StyleBox["x1", "Input"],
 " mit Abstand ",
 StyleBox["dx", "Input"],
 ", wobei ",
 StyleBox["x1", "Input"],
 " und ",
 StyleBox["dx", "Input"],
 " optional sind."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5307835831862707`*^9, 
  3.530783674933599*^9}},ExpressionUUID->"94c3b224-0791-4b6a-8b97-\
7d2ecd80de53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[ADoubleDot]quivalent", " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Sin", "/@", 
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", "1", ",", "0.1"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.53078351981667*^9, 3.530783563933483*^9}, {
  3.530783700632092*^9, 
  3.53078376643923*^9}},ExpressionUUID->"1c87b08d-b660-41bc-8cfd-\
96efbc924247"],

Cell[BoxData[
 RowBox[{"f", "/@", 
  RowBox[{"{", 
   RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.53078380661102*^9, 
  3.530783813899057*^9}},ExpressionUUID->"feaf5711-244a-4be7-a659-\
7ebff1a91af0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "besonders", " ", "n\[UDoubleDot]tzlich", " ", "mit", " ", "reinen", " ", 
    "Funktionen"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", "#", "]"}], "+", 
      RowBox[{"g", "[", "#", "]"}]}], ")"}], "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]}]}]], "Input",\

 CellChangeTimes->{{3.530783818161721*^9, 3.530783887868084*^9}, {
  3.530873989615094*^9, 
  3.530873990594762*^9}},ExpressionUUID->"c39cea5d-0f84-4ee0-8ab2-\
ab1d94396cc2"],

Cell[TextData[{
 "Quasi eine Erweiterung davon stellt ",
 StyleBox["MapThread", "Input"],
 " dar, falls man eine (reine) Funktion mit mehreren Argumenten anwenden m\
\[ODoubleDot]chte. Das Ergebnis ist dann eine im Allgemeinen verschachtelte \
Liste."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530783915529689*^9, 3.530783937301404*^9}, {
   3.5307840005756893`*^9, 3.530784057009501*^9}, {3.530784175751328*^9, 
   3.5307842418763103`*^9}, {3.530874004243823*^9, 3.5308740086761513`*^9}, 
   3.780042933881506*^9},ExpressionUUID->"d389c538-87a0-46ab-9c82-\
741ce6535c31"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "die", " ", "erste", " ", "Unterliste", " ", "beinhaltet", " ", "die", 
     " ", "ersten"}], ",", " ", 
    RowBox[{
    "die", " ", "zweite", " ", "die", " ", "zweiten", " ", "Argumente"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "x", ",", "c"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "y", ",", "d"}], "}"}]}], "}"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.5307842678454123`*^9, 
  3.530784436523047*^9}},ExpressionUUID->"938663de-8ae3-47e6-8009-\
a24506e8161f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cartCoords", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Umrechung", " ", "von", " ", "kartesichen", " ", 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}], " ", "in", " ", "Polarkoordinaten", " ", 
    
    RowBox[{"(", 
     RowBox[{"r", ",", "phi"}], ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"polarCoords", "=", 
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"#1", "+", 
         RowBox[{"I", "*", "#2"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"Arg", "[", 
         RowBox[{"#1", "+", 
          RowBox[{"I", "*", "#2"}]}], "]"}], "//", "N"}]}], "}"}], "&"}], ",", 
    RowBox[{"cartCoords", "//", "Transpose"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5307897824046717`*^9, 3.530790013454397*^9}, 
   3.530790071882243*^9, {3.530790109005238*^9, 3.530790112884984*^9}, {
   3.530790202014044*^9, 3.530790211353241*^9}, {3.530790252992386*^9, 
   3.530790253096664*^9}, {3.530790545168622*^9, 3.5307905528395157`*^9}, {
   3.530790621616521*^9, 3.530790663692791*^9}, {3.5307907418546352`*^9, 
   3.530790786489724*^9}, {3.530790837967086*^9, 3.5307908672238503`*^9}, 
   3.780042950857394*^9},ExpressionUUID->"550bab9d-1109-48de-9500-\
378f9e42b9cb"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"cartCoords", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.530790121702404*^9, 3.53079013405538*^9}, {
  3.530790220654015*^9, 
  3.530790243420291*^9}},ExpressionUUID->"a2b1bb27-a8ad-41e4-bd93-\
3137ff34ab40"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"ListPolarPlot", " ", "erwartet", " ", "Punkte", " ", 
    RowBox[{"(", 
     RowBox[{"phi", ",", "r"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"polarCoords2", "=", 
    RowBox[{"Transpose", "[", 
     RowBox[{"Reverse", "[", 
      RowBox[{"Transpose", "[", "polarCoords", "]"}], "]"}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.530790811486134*^9, 3.530790819579853*^9}, {
  3.530790874433836*^9, 
  3.5307908978675537`*^9}},ExpressionUUID->"f5d0e6a7-e0ec-434c-be96-\
4340e24e98fb"],

Cell[BoxData[
 RowBox[{"ListPolarPlot", "[", 
  RowBox[{"polarCoords2", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5307901514670563`*^9, 3.530790162526771*^9}, 
   3.530790261320485*^9, {3.530790336388722*^9, 3.530790348964003*^9}, {
   3.530790395706438*^9, 3.5307904472234907`*^9}, {3.530790582348181*^9, 
   3.530790596942772*^9}, {3.5307908084489107`*^9, 
   3.5307908255666847`*^9}},ExpressionUUID->"dfdf91f6-fc48-41cd-b971-\
65f9d6e73e22"],

Cell[TextData[{
 StyleBox["MapThread", "Input"],
 " bietet weiterhin einen optionalen Parameter, der die Interpretation einer \
verschachtelten Liste von Argumenten beeinflusst."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530784447360598*^9, 3.530784570562993*^9}, {
  3.530874072183509*^9, 3.530874074810844*^9}, {3.7800429588978443`*^9, 
  3.780042961265019*^9}},ExpressionUUID->"f7244244-1e89-4a43-b9fb-\
43024ca68eee"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3.3 Bereichszugriff bei Listen", "Subsubtitle",
 CellChangeTimes->{{3.5307909530656853`*^9, 3.5307909643485117`*^9}, {
  3.530808676708909*^9, 
  3.530808677496869*^9}},ExpressionUUID->"90db8726-64db-46c1-98d4-\
713ba6e04d1f"],

Cell[TextData[{
 "Um zu dem Zugriff auf Listenelemente zur\[UDoubleDot]ckzukommen: es gibt \
drei Erweiterungen der Syntax zum Element-, bzw. Unterlistenzugriff. (Siehe \
aber auch ",
 StyleBox["Take", "Input"],
 ", ",
 StyleBox["Select", "Input"],
 " und ",
 StyleBox["Pick", "Input"],
 ".)"
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530802478345089*^9, 3.530802565706717*^9}, {
  3.530802606658486*^9, 3.5308026195700502`*^9}, {3.530808842568934*^9, 
  3.530808857803919*^9}, {3.530874117182241*^9, 3.530874118407104*^9}, {
  3.5308742126718893`*^9, 
  3.530874213736845*^9}},ExpressionUUID->"6510fb52-19d4-4fb4-9a8d-\
c362d2a6f075"],

Cell[BoxData[
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Symbol", "[", 
      RowBox[{"\"\<e\>\"", "<>", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530802574879698*^9, 3.530802590950918*^9}, {
  3.53080500837103*^9, 3.530805030819498*^9}, {3.530805755582677*^9, 
  3.530805760344563*^9}},ExpressionUUID->"4de68ad6-5646-4a96-9474-\
4c7427ce59d6"],

Cell[TextData[{
 StyleBox["Symbol", "Input"],
 " generiert dynamisch Symbole mit den angegebenen Strings als Namen."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.5308051099236393`*^9, 3.5308051474027443`*^9}, {
  3.530874140620397*^9, 
  3.530874165800655*^9}},ExpressionUUID->"41578e47-f9a4-4f2c-9c24-\
27b339b36340"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"wie", " ", "zuvor"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", "3", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530802598130126*^9, 3.530802601117947*^9}, {
  3.530802651411685*^9, 3.530802660284342*^9}, {3.5308027234825907`*^9, 
  3.53080272723545*^9}},ExpressionUUID->"5bdfb872-33d5-4f25-8e78-\
50841e4b1933"],

Cell[CellGroupData[{

Cell["Verschachtelte Listen", "Subsubsection",
 CellChangeTimes->{{3.53080432645313*^9, 
  3.5308043328011312`*^9}},ExpressionUUID->"839e4bad-935c-42ce-8b16-\
e37ade236d32"],

Cell[TextData[{
 "F\[UDoubleDot]r verschachtelte Listen gibt man einfach die Indizes der n\
\[ADoubleDot]chsttieferen Listen-Level als Sequenz in \[OpenCurlyDoubleQuote]",
 StyleBox["[[<i_1>,...,<i_n>]]", "Input"],
 "\[CloseCurlyDoubleQuote]  oder \[OpenCurlyDoubleQuote]",
 StyleBox["[[<i_1>]]...[[<i_n>]]", "Input"],
 "\[CloseCurlyDoubleQuote] an (erste Erweiterung)."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530803843969503*^9, 3.530803862061167*^9}, {
  3.530803898381462*^9, 3.530803995363014*^9}, {3.530804128111586*^9, 
  3.53080424001252*^9}, {3.5308742710527163`*^9, 3.5308742771523857`*^9}, {
  3.7800429730732727`*^9, 
  3.78004300060922*^9}},ExpressionUUID->"63f577c9-bdb6-4d07-a6d8-\
0b190de0e013"],

Cell[BoxData[
 RowBox[{
  RowBox[{"list2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"d", ",", "e"}], "}"}], ",", "f", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"g", ",", "h", ",", "i"}], "}"}], ",", "j", ",", "k"}], 
      "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.530803756461022*^9, 3.530803787073412*^9}, 
   3.530804086847694*^9},ExpressionUUID->"5e6c5837-6fc9-40fe-bf67-\
de270ec09279"],

Cell[BoxData[
 RowBox[{"TreeForm", "[", "list2", "]"}]], "Input",
 CellChangeTimes->{{3.530803790309847*^9, 
  3.530803820171526*^9}},ExpressionUUID->"4434804b-d411-4529-8900-\
6b20f9498fda"],

Cell[BoxData[{
 RowBox[{"list2", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list2", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.530803824093102*^9, 3.530803824258606*^9}, {
  3.5308040034950953`*^9, 3.530804005751651*^9}, {3.530804050823371*^9, 
  3.5308040537249603`*^9}, {3.530804246050517*^9, 
  3.530804252194832*^9}},ExpressionUUID->"274ad3d8-6836-4239-a5cc-\
eeb0f1a9a10f"],

Cell[BoxData[{
 RowBox[{"list2", "[", 
  RowBox[{"[", 
   RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list2", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.530804056871581*^9, 3.530804073885651*^9}, {
  3.530804257680203*^9, 
  3.530804264727725*^9}},ExpressionUUID->"0fa834d1-e725-45d6-95c8-\
43448bdb1219"],

Cell[BoxData[
 RowBox[{"list2", "[", 
  RowBox[{"[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5308040955049753`*^9, 3.530804100042185*^9}, {
  3.530804267727461*^9, 
  3.530804275439927*^9}},ExpressionUUID->"3c5d3075-7779-403b-b211-\
fe8dc4b07252"],

Cell[BoxData[{
 RowBox[{"list2", "[", 
  RowBox[{"[", 
   RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list2", "[", 
   RowBox[{"[", 
    RowBox[{"4", ",", "1"}], "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list2", "[", 
   RowBox[{"[", "4", "]"}], "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"list2", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.53080410425517*^9, 3.53080411225144*^9}, {
  3.530804276879755*^9, 
  3.530804312531476*^9}},ExpressionUUID->"1f2c05ce-68fe-40a7-a05b-\
dc9ad6a3941f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spanne einer Liste", "Subsubsection",
 CellChangeTimes->{{3.530803679422861*^9, 
  3.530803695227016*^9}},ExpressionUUID->"5c7953b7-2190-46ac-99f4-\
2f5e89b7d7a1"],

Cell[TextData[{
 StyleBox["Span", "Input"],
 " \[OpenCurlyDoubleQuote]",
 StyleBox["[[a;;e;;d]]", "Input"],
 "\[CloseCurlyDoubleQuote] ist die n",
 "\[ADoubleDot]chste",
 " Erweiterung. Es wird eine Liste der Elemente \[OpenCurlyDoubleQuote]",
 StyleBox["a", "Input"],
 "\[CloseCurlyDoubleQuote] bis \[OpenCurlyDoubleQuote]",
 StyleBox["e", "Input"],
 "\[CloseCurlyDoubleQuote] im Abstand \[OpenCurlyDoubleQuote]",
 StyleBox["d", "Input"],
 "\[CloseCurlyDoubleQuote] geliefert (alle sind optional mit Defaultwerten \
\[OpenCurlyDoubleQuote]",
 StyleBox["1", "Input"],
 "\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]",
 StyleBox["Length[list]", "Input"],
 "\[CloseCurlyDoubleQuote], und \[OpenCurlyDoubleQuote]",
 StyleBox["1", "Input"],
 "\[CloseCurlyDoubleQuote])."
}], "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530802750245208*^9, 3.530802891690709*^9}, {
  3.5308029727690897`*^9, 3.530803005088162*^9}, {3.530874222714308*^9, 
  3.5308742264614058`*^9}},ExpressionUUID->"b2ebdb75-e40b-4184-a0bb-\
31c192bbb73c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"2", " ", "bis", " ", "3"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"2", ";;", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530802730514565*^9, 3.530802740530306*^9}, {
  3.530802895510147*^9, 3.530802949716827*^9}, {3.530803032156715*^9, 
  3.530803068989313*^9}, {3.530803369768899*^9, 
  3.53080337673575*^9}},ExpressionUUID->"f5f034a7-6a16-4a52-a6cf-\
497e5a7e51eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"2", " ", "bis", " ", "Ende"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"2", ";;"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530802730514565*^9, 3.530802740530306*^9}, {
  3.530802895510147*^9, 3.530802949716827*^9}, {3.530803032156715*^9, 
  3.530803067133333*^9}, {3.530803378920562*^9, 
  3.530803384671493*^9}},ExpressionUUID->"552437bd-e4f0-4219-890c-\
f8accdbfb5cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"bis", " ", "3"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{";;", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530803118365423*^9, 3.5308031221485453`*^9}, {
  3.530803388111867*^9, 
  3.530803393103311*^9}},ExpressionUUID->"d6decc5a-6e28-434e-95b8-\
191fa7340849"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"von", " ", "2", " ", "bis", " ", "8", " ", "jedes", " ", "2."}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"2", ";;", "8", ";;", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530802730514565*^9, 3.530802740530306*^9}, {
  3.530802895510147*^9, 3.530802949716827*^9}, {3.530803032156715*^9, 
  3.530803070477235*^9}, {3.53080339646413*^9, 
  3.530803416814739*^9}},ExpressionUUID->"20627726-ec79-4d43-8ea3-\
417f6acf53bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "von", " ", "5", " ", "bis", " ", "Ende", " ", "jedes", " ", "10."}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"5", ";;", ";;", "10"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530803161751182*^9, 3.530803171262032*^9}, {
  3.530803419487485*^9, 3.530803431782659*^9}, {3.530805057017668*^9, 
  3.530805057634327*^9}},ExpressionUUID->"ab499b0b-57fa-4537-82a3-\
1d7d2f1701c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "von", " ", "Anfang", " ", "bis", " ", "Ende", " ", "jedes", " ", "3."}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{";;", "10", ";;", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530803244839243*^9, 3.530803310634968*^9}, {
  3.530803434327018*^9, 
  3.530803443278021*^9}},ExpressionUUID->"c17995d8-8a75-4426-9ad2-\
c769b727a63f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "jedes", " ", "3.", " ", "von", " ", "Anfang", " ", "bis", " ", "Ende"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{";;", ";;", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530803194953699*^9, 3.530803199461134*^9}, {
  3.530803445303293*^9, 
  3.5308034558856897`*^9}},ExpressionUUID->"941b13f5-cef8-46bc-9bb0-\
915e0b7c4d52"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Zu den Grenzen", "Subsubsection",
 CellChangeTimes->{{3.5308035445935507`*^9, 
  3.530803549015086*^9}},ExpressionUUID->"d7bff3f7-877e-4d4a-8bac-\
1266ae2b3bba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Z\[ADoubleDot]hlen", " ", "von", " ", "3", " ", "ab"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"3", ";;", "10", ";;", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530803505549747*^9, 
  3.5308035637226152`*^9}},ExpressionUUID->"49010a07-4ec0-4dc5-b4be-\
9d9fa1072f3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"eben", " ", "nicht", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "4", ",", "6", ",", "8"}], "}"}], "!"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{";;", "8", ";;", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530803567066936*^9, 3.530803584539073*^9}, {
  3.530803623384886*^9, 
  3.530803645623406*^9}},ExpressionUUID->"780c2d4a-bb03-4659-a08e-\
ad600e3743a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "r\[UDoubleDot]ckw\[ADoubleDot]rts", " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"18", ";;", "5", ";;", 
     RowBox[{"-", "1"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.530808909659809*^9, 
  3.53080900107644*^9}},ExpressionUUID->"7f618e04-faa1-4212-9501-\
07612764180f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"die", " ", "letzten"}], " ", "<", "a", ">", " ", 
    RowBox[{"Elemente", " ", 
     RowBox[{"mit", " ", "[", 
      RowBox[{"[", 
       RowBox[{"-", 
        RowBox[{"<", "a", ">", ";;"}]}], "]"}], "]"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"list", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"-", "7"}], ";;", 
      RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"list", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"-", "7"}], ";;"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530809004397079*^9, 3.530809098466649*^9}, {
  3.530874308278775*^9, 
  3.530874308385675*^9}},ExpressionUUID->"7cc51e3c-30dc-462d-9190-\
999455fb7f93"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Listen \[UDoubleDot]ber Listen", "Subsubsection",
 CellChangeTimes->{{3.5308043902797527`*^9, 
  3.530804403336133*^9}},ExpressionUUID->"f1a18da7-e0a9-4de6-97e7-\
b7d2e9f35ba1"],

Cell["\<\
Listen lassen sich auch direkt \[UDoubleDot]ber Angabe der Indizes in einer \
Liste konstruieren. Auf diesem Wege kann man sehr schnell Permutationen \
bilden.\
\>", "Text",
 PageWidth->PaperWidth,
 CellChangeTimes->{{3.530804851669436*^9, 3.53080485981061*^9}, {
  3.5308049224091463`*^9, 
  3.530804985719046*^9}},ExpressionUUID->"d7471bc4-53cd-413f-a2d9-\
ac4d5057609c"],

Cell[BoxData[
 RowBox[{"list", "[", 
  RowBox[{"[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "6", ",", "13"}], "}"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5308037096581087`*^9, 3.530803742589913*^9}, {
  3.530805089089192*^9, 
  3.530805089352748*^9}},ExpressionUUID->"92e60349-77ce-41fc-af8b-\
c2e421b89cf8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"alle", " ", "Permutationen", " ", "von", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"perms", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"Range", "[", "3", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.530805098287107*^9, 3.530805100895481*^9}, {
  3.530805163192267*^9, 3.530805164805575*^9}, {3.53080527848315*^9, 
  3.5308052995787907`*^9}, {3.5308057177469683`*^9, 
  3.530805790597332*^9}},ExpressionUUID->"e94f275d-c797-4d8e-b4ba-\
da11c5264b5a"],

Cell[BoxData[
 RowBox[{"list", "[", 
  RowBox[{"[", 
   RowBox[{"perms", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.530805731375237*^9, 
  3.5308057446147127`*^9}},ExpressionUUID->"2b408265-5353-44b0-a378-\
672f367c1494"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"list", ",", "list2", ",", "perms"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.530802663567522*^9, 3.530802668947933*^9}, {
  3.530804041390711*^9, 3.530804043485709*^9}, {3.530805795702833*^9, 
  3.5308057965974216`*^9}},ExpressionUUID->"66545d2c-a853-46bf-b0fc-\
bc33c0985dcf"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1920, 989},
WindowMargins->{{1, Automatic}, {Automatic, 5}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
DefaultNaturalLanguage->"German",
Magnification:>1.5 Inherited,
FrontEndVersion->"13.1 for Mac OS X x86 (64-bit) (June 16, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"49c7c8b9-be9a-49b6-a5aa-ed17b7a142de"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 205, 3, 146, "Title",ExpressionUUID->"26c95577-b717-4594-871c-fded58151949"],
Cell[630, 20, 1850, 37, 605, "Text",ExpressionUUID->"6d83e001-7c8f-4360-bf30-0e0d385549ea"],
Cell[2483, 59, 349, 5, 38, "ItemParagraph",ExpressionUUID->"9d2d15bd-f6e8-4ea8-9d01-523797f88108"],
Cell[2835, 66, 645, 15, 80, "Item",ExpressionUUID->"b18806a0-d5e2-4c2c-85bd-3f75ca173872"],
Cell[3483, 83, 491, 10, 80, "Item",ExpressionUUID->"00da020b-d4c0-4ff4-bfab-0c4c561c9bba"],
Cell[3977, 95, 685, 15, 111, "Item",ExpressionUUID->"0c74ea59-395d-4075-a4ca-a7944c128151"],
Cell[CellGroupData[{
Cell[4687, 114, 344, 6, 49, "Item",ExpressionUUID->"7f44bd93-b250-4ae9-a66f-819561d60c00"],
Cell[5034, 122, 490, 8, 39, "Subsubitem",ExpressionUUID->"5c26bd15-a52d-41dc-9aeb-d9ca27d3553a"],
Cell[5527, 132, 387, 10, 39, "Subsubitem",ExpressionUUID->"f0137ccc-107d-483f-a38b-8ee2cb884899"],
Cell[5917, 144, 798, 20, 97, "Subsubitem",ExpressionUUID->"9c1deb41-7700-4e66-aadb-244e3387f470"],
Cell[6718, 166, 869, 21, 66, "Subsubitem",ExpressionUUID->"9fb304b2-45c5-4c69-b1d3-2aa0b956441f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7624, 192, 841, 17, 143, "Item",ExpressionUUID->"417e9381-1c77-4bda-bcf0-03b1e2aa3d0f"],
Cell[8468, 211, 218, 5, 46, "Input",ExpressionUUID->"8b789fe4-989c-4deb-a039-594833c76491"],
Cell[8689, 218, 220, 5, 46, "Input",ExpressionUUID->"6ca1908c-189f-4d24-b377-488fdcae71aa"],
Cell[8912, 225, 250, 5, 46, "Input",ExpressionUUID->"f8b57906-acd5-4cd8-96cb-246c87349ad2"],
Cell[9165, 232, 300, 4, 38, "ItemParagraph",ExpressionUUID->"b40969d8-9647-43c5-863f-0ce4e0bd6e91"]
}, Open  ]],
Cell[9480, 239, 229, 4, 49, "Item",ExpressionUUID->"ca20e7b6-1953-46e3-8ce6-3095b6547d41"],
Cell[9712, 245, 214, 4, 49, "Item",ExpressionUUID->"2258c3c1-10fc-41a1-9621-b9f949d6b93b"],
Cell[9929, 251, 246, 5, 49, "Item",ExpressionUUID->"e3e26b59-93e8-4ee0-91ca-e2d7d9fa47bb"],
Cell[10178, 258, 131, 1, 49, "Item",ExpressionUUID->"eb866802-f67b-444b-ab5b-24a2df7b97da"],
Cell[10312, 261, 360, 7, 49, "Item",ExpressionUUID->"da4936dd-db8d-4200-a0f3-bcea54186228"],
Cell[10675, 270, 435, 9, 80, "Item",ExpressionUUID->"88bce5e0-c48b-4c3e-bdc2-afaf6a3bc1bd"],
Cell[11113, 281, 278, 5, 49, "Item",ExpressionUUID->"a37a0f6b-b2a6-43a1-b1a6-b1a18ee22d9e"],
Cell[11394, 288, 223, 4, 49, "Item",ExpressionUUID->"2c5b1e11-1fe2-436c-9cb6-9894f733c9ca"],
Cell[11620, 294, 193, 4, 49, "Item",ExpressionUUID->"ba66b58f-0094-4355-b217-b67b12d471ec"],
Cell[11816, 300, 1028, 23, 226, "Text",ExpressionUUID->"5a13be94-81ae-4b8c-94d5-9f8be3f277b6"],
Cell[CellGroupData[{
Cell[12869, 327, 257, 5, 79, "Subtitle",ExpressionUUID->"ea7bae80-b8a8-4c93-972c-13dbe010c8e9"],
Cell[13129, 334, 408, 11, 46, "Subsubtitle",ExpressionUUID->"6344b6af-7f01-4391-b3ab-bd2832dbf56d"],
Cell[CellGroupData[{
Cell[13562, 349, 298, 5, 67, "Subsubsection",ExpressionUUID->"43ac5d98-8c15-4f8e-a445-348e59ecf52b"],
Cell[13863, 356, 997, 23, 88, "Text",ExpressionUUID->"eb0bd93d-7165-4713-91a7-20c9f55fc624"],
Cell[CellGroupData[{
Cell[14885, 383, 200, 4, 46, "Input",ExpressionUUID->"8d38739d-a52b-4cc8-a399-7d7027a25487"],
Cell[15088, 389, 272, 6, 52, "Output",ExpressionUUID->"bde881fd-61df-446a-b53b-984451436206"],
Cell[15363, 397, 248, 6, 52, "Output",ExpressionUUID->"b5f97430-d30e-4a02-b305-f58ad57fc524"],
Cell[15614, 405, 223, 5, 52, "Output",ExpressionUUID->"20ef709f-53e9-4fd4-bbc8-af136ea0189f"]
}, Open  ]],
Cell[15852, 413, 274, 6, 46, "Input",ExpressionUUID->"51379b54-55fe-4534-a4ca-130b7a0c566b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16163, 424, 249, 5, 67, "Subsubsection",ExpressionUUID->"debcddca-4137-41aa-ba2f-197fd205d6a5"],
Cell[16415, 431, 608, 15, 53, "Text",ExpressionUUID->"da3ae148-c939-43c2-8480-9334070dcf67"],
Cell[17026, 448, 153, 3, 46, "Input",ExpressionUUID->"12c3ac3f-34bb-42b1-9f88-6cc17ac1a22f"],
Cell[17182, 453, 153, 3, 46, "Input",ExpressionUUID->"8f4db936-7e4a-40d8-9dc0-0ef4a191f2a4"],
Cell[17338, 458, 179, 3, 46, "Input",ExpressionUUID->"5da32513-d183-4dba-a0c0-595fab7affd3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17554, 466, 218, 4, 67, "Subsubsection",ExpressionUUID->"f74e5199-8af8-4c4f-b88b-430e6d32f14a"],
Cell[17775, 472, 661, 17, 157, "Text",ExpressionUUID->"46c2e026-7592-4648-add3-333209d876a1"],
Cell[18439, 491, 231, 5, 46, "Input",ExpressionUUID->"626eb19e-335d-4c17-a7e4-29dfb323bce6"],
Cell[18673, 498, 204, 4, 46, "Input",ExpressionUUID->"02d1b48b-bc9b-4f07-bdaa-b889e59530a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18914, 507, 274, 6, 67, "Subsubsection",ExpressionUUID->"e189485f-1977-497a-8c44-6a740eb72d36"],
Cell[19191, 515, 497, 12, 80, "ItemNumbered",ExpressionUUID->"bf9e50c9-82f9-4a15-a084-816dd6b22cbf"],
Cell[19691, 529, 370, 8, 80, "ItemNumbered",ExpressionUUID->"744ef8a7-c0e4-40ca-9f96-0c46c582730f"],
Cell[20064, 539, 297, 8, 48, "ItemNumbered",ExpressionUUID->"310a95ae-8584-4a34-9c50-cdc84043dafd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20398, 552, 237, 5, 67, "Subsubsection",ExpressionUUID->"fe2cce78-8db9-4c79-bfbf-8ec149452924"],
Cell[CellGroupData[{
Cell[20660, 561, 534, 15, 123, "ItemNumbered",ExpressionUUID->"6ddc4eb3-2839-4710-aaa3-dbf488daa1f1"],
Cell[CellGroupData[{
Cell[21219, 580, 506, 15, 73, "ItemNumbered",ExpressionUUID->"86f265b5-9bd6-4b4f-86bc-19b668a97875",
 CellGroupingRules->{GroupTogetherGrouping, 15001.}],
Cell[21728, 597, 341, 8, 70, "Input",ExpressionUUID->"95853943-34e0-49f1-a64d-786e42368edd",
 CellGroupingRules->{GroupTogetherGrouping, 15001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[22106, 610, 583, 14, 79, "ItemNumbered",ExpressionUUID->"ef5c82e5-7d19-4ddf-8813-6212108a0d38",
 CellGroupingRules->{GroupTogetherGrouping, 15002.}],
Cell[22692, 626, 299, 6, 70, "Input",ExpressionUUID->"5353469e-2358-45d3-b941-1cc300406e28",
 CellGroupingRules->{GroupTogetherGrouping, 15002.}]
}, Open  ]]
}, Open  ]],
Cell[23018, 636, 242, 6, 135, "Text",ExpressionUUID->"d790e71e-eb18-486c-81ea-5a2d53dfc5a7"]
}, Closed]],
Cell[CellGroupData[{
Cell[23297, 647, 338, 6, 46, "Subsubtitle",ExpressionUUID->"8fde26e8-0948-4b38-8cef-d7bd74a5e255"],
Cell[CellGroupData[{
Cell[23660, 657, 249, 5, 67, "Subsubsection",ExpressionUUID->"a202d52d-64af-4034-9a04-1d15d552ecdf"],
Cell[23912, 664, 308, 6, 46, "Input",ExpressionUUID->"99a2d903-3d5a-4c92-8417-8409abce0875"],
Cell[24223, 672, 261, 5, 46, "Input",ExpressionUUID->"39976f8b-b096-4229-bd2f-f2eab993dc24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24521, 682, 221, 4, 67, "Subsubsection",ExpressionUUID->"b074e6c9-a74a-4c66-a682-d1c11d51728b"],
Cell[24745, 688, 274, 6, 46, "Input",ExpressionUUID->"758356a9-b88a-4fb9-85f9-2e62dd215f79"],
Cell[25022, 696, 316, 6, 46, "Input",ExpressionUUID->"5759be12-2c94-421e-a5b0-5a4a1bc93183"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25375, 707, 215, 4, 67, "Subsubsection",ExpressionUUID->"c8686893-c974-4e53-97ec-06e70be5bea9"],
Cell[25593, 713, 311, 6, 46, "Input",ExpressionUUID->"f92ca180-2be1-4371-bbb3-5416540babc5"],
Cell[25907, 721, 243, 5, 46, "Input",ExpressionUUID->"4d76e11b-5251-497c-a869-ecc518820ff0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26187, 731, 250, 5, 67, "Subsubsection",ExpressionUUID->"34170d36-5932-44c0-a470-6597b051f07d"],
Cell[26440, 738, 300, 5, 48, "ItemNumbered",ExpressionUUID->"8415d46e-124e-4f01-ac36-56d5cfc5d099"],
Cell[26743, 745, 461, 10, 80, "ItemNumbered",ExpressionUUID->"be13d517-fc49-4c2a-b368-3d100064115d"],
Cell[27207, 757, 360, 11, 80, "ItemNumbered",ExpressionUUID->"171ede77-1ab6-4d61-a76c-ef72645108e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27604, 773, 237, 5, 67, "Subsubsection",ExpressionUUID->"fafbae17-b5bb-4ed5-8c2f-16eac460e2eb"],
Cell[CellGroupData[{
Cell[27866, 782, 79, 0, 73, "ItemNumbered",ExpressionUUID->"2187b6c2-5199-491d-97f9-012431343858"],
Cell[27948, 784, 207, 5, 70, "Input",ExpressionUUID->"0c17ddc5-565f-489b-b539-a3e06c5ecb25"]
}, Open  ]],
Cell[28170, 792, 430, 14, 81, "Text",ExpressionUUID->"9bfff8a2-d251-454a-9811-cc2e5c2a5171"],
Cell[CellGroupData[{
Cell[28625, 810, 79, 0, 73, "ItemNumbered",ExpressionUUID->"453ed3fe-ced9-4230-a7c4-1f65f2fdc5ba"],
Cell[28707, 812, 370, 11, 70, "Input",ExpressionUUID->"adbcb3b2-be7a-45ea-9aec-b85df9d04a19"]
}, Open  ]],
Cell[29092, 826, 735, 24, 220, "ItemNumbered",ExpressionUUID->"f77e699d-63e4-4387-9438-f75941f943e6"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29876, 856, 336, 6, 46, "Subsubtitle",ExpressionUUID->"d943b2d9-3a37-4a81-b809-0fddc3c6f6bc"],
Cell[30215, 864, 1033, 19, 226, "Text",ExpressionUUID->"2d66ec92-6d20-4f3b-bca5-98c2c261e8e7"],
Cell[31251, 885, 329, 9, 46, "Input",ExpressionUUID->"a456f355-b3a7-4ccd-948e-cf7af36aeb09"],
Cell[31583, 896, 354, 10, 46, "Input",ExpressionUUID->"d80bbdaf-262d-451d-bdc1-060b676fbb13"],
Cell[31940, 908, 970, 22, 191, "Text",ExpressionUUID->"9a7c4b51-7366-4b8a-9125-08d715e4462b"],
Cell[32913, 932, 151, 3, 46, "Input",ExpressionUUID->"bba0c657-79c6-417c-8b8c-af27c2fca18c"],
Cell[33067, 937, 519, 11, 88, "Text",ExpressionUUID->"cf4d7698-5ec6-4de9-9128-85716f37e1cb"],
Cell[33589, 950, 326, 7, 46, "Input",ExpressionUUID->"2587beb2-c48f-46c3-b9ac-2ce75695d7af"],
Cell[33918, 959, 435, 7, 70, "ItemParagraph",ExpressionUUID->"3962a002-37c9-4905-ba7d-a4580e3e44c4"],
Cell[34356, 968, 329, 9, 49, "Item",ExpressionUUID->"907ee581-0ade-46e7-92e3-f94d08d97054"],
Cell[CellGroupData[{
Cell[34710, 981, 335, 10, 49, "Item",ExpressionUUID->"f33e1577-77e3-4207-844a-da9a5da2e34e"],
Cell[35048, 993, 264, 6, 46, "Input",ExpressionUUID->"5d9ffe72-1b8c-472d-87c8-154c5a94664a"],
Cell[35315, 1001, 258, 6, 46, "Input",ExpressionUUID->"df9afedb-717a-4288-a18d-f165c17f53ea"]
}, Open  ]],
Cell[35588, 1010, 888, 19, 260, "Text",ExpressionUUID->"b5844e8b-814f-4d83-8d3e-6077ba22cede"],
Cell[36479, 1031, 453, 11, 88, "Text",ExpressionUUID->"24ea38c4-6662-4bff-b929-587f422d3e23"],
Cell[36935, 1044, 1289, 27, 419, "Input",ExpressionUUID->"dbe91b50-105d-4750-a57b-6f82e4a3d103"],
Cell[38227, 1073, 1165, 21, 295, "Text",ExpressionUUID->"266efd42-63a3-472b-9961-93e1fbc58727"],
Cell[39395, 1096, 299, 6, 78, "Input",ExpressionUUID->"8385fedd-aab0-49ab-af06-434ec50c97ab"],
Cell[39697, 1104, 597, 17, 122, "Text",ExpressionUUID->"6bf703bc-4980-480d-9ac3-6e70de6261bb"],
Cell[40297, 1123, 237, 6, 46, "Input",ExpressionUUID->"e3905d2e-cbfc-43f3-b2dc-9958ef152ebc"],
Cell[CellGroupData[{
Cell[40559, 1133, 225, 5, 67, "Subsubsection",ExpressionUUID->"acb8e1f4-7850-4211-8ea0-14158835a35a"],
Cell[40787, 1140, 978, 24, 122, "Text",ExpressionUUID->"f62c8823-a1b5-4937-9f36-cd1820a104fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41802, 1169, 237, 5, 67, "Subsubsection",ExpressionUUID->"2b45bfde-22d5-4de6-a8ae-1a04f1d58161"],
Cell[42042, 1176, 567, 12, 429, "Input",ExpressionUUID->"e2d98a7a-fbd7-435f-b11d-3de634537187"],
Cell[42612, 1190, 1195, 29, 294, "Text",ExpressionUUID->"d49769fe-bb6d-4685-9dec-760755e0d96c"],
Cell[43810, 1221, 240, 6, 70, "Input",ExpressionUUID->"00b03492-f8fe-45da-b4be-96265fdedc76"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44099, 1233, 315, 6, 46, "Subsubtitle",ExpressionUUID->"cd37168f-aab3-40b2-a23e-4245a22c1732"],
Cell[44417, 1241, 827, 15, 295, "Text",ExpressionUUID->"0fde5169-43d2-4d37-8221-00e5cde07982"],
Cell[45247, 1258, 511, 12, 122, "Text",ExpressionUUID->"b0c53b7a-ec65-4de2-9944-2692e956005d"],
Cell[45761, 1272, 1269, 33, 326, "Input",ExpressionUUID->"fcf0e4a9-abee-4e83-b0aa-0d35ab459396"],
Cell[47033, 1307, 813, 21, 202, "Input",ExpressionUUID->"88a6ea7d-4520-43a1-9e96-cc770274999a"],
Cell[47849, 1330, 846, 17, 260, "Text",ExpressionUUID->"a2adc759-c20c-4a0c-afd1-e13b2d6f54be"],
Cell[48698, 1349, 235, 6, 46, "Input",ExpressionUUID->"9c7837b8-da03-475d-8c0a-b6125f9e8f41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48970, 1360, 206, 4, 46, "Subsubtitle",ExpressionUUID->"fc99ccb3-35fe-4463-acfb-93ffeb8f3714"],
Cell[49179, 1366, 1466, 28, 398, "Text",ExpressionUUID->"1c16812e-0a86-46af-8b84-ff2d92306f8d"],
Cell[50648, 1396, 652, 18, 140, "Input",ExpressionUUID->"5453458d-13b1-4448-bc9a-6c3dbb0ffced"],
Cell[51303, 1416, 687, 18, 90, "Text",ExpressionUUID->"1fe157ec-ea60-4316-80b9-c69de71cc2c7"],
Cell[51993, 1436, 698, 21, 109, "Input",ExpressionUUID->"02aec85f-5de7-4297-a2c7-6975ab765d07"],
Cell[52694, 1459, 684, 19, 109, "Input",ExpressionUUID->"afc8bddf-de66-46af-88a1-ea234f092f56"],
Cell[53381, 1480, 571, 12, 78, "Input",ExpressionUUID->"50ec3063-8fcd-4bed-a413-a1d0175efadc"],
Cell[53955, 1494, 500, 11, 78, "Input",ExpressionUUID->"4344e394-e55b-411a-b31e-19258a962192"],
Cell[54458, 1507, 429, 10, 78, "Input",ExpressionUUID->"8ca869bf-9c09-4098-adcd-7cb4e9fe4c41"],
Cell[54890, 1519, 566, 12, 78, "Input",ExpressionUUID->"154c76a2-2bc3-4292-929e-cedd4fd5c85e"],
Cell[55459, 1533, 638, 14, 140, "Input",ExpressionUUID->"062ff939-2a47-4f30-8279-882cdb70de39"],
Cell[56100, 1549, 672, 16, 140, "Input",ExpressionUUID->"82ec7c08-4ad4-47a8-818e-f9fe0cc86791"],
Cell[56775, 1567, 875, 22, 348, "Text",ExpressionUUID->"5d85fd3a-d83b-4b81-a390-e06758387bdc"],
Cell[57653, 1591, 291, 5, 81, "Text",ExpressionUUID->"0ba86cf4-3efe-4b02-99cf-d4531af1dc30"],
Cell[57947, 1598, 515, 13, 123, "Input",ExpressionUUID->"755c1f4f-d816-45cd-9bd5-6e1135c6f806"],
Cell[58465, 1613, 424, 9, 129, "Input",ExpressionUUID->"25614fbb-b12e-4e96-8ccc-0ece9d02a2c1"],
Cell[58892, 1624, 376, 9, 129, "Input",ExpressionUUID->"b0cc7bc5-d2c2-4c4c-bba2-838be003ea89"],
Cell[59271, 1635, 459, 11, 180, "Input",ExpressionUUID->"a4ee3a5b-1a3c-4667-95ff-e69b595323c6"],
Cell[59733, 1648, 535, 11, 132, "Input",ExpressionUUID->"87940630-ed61-484f-8c36-17c5809b089f"],
Cell[60271, 1661, 305, 8, 76, "Input",ExpressionUUID->"156b075e-0581-4c77-9de8-17b6d0336f12"],
Cell[CellGroupData[{
Cell[60601, 1673, 223, 5, 103, "Subsubsection",ExpressionUUID->"aee428da-21e5-433f-b178-55b26786db79"],
Cell[60827, 1680, 638, 14, 187, "Text",ExpressionUUID->"823ca33e-67a0-45b6-886e-15660f1a3ac8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61502, 1699, 237, 5, 103, "Subsubsection",ExpressionUUID->"16eab41f-7921-4775-80b0-8875890986f5"],
Cell[61742, 1706, 520, 18, 81, "Text",ExpressionUUID->"d1795215-eb32-4853-8e97-8725c7a220bf"],
Cell[62265, 1726, 885, 23, 276, "Input",ExpressionUUID->"ab1de86f-cd61-4512-81e3-9793e76df9ef"],
Cell[63153, 1751, 250, 6, 70, "Input",ExpressionUUID->"86e1fb77-4f8a-4bcb-9ce0-0dc4f36ab8f6"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63452, 1763, 248, 4, 70, "Subsubtitle",ExpressionUUID->"24413625-76c7-4809-bde6-3b8422c9c44a"],
Cell[63703, 1769, 942, 17, 223, "Text",ExpressionUUID->"f674a3cb-229e-4163-a157-fc6c322f34f0"],
Cell[64648, 1788, 467, 12, 167, "Text",ExpressionUUID->"43403fac-980e-4687-9b01-17668b293093"],
Cell[65118, 1802, 477, 14, 115, "Input",ExpressionUUID->"fa3d7715-ec4f-4db6-9d45-2d6c1888c21b"],
Cell[65598, 1818, 1137, 23, 256, "Text",ExpressionUUID->"abaedd3a-c025-4ea4-aeb2-d99710b36103"],
Cell[66738, 1843, 588, 18, 82, "Input",ExpressionUUID->"a7f310da-6e1b-4f5e-ba30-db7908ae1344"],
Cell[67329, 1863, 572, 15, 181, "Input",ExpressionUUID->"f6302da5-da8d-4589-aa64-a0b0e961956e"],
Cell[67904, 1880, 350, 9, 48, "Input",ExpressionUUID->"447e0d6b-756a-4458-b6ff-d8dface89322"],
Cell[CellGroupData[{
Cell[68279, 1893, 273, 6, 53, "Subsubsection",ExpressionUUID->"0c6a7069-7a6d-416c-9036-8c4529d3b617"],
Cell[68555, 1901, 824, 18, 136, "Text",ExpressionUUID->"68eb734b-cbc9-4909-b7f0-ff1512a185e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69416, 1924, 235, 5, 103, "Subsubsection",ExpressionUUID->"3e499ef4-d422-4a77-83e5-c5590d9e4449"],
Cell[69654, 1931, 937, 30, 186, "Input",ExpressionUUID->"976d877e-36a2-4855-90f9-7d861d5a8c06"],
Cell[70594, 1963, 249, 6, 70, "Input",ExpressionUUID->"517cce23-f2fe-4d80-9379-5bfaccc6d067"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[70904, 1976, 310, 5, 121, "Subtitle",ExpressionUUID->"bbb2bcf6-7083-47a1-84d6-252f830ec055"],
Cell[71217, 1983, 315, 6, 70, "Subsubtitle",ExpressionUUID->"01c3c816-7364-4667-a572-f7b624e54a66"],
Cell[71535, 1991, 916, 22, 187, "Text",ExpressionUUID->"2fc2bc7e-ae22-48d7-85ce-4091f4b348df"],
Cell[72454, 2015, 204, 4, 70, "Input",ExpressionUUID->"310fac0c-f7b0-480b-9294-330f73947ee5"],
Cell[72661, 2021, 203, 4, 70, "Input",ExpressionUUID->"d95dfe3c-1d89-404d-ad1b-12e02da93b9d"],
Cell[72867, 2027, 287, 8, 70, "Input",ExpressionUUID->"f64bcdb2-f413-41c7-82fb-30f485abca45"],
Cell[73157, 2037, 191, 3, 81, "Text",ExpressionUUID->"d75d70a3-e6e9-41c4-86ba-80eb1c957406"],
Cell[73351, 2042, 474, 12, 70, "Input",ExpressionUUID->"d3c2bd9b-e98b-4170-82cc-f4999d74b132"],
Cell[73828, 2056, 492, 13, 135, "Text",ExpressionUUID->"974b5c44-5c0f-42c7-83a6-e9df961eb3f4"],
Cell[74323, 2071, 407, 8, 70, "Input",ExpressionUUID->"45eb664e-478e-4958-85db-01c113b2fd35"],
Cell[74733, 2081, 466, 9, 135, "Text",ExpressionUUID->"52202a78-5093-46f8-bce5-1a27c31fdc57"],
Cell[75202, 2092, 277, 6, 70, "Input",ExpressionUUID->"d854af76-1412-4bea-b279-8ffe70a442bf"],
Cell[75482, 2100, 282, 7, 70, "Input",ExpressionUUID->"18bd5e03-3f50-4ed7-b86f-9c3b9972fb00"],
Cell[75767, 2109, 521, 15, 135, "Text",ExpressionUUID->"44f04a1c-5c48-4361-b454-4fe35f7ac2cb"],
Cell[76291, 2126, 392, 11, 70, "Input",ExpressionUUID->"1ef2970f-b755-464b-b471-469765c6f39d"],
Cell[76686, 2139, 255, 6, 70, "Input",ExpressionUUID->"6f60c259-6f0d-4dba-aea1-614b887683fe"],
Cell[76944, 2147, 275, 6, 70, "Input",ExpressionUUID->"a4cd1dfa-9c81-448d-bb65-0efe90f9695c"],
Cell[77222, 2155, 710, 15, 123, "Input",ExpressionUUID->"2637eaec-9190-4598-9148-e5e2c43f263d"],
Cell[77935, 2172, 731, 15, 348, "Text",ExpressionUUID->"a3a24e91-0483-43d9-b720-b52bf887d54b"],
Cell[78669, 2189, 340, 5, 75, "Text",ExpressionUUID->"d879189b-9b07-4d63-8fa8-08f4c7df931f"],
Cell[79012, 2196, 485, 10, 70, "Input",ExpressionUUID->"ef05a36d-9f9b-4e59-8a44-abb813703471"],
Cell[CellGroupData[{
Cell[79522, 2210, 248, 5, 103, "Subsubsection",ExpressionUUID->"c8747620-d819-40f1-9416-cfec5f2ae067"],
Cell[79773, 2217, 513, 10, 135, "Text",ExpressionUUID->"d3184dfc-ed37-4953-bbc6-027b85095296"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80323, 2232, 234, 5, 103, "Subsubsection",ExpressionUUID->"11e96c70-fead-4e59-bbe5-3b4230412d4b"],
Cell[80560, 2239, 567, 16, 76, "Input",ExpressionUUID->"3290a14b-e6f0-4871-b6d6-1414462102ca"],
Cell[81130, 2257, 375, 11, 76, "Input",ExpressionUUID->"491abf86-9e16-455e-9738-cf8dc4d05935"]
}, Closed]],
Cell[CellGroupData[{
Cell[81542, 2273, 261, 5, 70, "Subsubtitle",ExpressionUUID->"359c4a20-f6fb-4f4a-89fd-f2ca7ad186f5"],
Cell[81806, 2280, 488, 11, 187, "Text",ExpressionUUID->"a53623e5-7187-41de-a4df-e1f6beb92091"],
Cell[82297, 2293, 334, 9, 70, "Input",ExpressionUUID->"526a7d84-fac6-4058-a944-caff2155dd31"],
Cell[82634, 2304, 278, 7, 70, "Input",ExpressionUUID->"9d926158-0754-4362-a42a-b16d4411e27d"],
Cell[82915, 2313, 349, 8, 135, "Text",ExpressionUUID->"ee44a1a3-5536-4de4-ab74-4f1d7b2b67ca"],
Cell[83267, 2323, 389, 12, 70, "Input",ExpressionUUID->"598f5745-2b20-4a07-9a3c-ba97eb1590f6"],
Cell[83659, 2337, 330, 9, 70, "Input",ExpressionUUID->"e66a7862-7a84-4084-bc39-da02b44ad6ff"],
Cell[83992, 2348, 575, 13, 187, "Text",ExpressionUUID->"a19c515f-ffcd-4fb0-8bc5-30fcd3d2d56b"],
Cell[84570, 2363, 660, 20, 70, "Input",ExpressionUUID->"9c3dea81-3085-4f1b-ac8c-90f16f349ac9"],
Cell[85233, 2385, 690, 20, 70, "Input",ExpressionUUID->"fc818e10-f5fd-4f6a-82fb-2cc19691a28e"],
Cell[85926, 2407, 704, 18, 241, "Text",ExpressionUUID->"5a1aee7c-fc02-4464-8b22-bbcf83ac8c7b"],
Cell[86633, 2427, 636, 18, 174, "Input",ExpressionUUID->"5761bfed-3821-4286-b616-000178a14617"],
Cell[87272, 2447, 794, 23, 129, "Input",ExpressionUUID->"9947b77e-51fa-48d3-aaac-f82551e6a455"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88103, 2475, 252, 4, 70, "Subsubtitle",ExpressionUUID->"9fdfd7e5-8c24-46b1-8a01-d033e61275c6"],
Cell[CellGroupData[{
Cell[88380, 2483, 179, 4, 123, "Subsection",ExpressionUUID->"6d68d707-5109-498e-88a0-db1fb1972f95"],
Cell[88562, 2489, 611, 13, 241, "Text",ExpressionUUID->"5f708eae-a2fb-48f2-bd7c-3373864ef3bf"],
Cell[89176, 2504, 258, 5, 81, "Text",ExpressionUUID->"17682e20-9634-4e33-b0e7-5e872b5540ae"],
Cell[89437, 2511, 534, 15, 186, "Input",ExpressionUUID->"c72ae738-76cc-49e0-977b-34a8f1729588"],
Cell[89974, 2528, 401, 11, 129, "Input",ExpressionUUID->"a913f3b7-6b2b-4df9-ab5c-897bd6d814ec"],
Cell[90378, 2541, 747, 21, 174, "Input",ExpressionUUID->"e49ee219-044c-4318-aad9-778d227324b7"],
Cell[91128, 2564, 545, 14, 123, "Input",ExpressionUUID->"4e5c55f4-6c3d-4b45-84c5-35bb773ac6e3"],
Cell[91676, 2580, 420, 10, 135, "Text",ExpressionUUID->"7ac74d2c-3b99-40f7-8dfc-8667e3ae02b8"],
Cell[92099, 2592, 405, 10, 70, "Input",ExpressionUUID->"8f2de345-c477-40aa-a60b-d512f988967f"],
Cell[CellGroupData[{
Cell[92529, 2606, 249, 5, 103, "Subsubsection",ExpressionUUID->"dc40af94-317b-44ed-a110-7de2dd840198"],
Cell[92781, 2613, 1055, 23, 294, "Text",ExpressionUUID->"d1d844c0-fbce-4f43-90d7-baf38e8b34dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93873, 2641, 235, 5, 103, "Subsubsection",ExpressionUUID->"5b285716-c363-423e-811f-8418b7953bae"],
Cell[94111, 2648, 990, 26, 225, "Input",ExpressionUUID->"d1218f37-6440-49e7-bd80-206767584e60"],
Cell[95104, 2676, 548, 16, 123, "Input",ExpressionUUID->"1f6383ab-a688-4221-a81a-b67f013687e0"],
Cell[95655, 2694, 649, 17, 123, "Input",ExpressionUUID->"e3bfa59c-380d-4a62-a521-a1d93e079283"],
Cell[96307, 2713, 232, 5, 81, "Text",ExpressionUUID->"5739d0d5-4ef1-436b-924f-39e6e7c0a86b"],
Cell[96542, 2720, 548, 16, 123, "Input",ExpressionUUID->"1a07cdae-3cde-44a2-a3fd-970d0f1ca7aa"],
Cell[97093, 2738, 644, 17, 225, "Input",ExpressionUUID->"88e3c337-ac46-4541-86cc-848ee9a68eb1"],
Cell[97740, 2757, 416, 7, 81, "Text",ExpressionUUID->"f25ac320-f51f-44f6-a5d8-6d3c40ae2c88"],
Cell[98159, 2766, 598, 16, 123, "Input",ExpressionUUID->"efbe17c7-f3f4-48e1-8d7a-8793e2dabcdc"],
Cell[98760, 2784, 871, 20, 225, "Input",ExpressionUUID->"8fc2a956-1cd6-4f04-94a0-dc3fde2a1dcb"],
Cell[99634, 2806, 260, 5, 81, "Text",ExpressionUUID->"8eed7acf-2f97-43b1-a010-90572b01d39f"],
Cell[99897, 2813, 552, 12, 70, "Input",ExpressionUUID->"3d2c50ed-af96-4cd3-95c7-bd839158b63d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100498, 2831, 185, 4, 123, "Subsection",ExpressionUUID->"f67d4c28-84a7-479a-b527-1c1198559972"],
Cell[100686, 2837, 408, 11, 135, "Text",ExpressionUUID->"8568b451-4b34-4850-abce-274002c87a9a"],
Cell[101097, 2850, 480, 14, 123, "Input",ExpressionUUID->"883bb6a8-e2fc-437d-b433-17522c00f603"],
Cell[101580, 2866, 907, 25, 276, "Input",ExpressionUUID->"f750a4f3-d0d7-4a18-9b00-30e99bba673e"],
Cell[102490, 2893, 1322, 42, 295, "Input",ExpressionUUID->"374a2d79-3834-4437-97ae-0e3879176744"],
Cell[103815, 2937, 1714, 49, 346, "Input",ExpressionUUID->"ab7c09da-744e-4a38-bb27-45ded3a8c692"],
Cell[CellGroupData[{
Cell[105554, 2990, 181, 4, 103, "Subsubsection",ExpressionUUID->"c26e2f30-90f6-48cb-ac8d-f3ee5b90240d"],
Cell[105738, 2996, 446, 10, 135, "Text",ExpressionUUID->"918e9823-e629-4e7a-9341-008f22e2366d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106221, 3011, 195, 4, 103, "Subsubsection",ExpressionUUID->"5c72840f-1096-46a1-90e2-176cb4d6b17e"],
Cell[106419, 3017, 762, 21, 133, "Input",ExpressionUUID->"731c63ab-bd25-4e4f-b32e-cf507ccb7ee5"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[107242, 3045, 312, 5, 70, "Subsubtitle",ExpressionUUID->"4f756300-5ed1-4999-8426-bda410b18a4f"],
Cell[CellGroupData[{
Cell[107579, 3054, 189, 4, 123, "Subsection",ExpressionUUID->"4c398c46-49f6-4259-92c5-929f9fd33ff8"],
Cell[107771, 3060, 440, 9, 135, "Text",ExpressionUUID->"37b9f208-4767-4cdd-8d7e-cd27dae92b59"],
Cell[108214, 3071, 224, 4, 75, "Text",ExpressionUUID->"b8ebf5af-ce7d-4617-90b5-87669d12654d"],
Cell[108441, 3077, 833, 18, 348, "Text",ExpressionUUID->"14f4027e-195a-422c-92ef-7a6119be3996"],
Cell[109277, 3097, 440, 11, 129, "Input",ExpressionUUID->"382fb14e-8c8f-412d-9a0c-e659e1189081"],
Cell[109720, 3110, 477, 12, 82, "Input",ExpressionUUID->"cef41db3-ad2e-418d-aad9-a88faa275f3e"],
Cell[110200, 3124, 853, 24, 115, "Input",ExpressionUUID->"234da33a-3b20-4818-98e2-fffdd9b61853"],
Cell[111056, 3150, 470, 14, 77, "Text",ExpressionUUID->"535aef8f-d09e-4cff-bdef-f93f2b85660d"],
Cell[111529, 3166, 652, 19, 82, "Input",ExpressionUUID->"230c46f2-830e-42f7-9e76-d8e3c10da745"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112218, 3190, 186, 4, 66, "Subsection",ExpressionUUID->"bc0fc840-b142-44a1-8bb3-40191f7321d3"],
Cell[112407, 3196, 647, 18, 167, "Text",ExpressionUUID->"c0942804-41b6-4abb-b555-14d8a83b1d4a"],
Cell[113057, 3216, 548, 16, 82, "Input",ExpressionUUID->"93143766-18d2-40e3-9090-37ec9dfcc24f"],
Cell[113608, 3234, 553, 16, 82, "Input",ExpressionUUID->"2a4133e2-15f9-4b53-b9d6-7400aa7a68a4"],
Cell[114164, 3252, 524, 13, 82, "Input",ExpressionUUID->"54ab70b7-fc87-4983-b08f-447e7d92a5a3"],
Cell[114691, 3267, 882, 23, 115, "Input",ExpressionUUID->"44efb821-a437-4f70-92a2-cfb414900299"],
Cell[115576, 3292, 239, 6, 48, "Input",ExpressionUUID->"a8833b21-bb02-412b-a1c9-54416ba10529"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115864, 3304, 326, 6, 44, "Subsubtitle",ExpressionUUID->"590aa64f-c49f-43fb-bdaa-baa3266c831c"],
Cell[116193, 3312, 412, 9, 106, "Text",ExpressionUUID->"d277afa1-f7e7-4621-9030-949686dab762"],
Cell[116608, 3323, 983, 24, 486, "Input",ExpressionUUID->"e0cd71c1-f4fc-4512-be64-858b507b1c51"],
Cell[117594, 3349, 469, 10, 135, "Text",ExpressionUUID->"62ba6f64-e9fb-4e54-9992-16e7f5433b75"],
Cell[118066, 3361, 785, 20, 327, "Input",ExpressionUUID->"866ca66e-f6c1-484f-93f4-852d92644f65"],
Cell[118854, 3383, 451, 9, 237, "Input",ExpressionUUID->"4e8ad97a-83c3-459d-8174-6a3d6930a1a9"],
Cell[119308, 3394, 728, 20, 241, "Text",ExpressionUUID->"40105ba0-b80e-44ed-b983-e1d38c52b099"],
Cell[120039, 3416, 329, 6, 76, "Input",ExpressionUUID->"bb677934-fa01-487d-8433-004b8896418d"],
Cell[120371, 3424, 314, 7, 133, "Input",ExpressionUUID->"e27712fd-4513-4e28-89f9-dcab0f9be916"],
Cell[120688, 3433, 227, 5, 76, "Input",ExpressionUUID->"3a94fb14-107f-459e-b6a9-8c7675d5e688"],
Cell[120918, 3440, 289, 7, 76, "Input",ExpressionUUID->"9ee8124c-0bbc-4987-b44f-a15b6ad53144"],
Cell[121210, 3449, 192, 4, 76, "Input",ExpressionUUID->"92cc9b9a-c0e1-4b2b-b9c5-8dd17325309d"],
Cell[121405, 3455, 187, 4, 76, "Input",ExpressionUUID->"0160b301-9e20-4cc7-bfdf-d51f00e88bad"],
Cell[121595, 3461, 296, 8, 76, "Input",ExpressionUUID->"7712c7d4-502c-4df4-80b5-eeb7d9024470"],
Cell[CellGroupData[{
Cell[121916, 3473, 200, 4, 103, "Subsubsection",ExpressionUUID->"a17d2146-08f5-4512-8c77-14b0c9b3fe93"],
Cell[122119, 3479, 1488, 47, 406, "Text",ExpressionUUID->"2f520805-ec88-4337-8f22-89ca8e8e639e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123644, 3531, 211, 4, 103, "Subsubsection",ExpressionUUID->"092f122a-f70f-41e3-81ba-3fb1afe3dec9"],
Cell[123858, 3537, 794, 24, 123, "Input",ExpressionUUID->"b5cd6434-ddcc-44d4-ab2f-d4dbb1dc1e13"],
Cell[124655, 3563, 581, 15, 123, "Input",ExpressionUUID->"4692ae8c-502e-4c60-8487-daadef3bc0bd"],
Cell[125239, 3580, 506, 12, 70, "Input",ExpressionUUID->"30031c52-c3ef-4af8-a133-1acef4023532"],
Cell[125748, 3594, 4083, 126, 786, "Input",ExpressionUUID->"bad26010-7cb7-445b-b2e3-35cb581f3fbe"],
Cell[129834, 3722, 570, 12, 174, "Input",ExpressionUUID->"268c19a9-7f6a-4397-99b5-05d2768f351f"],
Cell[130407, 3736, 344, 9, 135, "Text",ExpressionUUID->"5237b883-a8bf-4424-96b1-06ac12e12db8"],
Cell[130754, 3747, 342, 9, 70, "Input",ExpressionUUID->"a8f262e8-f029-4aae-965f-a7ef7b807254"],
Cell[131099, 3758, 542, 11, 70, "Input",ExpressionUUID->"be03cd53-93f4-45f5-9c81-a2c85a4c9b10"]
}, Closed]],
Cell[CellGroupData[{
Cell[131678, 3774, 249, 8, 82, "Subsubsection",ExpressionUUID->"a1230b1e-f2ab-41cb-8582-cc87ec08cd2c"],
Cell[131930, 3784, 799, 18, 107, "Text",ExpressionUUID->"270a51c9-0310-4818-8149-8504a537f8e2"],
Cell[132732, 3804, 194, 4, 48, "Input",ExpressionUUID->"b9677d7e-4607-46c8-b3c9-42c286833261"],
Cell[132929, 3810, 244, 5, 48, "Input",ExpressionUUID->"9b67d57f-9eff-4bff-a731-eed36f5f1813"],
Cell[133176, 3817, 678, 22, 115, "Input",ExpressionUUID->"85e49d08-000f-4964-b55e-083e2d4ba91b"],
Cell[133857, 3841, 181, 4, 48, "Input",ExpressionUUID->"1e862239-fdcd-4dec-84c5-f0a9843758e7"],
Cell[134041, 3847, 251, 5, 82, "Input",ExpressionUUID->"09b068c0-a360-4540-8d52-2bbb9dbf676f"],
Cell[134295, 3854, 187, 4, 48, "Input",ExpressionUUID->"94b1b11a-5863-45af-957a-f32322f51c04"],
Cell[134485, 3860, 187, 4, 48, "Input",ExpressionUUID->"617ef30f-2fd4-4589-b3ae-8298f0e75397"],
Cell[134675, 3866, 182, 4, 48, "Input",ExpressionUUID->"9d33c021-be7f-4dc6-a8f5-4e8a63c58fc1"],
Cell[134860, 3872, 231, 6, 48, "Input",ExpressionUUID->"767cfa32-f341-4cd3-8560-9eaa62bfdef5"],
Cell[135094, 3880, 750, 18, 82, "Input",ExpressionUUID->"49eca505-c897-42a3-9349-1967362a9def"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[135893, 3904, 344, 5, 44, "Subsubtitle",ExpressionUUID->"2c9239a7-59a6-420a-95aa-a0a45e14bd37"],
Cell[136240, 3911, 557, 13, 135, "Text",ExpressionUUID->"973ccf94-e535-44e2-b6c0-9aebe451e75a"],
Cell[CellGroupData[{
Cell[136822, 3928, 306, 5, 66, "Subsection",ExpressionUUID->"ce0005eb-92d8-4869-ab8c-beed4e0a4f93"],
Cell[137131, 3935, 308, 10, 47, "Text",ExpressionUUID->"036b7d8b-edf9-47ef-8213-9433020fc50a"],
Cell[137442, 3947, 173, 4, 48, "Input",ExpressionUUID->"57923df4-25a0-45c3-ba9a-2314187875c9"],
Cell[137618, 3953, 507, 15, 82, "Input",ExpressionUUID->"fce12842-5235-4c40-8077-8279c5971bbb"],
Cell[138128, 3970, 1071, 30, 82, "Input",ExpressionUUID->"d9d94aeb-6191-4fe9-9768-4171a50dafe2"],
Cell[139202, 4002, 284, 8, 77, "Text",ExpressionUUID->"1eb1d7fb-4d3c-45f8-9117-14076c028c9a"],
Cell[139489, 4012, 1074, 31, 148, "Input",ExpressionUUID->"ba050ed0-2021-4867-a680-4e5c4aa094be"],
Cell[140566, 4045, 327, 8, 76, "Text",ExpressionUUID->"2cf123e1-1511-4130-bad2-e5629146a7d4"],
Cell[140896, 4055, 274, 6, 48, "Input",ExpressionUUID->"b5fc6a94-4c2a-43a9-a03e-8ebc4af72aaa"],
Cell[141173, 4063, 530, 11, 137, "Text",ExpressionUUID->"33c870e1-981d-414f-bd1d-e1cf2edc1d8e"],
Cell[141706, 4076, 246, 8, 47, "Text",ExpressionUUID->"a38aa029-8fe2-4fc4-85b7-9b224ea827b7"],
Cell[141955, 4086, 2201, 54, 445, "Input",ExpressionUUID->"83d1acab-8cc9-456a-a95e-3bb791fa68e3"],
Cell[144159, 4142, 393, 9, 77, "Text",ExpressionUUID->"975cf43a-7fb6-4b7d-beae-c3ecdbf29949"],
Cell[144555, 4153, 2128, 67, 181, "Input",ExpressionUUID->"ab32f3da-da5e-4414-9beb-0d274aa2bda1"],
Cell[146686, 4222, 256, 6, 48, "Input",ExpressionUUID->"547607f3-2330-4a2a-9752-28558ab15f01"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146979, 4233, 258, 4, 66, "Subsection",ExpressionUUID->"0abbdc1e-8a7d-404f-9707-b00b03cdb596"],
Cell[147240, 4239, 592, 17, 82, "Input",ExpressionUUID->"76ce6e1c-5848-4182-a5a9-c526f1b242ad"],
Cell[147835, 4258, 383, 10, 48, "Input",ExpressionUUID->"dc0c3f48-babb-4c0f-8f9d-52da409d08ec"],
Cell[148221, 4270, 765, 20, 48, "Input",ExpressionUUID->"8579a359-6e02-47b6-992c-7d5c7848bcbd"],
Cell[148989, 4292, 584, 15, 48, "Input",ExpressionUUID->"1d2c4f0e-dbcf-4f8e-8df3-5d4f6a7f5a63"],
Cell[149576, 4309, 584, 15, 48, "Input",ExpressionUUID->"43ebbc8b-ac7e-4957-ad25-01f87a7cd538"],
Cell[150163, 4326, 910, 29, 48, "Input",ExpressionUUID->"dd8c79d5-bba2-4d3d-b43c-f7f809bc5edc"],
Cell[151076, 4357, 613, 16, 107, "Text",ExpressionUUID->"d5c6ca25-97c6-4a97-bde9-ea699579ca87"],
Cell[151692, 4375, 1182, 32, 48, "Input",ExpressionUUID->"3be62308-64b1-42e4-bab7-d5877f34734d"],
Cell[152877, 4409, 204, 5, 48, "Input",ExpressionUUID->"606a5ee7-47b1-454f-bd4c-87f397da21c2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153118, 4419, 197, 4, 66, "Subsection",ExpressionUUID->"750d2a3e-d896-4c27-a485-45ca732ad29e"],
Cell[153318, 4425, 625, 19, 48, "Input",ExpressionUUID->"00102202-1257-418a-af76-54394f8430c0"],
Cell[153946, 4446, 1000, 30, 48, "Input",ExpressionUUID->"6758230a-4afc-45bc-bf3b-f9da78e52f95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154983, 4481, 197, 4, 66, "Subsection",ExpressionUUID->"c597435a-e952-4229-9635-7ad1c9d78b68"],
Cell[155183, 4487, 1991, 57, 214, "Input",ExpressionUUID->"f1c77181-74f5-44c7-839b-d9859e2be99b"],
Cell[157177, 4546, 1635, 43, 181, "Input",ExpressionUUID->"2090bbde-1fb8-4bf6-8b3d-b6c5c91e30a5"],
Cell[158815, 4591, 154, 3, 48, "Input",ExpressionUUID->"55c1e8cd-78c8-4313-86d4-a191d23a0251"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[159018, 4600, 426, 7, 45, "Subsubtitle",ExpressionUUID->"403914f4-664c-4041-8ff8-96186d6d2a91"],
Cell[159447, 4609, 721, 17, 106, "Text",ExpressionUUID->"e148ea67-a4be-4b41-a964-2db473ae9eea"],
Cell[160171, 4628, 1029, 30, 108, "Text",ExpressionUUID->"fa314d17-9edc-4bf8-bb8f-cba35426a45f"],
Cell[161203, 4660, 286, 5, 46, "Text",ExpressionUUID->"90d49479-1543-428f-8810-eb773432911a"],
Cell[161492, 4667, 501, 16, 48, "Input",ExpressionUUID->"b9441e7d-61f7-4cda-80e2-e567dcaa0315"],
Cell[161996, 4685, 349, 7, 48, "Input",ExpressionUUID->"87b159e0-8918-41bd-8f1f-12688de37ccb"],
Cell[162348, 4694, 597, 15, 135, "Text",ExpressionUUID->"2460cb2f-5003-4abd-bf52-63db4e7324b3"],
Cell[162948, 4711, 412, 8, 135, "Text",ExpressionUUID->"b04a8d92-c65f-493f-94b2-6b05964c0109"],
Cell[CellGroupData[{
Cell[163385, 4723, 1457, 37, 327, "Input",ExpressionUUID->"72750060-cc3f-4b58-9804-aae80db74c90"],
Cell[164845, 4762, 467, 14, 111, "Output",ExpressionUUID->"f9e958dd-0853-4049-960f-e8bf6f417a74"]
}, Open  ]],
Cell[165327, 4779, 267, 7, 70, "Input",ExpressionUUID->"67bc3add-0edb-4c1f-8fa2-05a9a95ca73f"],
Cell[165597, 4788, 457, 9, 135, "Text",ExpressionUUID->"695c28bf-d4f1-40ec-8f76-198ac8dbf131"],
Cell[166057, 4799, 576, 17, 70, "Input",ExpressionUUID->"4637b522-90f0-49fd-9b3d-d0ab3ab95830"],
Cell[166636, 4818, 2442, 58, 378, "Input",ExpressionUUID->"e2ad8708-150c-4d7d-8770-397b906d0873"],
Cell[169081, 4878, 689, 15, 70, "Input",ExpressionUUID->"42fba7f4-3cc5-43ca-a369-4d643b1a9dfc"],
Cell[169773, 4895, 419, 9, 70, "Input",ExpressionUUID->"83f5bc2f-82e2-4a7d-89de-c5db205410be"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[170241, 4910, 333, 5, 121, "Subtitle",ExpressionUUID->"bbf70611-846b-4992-9293-064419ce6d5f"],
Cell[170577, 4917, 851, 16, 294, "Text",ExpressionUUID->"836a8566-da1c-4f6c-a524-2b8cdbf46ba0"],
Cell[171431, 4935, 936, 20, 241, "Text",ExpressionUUID->"82fb7ea3-3552-4c04-a9a3-27d0eb19425b"],
Cell[CellGroupData[{
Cell[172392, 4959, 295, 5, 70, "Subsubtitle",ExpressionUUID->"17a44c5b-bcc3-407e-ab48-60d2cb5a6453"],
Cell[172690, 4966, 1609, 31, 507, "Text",ExpressionUUID->"11b0eda1-de44-4663-8bb5-b4de39d5b56e"],
Cell[174302, 4999, 758, 22, 70, "Input",ExpressionUUID->"983a35aa-c92a-40d2-bc7b-b62f0d78835c"],
Cell[175063, 5023, 487, 13, 123, "Input",ExpressionUUID->"92fe1408-00d6-4439-b7d8-c190d525f9e4"],
Cell[175553, 5038, 473, 13, 123, "Input",ExpressionUUID->"35830289-81b2-47ed-b850-b0bae76a189c"],
Cell[176029, 5053, 414, 11, 82, "Input",ExpressionUUID->"b55ba764-6992-4247-84a0-4f4cf02c22bd"],
Cell[176446, 5066, 541, 15, 82, "Input",ExpressionUUID->"e57920eb-0516-4aa4-b3b5-c8156e73a58f"],
Cell[176990, 5083, 409, 11, 82, "Input",ExpressionUUID->"61648e51-d08d-4320-bd03-a75fdb7a3149"],
Cell[177402, 5096, 501, 14, 82, "Input",ExpressionUUID->"41f4c578-65b8-444f-a9a2-751efe373a3a"],
Cell[177906, 5112, 581, 15, 82, "Input",ExpressionUUID->"5019c116-65fc-431c-8e27-b3ccb0d2a63d"],
Cell[CellGroupData[{
Cell[178512, 5131, 220, 4, 66, "Subsection",ExpressionUUID->"4adfb12a-2e16-4aae-ac8a-f1a248e08fbc"],
Cell[178735, 5137, 512, 12, 135, "Text",ExpressionUUID->"53886d14-50b9-4be4-a585-0da652e25c08"],
Cell[179250, 5151, 795, 16, 165, "Text",ExpressionUUID->"2c638e61-26ea-46f8-be06-9d7372780da9"],
Cell[180048, 5169, 777, 20, 48, "Input",ExpressionUUID->"356a210e-1def-446c-8d80-e2c717e105c0"],
Cell[180828, 5191, 614, 17, 82, "Input",ExpressionUUID->"b3df9507-b302-4609-851c-0144a5bd4182"],
Cell[181445, 5210, 660, 18, 82, "Input",ExpressionUUID->"4da8d2d9-c1f0-4068-ba41-90b35ab8226b"],
Cell[182108, 5230, 639, 22, 78, "Text",ExpressionUUID->"b89cab18-8e5f-4d1a-b9a5-1c3227d1d2f9"],
Cell[182750, 5254, 609, 16, 123, "Input",ExpressionUUID->"c47a07e3-844b-486d-a459-2dbd42193f9d"],
Cell[183362, 5272, 534, 14, 187, "Text",ExpressionUUID->"b2671867-3f20-4053-958d-dba87705c782"],
Cell[183899, 5288, 647, 15, 123, "Input",ExpressionUUID->"39589f5d-c941-47ef-b656-fa89f5e8ae34"],
Cell[184549, 5305, 779, 19, 123, "Input",ExpressionUUID->"818ee584-2159-4c96-acac-bb7f41c6ce81"],
Cell[185331, 5326, 754, 22, 123, "Input",ExpressionUUID->"f763bba7-35fe-491a-94cd-42d9c1e337a2"],
Cell[186088, 5350, 644, 15, 123, "Input",ExpressionUUID->"b8cf471b-742e-4cba-b6ad-72f996dec33e"],
Cell[186735, 5367, 596, 22, 135, "Text",ExpressionUUID->"67d77aa4-7a52-4063-bbae-6b5a73e99d77"],
Cell[187334, 5391, 276, 7, 70, "Input",ExpressionUUID->"8330a306-d535-43b6-bb73-a6c90004d6ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187647, 5403, 219, 4, 123, "Subsection",ExpressionUUID->"e6204a00-1103-4358-8f59-b703c879ce37"],
Cell[187869, 5409, 536, 17, 78, "Text",ExpressionUUID->"41cbf27a-9ec7-4825-bea8-caa929a4d7fc"],
Cell[188408, 5428, 798, 22, 48, "Input",ExpressionUUID->"1d99e5fa-6e1d-46a0-944a-4a91e7a4bb30"],
Cell[189209, 5452, 773, 21, 82, "Input",ExpressionUUID->"2da211a7-75db-440e-9e2d-4b9771939f2d"],
Cell[189985, 5475, 728, 17, 82, "Input",ExpressionUUID->"80f0e66b-6cbc-44bb-bdf5-48f57227922d"],
Cell[190716, 5494, 490, 12, 47, "Text",ExpressionUUID->"295aa969-a536-4c86-823b-386b61607d11"],
Cell[191209, 5508, 567, 16, 82, "Input",ExpressionUUID->"2fbff748-27c3-4130-94b2-39de3ec6d891"],
Cell[191779, 5526, 276, 7, 48, "Input",ExpressionUUID->"874794c1-44c9-4e1a-a07a-8b650fd5f6b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192092, 5538, 155, 3, 66, "Subsection",ExpressionUUID->"1a5ac023-d166-4550-8df2-965a3c71b4e4"],
Cell[192250, 5543, 676, 12, 164, "Text",ExpressionUUID->"35eec8d9-b259-4e99-b99b-5d58ce7ae668"],
Cell[192929, 5557, 991, 28, 48, "Input",ExpressionUUID->"c536097c-3582-4508-b660-7734079ff398"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193957, 5590, 164, 3, 66, "Subsection",ExpressionUUID->"3336ce66-7ff3-4e9c-8ae4-7fbabd00ea1d"],
Cell[194124, 5595, 1452, 36, 346, "Input",ExpressionUUID->"35dffb79-ffef-420b-a39d-def0845b48ed"],
Cell[195579, 5633, 1092, 28, 288, "Input",ExpressionUUID->"84903dd6-54ed-4f7b-bb45-886819bc432a"],
Cell[196674, 5663, 656, 14, 241, "Text",ExpressionUUID->"f24f9e5a-1419-4f55-b500-038d8f79c250"],
Cell[197333, 5679, 454, 12, 174, "Input",ExpressionUUID->"f5daa2c0-a3c5-4105-8b37-171f87bca8a0"],
Cell[197790, 5693, 457, 12, 174, "Input",ExpressionUUID->"9730eb70-2187-40fc-bb16-698a7ce601bc"],
Cell[198250, 5707, 1132, 25, 187, "Text",ExpressionUUID->"a287cc03-9248-4bcc-b6e1-1ab9c68530c1"],
Cell[199385, 5734, 218, 4, 70, "Input",ExpressionUUID->"ba9e58cb-8c81-4df1-a172-9c6c182da86c"],
Cell[199606, 5740, 242, 5, 70, "Input",ExpressionUUID->"a8809b25-1de8-45a0-9878-00689d85b8f5"],
Cell[199851, 5747, 299, 8, 76, "Input",ExpressionUUID->"8b8a26cf-4a1a-4c48-839c-8d1911688af1"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[200199, 5761, 214, 4, 44, "Subsubtitle",ExpressionUUID->"838096cd-2c1a-4e08-b223-2b172c87497b"],
Cell[CellGroupData[{
Cell[200438, 5769, 169, 3, 66, "Subsection",ExpressionUUID->"bad7de7c-c661-4cc1-861a-fb8a1f0c4ba3"],
Cell[200610, 5774, 701, 15, 165, "Text",ExpressionUUID->"62540573-a3d1-4545-a53e-914e30128774"],
Cell[201314, 5791, 160, 3, 46, "Text",ExpressionUUID->"32e2b60c-7849-47c7-a18d-fbf5e119b947"],
Cell[201477, 5796, 291, 8, 48, "Input",ExpressionUUID->"a1f0c0fa-f6aa-4bc8-85b9-2ce417d56fd1"],
Cell[201771, 5806, 1192, 26, 167, "Text",ExpressionUUID->"31e08b39-9f0b-41bc-94da-276262179cac"],
Cell[202966, 5834, 315, 9, 48, "Input",ExpressionUUID->"2b7c2023-83a4-4643-8a03-0c62bb117f44"],
Cell[203284, 5845, 485, 11, 78, "Text",ExpressionUUID->"eab2980f-f83a-41cb-8d0c-716cf7711a80"],
Cell[CellGroupData[{
Cell[203794, 5860, 160, 3, 52, "Subsubsection",ExpressionUUID->"76d885ff-84a3-4f61-92a4-74b279e5a286"],
Cell[203957, 5865, 677, 12, 105, "Text",ExpressionUUID->"afe17af2-d1a3-4e46-b4a1-cd996868ce2b"],
Cell[204637, 5879, 490, 13, 115, "Input",ExpressionUUID->"913df857-3eae-44c0-94ca-80576ce3390e"],
Cell[205130, 5894, 539, 12, 148, "Input",ExpressionUUID->"976854e0-a6f7-4217-b914-4e8fd584fcb1"],
Cell[205672, 5908, 254, 6, 48, "Input",ExpressionUUID->"ca2620a9-4a6d-412b-9dfb-314e0f32a062"],
Cell[205929, 5916, 268, 4, 46, "Text",ExpressionUUID->"c35e7fc0-d102-4fb9-bd6c-be6a25ef029b"],
Cell[206200, 5922, 913, 23, 148, "Input",ExpressionUUID->"c19e030f-3818-42b3-b0d5-9d95ae67b182"],
Cell[207116, 5947, 665, 16, 48, "Input",ExpressionUUID->"d094e144-8b33-4e33-aa0b-be2fdc6e696d"],
Cell[207784, 5965, 256, 6, 48, "Input",ExpressionUUID->"a212572f-5010-4148-bce8-61bf9d95cde3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208077, 5976, 205, 3, 53, "Subsubsection",ExpressionUUID->"05fc22da-fc82-4945-ba00-71b8aee4bceb"],
Cell[208285, 5981, 917, 16, 253, "Text",ExpressionUUID->"d062df5e-ab25-4a96-a8fe-44e58c825231"],
Cell[209205, 5999, 909, 24, 115, "Input",ExpressionUUID->"417a1ca8-1514-46db-b0f6-f4d8dace726f"],
Cell[210117, 6025, 802, 16, 247, "Input",ExpressionUUID->"d69e7c58-c233-4e78-951a-443996d53274"],
Cell[210922, 6043, 253, 6, 48, "Input",ExpressionUUID->"c0481eaf-5bfa-4caf-a19e-be1ba0f33219"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[211224, 6055, 387, 6, 66, "Subsection",ExpressionUUID->"bca59065-9e2e-4081-a5a6-2179a2f4935e"],
Cell[211614, 6063, 815, 14, 164, "Text",ExpressionUUID->"2aaa0a84-a98d-457c-bb3b-8b273ef0005e"],
Cell[212432, 6079, 415, 11, 48, "Input",ExpressionUUID->"ce110d31-f581-4a09-a2af-ddbc8764ad99"],
Cell[212850, 6092, 358, 8, 82, "Input",ExpressionUUID->"7f325cca-1b26-4646-a4e6-b6a91cf6486b"],
Cell[213211, 6102, 485, 11, 82, "Input",ExpressionUUID->"4cc804f6-8a88-4b34-995b-4725bbba9f72"],
Cell[213699, 6115, 422, 12, 48, "Input",ExpressionUUID->"ebb64278-c523-42f2-8c47-897285fac23b"],
Cell[214124, 6129, 350, 8, 115, "Input",ExpressionUUID->"30c71b79-9654-47d6-8eec-1d92dc983e8c"],
Cell[214477, 6139, 205, 5, 48, "Input",ExpressionUUID->"ee167d32-7743-4198-8976-2329f33c8bc8"],
Cell[214685, 6146, 908, 17, 253, "Text",ExpressionUUID->"a9b1e55a-4488-4108-ae5d-426d8a1ba9d5"],
Cell[215596, 6165, 1682, 42, 148, "Input",ExpressionUUID->"c6c1a120-67cc-4df4-93f7-a9ecdc751bf2"],
Cell[217281, 6209, 421, 12, 47, "Text",ExpressionUUID->"662eeafd-09e6-49ed-980e-54fda354b3fb"],
Cell[217705, 6223, 378, 9, 48, "Input",ExpressionUUID->"83a4aa9a-89d8-4692-8492-a981fbd3481a"],
Cell[218086, 6234, 215, 4, 48, "Input",ExpressionUUID->"95ba420f-aebc-4619-9e2e-b272c1647d45"],
Cell[218304, 6240, 333, 7, 48, "Input",ExpressionUUID->"db051ce8-d77e-4875-8806-4d417b6df75b"],
Cell[218640, 6249, 205, 5, 48, "Input",ExpressionUUID->"1bec3eaf-c29b-4d74-a6e5-b183f3c07587"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218882, 6259, 154, 3, 66, "Subsection",ExpressionUUID->"13ff0e1f-ce56-4c73-a531-7c4d5db376ed"],
Cell[219039, 6264, 373, 8, 76, "Text",ExpressionUUID->"f06e88ef-6116-41f2-85c2-cc5ad2d2f4fd"],
Cell[219415, 6274, 1020, 27, 214, "Input",ExpressionUUID->"bda37fc1-1a6c-48e2-861f-3e0be1d16a73"],
Cell[220438, 6303, 203, 5, 48, "Input",ExpressionUUID->"913801db-0fb2-42d0-86e1-2e01c905cf68"],
Cell[220644, 6310, 202, 5, 48, "Input",ExpressionUUID->"d8bcfb95-50aa-4953-b159-f56eb3351ae9"],
Cell[220849, 6317, 205, 5, 48, "Input",ExpressionUUID->"9f14835b-c76b-4b3a-ab8a-705030c6a486"],
Cell[221057, 6324, 974, 23, 227, "Text",ExpressionUUID->"59a25e7f-0bd7-40c7-b491-50ca3a0567a6"],
Cell[222034, 6349, 1101, 28, 346, "Input",ExpressionUUID->"1cdbdcac-43b9-4eb1-a825-b34717c68c95"],
Cell[223138, 6379, 198, 5, 48, "Input",ExpressionUUID->"db21ae7f-aae1-4d9f-b107-34ae243414ac"],
Cell[223339, 6386, 182, 4, 48, "Input",ExpressionUUID->"9d175b0c-bd29-4341-a37a-6ef3957fe367"],
Cell[223524, 6392, 205, 5, 48, "Input",ExpressionUUID->"e9bae750-c0ae-420c-8fb1-cf63a4e54bdc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223766, 6402, 156, 3, 66, "Subsection",ExpressionUUID->"7c1da3be-66b3-423d-829f-8fca0607f3c5"],
Cell[223925, 6407, 799, 14, 164, "Text",ExpressionUUID->"6b3046a3-ec6b-4c11-97ca-9c41b7105d56"],
Cell[224727, 6423, 549, 13, 137, "Text",ExpressionUUID->"5bcf1e1d-85ce-4ab9-b543-1bdf5fdbd36b"],
Cell[225279, 6438, 3248, 78, 610, "Input",ExpressionUUID->"46f6d004-e506-42f7-aa84-f034c4a0130c"],
Cell[228530, 6518, 277, 5, 48, "Input",ExpressionUUID->"85c60ab2-f417-491f-92d5-98082e0f3ce8"],
Cell[228810, 6525, 252, 6, 48, "Input",ExpressionUUID->"53dd7583-54d0-4d5a-b18e-a8a939845dca"],
Cell[229065, 6533, 303, 7, 48, "Input",ExpressionUUID->"8558db3f-d7a8-41a2-8128-e45db03cdf40"],
Cell[229371, 6542, 304, 7, 48, "Input",ExpressionUUID->"ef0bd386-0a10-4f3d-9cda-791e216dec70"],
Cell[229678, 6551, 175, 3, 48, "Input",ExpressionUUID->"7b12aa1e-04f6-4c92-a40e-f22e4f6bfb72"],
Cell[229856, 6556, 473, 13, 82, "Input",ExpressionUUID->"ab07317e-9336-40b6-969a-46543a6740c3"],
Cell[CellGroupData[{
Cell[230354, 6573, 166, 3, 52, "Subsubsection",ExpressionUUID->"272758e8-c282-4bdd-94b3-ed3623ae75a8"],
Cell[230523, 6578, 614, 13, 166, "Text",ExpressionUUID->"62c90f62-a93c-4b7d-9cae-76c86ca912ba"],
Cell[231140, 6593, 392, 10, 115, "Input",ExpressionUUID->"8288ac91-4a6f-4e26-8a22-12eb957c9cdf"],
Cell[231535, 6605, 206, 5, 48, "Input",ExpressionUUID->"0e362afa-8436-47cc-9eed-b1c19a53d071"],
Cell[231744, 6612, 173, 4, 48, "Input",ExpressionUUID->"fbd60d46-fd0e-41e6-bc45-c306eceaf222"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231954, 6621, 186, 3, 53, "Subsubsection",ExpressionUUID->"fa7b8eaa-e92b-4302-a2dc-ec1814cc1c5a"],
Cell[232143, 6626, 887, 17, 167, "Text",ExpressionUUID->"1e023687-c910-443a-856b-e74a8b9344f9"],
Cell[233033, 6645, 249, 5, 46, "Text",ExpressionUUID->"544505cd-a51d-4a30-becd-6e6dbd8c296e"],
Cell[233285, 6652, 622, 9, 322, "Text",ExpressionUUID->"b29312d3-3879-4488-b8b8-5d0310c5f9ee"],
Cell[233910, 6663, 241, 5, 48, "Input",ExpressionUUID->"5112c95e-1ac9-4e26-9de4-49e71b41456d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[234200, 6674, 308, 5, 66, "Subsection",ExpressionUUID->"d6d4688c-d26c-4105-bc8e-fae4c288ce0f"],
Cell[234511, 6681, 717, 13, 135, "Text",ExpressionUUID->"8dba68b6-0056-40bf-9ca7-37d7fc4e2298"],
Cell[235231, 6696, 345, 9, 82, "Input",ExpressionUUID->"75d1b82d-b66a-441d-a44e-c08168b2dea2"],
Cell[235579, 6707, 348, 11, 82, "Input",ExpressionUUID->"1e851c23-3457-47e9-bb65-a58b062329ee"],
Cell[235930, 6720, 258, 6, 48, "Input",ExpressionUUID->"0296c417-177d-4c75-9851-53f8b7f50baf"],
Cell[236191, 6728, 1085, 25, 138, "Text",ExpressionUUID->"8a83b530-16e1-4836-8b4d-c7acf4def66a"],
Cell[237279, 6755, 389, 12, 48, "Input",ExpressionUUID->"62916ed6-3c09-4353-beb4-31aa2aca77bb"],
Cell[237671, 6769, 858, 25, 82, "Input",ExpressionUUID->"b6a78384-e02c-45de-b7c5-5be3e1540455"],
Cell[238532, 6796, 944, 24, 115, "Input",ExpressionUUID->"509d4aa6-0109-426e-ba83-22ba902a33f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239513, 6825, 223, 4, 66, "Subsection",ExpressionUUID->"89126981-83bc-4b27-90f0-1b76bc38bef9"],
Cell[239739, 6831, 411, 11, 76, "Text",ExpressionUUID->"2068a095-2cf4-4d9f-ac0a-e376d58b72cb"],
Cell[240153, 6844, 440, 13, 78, "Text",ExpressionUUID->"78e66662-94ca-48a6-b28d-06623fab7f0c"],
Cell[240596, 6859, 288, 6, 115, "Input",ExpressionUUID->"107b3501-e67f-42b0-b859-4206d5a3db56"],
Cell[240887, 6867, 761, 22, 138, "Text",ExpressionUUID->"3ddff599-ee33-4fea-886e-049e390722ac"],
Cell[241651, 6891, 608, 14, 214, "Input",ExpressionUUID->"89907a22-ce79-44ae-8938-a12dc100a045"],
Cell[242262, 6907, 500, 11, 148, "Input",ExpressionUUID->"187cf205-493a-49a4-a30e-5d2fda2b54a1"],
Cell[242765, 6920, 638, 17, 115, "Input",ExpressionUUID->"aaef9b26-9d39-4fbe-8380-f86428b75aff"],
Cell[CellGroupData[{
Cell[243428, 6941, 263, 5, 53, "Subsubsection",ExpressionUUID->"9e086bcc-cfaa-4013-a237-7fad4dbeb8c1"],
Cell[243694, 6948, 701, 18, 136, "Text",ExpressionUUID->"46c1b880-3226-4023-be46-e0f92f0a231b"],
Cell[244398, 6968, 479, 13, 82, "Input",ExpressionUUID->"d3c1c4b9-fb4b-4685-9b57-1cb94098dd3a"],
Cell[244880, 6983, 458, 17, 78, "Text",ExpressionUUID->"94c3b224-0791-4b6a-8b97-7d2ecd80de53"],
Cell[245341, 7002, 395, 10, 82, "Input",ExpressionUUID->"1c87b08d-b660-41bc-8cfd-96efbc924247"],
Cell[245739, 7014, 232, 6, 48, "Input",ExpressionUUID->"feaf5711-244a-4be7-a659-7ebff1a91af0"],
Cell[245974, 7022, 622, 18, 82, "Input",ExpressionUUID->"c39cea5d-0f84-4ee0-8ab2-ab1d94396cc2"],
Cell[246599, 7042, 588, 12, 136, "Text",ExpressionUUID->"d389c538-87a0-46ab-9c82-741ce6535c31"],
Cell[247190, 7056, 776, 24, 82, "Input",ExpressionUUID->"938663de-8ae3-47e6-8009-a24506e8161f"],
Cell[247969, 7082, 1714, 45, 115, "Input",ExpressionUUID->"550bab9d-1109-48de-9500-378f9e42b9cb"],
Cell[249686, 7129, 516, 14, 48, "Input",ExpressionUUID->"a2b1bb27-a8ad-41e4-bd93-3137ff34ab40"],
Cell[250205, 7145, 582, 15, 82, "Input",ExpressionUUID->"f5d0e6a7-e0ec-434c-be96-4340e24e98fb"],
Cell[250790, 7162, 702, 16, 48, "Input",ExpressionUUID->"dfdf91f6-fc48-41cd-b971-65f9d6e73e22"],
Cell[251495, 7180, 437, 9, 106, "Text",ExpressionUUID->"f7244244-1e89-4a43-b9fb-43024ca68eee"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[251993, 7196, 232, 4, 45, "Subsubtitle",ExpressionUUID->"90db8726-64db-46c1-98d4-713ba6e04d1f"],
Cell[252228, 7202, 651, 17, 106, "Text",ExpressionUUID->"6510fb52-19d4-4fb4-9a8d-c362d2a6f075"],
Cell[252882, 7221, 524, 13, 48, "Input",ExpressionUUID->"4de68ad6-5646-4a96-9474-4c7427ce59d6"],
Cell[253409, 7236, 331, 8, 77, "Text",ExpressionUUID->"41578e47-f9a4-4f2c-9c24-27b339b36340"],
Cell[253743, 7246, 409, 9, 82, "Input",ExpressionUUID->"5bdfb872-33d5-4f25-8e78-50841e4b1933"],
Cell[CellGroupData[{
Cell[254177, 7259, 173, 3, 52, "Subsubsection",ExpressionUUID->"839e4bad-935c-42ce-8b16-e37ade236d32"],
Cell[254353, 7264, 729, 14, 136, "Text",ExpressionUUID->"63f577c9-bdb6-4d07-a6d8-0b190de0e013"],
Cell[255085, 7280, 542, 16, 48, "Input",ExpressionUUID->"5e6c5837-6fc9-40fe-bf67-de270ec09279"],
Cell[255630, 7298, 191, 4, 48, "Input",ExpressionUUID->"4434804b-d411-4529-8900-6b20f9498fda"],
Cell[255824, 7304, 515, 12, 82, "Input",ExpressionUUID->"274ad3d8-6836-4239-a5cc-eeb0f1a9a10f"],
Cell[256342, 7318, 416, 11, 82, "Input",ExpressionUUID->"0fa834d1-e725-45d6-95c8-43448bdb1219"],
Cell[256761, 7331, 258, 6, 48, "Input",ExpressionUUID->"3c5d3075-7779-403b-b211-fe8dc4b07252"],
Cell[257022, 7339, 795, 23, 148, "Input",ExpressionUUID->"1f2c05ce-68fe-40a7-a05b-dc9ad6a3941f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[257854, 7367, 169, 3, 53, "Subsubsection",ExpressionUUID->"5c7953b7-2190-46ac-99f4-2f5e89b7d7a1"],
Cell[258026, 7372, 1031, 25, 108, "Text",ExpressionUUID->"b2ebdb75-e40b-4184-a0bb-31c192bbb73c"],
Cell[259060, 7399, 488, 11, 82, "Input",ExpressionUUID->"f5f034a7-6a16-4a52-a6cf-497e5a7e51eb"],
Cell[259551, 7412, 487, 11, 82, "Input",ExpressionUUID->"552437bd-e4f0-4219-890c-f8accdbfb5cc"],
Cell[260041, 7425, 381, 10, 82, "Input",ExpressionUUID->"d6decc5a-6e28-434e-95b8-191fa7340849"],
Cell[260425, 7437, 540, 12, 82, "Input",ExpressionUUID->"20627726-ec79-4d43-8ea3-417f6acf53bb"],
Cell[260968, 7451, 496, 12, 82, "Input",ExpressionUUID->"ab499b0b-57fa-4537-82a3-1d7d2f1701c7"],
Cell[261467, 7465, 454, 12, 82, "Input",ExpressionUUID->"c17995d8-8a75-4426-9ad2-c769b727a63f"],
Cell[261924, 7479, 450, 12, 82, "Input",ExpressionUUID->"941b13f5-cef8-46bc-9bb0-915e0b7c4d52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[262411, 7496, 167, 3, 52, "Subsubsection",ExpressionUUID->"d7bff3f7-877e-4d4a-8bac-1266ae2b3bba"],
Cell[262581, 7501, 391, 10, 82, "Input",ExpressionUUID->"49010a07-4ec0-4dc5-b4be-9d9fa1072f3a"],
Cell[262975, 7513, 502, 14, 82, "Input",ExpressionUUID->"780c2d4a-bb03-4659-a08e-ad600e3743a2"],
Cell[263480, 7529, 376, 10, 82, "Input",ExpressionUUID->"7f618e04-faa1-4212-9501-07612764180f"],
Cell[263859, 7541, 782, 24, 115, "Input",ExpressionUUID->"7cc51e3c-30dc-462d-9190-999455fb7f93"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264678, 7570, 183, 3, 52, "Subsubsection",ExpressionUUID->"f1a18da7-e0a9-4de6-97e7-b7d2e9f35ba1"],
Cell[264864, 7575, 383, 9, 105, "Text",ExpressionUUID->"d7471bc4-53cd-413f-a2d9-ac4d5057609c"],
Cell[265250, 7586, 330, 9, 48, "Input",ExpressionUUID->"92e60349-77ce-41fc-af8b-c2e421b89cf8"],
Cell[265583, 7597, 601, 14, 82, "Input",ExpressionUUID->"e94f275d-c797-4d8e-b4ba-da11c5264b5a"],
Cell[266187, 7613, 266, 7, 48, "Input",ExpressionUUID->"2b408265-5353-44b0-a378-672f367c1494"],
Cell[266456, 7622, 344, 7, 48, "Input",ExpressionUUID->"66545d2c-a853-46bf-b0fc-bc33c0985dcf"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)