Catapult Lab, Derivation of Initial Velocity

Catapult Lab, Derivation of Initial Velocity - (*...

Info iconThis preview shows pages 1–4. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) ( (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) ( (* CreatedBy='Mathematica 7.0' *) ( (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 15068, 489] NotebookOptionsPosition[ 14506, 468] NotebookOutlinePosition[ 14914, 485] CellTagsIndexPosition[ 14871, 482] WindowFrame->Normal*) W (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{ StyleBox["The", FontSize->18], StyleBox[" ", FontSize->18], StyleBox["Derivation", FontSize->18], StyleBox[" ", FontSize->18], StyleBox["of", FontSize->18], StyleBox[" ", FontSize->18], StyleBox[ OverscriptBox[ StyleBox[ SubscriptBox["V", "0"], FontWeight->"Plain"], "\[RightArrow]"], FontSize->16]}], FontFamily->"Courier New"]], "Input", CellChangeTimes->{{3.499362207799588*^9, 3.4993622115273576`*^9}, 3.4993627767375407`*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "1", ")"}], "\[CapitalDelta]x"}], "=", RowBox[{ OverscriptBox[ StyleBox[ SubscriptBox["V", "0"], FontWeight->"Plain"], "\[RightArrow]"], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], "t"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{"(", "2", ")"}], "\[CapitalDelta]y"}], "=", RowBox[{ RowBox[{ OverscriptBox[ StyleBox[ SubscriptBox["V", "0"], FontWeight->"Plain"], "\[RightArrow]"], RowBox[{"Sin", "[", "\[Theta]", "]"}], "t"}], " ", "-", RowBox[{ FractionBox[ StyleBox[ OverscriptBox["g", StyleBox["\[RightArrow]", FontWeight->"Bold"]], FontWeight->"Plain"], "2"], SuperscriptBox["t", "2"]}]}]}]}]}]], "Input", CellChangeTimes->{{3.4993610364145365`*^9, 3.4993610992358465`*^9}, { 3.499361141449521*^9, 3.499361156285147*^9}, {3.4993617325621595`*^9, 3.499361738084569*^9}, {3.499361827472726*^9, 3.4993618306863317`*^9}, { 3.499362197738742*^9, 3.499362203759224*^9}, 3.4993627525608616`*^9, { 3.4993628051140337`*^9, 3.4993628081725574`*^9}, 3.4993629708382215`*^9, 3.499363059885626*^9, 3.499363492862268*^9, 3.499365017105342*^9}], Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["Solve", "Text", FontSize->14], StyleBox[" ", "Text", FontSize->14], StyleBox[ RowBox[{"Eq", ".", RowBox[{"(", "1", ")"}]}], "Text", FontSize->14], StyleBox[" ", "Text", FontSize->14], StyleBox["for", "Text", FontSize->14], StyleBox[" ", "Text", FontSize->14], RowBox[{ StyleBox["t", "Text", FontSize->14], StyleBox[":", "Text", FontSize->14], "\[IndentingNewLine]", "\[IndentingNewLine]", "t"}]}], "=", FractionBox["\[CapitalDelta]x", RowBox[{ OverscriptBox[ StyleBox[ SubscriptBox["V", "0"], FontWeight->"Plain"], "\[RightArrow]"], RowBox[{"Cos", "[", "\[Theta]", "]"}]}]]}]], "Input", CellChangeTimes->{{3.499361160107154*^9, 3.4993614160376034`*^9}, { 3.4993614842721233`*^9, 3.499361501073353*^9}, {3.499361540697422*^9, 3.499361645545206*^9}, {3.499361682720072*^9, 3.499361771406227*^9}, { 3.499361822480717*^9, 3.499362021654875*^9}, {3.4993620846471267`*^9, 3.4993621834470973`*^9}, {3.4993622477623463`*^9, 3.4993622501988525`*^9}, 3.4993628116979227`*^9, 3.499363064304016*^9, 3.4993650206053467`*^9,
Background image of page 2
3.499365158113698*^9}],
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 4
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 9

Catapult Lab, Derivation of Initial Velocity - (*...

This preview shows document pages 1 - 4. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online