(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 1278731, 25583] NotebookOptionsPosition[ 1246016, 24528] NotebookOutlinePosition[ 1246917, 24561] CellTagsIndexPosition[ 1246738, 24554] 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}], Cell[TextData[{ "Dieses ", StyleBox["Mathematica", FontSlant->"Italic"], " Notebook ist dazu gedacht, Sie mit der Arbeitsweise dieses \"Systems\" \ ansich und den grundlegendsten Funktionen vertraut zu machen. Hierbei werden \ anhand einfacher Beispiele und ohne Anspruch auf Vollst\[ADoubleDot]ndigkeit \ verschiedene M\[ODoubleDot]glichkeiten ", StyleBox["Mathematica", FontSlant->"Italic"], " einzusetzen demonstriert. Versuchen Sie alle Beispiele nachzuvollziehen! \ ", 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 wirklich \ hervorragende ", StyleBox["Mathematica", FontSlant->"Italic"], " Dokumentation, bzw. Hilfefunktion bem\[UDoubleDot]hen." }], "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}], Cell[CellGroupData[{ 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"], 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}], Cell[TextData[{ "Kommas werden mit einem \[OpenCurlyDoubleQuote]", StyleBox[".", "Input"], "\[OpenCurlyDoubleQuote] eingegeben!" }], "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.5297483677758207`*^9, 3.529748404529604*^9}, 3.529773051351486*^9}], 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}], Cell[CellGroupData[{ 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}], 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}], Cell[TextData[{ "mit den Befehlen ", StyleBox["?", "Input"], " (\[OpenCurlyDoubleQuote]Wildcard\[CloseCurlyDoubleQuote] ", StyleBox["*", "Input"], StyleBox[" m", "Text"], "\[ODoubleDot]", StyleBox["glich", "Text"], ") oder ", StyleBox["??", "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}], Cell[TextData[{ "Benutzen der Web-Dokumentation unter ", ButtonBox["http://reference.wolfram.com/mathematica/guide/Mathematica.html.", 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}] }, Open ]], 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}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Exp"}]], "Input", PageWidth->PaperWidth, CellChangeTimes->{{3.529741266663995*^9, 3.529741267824898*^9}, 3.52977305135245*^9}], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Exp\\\", \\\"[\\\", StyleBox[\\\"z\\\", \ \\\"TI\\\"], \\\"]\\\"}]\) gives the exponential of \!\(\*StyleBox[\\\"z\\\", \ \\\"TI\\\"]\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Exp"]}]], "Print", "PrintUsage", CellChangeTimes->{3.530333629489489*^9}, CellTags->"Info3530337229-1666942"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Plot"}]], "Input", PageWidth->PaperWidth, CellChangeTimes->{{3.529741266663995*^9, 3.529741294234335*^9}, 3.529773051353683*^9}], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\\\ \"f\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) generates \ a plot of \\!\\(\\*StyleBox[\\\"f\\\", \\\"TI\\\"]\\) as a function of \\!\\(\ \\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) from \ \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]]\\) to \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \ \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) plots \ several functions \\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Plot"]}]], "Print", "PrintUsage", CellChangeTimes->{3.5303336306469603`*^9}, CellTags->"Info3530337230-1666942"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Plot*"}]], "Input", CellChangeTimes->{{3.52974641600181*^9, 3.5297464605730133`*^9}, 3.5297730513545427`*^9}], Cell[BoxData[ DynamicModuleBox[{Typeset`open$$ = True}, PaneSelectorBox[{False-> RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["System`", "InfoHeading"]}], True->GridBox[{ { RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["System`", "InfoHeading"]}]}, {GridBox[{ { ButtonBox["Plot", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"Plot", "System`"}}, ButtonNote->"System`"], ButtonBox["Plot3Matrix", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"Plot3Matrix", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotJoined", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotJoined", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotLayout", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotLayout", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotPoints", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotPoints", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotRangeClipping", BaseStyle->"InformationLink", ButtonData:>{ "Info3530337249-1666942", {"PlotRangeClipping", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotRegion", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotRegion", "System`"}}, ButtonNote->"System`"]}, { ButtonBox["Plot3D", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"Plot3D", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotDivision", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotDivision", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotLabel", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotLabel", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotMarkers", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotMarkers", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotRange", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotRange", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotRangePadding", BaseStyle->"InformationLink", ButtonData:>{ "Info3530337249-1666942", {"PlotRangePadding", "System`"}}, ButtonNote->"System`"], ButtonBox["PlotStyle", BaseStyle->"InformationLink", ButtonData:>{"Info3530337249-1666942", {"PlotStyle", "System`"}}, ButtonNote->"System`"]} }, DefaultBaseStyle->"InfoGrid", GridBoxItemSize->{"Columns" -> {{ Scaled[0.1357142857142857]}}}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, Dynamic[Typeset`open$$], ImageSize->Automatic]]], "Print", "InfoCell", CellChangeTimes->{3.530333650053496*^9}] }, Open ]], Cell[CellGroupData[{ 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"], Cell["numerische und symbolische Berechnungen,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529761884503272*^9, 3.529761902312182*^9}, 3.529773051357925*^9}], Cell["Visualisierung von Daten,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529761885375618*^9, 3.529761910560466*^9}, 3.529773051358027*^9}], Cell["Statistik und Datenmanipulation,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529761885565773*^9, 3.529761885567686*^9}, 3.52976191774016*^9, 3.529773051358102*^9}], Cell["interaktive Oberfl\[ADoubleDot]chen,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.5297619280912*^9, 3.5297619352128277`*^9}, 3.5297730513581743`*^9}], Cell["h\[ODoubleDot]here Programmiersprache,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.5297619354407988`*^9, 3.529761943716585*^9}, 3.529773051358247*^9, {3.529829910528288*^9, 3.529829914447157*^9}}], Cell["\<\ Bibliotheken zu zahlreichen Gebieten der Mathematik und der \ Naturwissenschaften,\ \>", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.5297619357259903`*^9, 3.5297619540985813`*^9}, 3.52977305135832*^9, {3.530333819676947*^9, 3.5303338520730467`*^9}}], Cell["Netzwerk Funktionalit\[ADoubleDot]t,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529761960228178*^9, 3.5297619604517097`*^9}, 3.52977305135839*^9}], Cell["Einbindung externer Programme,", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529761968619728*^9, 3.5297619760323687`*^9}, 3.5297730513584633`*^9}], Cell["etc.", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529761976997225*^9, 3.529761978941066*^9}, 3.529773051358535*^9}] }, Open ]], 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}], Cell[CellGroupData[{ Cell["1. Grundlegendes", "Subtitle", PageWidth->PaperWidth, CellChangeTimes->{{3.529742534520773*^9, 3.529742643999269*^9}, { 3.529742909469145*^9, 3.5297429127422*^9}, 3.529773051358811*^9}], 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}], 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}], 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 (solange kein Rundungsfehler entsteht)." }], "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "+", "2"}]], "Input", CellChangeTimes->{{3.529745835181941*^9, 3.529745835562264*^9}, 3.5297730513594933`*^9}], Cell[BoxData["3"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.52974583628001*^9, 3.529773051359654*^9, 3.530334331747777*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"45", "*", "124"}]], "Input", CellChangeTimes->{{3.529745841813085*^9, 3.529745849393052*^9}, 3.529773051360217*^9}], Cell[BoxData["5580"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.52974584974263*^9, 3.529773051360368*^9, 3.530334334145385*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"35", "-", "3"}], ")"}], "/", "6"}]], "Input", CellChangeTimes->{{3.529745853090706*^9, 3.529745880843112*^9}, 3.52977305136054*^9}], Cell[BoxData[ FractionBox["16", "3"]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529745859684621*^9, 3.529745881289157*^9}, 3.529773051360713*^9, 3.5303343409680223`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"44", "^", "2"}]], "Input", CellChangeTimes->{{3.529745870696291*^9, 3.5297458729934597`*^9}, 3.529773051360868*^9}], Cell[BoxData["1936"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.529745873276651*^9, 3.529773051361058*^9, 3.5303343431493893`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Vordefinierte Konstanten", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.52974395786697*^9, 3.5297439816214237`*^9}, 3.529745756258812*^9, 3.529773051361264*^9}], 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}}], Cell[CellGroupData[{ Cell[BoxData["E"], "Input", CellChangeTimes->{3.529746088488598*^9, 3.5297730513615303`*^9}], Cell[BoxData["\[ExponentialE]"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.529746089156149*^9, 3.5297730513616543`*^9, 3.5303344062960463`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["I"], "Input", CellChangeTimes->{3.5297460907030983`*^9, 3.529773051361795*^9}], Cell[BoxData["\[ImaginaryI]"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.5297460910576887`*^9, 3.529773051361916*^9, 3.5303344101771727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Pi"], "Input", CellChangeTimes->{{3.529746092330162*^9, 3.5297460925523653`*^9}, 3.529773051362064*^9}], Cell[BoxData["\[Pi]"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.5297460930104227`*^9, 3.529773051362184*^9, 3.5303344126644077`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Numerische Auswertung", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529743991229147*^9, 3.52974399607226*^9}, 3.529773051362351*^9}], Cell[TextData[{ "Mit Hilfe der Funktion ", StyleBox["N[]", "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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"1997", "/", "3"}], "]"}]], "Input", CellChangeTimes->{{3.529746233621257*^9, 3.529746246283658*^9}, 3.5297730513626347`*^9}], Cell[BoxData["665.6666666666666`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529746240587224*^9, 3.52974624661611*^9}, 3.529773051362781*^9, 3.5303344474812183`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "Pi", "]"}]], "Input", CellChangeTimes->{{3.529746252144218*^9, 3.529746253693468*^9}, 3.529773051362937*^9}], Cell[BoxData["3.141592653589793`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.529746254166664*^9, 3.529773051363082*^9, 3.530334449945612*^9}] }, Open ]] }, 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}], Cell[CellGroupData[{ Cell[TextData[{ "Wie findet man heraus, welche weiteren Konstanten ", StyleBox["Mathematica", FontSlant->"Italic"], " kennt?" }], "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529746614756171*^9, 3.529746629410859*^9}, { 3.5297467155949717`*^9, 3.529746758185754*^9}, 3.529773051363348*^9, { 3.53033446437993*^9, 3.5303344670554028`*^9}}], Cell["\<\ Wie kann man bei numerischer Auswertung weitere Stellen erhalten?\ \>", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529746614756171*^9, 3.529746629405918*^9}, { 3.529746767040867*^9, 3.529746782341703*^9}, {3.529746856571542*^9, 3.529746856573999*^9}, 3.529773051363433*^9}], Cell[TextData[{ "Was bewirkt die Funktion ", StyleBox["Rationalize", "Input"], StyleBox["?", "Text"] }], "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529746857522026*^9, 3.5297468795692596`*^9}, 3.52977305136351*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["L\[ODoubleDot]sungen", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529773989883778*^9, 3.529773993519004*^9}}], Cell[TextData[{ "\"mathematical constants\" in der Hilfe suchen (", Cell[BoxData[ FormBox[ ButtonBox[ RowBox[{"Mathematical", " ", "Constants"}], BaseStyle->"Link", ButtonData->"paclet:guide/MathematicalConstants"], TextForm]]], ")." }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.5297745597843447`*^9, 3.529774602759284*^9}, { 3.5303345894651127`*^9, 3.530334659039604*^9}}], Cell[TextData[{ "(", Cell[BoxData[ FormBox[ ButtonBox["N", BaseStyle->"Link", ButtonData->"paclet:ref/N"], TextForm]]], " in der Hilfe.)" }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.530334687437394*^9, 3.53033471736791*^9}, { 3.530334764467004*^9, 3.530334766873786*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"1", "/", "3"}], "]"}], ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.529774617909692*^9, 3.5297746328161097`*^9}}], Cell[BoxData["1.\ 395612425086089528628125319602586837597906515199406982617516706031739015645951\ 846969788817295830224135211184410418862096122123292780918`100."], "Output", CellChangeTimes->{{3.529774626717019*^9, 3.529774633222188*^9}, 3.530334782931691*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(", RowBox[{ ButtonBox["Rationalize", BaseStyle->"Link", ButtonData->"paclet:ref/Rationalize"], " ", "in", " ", "der", " ", RowBox[{"Hilfe", "."}]}], ")"}]], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.530334753909741*^9, 3.530334772592238*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rationalize", "[", RowBox[{"0.3333333", ",", "0.1"}], "]"}]], "Input", CellChangeTimes->{{3.529774640324065*^9, 3.529774677084893*^9}}], Cell[BoxData[ FractionBox["1", "3"]], "Output", CellChangeTimes->{{3.5297746470606194`*^9, 3.529774677455518*^9}, 3.530334784603459*^9}] }, Open ]], Cell["\<\ Es bewirkt die Approximation einer Gleitkommazahl durch einen Bruch.\ \>", "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.529774688296049*^9, 3.529774711206945*^9}}] }, Open ]], 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}], Cell[CellGroupData[{ Cell["Elementare Funtionen", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.5297480950072393`*^9, 3.529748103823175*^9}, 3.529773051363817*^9}], Cell[CellGroupData[{ 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}], Cell[BoxData[ RowBox[{"2", " ", SqrtBox["11"]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.529748187840317*^9, {3.529748224685231*^9, 3.52974822724037*^9}, 3.52977305136412*^9, 3.5303362516766863`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"5", "!"}]], "Input", CellChangeTimes->{3.5297472921379013`*^9, 3.529748195164702*^9, 3.5297730513642673`*^9}], Cell[BoxData["120"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.529748195461227*^9, 3.529773051364388*^9, 3.5303362552039337`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Exp", "[", "0.5", "]"}]], "Input", CellChangeTimes->{{3.529747177679175*^9, 3.5297471801940737`*^9}, { 3.5297481996831503`*^9, 3.529748209359765*^9}, 3.529773051364541*^9}], Cell[BoxData["1.6487212707001282`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529748200486947*^9, 3.529748209661578*^9}, 3.529773051364664*^9, 3.530336257550687*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log", "[", "1.64872", "]"}]], "Input", CellChangeTimes->{{3.529747181226492*^9, 3.529747181534124*^9}, { 3.529748203343514*^9, 3.529748216041967*^9}, 3.529773051364814*^9, 3.530336262418645*^9}], Cell[BoxData["0.49999922928111595`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529748204543825*^9, 3.5297482163937073`*^9}, 3.529773051364936*^9, 3.530336267776441*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Numerische Funktionen", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.5297481175090322`*^9, 3.529748120489772*^9}, 3.529773051365078*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Abs", "[", RowBox[{"-", "22"}], "]"}]], "Input", CellChangeTimes->{{3.529747287226829*^9, 3.529747287543468*^9}, { 3.529748297963442*^9, 3.529748300653792*^9}, 3.529773051365245*^9}], Cell[BoxData["22"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.5297483009085293`*^9, 3.529773051365369*^9, 3.530336274225247*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Min", "[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.529747397567958*^9, 3.529747397870934*^9}, { 3.529748303473518*^9, 3.52974830998473*^9}, 3.52977305136553*^9}], Cell[BoxData[ RowBox[{"-", "1"}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529748304928301*^9, 3.5297483103440037`*^9}, 3.529773051365655*^9, 3.53033627707275*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Max", "[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.529747399738871*^9, 3.529747400512896*^9}, { 3.5297483122939787`*^9, 3.529748313854577*^9}, 3.5297730513658123`*^9}], Cell[BoxData["1"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.529748314347176*^9, 3.5297730513659353`*^9, 3.5303362785372677`*^9}] }, Open ]], Cell[CellGroupData[{ 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}], Cell[BoxData["7"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529748319046*^9, 3.529748331292811*^9}, 3.529748443033815*^9, 3.529773051366218*^9, 3.530336285556342*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mod", "[", RowBox[{"5", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.52974728371511*^9, 3.529747284022032*^9}, { 3.529748334188614*^9, 3.529748336715189*^9}, 3.529773051366372*^9}], Cell[BoxData["1"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.5297483369638643`*^9, 3.529773051366494*^9, 3.53033628760533*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trigonometrsiche Funktionen", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.52974749639561*^9, 3.5297475036070004`*^9}, 3.529773051366671*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cos", "[", RowBox[{"2", "*", "Pi"}], "]"}]], "Input", CellChangeTimes->{{3.529747632018252*^9, 3.5297476330144053`*^9}, { 3.5297476966649027`*^9, 3.52974770038447*^9}, {3.529747743597982*^9, 3.529747750854267*^9}, 3.529773051366845*^9}], Cell[BoxData["1"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.52974770089142*^9, {3.529747744327591*^9, 3.5297477513480577`*^9}, 3.5297730513669786`*^9, 3.530336298308549*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArcCos", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.529747635365878*^9, 3.529747639348793*^9}, { 3.529747705563455*^9, 3.529747753545857*^9}, 3.529773051367131*^9}], Cell[BoxData["0"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529747710404933*^9, 3.529747753821122*^9}, 3.529773051367255*^9, 3.530336300359914*^9}] }, Open ]], Cell[TextData[{ "Analog: ", StyleBox["Sin", "Input"], ", ", StyleBox["ArcSin", "Input"], ", ", StyleBox["Tan", "Input"], ", ", StyleBox["ArcTan", "Input"], "." }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.529747641527081*^9, 3.529747676512827*^9}, 3.529747857076947*^9, 3.529773051367374*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Hyperbolische Funktionen", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529747515261776*^9, 3.529747519657186*^9}, 3.529773051367486*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Cosh", "[", "0.3", "]"}], "^", "2"}]], "Input", CellChangeTimes->{{3.529747797684478*^9, 3.5297478375151873`*^9}, { 3.529747904236618*^9, 3.529747926160369*^9}, 3.529773051367652*^9}], Cell[BoxData["1.0927326091211338`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.529747926911215*^9, 3.5297730513677797`*^9, 3.5303363239602413`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sinh", "[", "0.3", "]"}], "^", "2"}]], "Input", CellChangeTimes->{3.529773051367936*^9}], Cell[BoxData["0.09273260912113383`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529747802569171*^9, 3.529747837845663*^9}, { 3.529747905225869*^9, 3.529747927602911*^9}, 3.52977305136806*^9, 3.5303363253279247`*^9}] }, Open ]], Cell[TextData[{ "Analog: ", StyleBox["Tanh", "Input"], ", ", StyleBox["ArcSinh", "Input"], ", ", StyleBox["ArcCosh", "Input"], ", ", StyleBox["ArcTanh", "Input"], "." }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.5297478500989017`*^9, 3.529747885933707*^9}, 3.529773051368182*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Zufallszahlen", "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529748156320656*^9, 3.5297481610427113`*^9}, 3.5297730513682947`*^9}], Cell[BoxData[ RowBox[{"SeedRandom", "[", "]"}]], "Input", CellChangeTimes->{{3.529748486216157*^9, 3.529748489064375*^9}, { 3.52974853161579*^9, 3.5297485346246443`*^9}, 3.529773051368454*^9}], Cell[CellGroupData[{ 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}], Cell[BoxData["0.38316691828253213`"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529748461630123*^9, 3.529748492347094*^9}, { 3.529748537910945*^9, 3.529748559059243*^9}, 3.529773051368722*^9, 3.5303363492614317`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomInteger", "[", "100", "]"}]], "Input", CellChangeTimes->{{3.529748475314032*^9, 3.529748479137904*^9}, 3.529748548214285*^9, 3.529773051368876*^9}], Cell[BoxData["23"], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.529748476059854*^9, 3.529748493014657*^9}, { 3.529748538677681*^9, 3.52974855498525*^9}, 3.529773051369*^9, 3.530336352745829*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Aufgaben", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.5297482438277683`*^9, 3.529748244818735*^9}, 3.529773051369138*^9}], Cell[CellGroupData[{ Cell["Berechnen Sie den Logarithmus von 8 in der Basis 2!", "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529748838810506*^9, 3.5297488696625757`*^9}, { 3.529749004921398*^9, 3.529749017171417*^9}, 3.529773051369236*^9}], Cell[TextData[{ "Was ist der Unterschied zwischen ", StyleBox["Round", "Input"], " und ", StyleBox["Floor", "Input"], ", bzw. ", StyleBox["Ceiling", "Input"], "?" }], "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.5297488389333353`*^9, 3.5297488389376*^9}, { 3.529748924969342*^9, 3.5297489432915287`*^9}, 3.52977305136932*^9}], Cell[TextData[{ "Was passiert, wenn Sie obige Befehle auf komplexe Zahlen anwenden (Siehe \ auch ", StyleBox["Re", "Input"], " und ", StyleBox["Im", "Input"], ")?" }], "Item", PageWidth->PaperWidth, CellChangeTimes->{{3.529749030352195*^9, 3.52974907611755*^9}, 3.529773051369397*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["L\[ODoubleDot]sungen", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529774009481127*^9, 3.529774012416782*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log", "[", RowBox[{"2", ",", "8"}], "]"}]], "Input", CellChangeTimes->{{3.5297740504007483`*^9, 3.529774053643053*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.5297740540288486`*^9, 3.530336446852662*^9}] }, Open ]], Cell[TextData[{ "Beachte die Reihenfolge der Argumente (", Cell[BoxData[ FormBox[ ButtonBox["Log", BaseStyle->"Link", ButtonData->"paclet:ref/Log"], TextForm]]], ")!" }], "Text", PageWidth->PaperWidth, CellChangeTimes->{ 3.5297745252329407`*^9, {3.530336631098052*^9, 3.530336649285226*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Round", "[", "0.56", "]"}]], "Input", CellChangeTimes->{{3.5297740594849*^9, 3.529774065286323*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.529774065569175*^9, 3.530336448824046*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Floor", "[", "0.56", "]"}]], "Input", CellChangeTimes->{{3.5297740697243643`*^9, 3.52977407467346*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.52977407512906*^9, 3.530336449465901*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ceiling", "[", "0.56", "]"}]], "Input", CellChangeTimes->{{3.529774078067532*^9, 3.529774084503469*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.529774084922832*^9, 3.530336450134788*^9}] }, Open ]], Cell[TextData[{ StyleBox["Round", "Input"], " (", Cell[BoxData[ FormBox[ ButtonBox["Round", BaseStyle->"Link", ButtonData->"paclet:ref/Round"], TextForm]]], ") bewirkt \[OpenCurlyDoubleQuote]echtes\[CloseCurlyDoubleQuote] Runden, ", StyleBox["Floor", "Input"], " (", Cell[BoxData[ FormBox[ ButtonBox["Floor", BaseStyle->"Link", ButtonData->"paclet:ref/Floor"], TextForm]]], ") das Abschneiden von Kommastellen und ", StyleBox["Ceiling", "Input"], " (", Cell[BoxData[ FormBox[ ButtonBox["Ceiling", BaseStyle->"Link", ButtonData->"paclet:ref/Ceiling"], TextForm]]], ") gibt die n\[ADoubleDot]chst gr\[ODoubleDot]\[SZ]ere ganze Zahl (", StyleBox["Floor[x]+1", "Input"], ") zur\[UDoubleDot]ck." }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.529774411611403*^9, 3.529774487379196*^9}, { 3.530336462452327*^9, 3.530336462676094*^9}, {3.530336657648884*^9, 3.530336688567184*^9}}], 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 Werten, solche f\ \[UDoubleDot]r die das nicht gilt (", StyleBox["Min", "Input"], ", ", StyleBox["Max", "Input"], ", ", StyleBox["...", "Input"], ") aber nicht." }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.529774203854248*^9, 3.529774329588429*^9}, { 3.529774365864402*^9, 3.529774377937664*^9}}] }, Open ]] }, 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}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " arbeitet 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"E", "^", RowBox[{"(", RowBox[{"I", "*", RowBox[{"(", RowBox[{"Pi", "/", "3"}], ")"}]}], ")"}]}], "]"}]], "Input", CellChangeTimes->{{3.529751030705175*^9, 3.529751052973456*^9}, 3.529773051369937*^9}], Cell[BoxData[ RowBox[{"0.5000000000000001`", "\[VeryThinSpace]", "+", RowBox[{"0.8660254037844386`", " ", "\[ImaginaryI]"}]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.529751053307983*^9, {3.529751713085267*^9, 3.5297517440760107`*^9}, { 3.529751793077022*^9, 3.5297517947476807`*^9}, 3.52975205866492*^9, 3.52977305137011*^9, 3.530336806405115*^9}] }, Open ]], 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}], 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[]", "Input"], ", bzw. ", StyleBox["%", "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}], Cell[CellGroupData[{ Cell[BoxData["%"], "Input", CellChangeTimes->{3.529751666505785*^9, 3.529773051370544*^9}], Cell[BoxData[ RowBox[{"0.5000000000000001`", "\[VeryThinSpace]", "+", RowBox[{"0.8660254037844386`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{{3.5303369716446*^9, 3.530336998256419*^9}}] }, Open ]], Cell[TextData[{ "Mit ", StyleBox["Print", "Input"], " l\[ADoubleDot]sst sich beliebig zusammengesetzer 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "%%"}], "]"}]], "Input", CellChangeTimes->{{3.529752046105338*^9, 3.529752073224515*^9}, { 3.529752137714521*^9, 3.529752153804515*^9}, 3.529773051371003*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"Ergebnis des vorletzten Ausdrucks: \"\>", "\[InvisibleSpace]", "0.5000000000000001`"}], "\[VeryThinSpace]", "+", RowBox[{"0.8660254037844386`", " ", "\[ImaginaryI]"}]}], SequenceForm["Ergebnis des vorletzten Ausdrucks: ", Complex[0.5000000000000001, 0.8660254037844386]], Editable->False]], "Print", CellChangeTimes->{{3.530336991489143*^9, 3.5303370000492973`*^9}}] }, Open ]], Cell[CellGroupData[{ 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}], Cell[TextData[{ StyleBox["Set", "Input"], ", bzw. \[OpenCurlyDoubleQuote]", StyleBox["=", "Input"], "\[CloseCurlyDoubleQuote] (Shortcut)" }], "Item", CellChangeTimes->{{3.529752450881103*^9, 3.529752510369131*^9}, 3.5297730513714237`*^9}], Cell[TextData[{ "und ", StyleBox["SetDelayed", "Input"], ", bzw. \[OpenCurlyDoubleQuote]", StyleBox[":=", "Input"], "\[CloseCurlyDoubleQuote]." }], "Item", CellChangeTimes->{{3.529752525117017*^9, 3.529752565162279*^9}, 3.529773051371573*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"N", "[", RowBox[{"Exp", "[", "44", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5297526251059847`*^9, 3.5297526327432423`*^9}, 3.5297730513717527`*^9}], Cell[BoxData["1.2851600114359308`*^19"], "Output", CellChangeTimes->{{3.530337062189139*^9, 3.530337063868556*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"b", ":=", RowBox[{"N", "[", RowBox[{"Log", "[", "44", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.529752641349326*^9, 3.529752653811602*^9}, 3.52977305137212*^9}], 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}}], 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}], Cell[CellGroupData[{ 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}], Cell[BoxData["0.278333419659746`"], "Output", CellChangeTimes->{{3.530337197421713*^9, 3.530337199153*^9}}], Cell[BoxData["0.278333419659746`"], "Output", CellChangeTimes->{{3.530337197421713*^9, 3.530337199158864*^9}}], Cell[BoxData["0.278333419659746`"], "Output", CellChangeTimes->{{3.530337197421713*^9, 3.530337199163272*^9}}], Cell[BoxData["0.18580333675286043`"], "Output", CellChangeTimes->{{3.530337197421713*^9, 3.530337199167635*^9}}], Cell[BoxData["0.4435349656234808`"], "Output", CellChangeTimes->{{3.530337197421713*^9, 3.5303371991720543`*^9}}], Cell[BoxData["0.1265123264935557`"], "Output", CellChangeTimes->{{3.530337197421713*^9, 3.530337199176414*^9}}] }, Open ]], Cell[TextData[{ "Bei der Auswahl von Symbolnamen kann die farbliche Syntax-Vorhebung 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 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}}], Cell[BoxData[{ RowBox[{"a", ";", "b", ";"}], "\[IndentingNewLine]", RowBox[{"c", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"seedRandom", "[", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.529758557868072*^9, 3.52975862104111*^9}, 3.529773051373962*^9}], 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}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.53034407273593*^9, 3.5303440769222097`*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Aufgabe", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.5297747600942793`*^9, 3.52977476232712*^9}}], 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}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["L\[ODoubleDot]sung", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.5297749274270687`*^9, 3.529774937606641*^9}}], Cell[CellGroupData[{ 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}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.530337361809376*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Set", "::", "wrsym"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(D\\)\[NoBreak] is Protected. \\!\\(\ \\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::wrsym\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5297749748094673`*^9, {3.5303373585899487`*^9, 3.530337361828886*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.530337361839182*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.530337361849704*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Set", "::", "wrsym"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[ExponentialE]\\)\[NoBreak] is \ Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\ \\\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \\\ \"Set::wrsym\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5297749748094673`*^9, {3.5303373585899487`*^9, 3.530337361860856*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.5303373618710318`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Set", "::", "write"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Tag \[NoBreak]\\!\\(Times\\)\[NoBreak] in \ \[NoBreak]\\!\\(0\\\\ D\\)\[NoBreak] is Protected. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5297749748094673`*^9, {3.5303373585899487`*^9, 3.5303373618820333`*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.530337361892112*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.530337361902512*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Set", "::", "wrsym"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(Im\\)\[NoBreak] is Protected. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::wrsym\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5297749748094673`*^9, {3.5303373585899487`*^9, 3.530337361913541*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.5303373619186*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Set", "::", "nosym"}], "MessageName"], RowBox[{ ":", " "}], "\<\"\[NoBreak]\\!\\(d_\\)\[NoBreak] does not contain a symbol \ to attach a rule to. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \ \\\"Set::nosym\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5297749748094673`*^9, {3.5303373585899487`*^9, 3.530337361924572*^9}}], Cell[BoxData["123"], "Output", CellChangeTimes->{ 3.529774974806003*^9, {3.53033735857423*^9, 3.53033736192934*^9}}] }, Open ]], 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}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"d", ",", "e", ",", "d0d"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.530344099428894*^9, 3.5303441107468863`*^9}}] }, Open ]] }, 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}], 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 \ anschaunen 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, CellChangeTimes->{{3.529759291695671*^9, 3.5297593918027143`*^9}, { 3.529759464492708*^9, 3.5297594815714073`*^9}, {3.529759538418026*^9, 3.529759863222599*^9}, 3.529773051374401*^9}], 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[]", "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}], Cell[CellGroupData[{ 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}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "21"}], SequenceForm[11, " ", 10, " ", 21], Editable->False]], "Print", CellChangeTimes->{{3.530337558023662*^9, 3.530337559650318*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "b", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"11", "+", "b"}]}], SequenceForm[11, " ", $CellContext`b, " ", 11 + $CellContext`b], Editable->False]], "Print", CellChangeTimes->{{3.530337558023662*^9, 3.530337559668376*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "a", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "b", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"a", "+", "b"}]}], SequenceForm[$CellContext`a, " ", $CellContext`b, " ", $CellContext`a + $CellContext`b], Editable->False]], "Print", CellChangeTimes->{{3.530337558023662*^9, 3.530337559674775*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "a", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "b", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "c"}], SequenceForm[$CellContext`a, " ", $CellContext`b, " ", $CellContext`c], Editable->False]], "Print", CellChangeTimes->{{3.530337558023662*^9, 3.5303375596813993`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ 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}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "21"}], SequenceForm[11, " ", 10, " ", 21], Editable->False]], "Print", CellChangeTimes->{{3.530337560443071*^9, 3.530337563011375*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "c"}], SequenceForm[11, " ", 10, " ", $CellContext`c], Editable->False]], "Print", CellChangeTimes->{{3.530337560443071*^9, 3.530337563017879*^9}}] }, Open ]] }, Open ]], 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}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.53034413926096*^9, 3.530344145319668*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["1.5 Listen", "Subsubtitle", PageWidth->PaperWidth, CellChangeTimes->{{3.529770574437111*^9, 3.529770579221714*^9}, 3.529773051376411*^9}], Cell[TextData[{ "Ausdr\[UDoubleDot]cke haben in ", StyleBox["Mathematica", FontSlant->"Italic"], " keinen festen Datentyp wie in anderen Programmiersprachen, sondern sind \ Typ-frei. Variablen k\[ODoubleDot]nnen also ohne Einschr\[ADoubleDot]nkung \ Zahlen- oder Stringwerte, Definitionen oder Ausdr\[UDoubleDot]cke zugewiesen \ werden. Das wichtigste fehlende Konstrukt sind Listen, die in \ \[OpenCurlyDoubleQuote]", StyleBox["{", "Input"], "\[OpenCurlyDoubleQuote] und \[OpenCurlyDoubleQuote]", StyleBox["}", "Input"], "\[CloseCurlyDoubleQuote] eingefasst und deren Elemente durch Kommas \ \[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}], Cell[CellGroupData[{ 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", ",", "\"\\""}], "}"}]}], "\[IndentingNewLine]", RowBox[{"liste4", "=", RowBox[{"{", RowBox[{"d", ",", "liste3"}], "}"}]}]}], "Input", CellChangeTimes->{{3.529830760262662*^9, 3.529830859937476*^9}, { 3.5304267333579597`*^9, 3.5304267481658773`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.529830860504201*^9, 3.530251932578223*^9, {3.530337731296938*^9, 3.530337733444107*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "10", ",", "c"}], "}"}]], "Output", CellChangeTimes->{ 3.529830860504201*^9, 3.530251932578223*^9, {3.530337731296938*^9, 3.530337733450087*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "11", ",", "\<\"strg\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.529830860504201*^9, 3.530251932578223*^9, {3.530337731296938*^9, 3.530337733454672*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"123", ",", RowBox[{"{", RowBox[{"1", ",", "11", ",", "\<\"strg\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.529830860504201*^9, 3.530251932578223*^9, {3.530337731296938*^9, 3.530337733459206*^9}}] }, Open ]], 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]]], "." }], "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}}], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.529831724733609*^9, 3.5298317724187717`*^9}, 3.53033774282854*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.529831724733609*^9, 3.5298317724187717`*^9}, 3.53033774283462*^9}] }, Open ]], 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}}], Cell[CellGroupData[{ 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}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.5298321663013573`*^9, 3.529832252819662*^9, 3.52983319444775*^9, 3.5303377448568983`*^9}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.529832167007077*^9, 3.529833195173501*^9, 3.530337746057729*^9}] }, Open ]], Cell[CellGroupData[{ 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}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.5298322245857363`*^9, {3.529832263086525*^9, 3.5298322672645683`*^9}, 3.5298331961725187`*^9, 3.530337746947976*^9}] }, Open ]], Cell[CellGroupData[{ 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}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.529832168169325*^9, 3.529832330829919*^9, 3.529833197304447*^9, 3.530337748126205*^9}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.529832305028619*^9, 3.5298323315891733`*^9}, 3.529833197920034*^9, {3.529833563506077*^9, 3.529833577382223*^9}, 3.530337749294628*^9}], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.529832305028619*^9, 3.5298323315891733`*^9}, 3.529833197920034*^9, {3.529833563506077*^9, 3.529833577382223*^9}, 3.530337749299883*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{{3.529832305028619*^9, 3.5298323315891733`*^9}, 3.529833197920034*^9, {3.529833563506077*^9, 3.529833577382223*^9}, 3.530337749303873*^9}] }, Open ]], Cell[CellGroupData[{ 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}], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.529832529019665*^9, 3.529832542939633*^9}, 3.529833198677719*^9, 3.5298335780254993`*^9, 3.5303377519949837`*^9, 3.5303377979819593`*^9}], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.529832529019665*^9, 3.529832542939633*^9}, 3.529833198677719*^9, 3.5298335780254993`*^9, 3.5303377519949837`*^9, 3.530337797987586*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{{3.529832529019665*^9, 3.529832542939633*^9}, 3.529833198677719*^9, 3.5298335780254993`*^9, 3.5303377519949837`*^9, 3.530337797991968*^9}] }, Open ]], 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["[[0]]", "Input"], " (zu dessen Bedeutung sp\[ADoubleDot]ter), sondern gem\[ADoubleDot]\[SZ] \ Intuition in ", StyleBox["[[1]]", "Input"], "!" }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.529832549109166*^9, 3.529832835302505*^9}, { 3.529833134002098*^9, 3.5298331693556957`*^9}}], Cell["\<\ Um nur einige der weiteren Listenoperationen zu demonstrieren:\ \>", "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.5298328880288763`*^9, 3.529832937441543*^9}, { 3.52983348671215*^9, 3.5298334883654127`*^9}}], Cell[CellGroupData[{ 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}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "19", ",", "21", ",", "13", ",", "46", ",", "33", ",", "14", ",", "48", ",", "39", ",", "89", ",", "39", ",", "84", ",", "83", ",", "55", ",", "8", ",", "1", ",", "94", ",", "77", ",", "0", ",", "29"}], "}"}]], "Output", CellChangeTimes->{{3.529833233835994*^9, 3.529833270843252*^9}, 3.530251891512335*^9, {3.530337871636571*^9, 3.530337896105324*^9}}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20", ",", "30", ",", "37", ",", "39", ",", "45", ",", "47", ",", "49", ",", "49", ",", "52", ",", "58", ",", "61", ",", "62", ",", "69", ",", "73", ",", "76", ",", "77", ",", "80", ",", "85", ",", "92", ",", "93"}], "}"}]], "Output", CellChangeTimes->{{3.529833276421735*^9, 3.529833292079961*^9}, 3.53033787276754*^9}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "93", ",", "92", ",", "85", ",", "80", ",", "77", ",", "76", ",", "73", ",", "69", ",", "62", ",", "61", ",", "58", ",", "52", ",", "49", ",", "49", ",", "47", ",", "45", ",", "39", ",", "37", ",", "30", ",", "20"}], "}"}]], "Output", CellChangeTimes->{3.529833309092463*^9, 3.530337874004312*^9}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"123", ",", RowBox[{"{", RowBox[{"1", ",", "11", ",", "\<\"strg\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.529833327703672*^9, 3.530337874955347*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"123", ",", "1", ",", "11", ",", "\<\"strg\"\>"}], "}"}]], "Output",\ CellChangeTimes->{3.529833327703672*^9, 3.5303378749611187`*^9}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"20"}, {"30"}, {"37"}, {"39"}, {"45"}, {"47"}, {"49"}, {"49"}, {"52"}, {"58"}, {"61"}, {"62"}, {"69"}, {"73"}, {"76"}, {"77"}, {"80"}, {"85"}, {"92"}, {"93"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.530251902843354*^9, 3.530251973057123*^9}, 3.530337879341572*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "liste1", ",", "liste2", ",", "liste3", ",", "liste4", ",", "liste5", ",", "liste6"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.530344177643702*^9, 3.530344191158703*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Aufgabe", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529833622938807*^9, 3.52983362405859*^9}}], 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}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["L\[ODoubleDot]sung", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.5298336268014936`*^9, 3.529833631189019*^9}}], Cell[TextData[{ "(Hier helfen ", Cell[BoxData[ ButtonBox["Select", BaseStyle->"Link", ButtonData->"paclet:ref/Select"]]], " und ", Cell[BoxData[ ButtonBox["EvenQ", BaseStyle->"Link", ButtonData->"paclet:ref/EvenQ"]]], ")" }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.530337967064577*^9, 3.530338013662266*^9}}], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "96", ",", "38", ",", "4", ",", "74", ",", "18", ",", "34", ",", "82", ",", "98", ",", "84", ",", "40", ",", "82", ",", "14", ",", "36", ",", "78", ",", "56", ",", "50", ",", "90", ",", "64", ",", "32", ",", "34", ",", "54", ",", "50", ",", "84", ",", "48", ",", "28", ",", "82", ",", "88", ",", "44", ",", "60", ",", "88", ",", "46", ",", "46", ",", "84", ",", "8", ",", "22", ",", "70", ",", "98", ",", "0", ",", "24", ",", "4", ",", "38", ",", "40", ",", "76", ",", "80", ",", "6", ",", "30", ",", "8", ",", "44", ",", "32"}], "}"}]], "Output", CellChangeTimes->{{3.52983402245654*^9, 3.529834043132078*^9}, { 3.529834292113098*^9, 3.529834304135796*^9}, {3.52983433737731*^9, 3.529834376365296*^9}, 3.530337942951064*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "randNrs", ",", "evenNrs"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5303441957902603`*^9, 3.530344210331119*^9}}] }, Open ]] }, 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}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " bietet analog zum \[OpenCurlyDoubleQuote]Rechnen mit Papier und Bleisift\ \[CloseCurlyDoubleQuote] die M\[ODoubleDot]glichkeit, Symbole oder sogar \ ganze Unterausdr\[UDoubleDot]cke (sp\[ADoubleDot]ter) 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. Folgende Syntax \ gilt es einzuhalten:" }], "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}}], Cell[TextData[{ StyleBox[" = -> ", "Input"], "\nwobei\n", StyleBox[" /. ", "Input"], "\noder auch direkt:\n", StyleBox[" /. -> ", "Input"] }], "Text", CellChangeTimes->{{3.529835782688017*^9, 3.52983581946529*^9}, { 3.529836278662591*^9, 3.529836394477687*^9}}], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "2"]}]], "Output", CellChangeTimes->{3.529836254176731*^9, 3.530338129407921*^9, 3.530338296513526*^9}] }, Open ]], Cell[TextData[{ "Mehrere Ersetzungen k\[ODoubleDot]nnen auch gleichzeitig angewandt werden, \ indem man sie in einer Liste zusammenfasst. Durch 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 Subsitution neu ausgwertet." }], "Text", PageWidth->PaperWidth, CellChangeTimes->{{3.5298358579056*^9, 3.529836183049614*^9}, { 3.5303384206630163`*^9, 3.530338421049027*^9}}], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["r", "2"], " ", SuperscriptBox[ RowBox[{"Cos", "[", "phi", "]"}], "2"]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "phi", "]"}], "2"]}]}]], "Output", CellChangeTimes->{{3.529836473090808*^9, 3.529836482794091*^9}, 3.5303381329188547`*^9, 3.530338303605546*^9}] }, Open ]], Cell[CellGroupData[{ 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}}], Cell[BoxData["y"], "Output", CellChangeTimes->{ 3.52983655037339*^9, {3.529836585432851*^9, 3.5298366251064577`*^9}, { 3.53033813368248*^9, 3.530338142243094*^9}, 3.5303383119416723`*^9}], Cell[BoxData["z"], "Output", CellChangeTimes->{ 3.52983655037339*^9, {3.529836585432851*^9, 3.5298366251064577`*^9}, { 3.53033813368248*^9, 3.530338142243094*^9}, 3.5303383119569817`*^9}], Cell[BoxData["z"], "Output", CellChangeTimes->{ 3.52983655037339*^9, {3.529836585432851*^9, 3.5298366251064577`*^9}, { 3.53033813368248*^9, 3.530338142243094*^9}, 3.530338311966086*^9}] }, Open ]], 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}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Aufgabe", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529836769624946*^9, 3.529836770461752*^9}, 3.529837834962648*^9, 3.529839793910857*^9}], 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}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["L\[ODoubleDot]sung", FontSlant->"Italic"]], "Subsubsection", PageWidth->PaperWidth, CellChangeTimes->{{3.529836772224371*^9, 3.529836774852188*^9}}], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "7"], "+", RowBox[{"14", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "6"], " ", RowBox[{"Sin", "[", "x", "]"}]}], "+", RowBox[{"84", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "5"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], "+", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "3"]}], "+", RowBox[{"560", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "4"]}], "+", RowBox[{"672", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "5"]}], "+", RowBox[{"448", " ", RowBox[{"Cos", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "6"]}], "+", RowBox[{"128", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "7"]}]}]], "Output", CellChangeTimes->{{3.529839595469976*^9, 3.5298397076555777`*^9}, 3.5298398095218487`*^9, 3.530338279289781*^9, 3.530426861314899*^9}], Cell[BoxData[ RowBox[{ RowBox[{"128", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "7"]}], "+", RowBox[{"448", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "6"], " ", SqrtBox[ RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}]]}], "+", RowBox[{"672", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "5"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], ")"}]}], "+", RowBox[{"560", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], ")"}], "2"]}], "+", RowBox[{"84", " ", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], ")"}], RowBox[{"5", "/", "2"}]]}], "+", RowBox[{"14", " ", RowBox[{"Sin", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], ")"}], "3"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]}], ")"}], RowBox[{"7", "/", "2"}]]}]], "Output", CellChangeTimes->{{3.529839595469976*^9, 3.5298397076555777`*^9}, 3.5298398095218487`*^9, 3.530338279289781*^9, 3.5304268613714113`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "p", ",", "poly"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.530344283042199*^9, 3.530344291371413*^9}}] }, Open ]] }, 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}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.530338467707818*^9, 3.530338472040966*^9}}], Cell[CellGroupData[{ 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}], 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "\[Equal]", "0"}]], "Input", CellChangeTimes->{{3.52977085471239*^9, 3.529770855536456*^9}, 3.529773051377304*^9}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.530339305152709*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "\[Equal]", "1"}]], "Input", CellChangeTimes->{{3.52977123387621*^9, 3.52977123420462*^9}, 3.529773051381428*^9}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.530339305936398*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "124"}], "+", RowBox[{"345234", "/", "354"}]}], "\[GreaterEqual]", RowBox[{"3", "^", "7"}]}]], "Input", CellChangeTimes->{{3.529773336579412*^9, 3.529773391753715*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.530339306969564*^9, 3.530339317074177*^9}}] }, Open ]], Cell["Ist das nicht der Fall ...", "Text", CellChangeTimes->{{3.529771314548194*^9, 3.529771329526422*^9}, 3.529773051386767*^9}], Cell[CellGroupData[{ 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}], Cell[BoxData[ RowBox[{"y", "\[Equal]", RowBox[{"c", "+", RowBox[{"b", " ", "x"}], "+", RowBox[{"a", " ", SuperscriptBox["x", "2"]}]}]}]], "Output", CellChangeTimes->{{3.530339386343327*^9, 3.530339426258966*^9}}] }, Open ]], Cell[TextData[{ "... hilft der Befehl ", StyleBox["Solve[,]", "Input"], ". ", StyleBox["", "Input"], " und ", StyleBox["", "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}}], Cell[CellGroupData[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "b"}], "+", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}], "+", RowBox[{"4", " ", "a", " ", "y"}]}]]}], RowBox[{"2", " ", "a"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"b", "+", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}], "+", RowBox[{"4", " ", "a", " ", "y"}]}]]}], RowBox[{"2", " ", "a"}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.530339441597826*^9, 3.53033944422985*^9}}] }, Open ]], 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lsg1", "=", RowBox[{"x", "/.", RowBox[{"lsg", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.529771562134741*^9, 3.529771594923847*^9}, 3.5297730513965*^9}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "b"}], "+", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}], "+", RowBox[{"4", " ", "a", " ", "y"}]}]]}], RowBox[{"2", " ", "a"}]]], "Output", CellChangeTimes->{{3.530339461796989*^9, 3.530339467722932*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lsg2", "=", RowBox[{"x", "/.", RowBox[{"lsg", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5297715968459997`*^9, 3.529771604098432*^9}, 3.52977305139935*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"b", "+", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}], "+", RowBox[{"4", " ", "a", " ", "y"}]}]]}], RowBox[{"2", " ", "a"}]]}]], "Output", CellChangeTimes->{{3.5303394626353493`*^9, 3.5303394685000067`*^9}}] }, Open ]], 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}}], 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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{"gln", ",", "x"}], "]"}]], "Input", PageWidth->PaperWidth, CellChangeTimes->{{3.52977214311467*^9, 3.529772147461681*^9}, 3.529773051404071*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Solve", "::", "nsmet"}], "MessageName"], RowBox[{ ":", " "}], "\<\"This system cannot be solved with the methods available to \ Solve. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/Solve\\\", ButtonNote -> \ \\\"Solve::nsmet\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{{3.530339527237355*^9, 3.530339529668024*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", "x"}], ",", "x"}], "]"}]], "Output", CellChangeTimes->{{3.530339527241667*^9, 3.5303395296742907`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NSolve", "[", RowBox[{"gln", ",", "x", ",", "Reals"}], "]"}]], "Input", PageWidth->PaperWidth, CellChangeTimes->{{3.5297721714623623`*^9, 3.529772254296051*^9}, 3.5297730514099207`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", "0.7390851332151607`"}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.530339530388727*^9, 3.530339531620562*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "0", " ", "ist", " ", "die", " ", "Vorgabe", " ", "f\[UDoubleDot]r", " ", "einen", " ", "Startwert", " ", "bei", " ", "der", " ", "Suche", " ", "anch", " ", "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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.7390851332151606`"}], "}"}]], "Output", CellChangeTimes->{{3.5303395356701193`*^9, 3.530339544720304*^9}}] }, Open ]], 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 Ersetzungregel \ \[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}}], Cell[TextData[StyleBox["[,(,<\ optionales_Argument>(,