(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 86270, 2185] NotebookOptionsPosition[ 71600, 2003] NotebookOutlinePosition[ 72063, 2020] CellTagsIndexPosition[ 72020, 2017] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Datenanalyse mit Mathematica", "Title", CellChangeTimes->{{3.9288070252279367`*^9, 3.9288070470916853`*^9}},ExpressionUUID->"07315bd2-5dd7-4cf2-98ca-\ e0f27a8b1f08"], Cell[CellGroupData[{ Cell["Einheiten und Naturkonstanten", "Chapter", CellChangeTimes->{{3.928807051551982*^9, 3.928807052427683*^9}, { 3.928807905219481*^9, 3.9288079073797894`*^9}},ExpressionUUID->"7c3474a7-4227-4cc5-b882-\ 11799010325a"], Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Quantity", "[", RowBox[{"1.", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.928807096405517*^9, 3.9288071062819366`*^9}, { 3.928807143905835*^9, 3.92880714775184*^9}, 3.928807180541333*^9}, CellLabel->"In[3]:=",ExpressionUUID->"0e86f1d2-2772-425d-8a1c-1ac11e963477"], Cell["Abk\[UDoubleDot]rzung: Strg+= und freie Texteingabe", "Text", CellChangeTimes->{{3.9288073788513317`*^9, 3.928807384536105*^9}, { 3.928808093859667*^9, 3.928808097537631*^9}},ExpressionUUID->"e3897f29-56b3-499e-995a-\ ddf4ca7cde92"], Cell[BoxData[ RowBox[{"a", "=", TemplateBox[<| "query" -> "1. astronomical unit", "boxes" -> TemplateBox[{ "1.", "\"au\"", "astronomical units", "\"AstronomicalUnit\""}, "Quantity", SyntaxForm -> Mod], "allassumptions" -> {}, "assumptions" -> {}, "open" -> {1, 2}, "querystate" -> { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.679683`6.283851401128219, "Messages" -> {}}, "contextinfo" -> Automatic, "version" -> 5|>, "LinguisticAssistantTemplate"]}]], "Input", CellChangeTimes->{{3.928807403447865*^9, 3.928807459605996*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"a94f74eb-f3be-4bb3-8919-047ca73df91a"], Cell[BoxData[{ RowBox[{"UnitConvert", "[", RowBox[{"a", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"UnitConvert", "[", RowBox[{"a", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"UnitConvert", "[", RowBox[{"a", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"UnitConvert", "[", RowBox[{"a", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"UnitConvert", "[", RowBox[{"a", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.928807211682301*^9, 3.928807247752686*^9}, { 3.928807283524358*^9, 3.9288072936542797`*^9}, {3.928807577424687*^9, 3.928807578106504*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"e31b1cff-c83a-472c-84b4-1b9fb1dcf7c5"], Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"a", "/", RowBox[{"Quantity", "[", "\"\\"", "]"}]}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.928807299830805*^9, 3.928807321925371*^9}, { 3.9288075434249897`*^9, 3.9288075596543627`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"58e915a9-7790-4e05-8df3-08cfefe98b81"], Cell[BoxData[ RowBox[{"UnitConvert", "[", TemplateBox[<|"query" -> "Gravitational constant", "boxes" -> TemplateBox[{ InterpretationBox["\[InvisibleSpace]", 1], StyleBox["\"G\"", Italic, StripOnInput -> False], "Newtonian gravitational constants", "\"GravitationalConstant\""}, "Quantity", SyntaxForm -> Mod], "allassumptions" -> {{ "type" -> "Clash", "word" -> "Gravitational constant", "template" -> "Assuming \"Gravitational constant\" is a unit${separator}Use as \ ${desc} instead", "count" -> "2", "pulldown" -> "false", "default" -> "{\"C\", \"Gravitational constant\"} -> {\"Unit\", \"dflt\"}", "Values" -> {{ "name" -> "Unit", "desc" -> "a unit", "input" -> "{\"C\", \"Gravitational constant\"} -> {\"Unit\"}"}, { "name" -> "Word", "desc" -> "a word", "input" -> "{\"C\", \"Gravitational constant\"} -> {\"Word\"}"}}}, { "type" -> "Unit", "word" -> "Gravitational constant", "template" -> "Assuming Newtonian gravitational constant for \"Gravitational \ constant\"${separator}Use ${desc} or ${desc} instead", "count" -> "3", "pulldown" -> "false", "default" -> "\"UnitClash\" -> {\"Gravitational constant\", \ {\"GravitationalConstant\", \"dflt\"}}", "Values" -> {{ "name" -> "GravitationalConstant", "desc" -> "Newtonian gravitational constant", "input" -> "\"UnitClash\" -> {\"Gravitational constant\", \ {\"GravitationalConstant\"}}"}, { "name" -> "GravitationalConstantWGS84", "desc" -> "Newtonian gravitational constant (WGS84)", "input" -> "\"UnitClash\" -> {\"Gravitational constant\", \ {\"GravitationalConstantWGS84\"}}"}, { "name" -> "GaussianGravitationalConstant", "desc" -> "Gaussian gravitational constant", "input" -> "\"UnitClash\" -> {\"Gravitational constant\", \ {\"GaussianGravitationalConstant\"}}"}}}}, "assumptions" -> {}, "open" -> {1, 2}, "querystate" -> { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.634796`6.254179174994978, "Messages" -> {}}, "contextinfo" -> Automatic, "version" -> 5|>, "LinguisticAssistantTemplate"], "]"}]], "Input", CellChangeTimes->{{3.9288076406225357`*^9, 3.92880764373077*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"41e03d0c-b6f1-4a44-9ed2-783603fe2e63"], Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{ TemplateBox[<|"query" -> "proton mass", "boxes" -> RowBox[{ TemplateBox[{"\"proton\"", RowBox[{"Entity", "[", RowBox[{"\"Particle\"", ",", "\"Proton\""}], "]"}], "\"Entity[\\\"Particle\\\", \\\"Proton\\\"]\"", "\"particle\""}, "Entity"], "[", TemplateBox[{"\"mass\"", RowBox[{"EntityProperty", "[", RowBox[{"\"Particle\"", ",", "\"Mass\""}], "]"}], "\"EntityProperty[\\\"Particle\\\", \\\"Mass\\\"]\""}, "EntityProperty"], "]"}], "allassumptions" -> {{ "word" -> "", "template" -> "Assuming \"proton\" is a particle${separator}Use as ${desc} \ instead${separator}Use the input as ${desc}", "count" -> "3", "pulldown" -> "false", "type" -> "MultiClash", "default" -> "{\"MC\", \"\"} -> {\"Particle\", \"dflt\"}", "Values" -> {{ "name" -> "Particle", "desc" -> "a particle", "input" -> "{\"MC\", \"\"} -> {\"Particle\"}", "word" -> "proton"}, { "name" -> "ChemicalIntermediate", "desc" -> "an ion", "input" -> "{\"MC\", \"\"} -> {\"ChemicalIntermediate\"}", "word" -> "proton"}, { "name" -> "Unit", "desc" -> "a unit", "input" -> "{\"MC\", \"\"} -> {\"Unit\"}", "word" -> "the input"}}}}, "assumptions" -> {}, "open" -> {1, 2}, "querystate" -> { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.828473`6.369823352790759, "Messages" -> {}}, "contextinfo" -> Automatic, "version" -> 5|>, "LinguisticAssistantTemplate"], ",", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "2"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.928807720223662*^9, 3.928807768864544*^9}, { 3.92880782150462*^9, 3.9288078798485126`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"44d575d7-0726-4d4b-aa98-22e929745310"], Cell[BoxData[ RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1", ",", "\"\\""}], "]"}], "<", RowBox[{"Quantity", "[", RowBox[{"3", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.9288079262703123`*^9, 3.928807941464074*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"892ee499-ffb5-41b1-b403-8a7ac7bf6f9f"], Cell[BoxData[ RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], " ", "g", " ", RowBox[{"t", "^", "2"}]}], "==", "x"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"g", "->", TemplateBox[<|"query" -> "Earth acceleration", "boxes" -> RowBox[{ TemplateBox[{"\"Earth\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Earth\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Earth\\\"]\"", "\"planet\""}, "Entity"], "[", TemplateBox[{"\"gravity\"", RowBox[{"EntityProperty", "[", RowBox[{"\"Planet\"", ",", "\"Gravity\""}], "]"}], "\"EntityProperty[\\\"Planet\\\", \\\"Gravity\\\"]\""}, "EntityProperty"], "]"}], "allassumptions" -> {}, "assumptions" -> {}, "open" -> {1, 2}, "querystate" -> { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.74331`6.322714969048288, "Messages" -> {}}, "contextinfo" -> Automatic, "version" -> 5|>, "LinguisticAssistantTemplate"]}], ",", RowBox[{"x", "->", RowBox[{"Quantity", "[", RowBox[{"3", ",", "\"\\""}], "]"}]}]}], "}"}]}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.928807964387043*^9, 3.928807994765183*^9}, { 3.928808027249515*^9, 3.928808066947793*^9}, {3.928808136318472*^9, 3.9288081368214607`*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"588f913a-de9a-4b4e-aef9-39df020934a3"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], " ", "g", " ", RowBox[{"t", "^", "2"}]}], "/.", " ", RowBox[{"g", "->", RowBox[{ TemplateBox[<|"query" -> "Earth acceleration", "boxes" -> RowBox[{ TemplateBox[{"\"Earth\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Earth\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Earth\\\"]\"", "\"planet\""}, "Entity"], "[", TemplateBox[{"\"gravity\"", RowBox[{"EntityProperty", "[", RowBox[{"\"Planet\"", ",", "\"Gravity\""}], "]"}], "\"EntityProperty[\\\"Planet\\\", \\\"Gravity\\\"]\""}, "EntityProperty"], "]"}], "allassumptions" -> {}, "assumptions" -> {}, "open" -> {1, 2}, "querystate" -> { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.74331`6.322714969048288, "Messages" -> {}}, "contextinfo" -> Automatic, "version" -> 5|>, "LinguisticAssistantTemplate"], "/", RowBox[{"Quantity", "[", RowBox[{"1", ",", "\"\\""}], "]"}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Quantity", "[", RowBox[{"0", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"1", ",", "\"\\""}], "]"}]}], "}"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.92880813313478*^9, 3.928808223928554*^9}, { 3.928813265309218*^9, 3.928813274930792*^9}, {3.928813309172492*^9, 3.9288133450258217`*^9}, {3.928813382695952*^9, 3.928813418513358*^9}}, CellLabel-> "In[273]:=",ExpressionUUID->"929a22e1-19b6-48d5-af38-215529781039"] }, Open ]], Cell[CellGroupData[{ Cell["Input & Output", "Chapter", CellChangeTimes->{{3.928808263434865*^9, 3.928808273472015*^9}},ExpressionUUID->"e38f479e-fc6b-44ff-8bf9-\ 90e4acdc8749"], Cell[BoxData[ RowBox[{"NotebookDirectory", "[", "]"}]], "Input", CellChangeTimes->{{3.9288083327467527`*^9, 3.92880833574058*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"0fd2b5cf-4cfe-491c-a82e-3dd824ce034c"], Cell[BoxData[ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input", CellChangeTimes->{{3.928808349254551*^9, 3.928808359482864*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"6cb84fa9-5f52-473e-be49-c1841da1d81b"], Cell[BoxData[ RowBox[{"T1", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", RowBox[{"i", "*", "j"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.928808367448812*^9, 3.928808399546105*^9}, { 3.928808438010477*^9, 3.9288084411066837`*^9}, {3.928808561775298*^9, 3.9288085638961887`*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"5e63481f-d5c7-4279-ab68-6466aceb0877"], Cell[BoxData[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "T1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "T1"}], "]"}]}], "Input", CellChangeTimes->{{3.92880840488341*^9, 3.9288084194613323`*^9}, { 3.928808450641981*^9, 3.928808453272421*^9}, {3.928808493253089*^9, 3.9288085176112623`*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"d95d1d08-b22c-4162-a0f2-32ab33f2eac0"], Cell[BoxData[{ RowBox[{"T2", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"T3", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}]}], "Input", CellChangeTimes->{{3.928808521170185*^9, 3.9288085446476383`*^9}, { 3.92880857864952*^9, 3.928808578729981*^9}, {3.928808924719396*^9, 3.9288089334040527`*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"364be617-47aa-4ea9-9455-acf3a1bc9ef4"], Cell["Einlesen als Liste", "Text", CellChangeTimes->{{3.928809028836429*^9, 3.928809030580551*^9}},ExpressionUUID->"f195465d-fb9f-406d-9778-\ 563bc1a9f3d7"], Cell[BoxData[ RowBox[{"T3", "=", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.928808583194687*^9, 3.928808636786025*^9}, { 3.928808880482307*^9, 3.9288088873330317`*^9}, {3.9288089394929*^9, 3.928808953014419*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"232ef32e-d309-49ae-8402-62bc81e29654"], Cell["Jeder einzelne Eintrag ist immer noch ein String:", "Text", CellChangeTimes->{{3.9288090370076303`*^9, 3.9288090433188457`*^9}},ExpressionUUID->"b0f7922e-f9a5-4229-97ce-\ 9c4da6a51ecd"], Cell[BoxData[ RowBox[{"T3", "[", RowBox[{"[", RowBox[{"1", ",", "0"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.928808956867399*^9, 3.928808968122231*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"ce54849d-4945-46db-9b0b-b1b7850ebc5f"], Cell["Konversion zu Mathematica-Liste", "Text", CellChangeTimes->{{3.928809050802608*^9, 3.928809056472835*^9}},ExpressionUUID->"412b20bd-4564-4e20-952d-\ 032d4dd0e6a8"], Cell[BoxData[ RowBox[{"T3", "=", RowBox[{"ToExpression", "[", "T3", "]"}]}]], "Input", CellChangeTimes->{{3.9288089770241823`*^9, 3.928809002704582*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"90f60a15-97b1-49ec-a842-ce5a8077911f"], Cell[BoxData[ RowBox[{"T3", "[", RowBox[{"[", RowBox[{"1", ",", "0"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.9288090075317917`*^9, 3.928809009858577*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"b6bb6213-1f04-4e04-80fa-e9fee75c7bec"] }, Open ]], Cell[CellGroupData[{ Cell["Zufallszahlen in Mathematica", "Chapter", CellChangeTimes->{{3.928809068809855*^9, 3.9288090719587727`*^9}},ExpressionUUID->"73cca4f0-3bd4-447e-954e-\ c28af5c2ba05"], Cell["Zufallszahl zwischen 0 und 1", "Text", CellChangeTimes->{{3.928809083115239*^9, 3.928809086345183*^9}},ExpressionUUID->"af0aee7d-74b2-423b-b57d-\ f4bdbffd0f3e"], Cell[BoxData[ RowBox[{"RandomReal", "[", "]"}]], "Input", CellChangeTimes->{{3.928809073771303*^9, 3.9288090771634207`*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"8d9391bf-5e8c-4e8c-86dd-f014c28abe55"], Cell["100 Zufallszahlen zwischen 0 und 1", "Text", CellChangeTimes->{{3.928809098773921*^9, 3.928809107351364*^9}},ExpressionUUID->"cb5fe057-2628-45bf-a34c-\ b1ac8b1c5f04"], Cell[BoxData[ RowBox[{"zufall", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.9288091114757767`*^9, 3.928809127816061*^9}, { 3.928809927970305*^9, 3.9288099287652884`*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"a39d69ef-0b20-4bc0-8ec6-808845a33eee"], Cell[BoxData[ RowBox[{"Mean", "[", "zufall", "]"}]], "Input", CellLabel-> "In[161]:=",ExpressionUUID->"17fd92ae-6eca-4e3c-be13-261ee2722655"], Cell[BoxData[ RowBox[{"StandardDeviation", "[", "zufall", "]"}]], "Input", CellLabel-> "In[162]:=",ExpressionUUID->"b4589c97-4063-445c-a8a2-4ec22f2a0505"], Cell["Normalverteilte Zufallszahlen", "Text", CellChangeTimes->{{3.9288091405037613`*^9, 3.9288091481080103`*^9}},ExpressionUUID->"1b7342f4-9ce7-4b7f-8bb3-\ 5b37617ac0bb"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Mu]", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.9288091490683813`*^9, 3.928809155388342*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"c181efa9-7f7c-4b0d-a033-fd8bee1e6f88"], Cell[BoxData[ RowBox[{"zufall", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.9288091565327187`*^9, 3.928809194995718*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"cc23832c-0d12-4680-a844-acf22ea81455"], Cell[BoxData[ RowBox[{"Histogram", "[", "zufall", "]"}]], "Input", CellChangeTimes->{{3.9288091822739973`*^9, 3.9288092076928864`*^9}, 3.9288093070261497`*^9},ExpressionUUID->"3dd74311-efe4-4ea0-9dbe-\ 27bb3074c583"], Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "4", ",", "0.2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.928809310582786*^9, 3.9288093177022867`*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"c6b8650d-bdfc-4aa9-85a4-9e7cb36ecadb"], Cell[BoxData[ RowBox[{ RowBox[{"GaussVerteilung", "[", "x_", "]"}], ":=", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}]}]], "Input",\ CellChangeTimes->{{3.928809244646439*^9, 3.928809251415763*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"c8d1a3b7-b587-47c1-86f4-db86b4613f4f"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "4", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"GaussVerteilung", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928809209706862*^9, 3.9288092952923393`*^9}, { 3.928809333959838*^9, 3.9288093443529387`*^9}, {3.928809393843028*^9, 3.928809394057577*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"9a87d0e4-83be-4571-9ef6-d807bec38e98"], Cell[BoxData[ RowBox[{ RowBox[{"zufall", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "10000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.9288091565327187`*^9, 3.928809194995718*^9}, { 3.92880940991365*^9, 3.9288094112132273`*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"297ee9ed-2df4-4582-b0dd-13230a2d5192"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "4", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"GaussVerteilung", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928809209706862*^9, 3.9288092952923393`*^9}, { 3.928809333959838*^9, 3.9288093443529387`*^9}, {3.928809393843028*^9, 3.928809394057577*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"9eeab800-df35-4149-939f-92756d530e41"], Cell[TextData[{ "Ein Beispiel f\[UDoubleDot]r eine diskrete Wahrscheinlichkeitsverteilung \ ist die Poisson-Verteilung. F\[UDoubleDot]r einen gegebenen Parameter \ \[Lambda] ist diese Verteilung geben durch ", Cell[BoxData[ RowBox[{ RowBox[{"p", RowBox[{"(", "n", ")"}]}], " ", "=", " ", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "\[Lambda]"}]], " ", SuperscriptBox["\[Lambda]", "n"]}], RowBox[{"n", "!"}]]}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.930281833065727*^9, 3.930281839293037*^9}}, ExpressionUUID->"2625fdaf-dbd6-401e-b303-8ee8b0042811"], "." }], "Text", CellChangeTimes->{{3.930281534894977*^9, 3.930281545052761*^9}, { 3.9302816272714252`*^9, 3.930281641594822*^9}, {3.930281793819427*^9, 3.930281875498087*^9}},ExpressionUUID->"6c50b20a-feb7-4ff3-8bed-\ ebd0a4188c68"], Cell[BoxData["^"], "Input",ExpressionUUID->"e256fe4a-a8c7-43f8-9f69-8d2817dbb15d"], Cell[BoxData[ RowBox[{ RowBox[{"\[Lambda]", "=", "5"}], ";"}]], "Input", CellChangeTimes->{{3.928809503987228*^9, 3.928809507402431*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"a117c81f-b635-413f-8699-23163dc30bb2"], Cell[BoxData[ RowBox[{ RowBox[{"zufall", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "\[Lambda]", "]"}], ",", "1000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.928809437364829*^9, 3.9288094556736298`*^9}, 3.928809514081997*^9}, CellLabel-> "In[148]:=",ExpressionUUID->"b224059e-6467-4a80-9fff-54221cb295b4"], Cell[BoxData[ RowBox[{ RowBox[{"PoissonVerteilung", "[", "n_", "]"}], ":=", RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "\[Lambda]", "]"}], ",", "n"}], "]"}]}]], "Input", CellChangeTimes->{{3.928809490676271*^9, 3.928809522594036*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"7f504e72-c21b-4fbe-ab02-dfe2024961d7"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", "Automatic", ",", "\"\\""}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"PoissonVerteilung", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "20"}], "}"}]}], "]"}], ",", RowBox[{"Filling", "->", "Bottom"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928809468650732*^9, 3.928809488254499*^9}, { 3.928809526062985*^9, 3.928809572913616*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"806077c3-d440-4471-a9b1-a7be9d5a8229"], Cell[CellGroupData[{ Cell["Kolmogorov-Smirnov-Test", "Section", CellChangeTimes->{{3.9288097527547503`*^9, 3.928809774581094*^9}},ExpressionUUID->"f1c85d85-33fc-49d5-bde2-\ 2fb09f837c03"], Cell["\<\ Dieser Test \[UDoubleDot]berpr\[UDoubleDot]ft, ob ein Datensatz aus der \ gegebenen Wahrscheinlichkeitsverteilung stammt. Dazu wird die kumulative \ Verteilungsfunktion verglichen\ \>", "Text", CellChangeTimes->{{3.928809782259103*^9, 3.9288098185117283`*^9}, { 3.928810136247388*^9, 3.928810146303293*^9}},ExpressionUUID->"12eca9ec-4ad7-413c-9529-\ 62eb60840e83"], Cell[BoxData[ RowBox[{ RowBox[{"zufall", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "10", "]"}], ",", "100"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.928809830864204*^9, 3.9288098350525093`*^9}, { 3.928809873749341*^9, 3.928809888840704*^9}, {3.928810377394259*^9, 3.928810377588573*^9}}, CellLabel-> "In[197]:=",ExpressionUUID->"0c0290d4-2c01-4646-a6f2-e48042eb1d16"], Cell[BoxData[ RowBox[{"\[Mu]", "=", RowBox[{"Mean", "[", "zufall", "]"}]}]], "Input", CellChangeTimes->{{3.928809894343543*^9, 3.928809901926944*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"a2849691-8f7e-4dd5-826d-f4ce6fac7e8d"], Cell[BoxData[ RowBox[{"\[Sigma]", "=", RowBox[{"StandardDeviation", "[", "zufall", "]"}]}]], "Input", CellChangeTimes->{{3.928809904473853*^9, 3.928809912886217*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"c305150e-be14-4533-9697-0a23aafecfb3"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", RowBox[{"{", RowBox[{"0", ",", "25", ",", "1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "10", "]"}], ",", "x"}], "]"}], ",", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", RowBox[{"PlotLegends", "->", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)-Verteilung\>\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "]"}]], "Input", CellLabel-> "In[207]:=",ExpressionUUID->"30541041-a411-43a1-a2cc-79c1068b0165"], Cell[BoxData[ RowBox[{ RowBox[{"Kumulative", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"zufall", ",", RowBox[{ RowBox[{"#", "<", "x"}], "&"}]}], "]"}], "]"}], "/", RowBox[{"Length", "[", "zufall", "]"}]}]}]], "Input", CellChangeTimes->{{3.9288102999274263`*^9, 3.9288103252062902`*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"534cabe3-ec0c-4e91-9976-9e74f5ea6af8"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "10", "]"}], ",", "x"}], "]"}], ",", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"Kumulative", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotLegends", "->", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(2\)]\)-Verteilung\>\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.928810151404641*^9, 3.9288102337332363`*^9}, 3.9288102926194143`*^9, {3.92881033023814*^9, 3.928810371325098*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"6745991f-e93a-418d-a50a-248df1b945c4"], Cell[BoxData[ RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{"zufall", ",", RowBox[{"ChiSquareDistribution", "[", "10", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.92880995157286*^9, 3.9288099684918003`*^9}}, CellLabel-> "In[202]:=",ExpressionUUID->"e4606b17-5a46-47a8-98d2-b6496077ff1f"], Cell[BoxData[ RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{"zufall", ",", RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928809890762904*^9, 3.928809893062587*^9}, { 3.9288099827521143`*^9, 3.9288099910836143`*^9}, 3.928810040840136*^9}, CellLabel-> "In[203]:=",ExpressionUUID->"d9f928df-b6e2-4e78-9d43-b7fb1f9ae170"] }, Open ]], Cell[CellGroupData[{ Cell["Anwendung: Zentraler Grenzwertsatz", "Section", CellChangeTimes->{{3.928810618383605*^9, 3.928810623046885*^9}},ExpressionUUID->"4f9f9a8d-9e69-41bc-8944-\ e152904070b1"], Cell["\<\ Die Summe vieler Zufallszahlen ist normalverteilt. Hier betrachten wir 1000 \ Zufallszahlen, die jeweils die Summe aus k gleichverteilten Zufallszahlen \ zwischen 0 und 1 sind:\ \>", "Text", CellChangeTimes->{{3.9288106294984713`*^9, 3.928810642083045*^9}, { 3.9288106806896057`*^9, 3.928810699809682*^9}, 3.928810768478436*^9},ExpressionUUID->"18effaa1-a141-4644-953a-\ 2b14881b53a4"], Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "2"}], ";"}]], "Input", CellChangeTimes->{{3.928810774995056*^9, 3.928810787864911*^9}, { 3.92881090294385*^9, 3.928810903070177*^9}}, CellLabel-> "In[246]:=",ExpressionUUID->"6dd3f776-4ca1-43f4-9810-23567f3cf895"], Cell[BoxData[ RowBox[{ RowBox[{"zufall", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "k"}], "]"}], "]"}], ",", "10000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.928810646489664*^9, 3.928810702936165*^9}, { 3.928810780085925*^9, 3.9288107984646473`*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"56404ad8-d25d-4976-ad71-8111b130c639"], Cell[BoxData[{ RowBox[{"\[Mu]", "=", RowBox[{"Mean", "[", "zufall", "]"}]}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"StandardDeviation", "[", "zufall", "]"}]}]}], "Input", CellChangeTimes->{{3.928810714089023*^9, 3.928810722825033*^9}}, CellLabel-> "In[248]:=",ExpressionUUID->"fcbf65ec-c2d9-4b56-8731-59682ecfa8cb"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "-", RowBox[{"3", "\[Sigma]"}]}], ",", RowBox[{"\[Mu]", "+", RowBox[{"3", "\[Sigma]"}]}], ",", RowBox[{"\[Sigma]", "/", "10"}]}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"\[Mu]", "-", RowBox[{"3", "\[Sigma]"}]}], ",", RowBox[{"\[Mu]", "+", RowBox[{"3", "\[Sigma]"}]}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928810704227751*^9, 3.9288107096821423`*^9}, { 3.928810847530797*^9, 3.92881089289682*^9}}, CellLabel-> "In[251]:=",ExpressionUUID->"8bd544d9-bded-44e0-9a8e-a69330fe5224"], Cell[BoxData[ RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{"zufall", ",", RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input", CellLabel-> "In[252]:=",ExpressionUUID->"046615fb-7089-4520-901d-78cfbcb7c4cf"], Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "100"}], ";"}]], "Input", CellChangeTimes->{{3.928810774995056*^9, 3.928810816194166*^9}, { 3.9288109265951633`*^9, 3.928810926664544*^9}}, CellLabel-> "In[257]:=",ExpressionUUID->"26bef7a4-75a0-48ea-8ad0-59653a2a2712"], Cell[BoxData[ RowBox[{ RowBox[{"zufall", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "k"}], "]"}], "]"}], ",", "10000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.928810646489664*^9, 3.928810702936165*^9}, { 3.928810780085925*^9, 3.9288107984646473`*^9}}, CellLabel-> "In[258]:=",ExpressionUUID->"e42af71f-d925-45c9-af35-b9af51ff2105"], Cell[BoxData[{ RowBox[{"\[Mu]", "=", RowBox[{"Mean", "[", "zufall", "]"}]}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"StandardDeviation", "[", "zufall", "]"}]}]}], "Input", CellChangeTimes->{{3.928810714089023*^9, 3.928810722825033*^9}}, CellLabel-> "In[259]:=",ExpressionUUID->"bd58a1d1-c6aa-4c16-b8c1-d1328717db1b"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"zufall", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]", "-", RowBox[{"3", "\[Sigma]"}]}], ",", RowBox[{"\[Mu]", "+", RowBox[{"3", "\[Sigma]"}]}], ",", RowBox[{"\[Sigma]", "/", "10"}]}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"\[Mu]", "-", RowBox[{"3", "\[Sigma]"}]}], ",", RowBox[{"\[Mu]", "+", RowBox[{"3", "\[Sigma]"}]}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928810704227751*^9, 3.9288107096821423`*^9}, 3.928813161740554*^9}, CellLabel-> "In[261]:=",ExpressionUUID->"f8593220-6302-42d1-8eb9-31320647d5c0"], Cell[BoxData[ RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{"zufall", ",", RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input", CellLabel-> "In[262]:=",ExpressionUUID->"27953389-ef77-4f30-9ad6-55dea96bbf6a"] }, Open ]], Cell[CellGroupData[{ Cell["Suche nach passenden Verteilungen", "Section", CellChangeTimes->{{3.9288140116284122`*^9, 3.928814015460328*^9}},ExpressionUUID->"c17490d2-fbb1-446b-8740-\ 58066428b7c4"], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zufall", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "k"}], "]"}], "]"}], ",", "10000"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.928814032785068*^9, 3.928814066489728*^9}}, CellLabel-> "In[295]:=",ExpressionUUID->"3acf4258-0959-444e-bced-8b0d313cdf6c"], Cell[BoxData[ RowBox[{"FindDistribution", "[", "zufall", "]"}]], "Input", CellChangeTimes->{{3.928814035889451*^9, 3.9288140400770397`*^9}}, CellLabel-> "In[297]:=",ExpressionUUID->"552e1135-92b8-4f49-9f4b-addedfbaeaa1"], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zufall", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "k"}], "]"}], "]"}], ",", "10000"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.928814032785068*^9, 3.928814082468223*^9}}, CellLabel-> "In[298]:=",ExpressionUUID->"ca44a66b-ad5d-4691-ba95-d4512864991d"], Cell[BoxData[ RowBox[{"FindDistribution", "[", "zufall", "]"}]], "Input", CellChangeTimes->{{3.928814035889451*^9, 3.9288140400770397`*^9}}, CellLabel-> "In[300]:=",ExpressionUUID->"865071cc-13d7-444d-b186-485d1beab149"], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zufall", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "k"}], "]"}], "]"}], ",", "10000"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.928814032785068*^9, 3.928814088118155*^9}}, CellLabel-> "In[303]:=",ExpressionUUID->"be60e4b6-3111-49d6-bea2-17a3efed6a19"], Cell[BoxData[ RowBox[{"FindDistribution", "[", "zufall", "]"}]], "Input", CellChangeTimes->{{3.928814035889451*^9, 3.9288140400770397`*^9}}, CellLabel-> "In[305]:=",ExpressionUUID->"7ddbf0ec-3f67-4e66-80e8-0a7e1a344c63"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Fehler und Fehlerfortpflanzung", "Chapter", CellChangeTimes->{{3.928813572501203*^9, 3.928813577215398*^9}},ExpressionUUID->"a7f8b888-2202-49f9-b51e-\ 748005d1c9c3"], Cell["Absoluter Fehler", "Text", CellChangeTimes->{{3.928813766659243*^9, 3.9288137687836323`*^9}},ExpressionUUID->"b5fb4f0e-f048-4eba-a0be-\ 11637d4451aa"], Cell[BoxData[ RowBox[{"Around", "[", RowBox[{"1.3", ",", "0.2"}], "]"}]], "Input", CellChangeTimes->{{3.928813693586979*^9, 3.928813699859129*^9}}, CellLabel-> "In[274]:=",ExpressionUUID->"5559a541-943b-46f9-8e95-41e932dc388e"], Cell["Relativer Fehler", "Text", CellChangeTimes->{{3.9288137702297497`*^9, 3.928813777822536*^9}},ExpressionUUID->"6f9ca997-a9aa-4af4-b5f1-\ 34a121398046"], Cell[BoxData[ RowBox[{"Around", "[", RowBox[{"1.3", ",", RowBox[{"Scaled", "[", "0.05", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.928813762174787*^9, 3.928813783052162*^9}}, CellLabel-> "In[275]:=",ExpressionUUID->"ca3fa970-c83c-46c8-803b-04cb720a3425"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Around", "[", RowBox[{ RowBox[{"Sqrt", "[", "i", "]"}], ",", RowBox[{"Scaled", "[", "0.05", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.928813792768119*^9, 3.9288138261988564`*^9}}, CellLabel-> "In[277]:=",ExpressionUUID->"a5ff918c-dc6d-4360-a6ec-1872c00b3731"], Cell["Fehlerfortpflanzung", "Text", CellChangeTimes->{{3.9288138354963512`*^9, 3.928813839058381*^9}},ExpressionUUID->"37ce1d3c-5270-4a4e-a1f4-\ 19954f3b45f6"], Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Around", "[", RowBox[{"x", ",", "\[CapitalDelta]x"}], "]"}]}]], "Input", CellChangeTimes->{{3.928813840365642*^9, 3.928813858709381*^9}}, CellLabel-> "In[279]:=",ExpressionUUID->"ab2543fe-6275-4ba2-8c1d-6f5af9b82705"], Cell[BoxData[ RowBox[{"b", "=", RowBox[{"Around", "[", RowBox[{"y", ",", "\[CapitalDelta]y"}], "]"}]}]], "Input", CellChangeTimes->{{3.928813862844878*^9, 3.9288138682710457`*^9}}, CellLabel-> "In[280]:=",ExpressionUUID->"ed190ade-0d0a-4018-b0b7-6948a32eea8a"], Cell[BoxData[ RowBox[{"a", "+", "b"}]], "Input", CellChangeTimes->{{3.928813869839921*^9, 3.928813870183053*^9}}, CellLabel-> "In[281]:=",ExpressionUUID->"1b611fad-7624-4a68-9ce6-13e18bb9d0ed"], Cell[BoxData[ RowBox[{"a", "*", "b"}]], "Input", CellChangeTimes->{{3.928813872660151*^9, 3.9288139143315477`*^9}}, CellLabel-> "In[284]:=",ExpressionUUID->"18710302-8dc5-4dd2-abc1-23784777e74a"], Cell[BoxData[ RowBox[{"a", "^", "b"}]], "Input", CellChangeTimes->{{3.928813915360422*^9, 3.928813916373672*^9}}, CellLabel-> "In[285]:=",ExpressionUUID->"c1a8ed44-a9e1-43b2-8fbb-31663cd63046"] }, Open ]], Cell[CellGroupData[{ Cell["Bestimmung von Fit-Funktionen", "Chapter", CellChangeTimes->{{3.92881053601651*^9, 3.928810539109828*^9}},ExpressionUUID->"14b7cc70-12d3-4bf8-af1a-\ 56c40b745f1b"], Cell["\<\ Wir erzeugen einen Datensatz, indem wir auf jeden Punkt zuf\[ADoubleDot]llige \ St\[ODoubleDot]rfaktoren addieren\ \>", "Text", CellChangeTimes->{{3.9288105692758303`*^9, 3.9288106070626163`*^9}},ExpressionUUID->"2ffd92e4-05e7-4d3f-8df8-\ 08fe6abaa6e9"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "a_", ",", "b_", ",", "c_"}], "]"}], ":=", RowBox[{ RowBox[{"a", "*", RowBox[{"Sin", "[", "x", "]"}]}], "+", RowBox[{"b", "*", "x"}], "+", "c"}]}]], "Input", CellChangeTimes->{{3.928814302508357*^9, 3.928814332274858*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"14e3bb49-6021-4847-941e-6b0463a9f371"], Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.928814342810808*^9, 3.928814353692765*^9}, 3.928814539473322*^9, {3.9288146825484743`*^9, 3.928814682620387*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"bddca6e5-e264-4b27-b294-82331ff24920"], Cell[BoxData[ RowBox[{ RowBox[{"\[Sigma]f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"0.1", "*", "x"}], "+", "0.1"}]}]], "Input", CellChangeTimes->{{3.928814542274815*^9, 3.9288145767394114`*^9}, { 3.929413598902657*^9, 3.929413612332254*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"279cccec-0851-4ead-b98d-3b62cc7fd663"], Cell[BoxData[ RowBox[{"T1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "a", ",", "b", ",", "c"}], "]"}], "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]f", "[", "x", "]"}]}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.928814339467215*^9, 3.928814413963729*^9}, { 3.9288144917418222`*^9, 3.9288145137772703`*^9}, {3.928814581952705*^9, 3.928814588836091*^9}, {3.928814620876267*^9, 3.928814624940568*^9}, { 3.928814722348567*^9, 3.92881472250556*^9}, {3.928814849783925*^9, 3.928814859091065*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"0f6da423-5753-4c15-a6c9-52d6e1a0f87e"], Cell[BoxData[ RowBox[{"ListPlot", "[", "T1", "]"}]], "Input", CellChangeTimes->{{3.928814465544478*^9, 3.928814467596055*^9}, { 3.928814525786263*^9, 3.928814525844564*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"61c83c6f-5efd-4b81-b8e3-3935f49121a8"], Cell["Mit Fehlerbalken", "Text", CellChangeTimes->{{3.929413749442615*^9, 3.929413752170644*^9}},ExpressionUUID->"7bdaa772-a325-4ba9-8628-\ 1e1c1e82b4c9"], Cell[BoxData[ RowBox[{"T1mitFehler", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"T1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Around", "[", RowBox[{ RowBox[{"T1", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"\[Sigma]f", "[", RowBox[{"T1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "T1", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9294137793611193`*^9, 3.929413846845984*^9}, { 3.9294138840233603`*^9, 3.929413907154306*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"46e0f641-f860-4db7-8890-e4058ca7265e"], Cell[BoxData[ RowBox[{"ListPlot", "[", "T1mitFehler", "]"}]], "Input", CellChangeTimes->{3.929413938751062*^9}, CellLabel-> "In[162]:=",ExpressionUUID->"73c42f00-a646-4d0e-ad83-5909084d5839"], Cell["Automatische Erkennung mit FindFormula", "Text", CellChangeTimes->{{3.928814884958302*^9, 3.928814891710458*^9}},ExpressionUUID->"930c2d70-68ec-460d-a383-\ 8427a7ed1249"], Cell[BoxData[ RowBox[{"FitFunktion", "=", RowBox[{"FindFormula", "[", RowBox[{"T1", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.928814596981243*^9, 3.928814599703059*^9}, { 3.928814641842882*^9, 3.928814664332375*^9}, {3.9288147476185904`*^9, 3.928814804271*^9}}, CellLabel-> "In[163]:=",ExpressionUUID->"719010aa-c898-4bd5-b0aa-b7f413088ccb"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "T1mitFehler", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"FitFunktion", ",", RowBox[{"f", "[", RowBox[{"x", ",", "a", ",", "b", ",", "c"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.9288148154574203`*^9, 3.928814843699031*^9}, 3.929413914197063*^9}, CellLabel-> "In[164]:=",ExpressionUUID->"7487ed37-c70f-4f38-90ce-f354d4765fad"], Cell["Funktioniert nicht mehr f\[UDoubleDot]r wenige Datenpunkte", "Text", CellChangeTimes->{{3.928814902372517*^9, 3.928814906848652*^9}},ExpressionUUID->"980d6240-f5ec-4bd3-861c-\ 7d5a12cb923d"], Cell[BoxData[ RowBox[{"T1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "a", ",", "b", ",", "c"}], "]"}], "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]f", "[", "x", "]"}]}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.928814920257895*^9, 3.9288149203856573`*^9}}, CellLabel-> "In[165]:=",ExpressionUUID->"57d34a76-1449-4454-ab29-216040528dfc"], Cell[BoxData[ RowBox[{"T1mitFehler", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"T1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Around", "[", RowBox[{ RowBox[{"T1", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"\[Sigma]f", "[", RowBox[{"T1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "T1", "]"}]}], "}"}]}], "]"}]}]], "Input", CellLabel-> "In[166]:=",ExpressionUUID->"78e1c204-a40f-4505-8fbb-683c5c3af3ff"], Cell[BoxData[ RowBox[{"FitFunktion", "=", RowBox[{"FindFormula", "[", RowBox[{"T1", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.928814596981243*^9, 3.928814599703059*^9}, { 3.928814641842882*^9, 3.928814664332375*^9}, {3.9288147476185904`*^9, 3.928814804271*^9}, {3.928814936965111*^9, 3.928814945261549*^9}, { 3.928814986067717*^9, 3.928814986594139*^9}}, CellLabel-> "In[167]:=",ExpressionUUID->"eae5ca6e-0019-43c1-82e0-65aece52f3ee"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "T1mitFehler", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"FitFunktion", ",", RowBox[{"f", "[", RowBox[{"x", ",", "a", ",", "b", ",", "c"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.9288148154574203`*^9, 3.928814843699031*^9}, 3.9294139770826187`*^9}, CellLabel-> "In[169]:=",ExpressionUUID->"aa406f18-18b4-4a0e-84a3-be58810e65f2"], Cell["\<\ Ist die funktionale Form bekannt, kann man NonlinearModelFit verwenden\ \>", "Text", CellChangeTimes->{{3.929412550287649*^9, 3.929412571111322*^9}},ExpressionUUID->"26b45ccd-a4fa-4248-b0a8-\ da57c24d3adf"], Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"NonlinearModelFit", "[", RowBox[{"T1", ",", RowBox[{"f", "[", RowBox[{"x", ",", "aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.92941264884709*^9, 3.929412653224143*^9}, { 3.92941269265341*^9, 3.929412716625251*^9}, {3.929412747357655*^9, 3.929412749111587*^9}}, CellLabel-> "In[170]:=",ExpressionUUID->"10526527-d068-4bfe-9ef2-39198f37c1a9"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "T1mitFehler", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fit", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.9294127758588123`*^9, 3.92941277710034*^9}, 3.9294139854700747`*^9}, CellLabel-> "In[172]:=",ExpressionUUID->"99d11aa7-8384-4578-a867-84e671b4b7d5"], Cell["Abweichung zwischen Fit und Datenpunkten", "Text", CellChangeTimes->{{3.929412823182778*^9, 3.9294128323703547`*^9}},ExpressionUUID->"38f7d62c-bf3b-4426-945b-\ 99c04319e388"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]], "Input", CellChangeTimes->{{3.9294128052879066`*^9, 3.9294128160155888`*^9}}, CellLabel-> "In[173]:=",ExpressionUUID->"bdde9824-57bd-4d3a-ae43-d3f30b8cbb8a"], Cell[TextData[{ "NonlinearModelFit nimmt standardm\[ADoubleDot]\[SZ]ig den gleichen Fehler f\ \[UDoubleDot]r alle Datenpunkte an. Dies kann durch Weights angepasst werden. \ Dabei sollte das Gewicht von jedem Datenpunkt auf ", Cell[BoxData[ FormBox[ RowBox[{"1", "/", SuperscriptBox["\[Sigma]", "2"]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "22f9b31e-b4d0-4812-9799-01d02794b1a3"], " gesetzt werden." }], "Text", CellChangeTimes->{{3.92941303489524*^9, 3.929413056804908*^9}, { 3.9294132077725677`*^9, 3.9294132475831537`*^9}},ExpressionUUID->"fd31610c-6568-4acf-8a44-\ 40cbfb67844f"], Cell[BoxData[ RowBox[{"WeightList", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"\[Sigma]f", "[", "x", "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.929413166864151*^9, 3.929413201254867*^9}}, CellLabel-> "In[174]:=",ExpressionUUID->"6cd1c322-710c-438e-85ab-c807ad84076a"], Cell[BoxData[ RowBox[{"fit2", "=", RowBox[{"NonlinearModelFit", "[", RowBox[{"T1", ",", RowBox[{"f", "[", RowBox[{"x", ",", "aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], ",", "x", ",", RowBox[{"Weights", "->", "WeightList"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.929413064434457*^9, 3.929413065602738*^9}, { 3.929413257845009*^9, 3.9294132672817097`*^9}}, CellLabel-> "In[175]:=",ExpressionUUID->"567d8b40-0f0e-4d42-a17b-4f2d88bc9583"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "T1mitFehler", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit", "[", "x", "]"}], ",", RowBox[{"fit2", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.9294132776947603`*^9, 3.929413295645746*^9}, 3.929414014785384*^9}, CellLabel-> "In[176]:=",ExpressionUUID->"d3da8faa-6c14-4741-8c8b-6c5565229cc1"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ RowBox[{"fit2", "[", "\"\\"", "]"}], "*", RowBox[{"Sqrt", "[", "WeightList", "]"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]], "Input", CellChangeTimes->{{3.9294140270659113`*^9, 3.9294140355808764`*^9}, { 3.929414072296667*^9, 3.929414074438365*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"9b4355e3-5a36-404f-84b7-75f3da7e2e63"], Cell["\<\ Mathematica liefert auch Konfidenzinterfalle f\[UDoubleDot]r die \ Fit-Parameter:\ \>", "Text", CellChangeTimes->{{3.929413326941813*^9, 3.929413343490136*^9}, 3.9294134571375093`*^9, {3.929413523496133*^9, 3.929413546196443*^9}},ExpressionUUID->"d7b35326-60d0-4ffd-9ff3-\ 0c0eb1fa5392"], Cell[BoxData[ RowBox[{"fit2", "[", RowBox[{"\"\\"", ",", RowBox[{"ConfidenceLevel", "\[Rule]", ".95"}]}], "]"}]], "Input", CellChangeTimes->{{3.929413567121842*^9, 3.929413571224904*^9}}, CellLabel-> "In[152]:=",ExpressionUUID->"0d340d98-8a31-4966-83b2-373cf7391d1e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Konfidenzbereich", "[", "x_", "]"}], "=", RowBox[{"fit2", "[", RowBox[{"\"\\"", ",", RowBox[{"ConfidenceLevel", "\[Rule]", ".95"}]}], "]"}]}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "T1", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit", "[", "x", "]"}], ",", RowBox[{"Konfidenzbereich", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", RowBox[{"{", RowBox[{"2", "\[Rule]", RowBox[{"{", "1", "}"}]}], "}"}]}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.929413460139378*^9, 3.929413503285535*^9}, 3.929413577957202*^9}, CellLabel-> "In[153]:=",ExpressionUUID->"93419117-b949-4b9f-9fe7-b3be6eb5e1a6"] }, Open ]], Cell[CellGroupData[{ Cell["Machine learning mit Mathematica", "Chapter", CellChangeTimes->{{3.92941419770752*^9, 3.9294142010857*^9}},ExpressionUUID->"55b44651-d20a-4784-8557-e60b8d11a71d"], Cell[TextData[{ "Mathematica kennt verschiedene Machine-Learning-Algorithmen. Ein einfaches \ Beispiel ist die sogenannte binary classification, bei der ein Input einer \ von zwei Kategorien zugeordnet werden soll. Als Anwendung betrachten wir die \ Bestimmung von Elementarteilchen durch die unabh\[ADoubleDot]ngige Messung \ von Energie und Impuls. F\[UDoubleDot]r relativistische Teilchen gilt ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["E", "2"], " ", "=", " ", RowBox[{ SuperscriptBox["p", "2"], " ", "+", " ", SuperscriptBox["m", "2"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "24fbd5ac-d11d-4a06-946a-c6ab71e00465"], ", d.h. wir k\[ODoubleDot]nnen aus Energie und Impuls die Ruhemasse und \ somit die Teilchensorte bestimmen. Allerdings variieren Energie und Impuls \ bei jedem Ereignis. Wir betrachten Myonen (Masse = 105) und Pionen (Masse = \ 140) und nehmen an, dass der Impuls beider Teilchensorten \ gleichm\[ADoubleDot]\[SZ]ig zwischen 0 und 1000 verteilt ist (Einheiten \ spielen hier keine Rolle)." }], "Text", CellChangeTimes->{{3.9294142122624197`*^9, 3.929414393685903*^9}, { 3.929414428958267*^9, 3.9294144558725357`*^9}, {3.929414863599299*^9, 3.929414878399178*^9}, {3.929416261158189*^9, 3.929416291088901*^9}},ExpressionUUID->"1ff1625d-269e-4096-885b-\ 636f4a7b3d87"], Cell[BoxData[{ RowBox[{ RowBox[{"m\[Mu]", "=", "105"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m\[Pi]", "=", "140"}], ";"}]}], "Input", CellChangeTimes->{{3.929414581823324*^9, 3.929414596433222*^9}, { 3.929415097562215*^9, 3.9294151023554173`*^9}}, CellLabel-> "In[232]:=",ExpressionUUID->"ca127ccb-6896-4265-a916-78cbab908ba8"], Cell[BoxData[{ RowBox[{ RowBox[{"MyonImpulse", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1000"}], "}"}], ",", "1000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MyonEnergien", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"MyonImpulse", "^", "2"}], "+", RowBox[{"m\[Mu]", "^", "2"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929414605953024*^9, 3.9294146593187237`*^9}, 3.92941482922598*^9, {3.929415095327366*^9, 3.92941509567529*^9}}, CellLabel-> "In[234]:=",ExpressionUUID->"db8de663-5f54-4c24-8ba4-438dc03b3dac"], Cell[BoxData[{ RowBox[{ RowBox[{"PionImpulse", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1000"}], "}"}], ",", "1000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PionEnergien", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"PionImpulse", "^", "2"}], "+", RowBox[{"m\[Pi]", "^", "2"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929414663127986*^9, 3.929414681963292*^9}, { 3.929414804779587*^9, 3.929414829820488*^9}, {3.929415113467607*^9, 3.9294151138191853`*^9}}, CellLabel-> "In[239]:=",ExpressionUUID->"4710c73a-a655-4d8d-a091-7ea166df03ec"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"MyonImpulse", ",", "MyonEnergien"}], "}"}], "]"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"PionImpulse", ",", "PionEnergien"}], "}"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.929414693712916*^9, 3.929414694167939*^9}, { 3.929414732089806*^9, 3.929414741884549*^9}, {3.929414782916793*^9, 3.9294148112137957`*^9}, {3.930281364414241*^9, 3.930281365851561*^9}},ExpressionUUID->"85e69a6b-3810-4197-b007-\ c8472e7ced41"], Cell["\<\ Leider k\[ODoubleDot]nnen Energie und Impuls nur mit einer gewissen \ Unsicherheit gemessen werden\ \>", "Text", CellChangeTimes->{{3.929414870804557*^9, 3.929414894197463*^9}},ExpressionUUID->"8912d562-4811-40ec-ab38-\ 8fc7bcc69253"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Sigma]E", "[", "E_", "]"}], ":=", RowBox[{ RowBox[{"Sqrt", "[", "E", "]"}], "+", "0.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Sigma]p", "[", "p_", "]"}], ":=", RowBox[{"0.1", "p"}]}], ";"}]}], "Input", CellChangeTimes->{{3.9294144602574053`*^9, 3.9294144942931967`*^9}, { 3.929415064552732*^9, 3.929415066004901*^9}, {3.929415119267933*^9, 3.9294151196440163`*^9}}, CellLabel-> "In[242]:=",ExpressionUUID->"5ed41112-d6f8-4082-b34d-cdac977d9ddd"], Cell[BoxData[{ RowBox[{ RowBox[{"GemesseneMyonImpulse", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]p", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "MyonImpulse"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GemesseneMyonEnergien", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]E", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "MyonEnergien"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929414904362361*^9, 3.929414972494318*^9}, { 3.9294150156063013`*^9, 3.9294150491145153`*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"ab6914e2-3c19-4f25-9f60-a0d2dd42222e"], Cell[BoxData[{ RowBox[{ RowBox[{"GemessenePionImpulse", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]p", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "PionImpulse"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GemessenePionEnergien", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]E", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "PionEnergien"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929415129649353*^9, 3.9294151387242107`*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"7f663689-9844-4f0d-aa7a-41dad815fbb9"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"GemesseneMyonImpulse", ",", "GemesseneMyonEnergien"}], "}"}], "]"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"GemessenePionImpulse", ",", "GemessenePionEnergien"}], "}"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.929414979954611*^9, 3.9294149848656063`*^9}, { 3.929415145829054*^9, 3.929415150419298*^9}, {3.930281372535252*^9, 3.930281374262897*^9}},ExpressionUUID->"6286b73f-cac9-46d8-b315-\ 6bc147c4447e"], Cell["\<\ Nun trainieren wir ein neuronales Netz so, dass es aus einem \ Energie-Impuls-Paar die Teilchensorte vorhersagt\ \>", "Text", CellChangeTimes->{{3.929415163879244*^9, 3.929415195617435*^9}},ExpressionUUID->"3a2375bd-acd6-4c17-9a75-\ 00993b5fd4c2"], Cell[BoxData[ RowBox[{"TrainingSet", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GemesseneMyonImpulse", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"GemesseneMyonEnergien", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "->", "\"\\""}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "GemesseneMyonEnergien", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GemessenePionImpulse", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"GemessenePionEnergien", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "->", "\"\\""}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "GemessenePionEnergien", "]"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.929415227058845*^9, 3.9294152859106293`*^9}}, CellLabel-> "In[250]:=",ExpressionUUID->"a4f89c58-4257-4851-99bd-c4e9950db845"], Cell[BoxData[ RowBox[{"Klassifikation", "=", RowBox[{"Classify", "[", "TrainingSet", "]"}]}]], "Input", CellChangeTimes->{{3.929415299747787*^9, 3.929415306022286*^9}}, CellLabel-> "In[251]:=",ExpressionUUID->"b6019125-50d2-48eb-9449-146a47d6c7f1"], Cell["\<\ Wir erzeugen einen zweiten Datensatz, um die Klassifikation zu validieren\ \>", "Text", CellChangeTimes->{{3.9302812211339617`*^9, 3.93028123603449*^9}, { 3.930281480498547*^9, 3.930281481853127*^9}},ExpressionUUID->"da11254b-08b7-4041-9d6c-\ fabddcf3647e"], Cell[BoxData[{ RowBox[{ RowBox[{"MyonImpulse2", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1000"}], "}"}], ",", "1000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MyonEnergien2", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"MyonImpulse2", "^", "2"}], "+", RowBox[{"m\[Mu]", "^", "2"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929414605953024*^9, 3.9294146593187237`*^9}, 3.92941482922598*^9, {3.929415095327366*^9, 3.92941509567529*^9}, { 3.930281240855253*^9, 3.930281245531157*^9}}, CellLabel-> "In[190]:=",ExpressionUUID->"258d4175-6ed1-4b45-8f6f-23e0932abba1"], Cell[BoxData[{ RowBox[{ RowBox[{"PionImpulse2", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1000"}], "}"}], ",", "1000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PionEnergien2", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"PionImpulse2", "^", "2"}], "+", RowBox[{"m\[Pi]", "^", "2"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929414663127986*^9, 3.929414681963292*^9}, { 3.929414804779587*^9, 3.929414829820488*^9}, {3.929415113467607*^9, 3.9294151138191853`*^9}, {3.930281243185308*^9, 3.9302812471090937`*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"72302399-5f1a-4f30-8350-aed0fdcf7007"], Cell[BoxData[{ RowBox[{ RowBox[{"GemesseneMyonImpulse2", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]p", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "MyonImpulse2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GemesseneMyonEnergien2", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]E", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "MyonEnergien2"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929414904362361*^9, 3.929414972494318*^9}, { 3.9294150156063013`*^9, 3.9294150491145153`*^9}, {3.930281248607733*^9, 3.930281258456752*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"c305eb52-1f3f-4234-876a-09daeaccd577"], Cell[BoxData[{ RowBox[{ RowBox[{"GemessenePionImpulse2", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]p", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "PionImpulse2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GemessenePionEnergien2", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "+", RowBox[{"RandomReal", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", RowBox[{"\[Sigma]E", "[", "#", "]"}]}], "]"}], "]"}]}], "&"}], ",", "PionEnergien2"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929415129649353*^9, 3.9294151387242107`*^9}, { 3.930281251827354*^9, 3.9302812605213223`*^9}}, CellLabel-> "In[196]:=",ExpressionUUID->"acbbc1b6-7af9-4467-a152-ba67294c3afb"], Cell[BoxData[ RowBox[{"ErgebnisseMyon", "=", RowBox[{"Klassifikation", "[", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"GemesseneMyonImpulse2", ",", "GemesseneMyonEnergien2"}], "}"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.929415200917406*^9, 3.929415202358679*^9}, { 3.9294153348940372`*^9, 3.929415399024868*^9}, {3.929415520382901*^9, 3.9294155256883307`*^9}, {3.930281304749319*^9, 3.930281306102468*^9}, { 3.930281343668301*^9, 3.930281344233302*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"330bdd9e-fd20-4a29-a8a0-b3e3b9b27c3e"], Cell[BoxData[ RowBox[{"ErgebnissePion", "=", RowBox[{"Klassifikation", "[", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"GemessenePionImpulse2", ",", "GemessenePionEnergien2"}], "}"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.929415604178193*^9, 3.929415614777375*^9}, { 3.93028130891973*^9, 3.9302813103885603`*^9}, 3.930281346745075*^9}, CellLabel-> "In[199]:=",ExpressionUUID->"82766a49-3184-4321-9e16-fd7a01c67920"], Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnisseMyon", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}], ",", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnisseMyon", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"ChartLabels", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.929415404686215*^9, 3.929415405899992*^9}, { 3.929415531444158*^9, 3.929415591695112*^9}, {3.929415623825955*^9, 3.929415635279819*^9}, {3.929415671850655*^9, 3.929415687786325*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"afcabf63-f3c4-45d6-94c1-23ff0717a1a4"], Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnissePion", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}], ",", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnissePion", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"ChartLabels", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.92941569408038*^9, 3.929415704568502*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"0f09dfd0-6cae-477c-a1e9-759b4e029aec"], Cell["\<\ F\[UDoubleDot]r jedes einzelne Ereignis wird eine Wahrscheinlichkeit \ ausgegeben:\ \>", "Text", CellChangeTimes->{{3.9294157164228277`*^9, 3.929415741570703*^9}},ExpressionUUID->"2b67000c-2885-4f6d-8e1b-\ 4d2810d56ac5"], Cell[BoxData[ RowBox[{"Klassifikation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GemessenePionImpulse", "[", RowBox[{"[", "127", "]"}], "]"}], ",", RowBox[{"GemessenePionEnergien", "[", RowBox[{"[", "127", "]"}], "]"}]}], "}"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.9294157695415773`*^9, 3.929415800611574*^9}}, CellLabel-> "In[202]:=",ExpressionUUID->"561e9ed4-9e19-4526-9d27-cafc143e212a"], Cell["\<\ Somit ist es m\[ODoubleDot]glich, nur dann eine Klassifikation vorzunehmen, \ wenn sich das Netzwerk (einigerma\[SZ]en) sicher ist\ \>", "Text", CellChangeTimes->{{3.929415991741888*^9, 3.929416025309823*^9}},ExpressionUUID->"a28046ba-469b-42a7-b4fa-\ cd03374dc620"], Cell[BoxData[{ RowBox[{ RowBox[{"ErgebnisseMyonSicher", "=", RowBox[{"Klassifikation", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"GemesseneMyonImpulse", ",", "GemesseneMyonEnergien"}], "}"}], "]"}], ",", RowBox[{"IndeterminateThreshold", "->", "0.8"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ErgebnissePionSicher", "=", RowBox[{"Klassifikation", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"GemessenePionImpulse", ",", "GemessenePionEnergien"}], "}"}], "]"}], ",", RowBox[{"IndeterminateThreshold", "->", "0.8"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.929415942925981*^9, 3.9294159713720617`*^9}, { 3.9294160340165863`*^9, 3.929416059296172*^9}, {3.9302813799438877`*^9, 3.9302813815154953`*^9}}, CellLabel-> "In[203]:=",ExpressionUUID->"fcc1643d-2b9c-418c-82ce-f7a169130330"], Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnisseMyonSicher", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}], ",", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnisseMyonSicher", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"ChartLabels", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.929415404686215*^9, 3.929415405899992*^9}, { 3.929415531444158*^9, 3.929415591695112*^9}, {3.929415623825955*^9, 3.929415635279819*^9}, {3.929415671850655*^9, 3.929415687786325*^9}, { 3.92941607447243*^9, 3.929416090091106*^9}, {3.9294161347043247`*^9, 3.929416154591371*^9}, {3.929416216650486*^9, 3.92941622129634*^9}}, CellLabel-> "In[205]:=",ExpressionUUID->"edf4da44-7479-46db-acf7-7f0b94d06096"], Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnissePionSicher", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}], ",", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"ErgebnissePionSicher", ",", RowBox[{ RowBox[{"#", "==", "\"\\""}], "&"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"ChartLabels", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.92941569408038*^9, 3.929415704568502*^9}, { 3.929416226898768*^9, 3.9294162277227287`*^9}}, CellLabel-> "In[206]:=",ExpressionUUID->"d5d6ed89-40d9-4450-bf8e-0d5c7c067bcf"] }, Open ]] }, Open ]] }, WindowSize->{1256.6037735849056`, 688.0754716981131}, WindowMargins->{{0, Automatic}, {0, Automatic}}, TaggingRules-><|"TryRealOnly" -> False|>, FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"2f138437-e81f-4df4-9991-2df914879285" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 175, 3, 98, "Title",ExpressionUUID->"07315bd2-5dd7-4cf2-98ca-e0f27a8b1f08"], Cell[CellGroupData[{ Cell[780, 29, 225, 4, 69, "Chapter",ExpressionUUID->"7c3474a7-4227-4cc5-b882-11799010325a"], Cell[1008, 35, 349, 6, 29, "Input",ExpressionUUID->"0e86f1d2-2772-425d-8a1c-1ac11e963477"], Cell[1360, 43, 244, 4, 35, "Text",ExpressionUUID->"e3897f29-56b3-499e-995a-ddf4ca7cde92"], Cell[1607, 49, 672, 14, 42, "Input",ExpressionUUID->"a94f74eb-f3be-4bb3-8919-047ca73df91a"], Cell[2282, 65, 760, 14, 115, "Input",ExpressionUUID->"e31b1cff-c83a-472c-84b4-1b9fb1dcf7c5"], Cell[3045, 81, 383, 8, 32, "Input",ExpressionUUID->"58e915a9-7790-4e05-8df3-08cfefe98b81"], Cell[3431, 91, 2400, 43, 42, "Input",ExpressionUUID->"41e03d0c-b6f1-4a44-9ed2-783603fe2e63"], Cell[5834, 136, 1965, 38, 49, "Input",ExpressionUUID->"44d575d7-0726-4d4b-aa98-22e929745310"], Cell[7802, 176, 338, 7, 29, "Input",ExpressionUUID->"892ee499-ffb5-41b1-b403-8a7ac7bf6f9f"], Cell[8143, 185, 1620, 36, 49, "Input",ExpressionUUID->"588f913a-de9a-4b4e-aef9-39df020934a3"], Cell[9766, 223, 1792, 40, 49, "Input",ExpressionUUID->"929a22e1-19b6-48d5-af38-215529781039"] }, Open ]], Cell[CellGroupData[{ Cell[11595, 268, 159, 3, 69, "Chapter",ExpressionUUID->"e38f479e-fc6b-44ff-8bf9-90e4acdc8749"], Cell[11757, 273, 211, 3, 29, "Input",ExpressionUUID->"0fd2b5cf-4cfe-491c-a82e-3dd824ce034c"], Cell[11971, 278, 249, 4, 29, "Input",ExpressionUUID->"6cb84fa9-5f52-473e-be49-c1841da1d81b"], Cell[12223, 284, 655, 17, 29, "Input",ExpressionUUID->"5e63481f-d5c7-4279-ab68-6466aceb0877"], Cell[12881, 303, 449, 8, 52, "Input",ExpressionUUID->"d95d1d08-b22c-4162-a0f2-32ab33f2eac0"], Cell[13333, 313, 453, 9, 52, "Input",ExpressionUUID->"364be617-47aa-4ea9-9455-acf3a1bc9ef4"], Cell[13789, 324, 160, 3, 35, "Text",ExpressionUUID->"f195465d-fb9f-406d-9778-563bc1a9f3d7"], Cell[13952, 329, 382, 8, 29, "Input",ExpressionUUID->"232ef32e-d309-49ae-8402-62bc81e29654"], Cell[14337, 339, 195, 3, 35, "Text",ExpressionUUID->"b0f7922e-f9a5-4229-97ce-9c4da6a51ecd"], Cell[14535, 344, 251, 6, 29, "Input",ExpressionUUID->"ce54849d-4945-46db-9b0b-b1b7850ebc5f"], Cell[14789, 352, 173, 3, 35, "Text",ExpressionUUID->"412b20bd-4564-4e20-952d-032d4dd0e6a8"], Cell[14965, 357, 241, 5, 29, "Input",ExpressionUUID->"90f60a15-97b1-49ec-a842-ce5a8077911f"], Cell[15209, 364, 253, 6, 29, "Input",ExpressionUUID->"b6bb6213-1f04-4e04-80fa-e9fee75c7bec"] }, Open ]], Cell[CellGroupData[{ Cell[15499, 375, 175, 3, 69, "Chapter",ExpressionUUID->"73cca4f0-3bd4-447e-954e-c28af5c2ba05"], Cell[15677, 380, 170, 3, 35, "Text",ExpressionUUID->"af0aee7d-74b2-423b-b57d-f4bdbffd0f3e"], Cell[15850, 385, 209, 4, 29, "Input",ExpressionUUID->"8d9391bf-5e8c-4e8c-86dd-f014c28abe55"], Cell[16062, 391, 176, 3, 35, "Text",ExpressionUUID->"cb5fe057-2628-45bf-a34c-b1ac8b1c5f04"], Cell[16241, 396, 370, 9, 29, "Input",ExpressionUUID->"a39d69ef-0b20-4bc0-8ec6-808845a33eee"], Cell[16614, 407, 145, 3, 29, "Input",ExpressionUUID->"17fd92ae-6eca-4e3c-be13-261ee2722655"], Cell[16762, 412, 158, 3, 29, "Input",ExpressionUUID->"b4589c97-4063-445c-a8a2-4ec22f2a0505"], Cell[16923, 417, 175, 3, 35, "Text",ExpressionUUID->"1b7342f4-9ce7-4b7f-8bb3-5b37617ac0bb"], Cell[17101, 422, 299, 7, 52, "Input",ExpressionUUID->"c181efa9-7f7c-4b0d-a033-fd8bee1e6f88"], Cell[17403, 431, 356, 9, 29, "Input",ExpressionUUID->"cc23832c-0d12-4680-a844-acf22ea81455"], Cell[17762, 442, 222, 4, 29, "Input",ExpressionUUID->"3dd74311-efe4-4ea0-9dbe-27bb3074c583"], Cell[17987, 448, 323, 8, 29, "Input",ExpressionUUID->"c6b8650d-bdfc-4aa9-85a4-9e7cb36ecadb"], Cell[18313, 458, 382, 10, 29, "Input",ExpressionUUID->"c8d1a3b7-b587-47c1-86f4-db86b4613f4f"], Cell[18698, 470, 700, 19, 29, "Input",ExpressionUUID->"9a87d0e4-83be-4571-9ef6-d807bec38e98"], Cell[19401, 491, 429, 11, 29, "Input",ExpressionUUID->"297ee9ed-2df4-4582-b0dd-13230a2d5192"], Cell[19833, 504, 700, 19, 29, "Input",ExpressionUUID->"9eeab800-df35-4149-939f-92756d530e41"], Cell[20536, 525, 908, 23, 39, "Text",ExpressionUUID->"6c50b20a-feb7-4ff3-8bed-ebd0a4188c68"], Cell[21447, 550, 82, 0, 29, "Input",ExpressionUUID->"e256fe4a-a8c7-43f8-9f69-8d2817dbb15d"], Cell[21532, 552, 224, 5, 29, "Input",ExpressionUUID->"a117c81f-b635-413f-8699-23163dc30bb2"], Cell[21759, 559, 380, 10, 29, "Input",ExpressionUUID->"b224059e-6467-4a80-9fff-54221cb295b4"], Cell[22142, 571, 358, 9, 29, "Input",ExpressionUUID->"7f504e72-c21b-4fbe-ab02-dfe2024961d7"], Cell[22503, 582, 710, 18, 29, "Input",ExpressionUUID->"806077c3-d440-4471-a9b1-a7be9d5a8229"], Cell[CellGroupData[{ Cell[23238, 604, 170, 3, 68, "Section",ExpressionUUID->"f1c85d85-33fc-49d5-bde2-2fb09f837c03"], Cell[23411, 609, 380, 8, 35, "Text",ExpressionUUID->"12eca9ec-4ad7-413c-9529-62eb60840e83"], Cell[23794, 619, 441, 11, 29, "Input",ExpressionUUID->"0c0290d4-2c01-4646-a6f2-e48042eb1d16"], Cell[24238, 632, 238, 5, 29, "Input",ExpressionUUID->"a2849691-8f7e-4dd5-826d-f4ce6fac7e8d"], Cell[24479, 639, 254, 5, 29, "Input",ExpressionUUID->"c305150e-be14-4533-9697-0a23aafecfb3"], Cell[24736, 646, 986, 29, 55, "Input",ExpressionUUID->"30541041-a411-43a1-a2cc-79c1068b0165"], Cell[25725, 677, 453, 12, 31, "Input",ExpressionUUID->"534cabe3-ec0c-4e91-9976-9e74f5ea6af8"], Cell[26181, 691, 953, 25, 55, "Input",ExpressionUUID->"6745991f-e93a-418d-a50a-248df1b945c4"], Cell[27137, 718, 302, 6, 29, "Input",ExpressionUUID->"e4606b17-5a46-47a8-98d2-b6496077ff1f"], Cell[27442, 726, 409, 8, 29, "Input",ExpressionUUID->"d9f928df-b6e2-4e78-9d43-b7fb1f9ae170"] }, Open ]], Cell[CellGroupData[{ Cell[27888, 739, 179, 3, 68, "Section",ExpressionUUID->"4f9f9a8d-9e69-41bc-8944-e152904070b1"], Cell[28070, 744, 403, 8, 35, "Text",ExpressionUUID->"18effaa1-a141-4644-953a-2b14881b53a4"], Cell[28476, 754, 264, 6, 29, "Input",ExpressionUUID->"6dd3f776-4ca1-43f4-9810-23567f3cf895"], Cell[28743, 762, 503, 14, 29, "Input",ExpressionUUID->"56404ad8-d25d-4976-ad71-8111b130c639"], Cell[29249, 778, 346, 7, 52, "Input",ExpressionUUID->"fcbf65ec-c2d9-4b56-8731-59682ecfa8cb"], Cell[29598, 787, 991, 28, 29, "Input",ExpressionUUID->"8bd544d9-bded-44e0-9a8e-a69330fe5224"], Cell[30592, 817, 267, 6, 29, "Input",ExpressionUUID->"046615fb-7089-4520-901d-78cfbcb7c4cf"], Cell[30862, 825, 269, 6, 29, "Input",ExpressionUUID->"26bef7a4-75a0-48ea-8ad0-59653a2a2712"], Cell[31134, 833, 503, 14, 29, "Input",ExpressionUUID->"e42af71f-d925-45c9-af35-b9af51ff2105"], Cell[31640, 849, 346, 7, 52, "Input",ExpressionUUID->"bd58a1d1-c6aa-4c16-b8c1-d1328717db1b"], Cell[31989, 858, 969, 28, 29, "Input",ExpressionUUID->"f8593220-6302-42d1-8eb9-31320647d5c0"], Cell[32961, 888, 267, 6, 29, "Input",ExpressionUUID->"27953389-ef77-4f30-9ad6-55dea96bbf6a"] }, Open ]], Cell[CellGroupData[{ Cell[33265, 899, 180, 3, 68, "Section",ExpressionUUID->"c17490d2-fbb1-446b-8740-58066428b7c4"], Cell[33448, 904, 522, 15, 52, "Input",ExpressionUUID->"3acf4258-0959-444e-bced-8b0d313cdf6c"], Cell[33973, 921, 225, 4, 29, "Input",ExpressionUUID->"552e1135-92b8-4f49-9f4b-addedfbaeaa1"], Cell[34201, 927, 522, 15, 52, "Input",ExpressionUUID->"ca44a66b-ad5d-4691-ba95-d4512864991d"], Cell[34726, 944, 225, 4, 29, "Input",ExpressionUUID->"865071cc-13d7-444d-b186-485d1beab149"], Cell[34954, 950, 523, 15, 52, "Input",ExpressionUUID->"be60e4b6-3111-49d6-bea2-17a3efed6a19"], Cell[35480, 967, 225, 4, 29, "Input",ExpressionUUID->"7ddbf0ec-3f67-4e66-80e8-0a7e1a344c63"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35754, 977, 175, 3, 69, "Chapter",ExpressionUUID->"a7f8b888-2202-49f9-b51e-748005d1c9c3"], Cell[35932, 982, 160, 3, 35, "Text",ExpressionUUID->"b5fb4f0e-f048-4eba-a0be-11637d4451aa"], Cell[36095, 987, 235, 5, 29, "Input",ExpressionUUID->"5559a541-943b-46f9-8e95-41e932dc388e"], Cell[36333, 994, 160, 3, 35, "Text",ExpressionUUID->"6f9ca997-a9aa-4af4-b5f1-34a121398046"], Cell[36496, 999, 270, 6, 29, "Input",ExpressionUUID->"ca3fa970-c83c-46c8-803b-04cb720a3425"], Cell[36769, 1007, 465, 12, 29, "Input",ExpressionUUID->"a5ff918c-dc6d-4360-a6ec-1872c00b3731"], Cell[37237, 1021, 163, 3, 35, "Text",ExpressionUUID->"37ce1d3c-5270-4a4e-a1f4-19954f3b45f6"], Cell[37403, 1026, 270, 6, 29, "Input",ExpressionUUID->"ab2543fe-6275-4ba2-8c1d-6f5af9b82705"], Cell[37676, 1034, 272, 6, 29, "Input",ExpressionUUID->"ed190ade-0d0a-4018-b0b7-6948a32eea8a"], Cell[37951, 1042, 198, 4, 29, "Input",ExpressionUUID->"1b611fad-7624-4a68-9ce6-13e18bb9d0ed"], Cell[38152, 1048, 200, 4, 29, "Input",ExpressionUUID->"18710302-8dc5-4dd2-abc1-23784777e74a"], Cell[38355, 1054, 198, 4, 29, "Input",ExpressionUUID->"c1a8ed44-a9e1-43b2-8fbb-31663cd63046"] }, Open ]], Cell[CellGroupData[{ Cell[38590, 1063, 173, 3, 69, "Chapter",ExpressionUUID->"14b7cc70-12d3-4bf8-af1a-56c40b745f1b"], Cell[38766, 1068, 267, 6, 35, "Text",ExpressionUUID->"2ffd92e4-05e7-4d3f-8df8-08fe6abaa6e9"], Cell[39036, 1076, 384, 9, 29, "Input",ExpressionUUID->"14e3bb49-6021-4847-941e-6b0463a9f371"], Cell[39423, 1087, 424, 9, 73, "Input",ExpressionUUID->"bddca6e5-e264-4b27-b294-82331ff24920"], Cell[39850, 1098, 338, 8, 29, "Input",ExpressionUUID->"279cccec-0851-4ead-b98d-3b62cc7fd663"], Cell[40191, 1108, 910, 23, 29, "Input",ExpressionUUID->"0f6da423-5753-4c15-a6c9-52d6e1a0f87e"], Cell[41104, 1133, 260, 5, 29, "Input",ExpressionUUID->"61c83c6f-5efd-4b81-b8e3-3935f49121a8"], Cell[41367, 1140, 158, 3, 35, "Text",ExpressionUUID->"7bdaa772-a325-4ba9-8628-1e1c1e82b4c9"], Cell[41528, 1145, 864, 25, 29, "Input",ExpressionUUID->"46e0f641-f860-4db7-8890-e4058ca7265e"], Cell[42395, 1172, 196, 4, 29, "Input",ExpressionUUID->"73c42f00-a646-4d0e-ad83-5909084d5839"], Cell[42594, 1178, 180, 3, 35, "Text",ExpressionUUID->"930c2d70-68ec-460d-a383-8427a7ed1249"], Cell[42777, 1183, 368, 8, 29, "Input",ExpressionUUID->"719010aa-c898-4bd5-b0aa-b7f413088ccb"], Cell[43148, 1193, 569, 15, 29, "Input",ExpressionUUID->"7487ed37-c70f-4f38-90ce-f354d4765fad"], Cell[43720, 1210, 200, 3, 35, "Text",ExpressionUUID->"980d6240-f5ec-4bd3-861c-7d5a12cb923d"], Cell[43923, 1215, 667, 19, 29, "Input",ExpressionUUID->"57d34a76-1449-4454-ab29-216040528dfc"], Cell[44593, 1236, 745, 23, 29, "Input",ExpressionUUID->"78e1c204-a40f-4505-8fbb-683c5c3af3ff"], Cell[45341, 1261, 463, 9, 29, "Input",ExpressionUUID->"eae5ca6e-0019-43c1-82e0-65aece52f3ee"], Cell[45807, 1272, 571, 15, 29, "Input",ExpressionUUID->"aa406f18-18b4-4a0e-84a3-be58810e65f2"], Cell[46381, 1289, 220, 5, 35, "Text",ExpressionUUID->"26b45ccd-a4fa-4248-b0a8-da57c24d3adf"], Cell[46604, 1296, 532, 13, 29, "Input",ExpressionUUID->"10526527-d068-4bfe-9ef2-39198f37c1a9"], Cell[47139, 1311, 458, 12, 29, "Input",ExpressionUUID->"99d11aa7-8384-4578-a867-84e671b4b7d5"], Cell[47600, 1325, 184, 3, 35, "Text",ExpressionUUID->"38f7d62c-bf3b-4426-945b-99c04319e388"], Cell[47787, 1330, 326, 7, 29, "Input",ExpressionUUID->"bdde9824-57bd-4d3a-ae43-d3f30b8cbb8a"], Cell[48116, 1339, 633, 15, 59, "Text",ExpressionUUID->"fd31610c-6568-4acf-8a44-40cbfb67844f"], Cell[48752, 1356, 432, 12, 32, "Input",ExpressionUUID->"6cd1c322-710c-438e-85ab-c807ad84076a"], Cell[49187, 1370, 535, 12, 29, "Input",ExpressionUUID->"567d8b40-0f0e-4d42-a17b-4f2d88bc9583"], Cell[49725, 1384, 548, 15, 29, "Input",ExpressionUUID->"d3da8faa-6c14-4741-8c8b-6c5565229cc1"], Cell[50276, 1401, 443, 10, 29, "Input",ExpressionUUID->"9b4355e3-5a36-404f-84b7-75f3da7e2e63"], Cell[50722, 1413, 306, 7, 35, "Text",ExpressionUUID->"d7b35326-60d0-4ffd-9ff3-0c0eb1fa5392"], Cell[51031, 1422, 310, 6, 29, "Input",ExpressionUUID->"0d340d98-8a31-4966-83b2-373cf7391d1e"], Cell[51344, 1430, 916, 25, 52, "Input",ExpressionUUID->"93419117-b949-4b9f-9fe7-b3be6eb5e1a6"] }, Open ]], Cell[CellGroupData[{ Cell[52297, 1460, 172, 2, 69, "Chapter",ExpressionUUID->"55b44651-d20a-4784-8557-e60b8d11a71d"], Cell[52472, 1464, 1366, 26, 127, "Text",ExpressionUUID->"1ff1625d-269e-4096-885b-636f4a7b3d87"], Cell[53841, 1492, 351, 8, 52, "Input",ExpressionUUID->"ca127ccb-6896-4265-a916-78cbab908ba8"], Cell[54195, 1502, 628, 17, 52, "Input",ExpressionUUID->"db8de663-5f54-4c24-8ba4-438dc03b3dac"], Cell[54826, 1521, 656, 18, 52, "Input",ExpressionUUID->"4710c73a-a655-4d8d-a091-7ea166df03ec"], Cell[55485, 1541, 601, 15, 29, "Input",ExpressionUUID->"85e69a6b-3810-4197-b007-c8472e7ced41"], Cell[56089, 1558, 248, 6, 35, "Text",ExpressionUUID->"8912d562-4811-40ec-ab38-8fc7bcc69253"], Cell[56340, 1566, 551, 15, 52, "Input",ExpressionUUID->"5ed41112-d6f8-4082-b34d-cdac977d9ddd"], Cell[56894, 1583, 953, 26, 52, "Input",ExpressionUUID->"ab6914e2-3c19-4f25-9f60-a0d2dd42222e"], Cell[57850, 1611, 902, 25, 52, "Input",ExpressionUUID->"7f663689-9844-4f0d-aa7a-41dad815fbb9"], Cell[58755, 1638, 597, 15, 29, "Input",ExpressionUUID->"6286b73f-cac9-46d8-b315-6bc147c4447e"], Cell[59355, 1655, 261, 6, 35, "Text",ExpressionUUID->"3a2375bd-acd6-4c17-9a75-00993b5fd4c2"], Cell[59619, 1663, 1193, 34, 52, "Input",ExpressionUUID->"a4f89c58-4257-4851-99bd-c4e9950db845"], Cell[60815, 1699, 256, 5, 29, "Input",ExpressionUUID->"b6019125-50d2-48eb-9449-146a47d6c7f1"], Cell[61074, 1706, 273, 6, 35, "Text",ExpressionUUID->"da11254b-08b7-4041-9d6c-fabddcf3647e"], Cell[61350, 1714, 681, 18, 52, "Input",ExpressionUUID->"258d4175-6ed1-4b45-8f6f-23e0932abba1"], Cell[62034, 1734, 707, 18, 52, "Input",ExpressionUUID->"72302399-5f1a-4f30-8350-aed0fdcf7007"], Cell[62744, 1754, 1006, 27, 52, "Input",ExpressionUUID->"c305eb52-1f3f-4234-876a-09daeaccd577"], Cell[63753, 1783, 957, 26, 52, "Input",ExpressionUUID->"acbbc1b6-7af9-4467-a152-ba67294c3afb"], Cell[64713, 1811, 580, 12, 29, "Input",ExpressionUUID->"330bdd9e-fd20-4a29-a8a0-b3e3b9b27c3e"], Cell[65296, 1825, 456, 10, 29, "Input",ExpressionUUID->"82766a49-3184-4321-9e16-fd7a01c67920"], Cell[65755, 1837, 984, 25, 52, "Input",ExpressionUUID->"afcabf63-f3c4-45d6-94c1-23ff0717a1a4"], Cell[66742, 1864, 839, 23, 52, "Input",ExpressionUUID->"0f09dfd0-6cae-477c-a1e9-759b4e029aec"], Cell[67584, 1889, 234, 6, 35, "Text",ExpressionUUID->"2b67000c-2885-4f6d-8e1b-4d2810d56ac5"], Cell[67821, 1897, 473, 12, 29, "Input",ExpressionUUID->"561e9ed4-9e19-4526-9d27-cafc143e212a"], Cell[68297, 1911, 280, 6, 35, "Text",ExpressionUUID->"a28046ba-469b-42a7-b4fa-cd03374dc620"], Cell[68580, 1919, 944, 25, 52, "Input",ExpressionUUID->"fcc1643d-2b9c-418c-82ce-f7a169130330"], Cell[69527, 1946, 1140, 27, 52, "Input",ExpressionUUID->"edf4da44-7479-46db-acf7-7f0b94d06096"], Cell[70670, 1975, 902, 24, 52, "Input",ExpressionUUID->"d5d6ed89-40d9-4450-bf8e-0d5c7c067bcf"] }, Open ]] }, Open ]] } ] *)