(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='WolframAlphaNB 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 161, 7] NotebookDataLength[ 184115, 3821] NotebookOptionsPosition[ 177572, 3708] NotebookOutlinePosition[ 178544, 3738] CellTagsIndexPosition[ 178464, 3733] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"b927f060-4bd8-4549-9d6b-a046377d2c6f"], Cell["Equations of Motion", "Title", CellChangeTimes->{{3.775578124937996*^9, 3.775578134554102*^9}, { 3.775578210348549*^9, 3.775578228104566*^9}, {3.775581058320434*^9, 3.775581060134932*^9}},ExpressionUUID->"1dea63e7-620d-4063-8250-\ ccc819a340cf"], Cell["\<\ Computing position, velocity, and acceleration of a falling object\ \>", "Subtitle", CellChangeTimes->{{3.7755782301163*^9, 3.7755782427485027`*^9}, { 3.7755810702081223`*^9, 3.77558114192339*^9}},ExpressionUUID->"d2e3c7eb-1086-4e67-b7fd-\ a8c1acd74762"], Cell[CellGroupData[{ Cell["Exercise 1", "Section", CellChangeTimes->{{3.77246139484234*^9, 3.7724613993146887`*^9}, 3.772461918628077*^9, {3.775578109854867*^9, 3.775578123177896*^9}, { 3.775580885884427*^9, 3.77558093109932*^9}},ExpressionUUID->"ad05c586-7c0f-43ae-b4ca-\ 5c49152b1ea1"], Cell["\<\ A coin is tossed downward from a height of 60 m with an initial velocity of 2 \ m/s. Assuming no other forces are acting on the coin, determine the following.\ \>", "Text", CellChangeTimes->{{3.772458109610621*^9, 3.772458189407077*^9}, { 3.7724583423957148`*^9, 3.772458343043586*^9}, {3.772460262277246*^9, 3.772460262477219*^9}, 3.772460688344371*^9, 3.7724619186282187`*^9, 3.775578109855*^9, {3.775578435812027*^9, 3.775578442316119*^9}, { 3.7755796851152773`*^9, 3.775579693418912*^9}, {3.775579724988276*^9, 3.775579730667946*^9}}, FontSize->18,ExpressionUUID->"e23c6b53-487d-4017-8ef6-e287ccff5484"], Cell[CellGroupData[{ Cell["\<\ How many seconds does it take for the coin to hit the ground?\ \>", "ItemNumbered", CellChangeTimes->{{3.772456844096537*^9, 3.772456853376556*^9}, { 3.772457209906784*^9, 3.772457227443061*^9}, {3.7724601534428873`*^9, 3.7724601544085293`*^9}, {3.772460267651649*^9, 3.772460267853301*^9}, 3.772461918628368*^9, 3.77557810985597*^9},ExpressionUUID->"58308a29-a095-4322-9aa9-\ 6da2792eb190"], Cell["\<\ What is the coin\[CloseCurlyQuote]s instantaneous velocity (in m/s) just \ before hitting the ground?\ \>", "ItemNumbered", CellChangeTimes->{{3.772456245456579*^9, 3.772456269649911*^9}, { 3.772456311723618*^9, 3.772456329845819*^9}, {3.772456902818297*^9, 3.7724569031464777`*^9}, {3.772457196714678*^9, 3.772457230593025*^9}, { 3.7724583542041273`*^9, 3.77245835434019*^9}, {3.772459991702175*^9, 3.7724600052949543`*^9}, {3.772460161755364*^9, 3.772460177145176*^9}, { 3.772460255228671*^9, 3.772460271893463*^9}, 3.772461918628504*^9, 3.775578109856179*^9},ExpressionUUID->"414f6888-eb07-4fe8-bdec-\ 1856019ec389"], Cell["What is the coin\[CloseCurlyQuote]s acceleration...", "ItemNumbered", CellChangeTimes->{{3.772456245456579*^9, 3.772456269649911*^9}, { 3.772456311723618*^9, 3.772456329845819*^9}, {3.772456902818297*^9, 3.7724569031464777`*^9}, {3.772457196714678*^9, 3.772457230593025*^9}, { 3.7724583542041273`*^9, 3.77245835434019*^9}, {3.772459991702175*^9, 3.7724600164143887`*^9}, {3.7724601943950787`*^9, 3.7724602107216187`*^9}, {3.772460250988714*^9, 3.772460278715316*^9}, 3.772461918628631*^9, 3.775578109856331*^9, {3.7917409700797653`*^9, 3.791740974775724*^9}},ExpressionUUID->"8c906f13-4c78-445b-a4ed-\ d43750e6664b"], Cell[TextData[{ "... at the moment it is thrown (", Cell[BoxData[ FormBox[ RowBox[{"t", "=", "0"}], TraditionalForm]],ExpressionUUID-> "b4876078-9042-427a-9a90-0af9ae8f0591"], ")?" }], "Item", CellChangeTimes->{{3.791740956064784*^9, 3.791740963745202*^9}},ExpressionUUID->"8a3d9a6a-aefb-4a81-9e9e-\ 193fd0979921"], Cell["... just before hitting the ground?", "Item", CellChangeTimes->{{3.791740956064784*^9, 3.791740965560092*^9}},ExpressionUUID->"96becea3-1dde-448d-be2c-\ 6fed87c2ba90"] }, Open ]], Cell[CellGroupData[{ Cell["Setting up functions", "Subsection", CellChangeTimes->{{3.772457122631912*^9, 3.772457123072072*^9}, { 3.7724612727127934`*^9, 3.7724612816636333`*^9}, {3.772461407650879*^9, 3.772461418332945*^9}, 3.7724619186299133`*^9, 3.775578109857089*^9, { 3.775578850226145*^9, 3.7755788508176622`*^9}},ExpressionUUID->"216e2e44-b597-49a7-9ba9-\ 286d0d3c0bf7"], Cell[TextData[{ "Start with the equation for finding the final position ", Cell[BoxData[ FormBox[ SubscriptBox["x", "f"], TraditionalForm]],ExpressionUUID-> "e74dd2a4-2ff2-49e9-8ca6-6d344364c31c"], " (in this case, the ground):" }], "Text", CellChangeTimes->{{3.775578479776013*^9, 3.7755785567295*^9}, { 3.775578650156654*^9, 3.77557875761541*^9}},ExpressionUUID->"cb55bea1-d700-440b-8327-\ b8de1454314c"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "equation of motion final position initial speed", "assumptions" -> {}, "parse" -> Defer[ FormulaData[{ "DistanceSpeedTime", "Acceleration", "InitialSpeed", "InitialPosition"}]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> { XMLElement["assumptions", {"count" -> "6"}, { XMLElement[ "assumption", { "type" -> "FormulaSolve", "template" -> "Calculate ${desc1}", "count" -> "5"}, { XMLElement[ "value", { "name" -> "DistanceSpeedTime.xf", "desc" -> "final position", "input" -> "*FS-_**DistanceSpeedTime.xf--"}, {}], XMLElement[ "value", { "name" -> "DistanceSpeedTime.vi", "desc" -> "initial speed", "input" -> "*FS-_**DistanceSpeedTime.vi--"}, {}], XMLElement[ "value", { "name" -> "DistanceSpeedTime.t", "desc" -> "time", "input" -> "*FS-_**DistanceSpeedTime.t--"}, {}], XMLElement[ "value", { "name" -> "DistanceSpeedTime.a", "desc" -> "acceleration", "input" -> "*FS-_**DistanceSpeedTime.a--"}, {}], XMLElement[ "value", { "name" -> "DistanceSpeedTime.xi", "desc" -> "initial position", "input" -> "*FS-_**DistanceSpeedTime.xi--"}, {}]}], XMLElement[ "assumption", { "type" -> "FormulaSelect", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "3"}, { XMLElement[ "value", { "name" -> "DistanceSpeedTime", "desc" -> "equation of motion", "input" -> "FSelect_**DistanceSpeedTime--"}, {}], XMLElement[ "value", { "name" -> "SpeedAccelerationDistance", "desc" -> "equation of motion", "input" -> "FSelect_**SpeedAccelerationDistance--"}, {}], XMLElement[ "value", { "name" -> "AverageSpeed", "desc" -> "average speed", "input" -> "FSelect_**AverageSpeed--"}, {}]}], XMLElement[ "assumption", { "type" -> "FormulaVariable", "desc" -> "time", "current" -> "1", "count" -> "1"}, { XMLElement[ "value", { "name" -> "DistanceSpeedTime.t", "desc" -> "1 s", "valid" -> "true", "input" -> "*F.DistanceSpeedTime.t-_1+s"}, {}]}], XMLElement[ "assumption", { "type" -> "FormulaVariable", "desc" -> "acceleration", "current" -> "1", "count" -> "1"}, { XMLElement[ "value", { "name" -> "DistanceSpeedTime.a", "desc" -> "1 m/s^2", "valid" -> "true", "input" -> "*F.DistanceSpeedTime.a-_1+m%2Fs%5E2"}, {}]}], XMLElement[ "assumption", { "type" -> "FormulaVariable", "desc" -> "initial speed", "current" -> "1", "count" -> "1"}, { XMLElement[ "value", { "name" -> "DistanceSpeedTime.vi", "desc" -> "0 m/s", "valid" -> "true", "input" -> "*F.DistanceSpeedTime.vi-_0+m%2Fs"}, {}]}], XMLElement[ "assumption", { "type" -> "FormulaVariable", "desc" -> "initial position", "current" -> "1", "count" -> "1"}, { XMLElement[ "value", { "name" -> "DistanceSpeedTime.xi", "desc" -> "0 m", "valid" -> "true", "input" -> "*F.DistanceSpeedTime.xi-_0+m"}, {}]}]}]}, "summarizeassumptions" -> Automatic, "summarizepredictions" -> True], Typeset`update$$ = 4}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {275., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", CellLabel->"In[4]:=",ExpressionUUID->"bcb78d7b-6329-4ca3-9bda-7ff546abb5d8"], Cell[BoxData[ RowBox[{"FormulaData", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], "]"}]], "DeployedWLInput", CellChangeTimes->{3.791740874719057*^9}, CellLabel->"In[4]:=",ExpressionUUID->"8d5deb08-7bf5-42e7-80ec-80c5991beea4"], Cell[BoxData[ RowBox[{ TemplateBox[{SubscriptBox[ StyleBox["\"x\""], "\"f\""],"\"Length\""}, "QuantityVariable", DisplayFunction->(TooltipBox[ StyleBox[#, FontColor -> GrayLevel[0.4], ShowStringCharacters -> False], RowBox[{"Quantity variable:", " length"}], TooltipStyle -> "TextStyling"]& )], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", TemplateBox[{StyleBox["\"a\""],"\"Acceleration\""}, "QuantityVariable", DisplayFunction->(TooltipBox[ StyleBox[#, FontColor -> GrayLevel[0.4], ShowStringCharacters -> False], RowBox[{"Quantity variable:", " acceleration"}], TooltipStyle -> "TextStyling"]& )], " ", SuperscriptBox[ TemplateBox[{StyleBox["\"t\""],"\"Time\""}, "QuantityVariable", DisplayFunction->(TooltipBox[ StyleBox[#, FontColor -> GrayLevel[0.4], ShowStringCharacters -> False], RowBox[{"Quantity variable:", " time"}], TooltipStyle -> "TextStyling"]& )], "2"]}], "+", RowBox[{ TemplateBox[{StyleBox["\"t\""],"\"Time\""}, "QuantityVariable", DisplayFunction->(TooltipBox[ StyleBox[#, FontColor -> GrayLevel[0.4], ShowStringCharacters -> False], RowBox[{"Quantity variable:", " time"}], TooltipStyle -> "TextStyling"]& )], " ", TemplateBox[{SubscriptBox[ StyleBox["\"v\""], "\"i\""],"\"Speed\""}, "QuantityVariable", DisplayFunction->(TooltipBox[ StyleBox[#, FontColor -> GrayLevel[0.4], ShowStringCharacters -> False], RowBox[{"Quantity variable:", " speed"}], TooltipStyle -> "TextStyling"]& )]}], "+", TemplateBox[{SubscriptBox[ StyleBox["\"x\""], "\"i\""],"\"Length\""}, "QuantityVariable", DisplayFunction->(TooltipBox[ StyleBox[#, FontColor -> GrayLevel[0.4], ShowStringCharacters -> False], RowBox[{"Quantity variable:", " length"}], TooltipStyle -> "TextStyling"]& )]}]}]], "Output", CellChangeTimes->{3.791740874728056*^9}, CellLabel->"Out[4]=",ExpressionUUID->"da1a670e-38d7-49c0-9120-01997c663218"] }, Open ]], Cell[TextData[{ "Plug in known values for ", Cell[BoxData[ FormBox[ SubscriptBox["x", "i"], TraditionalForm]],ExpressionUUID-> "89f62884-babe-4558-874f-40e5d00de5ab"], ", ", Cell[BoxData[ FormBox[ SubscriptBox["v", "i"], TraditionalForm]],ExpressionUUID-> "bbf40fec-47e5-4a7d-9bbe-f66973351441"], ", and ", Cell[BoxData[ FormBox["a", TraditionalForm]],ExpressionUUID-> "6261e72d-8d56-45f9-9857-c2412c895ad8"], " to represent ", Cell[BoxData[ FormBox[ SubscriptBox["x", "f"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "175bc1d5-d583-4575-b7af-6edfb69a8030"], " as a function of ", StyleBox["t", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.772454204826234*^9, 3.7724542338425903`*^9}, { 3.772454585448234*^9, 3.7724546037284937`*^9}, 3.772455030163001*^9, { 3.7724550818117857`*^9, 3.772455082459971*^9}, {3.772461486575886*^9, 3.772461486671949*^9}, 3.772461918631711*^9, 3.775578109857185*^9, { 3.775578760543017*^9, 3.775578790225172*^9}, {3.775580962142055*^9, 3.775580986037674*^9}},ExpressionUUID->"755791da-b8ba-4b55-a746-\ 69a89de7526b"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "set x(t) = -4.9t^2+60-2t", "assumptions" -> {}, "parse" -> Defer[$CellContext`x[ Pattern[$CellContext`t, Blank[]]] := (-4.9) $CellContext`t^2 + 60 - 2 $CellContext`t], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[Automatic], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[17]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {37., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", TaggingRules->{ "ShowSpecialCharactersDockedCell" -> False, "WolframAlphaNotebook" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[False]}}, CellChangeTimes->{3.772454991755196*^9, 3.772461918632443*^9, 3.7755781098572702`*^9}, CellLabel->"In[2]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"f86af4ff-5a79-4dee-bfb8-0b13180ff351"], Cell[BoxData[ RowBox[{ RowBox[{"x", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "*", RowBox[{"t", "^", "2"}]}], " ", "+", " ", "60", " ", "-", " ", RowBox[{"2", "*", "t"}]}]}]], "DeployedWLInput", CellChangeTimes->{3.775578838795212*^9}, CellLabel->"In[2]:=",ExpressionUUID->"1161ccc0-d3cf-404c-8441-16e5ae6590b9"] }, Open ]], Cell["\<\ The first two derivatives represent velocity and acceleration:\ \>", "Text", CellChangeTimes->{{3.772454204826234*^9, 3.7724542338425903`*^9}, { 3.772454553000031*^9, 3.772454575639893*^9}, {3.772454620465069*^9, 3.772454639993353*^9}, 3.772461918632765*^9, 3.7755781098574038`*^9},ExpressionUUID->"452a90c2-d334-4ef8-bfb1-\ 447b2f93d2fd"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "set v(t)=x'(t) and set a(t)=x''(t)", "assumptions" -> {}, "parse" -> Defer[$CellContext`v[ Pattern[$CellContext`t, Blank[]]] := Derivative[1][$CellContext`x][$CellContext`t]; $CellContext`a[ Pattern[$CellContext`t, Blank[]]] := Derivative[2][$CellContext`x][$CellContext`t]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[True], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[14]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {37., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", TaggingRules->{ "ShowSpecialCharactersDockedCell" -> False, "WolframAlphaNotebook" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[False]}}, CellChangeTimes->{3.772461918633381*^9, 3.775578109857465*^9}, CellLabel->"In[3]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"5bf1edc3-0bc3-484a-bbc6-46f0e3d68104"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"v", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ";", " ", RowBox[{ RowBox[{"a", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]], "DeployedWLInput", CellChangeTimes->{3.775578880412053*^9}, CellLabel->"In[3]:=",ExpressionUUID->"66c108ce-182d-4692-b862-541f7f4d709b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualizing functions", "Subsection", CellChangeTimes->{{3.772457135336543*^9, 3.7724571787138033`*^9}, { 3.772461421507704*^9, 3.77246144615108*^9}, 3.772461918632681*^9, 3.7755781098573427`*^9, {3.775578975357687*^9, 3.7755789785810623`*^9}},ExpressionUUID->"34e8eed7-e845-40c9-b8c9-\ 056a0602026c"], Cell["\<\ Plot the position, velocity and acceleration of the coin over time:\ \>", "Text", CellChangeTimes->{{3.772454204826234*^9, 3.7724542338425903`*^9}, { 3.772454553000031*^9, 3.772454575639893*^9}, {3.772454620465069*^9, 3.772454639993353*^9}, 3.772461918632765*^9, 3.7755781098574038`*^9, { 3.775578862898386*^9, 3.77557886662597*^9}, {3.775578982173197*^9, 3.775579009654236*^9}},ExpressionUUID->"60af61e9-2df0-452a-8e59-\ 3a35f2687c98"], Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "plot {x(t),v(t),a(t)} from 0 to 4 ", "assumptions" -> {}, "parse" -> Defer[ Plot[ Evaluate[{ $CellContext`x[$CellContext`t], $CellContext`v[$CellContext`t], $CellContext`a[$CellContext`t]}], {$CellContext`t, 0, 4}]], "inputpredictions" -> {{"InputMathOperation$AlternativePlot", Predictions`Prediction[ 0.99, "plotting", "", {{"log plot", HoldComplete[ LogPlot[ Evaluate[{ $CellContext`x[$CellContext`t], $CellContext`v[$CellContext`t], $CellContext`a[$CellContext`t]}], {$CellContext`t, 0, 4}]]& }, { "log-log plot", HoldComplete[ LogLogPlot[ Evaluate[{ $CellContext`x[$CellContext`t], $CellContext`v[$CellContext`t], $CellContext`a[$CellContext`t]}], {$CellContext`t, 0, 4}]]& }, { "log-linear plot", HoldComplete[ LogLinearPlot[ Evaluate[{ $CellContext`x[$CellContext`t], $CellContext`v[$CellContext`t], $CellContext`a[$CellContext`t]}], {$CellContext`t, 0, 4}]]& }}], Predictions`InInput}, {"InputMathOperation$FunctionDomain", Predictions`Prediction[ 0.9299999999999999, "properties", "function domain", HoldComplete[ FunctionDomain[{ 60 - 2 $CellContext`t - 4.9 $CellContext`t^2, -2 - 9.8 $CellContext`t, -9.8}, {$CellContext`t}]]& ], Predictions`InInput}, {"InputMathOperation$ExtractFunction", Predictions`Prediction[ 0.5, "structural operations", "extract function", Apply[HoldComplete, Hold[{ 60 - 2 $CellContext`t - 4.9 $CellContext`t^2, -2 - 9.8 $CellContext`t, -9.8}]]& ], Predictions`InInput}, { "InputMathOperation$IntegralToInfinity", Predictions`Prediction[ 0.5, "integration", "", {{"integral from 0 to \[Infinity]", HoldComplete[ Integrate[{ 60 - 2 $CellContext`t - 4.9 $CellContext`t^2, -2 - 9.8 $CellContext`t, -9.8}, {$CellContext`t, 0, DirectedInfinity[1]}]]& }, { "integral from -\[Infinity] to 0", HoldComplete[ Integrate[{ 60 - 2 $CellContext`t - 4.9 $CellContext`t^2, -2 - 9.8 $CellContext`t, -9.8}, {$CellContext`t, DirectedInfinity[-1], 0}]]& }}], Predictions`InInput}, { "InputMathOperation$IntegrateOverPlotRange", Predictions`Prediction[ 0.5, "integration", "integrate over plot range", HoldComplete[ Integrate[ Evaluate[{ $CellContext`x[$CellContext`t], $CellContext`v[$CellContext`t], $CellContext`a[$CellContext`t]}], {$CellContext`t, 0, 4}]]& ], Predictions`InInput}, {"InputMathOperation$Derivatives", Predictions`Prediction[0.5, "derivatives", Row[{"derivative wrt ", Pane[ Style[ HoldForm["t"], LineBreakWithin -> False], ImageSize -> {150}, BaselinePosition -> Baseline]}], HoldComplete[ D[{ 60 - 2 $CellContext`t - 4.9 $CellContext`t^2, -2 - 9.8 $CellContext`t, -9.8}, $CellContext`t]]& ], Predictions`InInput}, {"InputMathOperation$IndefiniteIntegrals", Predictions`Prediction[0.5, "integration", Row[{"indefinite integral wrt ", Pane[ Style[ HoldForm["t"], LineBreakWithin -> False], ImageSize -> {150}, BaselinePosition -> Baseline]}], HoldComplete[ Integrate[{ 60 - 2 $CellContext`t - 4.9 $CellContext`t^2, -2 - 9.8 $CellContext`t, -9.8}, $CellContext`t]]& ], Predictions`InInput}}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[True], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[14]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{579., {35., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", TaggingRules->{ "ShowSpecialCharactersDockedCell" -> False, "WolframAlphaNotebook" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[False]}}, CellChangeTimes->{3.772461918633381*^9, 3.775578109857465*^9}, CellLabel->"In[4]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"1c9957cf-4198-44f2-b611-5974e3d57fa1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", " ", RowBox[{"v", "[", "t", "]"}], ",", " ", RowBox[{"a", "[", "t", "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "4"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.775578924339695*^9, 3.775578941292742*^9}, { 3.775579448171537*^9, 3.7755794493380013`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"ecfa16ed-f8fb-4bef-9988-b7c8bbbeabe5"], Cell[BoxData[ FormBox[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVzn881HccB/C7Iwn5ph/qEvKrokum/LhTfd5SDuc7+TFKzW5+rdn8KG1U M2N3UiPWbiEsP24tMcKdyKnP6lAqDlckUTr64UfKr7DObn+8Hq/H86/XyyQ4 2ieMRqFQQlX5vz3CXrXj19/tGgspVC4skKDusjamn+6HUrnFgRUqb7uYnVdN D0UWj4ZZQSpzHnRV5dOPocOMfanXlSQEhM40nKPz0Bp+uH/kRxKebj3lkk4X IIOXd2/Wz5FQsMor5QxdiEoiv2menyTh5IMsqf91ISo/s6MsV2V//jOa2cE/ 0bX1fqucVNaZOpJYn3cJdV7zPxY/QUK8XBA/YlyCtp8rCRt9R4L3bz0Rn24o R1kz/FV4jIQkzeqNp+kiNMSjX9F8RYIV+9fUqhgRokedq8h4SUIHP/r1k2YR qiYLzfRVNldjlFp/L0YW4z8FmAyR0PRRaC3vqEGz/7DHbBSq/YnzdsZpdSgs Z6Jr+zMSsp+ecBErb6A9q6W5bV0k7D9QWDH+Too2ebkN7msk4e0TP62itY0o 5dFD6g0pCSlBmmG+Lo3I4EruRSuVq0Oi19YIGtGwnSyIdpsE3aid/JMOTcjs We9wKSahMflxoEZCM5r4kQcv60mwLdPTWKfZguhDOnJlJQnaC0mH2EZt6Ggg TViZp/rzdUAQw7UNmRlfyqSpbC5ncPWi2pCMEq3mm0vCrpKukCcNbcjIIObk +xwS6krOi69Zy9Dp0q3izVkkjPqOSDitMlToJPQ69SsJn13Ouhe7tAN1rglZ /4JPgoX32Kvbv8iRY7PDJ1siSYhrZaLsycdonIzctOgTElaL9Pqo1H7EKNe2 uzfuCTUDLvfbdgwg2bnDGdwiT7gVkW9wYESBBgsTlhz39ISpDTuJvyNfIiPR zwncSQ7QZkuXGVi8QQxsvssyjQP2C9wa3/IR5CW6qVtjyoH7vO2tTVZvUXOe +ear1R5gnDk8WzI2jk6PFreU2HrA8Ex/30Ob92iax65zqnIH4Zv6Ft2zE0hx 766ls5E76Br+9VahmES36yKL1/HcIO1rcXiB+TRS69NSRo+wYRpKFYcTZxDF IsfOA7HhmK1UpH/7A9op2CXO/N0V+sulv7SbzKEL+ZddZfK9MB8hz7U8MY8m bChlF3X3wmbnxcrw+n9RPJ1DNJB7gF1k8lXlaiWqc6eVKWJdIM7wC9PnhxaQ NF92x6tgNzBGPtPuIimgRpc32N11hhXEuKZ0jgLC5LMcly4A9Zu5FWZ5VOh5 Iens6EHwzfb6x0s4NIhlJzz3a90Jpe7BBTemaTDIuSbIr3OCqeG1y4bOq0G5 c9TW7lomiH3ZaoI96uCzglocedIBEt34F0VD6hCanizs87UDk6ce3cX8RfCD /pfZrzduA5YDT0C31QB/6bretHobOGTUNkvt1ICVD6/7hLczYKolfSAmaTGk Wsc6ioUbIVs96JiPuSbIDti8eV5uCiv6xEU0qSbESIsGXMMNYFFCkh/zyBIY H6TeqfJeBpSSoIqB5VpA8ZnxshiaRkcvVKQvv6UF6zO6F51e/+Fmw+ZUTb0o bdgfEhYV3KOH9TyOMpJ1dYBrJttnbWKIe7fIOo9LdEDyqDIuTmaOr/6BzBVB S8GGHSG802SFP6+w1zNULgXZGhO9p0E2+Cd+YVLvFV1wPJVoH1C2Df/9yjBX 15OA7kn/Mm67PU7N53P7PiVgTsOw8Gy/PQ71GbUo9ybg3yLpvYZRe7xOIrlK BhBwOb72lrGWAz6TcbApLZiAHy/YOrzf7YAP2+e80zpOQERtDKtd5IBNeSvd Fl8i4MOhlVfichyx0vGHpV2XCdhRqn3w/l+O+PHoi45LpQQE/qxwNq1xxJkB 1Z+7VhIA7azK9g5HvGDlE8uXEFDw4rg+0mHi3vaMP9Q6CUgdcJ73TWTi2pSZ kM6HBPS0emtJ0plY4PSFZXE3Acv2unhZ5DEx509r0e4+AvTbWk7M1zLx9fgH d5NeE1Bz4Nv9Ne+Z+PwWuwzvEQKW/56qv4nKwkcG8vxM3hLgGZiilUuw8CbP b/vxJAHByRsEPAYLq1PlwswZ1b/BO5bzLBZ+JnaK4M4RoN7hOXXUnYUlEcVb bT4SIHSrmh4OYOEsY+2phQUCTN1nt4SHs/B/E9rqzg== "]]}, Annotation[#, "Charting`Private`Tag$11785#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVx3k41HkcwPHfjAnl+EaHHSIjRzlyhBjl+8Wvi2yP67F2c6xQZspKemh3 ZYehJKlZOXJ2saVMU8yjTfVZptpErmnVVrRSyRBtzqnMtn+8n9fz5kT/EBjL pCjK/0v/6xs71AVv93vyWyP5XxZYPoaJ/exgbGsqlVR+RcGayuKya+wYPLJf e8bTkQK/9t6r5exknMC5LkyLpiA0ZvqmiC3Ee1P1K5QyCp7bH/LJYxfgFMs7 nRM5DKhasi37CPsczsywdn27SA0Emtesctj1uJQ7SXVbqcM3YafF4+9lOKgq 0s1Brg1aKsH2TSYdeFs8x+vSIT2wCHg31JIrx29kfY6lJxdDykN3XDzxBPuU Zu/rfGUABvV6fQxGPx7q5d3ifTYE6YBPW8e6ARyU7/6tX6gJNPPKjcJGBnER aziqpdMUJi3Xo8t73uCLySElv4aZAXO2dqGRxTA2MXNVZquZg6sqShpUN4Ib mQ39ticsoE3o/PCu9Rg+ImPbUAZWsPy4YvbCu3EMLR8qpm6uBMV0f98jh3+x 4RS/qHKzNZwbvtGqe+wD/is2rJE/YQO6xjVjg4MT+IHUFscW28HR+Ia4KvMp /Jpb4atnag9TpHZwV/o0djjojRNjHCDZSVa/tGUGC2aERhJrR+ivk+V2cZQ4 U495NJPhBB958tJVP37EpkZJ4t1yJ7Dx0piLu/EJB3g6LrEvWQObznB2Sgzm sBNlgzITnCHFONLsn+0qXP10n98VFxewHQnR6vWniLRGzJ2YcYFFaFxTpqRI qr7lrfttrsC6XSpeUcYgbYWKzFTRWuA733gy349JOq8rnjfucoPaLdFVt6aY JKm9bxh5uMOkwnDh60I1Uq005RKVOzQEbVIroFkk9265MVPOhfTNWZX1r1mE eSnep/yUB3Ce+z4+mzWPLM1YuWxb+DrgrhUWsJ3UydMpTo7IYT1sN+mYZfSo E8csnpt4cj1MtuYNJAo0CPfq6E/hDzyhmBWRHGiuSeQztxmvRBgW9TWcYco0 iXqxd7mXDYF5aYJg973ziTKjOTPsJAHqQoR4QH8BkSrjtSJmCCSdEufpNy8g 7X+sDq/d4QU3bQ5r6iVoEUfGHk1Wuxfo+SbZZuhqk4j27uAt9t7wzK6z50CT NhkcCuH3lnjDlQpsPhihQ9acoFYEfvaGcLGrnvGcDumUmDs/jvCBX7JOC55d 1CV3OHGo5k8fuDxkXKq7FRGhSUdutA0Nh8uzovq+RiQtUbHTyI6GmMBRi7oA RFKaNWj5ahqWNTVd8Q9FhB9HPm1wouFI/nd3j0YjElgn2b3KnYZdriXvFxxA xNSzwH98Iw1mwsWbNaoRaQoPQwejaZhz+1mn9zdEpOL9CtcYGp6MvuyurkVE zBDdG4ul4XjotfCNEkTOnG9N/z6eBpV14L6sJkRyRj3G6UQannXlV6j1IBKa ZtKldZCGxuzpHT2PEAno4F6WpdNQ4BG56uxjRPw4oTlpAhr8zq+u9+5DxPNO vteYkIbfU9vvC94iYqnDuNqdS0OhnUt+wAgiyyONj+Xm0bB3oCyYM4YIW+LO o/NpWLl1dz9MIKIdkmQmFdHAYsjPHZ9GRL3m2FxCAQ0vGjx4UUpEqNmLf1sV 0tDEO2vv8BkRpe896YsiGoqWa02qVIh8KHspKimh4T/KAUG9 "]]}, Annotation[#, "Charting`Private`Tag$11785#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6V2s2aCgPKBBaL+bV2SS+xh/EaOzeqd klvg/IjIhes/fDwC53P/b4xxlzsP56sGvntxuPsKnF9+ztJ+xpebcL74FsF7 jIz34fxtj5zPnLd5BOcfyporHfnmCZz/Vc2Wf23uczif6edqAWnVV3C+2f+E bcHr3sD5Z1pMzh3Teg/ny094/XPluw9w/uvv9+9dNfgE5y95tfsUX99nOJ9P dvn7J0++wPk9mVvTFqh8g/O/Oax+klH/Hc4vMTqyRezwDzj//roj3RcVf8H5 v7OuzNas+g3nazuy/0vb/QfOd1+kmL5R/B8ivGTjlR7G/Ifzdd6Ecl/3ZXCA 8YX5P3Ac+YXgs+yfvV55DiOcn22y+yanNxOcv9ozacG+bwj+19dSAs+mMcP5 W4Pdmae4sMD59R6t87c8Q/AV73rdWNzKCudbmbdMkTRig/Nj5M7/ZLyM4H89 1fuooJEdzp/BElcSpMKBcP+9rYuYjiD4rLWNIZaFnHA+w8q49Y+EuOD8olnr e4UOIfh7tTs4BPO44XxBryKdJj4eOP+O7oXLlXsQ/A3z7FWexPHC+bHrzQRl /yH4Da0LG++s4oPz176Qnc3nww/nK7WIeLAvQ/Cny3N//f8fwQcAwEKpXQ== "]]}, Annotation[#, "Charting`Private`Tag$11785#3"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0., 0.}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0.}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 4}, {-41.1999992, 59.99999983673466}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"x(t)\"", "\"v(t)\"", "\"a(t)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(FormBox[ GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], TraditionalForm]& ), Editable->True, InterpretationFunction->(FormBox[ RowBox[{"Legended", "(", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], ")"}], TraditionalForm]& )], TraditionalForm]], "Output", CellChangeTimes->{ 3.7755788940165358`*^9, {3.775578947604203*^9, 3.7755789572094517`*^9}}, CellLabel->"Out[4]=",ExpressionUUID->"c55212a3-e0ae-4704-bfd4-ae1c16777d9c"] }, Open ]], Cell[TextData[{ "You can see that the path of the coin, ", Cell[BoxData[ FormBox[ RowBox[{"x", "(", "t", ")"}], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "520a292d-bcc3-40da-b659-cd32e4b2dfed"], ", is a parabola that opens downward. The point where ", Cell[BoxData[ FormBox[ RowBox[{"x", RowBox[{"(", "t", ")"}]}], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "d37d7e7d-49f6-4e9e-aa9a-390572945a18"], " crosses the horizontal axis represents the approximate time when the coin \ hits the ground. Since the coin is only affected by Earth\[CloseCurlyQuote]s \ gravity, ", Cell[BoxData[ FormBox[ RowBox[{"v", RowBox[{"(", "t", ")"}]}], TraditionalForm]],ExpressionUUID-> "c39cf19d-d8df-490d-8b00-d5871e29abfb"], " decreases linearly and ", Cell[BoxData[ FormBox[ RowBox[{"a", RowBox[{"(", "t", ")"}]}], TraditionalForm]],ExpressionUUID-> "8522f822-93ba-4eaa-af4b-9bf0bbfcc7b5"], " remains constant." }], "Text", CellChangeTimes->{{3.775579014382079*^9, 3.775579143917132*^9}, { 3.775579302223402*^9, 3.775579325398519*^9}, {3.775579356111497*^9, 3.775579420209015*^9}, {3.775579512207246*^9, 3.775579641449812*^9}},ExpressionUUID->"c7cb3602-aea4-4ef7-acdd-\ a8ba260c8291"] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsection", CellChangeTimes->{{3.772457187217924*^9, 3.772457192424053*^9}, 3.772461918634006*^9, 3.7755781098576603`*^9, {3.775578569633967*^9, 3.775578573378705*^9}},ExpressionUUID->"09a25d98-3764-4724-871f-\ a44a4f6a5432"], Cell["\<\ How many seconds does it take for the object to hit the ground?\ \>", "ItemNumbered", CellChangeTimes->{{3.772456844096537*^9, 3.772456853376556*^9}, { 3.772457209906784*^9, 3.772457227443061*^9}, {3.7724601534428873`*^9, 3.7724601544085293`*^9}, 3.772461918634103*^9, 3.775578109857766*^9},ExpressionUUID->"7552184e-08f1-4894-bca6-\ 0ebd6038f836"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "show steps to solve -4.9t^2+60-2t=0", "assumptions" -> {}, "parse" -> Defer[ AlphaIntegration`WolframAlphaStepByStep[ "show steps to solve -4.9t^2+60-2t=0", XMLObject["Document"][{ XMLObject["Declaration"]["Version" -> "1.0", "Encoding" -> "UTF-8"]}, XMLElement[ "queryresult", { "success" -> "true", "error" -> "false", "numpods" -> "1", "datatypes" -> "", "timedout" -> "", "timedoutpods" -> "", "timing" -> "2.565", "parsetiming" -> "1.093", "parsetimedout" -> "false", "recalculate" -> "", "id" -> "MSPa561230254d111bi1cbc00001icaic070031c6dc", "host" -> "http://www.current.wolframalpha.com", "server" -> "7", "related" -> "http://www.current.wolframalpha.com/api/v1/relatedQueries.jsp?id=\ MSPa562230254d111bi1cbc00003352a3g22g63e84a1003855378756456969", "version" -> "2.6"}, { XMLElement[ "pod", {"stepbystepcontenttype" -> "StepByStep", "title" -> "Solutions", "scanner" -> "Reduce", "id" -> "Solution", "position" -> "100", "error" -> "false", "numsubpods" -> "17", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSIntro"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ TemplateBox[{ "\"Solve for \"", "t", "\" over the real numbers\""}, "RowDefault"]}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TemplateBox[{ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{"-", "4.9`", " ", SuperscriptBox["t", "2"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm], "\[LongEqual]", "0"}], HoldForm]}, "RowDefault"], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{None}}, "Rows" -> {{0.5}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement[ "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Rewrite \"", "\"the \"", "\"left \"", "\"hand \"", "\"side \"", "\"of \"", "\"the \"", "\"equation.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ RowBox[{ TagBox[ TagBox[ RowBox[{ RowBox[{"-", "4.9`", " ", SuperscriptBox["t", "2"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm], HoldForm], "\[LongEqual]", TagBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"49", " ", SuperscriptBox["t", "2"]}], "10"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm]}]}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TemplateBox[{ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"49", " ", SuperscriptBox["t", "2"]}], "10"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm], "\[LongEqual]", "0"}], HoldForm]}, "RowDefault"], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Write \"", "\"the \"", "\"quadratic \"", "\"equation \"", "\"in \"", "\"standard \"", "\"form.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ "\"Multiply \"", "\"both \"", "\"sides \"", "\"by \"", RowBox[{"-", FractionBox["10", "49"]}]}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox["t", "2"], "+", FractionBox[ RowBox[{"20", " ", "t"}], "49"], "-", FractionBox["600", "49"]}], HoldForm], "\[LongEqual]", "0"}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Solve \"", "\"the \"", "\"quadratic \"", "\"equation \"", "\"by \"", "\"completing \"", "\"the \"", "\"square.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Add \"", TemplateBox[{ FractionBox["600", "49"], "\" \""}, "RowDefault"], "\"to \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox["t", "2"], "+", FractionBox[ RowBox[{"20", " ", "t"}], "49"]}], HoldForm], "\[LongEqual]", FractionBox["600", "49"]}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Take \"", "\"one \"", "\"half \"", "\"of \"", "\"the \"", "\"coefficient \"", "\"of \"", TemplateBox[{"t", "\" \""}, "RowDefault"], "\"and \"", "\"square \"", "\"it, \"", "\"then \"", "\"add \"", "\"it \"", "\"to \"", "\"both \"", "\"sides.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Add \"", TemplateBox[{ FractionBox["100", "2401"], "\" \""}, "RowDefault"], "\"to \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox["t", "2"], "+", FractionBox[ RowBox[{"20", " ", "t"}], "49"], "+", FractionBox["100", "2401"]}], HoldForm], "\[LongEqual]", FractionBox["29500", "2401"]}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Factor \"", "\"the \"", "\"left \"", "\"hand \"", "\"side.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ "\"Write \"", "\"the \"", "\"left \"", "\"hand \"", "\"side \"", "\"as \"", "\"a \"", "\"square\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], ")"}], "2"], "\[LongEqual]", FractionBox["29500", "2401"]}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Eliminate \"", "\"the \"", "\"exponent \"", "\"on \"", "\"the \"", "\"left \"", "\"hand \"", "\"side.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ "\"Take \"", "\"the \"", "\"square \"", "\"root \"", "\"of \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TemplateBox[{ StyleBox["\" or \"", GrayLevel[0.7], StripOnInput -> False], TagBox[ RowBox[{ TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], "\[LongEqual]", FractionBox[ RowBox[{"10", " ", SqrtBox["295"]}], "49"]}], HoldForm], TagBox[ RowBox[{ TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], "\[LongEqual]", RowBox[{"-", FractionBox[ RowBox[{"10", " ", SqrtBox["295"]}], "49"]}]}], HoldForm]}, "RowWithSeparator"], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Look \"", "\"at \"", "\"the \"", "\"first \"", TemplateBox[{"\"equation\"", StyleBox["\": \"", Plain, StripOnInput -> False], TemplateBox[{"\"Solve \"", "\"for \"", "t", "\".\""}, "RowDefault"]}, "RowDefault"]}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Subtract \"", TemplateBox[{ FractionBox["10", "49"], "\" \""}, "RowDefault"], "\"from \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TemplateBox[{ StyleBox["\" or \"", GrayLevel[0.7], StripOnInput -> False], FrameBox[ TagBox[ RowBox[{"t", "\[LongEqual]", TagBox[ RowBox[{ FractionBox[ RowBox[{"10", " ", SqrtBox[ TagBox[ TagBox["295", HoldForm], HoldForm]]}], "49"], "-", FractionBox["10", "49"]}], HoldForm]}], HoldForm], FrameStyle -> GrayLevel[0.8], FrameMargins -> 1, BaselinePosition -> Baseline, ContentPadding -> False, StripOnInput -> False], TagBox[ RowBox[{ TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], "\[LongEqual]", RowBox[{"-", FractionBox[ RowBox[{"10", " ", SqrtBox["295"]}], "49"]}]}], HoldForm]}, "RowWithSeparator"], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Look \"", "\"at \"", "\"the \"", "\"second \"", TemplateBox[{"\"equation\"", StyleBox["\": \"", Plain, StripOnInput -> False], TemplateBox[{"\"Solve \"", "\"for \"", "t", "\".\""}, "RowDefault"]}, "RowDefault"]}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Subtract \"", TemplateBox[{ FractionBox["10", "49"], "\" \""}, "RowDefault"], "\"from \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { FrameBox[ TagBox[ GridBox[{{ StyleBox[ TemplateBox[{"\"Answer:\""}, "RowDefault"], FontFamily -> "Helvetica", FontSize -> 12, StripOnInput -> False], "\[SpanFromLeft]"}, {"\"\"", TagBox[ TemplateBox[{ StyleBox["\" or \"", GrayLevel[0.7], StripOnInput -> False], TagBox[ RowBox[{"t", "\[LongEqual]", TagBox[ RowBox[{ FractionBox[ RowBox[{"10", " ", SqrtBox[ TagBox[ TagBox["295", HoldForm], HoldForm]]}], "49"], "-", FractionBox["10", "49"]}], HoldForm]}], HoldForm], FrameBox[ TagBox[ RowBox[{"t", "\[LongEqual]", TagBox[ RowBox[{ RowBox[{"-", FractionBox["10", "49"]}], "-", FractionBox[ RowBox[{"10", " ", SqrtBox[ TagBox[ TagBox["295", HoldForm], HoldForm]]}], "49"]}], HoldForm]}], HoldForm], FrameStyle -> GrayLevel[0.8], FrameMargins -> 1, BaselinePosition -> Baseline, ContentPadding -> False, StripOnInput -> False]}, "RowWithSeparator"], HoldForm]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> {"Columns" -> {2.5, Automatic}}, GridBoxSpacings -> { "Columns" -> {2, 0, 3}, "Rows" -> {1.5, 1, 2}}, AllowScriptLevelChange -> False], "Grid"], FrameStyle -> { AbsoluteThickness[1], RGBColor[0.52, 0.76, 0.86]}, Background -> RGBColor[0.91, 0.98, 1], RoundingRadius -> 3, FrameMargins -> 12, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{3}}}, FrameStyle -> GrayLevel[0.7]], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["expressiontypes", {}, {"\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}], XMLElement["states", {"count" -> "2"}, { XMLElement[ "statelist", { "count" -> "2", "value" -> "Complete the square", "delimiters" -> ""}, { XMLElement[ "state", { "name" -> "Complete the square", "input" -> "Solution__Complete the square"}, {}], XMLElement[ "state", { "name" -> "Use quadratic formula", "input" -> "Solution__Use quadratic formula"}, {}]}], XMLElement[ "state", { "name" -> "Start over", "input" -> "Solution__Start over"}, {}]}]}], XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "solve", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "2"}, { XMLElement[ "value", { "name" -> "EnglishWord", "desc" -> "a word", "input" -> "*C.solve-_*EnglishWord-"}, {}], XMLElement[ "value", { "name" -> "SolveWord", "desc" -> " referring to equation solving", "input" -> "*C.solve-_*SolveWord-"}, {}]}]}], XMLElement[ "mathematicaparse", {}, {"-4.9 t^2 + 60 - 2 t == 0"}]}], {}]]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "solve", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "2"}, { XMLElement[ "value", { "name" -> "EnglishWord", "desc" -> "a word", "input" -> "*C.solve-_*EnglishWord-"}, {}], XMLElement[ "value", { "name" -> "SolveWord", "desc" -> " referring to equation solving", "input" -> "*C.solve-_*SolveWord-"}, {}]}]}]}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[False], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[22]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {83., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", TaggingRules->{ "ShowSpecialCharactersDockedCell" -> True, "WolframAlphaNotebook" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[False]}}, CellChangeTimes->{3.77246191863483*^9, 3.775578109857826*^9}, CellLabel->"In[5]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"4b8f965c-317c-4875-9093-c1e46d5c4188"], Cell[BoxData[ FormBox[ NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "show steps to solve -4.9t^2+60-2t=0", Typeset`opts$$ = { AppearanceElements -> {"Pods", "Sources"}, Method -> {"WANParse" -> True}}, Typeset`elements$$ = { "Pods", "Sources"}, Typeset`pod1$$ = XMLElement[ "pod", {"stepbystepcontenttype" -> "StepByStep", "title" -> "Solutions", "scanner" -> "Reduce", "id" -> "Solution", "position" -> "100", "error" -> "false", "numsubpods" -> "17", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSIntro"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ TemplateBox[{ "\"Solve for \"", "t", "\" over the real numbers\""}, "RowDefault"]}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TemplateBox[{ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{"-", "4.9`", " ", SuperscriptBox["t", "2"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm], "\[LongEqual]", "0"}], HoldForm]}, "RowDefault"], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{None}}, "Rows" -> {{0.5}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement[ "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Rewrite \"", "\"the \"", "\"left \"", "\"hand \"", "\"side \"", "\"of \"", "\"the \"", "\"equation.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ RowBox[{ TagBox[ TagBox[ RowBox[{ RowBox[{"-", "4.9`", " ", SuperscriptBox["t", "2"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm], HoldForm], "\[LongEqual]", TagBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"49", " ", SuperscriptBox["t", "2"]}], "10"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm]}]}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TemplateBox[{ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"49", " ", SuperscriptBox["t", "2"]}], "10"]}], "-", RowBox[{"2", " ", "t"}], "+", "60"}], HoldForm], "\[LongEqual]", "0"}], HoldForm]}, "RowDefault"], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Write \"", "\"the \"", "\"quadratic \"", "\"equation \"", "\"in \"", "\"standard \"", "\"form.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ "\"Multiply \"", "\"both \"", "\"sides \"", "\"by \"", RowBox[{"-", FractionBox["10", "49"]}]}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox["t", "2"], "+", FractionBox[ RowBox[{"20", " ", "t"}], "49"], "-", FractionBox["600", "49"]}], HoldForm], "\[LongEqual]", "0"}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Solve \"", "\"the \"", "\"quadratic \"", "\"equation \"", "\"by \"", "\"completing \"", "\"the \"", "\"square.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Add \"", TemplateBox[{ FractionBox["600", "49"], "\" \""}, "RowDefault"], "\"to \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox["t", "2"], "+", FractionBox[ RowBox[{"20", " ", "t"}], "49"]}], HoldForm], "\[LongEqual]", FractionBox["600", "49"]}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Take \"", "\"one \"", "\"half \"", "\"of \"", "\"the \"", "\"coefficient \"", "\"of \"", TemplateBox[{"t", "\" \""}, "RowDefault"], "\"and \"", "\"square \"", "\"it, \"", "\"then \"", "\"add \"", "\"it \"", "\"to \"", "\"both \"", "\"sides.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Add \"", TemplateBox[{ FractionBox["100", "2401"], "\" \""}, "RowDefault"], "\"to \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ SuperscriptBox["t", "2"], "+", FractionBox[ RowBox[{"20", " ", "t"}], "49"], "+", FractionBox["100", "2401"]}], HoldForm], "\[LongEqual]", FractionBox["29500", "2401"]}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Factor \"", "\"the \"", "\"left \"", "\"hand \"", "\"side.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ "\"Write \"", "\"the \"", "\"left \"", "\"hand \"", "\"side \"", "\"as \"", "\"a \"", "\"square\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TagBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], ")"}], "2"], "\[LongEqual]", FractionBox["29500", "2401"]}], HoldForm], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Eliminate \"", "\"the \"", "\"exponent \"", "\"on \"", "\"the \"", "\"left \"", "\"hand \"", "\"side.\""}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{ "\"Take \"", "\"the \"", "\"square \"", "\"root \"", "\"of \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TagBox[ TemplateBox[{ StyleBox["\" or \"", GrayLevel[0.7], StripOnInput -> False], TagBox[ RowBox[{ TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], "\[LongEqual]", FractionBox[ RowBox[{"10", " ", SqrtBox["295"]}], "49"]}], HoldForm], TagBox[ RowBox[{ TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], "\[LongEqual]", RowBox[{"-", FractionBox[ RowBox[{"10", " ", SqrtBox["295"]}], "49"]}]}], HoldForm]}, "RowWithSeparator"], HoldForm], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Look \"", "\"at \"", "\"the \"", "\"first \"", TemplateBox[{"\"equation\"", StyleBox["\": \"", Plain, StripOnInput -> False], TemplateBox[{"\"Solve \"", "\"for \"", "t", "\".\""}, "RowDefault"]}, "RowDefault"]}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Subtract \"", TemplateBox[{ FractionBox["10", "49"], "\" \""}, "RowDefault"], "\"from \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { TagBox[ TemplateBox[{ StyleBox["\" or \"", GrayLevel[0.7], StripOnInput -> False], FrameBox[ TagBox[ RowBox[{"t", "\[LongEqual]", TagBox[ RowBox[{ FractionBox[ RowBox[{"10", " ", SqrtBox[ TagBox[ TagBox["295", HoldForm], HoldForm]]}], "49"], "-", FractionBox["10", "49"]}], HoldForm]}], HoldForm], FrameStyle -> GrayLevel[0.8], FrameMargins -> 1, BaselinePosition -> Baseline, ContentPadding -> False, StripOnInput -> False], TagBox[ RowBox[{ TagBox[ RowBox[{"t", "+", FractionBox["10", "49"]}], HoldForm], "\[LongEqual]", RowBox[{"-", FractionBox[ RowBox[{"10", " ", SqrtBox["295"]}], "49"]}]}], HoldForm]}, "RowWithSeparator"], HoldForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSHint"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FrameBox[ PaneBox[ TagBox[ GridBox[{{ StyleBox["\"Hint: \"", Bold, GrayLevel[0.47], FontFamily -> "Helvetica", FontSize -> 11, StripOnInput -> False], StyleBox[ TemplateBox[{ "\"Look \"", "\"at \"", "\"the \"", "\"second \"", TemplateBox[{"\"equation\"", StyleBox["\": \"", Plain, StripOnInput -> False], TemplateBox[{"\"Solve \"", "\"for \"", "t", "\".\""}, "RowDefault"]}, "RowDefault"]}, "RowDefault"], GrayLevel[0.47], FontSize -> 12, FontFamily -> "Helvetica", StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False, BaseStyle -> (ImageSizeMultipliers -> 1)], "Grid"], BaseStyle -> { LineIndent -> 0, LinebreakAdjustments -> {1, 89, 13, 1, 2}}, ImageSize -> {350}], FrameMargins -> 12, Background -> GrayLevel[0.94], FrameStyle -> { Thickness[Tiny], GrayLevel[0.86]}, RoundingRadius -> 3, StripOnInput -> False], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["stepbystepcontenttype", {}, {"SBSStep"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{"\[NoBreak]", "\"\[NoBreak]\"", TemplateBox[{"\"Subtract \"", TemplateBox[{ FractionBox["10", "49"], "\" \""}, "RowDefault"], "\"from \"", "\"both \"", "\"sides\""}, "RowDefault"], "\":\""}, "RowWithSeparators"], GrayLevel[0.5], StripOnInput -> False], { LinebreakAdjustments -> {1, 89, 100, 0, 100}, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}]}, { FrameBox[ TagBox[ GridBox[{{ StyleBox[ TemplateBox[{"\"Answer:\""}, "RowDefault"], FontFamily -> "Helvetica", FontSize -> 12, StripOnInput -> False], "\[SpanFromLeft]"}, {"\"\"", TagBox[ TemplateBox[{ StyleBox["\" or \"", GrayLevel[0.7], StripOnInput -> False], TagBox[ RowBox[{"t", "\[LongEqual]", TagBox[ RowBox[{ FractionBox[ RowBox[{"10", " ", SqrtBox[ TagBox[ TagBox["295", HoldForm], HoldForm]]}], "49"], "-", FractionBox["10", "49"]}], HoldForm]}], HoldForm], FrameBox[ TagBox[ RowBox[{"t", "\[LongEqual]", TagBox[ RowBox[{ RowBox[{"-", FractionBox["10", "49"]}], "-", FractionBox[ RowBox[{"10", " ", SqrtBox[ TagBox[ TagBox["295", HoldForm], HoldForm]]}], "49"]}], HoldForm]}], HoldForm], FrameStyle -> GrayLevel[0.8], FrameMargins -> 1, BaselinePosition -> Baseline, ContentPadding -> False, StripOnInput -> False]}, "RowWithSeparator"], HoldForm]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> {"Columns" -> {2.5, Automatic}}, GridBoxSpacings -> { "Columns" -> {2, 0, 3}, "Rows" -> {1.5, 1, 2}}, AllowScriptLevelChange -> False], "Grid"], FrameStyle -> { AbsoluteThickness[1], RGBColor[0.52, 0.76, 0.86]}, Background -> RGBColor[0.91, 0.98, 1], RoundingRadius -> 3, FrameMargins -> 12, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{3}}}, FrameStyle -> GrayLevel[0.7]], "Column"], TraditionalForm]], "Output", { Background -> None, GraphicsBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, DefaultAxesStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsAxes"], DefaultFrameStyle -> Directive[ GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, "GraphicsFrame"], DefaultFrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], DefaultTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, Graphics3DBoxOptions -> { DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, NumberPoint -> ".", CellSize -> {500, Automatic}, AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, RenderingOptions -> { "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["expressiontypes", {}, {"\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n ", XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}], XMLElement["states", {"count" -> "2"}, { XMLElement[ "statelist", { "count" -> "2", "value" -> "Complete the square", "delimiters" -> ""}, { XMLElement[ "state", { "name" -> "Complete the square", "input" -> "Solution__Complete the square"}, {}], XMLElement[ "state", { "name" -> "Use quadratic formula", "input" -> "Solution__Use quadratic formula"}, {}]}], XMLElement[ "state", { "name" -> "Start over", "input" -> "Solution__Start over"}, {}]}]}], Typeset`aux1$$ = { True, False, { False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False}, True}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "solve", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "2"}, { XMLElement[ "value", { "name" -> "EnglishWord", "desc" -> "a word", "input" -> "*C.solve-_*EnglishWord-"}, {}], XMLElement[ "value", { "name" -> "SolveWord", "desc" -> " referring to equation solving", "input" -> "*C.solve-_*SolveWord-"}, {}]}]}], XMLElement["mathematicaparse", {}, {"-4.9 t^2 + 60 - 2 t == 0"}]}, Typeset`initdone$$ = FrontEnd`SuppressEvaluationHash[True], Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "1", "datatypes" -> "", "timedout" -> "", "timedoutpods" -> "", "timing" -> "2.565", "parsetiming" -> "1.093", "parsetimedout" -> "false", "recalculate" -> "", "id" -> "MSPa561230254d111bi1cbc00001icaic070031c6dc", "host" -> "http://www.current.wolframalpha.com", "server" -> "7", "related" -> "http://www.current.wolframalpha.com/api/v1/relatedQueries.jsp?id=\ MSPa562230254d111bi1cbc00003352a3g22g63e84a1003855378756456969", "version" -> "2.6"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2019, 8, 23, 15, 26, 6.567359`7.569965744858315}, "Line" -> 5, "SessionID" -> 29626266162034618889}, Typeset`showpods$$ = {1}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, Typeset`open$$ = False, Typeset`newq$$ = "show steps to solve -4.9t^2+60-2t=0"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{ 1, {Typeset`pod1$$}, {Typeset`aux1$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], TraditionalForm], ImageSizeCache->{598., {587., 594.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ And[ Not[Typeset`initdone$$ === True], Not[Typeset`initdone$$ === FrontEnd`SuppressEvaluationHash[True]]], Null; WolframAlphaClient`Private`doAsyncUpdates[ Hold[{Typeset`pod1$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`initdone$$ = FrontEnd`SuppressEvaluationHash[True]], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True], TraditionalForm]], "Output", CellChangeTimes->{3.7755807666121264`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"d0da7e6e-2218-4952-8b92-70d15149cd3a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "positive solution of x(t)=0", "assumptions" -> {}, "parse" -> Defer[ Solve[{$CellContext`x[$CellContext`t] == 0, $CellContext`t > 0}, $CellContext`t]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[False], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[8]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {37., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", CellLabel->"In[6]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"4e45b6a6-87b1-46db-974b-c657b95dfa67"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "}"}], ",", " ", "t"}], "]"}]], "DeployedWLInput", CellChangeTimes->{3.7755807808233147`*^9}, CellLabel->"In[6]:=",ExpressionUUID->"fae7f90e-7485-450f-a67f-fcb73c963f05"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"{", RowBox[{"t", "\[Rule]", "3.301135517819932`"}], "}"}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{3.775580780874186*^9}, CellLabel->"Out[6]=",ExpressionUUID->"432b3ea3-decf-43bc-ad99-7a60ec8ca3f3"] }, Open ]], Cell["\<\ What is its instantaneous velocity just before hitting the ground?\ \>", "ItemNumbered", CellChangeTimes->{{3.772456245456579*^9, 3.772456269649911*^9}, { 3.772456311723618*^9, 3.772456329845819*^9}, {3.772456902818297*^9, 3.7724569031464777`*^9}, {3.772457196714678*^9, 3.772457230593025*^9}, { 3.7724583542041273`*^9, 3.77245835434019*^9}, {3.772459991702175*^9, 3.7724600052949543`*^9}, 3.772461918635466*^9, 3.7755781098580503`*^9},ExpressionUUID->"ef83172d-eb71-4472-9926-\ 60ecdb2fc52b"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "v(3.3)", "assumptions" -> {}, "parse" -> Defer[ $CellContext`v[3.3]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[Automatic], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[14]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {37., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", TaggingRules->{ "ShowSpecialCharactersDockedCell" -> True, "WolframAlphaNotebook" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[False]}}, CellChangeTimes->{3.7724619186361237`*^9, 3.77557810985811*^9}, CellLabel->"In[7]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"802e2a3c-3739-48de-9a8a-a89b2f24a020"], Cell[BoxData[ RowBox[{"v", "[", "3.3", "]"}]], "DeployedWLInput", CellChangeTimes->{3.775580817115079*^9}, CellLabel->"In[7]:=",ExpressionUUID->"2b64d0d4-548c-4eb5-98f9-2c4c58c79cae"], Cell[BoxData[ FormBox[ RowBox[{"-", "34.34`"}], TraditionalForm]], "Output", CellChangeTimes->{3.775580817140716*^9}, CellLabel->"Out[7]=",ExpressionUUID->"82daec1b-5726-49a6-949f-9bf3f11e60a3"] }, Open ]], Cell[CellGroupData[{ Cell["What is the coin\[CloseCurlyQuote]s acceleration...", "ItemNumbered", CellChangeTimes->{{3.772456245456579*^9, 3.772456269649911*^9}, { 3.772456311723618*^9, 3.772456329845819*^9}, {3.772456902818297*^9, 3.7724569031464777`*^9}, {3.772457196714678*^9, 3.772457230593025*^9}, { 3.7724583542041273`*^9, 3.77245835434019*^9}, {3.772459991702175*^9, 3.7724600164143887`*^9}, {3.7724601943950787`*^9, 3.7724602107216187`*^9}, {3.772460250988714*^9, 3.772460278715316*^9}, 3.772461918628631*^9, 3.775578109856331*^9, {3.7917409700797653`*^9, 3.791740974775724*^9}},ExpressionUUID->"c3e26d25-0d14-4931-b09a-\ b79e3e86f0cc"], Cell[TextData[{ "... at the moment it is thrown (", Cell[BoxData[ FormBox[ RowBox[{"t", "=", "0"}], TraditionalForm]],ExpressionUUID-> "1d87fad8-2f95-43e1-a7f8-e9b49ee2ffd9"], ")?" }], "Item", CellChangeTimes->{{3.791740956064784*^9, 3.791740963745202*^9}},ExpressionUUID->"50d68eb2-b2f1-4231-bf7f-\ f9f2747242be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "a(0)", "assumptions" -> {}, "parse" -> Defer[ $CellContext`a[0]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[Automatic], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[2]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {37., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", CellLabel->"In[8]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"ab0cfc36-096e-4d26-9257-9d9538bfa371"], Cell[BoxData[ RowBox[{"a", "[", "0", "]"}]], "DeployedWLInput", CellChangeTimes->{3.77558084105753*^9}, CellLabel->"In[8]:=",ExpressionUUID->"2239c1fd-9d33-48a1-98a1-c2e7295b7537"], Cell[BoxData[ FormBox[ RowBox[{"-", "9.8`"}], TraditionalForm]], "Output", CellChangeTimes->{3.775580841114696*^9}, CellLabel->"Out[8]=",ExpressionUUID->"f8c11709-fb1f-4640-874f-ad13b20b6df3"] }, Open ]], Cell["... just before hitting the ground?", "Item", CellChangeTimes->{{3.791740956064784*^9, 3.791740965560092*^9}},ExpressionUUID->"04c11fe8-fd6d-483b-bc91-\ ac0211804301"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "a(3.3)", "assumptions" -> {}, "parse" -> Defer[ $CellContext`a[3.3]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> {}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[Automatic], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[3]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {37., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", CellLabel->"In[9]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"ce3d264d-9048-43ac-bfc7-6b8fd53cf232"], Cell[BoxData[ RowBox[{"a", "[", "3.3", "]"}]], "DeployedWLInput", CellChangeTimes->{3.775580844329505*^9}, CellLabel->"In[9]:=",ExpressionUUID->"820ea31c-3d6d-4871-8bd6-e5922bd858e4"], Cell[BoxData[ FormBox[ RowBox[{"-", "9.8`"}], TraditionalForm]], "Output", CellChangeTimes->{3.775580844383566*^9}, CellLabel->"Out[9]=",ExpressionUUID->"50634a04-2db0-4804-8ea5-d60e1ee15f64"] }, Open ]], Cell[TextData[{ StyleBox["Bonus: ", FontWeight->"Bold"], "How could you answer problem 3 without referring to ", Cell[BoxData[ FormBox[ RowBox[{"a", "(", "t", ")"}], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "a5fb85bb-728a-40b8-8792-04a99bd08cae"], "? (Hint: Consider the source of the acceleration.)" }], "Text", CellChangeTimes->{{3.775580160176516*^9, 3.77558021214565*^9}, { 3.775580344238667*^9, 3.7755803448295116`*^9}, {3.7755803872868433`*^9, 3.775580417079496*^9}},ExpressionUUID->"f62f4375-2e78-49ea-ab98-\ c736ee3f8e3d"], Cell[CellGroupData[{ Cell[BoxData[ DynamicModuleBox[{Typeset`querydata$$ = Association[ "query" -> "earth's gravity in m/s^2", "assumptions" -> {}, "parse" -> Defer[ UnitConvert[ Entity["Planet", "Earth"][ EntityProperty["Planet", "Gravity"]], "Meters"/"Seconds"^2]], "inputpredictions" -> {}, "otherpredictions" -> {"FullResults"}, "allassumptions" -> { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "MultiClash", "word" -> "", "template" -> "Assuming ${word1} is referring to ${desc1}. Use \"${word2}\" as \ ${desc2}.", "count" -> "2"}, { XMLElement[ "value", { "name" -> "Planet", "word" -> "earth's", "desc" -> "a planet", "input" -> "*MC.earth%27s+gravity-_*Planet-"}, {}], XMLElement[ "value", { "name" -> "Unit", "word" -> "earth's gravity", "desc" -> "a unit", "input" -> "*MC.earth%27s+gravity-_*Unit-"}, {}]}]}]}, "summarizeassumptions" -> FrontEnd`SuppressEvaluationHash[Automatic], "summarizepredictions" -> FrontEnd`SuppressEvaluationHash[True]], Typeset`update$$ = FrontEnd`SuppressEvaluationHash[5]}, DynamicBox[ToBoxes[ AlphaIntegration`NaturalLanguageInputBoxes[ 1, Typeset`querydata$$, Typeset`update$$], StandardForm], ImageSizeCache->{572., {83., 18.}}, TrackedSymbols:>{}], BaseStyle->{Deployed -> True}, DynamicModuleValues:>{}]], "DeployedNLInput", CellLabel->"In[10]:=", PrivateCellOptions -> { "CellSettings" -> { "HideDetails" -> FrontEnd`SuppressEvaluationHash[ False]}},ExpressionUUID->"58e793fd-e988-4d81-babc-d293e65d02ec"], Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{ TemplateBox[{"\"Earth\"",RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Earth\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Earth\\\"]\"","\"planet\""}, "Entity"], "[", TemplateBox[{"\"gravity\"",RowBox[{"EntityProperty", "[", RowBox[{"\"Planet\"", ",", "\"Gravity\""}], "]"}], "\"EntityProperty[\\\"Planet\\\", \\\"Gravity\\\"]\""}, "EntityProperty"], "]"}], ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "2"}]}]}], "]"}]], "DeployedWLInput", CellChangeTimes->{3.775580867799789*^9}, CellLabel->"In[10]:=",ExpressionUUID->"36629466-8603-4098-9413-368a123eb7f4"], Cell[BoxData[ FormBox[ TemplateBox[{ "9.8`3.",RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"s\"", "2"]}],"meters per second squared",FractionBox[ "\"Meters\"", SuperscriptBox["\"Seconds\"", "2"]]}, "QuantityTF"], TraditionalForm]], "Output", CellChangeTimes->{3.77558086782689*^9}, CellLabel->"Out[10]=",ExpressionUUID->"e1e096ae-b4d5-43d2-8426-eba8d9234948"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{732, 1048}, WindowMargins->{{Automatic, 358}, {13, Automatic}}, TaggingRules->{ "ShowSpecialCharactersDockedCell" -> False, "TryRealOnly" -> False, "PresenterSettings" -> {"Dialogs" -> {}}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (May 29, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "WolframAlphaNotebook.nb"]]}, WindowSize -> {808, 911}, WindowMargins -> {{4, Automatic}, {Automatic, 4}}, Visible -> False, FrontEndVersion -> "12.0 for Mac OS X x86 (64-bit) (May 29, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[583, 22, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"b927f060-4bd8-4549-9d6b-a046377d2c6f", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 178298, 3727} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[583, 22, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"b927f060-4bd8-4549-9d6b-a046377d2c6f", CellTags->"SlideShowHeader"], Cell[708, 26, 257, 4, 98, "Title",ExpressionUUID->"1dea63e7-620d-4063-8250-ccc819a340cf"], Cell[968, 32, 270, 6, 53, "Subtitle",ExpressionUUID->"d2e3c7eb-1086-4e67-b7fd-a8c1acd74762"], Cell[CellGroupData[{ Cell[1263, 42, 278, 5, 67, "Section",ExpressionUUID->"ad05c586-7c0f-43ae-b4ca-5c49152b1ea1"], Cell[1544, 49, 637, 10, 64, "Text",ExpressionUUID->"e23c6b53-487d-4017-8ef6-e287ccff5484"], Cell[CellGroupData[{ Cell[2206, 63, 417, 8, 32, "ItemNumbered",ExpressionUUID->"58308a29-a095-4322-9aa9-6da2792eb190"], Cell[2626, 73, 651, 11, 32, "ItemNumbered",ExpressionUUID->"414f6888-eb07-4fe8-bdec-1856019ec389"], Cell[3280, 86, 649, 9, 32, "ItemNumbered",ExpressionUUID->"8c906f13-4c78-445b-a4ed-d43750e6664b"], Cell[3932, 97, 328, 10, 32, "Item",ExpressionUUID->"8a3d9a6a-aefb-4a81-9e9e-193fd0979921"], Cell[4263, 109, 177, 3, 32, "Item",ExpressionUUID->"96becea3-1dde-448d-be2c-6fed87c2ba90"] }, Open ]], Cell[CellGroupData[{ Cell[4477, 117, 371, 6, 54, "Subsection",ExpressionUUID->"216e2e44-b597-49a7-9ba9-286d0d3c0bf7"], Cell[4851, 125, 422, 11, 35, "Text",ExpressionUUID->"cb55bea1-d700-440b-8327-b8de1454314c"], Cell[CellGroupData[{ Cell[5298, 140, 3958, 91, 330, "DeployedNLInput",ExpressionUUID->"bcb78d7b-6329-4ca3-9bda-7ff546abb5d8"], Cell[9259, 233, 372, 8, 54, "DeployedWLInput",ExpressionUUID->"8d5deb08-7bf5-42e7-80ec-80c5991beea4"], Cell[9634, 243, 2126, 52, 50, "Output",ExpressionUUID->"da1a670e-38d7-49c0-9120-01997c663218"] }, Open ]], Cell[11775, 298, 1140, 32, 35, "Text",ExpressionUUID->"755791da-b8ba-4b55-a746-69a89de7526b"], Cell[CellGroupData[{ Cell[12940, 334, 1297, 29, 92, "DeployedNLInput",ExpressionUUID->"f86af4ff-5a79-4dee-bfb8-0b13180ff351"], Cell[14240, 365, 368, 9, 35, "DeployedWLInput",ExpressionUUID->"1161ccc0-d3cf-404c-8441-16e5ae6590b9"] }, Open ]], Cell[14623, 377, 361, 7, 35, "Text",ExpressionUUID->"452a90c2-d334-4ef8-bfb1-447b2f93d2fd"], Cell[CellGroupData[{ Cell[15009, 388, 1400, 31, 92, "DeployedNLInput",ExpressionUUID->"5bf1edc3-0bc3-484a-bbc6-46f0e3d68104"], Cell[16412, 421, 504, 13, 35, "DeployedWLInput",ExpressionUUID->"66c108ce-182d-4692-b862-541f7f4d709b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16965, 440, 319, 5, 54, "Subsection",ExpressionUUID->"34e8eed7-e845-40c9-b8c9-056a0602026c"], Cell[17287, 447, 461, 8, 35, "Text",ExpressionUUID->"60af61e9-2df0-452a-8e59-3a35f2687c98"], Cell[17751, 457, 4724, 104, 90, "DeployedNLInput",ExpressionUUID->"1c9957cf-4198-44f2-b611-5974e3d57fa1"], Cell[CellGroupData[{ Cell[22500, 565, 702, 17, 52, "Input",ExpressionUUID->"ecfa16ed-f8fb-4bef-9988-b7c8bbbeabe5"], Cell[23205, 584, 21041, 421, 234, "Output",ExpressionUUID->"c55212a3-e0ae-4704-bfd4-ae1c16777d9c"] }, Open ]], Cell[44261, 1008, 1279, 34, 104, "Text",ExpressionUUID->"c7cb3602-aea4-4ef7-acdd-a8ba260c8291"] }, Open ]], Cell[CellGroupData[{ Cell[45577, 1047, 254, 4, 54, "Subsection",ExpressionUUID->"09a25d98-3764-4724-871f-a44a4f6a5432"], Cell[45834, 1053, 370, 7, 32, "ItemNumbered",ExpressionUUID->"7552184e-08f1-4894-bca6-0ebd6038f836"], Cell[CellGroupData[{ Cell[46229, 1064, 62244, 1203, 138, "DeployedNLInput",ExpressionUUID->"4b8f965c-317c-4875-9093-c1e46d5c4188"], Cell[108476, 2269, 57876, 1143, 1200, "Output",ExpressionUUID->"d0da7e6e-2218-4952-8b92-70d15149cd3a"] }, Open ]], Cell[CellGroupData[{ Cell[166389, 3417, 1020, 22, 92, "DeployedNLInput",ExpressionUUID->"4e45b6a6-87b1-46db-974b-c657b95dfa67"], Cell[167412, 3441, 380, 10, 35, "DeployedWLInput",ExpressionUUID->"fae7f90e-7485-450f-a67f-fcb73c963f05"], Cell[167795, 3453, 274, 7, 30, "Output",ExpressionUUID->"432b3ea3-decf-43bc-ad99-7a60ec8ca3f3"] }, Open ]], Cell[168084, 3463, 522, 9, 32, "ItemNumbered",ExpressionUUID->"ef83172d-eb71-4472-9926-60ecdb2fc52b"], Cell[CellGroupData[{ Cell[168631, 3476, 1153, 25, 92, "DeployedNLInput",ExpressionUUID->"802e2a3c-3739-48de-9a8a-a89b2f24a020"], Cell[169787, 3503, 186, 3, 35, "DeployedWLInput",ExpressionUUID->"2b64d0d4-548c-4eb5-98f9-2c4c58c79cae"], Cell[169976, 3508, 199, 4, 30, "Output",ExpressionUUID->"82daec1b-5726-49a6-949f-9bf3f11e60a3"] }, Open ]], Cell[CellGroupData[{ Cell[170212, 3517, 649, 9, 32, "ItemNumbered",ExpressionUUID->"c3e26d25-0d14-4931-b09a-b79e3e86f0cc"], Cell[170864, 3528, 328, 10, 32, "Item",ExpressionUUID->"50d68eb2-b2f1-4231-bf7f-f9f2747242be"] }, Open ]], Cell[CellGroupData[{ Cell[171229, 3543, 926, 20, 92, "DeployedNLInput",ExpressionUUID->"ab0cfc36-096e-4d26-9257-9d9538bfa371"], Cell[172158, 3565, 183, 3, 35, "DeployedWLInput",ExpressionUUID->"2239c1fd-9d33-48a1-98a1-c2e7295b7537"], Cell[172344, 3570, 197, 4, 30, "Output",ExpressionUUID->"f8c11709-fb1f-4640-874f-ad13b20b6df3"] }, Open ]], Cell[172556, 3577, 177, 3, 32, "Item",ExpressionUUID->"04c11fe8-fd6d-483b-bc91-ac0211804301"], Cell[CellGroupData[{ Cell[172758, 3584, 930, 20, 92, "DeployedNLInput",ExpressionUUID->"ce3d264d-9048-43ac-bfc7-6b8fd53cf232"], Cell[173691, 3606, 186, 3, 35, "DeployedWLInput",ExpressionUUID->"820ea31c-3d6d-4871-8bd6-e5922bd858e4"], Cell[173880, 3611, 197, 4, 30, "Output",ExpressionUUID->"50634a04-2db0-4804-8ea5-d60e1ee15f64"] }, Open ]], Cell[174092, 3618, 576, 14, 58, "Text",ExpressionUUID->"f62f4375-2e78-49ea-ab98-c736ee3f8e3d"], Cell[CellGroupData[{ Cell[174693, 3636, 1669, 37, 138, "DeployedNLInput",ExpressionUUID->"58e793fd-e988-4d81-babc-d293e65d02ec"], Cell[176365, 3675, 719, 15, 45, "DeployedWLInput",ExpressionUUID->"36629466-8603-4098-9413-368a123eb7f4"], Cell[177087, 3692, 433, 10, 35, "Output",ExpressionUUID->"e1e096ae-b4d5-43d2-8426-eba8d9234948"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)