(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 137900, 4193] NotebookOptionsPosition[ 120704, 3709] NotebookOutlinePosition[ 121251, 3730] CellTagsIndexPosition[ 121208, 3727] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "1.2. Einf\[UDoubleDot]hrung in ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Subtitle", CellChangeTimes->{{3.4427553106330705`*^9, 3.4427553154600115`*^9}, { 3.443360365899803*^9, 3.4433603703662252`*^9}, {3.4948594596828*^9, 3.494859460450301*^9}, {3.4948595060092*^9, 3.494859520549466*^9}, { 3.495690242937725*^9, 3.495690244385116*^9}, {3.497841018967169*^9, 3.497841021735731*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Bemerkung", ":", " ", RowBox[{ "Um", " ", "einen", " ", "zusammengeklappten", " ", "Block", " ", "aufzuklappen"}]}], ",", " ", RowBox[{ RowBox[{ "gen\[UDoubleDot]gt", " ", "ein", " ", "Doppelklick", " ", "auf", " ", "den", " ", "Pfeil", " ", "am", " ", "rechten", " ", RowBox[{"Rand", ".", " ", "Alternativ"}], " ", "kann", " ", "der", " ", "Block", " ", "markiert", " ", "und", " ", "mit", " ", "Hilfe", " ", "des", " ", "Pull"}], "-", "Down", "-", RowBox[{ "Menus", " ", "\"\<-> Cell -> Grouping -> Open/Close Group\>\"", " ", "ge\[ODoubleDot]ffnet", " ", RowBox[{"bzw", ".", " ", "geschlossen"}], " ", RowBox[{"werden", "."}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.4957754077337093`*^9, 3.495775424427025*^9}, { 3.495775461762662*^9, 3.495775464186857*^9}, {3.495775553795052*^9, 3.495775598244452*^9}, {3.4957764795275993`*^9, 3.495776551447318*^9}, { 3.4957772141776533`*^9, 3.4957772679881372`*^9}, {3.49783996421177*^9, 3.4978400418811417`*^9}, {3.497840079540741*^9, 3.497840168597151*^9}, { 3.5278342170154467`*^9, 3.527834217955366*^9}, {3.529310137035206*^9, 3.529310173664332*^9}, {3.52931473512945*^9, 3.529314797571755*^9}, { 3.5293148963619204`*^9, 3.529314901544825*^9}, {3.529315792691331*^9, 3.529315803749288*^9}, {3.5616276420687838`*^9, 3.561627643656291*^9}, { 3.5618964079838*^9, 3.561896408496522*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.529310177081339*^9, 3.529310246551641*^9}, { 3.529311183576775*^9, 3.5293111848944483`*^9}, {3.529311272257683*^9, 3.52931128165879*^9}, {3.529314790939644*^9, 3.529314866280509*^9}, { 3.529314905383378*^9, 3.529314915144211*^9}, 3.529315807910671*^9, { 3.529418154560507*^9, 3.5294181636707783`*^9}, {3.5294182286006527`*^9, 3.529418233577409*^9}, {3.529986554697495*^9, 3.52998655809682*^9}, 3.561611052007245*^9}], Cell[CellGroupData[{ Cell["Hilfefunktion", "Section", CellChangeTimes->{{3.494861309560084*^9, 3.494861333292017*^9}}], Cell["\<\ Ausf\[UDoubleDot]hren eines Befehls: Setze Cursor in die Zeile des Befehls, \ dann + \ \>", "Item", CellChangeTimes->{{3.495686202866543*^9, 3.49568622171846*^9}, { 3.495774943549007*^9, 3.495774943553607*^9}, {3.4957762514401827`*^9, 3.49577628658959*^9}, {3.495849795344713*^9, 3.495849804602635*^9}, { 3.495849842634317*^9, 3.495849868435845*^9}, {3.5293110896950006`*^9, 3.529311096542843*^9}}], Cell[BoxData[ RowBox[{"3", "+", "2"}]], "Input", CellChangeTimes->{{3.4957749613895073`*^9, 3.4957749622031097`*^9}, { 3.561611073418311*^9, 3.5616110741097317`*^9}}], Cell["?", "Item", CellChangeTimes->{ 3.494861341620815*^9, {3.494861381073544*^9, 3.494861392389228*^9}, { 3.494861438876319*^9, 3.494861471277941*^9}}], Cell[BoxData[ RowBox[{"?", "Plot"}]], "Input", CellChangeTimes->{{3.495775530672084*^9, 3.495775531440624*^9}, { 3.495776307784709*^9, 3.495776321172948*^9}}], Cell[BoxData[ RowBox[{"?", "Plot*"}]], "Input", CellChangeTimes->{{3.495775530672084*^9, 3.495775531440624*^9}, { 3.495776307784709*^9, 3.495776321172948*^9}}], Cell[CellGroupData[{ Cell["-> Help -> Documentation Center", "Item", CellChangeTimes->{ 3.494861341620815*^9, {3.494861381073544*^9, 3.494861392389228*^9}, { 3.494861438876319*^9, 3.494861510629761*^9}, {3.527839811997403*^9, 3.527839825044043*^9}, {3.529314889920477*^9, 3.5293148923880663`*^9}, { 3.529314948403585*^9, 3.5293149505047607`*^9}}], Cell["Text markieren -> F1 dr\[UDoubleDot]cken", "Item", CellChangeTimes->{{3.527839881217993*^9, 3.527839887488078*^9}, 3.52941845365257*^9}], Cell["\<\ ??Plot -> zus\[ADoubleDot]tliche Attribute und Optionen/Schreibweisen\ \>", "Item", CellChangeTimes->{{3.527841920071093*^9, 3.527841948391487*^9}, 3.529302817091152*^9, {3.529311258794613*^9, 3.529311263813888*^9}, 3.529418244366218*^9}] }, Closed]], Cell[BoxData[ RowBox[{"??", "Plot"}]], "Input", CellChangeTimes->{{3.527841942737011*^9, 3.527841943865926*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Symbole und Zahlen", "Section", CellChangeTimes->{{3.442755327897896*^9, 3.442755331643282*^9}, { 3.494859645834411*^9, 3.494859651617849*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "L\[ODoubleDot]sche", " ", "zur", " ", "Sicherheit", " ", "die", " ", "Definition", " ", "aller", " ", "ben\[ODoubleDot]tigten", " ", "Symbole"}], ";", " ", RowBox[{"undefinierte", " ", "Symbole", " ", "sind", " ", "blau"}]}], ",", " ", RowBox[{"definierte", " ", RowBox[{"schwarz", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"u", ",", "x", ",", "z", ",", "a"}], "]"}]}]], "Input", CellChangeTimes->{{3.495775966841908*^9, 3.4957759890898037`*^9}, { 3.495776052669132*^9, 3.495776060563321*^9}, {3.495776208184505*^9, 3.495776209154911*^9}, {3.4957777902976513`*^9, 3.495777853425688*^9}, { 3.495780478067868*^9, 3.495780491206708*^9}, {3.49587873175705*^9, 3.4958787659771233`*^9}, {3.497840230250266*^9, 3.497840230743335*^9}, { 3.497840328969133*^9, 3.497840392204472*^9}, {3.497840739669672*^9, 3.497840745580019*^9}, {3.529315085716888*^9, 3.529315086465757*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Definiere", " ", "Symbol", " ", RowBox[{"\"\\"", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"u", " ", "=", " ", RowBox[{"x", "^", "2"}]}]}]], "Input", CellChangeTimes->{{3.49485958973086*^9, 3.494859595013737*^9}, { 3.495775747588668*^9, 3.495775758221806*^9}, {3.497840428147444*^9, 3.4978404610980873`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "\"\\"", " ", "ist", " ", "nun", " ", "global", " ", "definiert"}], " ", "..."}], " ", "*)"}], "\[IndentingNewLine]", "u"}]], "Input", CellChangeTimes->{{3.495775740299816*^9, 3.4957757788548927`*^9}, { 3.495775850806306*^9, 3.495775851060796*^9}, {3.497840446505041*^9, 3.497840457256722*^9}, {3.497840537037284*^9, 3.497840538079763*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"...", " ", "x", " ", RowBox[{"nicht", "."}]}], " ", "*)"}], "\[IndentingNewLine]", "x"}]], "Input", CellChangeTimes->{{3.495775740299816*^9, 3.4957757788548927`*^9}, { 3.4957758093835707`*^9, 3.4957758171931477`*^9}, {3.495777503488667*^9, 3.495777504046481*^9}, {3.497840540578795*^9, 3.497840548456621*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Definiere", " ", "\"\\""}], ";", " ", RowBox[{ "Ein", " ", "\"\<;\>\"", " ", "unterdr\[UDoubleDot]ckt", " ", "den", " ", "Output", " ", "und", " ", "separiert", " ", RowBox[{"Ausdr\[UDoubleDot]cke", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "=", RowBox[{"z", "+", "1"}]}], ";", "u"}], "\n", RowBox[{ RowBox[{"x", "=", RowBox[{"z", "-", "1"}]}], ";", "u"}]}]}]], "Input", CellChangeTimes->{{3.494859603976601*^9, 3.494859609970493*^9}, { 3.495775903050705*^9, 3.495775929887191*^9}, {3.495777676579986*^9, 3.495777742233489*^9}, {3.4978405605249157`*^9, 3.497840602580986*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "L\[ODoubleDot]sche", " ", "Definition", " ", "f\[UDoubleDot]r", " ", RowBox[{"\"\\"", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "x", "]"}], ";", "u"}]}]], "Input", CellChangeTimes->{{3.494859624067312*^9, 3.494859636247409*^9}, { 3.495775999007847*^9, 3.495776024816614*^9}, {3.497840625707219*^9, 3.497840643290285*^9}, {3.497840755908388*^9, 3.497840764474365*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Exakte", ",", " ", RowBox[{"rationale", " ", "and", " ", "Gleitkomma", " ", RowBox[{"Zahlen", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", "Pi"}]], "Input", CellChangeTimes->{{3.494859691149498*^9, 3.49485969132231*^9}, { 3.495776031755459*^9, 3.495776039603101*^9}, {3.4957761045285463`*^9, 3.495776109417149*^9}, {3.495776397545662*^9, 3.49577643600683*^9}, { 3.4957778664316597`*^9, 3.4957778901470222`*^9}, {3.497840773886125*^9, 3.497840791176771*^9}, {3.527834511000951*^9, 3.527834511753365*^9}}], Cell[BoxData[ RowBox[{"N", "[", "Pi", "]"}]], "Input", CellChangeTimes->{{3.494859693750935*^9, 3.494859696255136*^9}}], Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Pi", ",", "1000"}], "]"}]], "Input", CellChangeTimes->{{3.494859697690046*^9, 3.494859703391713*^9}, { 3.527834529074638*^9, 3.527834529930825*^9}}], Cell[BoxData[ RowBox[{"Pi", "//", RowBox[{ RowBox[{"N", "[", RowBox[{"#", ",", "50"}], "]"}], "&"}]}]], "Input", CellChangeTimes->{{3.52750251064767*^9, 3.527502529805884*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Bem", "."}], ":", " ", RowBox[{"\"\\"", " ", "ist", " ", "eine", " ", RowBox[{"sog", ".", " ", "anonyme"}], " ", "Funktion", " ", RowBox[{ RowBox[{"(", RowBox[{"pure", " ", "funtion"}], ")"}], "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527502535041553*^9, 3.527502589860923*^9}, { 3.5275044412132597`*^9, 3.527504444938477*^9}, 3.529314991831061*^9, 3.529315132789569*^9}], Cell[BoxData[ RowBox[{"a", " ", "=", " ", RowBox[{"12345", "/", "56789"}]}]], "Input", CellChangeTimes->{{3.494859715636716*^9, 3.494859723737179*^9}}], Cell[BoxData[ RowBox[{"a", "^", "7"}]], "Input", CellChangeTimes->{{3.49485972688828*^9, 3.494859728105714*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"N", "[", "%", "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "\"\<%\>\"", " ", "bezieht", " ", "sich", " ", "auf", " ", "den", " ", "letzten"}], ",", " ", RowBox[{"ausgewerteten", " ", RowBox[{"Ausdruck", "."}]}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.494859730386165*^9, 3.494859731242418*^9}, { 3.49577611434381*^9, 3.4957761714502783`*^9}, {3.497840855789441*^9, 3.49784087446023*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"24", "-", RowBox[{"23", "/", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"11", "-", "5"}], ")"}]}]], "Input", CellChangeTimes->{{3.52750240269652*^9, 3.527502420107623*^9}, { 3.527502466381042*^9, 3.527502467010119*^9}}], Cell[BoxData[ RowBox[{"Sqrt", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.527502432017766*^9, 3.527502433751684*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "^", "3"}]], "Input", CellChangeTimes->{{3.5275024354301567`*^9, 3.5275024385940523`*^9}}], Cell[BoxData[ RowBox[{"5", "!"}]], "Input", CellChangeTimes->{{3.527502448596414*^9, 3.52750245624244*^9}}], Cell[BoxData[ RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]], "Input", CellChangeTimes->{{3.527502619706114*^9, 3.5275026225017138`*^9}}], Cell[BoxData["I"], "Input", CellChangeTimes->{3.5275026399967747`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "*", "I"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", "*", "I"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.527502630444776*^9, 3.527502669406398*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Automatische", " ", "Zerlegung", " ", "in", " ", "Imagin\[ADoubleDot]r"}], "-", " ", RowBox[{"und", " ", RowBox[{"Realteil", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.529311506935848*^9, 3.5293115175464373`*^9}, 3.529418250938643*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"R\[ADoubleDot]ume", " ", RowBox[{"auf", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"u", ",", "x", ",", "a"}], "]"}]}]], "Input", CellChangeTimes->{{3.495777483045794*^9, 3.495777519274403*^9}, { 3.4957777812718287`*^9, 3.49577778502146*^9}, {3.497840880143836*^9, 3.497840931042761*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"ClearAll", "[", "]"}], " ", "bezieht", " ", "auch", " ", RowBox[{"assoziierte", "/", "vorkommende"}], " ", "Symbole", " ", "und", " ", "Definitionen", " ", "mit", " ", "ein", " ", RowBox[{ RowBox[{"(", "sp\[ADoubleDot]ter", ")"}], "."}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527834795107218*^9, 3.527834859194015*^9}, 3.527840033255527*^9, 3.5293114771531773`*^9, {3.529311563736569*^9, 3.529311605312722*^9}, {3.529311686277713*^9, 3.529311693460311*^9}, { 3.529311750674511*^9, 3.529311766146268*^9}, {3.5293118095299387`*^9, 3.529311814133544*^9}, {3.529311988027627*^9, 3.5293119924749117`*^9}, 3.529418254581476*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Listen", "Section", CellChangeTimes->{{3.494861859281324*^9, 3.494861860452339*^9}}], Cell[BoxData[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{"{", RowBox[{"t", ",", "w", ",", "u"}], "}"}]}]}], "Input", CellChangeTimes->{{3.494861876870609*^9, 3.494861881267085*^9}, { 3.4957742588439407`*^9, 3.495774267261497*^9}, {3.527834875248139*^9, 3.5278348763308153`*^9}}], Cell[BoxData[ RowBox[{"a", "+", "b"}]], "Input", CellChangeTimes->{{3.4957742710923967`*^9, 3.495774271628976*^9}}], Cell[BoxData[ RowBox[{"a", ".", "b"}]], "Input", CellChangeTimes->{{3.497840972850705*^9, 3.497840973578631*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ".", "a"}]], "Input", CellChangeTimes->{{3.495774285224889*^9, 3.4957743107898607`*^9}}], Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.494861886356839*^9, 3.494861887900598*^9}}], Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.494861889357301*^9, 3.494861890578607*^9}}], Cell[BoxData[ RowBox[{"x1", " ", "*", " ", "a"}]], "Input", CellChangeTimes->{{3.494861905716757*^9, 3.494861911584473*^9}}], Cell[BoxData[ RowBox[{"Sqrt", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.494861918180586*^9, 3.49486192305763*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.494862900038507*^9, 3.494862903260882*^9}, { 3.5308050957313557`*^9, 3.530805096138728*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Span", ":", " ", RowBox[{"list", "[", RowBox[{"[", RowBox[{"n1", ";;", "n2", ";;", "n3"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"List", "[", RowBox[{"[", RowBox[{ "<", "Anfang", ">", ";;", "<", "Ende", ">", ";;", "<", "Inkrement", ">"}], "]"}], "]"}], " ", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"falls", " ", "n1"}], ",", " ", "n2", ",", " ", RowBox[{"n3", " ", "vorhanden"}]}], ")"}], "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527834920559561*^9, 3.5278349812545567`*^9}, { 3.529312344646614*^9, 3.529312351054224*^9}, {3.529312408836856*^9, 3.52931240906831*^9}, {3.5293125085584784`*^9, 3.529312558268971*^9}, { 3.5293126595400753`*^9, 3.5293126615001507`*^9}, {3.5293150405574512`*^9, 3.529315048779464*^9}, 3.529315866410974*^9, {3.5616117846765013`*^9, 3.561611805554256*^9}}], Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}]}]], "Input", CellChangeTimes->{{3.529312358562744*^9, 3.529312371074366*^9}}], Cell[BoxData[ RowBox[{"list", "[", RowBox[{"[", ";;", "]"}], "]"}]], "Input", CellChangeTimes->{{3.529312376181879*^9, 3.5293123830366793`*^9}, { 3.529312873677041*^9, 3.52931288602496*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Ohne", " ", "erstes", " ", RowBox[{"Element", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"list", "[", RowBox[{"[", RowBox[{"2", ";;"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5293123853121223`*^9, 3.529312414347732*^9}, { 3.529312580503512*^9, 3.529312623405364*^9}, 3.529315068572302*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Alternativ", ":"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"list", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "5"}], ";;"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.529312655492033*^9, 3.5293126569045486`*^9}, { 3.52931275838482*^9, 3.5293127719184628`*^9}, 3.529315070839278*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Ohne", " ", "letztes", " ", RowBox[{"Element", ":"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.529312462237808*^9, 3.529312468361931*^9}, 3.529315072722028*^9}], Cell[BoxData[ RowBox[{"list", "[", RowBox[{"[", RowBox[{";;", "5"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.529312470599882*^9, 3.529312488607036*^9}, { 3.5293126299960403`*^9, 3.529312630108746*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]], "Input", CellChangeTimes->{3.561611831376382*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Jedes", " ", "2.", " ", RowBox[{"Element", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"list", "[", RowBox[{"[", RowBox[{";;", ";;", "2"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.529312418981126*^9, 3.5293124501227818`*^9}, { 3.52931507481833*^9, 3.529315075161295*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "list", "]"}]], "Input", CellChangeTimes->{{3.561611874598637*^9, 3.561611877431069*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Polynome", "Section", CellChangeTimes->{{3.49485973757691*^9, 3.494859739534076*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"p", ",", "a", ",", "b", ",", "c", ",", "q", ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.49577658386935*^9, 3.4957766004755774`*^9}, { 3.495776729393701*^9, 3.49577672969424*^9}, 3.497841140561064*^9}], Cell[BoxData[ RowBox[{"p", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "^", "3"}]}]], "Input", CellChangeTimes->{{3.494860240003074*^9, 3.494860249648889*^9}, { 3.494860518390065*^9, 3.494860518745445*^9}}], Cell[BoxData[ RowBox[{"pex", " ", "=", " ", RowBox[{"Expand", "[", "p", "]"}]}]], "Input", CellChangeTimes->{{3.494860251519753*^9, 3.494860252297057*^9}, { 3.494860299215702*^9, 3.494860299702104*^9}, {3.531461528902162*^9, 3.53146153068617*^9}}], Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{"p", ",", "a"}], "]"}]], "Input", CellChangeTimes->{{3.494860496182424*^9, 3.494860501101747*^9}, 3.49577755105562*^9, 3.495777602325892*^9}], Cell[BoxData[ RowBox[{"Coefficient", "[", RowBox[{"p", ",", "a", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.495777554021864*^9, 3.495777596442513*^9}}], Cell[BoxData[ RowBox[{"Factor", "[", "pex", "]"}]], "Input", CellChangeTimes->{{3.494860529949725*^9, 3.494860532668712*^9}, { 3.4957776434755297`*^9, 3.495777655502871*^9}, {3.531461536364325*^9, 3.531461536723734*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"x", "^", "n"}], "-", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.494860576108172*^9, 3.49486059424603*^9}, { 3.527839729500266*^9, 3.527839734369515*^9}, {3.5616120152152576`*^9, 3.561612028216009*^9}}], Cell[BoxData[ RowBox[{"q", " ", "=", " ", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}], " ", "+", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.494860623563659*^9, 3.494860636759639*^9}}], Cell[BoxData[ RowBox[{"Together", "[", "q", "]"}]], "Input", CellChangeTimes->{{3.494860638757767*^9, 3.494860642031125*^9}}], Cell[BoxData[ RowBox[{"Apart", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.494860644078197*^9, 3.494860647929619*^9}, { 3.561612071291881*^9, 3.561612090570228*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"p", ",", "q"}], "]"}]], "Input", CellChangeTimes->{{3.494860653234723*^9, 3.49486065483073*^9}, { 3.495777529220189*^9, 3.495777529481777*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Elementare Funktionen", "Section", CellChangeTimes->{{3.494860726536228*^9, 3.494860740981873*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y", ",", "b", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.495777298350087*^9, 3.4957773135479794`*^9}, { 3.497841100557129*^9, 3.497841100969034*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Mathematica", " ", "kennt", " ", "einfache", " ", "trigonometrische", " ", RowBox[{"Relationen", "."}]}], " ", "*)"}], "\n", RowBox[{"Sin", "[", "x", "]"}]}]], "Input", CellChangeTimes->{{3.495776837539158*^9, 3.4957768615608273`*^9}, 3.495777124249296*^9, {3.497841166285343*^9, 3.497841185564502*^9}}], Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"-", "x"}], "]"}]], "Input", CellChangeTimes->{{3.494860751970681*^9, 3.494860753866261*^9}}], Cell[BoxData[ RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]], "Input", CellChangeTimes->{{3.494860755829852*^9, 3.494860759563808*^9}}], Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}]], "Input", CellChangeTimes->{{3.494860763406423*^9, 3.494860767417325*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"E", " ", "ist", " ", "die", " ", "Eulersche", " ", RowBox[{"Zahl", "."}]}], " ", "*)"}], "\n", RowBox[{"Log", "[", "E", "]"}]}]], "Input", CellChangeTimes->{{3.495776872047803*^9, 3.495776878559134*^9}, 3.495777130001708*^9, {3.497841196712199*^9, 3.4978412258626328`*^9}, { 3.497841274172246*^9, 3.497841279496457*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Eindeutige", " ", "Transformationen", " ", "werden", " ", "automatisch", " ", "ausgef\[UDoubleDot]hrt"}], " ", "..."}], " ", "*)"}], "\n", RowBox[{"Exp", "[", RowBox[{"Log", "[", "y", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.495776888035915*^9, 3.495776919944776*^9}, 3.495777135089814*^9, {3.497841298953973*^9, 3.497841320919675*^9}, { 3.4978413646827517`*^9, 3.497841365946856*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "...", " ", "ansonsten", " ", "l\[ADoubleDot]sst", " ", "Mathematika", " ", "den", " ", "Ausdruck", " ", RowBox[{"unausgewertet", "."}]}], " ", "*)"}], "\n", RowBox[{"Log", "[", RowBox[{"E", "^", "y"}], "]"}]}]], "Input", CellChangeTimes->{{3.495776909493099*^9, 3.4957769578701572`*^9}, 3.495777118175798*^9, {3.4957773521088142`*^9, 3.495777356195054*^9}, { 3.495778046274252*^9, 3.4957780473010607`*^9}, {3.4978413723307667`*^9, 3.497841409101915*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Substitufiere", " ", "im", " ", "vorherigen", " ", "Ausdruck", " ", "einen", " ", "wert", " ", "f\[UDoubleDot]r", " ", RowBox[{"\"\\"", ".", " ", "Verwende"}], " ", RowBox[{"\"\<->\>\"", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"%", "/.", RowBox[{"y", "\[Rule]", RowBox[{"2", "*", "Pi", "*", "I"}]}]}]}]], "Input", CellChangeTimes->{{3.495776964533036*^9, 3.49577699032196*^9}, 3.4957771409950123`*^9, {3.495777989328374*^9, 3.495778037976985*^9}, { 3.49784143247278*^9, 3.497841470192246*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", "x", "]"}], "^", "2"}]], "Input", CellChangeTimes->{{3.494860847927158*^9, 3.494860852792887*^9}}], Cell[BoxData[ RowBox[{"Sqrt", "[", RowBox[{"x", "^", "2"}], "]"}]], "Input", CellChangeTimes->{{3.494860854394757*^9, 3.494860857067916*^9}}], Cell[BoxData[ RowBox[{"b", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"x", "^", "2"}], "*", "12", "*", RowBox[{"z", "^", "3"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.494860908585869*^9, 3.494860965503103*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", "b", "]"}]], "Input", CellChangeTimes->{{3.561612252881042*^9, 3.561612258498228*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Annahme", ":", " ", RowBox[{"\"\\"", " ", "ist", " ", "reell", " ", "und", " ", RowBox[{"positiv", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"b", ",", RowBox[{"x", ">", "0"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.494860925251447*^9, 3.494860929626692*^9}, { 3.494860972628339*^9, 3.494860980319009*^9}, {3.495777379230276*^9, 3.49577743767863*^9}, {3.497841539391823*^9, 3.497841558939241*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"x", ">", RowBox[{"0", " ", "impliziert", " ", "x", " ", RowBox[{"reell", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.529313031424013*^9, 3.529313036382331*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Refine", "[", "]"}], " ", "wendet", " ", "vereinfachende", " ", "Annahmen", " ", "auf", " ", "einen", " ", "Ausdruck", " ", "an"}], ";", " ", RowBox[{ RowBox[{"Simplify", "[", "]"}], " ", "macht", " ", "zus\[ADoubleDot]tzlich", " ", "weitere", " ", "m\[ODoubleDot]gliche", " ", RowBox[{"Vereinfachungen", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Refine", "[", RowBox[{"b", ",", RowBox[{"x", ">", "0"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5278401019641047`*^9, 3.527840109636283*^9}, { 3.52931305917318*^9, 3.529313060376115*^9}, {3.529313099919888*^9, 3.5293131664640503`*^9}, 3.529315199939006*^9, 3.529418258047257*^9, 3.529418369320108*^9, {3.56161230387908*^9, 3.561612307992695*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"b", ",", RowBox[{"{", RowBox[{ RowBox[{"x", ">", "0"}], ",", RowBox[{"z", ">", "0"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.494860983628687*^9, 3.49486100044769*^9}, { 3.495777407891622*^9, 3.49577744001654*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Die", " ", "Manipulation", " ", "der", " ", "Exponenten", " ", "kann", " ", "erzwungen", " ", RowBox[{"werden", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PowerExpand", "[", "b", "]"}]}]], "Input", CellChangeTimes->{{3.495777024899518*^9, 3.495777068318281*^9}, { 3.4957774482645206`*^9, 3.495777451248805*^9}, {3.497841582000227*^9, 3.497841604221377*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "b", "]"}]], "Input", CellChangeTimes->{{3.494862936442762*^9, 3.49486293775452*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Darstellungen der Ausdr\[UDoubleDot]cke", "Section", CellChangeTimes->{{3.495686558976654*^9, 3.49568657343295*^9}, { 3.495725250999016*^9, 3.495725269984966*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"ex", ",", "a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.495777950659588*^9, 3.495777958339961*^9}, 3.497841124728362*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Standard", ":"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ex", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "/", RowBox[{"(", RowBox[{"c", "+", "d"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.495686576360533*^9, 3.495686586826997*^9}, { 3.495686648995854*^9, 3.495686649562058*^9}, {3.495778083317987*^9, 3.49577809703041*^9}, {3.497841653966992*^9, 3.497841667827471*^9}, { 3.497841797840481*^9, 3.497841798697358*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Interne", " ", RowBox[{"Darstellung", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"FullForm", "[", "ex", "]"}]}]], "Input", CellChangeTimes->{{3.495686588989331*^9, 3.495686593442289*^9}, { 3.495778101919829*^9, 3.495778110946561*^9}, {3.495778229757339*^9, 3.495778231036688*^9}, {3.497841801540916*^9, 3.497841811157852*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Jeder", " ", "Ausdruck", " ", "ist", " ", "eine", " ", RowBox[{"Liste", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ex", "[", RowBox[{"[", "0", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"ex", "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"ex", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495773994171221*^9, 3.4957740302517853`*^9}, { 3.495778120530222*^9, 3.495778132620654*^9}, {3.4957782426789417`*^9, 3.49577827098489*^9}, {3.4957839026683407`*^9, 3.495783911202178*^9}, { 3.4978418788764677`*^9, 3.497841889387879*^9}}], Cell[BoxData[ RowBox[{"ex", "[", RowBox[{"[", RowBox[{"1", ",", " ", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.527505042211899*^9, 3.527505049413776*^9}}], Cell[BoxData[ RowBox[{"ex", "[", RowBox[{"[", RowBox[{"1", ",", " ", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.527505053489252*^9, 3.527505056892189*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Auf", " ", "diese", " ", "Weise", " ", "ist", " ", "eine", " ", "direkte", " ", "Manipulation", " ", "von", " ", "Ausdr\[UDoubleDot]cken", " ", RowBox[{"m\[ODoubleDot]glich", "."}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527840350843985*^9, 3.52784036135819*^9}, { 3.529313216216099*^9, 3.529313242887546*^9}, 3.5294183761632853`*^9, 3.529418412616623*^9, {3.530805664608945*^9, 3.530805665047378*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Verschachtelte", " ", "Listen", " ", "k\[ODoubleDot]nnen", " ", "als", " ", RowBox[{"sog", ".", " ", "B\[ADoubleDot]ume"}], " ", "dargestellt", " ", RowBox[{"werden", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"TreeForm", "[", "ex", "]"}]}]], "Input", CellChangeTimes->{{3.495686595898395*^9, 3.495686598818825*^9}, { 3.495778137964786*^9, 3.495778169754696*^9}, {3.495778274855577*^9, 3.4957782754081383`*^9}, {3.495783919907436*^9, 3.495783931228739*^9}, { 3.4978419075429897`*^9, 3.497841938507907*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Generierung", " ", "von", " ", "Code", " ", "in", " ", "anderen", " ", "Programmiersprachen"}], " ", "..."}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"FortranForm", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", "10"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.495725287751383*^9, 3.4957253403843*^9}, { 3.495725402801707*^9, 3.495725424725325*^9}, {3.495778160440257*^9, 3.4957781910474052`*^9}, {3.497841959337031*^9, 3.497841999618308*^9}, { 3.530805697466497*^9, 3.530805698257893*^9}}], Cell[BoxData[ RowBox[{"CForm", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", "10"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.495725438108526*^9, 3.495725464360253*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CForm", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", "10"}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{"Power", "\[Rule]", "pow"}], "}"}]}]], "Input", CellChangeTimes->{{3.561612510088285*^9, 3.56161251355101*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"und", " ", "auch", " ", "in", " ", RowBox[{"Mathematica", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"InputForm", "[", "%", "]"}]}]], "Input", CellChangeTimes->{{3.495725469341908*^9, 3.495725472038438*^9}, { 3.495778194093832*^9, 3.495778209106244*^9}, {3.495778298075121*^9, 3.495778312828574*^9}, {3.497842003085038*^9, 3.4978420169370832`*^9}, { 3.5616125570813293`*^9, 3.5616125835531588`*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "ex", "]"}]], "Input", CellChangeTimes->{{3.49577821908895*^9, 3.4957782206546087`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Ein- und mehrdimensionale Kurven und Figuren", "Section", CellChangeTimes->{{3.494862125135064*^9, 3.49486217155052*^9}, 3.495725589296293*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.49486219521077*^9, 3.494862209756231*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"a", "*", "t"}], "]"}], "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"Exp", "[", RowBox[{"a", "*", "t"}], "]"}], "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0.1"}], "}"}], ",", "0", ",", "0.2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.494862256915543*^9, 3.494862257008041*^9}, { 3.494862313232044*^9, 3.4948623433751*^9}, {3.494862385601258*^9, 3.494862429906587*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "+", RowBox[{"y", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.494862459090159*^9, 3.494862547039816*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", " ", RowBox[{ RowBox[{"Im", "[", RowBox[{"Sqrt", "[", RowBox[{"x", "+", RowBox[{"I", "*", "y"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "25"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.527564197742792*^9, 3.527564303673027*^9}, { 3.527564360380121*^9, 3.52756438977516*^9}, {3.52756455989914*^9, 3.527564571360523*^9}, {3.561613018501707*^9, 3.561613018733371*^9}, { 3.5616130987211533`*^9, 3.5616130989931507`*^9}}], Cell[BoxData[ RowBox[{"?", "Series"}]], "Input", CellChangeTimes->{{3.527564854670021*^9, 3.527564858360498*^9}}], Cell[BoxData[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"I", "*", "y"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"y", ">", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"I", "*", "y"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"y", "<", "0"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.527564780083332*^9, 3.5275648033867693`*^9}, { 3.527564839438944*^9, 3.527564840431411*^9}, {3.52756488640024*^9, 3.5275649337294283`*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", " ", RowBox[{ RowBox[{"Re", "[", RowBox[{"Sqrt", "[", RowBox[{"x", "+", RowBox[{"I", "*", "y"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "25"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.527564579369893*^9, 3.527564580367116*^9}, 3.527840746219894*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}], ",", RowBox[{"a", "*", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0.1"}], "}"}], ",", "0", ",", "0.2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "*", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "*", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"Cos", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527563602904964*^9, 3.527563619085671*^9}, { 3.527563654848034*^9, 3.5275636881384497`*^9}}], Cell[BoxData[ RowBox[{"?", "SphericalHarmonicY"}]], "Input", CellChangeTimes->{{3.527565289340473*^9, 3.527565315986897*^9}}], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", "th", ",", "ph"}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "l"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527565331872637*^9, 3.5275654173502817`*^9}}], Cell[BoxData[ RowBox[{"?", "SphericalPlot3D"}]], "Input", CellChangeTimes->{{3.527565443343382*^9, 3.527565448668626*^9}}], Cell[BoxData[ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"th", ",", "0", ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"phi", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527565525134885*^9, 3.527565565202631*^9}}], Cell[BoxData[ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "1", ",", "th", ",", "phi"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"th", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"phi", ",", "0", ",", RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5275655846118383`*^9, 3.527565728185857*^9}, { 3.527565885434608*^9, 3.527565963401886*^9}, {3.527841092521946*^9, 3.527841111415267*^9}, {3.561613290868671*^9, 3.5616133476299753`*^9}, { 3.561713964547432*^9, 3.561713984132896*^9}, {3.561714070752289*^9, 3.561714098103965*^9}, {3.561714243536981*^9, 3.561714243638626*^9}, { 3.5617144488741627`*^9, 3.561714456891816*^9}, {3.561714590284238*^9, 3.561714618464634*^9}, {3.561714661104433*^9, 3.56171471095866*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Regeln und Ersetzungen (1)", "Section", CellChangeTimes->{{3.49486282099988*^9, 3.49486282821451*^9}, { 3.4958497536721897`*^9, 3.4958497707834272`*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "regel", ",", "a", ",", "b", ",", "c", ",", "x", ",", "y", ",", "x1", ",", "x2"}], "]"}]], "Input", CellChangeTimes->{{3.49578472218861*^9, 3.495784738251565*^9}, 3.497841131923212*^9}], Cell[BoxData[ RowBox[{"regel", " ", "=", " ", RowBox[{"{", RowBox[{"a", "\[Rule]", RowBox[{"b", "+", "c"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.494862858518547*^9, 3.494862868471334*^9}}], Cell[BoxData[ RowBox[{"x", " ", "=", " ", RowBox[{"a", "^", "3"}]}]], "Input", CellChangeTimes->{{3.494862950337767*^9, 3.494862958232821*^9}}], Cell[BoxData[ RowBox[{"x", "/.", "regel"}]], "Input", CellChangeTimes->{{3.494862960270132*^9, 3.494862963079148*^9}}], Cell[BoxData[ RowBox[{"regel", "=", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"y", "^", "2"}], "]"}], "\[Rule]", RowBox[{"2", "*", RowBox[{"Log", "[", "y", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.494863079643541*^9, 3.494863086450185*^9}}], Cell[BoxData[ RowBox[{"x1", "=", RowBox[{"Log", "[", RowBox[{"y", "^", "2"}], "]"}]}]], "Input", CellChangeTimes->{{3.494862991137423*^9, 3.494863052569705*^9}}], Cell[BoxData[ RowBox[{"x1", "/.", "regel"}]], "Input", CellChangeTimes->{{3.494863027634776*^9, 3.494863054409193*^9}, { 3.494863094583643*^9, 3.494863098910263*^9}}], Cell[BoxData[ RowBox[{"x2", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"z", "^", "2"}], "]"}], "/.", "regel"}]}]], "Input", CellChangeTimes->{{3.4948630608843*^9, 3.494863067773362*^9}, { 3.49486310349787*^9, 3.494863104749875*^9}}], Cell[BoxData[ RowBox[{"regel", "=", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"y_", "^", "2"}], "]"}], "\[Rule]", RowBox[{"2", "*", RowBox[{"Log", "[", "y", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.494863108373495*^9, 3.494863123499187*^9}}], Cell[BoxData[ RowBox[{"x1", "/.", "regel"}]], "Input", CellChangeTimes->{{3.494863131191815*^9, 3.494863133129327*^9}}], Cell[BoxData[ RowBox[{"x2", "/.", "regel"}]], "Input", CellChangeTimes->{{3.494863135207541*^9, 3.494863137075471*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "c"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5275042749833307`*^9, 3.527504313860503*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], " ", "//.", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "c"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5275043020963173`*^9, 3.5275043173363*^9}}], Cell[BoxData[ RowBox[{"a", "//.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "a"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.527504328602611*^9, 3.52750434689563*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "x1", ",", "x2", ",", "regel"}], "]"}]], "Input", CellChangeTimes->{{3.494863147372131*^9, 3.494863164893562*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Gleichungen", "Section", CellChangeTimes->{{3.494863176216911*^9, 3.494863177877231*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "eq", ",", "a", ",", "b", ",", "c", ",", "x", ",", "y", ",", "lsg", ",", "eqs"}], "]"}]], "Input", CellChangeTimes->{{3.495784809318005*^9, 3.495784826999631*^9}, 3.4978411347807903`*^9}], Cell[BoxData[ RowBox[{"eq", "=", RowBox[{ RowBox[{ RowBox[{"a", "*", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"b", "*", "x"}], "+", "c"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.494863186349428*^9, 3.494863234521024*^9}, { 3.494863658308418*^9, 3.494863658608545*^9}}], Cell[BoxData[ RowBox[{"lsg", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{"eq", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.494863217002368*^9, 3.494863238197607*^9}, { 3.494863438893731*^9, 3.494863446886413*^9}, {3.494863662905753*^9, 3.494863663500099*^9}}], Cell[BoxData[ RowBox[{"lsg", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.494863450246203*^9, 3.494863453952702*^9}, { 3.49486366637156*^9, 3.494863667334578*^9}}], Cell[BoxData[ RowBox[{"eq", "/.", RowBox[{"lsg", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.494863458095939*^9, 3.494863496842851*^9}, { 3.494863669678818*^9, 3.494863669965026*^9}}], Cell[BoxData[ RowBox[{"Expand", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.494863499090894*^9, 3.494863501181952*^9}}], Cell[BoxData[ RowBox[{"eqs", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "*", "x"}], "+", RowBox[{"b", "*", "y"}]}], "==", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"c", "*", "x"}], "+", RowBox[{"d", "*", "y"}]}], "==", "2"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.494863534037443*^9, 3.494863563364557*^9}, { 3.494863631481248*^9, 3.494863631960629*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{"eqs", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4948635652351*^9, 3.494863570949831*^9}}], Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"5", "*", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"4", "*", RowBox[{"Sin", "[", "x", "]"}]}]}], "\[Equal]", "3"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"eq", ",", "eqs", ",", "lsg"}], "]"}]], "Input", CellChangeTimes->{{3.494863646202185*^9, 3.494863678629163*^9}, { 3.495784872590886*^9, 3.495784873572935*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Funktionen", "Section", CellChangeTimes->{{3.495688188329619*^9, 3.495688189680995*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "z", ",", "x", ",", "f", ",", "g", ",", "fac"}], "]"}]], "Input", CellChangeTimes->{{3.495785128149517*^9, 3.4957851472780657`*^9}, 3.497841137370332*^9}], Cell[CellGroupData[{ Cell["Verz\[ODoubleDot]gerte Zuweisungen", "Subsubsection", CellChangeTimes->{{3.495688300636552*^9, 3.495688322338163*^9}}], Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", "2"}], "+", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.495688331720852*^9, 3.495688375926985*^9}, { 3.495688497336414*^9, 3.495688514108754*^9}}], Cell[BoxData[ RowBox[{"b", ":=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", "2"}], "+", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.49568850027536*^9, 3.495688517118172*^9}}], Cell[BoxData[ RowBox[{"z", "=", RowBox[{"1", "+", "x"}]}]], "Input", CellChangeTimes->{{3.495688399425515*^9, 3.495688404129415*^9}}], Cell[BoxData["a"], "Input", CellChangeTimes->{3.495688405713929*^9}], Cell[BoxData["b"], "Input", CellChangeTimes->{3.495688407893098*^9}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "x", ",", "z"}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Funktionen", "Subsubsection", CellChangeTimes->{{3.495688976782244*^9, 3.495688978484482*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "z_", "]"}], "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}], "^", "2"}], "+", "1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "z_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}], "^", "2"}], "+", "1"}], "]"}]}]}], "Input", CellChangeTimes->{{3.495688485729521*^9, 3.495688492296687*^9}, { 3.495688579343226*^9, 3.495688612381961*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"x", "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.495688588721178*^9, 3.495688601066803*^9}}], Cell[BoxData[ RowBox[{"g", "[", RowBox[{"x", "+", "1"}], "]"}]], "Input", CellChangeTimes->{{3.495688603274082*^9, 3.495688604988689*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.49568862935829*^9, 3.495688633282763*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "1", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "3", "]"}], "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{"?", "f"}]}], "Input", CellChangeTimes->{{3.495688681417644*^9, 3.495688696841739*^9}, 3.4957850988332767`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fac", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fac", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"fac", "[", "n", "]"}], "=", RowBox[{"n", "*", RowBox[{"fac", "[", RowBox[{"n", "-", "1"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"\"\\"", " ", "schon", " ", "berechneter", " ", RowBox[{"Werte", "."}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.495688676613656*^9, 3.49568867904068*^9}, { 3.52931378955894*^9, 3.529313789813409*^9}}], Cell[BoxData[ RowBox[{"?", "fac"}]], "Input", CellChangeTimes->{{3.49568870586665*^9, 3.495688706874511*^9}}], Cell[BoxData[ RowBox[{"fac", "[", "4", "]"}]], "Input", CellChangeTimes->{{3.495688723343008*^9, 3.495688725921431*^9}}], Cell[BoxData[ RowBox[{"?", "fac"}]], "Input", CellChangeTimes->{{3.495688728022056*^9, 3.49568872850094*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "fac", "]"}]], "Input", CellChangeTimes->{{3.495688766836813*^9, 3.495688771525801*^9}}], Cell["\<\ Aufgabe : Schreibe Funktion, die die Fibonacci-Zahlen ausrechnet.\ \>", "Text", CellChangeTimes->{{3.495688799475106*^9, 3.495688830194622*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "fib", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fib", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fib", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fib", "[", "x_Integer", "]"}], ":=", RowBox[{ RowBox[{"fib", "[", "x", "]"}], "=", RowBox[{ RowBox[{"fib", "[", RowBox[{"x", "-", "1"}], "]"}], "+", RowBox[{"fib", "[", RowBox[{"x", "-", "2"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"fib", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "100", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.52784282263414*^9, 3.527842931139991*^9}, { 3.527842968505857*^9, 3.5278430730617647`*^9}, {3.527843124471424*^9, 3.5278431782041073`*^9}, {3.527843210484145*^9, 3.5278433061451902`*^9}, { 3.527843441131721*^9, 3.527843583808528*^9}, {3.527844309843494*^9, 3.5278443118516407`*^9}, {3.5616145866703444`*^9, 3.5616145872209463`*^9}, { 3.561614670527419*^9, 3.561614696993142*^9}}], Cell[BoxData[ RowBox[{"fib", "[", "30", "]"}]], "Input", CellChangeTimes->{{3.561614708345174*^9, 3.5616147101252728`*^9}, { 3.56161476098564*^9, 3.5616147619205503`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Zum", " ", RowBox[{"Vergleich", ":", " ", RowBox[{ RowBox[{"ohne", " ", "\"\\""}], ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "fib2", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fib2", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fib2", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fib2", "[", "x_Integer", "]"}], ":=", RowBox[{ RowBox[{"fib2", "[", RowBox[{"x", "-", "1"}], "]"}], "+", RowBox[{"fib2", "[", RowBox[{"x", "-", "2"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"fib2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "100", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.530810737522112*^9, 3.530810789567349*^9}, 3.561614693362735*^9}], Cell[BoxData[ RowBox[{"fib2", "[", "30", "]"}]], "Input", CellChangeTimes->{{3.5616147171762543`*^9, 3.561614755215122*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Anonyme Funktionen (\"pure functions\")", "Subsubsection", CellChangeTimes->{{3.527558740101742*^9, 3.52755877449015*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Anonyme", " ", "Funktionen", " ", "unterscheiden", " ", "sich", " ", "von", " ", "\"\\"", " ", "Funktionen", " ", "dadurch"}], ",", " ", RowBox[{"dass", " ", "sie", " ", "keinen", " ", "Namen", " ", RowBox[{"haben", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5275587918717937`*^9, 3.527558792722736*^9}, { 3.527558867784484*^9, 3.527558898038582*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"Sin", "[", RowBox[{"x", "/", "y"}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5275589052071867`*^9, 3.5275589436791267`*^9}, { 3.531458417873336*^9, 3.531458421676261*^9}, {3.5616152789850273`*^9, 3.561615279828567*^9}, {3.561615313843102*^9, 3.561615334120693*^9}}], Cell[BoxData[ RowBox[{"%", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.5275589052071867`*^9, 3.5275589436791267`*^9}, { 3.531458417873336*^9, 3.531458421676261*^9}, {3.561615281898593*^9, 3.561615282994815*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Das", " ", "Selbe", " ", "noch", " ", "einmal", " ", "in", " ", "kompakterer", " ", RowBox[{"Form", ":", " ", RowBox[{ RowBox[{"(", RowBox[{ "\"\<&\>\"", " ", "ist", " ", "die", " ", "Abk\[UDoubleDot]rzung", " ", "f\[UDoubleDot]r", " ", "\"\\""}], ")"}], "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5275591951531982`*^9, 3.527559263681615*^9}, 3.529315972964759*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Sin", "[", RowBox[{"#1", "/", "#2"}], "]"}], ")"}], "&"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "[", RowBox[{"a", ",", "b"}], "]"}]}], "Input", CellChangeTimes->{{3.527558949803968*^9, 3.527559002769985*^9}, { 3.561615291739641*^9, 3.561615335675281*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Beachte", ":"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f1", " ", "=", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"Sin", "[", RowBox[{"x", "/", "y"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f1", "[", RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.561624648907055*^9, 3.561624665939292*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Weitere", " ", RowBox[{"Beispiele", ":"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527559299737606*^9, 3.527559309097918*^9}, 3.531458763073794*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Vorbemerkung", ":", " ", RowBox[{ "Darstellung", " ", "einer", " ", "Ableitung", " ", "nach", " ", "dem", " ", "Argument"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"FullForm", "[", RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5314586723578053`*^9, 3.531458745263323*^9}, { 3.531460533249267*^9, 3.531460540639805*^9}, {3.561615406771667*^9, 3.561615423339954*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"eq1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], " ", "+", " ", RowBox[{"a", "*", RowBox[{"x", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Ersetze", " ", "Funktion", " ", RowBox[{"x", "[", "t", "]"}], " ", "durch", " ", RowBox[{"y", "[", "t", "]"}]}], ":"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"eq1", " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], " ", "\[Rule]", " ", RowBox[{ RowBox[{"y", "[", "t", "]"}], " ", "+", " ", "b"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.527559278719617*^9, 3.5275593469471703`*^9}, 3.52755953308788*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"...", " ", "funktionert", " ", "so", " ", "nicht"}], " ", "..."}], " ", "aber", " ", RowBox[{"so", ":"}]}], " ", "*)"}], "\n", RowBox[{"eq1", "/.", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"y", "[", "#", "]"}], "+", "b"}], "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.527559517193502*^9, 3.527559552779351*^9}, { 3.527559835975212*^9, 3.527559846807043*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"in", " ", RowBox[{"Kurzform", ":"}]}], " ", "*)"}], "\n", RowBox[{"eq1", "/.", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"y", "[", "#", "]"}], "+", "b"}], "&"}], ")"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5275595560109453`*^9, 3.527559565315074*^9}, 3.5275598298059807`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", "eq1", "]"}]], "Input", CellChangeTimes->{{3.531460553447461*^9, 3.531460558905047*^9}, 3.5314606203055763`*^9}], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Plus", "[", RowBox[{ RowBox[{"Times", "[", RowBox[{"a", ",", RowBox[{"x", "[", "t", "]"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "1", "]"}], "[", "x", "]"}], "[", "t", "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.531460559434827*^9, 3.5314605686817093`*^9}, 3.5314606203082113`*^9, 3.531460727157866*^9, {3.561624712289217*^9, 3.561624728730846*^9}}] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Funktioniert", " ", RowBox[{"auch", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"eq1", "/.", RowBox[{"{", RowBox[{"x", "\[Rule]", "y"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.531460632090054*^9, 3.531460636949108*^9}, { 3.531460760013013*^9, 3.5314607677120733`*^9}, {3.531460820780286*^9, 3.531460845503393*^9}}], Cell[BoxData[ RowBox[{"ex", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "^", "2"}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "^", "3"}]}], " ", "//", " ", "Expand"}]}]], "Input", CellChangeTimes->{{3.527559587886259*^9, 3.527559608916679*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Extrahiere", " ", "alle", " ", "Terme"}], ",", " ", RowBox[{"die", " ", "kein", " ", "y", " ", RowBox[{"enthalten", ":"}]}]}], " ", "*)"}], "\n", RowBox[{"Select", "[", RowBox[{"ex", ",", " ", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", "y"}], "]"}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.527559624767658*^9, 3.527559644986212*^9}, 3.527559820183669*^9}], Cell[BoxData[ RowBox[{"?", "Select"}]], "Input", CellChangeTimes->{{3.527559672895253*^9, 3.527559674614464*^9}}], Cell[BoxData[ RowBox[{"?", "FreeQ"}]], "Input", CellChangeTimes->{{3.527559707503355*^9, 3.527559709596491*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Extrahiere", " ", "alle", " ", "Terme"}], ",", " ", RowBox[{ RowBox[{"die", " ", "y", " ", "enthalten", " ", RowBox[{"(", RowBox[{ "\"\\"", " ", "ist", " ", "das", " ", "logische", " ", "\"\\""}], ")"}]}], ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Select", "[", RowBox[{"ex", ",", " ", RowBox[{ RowBox[{"!", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "y"}], "]"}]}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.527559760696718*^9, 3.5275597916177053`*^9}, { 3.527559864779838*^9, 3.5275598796782713`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"f1", ",", "f2", ",", "ex"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5275589052071867`*^9, 3.527558917811504*^9}, { 3.527559583335931*^9, 3.527559584334064*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.497843120431649*^9, 3.4978431374994907`*^9}, 3.5275586949212914`*^9}], Cell[BoxData[ RowBox[{"g", "/@", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input", CellChangeTimes->{{3.527568159845008*^9, 3.5275681650492563`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Realisierung", " ", "mit", " ", "Hilfe", " ", "von", " ", "anonymer", " ", "Funktion", " ", RowBox[{"(", "\"\\"", ")"}]}], ":"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "^", "2"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"#", "^", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495785213242*^9, 3.49578526237024*^9}, { 3.495785325662806*^9, 3.495785329885886*^9}, {3.4957854068329887`*^9, 3.4957854142899714`*^9}, {3.4978431621824417`*^9, 3.497843214223234*^9}, { 3.497843276393721*^9, 3.4978432876377993`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Sqrt", "[", "#", "]"}], ")"}], "&"}], "/@", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "25", ",", "3"}], "}"}]}]], "Input", CellChangeTimes->{{3.527568247793185*^9, 3.527568247913446*^9}, { 3.527568280752371*^9, 3.527568314792048*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Funktionen", " ", "als", " ", RowBox[{"Variablen", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", " ", "=", " ", RowBox[{ RowBox[{"#", "+", "3"}], "&"}]}], "\[IndentingNewLine]", RowBox[{"a2", " ", "=", " ", RowBox[{"Function", "[", RowBox[{"#", "+", "3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"a1", "[", "5", "]"}], "\[IndentingNewLine]", RowBox[{"a2", "[", "5", "]"}]}]}]], "Input", CellChangeTimes->{{3.495785213242*^9, 3.49578526237024*^9}, { 3.495785325662806*^9, 3.495785329885886*^9}, {3.4957854068329887`*^9, 3.4957854175360622`*^9}, {3.4978433085866537`*^9, 3.497843341459157*^9}, { 3.529313926795001*^9, 3.529313926897938*^9}, 3.530810986133691*^9}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "g", ",", "a1", ",", "a2", ",", "fib"}], "]"}]], "Input", CellChangeTimes->{{3.495785445180058*^9, 3.495785447252108*^9}, { 3.497843349048545*^9, 3.4978433627145157`*^9}, {3.527568251124486*^9, 3.527568251286574*^9}, {3.527847563927291*^9, 3.527847564607971*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Regeln und Ersetzungen (2)", "Section", CellChangeTimes->{{3.495686794612221*^9, 3.495686799375467*^9}, { 3.4958497753165903`*^9, 3.495849776094387*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Pattern", " ", "Matching"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527844278883347*^9, 3.527844285448325*^9}}], Cell[CellGroupData[{ Cell["Einfache Ersetzungen", "Subsubsection", CellChangeTimes->{{3.495687440704326*^9, 3.495687445585841*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", "y", "]"}]}], "}"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], "\[Rule]", RowBox[{"x", "^", "2"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", "y", "]"}]}], "}"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x_", "]"}], "\[Rule]", RowBox[{"x", "^", "2"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.495686833798698*^9, 3.495686845754852*^9}, { 3.497843732231206*^9, 3.497843733459223*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"x", "+", "y"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "\[Rule]", RowBox[{"x", "^", "2"}]}], ",", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], "^", "2"}]}]}], "}"}]}], "\n", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", RowBox[{"x", "+", "y"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x_", "]"}], "\[Rule]", RowBox[{"x", "^", "2"}]}], "}"}]}], "\n", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", RowBox[{"x", "-", "y"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x_Plus", "]"}], "\[Rule]", RowBox[{"x", "^", "2"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.49568690557759*^9, 3.49568694833471*^9}, { 3.49568701281615*^9, 3.495687015211459*^9}, {3.497843765395351*^9, 3.4978438016735888`*^9}}], Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"x", "-", "y"}], "]"}]], "Input", CellChangeTimes->{{3.4978438148510523`*^9, 3.497843818412962*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ex1", " ", "=", " ", RowBox[{"x", "*", "y", "*", "z"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ex2", " ", "=", " ", RowBox[{ RowBox[{"x", "^", "2"}], "*", RowBox[{"y", "^", "2"}], "*", "z"}]}], ";"}]}], "Input", CellChangeTimes->{{3.495687139751664*^9, 3.495687188217221*^9}, { 3.495687242712592*^9, 3.495687249430747*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"ex1", ",", "ex2"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", "y"}], "\[Rule]", RowBox[{"z", "^", "2"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.495687157368643*^9, 3.49568719333101*^9}, 3.497843841046562*^9, {3.531461224672977*^9, 3.5314612295630083`*^9}}], Cell[BoxData[{ RowBox[{"FullForm", "[", "ex1", "]"}], "\[IndentingNewLine]", RowBox[{"FullForm", "[", "ex2", "]"}]}], "Input", CellChangeTimes->{{3.5616250669374943`*^9, 3.561625071238278*^9}, { 3.561626065941011*^9, 3.561626098541463*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"ex1", ",", "ex2"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "^", "n_"}], "*", RowBox[{"y", "^", "m_"}]}], "\[Rule]", RowBox[{"z", "^", RowBox[{"(", RowBox[{"n", "+", "m"}], ")"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.495687157368643*^9, 3.49568719333101*^9}, 3.497843841046562*^9, {3.531461224672977*^9, 3.5314612360830812`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"ex1", ",", "ex2"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "^", "n_."}], "*", RowBox[{"y", "^", "m_."}]}], "\[Rule]", RowBox[{"z", "^", RowBox[{"(", RowBox[{"n", "+", "m"}], ")"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.495687157368643*^9, 3.49568719333101*^9}, 3.497843841046562*^9, {3.531461224672977*^9, 3.5314612360830812`*^9}}], Cell[BoxData[{ RowBox[{"ex", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], "\n", RowBox[{"ex", "/.", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x_", "]"}], "\[Rule]", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "\n", RowBox[{"ex", "/.", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x__", "]"}], "\[Rule]", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "\n", RowBox[{"ex", "/.", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x___", "]"}], "\[Rule]", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.495687694079888*^9, 3.495687726985469*^9}, { 3.49568782746079*^9, 3.495687827520329*^9}, 3.497843969643392*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Bedingungen", "Subsubsection", CellChangeTimes->{{3.495687415545128*^9, 3.4956874187846*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "1.5", "]"}], ",", RowBox[{"f", "[", RowBox[{"3", "/", "2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"x", "/", "2"}], "]"}]}], "}"}], "/.", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "?", "NumberQ"}], "]"}], "\[Rule]", RowBox[{"x", "^", "2"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"?", "NumberQ"}]], "Input", CellChangeTimes->{{3.495687529304768*^9, 3.495687532089898*^9}}], Cell[BoxData[ RowBox[{"rule", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fac", "[", "0", "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"fac", "[", RowBox[{"n_Integer", "/;", RowBox[{"n", ">", "0"}]}], "]"}], "\[Rule]", RowBox[{"n", "*", RowBox[{"fac", "[", RowBox[{"n", "-", "1"}], "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.495687577695437*^9, 3.495687597650162*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"fac", "[", "10", "]"}], "//.", "rule"}]], "Input", CellChangeTimes->{{3.495687601354708*^9, 3.495687619641559*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"fac", "[", "3.3", "]"}], "//.", "rule"}]], "Input", CellChangeTimes->{{3.495687622325726*^9, 3.495687625674485*^9}, { 3.4978440797122498`*^9, 3.4978440814819107`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "+", RowBox[{"f", "[", "b", "]"}], "+", RowBox[{"f", "[", "c", "]"}]}], "/.", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "/;", RowBox[{ RowBox[{"x", "\[Equal]", "a"}], "||", RowBox[{"x", "\[Equal]", "b"}]}]}], "]"}], "\[Rule]", RowBox[{"g", "[", "x", "]"}]}]}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Verz\[ODoubleDot]gerte Ersetzungen", "Subsubsection", CellChangeTimes->{{3.527504508058382*^9, 3.5275045514019337`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "x", ",", "x"}], "}"}], "/.", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Random", "[", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.527504576398636*^9, 3.527504593568696*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "x", ",", "x"}], "}"}], "/.", RowBox[{"{", RowBox[{"x", ":>", RowBox[{"Random", "[", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.527504624600154*^9, 3.527504626620634*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"\"\<:>\>\"", " ", "bedeutet"}], ",", " ", RowBox[{ "dass", " ", "\"\\"", " ", "erst", " ", "ausgewertet", " ", "wird"}], ",", " ", RowBox[{ "nachdem", " ", "die", " ", "Substitution", " ", "vorgenommen", " ", RowBox[{"wurde", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527504658640414*^9, 3.527504803699576*^9}}], Cell[BoxData[ RowBox[{"?", "Random"}]], "Input", CellChangeTimes->{{3.5275045980200863`*^9, 3.527504601399968*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Manipulation von Ausdr\[UDoubleDot]cken", "Section", CellChangeTimes->{{3.495722606618883*^9, 3.495722619809517*^9}}], Cell[CellGroupData[{ Cell["Faktorisierung : Factor[]", "Subsection", CellChangeTimes->{3.495722693831195*^9}], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{ RowBox[{"a", "^", "3"}], "+", RowBox[{"3", " ", RowBox[{"a", "^", "2"}], " ", "b"}], "+", RowBox[{"3", " ", "a", " ", RowBox[{"b", "^", "2"}]}], "+", RowBox[{"b", "^", "3"}]}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722695068339*^9}, { 3.497844112201705*^9, 3.497844113416415*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Hauptnenner : Together[]", "Subsection", CellChangeTimes->{{3.495722693831195*^9, 3.495722695862236*^9}, { 3.527844432721084*^9, 3.5278444333747473`*^9}}], Cell[BoxData[ RowBox[{"Together", "[", RowBox[{ RowBox[{"1", "/", "x"}], "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722696856642*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Ausmultiplizieren : Expand[]", "Subsection", CellChangeTimes->{{3.495722693831195*^9, 3.495722697642763*^9}}], Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "^", "5"}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722698354995*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Ausklammern : Collect[]", "Subsection", CellChangeTimes->{{3.495722693831195*^9, 3.495722699279089*^9}}], Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{ RowBox[{"a", "+", RowBox[{"a", "^", "2"}], "+", RowBox[{"3", " ", "a", " ", "x"}], "-", RowBox[{"3", " ", RowBox[{"a", "^", "2"}], " ", "x"}], "+", RowBox[{"3", " ", "a", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"3", " ", RowBox[{"a", "^", "2"}], " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"a", " ", RowBox[{"x", "^", "3"}]}], "-", RowBox[{ RowBox[{"a", "^", "2"}], " ", RowBox[{"x", "^", "3"}]}]}], ",", RowBox[{"{", "a", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722701412583*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Vereinfachungen : Simplify[], FullSimplify[] (vorsichtig verwenden!)\ \>", "Subsection", CellChangeTimes->{{3.495722693831195*^9, 3.495722702538383*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"a", "^", "5"}], "+", RowBox[{"5", " ", RowBox[{"a", "^", "4"}], " ", "b"}], "+", RowBox[{"10", " ", RowBox[{"a", "^", "3"}], " ", RowBox[{"b", "^", "2"}]}], "+", RowBox[{"10", " ", RowBox[{"a", "^", "2"}], " ", RowBox[{"b", "^", "3"}]}], "+", RowBox[{"5", " ", "a", " ", RowBox[{"b", "^", "4"}]}], "+", RowBox[{"b", "^", "5"}]}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722705613304*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}], "^", "2"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", "/", "2"}], "]"}], "^", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722706630956*^9}}], Cell[BoxData[{ RowBox[{"ex1", " ", "=", " ", RowBox[{ RowBox[{"a", "^", "2"}], "*", RowBox[{"b", "^", "2"}], "*", RowBox[{"c", "^", "2"}], RowBox[{ RowBox[{"Cos", "[", "th", "]"}], "^", "2"}]}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", "ex1", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.527503298455948*^9, 3.527503355791315*^9}, { 3.527503390144267*^9, 3.527503395792761*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", "ex1", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", ">", "0"}], ",", RowBox[{ RowBox[{"Pi", "/", "2"}], "<", "th", "<", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527503400604713*^9, 3.527503429828773*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Beispiele", "Subsection", CellChangeTimes->{{3.495722693831195*^9, 3.495722707519696*^9}}], Cell[BoxData[ RowBox[{"ex1", " ", "=", " ", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ")"}], "^", "5"}], "]"}]}]], "Input", CellChangeTimes->{{3.5275028005494833`*^9, 3.527502867841832*^9}}], Cell[BoxData[ RowBox[{"Factor", "[", "ex1", "]"}]], "Input", CellChangeTimes->{{3.527502891294354*^9, 3.52750289654739*^9}, { 3.5275031634970417`*^9, 3.5275031665696898`*^9}}], Cell[BoxData[ RowBox[{"Options", "[", "Factor", "]"}]], "Input", CellChangeTimes->{{3.5275029001612253`*^9, 3.527502903345208*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"\"\\"", " ", "=", " ", RowBox[{"komplexe", " ", "Zahl"}]}], ",", " ", RowBox[{ RowBox[{"wobei", " ", "Real"}], "-", " ", RowBox[{"und", " ", "Imagin\[ADoubleDot]rteil", " ", "Integerzahlen", " ", RowBox[{"sind", "."}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527502907505168*^9, 3.527502912693478*^9}, { 3.527503099085636*^9, 3.527503152451109*^9}, 3.529418313305253*^9}], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{"ex1", ",", RowBox[{"GaussianIntegers", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.52750317606734*^9, 3.52750318613764*^9}}], Cell[BoxData[{ RowBox[{"ex1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "^", "5"}], "*", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "1"}], ")"}], "^", "5"}]}]}], "\[IndentingNewLine]", RowBox[{"Expand", "[", "ex1", "]"}]}], "Input", CellChangeTimes->{{3.5275031992602243`*^9, 3.527503254099669*^9}}], Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{"ex1", ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.527503248593309*^9, 3.52750326623641*^9}}], Cell[BoxData[{ RowBox[{"ex1", " ", "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"a", "^", "2"}], "]"}], "*", RowBox[{"Log", "[", RowBox[{"b", "*", "c"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"Expand", "[", "ex1", "]"}]}], "Input", CellChangeTimes->{{3.527504150829228*^9, 3.527504214891214*^9}}], Cell[BoxData[ RowBox[{"PowerExpand", "[", "ex1", "]"}]], "Input", CellChangeTimes->{{3.527504182178939*^9, 3.527504185947566*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"a", "*", "b"}], "]"}], ",", RowBox[{"PowerExpand", "[", RowBox[{"Log", "[", RowBox[{"a", "*", "b"}], "]"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", RowBox[{ RowBox[{"-", "3"}], "+", "I"}]}], ",", RowBox[{"b", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"I", "*", "2"}]}]}]}], "}"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.531538768130828*^9, 3.531538773948388*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "ex1", "]"}], ";"}]], "Input", CellChangeTimes->{{3.5275028005494833`*^9, 3.527502867841832*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"--", RowBox[{"--", "-"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527504139246681*^9, 3.527504142035825*^9}}], Cell[BoxData[ RowBox[{"ex0", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "^", "2"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", RowBox[{ RowBox[{"x", "^", "3"}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x", "+", "z"}], ")"}], "^", "3"}]}]}], ",", RowBox[{"b", "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "x", "+", "z"}], ")"}]}]}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722708454092*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Integrate", "[", "]"}], ":", " ", RowBox[{"Integration", ":", " ", RowBox[{"siehe", " ", "unten"}]}]}], " ", "*)"}], RowBox[{"ex1", "=", RowBox[{"Integrate", "[", RowBox[{"ex0", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[NotEqual]", "0"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722709453773*^9}, { 3.561626437079328*^9, 3.5616264537385*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", "ex1", "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722710376084*^9}}], Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{"ex1", ",", RowBox[{"{", RowBox[{"Log", "[", "x_", "]"}], "}"}], ",", "Factor"}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722711431033*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ex0", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "/", RowBox[{"(", RowBox[{"a", "-", "b", "-", "c"}], ")"}]}], "+", RowBox[{"b", "/", RowBox[{"(", RowBox[{"a", "-", "b", "-", "c"}], ")"}]}], "+", RowBox[{"c", "/", RowBox[{"(", RowBox[{"a", "-", "b", "-", "c"}], ")"}]}]}], ")"}], "^", "50"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722712909365*^9}, 3.4957229388357*^9, {3.5278458044748383`*^9, 3.5278458066245327`*^9}}], Cell[TextData[{ "Achtung: Die folgenden Laufzeiten k\[ODoubleDot]nnen von der ", StyleBox["Mathematica", FontSlant->"Italic"], "-Version abh\[ADoubleDot]ngen." }], "Text", CellChangeTimes->{{3.495722949269938*^9, 3.495722983214888*^9}}], Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"Simplify", "[", "ex0", "]"}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722714185827*^9}}], Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"FullSimplify", "[", "ex0", "]"}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722715276484*^9}}], Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"Factor", "[", "ex0", "]"}], "]"}]], "Input", CellChangeTimes->{{3.495722693831195*^9, 3.495722716648939*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Analysis", "Section", CellChangeTimes->{{3.494861045273892*^9, 3.494861049304888*^9}}], Cell[CellGroupData[{ Cell["Differenzieren und Integrieren", "Subsection", CellChangeTimes->{{3.495721726022824*^9, 3.495721733945581*^9}, { 3.527561137587817*^9, 3.5275611596970987`*^9}, {3.527845914888609*^9, 3.527845922694295*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Sin", "[", "x", "]"}]}], ";"}], "\n", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ",", RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}]}], "}"}]}], "Input", CellChangeTimes->{{3.5275604769301157`*^9, 3.527560503937055*^9}, 3.527560555973947*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}], ",", "x"}], "]"}], ",", RowBox[{ RowBox[{"f", "''"}], "[", "x", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.527560473881599*^9, 3.52756047403386*^9}, { 3.5275605619746237`*^9, 3.527560588444751*^9}}], Cell[BoxData[ RowBox[{"ex", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "*", "y"}], "+", RowBox[{ RowBox[{"Sin", "[", "y", "]"}], "*", RowBox[{"Cos", "[", "x", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.527560596897221*^9, 3.527560625508919*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{"ex", ",", "x", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{"ex", ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.527560628558906*^9, 3.5275606560198917`*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.527560698641128*^9, 3.527560705084322*^9}, { 3.5275607758357687`*^9, 3.527560778354947*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "*", RowBox[{"Exp", "[", "x", "]"}], "*", RowBox[{"x", "^", "4"}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5275607911462193`*^9, 3.527560810947229*^9}, { 3.5278459925628223`*^9, 3.52784599344096*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "R"}], ",", "R"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"R", "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], ",", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"R", "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527560823641143*^9, 3.5275608988275013`*^9}, { 3.527560994488513*^9, 3.527561001915176*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "R"}], ",", "R"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"R", "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], ",", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"R", "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"R", ">", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.527561015357339*^9, 3.5275610232772913`*^9}}], Cell[BoxData[ RowBox[{"NIntegrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", "*", RowBox[{"Tan", "[", RowBox[{"z", "-", "y"}], "]"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"y", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"1", "-", "x"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"1", "-", RowBox[{"x", "*", "y"}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527561040868657*^9, 3.5275610970381804`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Entwicklungen", "Subsection", CellChangeTimes->{{3.495721726022824*^9, 3.495721733945581*^9}, { 3.527561137587817*^9, 3.5275611596970987`*^9}, {3.5275650057678013`*^9, 3.527565009221971*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", "=", " ", RowBox[{"Tan", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ex1", " ", "=", " ", RowBox[{"Series", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.527565010598908*^9, 3.527565033931675*^9}, { 3.52756507119147*^9, 3.527565076194563*^9}, {3.5275651077838793`*^9, 3.527565149031291*^9}, 3.527846180713745*^9}], Cell[BoxData[ RowBox[{"Expand", "[", "ex1", "]"}]], "Input", CellChangeTimes->{{3.5275650465888653`*^9, 3.527565089674605*^9}}], Cell[BoxData[ RowBox[{"FullForm", "[", "ex1", "]"}]], "Input", CellChangeTimes->{{3.561626685278523*^9, 3.5616266884723682`*^9}}], Cell[BoxData[{ RowBox[{"ex2", "=", RowBox[{"Normal", "[", "ex1", "]"}]}], "\[IndentingNewLine]", RowBox[{"Expand", "[", "ex2", "]"}]}], "Input", CellChangeTimes->{{3.52756509334238*^9, 3.527565122385172*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ex", " ", "=", " ", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "/", "x"}]}], " "}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{"ex", ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{"ex", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.52756516126661*^9, 3.527565229571846*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Weiteres", " ", RowBox[{"Beispiel", ":"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.527561171534524*^9, 3.527561186025021*^9}, 3.529315437839171*^9}], Cell[BoxData[ RowBox[{"ex", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], "]"}], "+", RowBox[{"3", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "+", "x", "+", "1"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.494861091156373*^9, 3.494861116849914*^9}, { 3.494861152574539*^9, 3.494861153797851*^9}, {3.527560406031108*^9, 3.5275604063689404`*^9}}], Cell[BoxData[ RowBox[{"g", " ", "=", " ", RowBox[{"D", "[", RowBox[{"ex", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.494861127762993*^9, 3.494861136653055*^9}, { 3.495774077053941*^9, 3.495774098760324*^9}, {3.527560410055974*^9, 3.527560447776614*^9}}], Cell[BoxData[ RowBox[{"g", "=", RowBox[{"Together", "[", "g", "]"}]}]], "Input", CellChangeTimes->{{3.494861158233772*^9, 3.494861162504927*^9}, { 3.527560415214801*^9, 3.527560426489636*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"g", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.494861172804071*^9, 3.494861191322091*^9}}], Cell[BoxData[ RowBox[{"Series", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.494861204186959*^9, 3.494861212643163*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.494861229703586*^9, 3.494861237542625*^9}}], Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.494861254185006*^9, 3.494861255042122*^9}}], Cell[BoxData[ RowBox[{"NIntegrate", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.49486125702734*^9, 3.494861261938485*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"ex", ",", "ex1", ",", "f", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.5275620038887367`*^9, 3.527562007086595*^9}, { 3.5275650403173857`*^9, 3.5275650409364433`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Differentialgleichungen", "Subsection", CellChangeTimes->{{3.495721726022824*^9, 3.495721733945581*^9}}], Cell[BoxData[ RowBox[{"eq1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], "-", RowBox[{"4", "*", RowBox[{"x", "[", "t", "]"}]}]}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.52756139701266*^9, 3.527561434448956*^9}}], Cell[BoxData[ RowBox[{"sol", "=", RowBox[{"DSolve", "[", " ", RowBox[{"eq1", ",", "x", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.4957741681640463`*^9, 3.49577416859454*^9}, { 3.5275614653223343`*^9, 3.527561471988636*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"x", "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "[", "a", "]"}]], "Input", CellChangeTimes->{{3.4957741629956923`*^9, 3.495774232393629*^9}}], Cell[BoxData[ RowBox[{"sol", "=", RowBox[{"DSolve", "[", " ", RowBox[{"eq1", ",", RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.5275615198284903`*^9, 3.527561520057468*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", "sol"}]], "Input", CellChangeTimes->{{3.527561548927123*^9, 3.527561551135949*^9}}], Cell[BoxData[ RowBox[{"eq2", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "eq1", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "0", "]"}], "==", "x0"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "==", "xp0"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.527561574385284*^9, 3.527561611892602*^9}, { 3.527561679829421*^9, 3.527561710302586*^9}}], Cell[BoxData[ RowBox[{"sol", " ", "=", " ", RowBox[{"DSolve", "[", RowBox[{"eq2", ",", RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.527561615301594*^9, 3.527561643156287*^9}}], Cell[BoxData[ RowBox[{"sol", "//", "Flatten"}]], "Input", CellChangeTimes->{{3.5275617377387133`*^9, 3.5275617418968153`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Numerische", " ", "L\[ODoubleDot]sung", " ", "von", " ", RowBox[{"Differentialgleichungen", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eq1", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "t", "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"y", "[", "t", "]"}], "*", RowBox[{"Sin", "[", RowBox[{"x", "[", "t", "]"}], "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], " ", "\[Equal]", " ", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "t", "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"x", "[", "t", "]"}], "*", RowBox[{"y", "[", "t", "]"}]}]}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"ini", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "0", "]"}], "==", "1"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "==", ".5"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "==", "0.5"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "==", "0"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{ RowBox[{"NDSolve", "[", " ", RowBox[{ RowBox[{"Join", "[", RowBox[{"eq1", ",", "ini"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.527562258448305*^9, 3.527562534158017*^9}, { 3.527562697730523*^9, 3.527562698869375*^9}, {3.527562742739215*^9, 3.527562754861816*^9}, {3.527562964346279*^9, 3.527562965141012*^9}, { 3.527563233080791*^9, 3.527563266204021*^9}, {3.529315445932109*^9, 3.5293154497422247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "sol"}], ")"}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", ".4"}], "}"}]}]], "Input", CellChangeTimes->{{3.527562714949525*^9, 3.527562728919478*^9}, { 3.527562760790637*^9, 3.527562812072504*^9}, {3.531540092373673*^9, 3.5315400924803762`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "sol"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5275628241162777`*^9, 3.52756294432929*^9}, { 3.527562975818026*^9, 3.527562979323298*^9}, {3.527563041713181*^9, 3.5275630804086323`*^9}, {3.5275631162375402`*^9, 3.527563181275375*^9}, { 3.527563253466528*^9, 3.527563261223*^9}, {3.527846706739215*^9, 3.527846735697102*^9}, {3.529315454760371*^9, 3.529315473876478*^9}, { 3.529315528877779*^9, 3.5293155383331137`*^9}, {3.5315400485869513`*^9, 3.5315401600713253`*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "sol"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527563195998889*^9, 3.5275632242824593`*^9}, { 3.527563270315298*^9, 3.527563270411134*^9}, {3.531540036578424*^9, 3.531540040643177*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"eq1", ",", "eq2", ",", "sol"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.527560263090057*^9, 3.527560270145728*^9}, { 3.5275614142088833`*^9, 3.5275614147571487`*^9}, {3.527561988110593*^9, 3.5275620171147738`*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Lineare Algebra", "Section", CellChangeTimes->{{3.495721810406929*^9, 3.495721815898648*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "v1", ",", "v2", ",", "x1", ",", "x2", ",", "y1", ",", "y2", ",", "z1", ",", "z2", ",", "m"}], "]"}]], "Input", CellChangeTimes->{{3.4957218285609*^9, 3.4957218613037*^9}, { 3.495721896655617*^9, 3.495721925338078*^9}, {3.495783960046899*^9, 3.495784023028182*^9}, 3.497841129042074*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Liste", " ", "=", " ", RowBox[{"Vektor", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v1", " ", "=", " ", RowBox[{"{", RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", " ", "=", " ", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Skalar", "-", " ", RowBox[{"und", " ", RowBox[{"Vektorprodukt", ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"v1", ".", "v2"}]}]}]], "Input", CellChangeTimes->{{3.4957218285609*^9, 3.4957218613037*^9}, { 3.495721896655617*^9, 3.495721925338078*^9}, {3.495783960046899*^9, 3.495784032044961*^9}, {3.497842060807296*^9, 3.4978420940142317`*^9}}], Cell[BoxData[ RowBox[{"Cross", "[", RowBox[{"v1", ",", "v2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Beachte", ":", " ", RowBox[{"\"\<*\>\"", " ", "macht", " ", "etwas", " ", RowBox[{"anderes", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"v1", "*", "v2"}]}]], "Input", CellChangeTimes->{{3.4957842310604677`*^9, 3.495784251760845*^9}, { 3.497842100387229*^9, 3.497842117513455*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Zwei", "-", RowBox[{"dimensionale", " ", "Liste"}]}], " ", "=", " ", RowBox[{"Matrix", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"m", " ", "=", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "5", ",", RowBox[{"-", "6"}]}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "6"}], ",", "7"}], "}"}]}], " ", "}"}]}]}]], "Input", CellChangeTimes->{{3.495721939884739*^9, 3.495721949837946*^9}, { 3.495721982523587*^9, 3.495722030416778*^9}, {3.495722154171758*^9, 3.495722159855151*^9}, {3.495722224798703*^9, 3.495722224964323*^9}, { 3.495722267653687*^9, 3.495722267946663*^9}, {3.495784035080941*^9, 3.495784048927904*^9}, {3.495784489816442*^9, 3.495784490061967*^9}, { 3.4957845464809017`*^9, 3.495784564741817*^9}, {3.497842130959989*^9, 3.497842145985876*^9}, 3.527846817390283*^9}], Cell[BoxData[ RowBox[{"MatrixForm", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.495721953679878*^9, 3.495721956395459*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Zugriff", " ", "auf", " ", "Elemente", " ", "von", " ", "mehrdimensionalen", " ", RowBox[{"Arrays", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"m", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.495784052583872*^9, 3.495784057266202*^9}, { 3.495784290855608*^9, 3.495784307113655*^9}, {3.497842155392642*^9, 3.497842209347704*^9}, {3.527846840577689*^9, 3.527846854341313*^9}}], Cell[BoxData[ RowBox[{"Det", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.495721997385797*^9, 3.495721998652738*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Inverse", "[", RowBox[{"m", "+", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.49572204460479*^9, 3.495722046687599*^9}, { 3.495722128905636*^9, 3.495722135841273*^9}, 3.495722290039651*^9, { 3.495722323777156*^9, 3.495722331099584*^9}, 3.495722438822582*^9, { 3.495722481861822*^9, 3.495722526943533*^9}}], Cell[BoxData[ RowBox[{"Eigenvalues", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.495722048957062*^9, 3.49572206715746*^9}, { 3.495722181579781*^9, 3.495722192892135*^9}, {3.495784529024372*^9, 3.4957845294604197`*^9}, {3.4957845714620523`*^9, 3.495784571803816*^9}}], Cell[BoxData[ RowBox[{"Eigenvectors", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.49572207769632*^9, 3.495722081216898*^9}, { 3.4957845405701036`*^9, 3.4957845412868443`*^9}, {3.495784574878512*^9, 3.495784575207074*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"m", ",", "v1", ",", "v2"}], "]"}]], "Input", CellChangeTimes->{{3.497843903719881*^9, 3.49784392556912*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Mathematica als Programmiersprache", "Section", CellChangeTimes->{{3.495689177538385*^9, 3.495689186478064*^9}, { 3.495690220978888*^9, 3.49569022228075*^9}, 3.495723954140832*^9}], Cell[CellGroupData[{ Cell["Zusammengesetzte Ausdr\[UDoubleDot]cke", "Subsection", CellChangeTimes->{{3.495689321869487*^9, 3.495689332366598*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fac", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fac", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "n"}], "]"}], ";", RowBox[{"n", "*", RowBox[{"fac", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], ")"}]}]}], "Input", CellChangeTimes->{{3.495689229407143*^9, 3.495689229848941*^9}}], Cell[BoxData[ RowBox[{"fac", "[", "3", "]"}]], "Input", CellChangeTimes->{{3.495689235001028*^9, 3.495689236949842*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "fac", "]"}]], "Input", CellChangeTimes->{{3.49568925649418*^9, 3.495689258730041*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Bedingungen und Verzweigungen", "Subsection", CellChangeTimes->{{3.495689353839832*^9, 3.495689364318421*^9}, { 3.495723973316712*^9, 3.495723977436385*^9}}], Cell[CellGroupData[{ Cell["If", "Subsubsection", CellChangeTimes->{3.495689411494316*^9}], Cell[BoxData[ RowBox[{ RowBox[{"delta", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"x", "\[Equal]", "y"}], ",", "1", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, 3.495689457558168*^9, {3.495689536436102*^9, 3.495689541878329*^9}}], Cell[BoxData[ RowBox[{"delta", "[", RowBox[{"a", ",", "a"}], "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, 3.495689457558168*^9, {3.495689536436102*^9, 3.495689550680923*^9}, {3.495689649535065*^9, 3.49568964987831*^9}}], Cell[BoxData[ RowBox[{"delta", "[", RowBox[{"1", ",", "2"}], "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, 3.495689457558168*^9, {3.495689536436102*^9, 3.495689564256834*^9}, {3.495689663757847*^9, 3.495689663826369*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"x", ">", "0"}], ",", RowBox[{ RowBox[{"Print", "[", "\"\0\>\"", "]"}], ";", "1"}], ",", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";", "0"}]}], "]"}]}]], "Input", CellChangeTimes->{3.49568968272006*^9}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"-", "1"}], "]"}]], "Input", CellChangeTimes->{{3.495689689609408*^9, 3.495689691393752*^9}}], Cell[BoxData[ RowBox[{"f", "[", "10", "]"}]], "Input", CellChangeTimes->{{3.495689693481946*^9, 3.495689694756748*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"delta", ",", "f"}], "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, 3.495689457558168*^9, {3.495689536436102*^9, 3.495689624072024*^9}, {3.495689699961469*^9, 3.495689711939151*^9}, { 3.53081162766437*^9, 3.530811630297624*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Which", "Subsubsection", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9}], Cell[BoxData[ RowBox[{ RowBox[{"sel", "[", "a_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"a", "\[Equal]", "1"}], ",", "1", ",", RowBox[{"a", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"a", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";", "100"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495723460225369*^9, 3.495723576852482*^9}, { 3.530811673261552*^9, 3.5308116885674334`*^9}}], Cell[BoxData[ RowBox[{"sel", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.495723516093383*^9, 3.495723518783973*^9}}], Cell[BoxData[ RowBox[{"sel", "[", RowBox[{"-", "2"}], "]"}]], "Input", CellChangeTimes->{{3.495723520671609*^9, 3.495723522270684*^9}}], Cell[BoxData[ RowBox[{"sel", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.495723531444639*^9, 3.495723532850979*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "sel", "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, {3.495690183024807*^9, 3.495690186508885*^9}, { 3.49572358688464*^9, 3.49572359810225*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Bedingungen", "Subsubsection", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, {3.495690183024807*^9, 3.495690186508885*^9}, { 3.495723738823625*^9, 3.495723745349259*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Equal]", "a"}], ",", RowBox[{"a", "\[Equal]", "b"}]}], "}"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723776481137*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "===", "a"}], ",", RowBox[{"a", "===", "b"}]}], "}"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723808179756*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"NumberQ", "[", "3.14", "]"}], ",", RowBox[{"NumberQ", "[", "Pi", "]"}]}], "}"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723835317483*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"NumericQ", "[", "3.14", "]"}], ",", RowBox[{"NumericQ", "[", "Pi", "]"}]}], "}"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723853346235*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"a", "+", "b"}], "]"}], ",", "a"}], "]"}], ",", RowBox[{"FreeQ", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"b", "+", "c"}], "]"}], ",", "a"}], "]"}]}], "}"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723884915235*^9}}], Cell[BoxData[ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"a_", "^", "b_"}]}], "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723900028506*^9}}], Cell[BoxData[ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"1", "/", "x"}], ",", RowBox[{"a_", "^", "b_"}]}], "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723901748574*^9}}], Cell[BoxData[ RowBox[{"MatchQ", "[", RowBox[{"x", ",", RowBox[{"a_", "^", "b_"}]}], "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689474986986*^9}, 3.495689518836585*^9, 3.495690183024807*^9, {3.495723766893888*^9, 3.495723908075669*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Switch", "Subsubsection", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689487128238*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"Switch", "[", RowBox[{ "x", ",", "_Plus", ",", "\"\\"", ",", "_Times", ",", "\"\\"", ",", "_", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.49585020700429*^9, 3.4958502327643023`*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", "+", "b"}], "]"}]], "Input", CellChangeTimes->{{3.495723663573984*^9, 3.495723665039481*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", "*", "b"}], "]"}]], "Input", CellChangeTimes->{{3.495723668415852*^9, 3.495723670998464*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", "-", "b"}], "]"}]], "Input", CellChangeTimes->{{3.495723673211523*^9, 3.495723676603438*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", "/", "b"}], "]"}]], "Input", CellChangeTimes->{{3.495723678474753*^9, 3.495723680974634*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", "^", "2"}], "]"}]], "Input", CellChangeTimes->{{3.495723683072252*^9, 3.495723704227454*^9}}], Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"a", "^", "2"}], "]"}]], "Input", CellChangeTimes->{{3.561627461452775*^9, 3.561627464849078*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{ 3.495689411494316*^9, {3.495689457558168*^9, 3.495689487128238*^9}, { 3.495723718356957*^9, 3.495723720792562*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Schleifen", "Subsection", CellChangeTimes->{{3.495765695869096*^9, 3.49576570135537*^9}}], Cell[CellGroupData[{ Cell["Do", "Subsubsection"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", " ", RowBox[{"x", "^", "i"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "11", ",", "19"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4957657610671787`*^9, 3.495765819490645*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["While", "Subsubsection"], Cell[BoxData[{ RowBox[{ RowBox[{"list", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], ";"}], "\n", RowBox[{"While", "[", RowBox[{ RowBox[{"list", "!=", RowBox[{"{", "}"}]}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{"First", "[", "list", "]"}], "]"}], ";", RowBox[{"list", "=", RowBox[{"Rest", "[", "list", "]"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.495765878461936*^9, 3.49576590338201*^9}}], Cell[BoxData[{ RowBox[{"?", "First"}], "\[IndentingNewLine]", RowBox[{"?", "Rest"}]}], "Input", CellChangeTimes->{{3.495765906026033*^9, 3.495765930648134*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Entspricht", " ", RowBox[{"list", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{"bzw", ".", " ", RowBox[{"list", "[", RowBox[{"[", RowBox[{"2", ";;"}], "]"}], "]"}], "."}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5278474152497463`*^9, 3.5278474450826797`*^9}, { 3.529314032253147*^9, 3.5293140507644053`*^9}}], Cell[BoxData[{ RowBox[{"list2", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "\[IndentingNewLine]", RowBox[{"First", "[", "list2", "]"}], "\[IndentingNewLine]", RowBox[{"list2", "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Rest", "[", "list2", "]"}], "\[IndentingNewLine]", RowBox[{"list2", "[", RowBox[{"[", RowBox[{"2", ";;"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.527847449057501*^9, 3.527847523761462*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"list", ",", "list2"}], "]"}]], "Input", CellChangeTimes->{{3.495765943434105*^9, 3.4957659437018213`*^9}, { 3.527847536232397*^9, 3.527847537176873*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["For", "Subsubsection"], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "5"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Print", "[", RowBox[{"x", "^", "i"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"i", "=", "0"}], ";", RowBox[{"j", "=", "1"}]}], ",", RowBox[{ RowBox[{"i", "+", "j"}], "<", "20"}], ",", RowBox[{ RowBox[{"i", "++"}], ";", RowBox[{"j", "*=", "2"}]}], ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"x", "^", "i"}], "+", RowBox[{"y", "^", "j"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"i", ",", "j"}], "]"}]], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Functions", "Subsection", CellChangeTimes->{{3.443168909756336*^9, 3.4431689122699504`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"f1", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "2"}]}], "\n", RowBox[{"f1", "[", "z", "]"}]}], "Input", CellChangeTimes->{{3.495766131223126*^9, 3.495766136387207*^9}, 3.497844470783074*^9, {3.527847663509742*^9, 3.527847664859827*^9}}], Cell[BoxData[{ RowBox[{"f2", "=", RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{"x", "^", "2"}]}], "]"}]}], "\n", RowBox[{"f2", "[", "z", "]"}]}], "Input", CellChangeTimes->{3.4957661579583397`*^9, 3.497844477734667*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "3"}]}]}], "]"}], "[", RowBox[{ RowBox[{"a", "+", "b"}], ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.495766203750473*^9, 3.495766227688368*^9}}], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f2", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.495766262970139*^9, 3.495766274028656*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f1", ",", "f2"}], "]"}]], "Input", CellChangeTimes->{{3.495766285515284*^9, 3.4957662875018997`*^9}}], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{"x", "^", "2"}]}], "]"}], ",", RowBox[{"a", "+", "b", "+", "c"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"?", "Select"}]], "Input", CellChangeTimes->{{3.495766332251211*^9, 3.495766333588707*^9}}], Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{"x", ">", "4"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "3", ",", "6"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", ">", "4"}], ")"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.53081188896504*^9, 3.530811908897524*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Module: Subroutinen/Prozeduren", "Subsection", CellChangeTimes->{{3.4431759714986672`*^9, 3.44317597587496*^9}, { 3.495766494017701*^9, 3.4957664960356216`*^9}, {3.495766537566743*^9, 3.495766544988859*^9}, {3.5275601747814198`*^9, 3.527560176507037*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Module", " ", "erlaubt", " ", "es"}], ",", " ", RowBox[{"lokale", " ", "Variablen", " ", "zu", " ", RowBox[{"definieren", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"printlist", "[", "li_", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "li", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "i", ",", "\"\<. Element lautet: \>\"", ",", RowBox[{"li", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellChangeTimes->{{3.495766583964128*^9, 3.495766631744121*^9}, { 3.495766669561082*^9, 3.495766670869514*^9}, {3.495766700939032*^9, 3.495766732429208*^9}, {3.4957667713219023`*^9, 3.4957667715161*^9}, { 3.495785618769354*^9, 3.4957856322229548`*^9}, {3.497844533593047*^9, 3.497844547246736*^9}, {3.527847766579*^9, 3.527847775308598*^9}, { 3.5293156890195217`*^9, 3.529315692295269*^9}}], Cell[BoxData[ RowBox[{"printlist", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "11", ",", "101", ",", "1001", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.495766743146208*^9, 3.495766789663652*^9}}] }, Closed]] }, Closed]] }, Open ]] }, WindowSize->{1016, 741}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{611.28, 789.57}, "PostScriptOutputFile"->"kap_I_intro.nb.ps"}, ShowSelection->True, FrontEndVersion->"8.0 for Linux x86 (64-bit) (October 10, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 425, 9, 54, "Subtitle"], Cell[995, 33, 1497, 28, 69, "Input"], Cell[2495, 63, 486, 7, 30, "Input"], Cell[CellGroupData[{ Cell[3006, 74, 98, 1, 74, "Section"], Cell[3107, 77, 434, 8, 24, "Item"], Cell[3544, 87, 170, 3, 30, "Input"], Cell[3717, 92, 166, 3, 24, "Item"], Cell[3886, 97, 162, 3, 30, "Input"], Cell[4051, 102, 163, 3, 30, "Input"], Cell[CellGroupData[{ Cell[4239, 109, 338, 5, 24, "Item"], Cell[4580, 116, 147, 2, 43, "Item"], Cell[4730, 120, 257, 5, 43, "Item"] }, Closed]], Cell[5002, 128, 114, 2, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5153, 135, 152, 2, 44, "Section"], Cell[5308, 139, 1051, 21, 127, "Input"], Cell[6362, 162, 399, 9, 90, "Input"], Cell[6764, 173, 430, 9, 90, "Input"], Cell[7197, 184, 381, 8, 90, "Input"], Cell[7581, 194, 747, 19, 164, "Input"], Cell[8331, 215, 484, 10, 90, "Input"], Cell[8818, 227, 588, 11, 90, "Input"], Cell[9409, 240, 121, 2, 52, "Input"], Cell[9533, 244, 196, 4, 52, "Input"], Cell[9732, 250, 189, 5, 52, "Input"], Cell[9924, 257, 490, 12, 52, "Input"], Cell[10417, 271, 156, 3, 52, "Input"], Cell[10576, 276, 114, 2, 52, "Input"], Cell[10693, 280, 473, 12, 52, "Input"], Cell[11169, 294, 285, 8, 52, "Input"], Cell[11457, 304, 123, 2, 52, "Input"], Cell[11583, 308, 150, 3, 52, "Input"], Cell[11736, 313, 109, 2, 52, "Input"], Cell[11848, 317, 143, 3, 52, "Input"], Cell[11994, 322, 71, 1, 52, "Input"], Cell[12068, 325, 259, 8, 52, "Input"], Cell[12330, 335, 327, 9, 52, "Input"], Cell[12660, 346, 395, 9, 90, "Input"], Cell[13058, 357, 724, 13, 90, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[13819, 375, 91, 1, 44, "Section"], Cell[13913, 378, 383, 9, 90, "Input"], Cell[14299, 389, 117, 2, 52, "Input"], Cell[14419, 393, 115, 2, 52, "Input"], Cell[14537, 397, 164, 4, 52, "Input"], Cell[14704, 403, 143, 3, 52, "Input"], Cell[14850, 408, 143, 3, 52, "Input"], Cell[14996, 413, 126, 2, 52, "Input"], Cell[15125, 417, 122, 2, 52, "Input"], Cell[15250, 421, 198, 4, 52, "Input"], Cell[15451, 427, 996, 24, 90, "Input"], Cell[16450, 453, 209, 5, 52, "Input"], Cell[16662, 460, 197, 4, 52, "Input"], Cell[16862, 466, 386, 9, 90, "Input"], Cell[17251, 477, 368, 9, 90, "Input"], Cell[17622, 488, 220, 5, 52, "Input"], Cell[17845, 495, 217, 5, 52, "Input"], Cell[18065, 502, 144, 3, 52, "Input"], Cell[18212, 507, 365, 9, 90, "Input"], Cell[18580, 518, 127, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[18744, 525, 92, 1, 44, "Section"], Cell[18839, 528, 262, 5, 52, "Input"], Cell[19104, 535, 256, 6, 52, "Input"], Cell[19363, 543, 257, 5, 52, "Input"], Cell[19623, 550, 196, 4, 52, "Input"], Cell[19822, 556, 163, 3, 52, "Input"], Cell[19988, 561, 227, 4, 52, "Input"], Cell[20218, 567, 474, 12, 52, "Input"], Cell[20695, 581, 308, 9, 52, "Input"], Cell[21006, 592, 127, 2, 52, "Input"], Cell[21136, 596, 173, 3, 52, "Input"], Cell[21312, 601, 195, 4, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[21544, 610, 106, 1, 44, "Section"], Cell[21653, 613, 218, 4, 52, "Input"], Cell[21874, 619, 378, 8, 90, "Input"], Cell[22255, 629, 140, 3, 52, "Input"], Cell[22398, 634, 146, 3, 52, "Input"], Cell[22547, 639, 146, 3, 52, "Input"], Cell[22696, 644, 394, 8, 90, "Input"], Cell[23093, 654, 488, 11, 90, "Input"], Cell[23584, 667, 545, 12, 90, "Input"], Cell[24132, 681, 607, 13, 90, "Input"], Cell[24742, 696, 146, 3, 52, "Input"], Cell[24891, 701, 146, 3, 52, "Input"], Cell[25040, 706, 231, 6, 52, "Input"], Cell[25274, 714, 127, 2, 52, "Input"], Cell[25404, 718, 528, 11, 90, "Input"], Cell[25935, 731, 227, 5, 52, "Input"], Cell[26165, 738, 858, 19, 127, "Input"], Cell[27026, 759, 298, 8, 52, "Input"], Cell[27327, 769, 449, 10, 90, "Input"], Cell[27779, 781, 123, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[27939, 788, 172, 2, 44, "Section"], Cell[28114, 792, 204, 4, 52, "Input"], Cell[28321, 798, 546, 13, 90, "Input"], Cell[28870, 813, 408, 8, 90, "Input"], Cell[29281, 823, 696, 15, 164, "Input"], Cell[29980, 840, 173, 4, 52, "Input"], Cell[30156, 846, 173, 4, 52, "Input"], Cell[30332, 852, 474, 8, 52, "Input"], Cell[30809, 862, 604, 12, 90, "Input"], Cell[31416, 876, 657, 16, 90, "Input"], Cell[32076, 894, 233, 6, 52, "Input"], Cell[32312, 902, 319, 9, 52, "Input"], Cell[32634, 913, 483, 9, 90, "Input"], Cell[33120, 924, 126, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[33283, 931, 154, 2, 44, "Section"], Cell[33440, 935, 283, 8, 30, "Input"], Cell[33726, 945, 1155, 34, 50, "Input"], Cell[34884, 981, 401, 12, 30, "Input"], Cell[35288, 995, 826, 21, 30, "Input"], Cell[36117, 1018, 115, 2, 30, "Input"], Cell[36235, 1022, 862, 25, 50, "Input"], Cell[37100, 1049, 652, 19, 30, "Input"], Cell[37755, 1070, 843, 27, 50, "Input"], Cell[38601, 1099, 645, 18, 30, "Input"], Cell[39249, 1119, 127, 2, 30, "Input"], Cell[39379, 1123, 370, 9, 30, "Input"], Cell[39752, 1134, 124, 2, 30, "Input"], Cell[39879, 1138, 375, 10, 30, "Input"], Cell[40257, 1150, 880, 17, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[41174, 1172, 162, 2, 44, "Section"], Cell[41339, 1176, 245, 6, 52, "Input"], Cell[41587, 1184, 207, 5, 52, "Input"], Cell[41797, 1191, 148, 3, 52, "Input"], Cell[41948, 1196, 120, 2, 52, "Input"], Cell[42071, 1200, 288, 8, 52, "Input"], Cell[42362, 1210, 170, 4, 52, "Input"], Cell[42535, 1216, 170, 3, 52, "Input"], Cell[42708, 1221, 246, 6, 52, "Input"], Cell[42957, 1229, 289, 8, 52, "Input"], Cell[43249, 1239, 121, 2, 52, "Input"], Cell[43373, 1243, 121, 2, 52, "Input"], Cell[43497, 1247, 284, 8, 52, "Input"], Cell[43784, 1257, 283, 8, 52, "Input"], Cell[44070, 1267, 225, 6, 52, "Input"], Cell[44298, 1275, 173, 3, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[44508, 1283, 96, 1, 44, "Section"], Cell[44607, 1286, 247, 6, 52, "Input"], Cell[44857, 1294, 305, 8, 52, "Input"], Cell[45165, 1304, 282, 6, 52, "Input"], Cell[45450, 1312, 193, 4, 52, "Input"], Cell[45646, 1318, 220, 5, 52, "Input"], Cell[45869, 1325, 125, 2, 52, "Input"], Cell[45997, 1329, 435, 13, 52, "Input"], Cell[46435, 1344, 196, 5, 52, "Input"], Cell[46634, 1351, 304, 10, 52, "Input"], Cell[46941, 1363, 211, 4, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[47189, 1372, 95, 1, 44, "Section"], Cell[47287, 1375, 230, 5, 50, "Input"], Cell[CellGroupData[{ Cell[47542, 1384, 125, 1, 47, "Subsubsection"], Cell[47670, 1387, 303, 9, 52, "Input"], Cell[47976, 1398, 254, 8, 52, "Input"], Cell[48233, 1408, 138, 3, 52, "Input"], Cell[48374, 1413, 69, 1, 52, "Input"], Cell[48446, 1416, 69, 1, 52, "Input"], Cell[48518, 1419, 101, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[48656, 1426, 101, 1, 36, "Subsubsection"], Cell[48760, 1429, 553, 18, 85, "Input"], Cell[49316, 1449, 143, 3, 50, "Input"], Cell[49462, 1454, 143, 3, 50, "Input"], Cell[49608, 1459, 146, 3, 50, "Input"], Cell[49757, 1464, 335, 9, 119, "Input"], Cell[50095, 1475, 626, 17, 119, "Input"], Cell[50724, 1494, 111, 2, 50, "Input"], Cell[50838, 1498, 122, 2, 50, "Input"], Cell[50963, 1502, 111, 2, 50, "Input"], Cell[51077, 1506, 126, 2, 50, "Input"], Cell[51206, 1510, 156, 3, 48, "Text"], Cell[51365, 1515, 1214, 29, 221, "Input"], Cell[52582, 1546, 175, 3, 50, "Input"], Cell[52760, 1551, 1108, 33, 255, "Input"], Cell[53871, 1586, 126, 2, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[54034, 1593, 129, 1, 36, "Subsubsection"], Cell[54166, 1596, 457, 10, 119, "Input"], Cell[54626, 1608, 428, 10, 50, "Input"], Cell[55057, 1620, 245, 5, 50, "Input"], Cell[55305, 1627, 484, 13, 85, "Input"], Cell[55792, 1642, 344, 10, 85, "Input"], Cell[56139, 1654, 534, 16, 119, "Input"], Cell[56676, 1672, 209, 5, 50, "Input"], Cell[56888, 1679, 502, 12, 119, "Input"], Cell[57393, 1693, 776, 22, 119, "Input"], Cell[58172, 1717, 533, 15, 85, "Input"], Cell[58708, 1734, 434, 14, 85, "Input"], Cell[CellGroupData[{ Cell[59167, 1752, 157, 3, 50, "Input"], Cell[59327, 1757, 631, 20, 75, "Output"] }, Closed]], Cell[59973, 1780, 407, 10, 85, "Input"], Cell[60383, 1792, 349, 11, 50, "Input"], Cell[60735, 1805, 481, 13, 85, "Input"], Cell[61219, 1820, 115, 2, 50, "Input"], Cell[61337, 1824, 114, 2, 50, "Input"], Cell[61454, 1828, 681, 19, 119, "Input"], Cell[62138, 1849, 230, 5, 50, "Input"], Cell[62371, 1856, 359, 10, 85, "Input"], Cell[62733, 1868, 175, 4, 50, "Input"], Cell[62911, 1874, 948, 26, 153, "Input"], Cell[63862, 1902, 318, 8, 50, "Input"], Cell[64183, 1912, 797, 17, 187, "Input"], Cell[64983, 1931, 327, 5, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[65359, 1942, 162, 2, 44, "Section"], Cell[65524, 1946, 163, 3, 50, "Input"], Cell[CellGroupData[{ Cell[65712, 1953, 111, 1, 47, "Subsubsection"], Cell[65826, 1956, 669, 20, 85, "Input"], Cell[66498, 1978, 1238, 41, 119, "Input"], Cell[67739, 2021, 152, 3, 50, "Input"], Cell[67894, 2026, 399, 10, 85, "Input"], Cell[68296, 2038, 343, 9, 50, "Input"], Cell[68642, 2049, 246, 4, 85, "Input"], Cell[68891, 2055, 450, 13, 50, "Input"], Cell[69344, 2070, 452, 13, 50, "Input"], Cell[69799, 2085, 1001, 29, 153, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[70837, 2119, 100, 1, 47, "Subsubsection"], Cell[70940, 2122, 365, 12, 50, "Input"], Cell[71308, 2136, 116, 2, 50, "Input"], Cell[71427, 2140, 445, 13, 50, "Input"], Cell[71875, 2155, 151, 3, 50, "Input"], Cell[72029, 2160, 205, 4, 50, "Input"], Cell[72237, 2166, 379, 12, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[72653, 2183, 127, 1, 47, "Subsubsection"], Cell[72783, 2186, 256, 7, 50, "Input"], Cell[73042, 2195, 251, 7, 50, "Input"], Cell[73296, 2204, 418, 10, 119, "Input"], Cell[73717, 2216, 117, 2, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[73883, 2224, 124, 1, 44, "Section"], Cell[CellGroupData[{ Cell[74032, 2229, 89, 1, 66, "Subsection"], Cell[74124, 2232, 383, 10, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[74544, 2247, 163, 2, 66, "Subsection"], Cell[74710, 2251, 249, 7, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[74996, 2263, 116, 1, 66, "Subsection"], Cell[75115, 2266, 197, 5, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[75349, 2276, 111, 1, 66, "Subsection"], Cell[75463, 2279, 654, 19, 85, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[76154, 2303, 164, 4, 112, "Subsection"], Cell[76321, 2309, 526, 15, 85, "Input"], Cell[76850, 2326, 336, 10, 50, "Input"], Cell[77189, 2338, 440, 11, 85, "Input"], Cell[77632, 2351, 328, 10, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[77997, 2366, 97, 1, 66, "Subsection"], Cell[78097, 2369, 264, 7, 50, "Input"], Cell[78364, 2378, 179, 3, 50, "Input"], Cell[78546, 2383, 133, 2, 50, "Input"], Cell[78682, 2387, 486, 10, 85, "Input"], Cell[79171, 2399, 196, 4, 50, "Input"], Cell[79370, 2405, 366, 10, 85, "Input"], Cell[79739, 2417, 149, 3, 50, "Input"], Cell[79891, 2422, 327, 8, 85, "Input"], Cell[80221, 2432, 132, 2, 50, "Input"], Cell[80356, 2436, 593, 19, 85, "Input"], Cell[80952, 2457, 146, 3, 50, "Input"], Cell[81101, 2462, 166, 4, 50, "Input"], Cell[81270, 2468, 628, 20, 119, "Input"], Cell[81901, 2490, 608, 17, 85, "Input"], Cell[82512, 2509, 129, 2, 50, "Input"], Cell[82644, 2513, 223, 5, 50, "Input"], Cell[82870, 2520, 628, 18, 50, "Input"], Cell[83501, 2540, 242, 6, 81, "Text"], Cell[83746, 2548, 162, 3, 50, "Input"], Cell[83911, 2553, 166, 3, 50, "Input"], Cell[84080, 2558, 160, 3, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[84289, 2567, 93, 1, 44, "Section"], Cell[CellGroupData[{ Cell[84407, 2572, 218, 3, 66, "Subsection"], Cell[84628, 2577, 671, 21, 85, "Input"], Cell[85302, 2600, 656, 21, 85, "Input"], Cell[85961, 2623, 286, 8, 50, "Input"], Cell[86250, 2633, 376, 11, 50, "Input"], Cell[86629, 2646, 233, 5, 50, "Input"], Cell[86865, 2653, 326, 8, 50, "Input"], Cell[87194, 2663, 610, 18, 85, "Input"], Cell[87807, 2683, 662, 20, 119, "Input"], Cell[88472, 2705, 659, 20, 85, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[89168, 2730, 203, 3, 66, "Subsection"], Cell[89374, 2735, 539, 13, 85, "Input"], Cell[89916, 2750, 129, 2, 50, "Input"], Cell[90048, 2754, 131, 2, 50, "Input"], Cell[90182, 2758, 215, 4, 85, "Input"], Cell[90400, 2764, 460, 13, 119, "Input"], Cell[90863, 2779, 209, 5, 50, "Input"], Cell[91075, 2786, 433, 12, 50, "Input"], Cell[91511, 2800, 276, 6, 50, "Input"], Cell[91790, 2808, 199, 4, 50, "Input"], Cell[91992, 2814, 151, 3, 50, "Input"], Cell[92146, 2819, 207, 5, 50, "Input"], Cell[92356, 2826, 210, 5, 50, "Input"], Cell[92569, 2833, 120, 2, 50, "Input"], Cell[92692, 2837, 210, 5, 50, "Input"], Cell[92905, 2844, 225, 4, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[93167, 2853, 111, 1, 66, "Subsection"], Cell[93281, 2856, 288, 8, 50, "Input"], Cell[93572, 2866, 243, 5, 50, "Input"], Cell[93818, 2873, 228, 6, 50, "Input"], Cell[94049, 2881, 223, 5, 50, "Input"], Cell[94275, 2888, 146, 3, 50, "Input"], Cell[94424, 2893, 462, 14, 50, "Input"], Cell[94889, 2909, 226, 5, 50, "Input"], Cell[95118, 2916, 128, 2, 50, "Input"], Cell[95249, 2920, 2090, 58, 187, "Input"], Cell[97342, 2980, 435, 12, 50, "Input"], Cell[97780, 2994, 789, 18, 85, "Input"], Cell[98572, 3014, 458, 12, 50, "Input"], Cell[99033, 3028, 286, 6, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[99368, 3040, 100, 1, 44, "Section"], Cell[99471, 3043, 350, 7, 50, "Input"], Cell[99824, 3052, 902, 23, 221, "Input"], Cell[100729, 3077, 83, 2, 50, "Input"], Cell[100815, 3081, 367, 8, 85, "Input"], Cell[101185, 3091, 1128, 27, 85, "Input"], Cell[102316, 3120, 129, 2, 50, "Input"], Cell[102448, 3124, 520, 12, 119, "Input"], Cell[102971, 3138, 122, 2, 50, "Input"], Cell[103096, 3142, 485, 11, 50, "Input"], Cell[103584, 3155, 277, 4, 50, "Input"], Cell[103864, 3161, 232, 4, 50, "Input"], Cell[104099, 3167, 158, 3, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[104294, 3175, 190, 2, 44, "Section"], Cell[CellGroupData[{ Cell[104509, 3181, 126, 1, 66, "Subsection"], Cell[104638, 3184, 449, 13, 85, "Input"], Cell[105090, 3199, 122, 2, 50, "Input"], Cell[105215, 3203, 125, 2, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[105377, 3210, 166, 2, 66, "Subsection"], Cell[CellGroupData[{ Cell[105568, 3216, 69, 1, 47, "Subsubsection"], Cell[105640, 3219, 320, 9, 50, "Input"], Cell[105963, 3230, 243, 5, 50, "Input"], Cell[106209, 3237, 244, 5, 50, "Input"], Cell[106456, 3244, 353, 11, 50, "Input"], Cell[106812, 3257, 138, 3, 50, "Input"], Cell[106953, 3262, 121, 2, 50, "Input"], Cell[107077, 3266, 297, 6, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[107411, 3277, 147, 3, 47, "Subsubsection"], Cell[107561, 3282, 516, 14, 85, "Input"], Cell[108080, 3298, 122, 2, 50, "Input"], Cell[108205, 3302, 140, 3, 50, "Input"], Cell[108348, 3307, 122, 2, 50, "Input"], Cell[108473, 3311, 271, 5, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[108781, 3321, 249, 4, 47, "Subsubsection"], Cell[109033, 3327, 323, 8, 50, "Input"], Cell[109359, 3337, 313, 8, 50, "Input"], Cell[109675, 3347, 335, 8, 50, "Input"], Cell[110013, 3357, 337, 8, 50, "Input"], Cell[110353, 3367, 497, 14, 50, "Input"], Cell[110853, 3383, 321, 8, 50, "Input"], Cell[111177, 3393, 321, 8, 50, "Input"], Cell[111501, 3403, 297, 7, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[111835, 3415, 122, 2, 47, "Subsubsection"], Cell[111960, 3419, 351, 8, 119, "Input"], Cell[112314, 3429, 143, 3, 50, "Input"], Cell[112460, 3434, 143, 3, 50, "Input"], Cell[112606, 3439, 143, 3, 50, "Input"], Cell[112752, 3444, 143, 3, 50, "Input"], Cell[112898, 3449, 143, 3, 50, "Input"], Cell[113044, 3454, 150, 3, 50, "Input"], Cell[113197, 3459, 199, 4, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[113445, 3469, 96, 1, 66, "Subsection"], Cell[CellGroupData[{ Cell[113566, 3474, 27, 0, 47, "Subsubsection"], Cell[113596, 3476, 275, 7, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[113908, 3488, 30, 0, 47, "Subsubsection"], Cell[113941, 3490, 470, 14, 85, "Input"], Cell[114414, 3506, 164, 3, 85, "Input"], Cell[114581, 3511, 420, 11, 50, "Input"], Cell[115004, 3524, 501, 12, 187, "Input"], Cell[115508, 3538, 205, 4, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[115750, 3547, 28, 0, 47, "Subsubsection"], Cell[115781, 3549, 225, 7, 50, "Input"], Cell[116009, 3558, 404, 14, 50, "Input"], Cell[116416, 3574, 81, 2, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[116546, 3582, 99, 1, 66, "Subsection"], Cell[116648, 3585, 282, 6, 85, "Input"], Cell[116933, 3593, 241, 6, 85, "Input"], Cell[117177, 3601, 354, 11, 50, "Input"], Cell[117534, 3614, 205, 5, 50, "Input"], Cell[117742, 3621, 151, 3, 50, "Input"], Cell[117896, 3626, 200, 6, 50, "Input"], Cell[118099, 3634, 115, 2, 50, "Input"], Cell[118217, 3638, 238, 7, 50, "Input"], Cell[118458, 3647, 286, 8, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[118781, 3660, 267, 3, 66, "Subsection"], Cell[119051, 3665, 1370, 31, 255, "Input"], Cell[120424, 3698, 240, 6, 50, "Input"] }, Closed]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)