(* 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[ 134973, 4127] NotebookOptionsPosition[ 118069, 3650] NotebookOutlinePosition[ 118618, 3671] CellTagsIndexPosition[ 118575, 3668] 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}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Noch", " ", RowBox[{"besser", ":", " ", RowBox[{ "bei", " ", "\"\ Preferences... -> Interface -> Show open/close icon for \ cell groups\>\"", " ", "H\[ADoubleDot]ckchen", " ", RowBox[{"setzen", "."}]}]}]}], " ", "*)"}]], "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}}], 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", "+", "1"}]], "Input", CellChangeTimes->{{3.4957749613895073`*^9, 3.4957749622031097`*^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["y"], "Input", CellChangeTimes->{3.527504998669276*^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[{"a", ";;", "b", ";;", "c"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"List", "[", RowBox[{"[", RowBox[{ "<", "Anfang", ">", ";;", "<", "Ende", ">", ";;", "<", "Inkrement", ">"}], "]"}], "]"}], "."}]}], " ", "*)"}]], "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}], 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[{"(*", " ", 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}}] }, 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}}], 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", "[", "q", "]"}]], "Input", CellChangeTimes->{{3.494860644078197*^9, 3.494860647929619*^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[{ 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}], 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[{"(*", " ", 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}}], 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}}], 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", ",", "0", ",", "th", ",", "ph"}], "]"}], "]"}], ",", 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}}] }, 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[{"ClearAll", "[", "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}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Zum", " ", RowBox[{"Vergleich", ":", " ", RowBox[{ RowBox[{"ohne", " ", "\"\\""}], ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", "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}}] }, 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[{"f1", " ", "=", " ", 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}}], Cell[BoxData[ RowBox[{"f1", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.5275589052071867`*^9, 3.5275589436791267`*^9}, { 3.531458417873336*^9, 3.531458421676261*^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[{"f2", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"Sin", "[", RowBox[{"#1", "/", "#2"}], "]"}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f2", "[", RowBox[{"a", ",", "b"}], "]"}]}], "Input", CellChangeTimes->{{3.527558949803968*^9, 3.527559002769985*^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}}], 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}], 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}] }, 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[{"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[{ 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[{"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[{ 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[{"FullForm", "[", "ex1", "]"}], "\[IndentingNewLine]", RowBox[{"FullForm", "[", "ex2", "]"}]}], "Input", CellChangeTimes->{{3.495687327481918*^9, 3.495687355811618*^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[{"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}}], 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[{"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[{"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->{1058, 573}, WindowMargins->{{Automatic, 257}, {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, 1402, 27, 69, "Input"], Cell[2400, 62, 742, 14, 50, "Input"], Cell[CellGroupData[{ Cell[3167, 80, 98, 1, 74, "Section"], Cell[3268, 83, 434, 8, 43, "Item"], Cell[3705, 93, 119, 2, 52, "Input"], Cell[3827, 97, 166, 3, 40, "Item"], Cell[3996, 102, 162, 3, 52, "Input"], Cell[4161, 107, 163, 3, 52, "Input"], Cell[CellGroupData[{ Cell[4349, 114, 338, 5, 43, "Item"], Cell[4690, 121, 147, 2, 43, "Item"], Cell[4840, 125, 257, 5, 43, "Item"] }, Closed]], Cell[5112, 133, 114, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5263, 140, 152, 2, 44, "Section"], Cell[5418, 144, 1051, 21, 50, "Input"], Cell[6472, 167, 399, 9, 50, "Input"], Cell[6874, 178, 430, 9, 50, "Input"], Cell[7307, 189, 381, 8, 50, "Input"], Cell[7691, 199, 747, 19, 69, "Input"], Cell[8441, 220, 484, 10, 50, "Input"], Cell[8928, 232, 588, 11, 50, "Input"], Cell[9519, 245, 121, 2, 30, "Input"], Cell[9643, 249, 196, 4, 30, "Input"], Cell[9842, 255, 189, 5, 30, "Input"], Cell[10034, 262, 490, 12, 30, "Input"], Cell[10527, 276, 156, 3, 30, "Input"], Cell[10686, 281, 114, 2, 30, "Input"], Cell[10803, 285, 473, 12, 30, "Input"], Cell[11279, 299, 285, 8, 30, "Input"], Cell[11567, 309, 123, 2, 30, "Input"], Cell[11693, 313, 150, 3, 30, "Input"], Cell[11846, 318, 109, 2, 30, "Input"], Cell[11958, 322, 143, 3, 30, "Input"], Cell[12104, 327, 71, 1, 30, "Input"], Cell[12178, 330, 259, 8, 30, "Input"], Cell[12440, 340, 327, 9, 30, "Input"], Cell[12770, 351, 395, 9, 50, "Input"], Cell[13168, 362, 724, 13, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[13929, 380, 91, 1, 44, "Section"], Cell[14023, 383, 383, 9, 90, "Input"], Cell[14409, 394, 117, 2, 52, "Input"], Cell[14529, 398, 115, 2, 52, "Input"], Cell[14647, 402, 164, 4, 52, "Input"], Cell[14814, 408, 143, 3, 52, "Input"], Cell[14960, 413, 143, 3, 52, "Input"], Cell[15106, 418, 69, 1, 52, "Input"], Cell[15178, 421, 126, 2, 52, "Input"], Cell[15307, 425, 122, 2, 52, "Input"], Cell[15432, 429, 198, 4, 52, "Input"], Cell[15633, 435, 740, 17, 52, "Input"], Cell[16376, 454, 209, 5, 52, "Input"], Cell[16588, 461, 197, 4, 52, "Input"], Cell[16788, 467, 386, 9, 90, "Input"], Cell[17177, 478, 368, 9, 90, "Input"], Cell[17548, 489, 220, 5, 52, "Input"], Cell[17771, 496, 217, 5, 52, "Input"], Cell[17991, 503, 365, 9, 90, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[18393, 517, 92, 1, 44, "Section"], Cell[18488, 520, 262, 5, 52, "Input"], Cell[18753, 527, 256, 6, 52, "Input"], Cell[19012, 535, 257, 5, 52, "Input"], Cell[19272, 542, 196, 4, 52, "Input"], Cell[19471, 548, 163, 3, 52, "Input"], Cell[19637, 553, 227, 4, 52, "Input"], Cell[19867, 559, 423, 11, 52, "Input"], Cell[20293, 572, 308, 9, 52, "Input"], Cell[20604, 583, 127, 2, 52, "Input"], Cell[20734, 587, 124, 2, 52, "Input"], Cell[20861, 591, 195, 4, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[21093, 600, 106, 1, 44, "Section"], Cell[21202, 603, 218, 4, 52, "Input"], Cell[21423, 609, 378, 8, 90, "Input"], Cell[21804, 619, 140, 3, 52, "Input"], Cell[21947, 624, 146, 3, 52, "Input"], Cell[22096, 629, 146, 3, 52, "Input"], Cell[22245, 634, 394, 8, 90, "Input"], Cell[22642, 644, 488, 11, 90, "Input"], Cell[23133, 657, 545, 12, 90, "Input"], Cell[23681, 671, 607, 13, 90, "Input"], Cell[24291, 686, 146, 3, 52, "Input"], Cell[24440, 691, 146, 3, 52, "Input"], Cell[24589, 696, 231, 6, 52, "Input"], Cell[24823, 704, 528, 11, 90, "Input"], Cell[25354, 717, 227, 5, 52, "Input"], Cell[25584, 724, 813, 19, 127, "Input"], Cell[26400, 745, 298, 8, 52, "Input"], Cell[26701, 755, 449, 10, 90, "Input"], Cell[27153, 767, 123, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[27313, 774, 172, 2, 44, "Section"], Cell[27488, 778, 204, 4, 52, "Input"], Cell[27695, 784, 546, 13, 90, "Input"], Cell[28244, 799, 408, 8, 90, "Input"], Cell[28655, 809, 696, 15, 164, "Input"], Cell[29354, 826, 173, 4, 52, "Input"], Cell[29530, 832, 173, 4, 52, "Input"], Cell[29706, 838, 474, 8, 52, "Input"], Cell[30183, 848, 604, 12, 90, "Input"], Cell[30790, 862, 657, 16, 90, "Input"], Cell[31450, 880, 233, 6, 52, "Input"], Cell[31686, 888, 430, 8, 90, "Input"], Cell[32119, 898, 126, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[32282, 905, 154, 2, 44, "Section"], Cell[32439, 909, 283, 8, 52, "Input"], Cell[32725, 919, 1155, 34, 90, "Input"], Cell[33883, 955, 401, 12, 52, "Input"], Cell[34287, 969, 727, 20, 52, "Input"], Cell[35017, 991, 115, 2, 52, "Input"], Cell[35135, 995, 862, 25, 90, "Input"], Cell[36000, 1022, 652, 19, 52, "Input"], Cell[36655, 1043, 843, 27, 90, "Input"], Cell[37501, 1072, 645, 18, 52, "Input"], Cell[38149, 1092, 127, 2, 52, "Input"], Cell[38279, 1096, 370, 9, 52, "Input"], Cell[38652, 1107, 124, 2, 52, "Input"], Cell[38779, 1111, 375, 10, 52, "Input"], Cell[39157, 1123, 542, 13, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[39736, 1141, 162, 2, 44, "Section"], Cell[39901, 1145, 245, 6, 52, "Input"], Cell[40149, 1153, 207, 5, 52, "Input"], Cell[40359, 1160, 148, 3, 52, "Input"], Cell[40510, 1165, 120, 2, 52, "Input"], Cell[40633, 1169, 288, 8, 52, "Input"], Cell[40924, 1179, 170, 4, 52, "Input"], Cell[41097, 1185, 170, 3, 52, "Input"], Cell[41270, 1190, 246, 6, 52, "Input"], Cell[41519, 1198, 289, 8, 52, "Input"], Cell[41811, 1208, 121, 2, 52, "Input"], Cell[41935, 1212, 121, 2, 52, "Input"], Cell[42059, 1216, 284, 8, 52, "Input"], Cell[42346, 1226, 283, 8, 52, "Input"], Cell[42632, 1236, 225, 6, 52, "Input"], Cell[42860, 1244, 173, 3, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[43070, 1252, 96, 1, 44, "Section"], Cell[43169, 1255, 247, 6, 52, "Input"], Cell[43419, 1263, 305, 8, 52, "Input"], Cell[43727, 1273, 282, 6, 52, "Input"], Cell[44012, 1281, 193, 4, 52, "Input"], Cell[44208, 1287, 220, 5, 52, "Input"], Cell[44431, 1294, 125, 2, 52, "Input"], Cell[44559, 1298, 435, 13, 52, "Input"], Cell[44997, 1313, 196, 5, 52, "Input"], Cell[45196, 1320, 304, 10, 52, "Input"], Cell[45503, 1332, 211, 4, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[45751, 1341, 95, 1, 44, "Section"], Cell[45849, 1344, 230, 5, 52, "Input"], Cell[CellGroupData[{ Cell[46104, 1353, 125, 1, 48, "Subsubsection"], Cell[46232, 1356, 303, 9, 52, "Input"], Cell[46538, 1367, 254, 8, 52, "Input"], Cell[46795, 1377, 138, 3, 52, "Input"], Cell[46936, 1382, 69, 1, 52, "Input"], Cell[47008, 1385, 69, 1, 52, "Input"], Cell[47080, 1388, 101, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[47218, 1395, 101, 1, 48, "Subsubsection"], Cell[47322, 1398, 553, 18, 90, "Input"], Cell[47878, 1418, 143, 3, 52, "Input"], Cell[48024, 1423, 143, 3, 52, "Input"], Cell[48170, 1428, 146, 3, 52, "Input"], Cell[48319, 1433, 335, 9, 127, "Input"], Cell[48657, 1444, 626, 17, 127, "Input"], Cell[49286, 1463, 111, 2, 52, "Input"], Cell[49400, 1467, 122, 2, 52, "Input"], Cell[49525, 1471, 111, 2, 52, "Input"], Cell[49639, 1475, 126, 2, 52, "Input"], Cell[49768, 1479, 156, 3, 49, "Text"], Cell[49927, 1484, 1118, 28, 201, "Input"], Cell[51048, 1514, 1085, 32, 238, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[52170, 1551, 129, 1, 48, "Subsubsection"], Cell[52302, 1554, 457, 10, 90, "Input"], Cell[52762, 1566, 371, 10, 52, "Input"], Cell[53136, 1578, 197, 4, 52, "Input"], Cell[53336, 1584, 484, 13, 52, "Input"], Cell[53823, 1599, 334, 10, 90, "Input"], Cell[54160, 1611, 209, 5, 52, "Input"], Cell[54372, 1618, 453, 11, 90, "Input"], Cell[54828, 1631, 776, 22, 127, "Input"], Cell[55607, 1655, 533, 15, 90, "Input"], Cell[56143, 1672, 434, 14, 90, "Input"], Cell[CellGroupData[{ Cell[56602, 1690, 157, 3, 52, "Input"], Cell[56762, 1695, 581, 19, 77, "Output"], Cell[57346, 1716, 559, 19, 52, "Output"] }, Closed]], Cell[57920, 1738, 407, 10, 90, "Input"], Cell[58330, 1750, 349, 11, 52, "Input"], Cell[58682, 1763, 481, 13, 90, "Input"], Cell[59166, 1778, 115, 2, 52, "Input"], Cell[59284, 1782, 114, 2, 52, "Input"], Cell[59401, 1786, 681, 19, 90, "Input"], Cell[60085, 1807, 230, 5, 52, "Input"], Cell[60318, 1814, 359, 10, 90, "Input"], Cell[60680, 1826, 175, 4, 52, "Input"], Cell[60858, 1832, 318, 8, 52, "Input"], Cell[61179, 1842, 948, 26, 127, "Input"], Cell[62130, 1870, 797, 17, 201, "Input"], Cell[62930, 1889, 327, 5, 52, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[63306, 1900, 162, 2, 44, "Section"], Cell[63471, 1904, 163, 3, 52, "Input"], Cell[CellGroupData[{ Cell[63659, 1911, 111, 1, 48, "Subsubsection"], Cell[63773, 1914, 669, 20, 90, "Input"], Cell[64445, 1936, 1238, 41, 127, "Input"], Cell[65686, 1979, 152, 3, 52, "Input"], Cell[65841, 1984, 399, 10, 90, "Input"], Cell[66243, 1996, 343, 9, 52, "Input"], Cell[66589, 2007, 450, 13, 52, "Input"], Cell[67042, 2022, 452, 13, 52, "Input"], Cell[67497, 2037, 195, 3, 90, "Input"], Cell[67695, 2042, 1001, 29, 164, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[68733, 2076, 100, 1, 48, "Subsubsection"], Cell[68836, 2079, 365, 12, 52, "Input"], Cell[69204, 2093, 116, 2, 52, "Input"], Cell[69323, 2097, 445, 13, 52, "Input"], Cell[69771, 2112, 151, 3, 52, "Input"], Cell[69925, 2117, 205, 4, 52, "Input"], Cell[70133, 2123, 379, 12, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[70549, 2140, 127, 1, 48, "Subsubsection"], Cell[70679, 2143, 256, 7, 52, "Input"], Cell[70938, 2152, 251, 7, 52, "Input"], Cell[71192, 2161, 418, 10, 90, "Input"], Cell[71613, 2173, 117, 2, 52, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[71779, 2181, 124, 1, 44, "Section"], Cell[CellGroupData[{ Cell[71928, 2186, 89, 1, 66, "Subsection"], Cell[72020, 2189, 383, 10, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[72440, 2204, 163, 2, 52, "Subsection"], Cell[72606, 2208, 249, 7, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[72892, 2220, 116, 1, 52, "Subsection"], Cell[73011, 2223, 197, 5, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[73245, 2233, 111, 1, 52, "Subsection"], Cell[73359, 2236, 654, 19, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[74050, 2260, 164, 4, 98, "Subsection"], Cell[74217, 2266, 526, 15, 52, "Input"], Cell[74746, 2283, 336, 10, 52, "Input"], Cell[75085, 2295, 440, 11, 90, "Input"], Cell[75528, 2308, 328, 10, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[75893, 2323, 97, 1, 52, "Subsection"], Cell[75993, 2326, 264, 7, 50, "Input"], Cell[76260, 2335, 179, 3, 50, "Input"], Cell[76442, 2340, 133, 2, 50, "Input"], Cell[76578, 2344, 486, 10, 85, "Input"], Cell[77067, 2356, 196, 4, 50, "Input"], Cell[77266, 2362, 366, 10, 85, "Input"], Cell[77635, 2374, 149, 3, 50, "Input"], Cell[77787, 2379, 327, 8, 85, "Input"], Cell[78117, 2389, 132, 2, 50, "Input"], Cell[78252, 2393, 593, 19, 50, "Input"], Cell[78848, 2414, 146, 3, 50, "Input"], Cell[78997, 2419, 166, 4, 50, "Input"], Cell[79166, 2425, 628, 20, 50, "Input"], Cell[79797, 2447, 364, 10, 50, "Input"], Cell[80164, 2459, 129, 2, 50, "Input"], Cell[80296, 2463, 223, 5, 50, "Input"], Cell[80522, 2470, 628, 18, 50, "Input"], Cell[81153, 2490, 242, 6, 48, "Text"], Cell[81398, 2498, 162, 3, 50, "Input"], Cell[81563, 2503, 166, 3, 50, "Input"], Cell[81732, 2508, 160, 3, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[81941, 2517, 93, 1, 44, "Section"], Cell[CellGroupData[{ Cell[82059, 2522, 218, 3, 66, "Subsection"], Cell[82280, 2527, 671, 21, 90, "Input"], Cell[82954, 2550, 656, 21, 52, "Input"], Cell[83613, 2573, 286, 8, 52, "Input"], Cell[83902, 2583, 376, 11, 52, "Input"], Cell[84281, 2596, 233, 5, 52, "Input"], Cell[84517, 2603, 326, 8, 52, "Input"], Cell[84846, 2613, 610, 18, 52, "Input"], Cell[85459, 2633, 662, 20, 52, "Input"], Cell[86124, 2655, 659, 20, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[86820, 2680, 203, 3, 52, "Subsection"], Cell[87026, 2685, 539, 13, 90, "Input"], Cell[87568, 2700, 129, 2, 52, "Input"], Cell[87700, 2704, 215, 4, 90, "Input"], Cell[87918, 2710, 460, 13, 127, "Input"], Cell[88381, 2725, 209, 5, 52, "Input"], Cell[88593, 2732, 433, 12, 52, "Input"], Cell[89029, 2746, 276, 6, 52, "Input"], Cell[89308, 2754, 199, 4, 52, "Input"], Cell[89510, 2760, 151, 3, 52, "Input"], Cell[89664, 2765, 207, 5, 52, "Input"], Cell[89874, 2772, 210, 5, 52, "Input"], Cell[90087, 2779, 120, 2, 52, "Input"], Cell[90210, 2783, 210, 5, 52, "Input"], Cell[90423, 2790, 225, 4, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[90685, 2799, 111, 1, 52, "Subsection"], Cell[90799, 2802, 288, 8, 50, "Input"], Cell[91090, 2812, 243, 5, 50, "Input"], Cell[91336, 2819, 228, 6, 50, "Input"], Cell[91567, 2827, 223, 5, 50, "Input"], Cell[91793, 2834, 146, 3, 50, "Input"], Cell[91942, 2839, 462, 14, 50, "Input"], Cell[92407, 2855, 226, 5, 50, "Input"], Cell[92636, 2862, 128, 2, 50, "Input"], Cell[92767, 2866, 2090, 58, 153, "Input"], Cell[94860, 2926, 435, 12, 50, "Input"], Cell[95298, 2940, 789, 18, 85, "Input"], Cell[96090, 2960, 458, 12, 50, "Input"], Cell[96551, 2974, 286, 6, 50, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[96886, 2986, 100, 1, 44, "Section"], Cell[96989, 2989, 350, 7, 52, "Input"], Cell[97342, 2998, 902, 23, 238, "Input"], Cell[98247, 3023, 83, 2, 52, "Input"], Cell[98333, 3027, 367, 8, 90, "Input"], Cell[98703, 3037, 1128, 27, 90, "Input"], Cell[99834, 3066, 129, 2, 52, "Input"], Cell[99966, 3070, 520, 12, 90, "Input"], Cell[100489, 3084, 122, 2, 52, "Input"], Cell[100614, 3088, 485, 11, 52, "Input"], Cell[101102, 3101, 277, 4, 52, "Input"], Cell[101382, 3107, 232, 4, 52, "Input"], Cell[101617, 3113, 158, 3, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[101812, 3121, 190, 2, 44, "Section"], Cell[CellGroupData[{ Cell[102027, 3127, 126, 1, 67, "Subsection"], Cell[102156, 3130, 449, 13, 90, "Input"], Cell[102608, 3145, 122, 2, 52, "Input"], Cell[102733, 3149, 125, 2, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[102895, 3156, 166, 2, 67, "Subsection"], Cell[CellGroupData[{ Cell[103086, 3162, 69, 1, 48, "Subsubsection"], Cell[103158, 3165, 320, 9, 52, "Input"], Cell[103481, 3176, 243, 5, 52, "Input"], Cell[103727, 3183, 244, 5, 52, "Input"], Cell[103974, 3190, 353, 11, 52, "Input"], Cell[104330, 3203, 138, 3, 52, "Input"], Cell[104471, 3208, 121, 2, 52, "Input"], Cell[104595, 3212, 297, 6, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[104929, 3223, 147, 3, 48, "Subsubsection"], Cell[105079, 3228, 516, 14, 52, "Input"], Cell[105598, 3244, 122, 2, 52, "Input"], Cell[105723, 3248, 140, 3, 52, "Input"], Cell[105866, 3253, 122, 2, 52, "Input"], Cell[105991, 3257, 271, 5, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[106299, 3267, 249, 4, 48, "Subsubsection"], Cell[106551, 3273, 323, 8, 52, "Input"], Cell[106877, 3283, 313, 8, 52, "Input"], Cell[107193, 3293, 335, 8, 52, "Input"], Cell[107531, 3303, 337, 8, 52, "Input"], Cell[107871, 3313, 497, 14, 52, "Input"], Cell[108371, 3329, 321, 8, 52, "Input"], Cell[108695, 3339, 321, 8, 52, "Input"], Cell[109019, 3349, 297, 7, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[109353, 3361, 122, 2, 48, "Subsubsection"], Cell[109478, 3365, 351, 8, 52, "Input"], Cell[109832, 3375, 143, 3, 52, "Input"], Cell[109978, 3380, 143, 3, 52, "Input"], Cell[110124, 3385, 143, 3, 52, "Input"], Cell[110270, 3390, 143, 3, 52, "Input"], Cell[110416, 3395, 143, 3, 52, "Input"], Cell[110562, 3400, 199, 4, 52, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[110810, 3410, 96, 1, 67, "Subsection"], Cell[CellGroupData[{ Cell[110931, 3415, 27, 0, 48, "Subsubsection"], Cell[110961, 3417, 275, 7, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[111273, 3429, 30, 0, 48, "Subsubsection"], Cell[111306, 3431, 470, 14, 90, "Input"], Cell[111779, 3447, 164, 3, 90, "Input"], Cell[111946, 3452, 420, 11, 52, "Input"], Cell[112369, 3465, 501, 12, 201, "Input"], Cell[112873, 3479, 205, 4, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[113115, 3488, 28, 0, 48, "Subsubsection"], Cell[113146, 3490, 225, 7, 52, "Input"], Cell[113374, 3499, 404, 14, 52, "Input"], Cell[113781, 3515, 81, 2, 52, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[113911, 3523, 99, 1, 67, "Subsection"], Cell[114013, 3526, 282, 6, 90, "Input"], Cell[114298, 3534, 241, 6, 90, "Input"], Cell[114542, 3542, 354, 11, 52, "Input"], Cell[114899, 3555, 205, 5, 52, "Input"], Cell[115107, 3562, 151, 3, 52, "Input"], Cell[115261, 3567, 200, 6, 52, "Input"], Cell[115464, 3575, 115, 2, 52, "Input"], Cell[115582, 3579, 238, 7, 52, "Input"], Cell[115823, 3588, 286, 8, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[116146, 3601, 267, 3, 67, "Subsection"], Cell[116416, 3606, 1370, 31, 238, "Input"], Cell[117789, 3639, 240, 6, 52, "Input"] }, Closed]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)