(* 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[ 72714, 1664] NotebookOptionsPosition[ 54514, 1346] NotebookOutlinePosition[ 72399, 1652] CellTagsIndexPosition[ 72356, 1649] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Inicializacion", "Section", InitializationCell->True, CellChangeTimes->{{3.428263320427875*^9, 3.428263346427875*^9}, { 3.428292744375*^9, 3.42829274653125*^9}, {3.428293090875*^9, 3.4282930945625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Displacementgraph", "[", " ", RowBox[{"fun_", ",", RowBox[{"{", RowBox[{"tmin_", ",", "tmax_"}], "}"}], ",", RowBox[{"{", RowBox[{"ymin_", ",", "ymax_"}], "}"}], ",", "t1_", ",", "t2_", ",", "opts__"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "p2", ",", "f1", ",", "f2"}], "}"}], ",", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "t1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "Blue", "]"}], "]"}], ",", RowBox[{"Thickness", "[", "0.015", "]"}], ",", "Dashed"}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "t1", ",", "t2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.015", "]"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "t2", ",", "tmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "Blue", "]"}], "]"}], ",", RowBox[{"Thickness", "[", "0.015", "]"}], ",", "Dashed"}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"p1", "=", RowBox[{"{", RowBox[{"t1", ",", RowBox[{"f1", "=", RowBox[{"fun", "[", "t1", "]"}]}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"tmin", ",", "f1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"t1", ",", "ymin"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Dashed", ",", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tmin", ",", "f1"}], "}"}], ",", RowBox[{"{", RowBox[{"t1", ",", "f1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Dashed", ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t1", ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{"t1", ",", "f1"}], "}"}]}], "}"}], "]"}]}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"p2", "=", RowBox[{"{", RowBox[{"t2", ",", RowBox[{"f2", "=", RowBox[{"fun", "[", "t2", "]"}]}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"tmin", ",", "f2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"t2", ",", "ymin"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Dashed", ",", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tmin", ",", "f2"}], "}"}], ",", RowBox[{"{", RowBox[{"t2", ",", "f2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Dashed", ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t2", ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{"t2", ",", "f2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Dashed", ",", "Blue", ",", RowBox[{"Arrow", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tmin", ",", "f1"}], "}"}], ",", RowBox[{"{", RowBox[{"tmin", ",", "f2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", " ", RowBox[{ "\"\<\[CapitalDelta]x\>\"", ",", " ", "Italic", ",", "Bold", ",", "16"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"tmin", "+", RowBox[{"0.05", RowBox[{"(", RowBox[{"tmax", "-", "tmin"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"f2", "+", "f1"}], ")"}], "/", "2"}]}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", "opts"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"velpts", "[", " ", RowBox[{"accpts_", ",", " ", "v0_"}], "]"}], " ", ":=", " ", RowBox[{"accpts", "//", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"#", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "&"}]}], " ", ",", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"#", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "&"}]}], " ", ",", RowBox[{"-", "1"}]}], "]"}], RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "&"}]}], " ", "//", " ", RowBox[{ RowBox[{"#", " ", "-", RowBox[{"(", RowBox[{"#", "//", "RotateRight"}], ")"}]}], "&"}]}], ",", "1"}], "]"}]}], ",", "v0"}], "]"}], "//", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"FoldList", "[", RowBox[{ RowBox[{ RowBox[{"#1", " ", "+", "#2"}], " ", "&"}], ",", "0", ",", "#"}], "]"}], ",", "1"}], "]"}], "&"}]}]}], "}"}], "//", "Transpose"}], ")"}], "&"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"pospts", "[", " ", RowBox[{"vpts_", ",", "x0_"}], "]"}], " ", ":=", " ", RowBox[{"vpts", "//", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"#", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "&"}]}], " ", ",", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"#", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "&"}]}], " ", ",", RowBox[{"-", "1"}]}], "]"}], RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "&"}]}], " ", "//", " ", RowBox[{ RowBox[{"#", " ", "-", RowBox[{"(", RowBox[{"#", "//", "RotateRight"}], ")"}]}], "&"}]}], ",", "1"}], "]"}]}], ")"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Times", "@@", RowBox[{"(", "#", ")"}]}], "&"}], ",", " ", RowBox[{"Drop", "[", RowBox[{ RowBox[{"#", " ", "-", RowBox[{"(", RowBox[{"#", "//", "RotateRight"}], ")"}]}], ",", "1"}], "]"}]}], "]"}]}]}], ",", RowBox[{"x0", "+", RowBox[{ RowBox[{"vpts", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"vpts", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}]}], "]"}], "//", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"FoldList", "[", RowBox[{ RowBox[{ RowBox[{"#1", " ", "+", "#2"}], " ", "&"}], ",", "0", ",", "#"}], "]"}], ",", "1"}], "]"}], "&"}]}]}], "}"}], "//", "Transpose"}], ")"}], "&"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"accpts", "[", " ", "vpts_", "]"}], " ", ":=", RowBox[{ RowBox[{ RowBox[{"vpts", "//", RowBox[{ RowBox[{"#", "-", RowBox[{"(", RowBox[{"#", "//", "RotateRight"}], ")"}]}], "&"}]}], "//", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"vpts", "//", "Transpose"}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"Drop", "[", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"#", "//", "Transpose"}], ")"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"#", "//", "Transpose"}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]], ",", "1"}], "]"}]}], "}"}], ")"}], "]"}], "&"}]}], "//", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Last", "[", "vpts", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Last", "[", "#", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], "&"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"accel", "[", RowBox[{"t_", ",", "accpts_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"sorted", ",", "cumuls", ",", "pos"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"pos", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"accpts", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "&"}]}], ")"}], "-", "t"}], ",", RowBox[{"x_", "/;", RowBox[{"x", "<", "0"}]}]}], "]"}], "//", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "==", RowBox[{"{", "}"}]}], ",", "0", ",", RowBox[{ RowBox[{"Last", "[", "#", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"pos", "==", "0"}], ",", "0", " ", ",", RowBox[{"accpts", "[", RowBox[{"[", RowBox[{"pos", ",", "2"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vel", "[", RowBox[{"t_", ",", "accpts_", ",", "velpts_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"sorted", ",", "cumuls", ",", "pos"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"pos", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"velpts", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "&"}]}], ")"}], "-", "t"}], ",", RowBox[{"x_", "/;", RowBox[{"x", "<", "0"}]}]}], "]"}], "//", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "==", RowBox[{"{", "}"}]}], ",", "0", ",", RowBox[{ RowBox[{"Last", "[", "#", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"pos", "==", "0"}], ",", RowBox[{"velpts", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", RowBox[{ RowBox[{"velpts", "[", RowBox[{"[", RowBox[{"pos", ",", "2"}], "]"}], "]"}], "+", " ", RowBox[{ RowBox[{"accpts", "[", RowBox[{"[", RowBox[{"pos", ",", "2"}], "]"}], "]"}], RowBox[{"(", RowBox[{"t", " ", "-", " ", RowBox[{"accpts", "[", RowBox[{"[", RowBox[{"pos", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"position", "[", RowBox[{"t_", ",", "accpts_", ",", "velpts_", ",", "posts_", ",", "x0_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"sorted", ",", "cumuls", ",", "pos"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"pos", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"velpts", "//", "Transpose"}], "//", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "&"}]}], ")"}], "-", "t"}], ",", RowBox[{"x_", "/;", RowBox[{"x", "<", "0"}]}]}], "]"}], "//", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "==", RowBox[{"{", "}"}]}], ",", "0", ",", RowBox[{ RowBox[{"Last", "[", "#", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"pos", "==", "0"}], ",", RowBox[{"x0", "+", RowBox[{ RowBox[{"velpts", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "t"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"posts", "[", RowBox[{"[", RowBox[{"pos", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"velpts", "[", RowBox[{"[", RowBox[{"pos", ",", "2"}], "]"}], "]"}], RowBox[{"(", RowBox[{"t", "-", RowBox[{"velpts", "[", RowBox[{"[", RowBox[{"pos", ",", "1"}], "]"}], "]"}]}], ")"}]}], " ", "+", RowBox[{ FractionBox["1", "2"], RowBox[{"accpts", "[", RowBox[{"[", RowBox[{"pos", ",", "2"}], "]"}], "]"}], SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{"t", "-", RowBox[{"velpts", "[", RowBox[{"[", RowBox[{"pos", ",", "1"}], "]"}], "]"}]}], ")"}], " "}], "2"]}]}]}], "\[IndentingNewLine]", "]"}]}]}], "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.428318476084125*^9, 3.428318572615375*^9}, { 3.428318603802875*^9, 3.42831865878725*^9}, {3.428318694365375*^9, 3.428318802552875*^9}, {3.428318836521625*^9, 3.428318916834125*^9}, { 3.428434756609375*^9, 3.428434759*^9}, 3.4286910691192503`*^9, { 3.4286940259473753`*^9, 3.4286941554786253`*^9}, 3.4286941987442503`*^9, { 3.4286971086192503`*^9, 3.4286971169005003`*^9}, {3.428707114106996*^9, 3.428707119528871*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Manipulacion", "Section", CellChangeTimes->{{3.428263320427875*^9, 3.428263346427875*^9}, { 3.428292744375*^9, 3.42829274653125*^9}, {3.428293102125*^9, 3.4282931043125*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xpts", "=", RowBox[{"pospts", "[", RowBox[{"vxpts", ",", RowBox[{"p1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"axpts", "=", RowBox[{"accpts", "[", " ", "vxpts", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"funx", " ", "=", " ", RowBox[{ RowBox[{"position", "[", RowBox[{"#", ",", "axpts", ",", "vxpts", ",", "xpts", ",", RowBox[{"p1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{"funv", "=", RowBox[{ RowBox[{"vel", "[", RowBox[{"#", ",", "axpts", ",", "vxpts"}], "]"}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{"xnow", " ", "=", " ", RowBox[{"funx", "[", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"t1", "=", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{"t2", "=", RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\<\[CapitalDelta]x\>\"", ",", "\"\<=\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubsuperscriptBox", "[", RowBox[{"\"\<\[Integral]\>\"", ",", "t1", ",", "t2"}], "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", "\"\<(\>\"", ",", "\"\\"", ",", "\"\<)\>\""}], "}"}], "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\< \>\"", ",", "\"\<=\>\"", ",", "\"\< \>\"", ",", RowBox[{ RowBox[{"funx", "[", "t2", "]"}], "-", RowBox[{"funx", "[", "t1", "]"}]}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\<\[SpanFromLeft]\>\"", ",", "\"\<\[SpanFromLeft]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\< \>\"", ",", "\"\< \>\"", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<(\>\"", ",", "t1", ",", "\"\<)\>\""}], "}"}], "]"}], ",", "\"\<=\>\"", ",", RowBox[{"funx", "[", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<(\>\"", ",", "t2", ",", "\"\<)\>\""}], "}"}], "]"}], ",", "\"\<=\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"funx", "[", "t1", "]"}], ",", "\"\<+\>\"", ",", "\"\<\[CapitalDelta]x\>\""}], "}"}], "]"}], ",", "\"\<=\>\"", ",", RowBox[{"funx", "[", "t2", "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}], "//", "DisplayForm"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Displacementgraph", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "=", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p2", "\[Equal]", "p1"}], ",", RowBox[{"p2", "=", RowBox[{"p1", "+", "0.0001"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "funx"}], ",", RowBox[{"{", RowBox[{"0", ",", "20"}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "300"}], " ", ",", "300"}], "}"}], ",", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "300"}], " ", ",", "300"}], " ", "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", " ", RowBox[{ "\"\\"", ",", " ", "Italic", ",", "Bold", ",", "16"}], "]"}], ",", RowBox[{"Style", "[", " ", RowBox[{ "\"\\"", ",", " ", "Italic", ",", "Bold", ",", "16"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", " ", "Bold", ",", "16"}], "]"}]}]}], "]"}]}], ",", RowBox[{"Appearance", "\[Rule]", "None"}]}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", "vxpts", "]"}], ",", RowBox[{"Dynamic", "@", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vxpts", "=", RowBox[{"Sort", "[", "vxpts", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"funv", "[", "t", "]"}], " ", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"funv", "[", "t", "]"}], " ", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "80"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"funv", "[", "t", "]"}], " ", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", RowBox[{"{", RowBox[{"1", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Lighter", "[", "Blue", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "400"}]}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20"}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "40"}], " ", ",", "40"}], " ", "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", " ", RowBox[{ "\"\\"", ",", " ", "Italic", ",", "Bold", ",", "16"}], "]"}], ",", RowBox[{"Style", "[", " ", RowBox[{ "\"\<\!\(\*SubscriptBox[\(v\), \(x\)]\)(t)\>\"", ",", " ", "Italic", ",", "Bold", ",", "16"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", " ", "Bold", ",", "16"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Dashed", ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "40"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "40"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Dashed", ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "40"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "40"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", "]"}]}], ",", RowBox[{"LocatorAutoCreate", "\[Rule]", "True"}]}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"p1", ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", RowBox[{"-", "100"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"p2", ",", RowBox[{"{", RowBox[{"15", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", RowBox[{"-", "100"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", RowBox[{"ControlPlacement", "\[Rule]", "Bottom"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"Initialization", "\[RuleDelayed]", " ", RowBox[{"{", RowBox[{ RowBox[{"xnow", "=", "1"}], ";", RowBox[{"vxpts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"80", RowBox[{"Random", "[", "]"}]}], "-", "40"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "0.01"}], ",", "20", ",", "6"}], "}"}]}], "]"}]}], ";", RowBox[{"axpts", "=", RowBox[{"accpts", "[", " ", "vxpts", "]"}]}], ";", RowBox[{"xpts", "=", RowBox[{"pospts", "[", RowBox[{"axpts", ",", "vxpts", ",", "1"}], "]"}]}], ";"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.428710841419496*^9, 3.428710842653871*^9}, { 3.428710875231996*^9, 3.428710900185121*^9}, {3.428710971216371*^9, 3.428710971950746*^9}, {3.428711079310121*^9, 3.428711138153871*^9}, { 3.428711176122621*^9, 3.428711644716371*^9}, {3.428711704200746*^9, 3.428711817841371*^9}, {3.4288555604786253`*^9, 3.4288555626192503`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Demostracion", "Section", CellChangeTimes->{{3.428263320427875*^9, 3.428263346427875*^9}, { 3.428292744375*^9, 3.42829274653125*^9}}], Cell["\<\ Desplazamiento como la integral (area bajo la curva) de la velocidad contra \ tiempo. Ajuste las lineas rojas en la grafica de posicion contra tiempo para \ determinar el intervalo de tiempo. El area bajo la curva de velocidad contra \ tiempo determina el desplazamiento \[CapitalDelta]x en ese intervalo. La \ posicion en el primer tiempo del intervalo tambien se puede ajustar en la \ grafica de x(t). La curva de velocidad contra tiempo se puede moldear con los \ controles (use alt-click para agregar o quitar controles) \ \>", "Text", CellChangeTimes->{{3.42826344203725*^9, 3.42826350741225*^9}, { 3.428263538459125*^9, 3.42826366447475*^9}, {3.428265283052875*^9, 3.428265313271625*^9}, {3.428292176140625*^9, 3.4282928083125*^9}, { 3.4286964566036253`*^9, 3.4286966135880003`*^9}, {3.4286966661036253`*^9, 3.4286967291661253`*^9}, {3.428707603935121*^9, 3.428707614950746*^9}}, FontSize->18], Cell[BoxData[ FormBox[ TagBox[ FormBox[ StyleBox[ DynamicModuleBox[{$CellContext`p1$$ = {5, 1}, $CellContext`p2$$ = {15, 1}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Dynamic[ LocatorPane[ Dynamic[{$CellContext`p1$$, $CellContext`p2$$}], Dynamic[ $CellContext`Displacementgraph[{$CellContext`p1$$, \ $CellContext`p2$$} = Sort[{$CellContext`p1$$, $CellContext`p2$$}]; If[$CellContext`p2$$ == $CellContext`p1$$, $CellContext`p2$$ = \ $CellContext`p1$$ + 0.0001]; $CellContext`funx, {0, 20}, {-300, 300}, Part[$CellContext`p1$$, 1], Part[$CellContext`p2$$, 1], AspectRatio -> 1/2, PlotRange -> {{0, 20}, {-300, 300}}, Frame -> True, ImageSize -> 400, FrameLabel -> { Style["t", Italic, Bold, 16], Style["x(t)", Italic, Bold, 16]}, PlotLabel -> Style["Posicion y desplazamiento", Bold, 16]]], Appearance -> None]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ LocatorPane[ Dynamic[$CellContext`vxpts], Dynamic[ Show[$CellContext`vxpts = Sort[$CellContext`vxpts]; { Plot[ $CellContext`funv[$CellContext`t], {$CellContext`t, 0, Part[$CellContext`p1$$, 1]}, PlotStyle -> {Blue, Thickness[0.01]}], Plot[ $CellContext`funv[$CellContext`t], {$CellContext`t, Part[$CellContext`p2$$, 1], 80}, PlotStyle -> {Blue, Thickness[0.01]}], Plot[ $CellContext`funv[$CellContext`t], {$CellContext`t, Part[$CellContext`p1$$, 1], Part[$CellContext`p2$$, 1]}, PlotStyle -> {Blue, Thickness[0.01]}, Filling -> {1 -> {0, Lighter[Blue]}}, PlotPoints -> 400]}, PlotRange -> {{0, 20}, {-40, 40}}, Frame -> True, ImageSize -> 400, GridLines -> Automatic, FrameLabel -> { Style["t", Italic, Bold, 16], Style[ "\!\(\*SubscriptBox[\(v\), \(x\)]\)(t)", Italic, Bold, 16]}, PlotLabel -> Style["Velocidad: instantanea", Bold, 16], Prolog -> {{ Thickness[0.01], Dashed, Red, Line[{{ Part[$CellContext`p2$$, 1], -40}, { Part[$CellContext`p2$$, 1], 40}}]}, { Thickness[0.01], Dashed, Red, Line[{{ Part[$CellContext`p1$$, 1], -40}, { Part[$CellContext`p1$$, 1], 40}}]}}]], LocatorAutoCreate -> True]]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`p1$$], {5, 1}}, {-100, -100}, {100, 100}}, {{ Hold[$CellContext`p2$$], {15, 1}}, {-100, -100}, {100, 100}}}, Typeset`size$$ = {251., {22., 29.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`p1$69208$$ = {0, 0}, $CellContext`p2$69209$$ = {0, 0}}, DynamicBox[Manipulate`ManipulateBoxes[ 1, TraditionalForm, "Variables" :> {$CellContext`p1$$ = {5, 1}, $CellContext`p2$$ = {15, 1}}, "ControllerVariables" :> { Hold[$CellContext`p1$$, $CellContext`p1$69208$$, {0, 0}], Hold[$CellContext`p2$$, $CellContext`p2$69209$$, {0, 0}]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`xpts = $CellContext`pospts[$CellContext`vxpts, Part[$CellContext`p1$$, 2]]; $CellContext`axpts = \ $CellContext`accpts[$CellContext`vxpts]; $CellContext`funx = \ $CellContext`position[#, $CellContext`axpts, $CellContext`vxpts, \ $CellContext`xpts, Part[$CellContext`p1$$, 2]]& ; $CellContext`funv = $CellContext`vel[#, \ $CellContext`axpts, $CellContext`vxpts]& ; $CellContext`xnow = \ $CellContext`funx[ Part[$CellContext`p1$$, 1]]; $CellContext`t1 = Part[$CellContext`p1$$, 1]; $CellContext`t2 = Part[$CellContext`p2$$, 1]; DisplayForm[ GridBox[{{ RowBox[{"\[CapitalDelta]x", "=", RowBox[{ RowBox[{ SubsuperscriptBox[ "\[Integral]", $CellContext`t1, $CellContext`t2], RowBox[{ RowBox[{ SubscriptBox["v", "x"], "(", "t", ")"}], RowBox[{"d", "t"}]}]}], " ", "=", " ", $CellContext`funx[$CellContext`t2] - \ $CellContext`funx[$CellContext`t1]}]}], "\[SpanFromLeft]", "\[SpanFromLeft]"}, {" ", " ", " "}, { RowBox[{ RowBox[{"x", "(", $CellContext`t1, ")"}], "=", $CellContext`funx[ Part[$CellContext`p1$$, 1]]}], " ", RowBox[{ RowBox[{"x", "(", $CellContext`t2, ")"}], "=", RowBox[{ RowBox[{ $CellContext`funx[$CellContext`t1], "+", "\[CapitalDelta]x"}], "=", $CellContext`funx[$CellContext`t2]}]}]}}]]), "Specifications" :> { Dynamic[ LocatorPane[ Dynamic[{$CellContext`p1$$, $CellContext`p2$$}], Dynamic[ $CellContext`Displacementgraph[{$CellContext`p1$$, \ $CellContext`p2$$} = Sort[{$CellContext`p1$$, $CellContext`p2$$}]; If[$CellContext`p2$$ == $CellContext`p1$$, $CellContext`p2$$ = \ $CellContext`p1$$ + 0.0001]; $CellContext`funx, {0, 20}, {-300, 300}, Part[$CellContext`p1$$, 1], Part[$CellContext`p2$$, 1], AspectRatio -> 1/2, PlotRange -> {{0, 20}, {-300, 300}}, Frame -> True, ImageSize -> 400, FrameLabel -> { Style["t", Italic, Bold, 16], Style["x(t)", Italic, Bold, 16]}, PlotLabel -> Style["Posicion y desplazamiento", Bold, 16]]], Appearance -> None]], Delimiter, Dynamic[ LocatorPane[ Dynamic[$CellContext`vxpts], Dynamic[ Show[$CellContext`vxpts = Sort[$CellContext`vxpts]; { Plot[ $CellContext`funv[$CellContext`t], {$CellContext`t, 0, Part[$CellContext`p1$$, 1]}, PlotStyle -> {Blue, Thickness[0.01]}], Plot[ $CellContext`funv[$CellContext`t], {$CellContext`t, Part[$CellContext`p2$$, 1], 80}, PlotStyle -> {Blue, Thickness[0.01]}], Plot[ $CellContext`funv[$CellContext`t], {$CellContext`t, Part[$CellContext`p1$$, 1], Part[$CellContext`p2$$, 1]}, PlotStyle -> {Blue, Thickness[0.01]}, Filling -> {1 -> {0, Lighter[Blue]}}, PlotPoints -> 400]}, PlotRange -> {{0, 20}, {-40, 40}}, Frame -> True, ImageSize -> 400, GridLines -> Automatic, FrameLabel -> { Style["t", Italic, Bold, 16], Style[ "\!\(\*SubscriptBox[\(v\), \(x\)]\)(t)", Italic, Bold, 16]}, PlotLabel -> Style["Velocidad: instantanea", Bold, 16], Prolog -> {{ Thickness[0.01], Dashed, Red, Line[{{ Part[$CellContext`p2$$, 1], -40}, { Part[$CellContext`p2$$, 1], 40}}]}, { Thickness[0.01], Dashed, Red, Line[{{ Part[$CellContext`p1$$, 1], -40}, { Part[$CellContext`p1$$, 1], 40}}]}}]], LocatorAutoCreate -> True]], {{$CellContext`p1$$, {5, 1}}, {-100, -100}, {100, 100}, ControlType -> None}, {{$CellContext`p2$$, {15, 1}}, {-100, -100}, {100, 100}, ControlType -> None}}, "Options" :> {ControlPlacement -> Bottom}, "DefaultOptions" :> {}], ImageSizeCache->{426., {325., 332.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`xpts = {{-0.01, -214.26641258689764`}, { 5.99, -72.162639345391}, {11.99, -24.43882975891772}, { 17.99, -65.61073088097882}}, $CellContext`pospts[ Pattern[$CellContext`vpts, Blank[]], Pattern[$CellContext`x0, Blank[]]] := (Transpose[{ (Part[#, 1]& )[ Transpose[#]], (Drop[ FoldList[# + #2& , 0, #], 1]& )[ Prepend[Drop[ (Part[#, 2]& )[ Transpose[#]], -1] Drop[ (# - RotateRight[#]& )[ (Part[#, 1]& )[ Transpose[#]]], 1] + (1/2) Map[Apply[Times, #]& , Drop[# - RotateRight[#], 1]], $CellContext`x0 + Part[$CellContext`vpts, 1, 2] Part[$CellContext`vpts, 1, 1]]]}]& )[$CellContext`vpts], $CellContext`vxpts = {{-0.01, 26.641258689764925`}, {5.99, 20.72666572407062}, { 11.99, -4.818729195246192}, { 17.99, -8.905237845440844}}, $CellContext`axpts = {{-0.01, \ -0.9857654942823839}, {5.99, -4.2575658198861355`}, { 11.99, -0.6810847750324422}, { 17.99, -0.6810847750324422}}, $CellContext`accpts[ Pattern[$CellContext`vpts, Blank[]]] := (Append[#, { Part[ Last[$CellContext`vpts], 1], Part[ Last[#], 2]}]& )[ (Transpose[{ Drop[ Part[ Transpose[$CellContext`vpts], 1], -1], Drop[Part[ Transpose[#], 2]/Part[ Transpose[#], 1], 1]}]& )[ (# - RotateRight[#]& )[$CellContext`vpts]]], $CellContext`funx = \ $CellContext`position[#, $CellContext`axpts, $CellContext`vxpts, \ $CellContext`xpts, Part[FE`p1$$34, 2]]& , $CellContext`position[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`accpts, Blank[]], Pattern[$CellContext`velpts, Blank[]], Pattern[$CellContext`posts, Blank[]], Pattern[$CellContext`x0, Blank[]]] := Module[{$CellContext`sorted, $CellContext`cumuls, \ $CellContext`pos}, $CellContext`pos = (If[# == {}, 0, Part[ Last[#], 1]]& )[ Position[(Part[#, 1]& )[ Transpose[$CellContext`velpts]] - $CellContext`t, Condition[ Pattern[$CellContext`x, Blank[]], $CellContext`x < 0]]]; If[$CellContext`pos == 0, $CellContext`x0 + Part[$CellContext`velpts, 1, 2] $CellContext`t, Part[$CellContext`posts, $CellContext`pos, 2] + Part[$CellContext`velpts, $CellContext`pos, 2] ($CellContext`t - Part[$CellContext`velpts, $CellContext`pos, 1]) + (1/2) Part[$CellContext`accpts, $CellContext`pos, 2] ($CellContext`t - Part[$CellContext`velpts, $CellContext`pos, 1])^2]], $CellContext`velpts[ Pattern[$CellContext`accpts, Blank[]], Pattern[$CellContext`v0, Blank[]]] := (Transpose[{ (Part[#, 1]& )[ Transpose[#]], (Drop[ FoldList[# + #2& , 0, #], 1]& )[ Prepend[Drop[ (Part[#, 2]& )[ Transpose[#]], -1] Drop[ (# - RotateRight[#]& )[ (Part[#, 1]& )[ Transpose[#]]], 1], $CellContext`v0]]}]& )[$CellContext`accpts], \ $CellContext`x = "Fri 2 Feb 2007 17:02:11", FE`p1$$34 = { 2.98, -214.}, $CellContext`funv = $CellContext`vel[#, \ $CellContext`axpts, $CellContext`vxpts]& , $CellContext`vel[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`accpts, Blank[]], Pattern[$CellContext`velpts, Blank[]]] := Module[{$CellContext`sorted, $CellContext`cumuls, \ $CellContext`pos}, $CellContext`pos = (If[# == {}, 0, Part[ Last[#], 1]]& )[ Position[(Part[#, 1]& )[ Transpose[$CellContext`velpts]] - $CellContext`t, Condition[ Pattern[$CellContext`x, Blank[]], $CellContext`x < 0]]]; If[$CellContext`pos == 0, Part[$CellContext`velpts, 1, 2], Part[$CellContext`velpts, $CellContext`pos, 2] + Part[$CellContext`accpts, $CellContext`pos, 2] ($CellContext`t - Part[$CellContext`accpts, $CellContext`pos, 1])]], $CellContext`xnow = -139.01547015221752`, \ $CellContext`t1 = 5, $CellContext`t2 = 15, $CellContext`Displacementgraph[ Pattern[$CellContext`fun, Blank[]], { Pattern[$CellContext`tmin, Blank[]], Pattern[$CellContext`tmax, Blank[]]}, { Pattern[$CellContext`ymin, Blank[]], Pattern[$CellContext`ymax, Blank[]]}, Pattern[$CellContext`t1, Blank[]], Pattern[$CellContext`t2, Blank[]], Pattern[$CellContext`opts, BlankSequence[]]] := Module[{$CellContext`p1, $CellContext`p2, $CellContext`f1, \ $CellContext`f2}, Show[{ Plot[ $CellContext`fun[$CellContext`t], {$CellContext`t, \ $CellContext`tmin, $CellContext`t1}, PlotStyle -> { Lighter[ Lighter[Blue]], Thickness[0.015], Dashed}, PerformanceGoal -> "Speed"], Plot[ $CellContext`fun[$CellContext`t], {$CellContext`t, \ $CellContext`t1, $CellContext`t2}, PlotStyle -> Thickness[0.015], PerformanceGoal -> "Speed"], Plot[ $CellContext`fun[$CellContext`t], {$CellContext`t, \ $CellContext`t2, $CellContext`tmax}, PlotStyle -> { Lighter[ Lighter[Blue]], Thickness[0.015], Dashed}, PerformanceGoal -> "Speed"], Graphics[{{ PointSize[Large], Point[$CellContext`p1 = {$CellContext`t1, $CellContext`f1 = \ $CellContext`fun[$CellContext`t1]}]}, { PointSize[Large], Blue, Point[{$CellContext`tmin, $CellContext`f1}]}, { PointSize[Large], Red, Point[{$CellContext`t1, $CellContext`ymin}]}, { Thickness[0.01], Dashed, Blue, Line[{{$CellContext`tmin, $CellContext`f1}, \ {$CellContext`t1, $CellContext`f1}}]}, { Thickness[0.01], Dashed, Red, Line[{{$CellContext`t1, $CellContext`ymin}, \ {$CellContext`t1, $CellContext`f1}}]}, { PointSize[Large], Point[$CellContext`p2 = {$CellContext`t2, $CellContext`f2 = \ $CellContext`fun[$CellContext`t2]}]}, { PointSize[Large], Blue, Point[{$CellContext`tmin, $CellContext`f2}]}, { PointSize[Large], Red, Point[{$CellContext`t2, $CellContext`ymin}]}, { Thickness[0.01], Dashed, Blue, Line[{{$CellContext`tmin, $CellContext`f2}, \ {$CellContext`t2, $CellContext`f2}}]}, { Thickness[0.01], Dashed, Red, Line[{{$CellContext`t2, $CellContext`ymin}, \ {$CellContext`t2, $CellContext`f2}}]}, { Thickness[0.005], Dashed, Blue, Arrow[{{$CellContext`tmin, $CellContext`f1}, \ {$CellContext`tmin, $CellContext`f2}}]}, {Blue, Text[ Style[ "\[CapitalDelta]x", Italic, Bold, 16], {$CellContext`tmin + 0.05 ($CellContext`tmax - $CellContext`tmin), \ ($CellContext`f2 + $CellContext`f1)/2}]}}]}, GridLines -> Automatic, $CellContext`opts]]}; {$CellContext`xnow = 1; $CellContext`vxpts = Table[{$CellContext`i, 80 Random[] - 40}, {$CellContext`i, -0.01, 20, 6}]; $CellContext`axpts = \ $CellContext`accpts[$CellContext`vxpts]; $CellContext`xpts = \ $CellContext`pospts[$CellContext`axpts, $CellContext`vxpts, 1]; Null}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], TraditionalForm], Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output", CellChangeTimes->{3.4288555688536253`*^9}] }, Open ]] }, AutoGeneratedPackage->None, WindowSize->{962, 731}, WindowMargins->{{117, Automatic}, {Automatic, 4}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XXd4FEeWHysRDKwxJoNlQDmQkRAoYoKEDQIbFhPMGXvB2IDx4rDnsAu7\n\ BntJwhgEiCCQQBmBAkpIQkIBJZRzQgIRP/vu9tu7+76L+7uq7qqe6pmekQTs\n\ /TGMprq6Xqiq93vv1etm2abPt27esenzjz7Y9NqSXZs+3frRB5+9tnjnLtJk\n\ +YJOZ+Gu0+mcX9PRv0H+ZP+8gs7OTp0VqvPycSnwTeRHRKK9tdVaah6Ehrp6\n\ 3PYPQs8Ed5S5TEWznzfu/UMw7n6yFlUb1uD2xYs6S6nvAHR2dKD66hXk79iO\n\ gjnzUDzKEQkzPFFx6ZIOtM/fpI66kYxk5nd7cXm8A2I2b0NVcbGV1DwCHWSY\n\ +rfW4Z7DTNyxn42Wpf5o3xiEB9vext13g9H03irUhZ9CbcoVVJ45jbztH6Nw\n\ njdqp7mhyNUVZ8ZMwZUVb6G9sVGDrA3qqqoQ7zYHcYMn4vwMLxQfPY767FwL\n\ 6fLLaG9uRtuqlbjn6YW2GXNRM88DTesWofuz1Xj03XrcX0/YWfY6WoID0Lx6\n\ ISp8ZqJ8ljsqZkxHtK0Twij5lW9JlCFTHiV9jUUyEThtxGRkj7BDEvlOd5yG\n\ mzs+RVnoSZSsX4eHnh646++LRm9vtNpNR4PPbHR/twoP//g2Oj8PRtvmQDQt\n\ mY3mra/jlv9sFARMRfxUN5yztcd5Jxdc//S3OmO641FTXIREB3fEjJpCPnbI\n\ GW+HtAn2iLV3QJGDEx66zcZ9P190LvZH16x56HB3w52di3D/zAbcO7YO7V8E\n\ omyTH0rXeyF39VwkvT4HYQ7OODR2Ak64uKEyIUGiShaAbqBE0xJ1mZmoz82V\n\ fkns/FXkaRw62tqQvvLXuPTSq0jw9sKtP76Pij9vRcn+rag8uBUNhz9G4487\n\ 0HB8Jxp++gR1h7ai7sR2NMZ8gYZLX6Ix6kvUnPstqkK3o/LEDpQf+wSlBz9G\n\ xvZVOD59Kq5//Q0KDxy0ZpPe0daKiosXUXo6DJnr1iH97dW4HRcncfavMmej\n\ pa8puEVmI97NBVXnvkTzlcOojTmKpvhjuJ92Gt1pYehOPYWu1DDcST+Hroyz\n\ 6Lz8Ezqjj6CTXGvPPoPWnDNoJH/XJoaiNu4Y6hJ/QlNKKHI+/xCXHNyQ8clO\n\ lBFWyuknIgIlp07h6voNSAhegUSyjrPJ7F8nLDbm58ua+zeRv8koOBSC2CAf\n\ NFzeh9sRYai8FIGHqTHoSovCP9dk4y+3s/Fzfgoe5mfgUUEanqRE4edrMXiU\n\ HI0HqdHoSYlFW1Is2qMi0RJ1AVVnCL/nI9BOeDk91QXfT7ZFiJMTDrm64exM\n\ sqg9ZiLWeSpuTfNE0VxfZG35EG119U0SO9ZovZqKKhdvVL7kgprgDfS3bgJb\n\ BMXFxfLCIL/+ynZ9Wloatm3bhh9++AGNjY3yrtf9it1BbQi/w4oJ3NbcioSV\n\ KxC9dD7q4r4n038WPZcj8UtBMs75+CI5KAitaRH4p4Yb6MlPw/0bSXhSnITH\n\ WTHoSSTKSbiAB1HhuHPhHDrPnsXdC+FoPhWGhqgodF5LwQHPadg/fTJC3Kfg\n\ tLszssjOL3k9ADV+Acjx8iMT9wUVuJkJ3FFZjSqPJah8dZYkNBGe7DGZ/crK\n\ Spw4cUL69a9MCKqExMREfPXVVwgPD1cJ7IjCwyHIev99otUtuL7jE+T/sB9V\n\ KddQfT0LBR9tQR7Z2ylv+qI+7gfcTzmPRxlReFKdicT5fijTTcS1iS7I2bUV\n\ bfmX8bgyCw+J4A9yY3Ev+SIR/gLuEeHvEOFbz59FY8RZYjFPojUuBveyUpG0\n\ 2Bv5QfPRuGwhWgMWo9k3EOUBAUjz88fNfd/r2pkEbXk3JUnpp/mnsHEawv47\n\ a4siOqWCstmkkg6WvoiVKCpCVcR5NJ4JQ/XFSJRGRaMw4iIKtm9H3bQZ6Hp5\n\ Eu4Mn4z2oZPQ5uSMBzPc8MjOFTfe8ENV3D6y986jO/0Sem6nIdY3AOWDHFA7\n\ zBk3dJOQ4DYTN77/Gl1lKXhQmIiulAh0JoSj4/J5tMaGo/rCaZSGheL2qWO4\n\ kxiLzuvXUPbWG2hZtQzt5PvO2mDULl6IdI95uLaBLOKamg4mQ82CFZLgdRs+\n\ 1JmTnE4zXdfkWy25K+oqylFIDM/1t1bitpMbSkdPRswIW0SPm4I8e0dkjLFF\n\ zYuTcPcVO3S6uaLdZw66p09HzooAlEb+kezWM+jIuIg7ZcmIIosyf4gDike7\n\ oWSMG4qHOSBpGBnPfwGKQ/eh/Xo0WuLPoiHuHLEMZ1F67iQKfgrBrWMhZJMk\n\ oPV6Kio+XIPubzbi3taVBOoWIdvPBxkbNtJFrhvC5rw5IkaZc7LSpVVrSX8R\n\ 4eg1vkktGPjTXVH30WeKKaDf9Ddpl9VhwW5u+N1u4WbaZiW20b+lZitmueni\n\ o3aFMSINStqkPhb6gbUHsWCTQ68xaaijwm+yEUVROpGZFjh+UenDReQbn3JF\n\ uZOMAd0aETFs5q3RuPeQXhXkem/SWjJ/i1pTQl+tRvKbtrP+Ov0NpnX6otLW\n\ F64tOEqSvqKuqRQKmREqxumHMkW7i4LSPn0haWN+ZvrHvyXfq4x3apKthYVJ\n\ x+L9BY3qLEwpcYDGRudtdJNTENObOEsKZNi1axe9piwBbgppf/pNfjNIGyCN\n\ SdvpPfReSpeOuWfPHsIUHWUQ/Ru5sgel0Dxy5IhyH8ESNp45WtrX+L7gYKzf\n\ yZYSVtE28s2UqO5nY2ZcSw0d2RiMIeuI/juYQ4XyITJxPUqysnu4kaHqoGrh\n\ JOlv+k1ZlfsMk9RJ1cuHodepbebtXH10eHo//U2u8S1gODMqDmykkajnwgSR\n\ /iZtWvq0ZAwJuuiNCXGuB5igSOUn8lqyy6JK6IeOLohDFzAlImqDKHmgcLeh\n\ OKTN0qQ41ipx2HVl2ik1el2/FBieOKGVSFdK4oTb23agx3E6euydUGTngjxH\n\ 4hnMnIaWSS644zoVbXO9cGehH7LfDUTBud2oiz9NvOkLaCmMxxlfP1x5yQ7p\n\ Y12RNtaFfFyRNcYVV4ZNQRiJbS4GL0PhiYOoiCVe9YUwFB4/gsIjB1AZcwoN\n\ N1LQmJOKht0b8cuP7+HBFytR9UYAkr19SFBweiiTTjBH0ofCl4Xg6YrXqC3m\n\ WlGcQnaNeA2Kvaft9Dpb5E8LhNzKUkNInRLmg/4dgFAwlSqY4X2oK8RGpXJa\n\ KbaZ2WO++ESFUe4ZEPbO52DqZoruh15gWe/G2Glaq/q2vvKtQKA8kfx+Lb4J\n\ n5asWWKReT2EkjlCvYBf3zm2FN0y7iOIbpnBmhR1+PToRxFCRD+KBNyyc8K8\n\ jVp02p9+c9Mg9xmoWD7al/YR7C01WhaSXR8s2S/ahRtHbjjpLbSdgWHfKQ82\n\ 10ciwzCQ7xrOKIVcPnccJuX931fSagUajkXllX6RqJfbWBEWuaJEi85hhf6m\n\ 5lvUikBL6kOtvzgOHZfiC8dL3k7HYffLbL+oOVeCCqS1wljQyRNnowxDrwla\n\ tWKTIHLXKwdqxVkLK5R2k/0mWX0cX0WngCqTtovKYStbUR7zYZQ+ZMwBBvOj\n\ F85SgU09GfWaEPGSS8muKxtHHJfhpZwXGI6mm4VoDtmProVz0e7sjlav2ahZ\n\ 4oWWJfPQPXMu7s0LQPqaQOSe+QNKo0+hLPY0anJiEeLtjZBf2eLkGAeqi9EO\n\ ZCzyN06NssehIRPw3QQ7hK9fh7xTR5AZcgC5xw+gPPEMam8moy4/BS37/wGP\n\ dq9C51o/3FzghatvkCj5dqWOA6RoG9Xhgxz0iNeo9eJ+igis3FCR776Y7d4A\n\ UiZhpYIbaehOVVBAB3hWnLQUg0GdtuGlbdZKP26wFYPLCBvBjrpZinD7yCsn\n\ oajbgt4u+//ioL3gpLXS1leeOXM0nOLMKc0DVDyL8Sxljg9L/SKBnAlqveBl\n\ /zmnEyR6GCpvTriFDKefCfWcPB1kcqa40WGuO59KbgL1XW0Ue8VVyYyGpXAL\n\ teOiWeSuvLlhGCnLvlwepLqsZfYJIukMraXIUV8EY3rSGsbGzDDcEHfqAxLK\n\ FncHeBO3wRxLSRcWIvc+rJHarVVKoBNO0EOJuCmScHThJp9fE1lhZBUbaUiS\n\ 9eXCMzICulgq0uh1rdYrvU7vIettMLuFLj3mYel4bMHzCjwGVSG1OQyzkpjm\n\ aQAl8CSgQ79eQmdqEgnnFqE7yBN3VnihdVMgWjcsQc9Sf2SsD0Rm2O9ReO4I\n\ isJ/wu1rkdjnORefDR2Hb0fa4utRtlb4ZqQtwe9vR03C18MnYueQ0fja0QVn\n\ 338Pt66EoTz5DGqKr6Im+wpaDmzCL39+B63vL0G2vw+uBgcPY/yLCSq1edBH\n\ fErQ47FEn09iuV/qe2u1mTQH/YUrYga5CRDs0jPD1QAFhjg0c00Y+P/GeEXY\n\ UBtpQwuqJmrZG6fy6lRZXQqhWpa93zjVG69afGmQkF0ZBvOETz3ZThXOmiHX\n\ b6DqVc3WEroyeDdaoHzRkphTO4DsPzYNVOyHaOL46QYZg1srnuzhh3wGMZNw\n\ hzLLxtTUw/RCxejyQNVlzi+PdIhl4qfRIpZYaTBoSiYzkGRtchg1OJgDAIr+\n\ ZEZUKGmoH3GsXnCIJfcUUtz49wWH5KBGm6QBDjEyKhwST7+sGQke03FJKWsv\n\ CrjFtWZloHw2dl9ASIk8GKZxsCff7JruZelrGDqKb6Ftwwp0+c/G/W0EgXa9\n\ ge4NC5Cx3B95JIiqijiK6pRw1OclYP+8+fj2VxOwb4ydDfaOnkJu3ztmCv0L\n\ vx8yHntenoDI4CAURP+IlopU1JO4qT10C/7l5EZ0f7QEhYt8kLSUxE1VVUOY\n\ bOLe5saBBCZKjMJARet4x9rQbul7PRX+KPlEZjvYoT03gc8lnzhAzBWqhKbW\n\ Sxhdn3iUzngYDhOrqOLA4JTOUEMmEMcoAJKi0H7HRTb6bJxJFg3PRPuEN8o0\n\ kjYhP6zgQV/JWZmfi77wr87/cnAS4nM1f3IbT43KkROP3vqHQENU27pTSMfw\n\ VIyBHeXGxbQ1UKfTrNi/PJ1G23Nzc62Y5rjRUI1upYyuah5g2Kz4voRnnTmo\n\ MW5TC8CZNYczWmcxPCnXm4Hn43M5uGWmYxq4/Jq5LG5mxfnQK7g3zNPO9GnQ\n\ NpfpE9ushDZ+yigeEQqpOYVVGWZllOP5SBHA+FTqaVpzJ6JX9RqiEZ8qKh69\n\ n0ZaDI1GSF9D0Zabg673gnBv43y0vxeAe3t/jeztK1F0+g9ojD2BlvQItBUn\n\ 4oS3L84On4Koca5kk14a50Kg6OIoR0SPccS12Z7I2rweqX/+ggRCJ9FVmoTW\n\ onR0nNyMv5xdj57NC9C0aj4yAvxwbf27HIqUyg6yy3kMQiwC9zd4hCBd4l6q\n\ ypH++wCSpXSqz+CC0HgOKDTIKKoRCwfo33rWrMXMnjzgq7NkNp4agCxFpCGM\n\ aYJSn6MdY76eDXX4zuptXC14sWAhMZ0u1lenuUKMB9dPihILksmhv7kTRGJV\n\ ebCBZpdUf0DFVPrqKUCFtlnrMyAcUHQiohhBh4lmS7GZFX5YKkUfopB/L1TR\n\ OrHoL6rwuEAo3pAle/5QYmM0s4yoVf/xY6DRWPzkSCzqGMDEEfrpxNQrzZyJ\n\ mMGP5vqLGfQ+EWvIGBwzXmGLuvXoXrSv9kXLjkB0/Gk1sj97G6Vnif8VGYrm\n\ xHB03LiMsz5+SBlmj+tj3axobQQJf7JGueD6CCcUOs1A8TsrcPWrnciJPY2W\n\ 0hR0FCag69YVtN9IRkfoZvzLwRV48vkS3N0ehHJ/L6R4+6D4SAhaa2sHM9Up\n\ 0QvZrcrOHKhsdh7kiBta7Ro+b/jgy5sCFjUtWqM9A3wIEKky3aw2Tp8xMiqK\n\ lBGNtuszS88WywgHbHyzikcVKl32uSrCPMPPhjED+ziuFsZYsX40ank63gcZ\n\ BZc01hUnkfxW7jdKjYr8EPh6CiAaqtryYmRjCER9SUYZeMlC3Zgq8cQzPtyq\n\ Gg5H73s+iTZqs1j4Yxj9JCqVDPJZVx/yhyZybfqRrJWuXPSnzbnRTNRAtvDo\n\ mHQ8lpHqK2b1PdemVTNjkmzfoEsNg1wbJOzgFHktg4hWfO7F/cYiIxWCcRTs\n\ H4LZqJa2sNZeUINYc2IC2vznoGb1fFRuW4yMT1agKvJPaLkQivboc+jMjkeU\n\ jz+KBtujYqSbBcpGuupGomyEC8qGOaFmojtqly5G/u5PceXIAVw9eBANGXFo\n\ z72Ktsx4dBWk4s5NAgRfLcejLxbh3pdv4t47AehYMheFnp5I8piHlNW/Rmt1\n\ NTEPMuO8QIAbGgZbFqxOWQA7c6m753pGZHACwT0sk2dD4gm8MAbP2ij22Ajd\n\ uEBcdo52zFCaMdb9PxbSZFI+FhKfMFEKs4WzD0H/CkssflOx2RtWmGP9GU+J\n\ BmgPbcMmUKxC6GS+Eq8SJIJyYXgXKqgN2zIGI0r9BLDiXHGg4vMgnBspeKbg\n\ oOHC5N6NeTxTGwAWVJk8qeilwkB1kKF1Bm/NkycKPOjrpGyUWjueQ3o+9QwC\n\ pBnFTUpcQ2aZx2i9UGUoaXoka8Vk8iMMfUGAtaogwFwgJJzy8yIArhb+YZz1\n\ Fd7UJQ02WiUNFG+Uo1G9vVeWQy8c9A3p1CuO15vz/mJFBB9XSL6pxlXDnI0W\n\ zOklGqzylgwXCQdcHiO+QJl4gc6CCuzs0XI5Fk0rPVG5yhMFm32RuiUQdZf2\n\ ojv6DO4mR6HnRhLivQNQaWOP2hGuqHnZFdVDndEw0gVt831Q9tvfIPv8MRSn\n\ xqMmOR43joeiIS0W98vScDfvKu4XZZLvTFS/7YeGlTNQt3I+WhZ5oeNNb7R4\n\ eKB4+mykesxF0vIVKP7xRxLG1ej4cwXcgrA4hpsGC2Z6mOWQjQuDHXILn1zR\n\ nD3ncj6aKGPPHgnHUlJXfTW+SYy1UvKaUkk+5Vi2sFwYoRZEDPbkwEx4qMjw\n\ 1F/PtrUqhmPPIxmHDBz+TEOijSGvai0PFgNoBTQ4P3zeBLjnIoooySnISTXG\n\ vh62emffLCyaKPKTH3hQDrI4uDFaJsNuoySjvF9F50AddatTCWpRrI0gV3Ys\n\ ZMGMSzYH6/OSQoKce1AC3krD89JPSpP2F2tZzOGmEAMyPn9lhJu9FafzYmbZ\n\ +aaR0SCVieKFztzCcaffgtlOjdr5fpTt97t4Xjwke7bieTmLyk9lSLtWFpM/\n\ nqZRM69kWHvDU6E6U1bwUKVUnn7EYQ2ryY0nZ4ARfhjXyltr1cqTa9S9GmpU\n\ FM+R1Qwvuv7B7HBN8cWFwnFQqLhX0aTqFas01XlRK8O8qCzaiyZF0/JFLGWs\n\ lWBWAlwBax3R+M0/onzpPFS8S3DzA29c+80SNMR8jzsx4XiQGIWH+amImR+A\n\ 0kH20k6uGO6EhqlzUP3BWmQe3I3c6Ai0FVxHZ34GiSiv4lbkBVRFnceTkmQ8\n\ LLyCnysy0XOTYO3GBWhe4IzqWQ6oc3FG08xpqHacjlLHaSh3n458t5nImDUX\n\ 6W+tRsmJUzR1qjz2qeXJ8+MhC8lRt1LZewVRrRRDxB404/aPI4SR2RVRl0K7\n\ /oG0FyVjRm+kRlCoy9A/YsuiLX2oY6083SQYYuMIQm+5K5UKAcM20Q2wFgcQ\n\ g1sOnDyGkcvkjENRlsYVFCIGmYxn3kt+gqpTiLKkB9vpfUNVQCIefVKxDHDN\n\ CGONRbdRTYwAJnqVCVzrQ2MKb+RO3swnSvUctrUWr4pHJdEltBqEZ9YEUpai\n\ ghSDYAL0hXJFISzVFEGveB5iUqYM8yG0TJEjjfCsturZbIMVbKXSpFBiaQ5l\n\ uVGikGMu4jH3aDRvlw05/XeA6kEm8b5E5RkgGwUJDR7VfrYntQcaOQm8toD2\n\ I2yZQ0LTw+oL56h5Zxxrng3KGh6kekCbgbDCFo/O+IuctunLMxToEJ9coxDC\n\ NSryyOGUY4Ech8rITftzOlzjZp/JHqBMFn9YnJOmsaoYt2uQ7x+IDlKBKAdo\n\ /nA2q3lR1b1yrgWSfHkb16MMNqpHMSGVqXQ1dQsYhkp5WXLtBSmFzqpSiJdc\n\ W4vS1xegxNMdBW/MRWawF5LWLkZT9PfoOn8G9+OjcD83BWfn+yFp0CQUOcxA\n\ 2eplyNr9GdJOHEVJZAQqoy6iOj4GzZlJaM1ORvXlGNyODMf9nHg8zI7Fk6Jr\n\ 6MlLR/1aX9xd4o46NxL7OtihzskeTePtUT7ODiXuU1HhOAOVDtNR5TgVJbM9\n\ kf/OWlSev4DmWyVKqbz+HSWKWnkbtRrccqgzfINV4ZvyegjhASUWahqdoLHx\n\ 2MmUtSqByvBUJ8IMH1ux6DJU6GMYZXz5dRfiS0OoOaX3U1Q0aFNXeisp0uAN\n\ ir3l54TK48MGQjOYEV9hxIWWmLLRI4GgYDnSlMy6Os8qa156Gwi31fRFLTK3\n\ 8uWhqmhMfM8IpU2FZAlRsU3Hs3Vm+FXA2NoMZPFXMfAKI+V9VWRMHgyboWEu\n\ ODUs7FW8EkJOxOneRBCqcQ2zBrILIyvZxNtQVJG6sixJH7OAaaWAlSqNqbb8\n\ g820iTZwdB/v1er3okbbWI221/plj9Vtr7A248pzffqSRsJaPMtnhcxM2qH+\n\ y89R5+CGvJlTkeLsjkvOzkgI9kOjZCZPo4OEEo2JcQj1mIeEOR7I+nwrUg5/\n\ j9KYC6i/Eo3bl86j+EwYbpwIRX7YKVTGRaIiJgK5J46jMfYc2uPP4f71K7iX\n\ fQ1ly3zRudQDNVNdUTRrFrL9/JH//ibkffQRamJiURsfb0H+iaNOZHws6i9F\n\ ojaazP+NXMM0i/LciGS+DF0zuk2GGBo8/RY3brMXO4tn53xkvjMUD9zAdx9s\n\ wJ+B86mm5mTqwgSNUbQSQCzhoymKUy87hOIqcyfN7RCxQvf/c4eIdJ/HDjF+\n\ QNBSfEDQ3A6RH7aYhPo/fYfbM6Yi3c4V0RMcETXBHuG2kxEd5IPqi9+h6eQx\n\ lIQeR8mpE7gYvBwpe75AyeVwdBVcwYP6bDxsyEJ3ebp0pFufFIWS8JPIPBKC\n\ tJBDyDh8EAXHjhBn4CTakmLQkXUNhYv8UeYzFzkLFqDoz/tRTRzyIXyFM6DR\n\ A6SV6rUY5G8l3NSXifS+GUQMtFf2lc7wYFKeAZEgc0kUBvu7AXo9oqT9R2ns\n\ AfYCEH14zqph+r0veB6NZ/z0kmqvWrGicdBT7gx9HYj6vZLD+9hPK6qR3+dn\n\ I/InfVgCb4IGq33dTCMNyJl6dYTWxmab6SW+mYpvoXrdeygZ74Bzo20ROcwW\n\ ia/Y4vxEWxweNxFh3h4oP78XuT/sR9GRwyg9fgTlESfRlJOAzltJ6KxIwR36\n\ KbmC9oJ4NKVEoTk9Gu0ZEaiNOoE8Wkfx3V6kkvsLTh0n6/c67lWUIdvXAzme\n\ c1BIWB/G2DQ29FaK12bGfRE2k3r1Kgc0MhKxJALB2E59jp3S5LNoVPamsZ8o\n\ 8EjuFt/w5ta29MI9spNpPstk51GaIKP36PWOXy/UTD2CyZMVfCWJJn200K8v\n\ G8b4PWvqjTrcTD+exTa1YV5lbcLhqfLuU1O7hD+hofXUxihhA2q8h2yIBgts\n\ cwzl64S+dDolFTl79yGZ+GI59u64MtUT8YFLEee9EOmr1yJqSSCOuLjhwksT\n\ kfW7T9CQRFDmdhkeN9fiSUcjHne34PGDTvz8pAtPHnfh554WPOluxMO2Bjxs\n\ rcOjdvJpqsL9mgp03S5Hc0kp7rY047/+9jfcDjmMFBdnpPj4oPzCBRf9CjDO\n\ 08nVhvrVzjX9uqllM1W+IG820Xd6rT8LzUlD8XwBiQttpkabt8a9nhr9VLMy\n\ AO1NTYjzDcDVpW+g6NtvUJuUhKaqSvrWZwYU41FfWor4hYG4NGwsDtjZIf7D\n\ 91B/dD/qQ0PQEBGKtqvh6Ei7hLaUCLQlR0qv+G29ehotF46iIexHNJw6iMbQ\n\ A2g4fpj8fQRVIQdRSd8ZuOVDnJriiBhbO1z2mo/y8PO6v2mo5b9FlonVaG9H\n\ BdkmHa3NLHM2HhUZWcjc+z3OrliO3bbjcHLWFNQv9ETN2oVo37MGj/atxS8X\n\ tuGXuF34JXwLfk74EI/PvYuezfPQETwHLW+6o9nfCfUBM9Dw+kyUzHJHBgkW\n\ 4ghrZ2wdcWYifQm3G4qPHlWxyA9PGItjpK+xiFy5AvvGj0W21zQ0es9D26bl\n\ ePzDJjz8YhUefrcWj/+wBr+ErMcvP63B4z3LcXd7ALoWuqJn/RzcCZqOan8P\n\ NM6bgTrvmbg1zR15Tm6IIx7a8VcdEDHWFmnr1stvnP5fme5opobmhkYc9fPD\n\ 8ZFjUTfbEy1vBeLe1hV4uONtPPn9anRtCcL9XcF48H4AnvwuEA++XY7OnUFo\n\ WeiGpjn2aPckJtPfC5XuM1Dzug/KPGajxNkNRVOnIWmKM6JfmYz4xUul1SHR\n\ /x81/ZKEBJy2nYQcWyc0zvZDz+rluLdxKbrfDULrb5aiNsgPDSsC0BbkgQc7\n\ FuP+58vQvtIHrX4z0eDugCpHO5T7+qBkzx9RFRmJvM8+Q/rKVbhBdHjLzR3J\n\ 4xwRMnwiru/eo0H/ZZRejETCFDtUzp+LzsWLcNfDF43By1C0cT1ufvWPuHX4\n\ ELI3bkCevw/qA+fj7up5uPOOH9rmTkfjdGeUObui8vQp/p781toalJ0+jVy6\n\ p6YTUzXGDmFz5tPXpcvk/1skPwCxa9YgnUxVl48velYEouWTnahLSpRety5v\n\ pkFoqajAtV+/g2wiUlOQF7qX+6F91nS0OjrixptLUZeVpRR40s1ZTFZY0jxf\n\ RE92Rta3v1fR5Ua5/kautIlrXOcQVS5FW1oqOniF0UCJZNq6dSiYMRNNszxI\n\ RDwVdS9NkiJTwhoPoKrJ1s/8YDNivbzJiHkSof8SCVkhe+enyJg+GxW+S9B4\n\ PYe/nLI2PV16PWPlnBmodnJF2RQXlJ04MYjdRcXI+ng7rn/5O2nz0ub/lAfm\n\ /8OA9JL5N99A3oJFqLlxYzBTQNHBQ8ghcXmTnROqgt+WikG5H1ZDsKSjtVX6\n\ JQ35H+KQlig5dgzpQYGou1XK7rEiE5eD5Pl+qLd1Ruk77+pfwc+sIg+sKFal\n\ rF2HyuRk5T3LtC3zo49RTHCrcMtWo3s53Y7mZsXIc1isupqE1Flz6fvDdUY3\n\ 2rFOdJqSlr6JlDVrjDvZs04Zv9mMq8tX6qWW/pGnUKd74f8A8yVfcQ=="], ImageSize -> {557, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, {}], FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 215, 4, 71, "Section", InitializationCell->True], Cell[808, 29, 20110, 530, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[20955, 564, 186, 3, 41, "Section"], Cell[21144, 569, 14356, 362, 1154, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[35537, 936, 142, 2, 41, "Section"], Cell[35682, 940, 923, 17, 195, "Text"], Cell[36608, 959, 17890, 384, 674, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 8vTkc0r5R9MufCKjSi#1ppg5 *)