(* 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[ 23061, 580] NotebookOptionsPosition[ 21751, 530] NotebookOutlinePosition[ 22090, 545] CellTagsIndexPosition[ 22047, 542] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["The Drowning Swimmer", "Title", CellChangeTimes->{{3.4308192739195185`*^9, 3.4308192762318707`*^9}}], Cell["Parameters :", "Subtitle", CellChangeTimes->{{3.430819289771043*^9, 3.430819298875929*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"vswim", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vrun", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"horizdist", " ", "=", " ", "40"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vertlanddist", " ", "=", " ", "15"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vertwaterdist", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"straightlinepoint", " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "horizdist", " ", "*", " ", RowBox[{"vertlanddist", " ", "/", " ", RowBox[{"(", RowBox[{"vertlanddist", "+", "vertwaterdist"}], ")"}]}]}], ")"}]}], " ", ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.430819314054645*^9, 3.4308193591621094`*^9}, 3.430819668005624*^9, {3.4308197295915256`*^9, 3.430819781455394*^9}, 3.430820614483131*^9, {3.4308211805914288`*^9, 3.430821193326942*^9}, { 3.43084658610795*^9, 3.4308465888294554`*^9}, {3.4308473452751803`*^9, 3.4308473623795547`*^9}}], Cell[CellGroupData[{ Cell["Time functions", "Subtitle", CellChangeTimes->{{3.4308193669584856`*^9, 3.43081936915854*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tland", "[", RowBox[{"speed_", ",", "vdist_", ",", " ", "x_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"vdist", "^", "2"}]}], "]"}], " ", "/", " ", "speed"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twater", "[", RowBox[{ "speed_", ",", " ", "vdist_", ",", " ", "hdist_", ",", " ", "x_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"hdist", "-", "x"}], ")"}], "^", "2"}], "+", RowBox[{"vdist", "^", "2"}]}], "]"}], " ", "/", " ", "speed"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"time", "[", RowBox[{ "speedwater_", ",", "speedland_", ",", "disthoriz_", ",", "distvertland_", ",", "distvertwater_", ",", "x_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"tland", "[", RowBox[{"speedland", ",", "distvertland", ",", "x"}], "]"}], " ", "+", " ", RowBox[{"twater", "[", RowBox[{"speedwater", ",", "distvertwater", ",", "disthoriz", ",", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4308193814653697`*^9, 3.4308194002258873`*^9}, { 3.43081943309976*^9, 3.4308195964496565`*^9}, 3.4308196646523223`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Plot of time as a function of where we run to", "Subtitle", CellChangeTimes->{{3.4308196447825003`*^9, 3.430819652622819*^9}}], Cell["\<\ Our default values are vswim = 1, vrun = 4, horizdist = 40, vertlanddist = \ 15, vertwaterdist = 30\ \>", "Text", CellChangeTimes->{{3.4308472333594923`*^9, 3.4308472592094*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"time", "[", RowBox[{ "1", ",", "vvrun", ",", "vhorizdist", ",", "vvertlanddist", ",", "vvertwaterdist", ",", "x"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "vhorizdist"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}]}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", " ", "Time"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"vvrun", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"vhorizdist", ",", "10", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"vvertlanddist", ",", "10", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"vvertwaterdist", ",", "10", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "straightlinepoint", ",", " ", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4308196138586984`*^9, 3.43081963379004*^9}, { 3.4308197872245555`*^9, 3.430819834394388*^9}, {3.430821133145247*^9, 3.4308211655484467`*^9}, {3.4308212126509004`*^9, 3.43082124522987*^9}, { 3.4308212873355737`*^9, 3.4308213656372023`*^9}, {3.4308215695997343`*^9, 3.430821625610798*^9}, {3.4308216604933305`*^9, 3.4308216753468723`*^9}, { 3.430846627956834*^9, 3.4308466578914413`*^9}, {3.430846707696848*^9, 3.430846769270055*^9}, {3.4308469454775267`*^9, 3.4308469522319775`*^9}, { 3.430846990059634*^9, 3.43084699295984*^9}, {3.430847055409944*^9, 3.430847115396339*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`vhorizdist$$ = 35.3, $CellContext`vvertlanddist$$ = 18.5, $CellContext`vvertwaterdist$$ = 28.3, $CellContext`vvrun$$ = 1.73, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`vvrun$$], 1, 5}, { Hold[$CellContext`vhorizdist$$], 10, 50}, { Hold[$CellContext`vvertlanddist$$], 10, 50}, { Hold[$CellContext`vvertwaterdist$$], 10, 50}}, Typeset`size$$ = { 360., {111., 115.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`vvrun$106$$ = 0, $CellContext`vhorizdist$107$$ = 0, $CellContext`vvertlanddist$108$$ = 0, $CellContext`vvertwaterdist$109$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`vhorizdist$$ = 10, $CellContext`vvertlanddist$$ = 10, $CellContext`vvertwaterdist$$ = 10, $CellContext`vvrun$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`vvrun$$, $CellContext`vvrun$106$$, 0], Hold[$CellContext`vhorizdist$$, $CellContext`vhorizdist$107$$, 0], Hold[$CellContext`vvertlanddist$$, $CellContext`vvertlanddist$108$$, 0], Hold[$CellContext`vvertwaterdist$$, $CellContext`vvertwaterdist$109$$, 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" :> Plot[ $CellContext`time[ 1, $CellContext`vvrun$$, $CellContext`vhorizdist$$, \ $CellContext`vvertlanddist$$, $CellContext`vvertwaterdist$$, $CellContext`x], \ {$CellContext`x, 0, $CellContext`vhorizdist$$}, PlotRange -> {10, 100}, AxesLabel -> {$CellContext`x, $CellContext`Time}], "Specifications" :> {{$CellContext`vvrun$$, 1, 5}, {$CellContext`vhorizdist$$, 10, 50}, {$CellContext`vvertlanddist$$, 10, 50}, {$CellContext`vvertwaterdist$$, 10, 50}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{408., {196., 201.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.430819634913992*^9, {3.4308198181327333`*^9, 3.4308198348621316`*^9}, 3.43082061905901*^9, {3.4308211461317205`*^9, 3.4308211661519237`*^9}, { 3.4308212133969464`*^9, 3.4308212463001137`*^9}, {3.4308212896049595`*^9, 3.43082136663128*^9}, 3.4308214672322626`*^9, 3.430821586534197*^9, 3.430821626635146*^9, {3.430821675973785*^9, 3.430821710190345*^9}, 3.430846591776532*^9, 3.4308466589460616`*^9, 3.430846718913903*^9, { 3.4308467496863475`*^9, 3.4308467697182684`*^9}, {3.430846805720847*^9, 3.430846889041686*^9}, 3.4308469941003914`*^9, {3.4308470290551853`*^9, 3.430847033296125*^9}, {3.430847068761628*^9, 3.4308471159285316`*^9}, 3.430847349871566*^9, 3.430869359128298*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The value of x if we do the straight line is \"\>", "\[InvisibleSpace]", "13.333333333333334`", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "The value of x if we do the straight line is ", 13.333333333333334`, "."], Editable->False]], "Print", CellChangeTimes->{{3.4308198181395693`*^9, 3.43081983487092*^9}, 3.4308206190931873`*^9, {3.4308211463113966`*^9, 3.4308211662359023`*^9}, { 3.430821213479949*^9, 3.4308212463772573`*^9}, {3.430821289704562*^9, 3.430821366712329*^9}, 3.430821467350419*^9, 3.4308215866523533`*^9, 3.430821626789433*^9, 3.4308216760978003`*^9, 3.4308465919112897`*^9, 3.4308466590847244`*^9, 3.4308467190486603`*^9, {3.4308467498240337`*^9, 3.43084676986279*^9}, 3.4308469943288927`*^9, {3.430847068922751*^9, 3.4308471160867243`*^9}, 3.4308473500278063`*^9, 3.4308693593138323`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.4308198181395693`*^9, 3.43081983487092*^9}, 3.4308206190931873`*^9, {3.4308211463113966`*^9, 3.4308211662359023`*^9}, { 3.430821213479949*^9, 3.4308212463772573`*^9}, {3.430821289704562*^9, 3.430821366712329*^9}, 3.430821467350419*^9, 3.4308215866523533`*^9, 3.430821626789433*^9, 3.4308216760978003`*^9, 3.4308465919112897`*^9, 3.4308466590847244`*^9, 3.4308467190486603`*^9, {3.4308467498240337`*^9, 3.43084676986279*^9}, 3.4308469943288927`*^9, {3.430847068922751*^9, 3.4308471160867243`*^9}, 3.4308473500278063`*^9, 3.4308693594017177`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Time function and its derivative", "Subtitle", CellChangeTimes->{{3.430819839300324*^9, 3.430819864173732*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"time", "[", RowBox[{ "vswim", ",", "vrun", ",", "horizdist", ",", "vertlanddist", ",", "vertwaterdist", ",", "x"}], "]"}], "]"}], ",", " ", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"time", "[", RowBox[{ "vswim", ",", "vrun", ",", "horizdist", ",", "vertlanddist", ",", "vertwaterdist", ",", "x"}], "]"}], ",", "x"}], "]"}], "]"}], ",", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"timeasfnx", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"time", "[", RowBox[{ "vswim", ",", "vrun", ",", "horizdist", ",", "vertlanddist", ",", "vertwaterdist", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"timeasfnx", "'"}], "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "horizdist"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "straightlinepoint", ",", " ", "\"\<; the optimum is at \>\"", ",", " ", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"timeasfnx", "'"}], "[", "x", "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "straightlinepoint"}], "}"}]}], "]"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.430819889701395*^9, 3.430820053302252*^9}, { 3.4308200995805397`*^9, 3.430820145620562*^9}, {3.430820195509947*^9, 3.430820239862577*^9}, {3.430820278646228*^9, 3.4308205145002728`*^9}, { 3.4308213786500416`*^9, 3.4308214452776127`*^9}, {3.4308473311139774`*^9, 3.430847332240858*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The time function is \"\>", "\[InvisibleSpace]", RowBox[{ SqrtBox[ RowBox[{"225", "+", SuperscriptBox["x", "2"]}]], "+", SqrtBox[ RowBox[{"2500", "-", RowBox[{"80", " ", "x"}], "+", SuperscriptBox["x", "2"]}]]}], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "The time function is ", (225 + $CellContext`x^2)^ Rational[1, 2] + (2500 - 80 $CellContext`x + $CellContext`x^2)^ Rational[1, 2], "."], Editable->False]], "Print", CellChangeTimes->{ 3.4308214183545313`*^9, 3.4308214721596813`*^9, 3.430847281595662*^9, { 3.4308473327798862`*^9, 3.4308473660140877`*^9}, 3.430869416975181*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The derivative is \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox["x", SqrtBox[ RowBox[{"225", "+", SuperscriptBox["x", "2"]}]]], "+", FractionBox[ RowBox[{ RowBox[{"-", "40"}], "+", "x"}], SqrtBox[ RowBox[{"2500", "-", RowBox[{"80", " ", "x"}], "+", SuperscriptBox["x", "2"]}]]]}], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "The derivative is ", $CellContext`x (225 + $CellContext`x^2)^ Rational[-1, 2] + (-40 + $CellContext`x) (2500 - 80 $CellContext`x + $CellContext`x^2)^Rational[-1, 2], "."], Editable->False]], "Print", CellChangeTimes->{ 3.4308214183545313`*^9, 3.4308214721596813`*^9, 3.430847281595662*^9, { 3.4308473327798862`*^9, 3.4308473660140877`*^9}, 3.430869417046466*^9}], Cell[BoxData["\<\"We now plot the derivative of the time function (as a \ function of x).\"\>"], "Print", CellChangeTimes->{ 3.4308214183545313`*^9, 3.4308214721596813`*^9, 3.430847281595662*^9, { 3.4308473327798862`*^9, 3.4308473660140877`*^9}, 3.430869417049395*^9}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx3k41HkcwHFmZFtHjvUklDloZByhLSK+nzH7VIZQskotGaJERa6ytUKP Y7fNY0dFq0nbZR09PNmeEfOTKyYkWrSmpRkzGmMi04RS9rt/vJ/386JxT+w5 TNLS0grE/f/yc1xd15gqHynF83RpqYJoH6QGhFELUGHHjJZTsYJY7hTmUKml aMOFksSWQgVR3nKRsoJaiTTetovyTAWR4J2aOE8RIFZG8ju3CAUx+OkIb5bS jcyrJXZP6Ariq1GJnYryEiWaq+vlVW+IChE/SUlRIFOG4w434SRRe79gNMH5 IzqR0dcvapIRceh56XQyGejtIeYjEilxXGYvfVD7NTyKB5dQSwmhR8u1G/Mw hs0Pg2xc3MeJX42fMisOfQM3VqfVNpNfEdzRvQS5ZzVYv1CvOpj0kkjqyOWe sLMEkqZxo4PZEFF30iBkjd86cJtvqeo0HSQqMo9NuYRRgZ7MqBQonxHZ/KXd 76dpcEPPMoQWJSK0Bseh6YwNxGxXT8W5dhCMlNiMvcz1cGR3oYPePYKY0Fz5 Xr+ZASvPue7/3eovgiOLP1uctAGCe34JMTp1jwicKHKwtmZCy+MxRsbNPGKq jZvVVeMAWX+aHlsbWYKcTYbWsSOdAMp85RztaqSHNFFitTNk1XC+XOltQDtU 4fP0UBc4ObRdKl9qRiOtMdrhjq4wWxrWxpK1oob89giqxhU8jIyMipM7UeyK 1PG+PjfYKW3eTfcQoejkzAaDsk1g1pN7lFHbizbGOfQFRH0LlqviDatz+tEz U0f91K2bob9u0+KLoAH0qDb7miN5C4ivB4xYfBxEmdrM4J5XW2BfoxvJoPNv pCc+s/P4A3fosIjs7MgfRrI7NB7/Rw/YaTg7mOj0EvE2WOgIQrfCrgsmyy8+ /IOKymKfRFE9oSF/QfPgDzEK5/3QZzDpCcLSdJfznH/Rwne3F/lCL2BrS9d6 G4wjqcw3ozVvG+TPi4JOycbRTW9Xq94ob4jfUvnm7cBrVHMh1STOyQeYdb+N VdVLUF5otD9Z4wMH7ywaKy9J0WZxRWVeLwJOD6KSsifQVftrNb3+AGfufz4r PixDP7VcvOovAJDwbTwbI+Rol1XobZEtC4LUdOuRvZOIdfzJAZMCFpQoa0v6 vd4g/lqubY+GBSffepWddVcg27a7lwMP+MLEw8t+e2ymUJFTK3NA6AvRPN08 XX0lilXrPO9msiEkxdOxXHcacevmqAWX2DBjf8h907tp1CVamdO0xIbLOtPd w29VKIH9uqgbm2eeYvgB27hJcH0I289sIdhsRoX21cQ3zmLPdauHg7EnL/W8 s/3Mhihqo6wbWze06NBF7BhOtlbTrAqxx8x9Ir6wwXzNstuNORWSh836H8O+ v0BOE2IX9nftz8D2bNIRiLEHHp9OLcberlz0sVCrEPfWaHUndrC0nlOMnXWU b7VxmQ1d+pFRue9VyFaSbr8Nm0Si37qJ3RUe7O6HLRoel7dgGwdoh0Rj29P2 JHzG5jtHF17BZq0np6dpVMj3rtfVW9ifTG4LeNhyitmdOuwSse9SPbazScfj p9j5esnnZ7AHCsqfjWCnJJLbDT+oUBop7ZUMO7qmSNcR2zIzUDmHTRNZ+HGw hWrG4jJ2etv1n49g/wfVuGwr "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 40}, {-0.79999993970068, 0.9363291480022856}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4308203408473244`*^9, 3.4308204135223603`*^9}, 3.4308204493921347`*^9, 3.430820515068596*^9, 3.430820627527218*^9, 3.4308210947443843`*^9, 3.4308214180996647`*^9, 3.4308214722495193`*^9, 3.4308472816864767`*^9, {3.430847332845312*^9, 3.430847366087325*^9}, 3.4308694170933375`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The straightline intersection is at x = \"\>", "\[InvisibleSpace]", "13.333333333333334`", "\[InvisibleSpace]", "\<\"; the optimum is at \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"x", "\[Rule]", "13.333333333333334`"}], "}"}]}], SequenceForm[ "The straightline intersection is at x = ", 13.333333333333334`, "; the optimum is at ", {$CellContext`x -> 13.333333333333334`}], Editable->False]], "Print", CellChangeTimes->{ 3.4308214183545313`*^9, 3.4308214721596813`*^9, 3.430847281595662*^9, { 3.4308473327798862`*^9, 3.4308473660140877`*^9}, 3.430869417123609*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"timeasfnx", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"time", "[", RowBox[{ "vswim", ",", "vrun", ",", "horizdist", ",", "vertlanddist", ",", "vertwaterdist", ",", "x"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"timeasfnx", "'"}], "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "horizdist"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", " ", RowBox[{"Epilog", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"straightlinepoint", ",", "0"}], "}"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", " ", "\"\\""}], "}"}]}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"vrun", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.430847600907256*^9, 3.4308477079970818`*^9}, { 3.4308477510636616`*^9, 3.430847770553625*^9}, {3.43084791623766*^9, 3.4308479644386764`*^9}, {3.4308479996043944`*^9, 3.43084803613233*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`vrun$$ = 1., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`vrun$$], 1, 4}}, Typeset`size$$ = { 233.1875, {45., 50.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`vrun$135611$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`vrun$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`vrun$$, $CellContext`vrun$135611$$, 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`timeasfnx[ Pattern[$CellContext`x$, Blank[]]] := $CellContext`time[$CellContext`vswim, \ $CellContext`vrun$$, $CellContext`horizdist, $CellContext`vertlanddist, \ $CellContext`vertwaterdist, $CellContext`x$], Plot[ Derivative[ 1][$CellContext`timeasfnx][$CellContext`x], {$CellContext`x, 0, $CellContext`horizdist}, PlotRange -> {-1, 1}, Epilog -> { PointSize[0.025], Point[{$CellContext`straightlinepoint, 0}]}, AxesLabel -> {$CellContext`x, "Derivative of time function"}]}, "Specifications" :> {{$CellContext`vrun$$, 1, 4}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{282., {90., 95.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4308476459492955`*^9, 3.4308476693999434`*^9}, 3.430847711733171*^9, {3.43084775749489*^9, 3.4308477712850237`*^9}, 3.4308478631385193`*^9, 3.4308480367016296`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{909, 646}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 107, 1, 83, "Title"], Cell[700, 26, 98, 1, 49, "Subtitle"], Cell[801, 29, 1083, 25, 152, "Input"], Cell[CellGroupData[{ Cell[1909, 58, 101, 1, 49, "Subtitle"], Cell[2013, 61, 1406, 40, 112, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3456, 106, 133, 1, 49, "Subtitle"], Cell[3592, 109, 189, 4, 29, "Text"], Cell[CellGroupData[{ Cell[3806, 117, 1856, 42, 112, "Input"], Cell[5665, 161, 3412, 62, 414, "Output"], Cell[CellGroupData[{ Cell[9102, 227, 906, 15, 23, "Print"], Cell[10011, 244, 629, 8, 23, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10701, 259, 118, 1, 49, "Subtitle"], Cell[CellGroupData[{ Cell[10844, 264, 2209, 58, 152, "Input"], Cell[CellGroupData[{ Cell[13078, 326, 703, 18, 30, "Print"], Cell[13784, 346, 842, 22, 48, "Print"], Cell[14629, 370, 274, 4, 23, "Print"] }, Open ]], Cell[14918, 377, 2353, 44, 228, "Output"], Cell[17274, 423, 653, 13, 23, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[17964, 441, 1514, 37, 92, "Input"], Cell[19481, 480, 2230, 45, 202, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)