Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"boxcenter", ",", "point"}], "}"}], ",", " ", RowBox[{ RowBox[{"boxcenter", "=", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"0.1", " ", RowBox[{"t", "^", "2"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", "0"}], "]"}], ",", RowBox[{"boxsize", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ";", " ", RowBox[{"point", "=", RowBox[{"boxcenter", ".", RowBox[{"RotationMatrix", "[", RowBox[{"-", "\[Theta]"}], "]"}]}]}], ";", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "LightGray", "]"}], ",", RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"tilt", "[", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"boxcenter", "-", "boxsize"}], ",", RowBox[{"boxcenter", "+", "boxsize"}]}], "]"}], ",", "\[Theta]"}], "]"}]}], "}"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"w", ",", RowBox[{"Tan", "[", "\[Theta]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "LightBlue", ",", RowBox[{"EdgeForm", "[", "Yellow", "]"}]}], "]"}], ",", " ", RowBox[{"tilt", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".4", ",", ".15"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".55", ",", "0"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{".57", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{".4", ",", ".17"}], "}"}]}], "]"}]}], "}"}], ",", "Bold", ",", " ", "12"}], "]"}]}], " ", "}"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"coordinate", " ", "axes"}], " ", "-", " ", RowBox[{ "parallel", " ", "and", " ", "perpendicular", " ", "to", " ", "incline"}]}], "*)"}], " ", "Thick", ",", "Purple", ",", RowBox[{"tilt", "[", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"boxcenter", ",", RowBox[{"boxcenter", "-", RowBox[{"2", "*", RowBox[{"{", RowBox[{".2", ",", "0"}], "}"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "}"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Net", " ", "force", " ", "arrow"}], " ", "-", " ", RowBox[{"parallel", " ", "to", " ", "incline"}]}], "*)"}], RowBox[{"tilt", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(F\), \(net\)]\) = \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< sin(\[Theta]\!\(\*SubscriptBox[\()\), \(\\\ \ \)]\)\>\""}], "}"}], "]"}], ",", "boxcenter", ",", RowBox[{"{", RowBox[{"1.4", ",", RowBox[{"-", "1.2"}]}], "}"}]}], "]"}], ",", "12", ",", "Bold"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".11", ",", ".61", ",", ".79"}], "]"}], ",", RowBox[{"tilt", "[", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"boxcenter", ",", RowBox[{"boxcenter", "+", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], "}"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"(*", RowBox[{"normal", " ", "force", " ", "arrow"}], "*)"}], RowBox[{"Rotate", "[", RowBox[{ RowBox[{"tilt", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ "\"\<\\\"normal\\\" force\>\"", ",", "boxcenter", ",", RowBox[{"{", RowBox[{"1.2", ",", RowBox[{"-", "1.4"}]}], "}"}]}], "]"}], ",", "12", ",", "Bold"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{ RowBox[{"-", "90"}], " ", "Degree"}], ",", "point"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".7", ",", "0", ",", "0"}], "]"}], ",", " ", RowBox[{"tilt", "[", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"boxcenter", ",", RowBox[{"boxcenter", "-", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], "}"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"(*", RowBox[{ "component", " ", "of", " ", "gravitational", " ", "force", " ", "perpendicular", " ", "to", " ", "incline"}], "*)"}], RowBox[{"Rotate", "[", RowBox[{ RowBox[{"tilt", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"Text", "@", "\"\< cos(\[Theta])\>\""}]}], "}"}], "]"}], ",", "boxcenter", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "]"}], ",", "12", ",", "Bold"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{ RowBox[{"-", "90"}], " ", "Degree"}], ",", "point"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".7", ",", "0", ",", "0"}], "]"}], ",", " ", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"point", ",", RowBox[{"point", "-", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}]}]}]}], "}"}], "]"}], ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"tilt", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(F\), \(grav\)]\)\>\"", ",", "\"\<=\>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], "]"}], ",", "boxcenter", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.7"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "]"}], ",", "12", ",", "Bold"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], "-", "\[Theta]"}], ",", "point"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"gravitational", " ", "force", " ", "arrow"}], " ", "-", " ", RowBox[{"pointing", " ", "down"}]}], "*)"}], " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"boxcenter", "-", RowBox[{"(", RowBox[{"2", "*", RowBox[{"{", RowBox[{".2", ",", "0"}], "}"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ")"}]}], ")"}], ".", RowBox[{"RotationMatrix", "[", RowBox[{"-", "\[Theta]"}], "]"}]}], ",", RowBox[{"point", "-", RowBox[{"(", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}]}], ")"}]}]}], "}"}], "]"}], ",", "Black", ",", "Dashed"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"point", "-", RowBox[{"(", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}]}], ")"}]}], ",", ".07", ",", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "2"}], ")"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "2"}], ")"}], "+", "\[Theta]"}]}], "}"}]}], "]"}], ",", "Black"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\[Theta]\>\"", ",", RowBox[{"point", "-", RowBox[{"(", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}]}], ")"}], "+", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".05"}], RowBox[{"Sin", "[", RowBox[{"\[Theta]", "/", "2"}], "]"}]}], ",", RowBox[{".05", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "/", "2"}], "]"}]}]}], "}"}]}]}], "]"}], ",", "Bold", ",", "Black", ",", " ", "12", ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{"point", ",", ".07", ",", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], ")"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], ")"}], "+", "\[Theta]"}]}], "}"}]}], "]"}], ",", "Black"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", ".15", ",", RowBox[{"{", RowBox[{"0", ",", "\[Theta]"}], "}"}]}], "]"}], ",", "Black"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\[Theta]\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{".12", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "/", "2"}], "]"}]}], ",", RowBox[{".12", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "/", "2"}], "]"}]}]}], "}"}]}], "]"}], ",", "Black", ",", "Bold", ",", "\"\\"", ",", "14"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"boxcenter", "-", RowBox[{"(", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}], ")"}], ".", RowBox[{"RotationMatrix", "[", RowBox[{"-", "\[Theta]"}], "]"}]}], ",", RowBox[{"point", "-", RowBox[{"(", RowBox[{"2", "*", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}]}], ")"}]}]}], "}"}], "]"}], ",", "Black", ",", "Dashed"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\[Theta]\>\"", ",", RowBox[{ RowBox[{"(", RowBox[{"boxcenter", "+", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".05"}], RowBox[{"Sin", "[", RowBox[{"\[Theta]", "/", "2"}], "]"}]}], ",", RowBox[{ RowBox[{"-", ".05"}], RowBox[{"Cos", "[", RowBox[{"\[Theta]", "/", "2"}], "]"}]}]}], "}"}]}], ")"}], ".", RowBox[{"RotationMatrix", "[", RowBox[{"-", "\[Theta]"}], "]"}]}]}], "]"}], ",", "Bold", ",", "Black", ",", " ", "12", ",", " ", "\"\\""}], "]"}]}], " ", "}"}], ",", " ", RowBox[{"PlotLabel", "->", RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\[Theta]", ",", "\"\<;\>\"", ",", "\"\< acceleration = \>\"", ",", RowBox[{"Text", "@", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], ",", RowBox[{"Text", "@", "\"\< sin(\[Theta]) = \>\""}], ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"9.81", "*", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", ".001"}], "]"}], ",", "\"\< m/\>\"", ",", RowBox[{"Superscript", "[", RowBox[{"\"\\"", ",", "2"}], "]"}]}], "}"}], "]"}], ",", "Black", ",", "\"\\"", ",", "12"}], "]"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".25"}], ",", "1.05"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".15"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"450", ",", "450"}], "}"}]}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"30", " ", "Degree"}], ",", "\"\\""}], "}"}], ",", RowBox[{"12", " ", "Degree"}], ",", RowBox[{"85", " ", "Degree"}], ",", RowBox[{"1", " ", "Degree"}], ",", RowBox[{"ControlPlacement", "->", "Left"}], ",", RowBox[{"ControlType", "->", "VerticalSlider"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"3.2", "*", SqrtBox[ FractionBox["1", RowBox[{" ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]]]}], ",", ".01", ",", "Trigger", ",", RowBox[{"AnimationRate", "->", "1"}], ",", RowBox[{"Appearance", "->", "\"\\""}], ",", RowBox[{"ControlPlacement", "->", "Left"}]}], "}"}], ",", " ", RowBox[{ "Initialization", ":>", " ", RowBox[{"(", RowBox[{ RowBox[{"w", "=", "1"}], ";", " ", RowBox[{"boxsize", "=", RowBox[{"{", RowBox[{".05", ",", ".05"}], "}"}]}], ";", " ", RowBox[{ RowBox[{"tilt", "[", RowBox[{"a_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"Rotate", "[", RowBox[{"a", ",", "\[Theta]", ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ";"}], " ", ")"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, 3.424690961484375*^9, {3.424691086265625*^9, 3.42469112771875*^9}, {3.4246924704617414`*^9, 3.4246925535680513`*^9}, {3.424695220099678*^9, 3.4246952264913173`*^9}, {3.424695308474515*^9, 3.4246953091835856`*^9}, {3.424710269847472*^9, 3.424710346887175*^9}, {3.4247103885693426`*^9, 3.4247103919736834`*^9}, {3.424714808742736*^9, 3.424714902194665*^9}, {3.4247794472236423`*^9, 3.424779448174737*^9}, {3.4247855350283613`*^9, 3.424785860691925*^9}, {3.4247958533784285`*^9, 3.424795874705462*^9}, 3.4248055256361275`*^9, 3.760730963260247*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0, $CellContext`\[Theta]$$ = 30 Degree, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Theta]$$], 30 Degree, "slope \[Theta]"}, 12 Degree, 85 Degree, Degree}, {{ Hold[$CellContext`t$$], 0, "release\nblock"}, 0, Dynamic[3.2 (1/Sin[$CellContext`\[Theta]$$])^Rational[1, 2]], 0.01}}, Typeset`size$$ = {450., {223., 227.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`\[Theta]$358956$$ = 0, $CellContext`t$358957$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0, $CellContext`\[Theta]$$ = 30 Degree}, "ControllerVariables" :> { Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$358956$$, 0], Hold[$CellContext`t$$, $CellContext`t$358957$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Module[{$CellContext`boxcenter$, $CellContext`point$}, \ $CellContext`boxcenter$ = { Max[ 1 - (0.1 $CellContext`t$$^2) Sin[$CellContext`\[Theta]$$], 0], Part[$CellContext`boxsize, 2]}; $CellContext`point$ = Dot[$CellContext`boxcenter$, RotationMatrix[-$CellContext`\[Theta]$$]]; Graphics[{{ FaceForm[LightGray], EdgeForm[Black], $CellContext`tilt[ Rectangle[$CellContext`boxcenter$ - \ $CellContext`boxsize, $CellContext`boxcenter$ + \ $CellContext`boxsize], $CellContext`\[Theta]$$]}, Style[ Polygon[{{$CellContext`w, Tan[$CellContext`\[Theta]$$]}, {$CellContext`w, 0}, {0, 0}}], LightBlue, EdgeForm[Yellow]], $CellContext`tilt[{ Arrow[{{0.4, 0}, {0.4, 0.15}}], Arrow[{{0.4, 0}, {0.55, 0}}], Style[{ Text[ Style["x", Italic], {0.57, 0}], Text[ Style["y", Italic], {0.4, 0.17}]}, Bold, 12]}, $CellContext`\[Theta]$$], Thick, Purple, $CellContext`tilt[ Arrow[{$CellContext`boxcenter$, $CellContext`boxcenter$ - \ (2 {0.2, 0}) Sin[$CellContext`\[Theta]$$]}], $CellContext`\[Theta]$$], $CellContext`tilt[ Style[ Text[ Row[{"\!\(\*SubscriptBox[\(F\), \(net\)]\) = ", Style["m", Italic], " ", Style["g", Italic], " sin(\[Theta]\!\(\*SubscriptBox[\()\), \( \)]\)"}], \ $CellContext`boxcenter$, {1.4, -1.2}], 12, Bold], $CellContext`\[Theta]$$], RGBColor[0.11, 0.61, 0.79], $CellContext`tilt[ Arrow[{$CellContext`boxcenter$, $CellContext`boxcenter$ + \ (2 {0, 0.2}) Cos[$CellContext`\[Theta]$$]}], $CellContext`\[Theta]$$], Rotate[ $CellContext`tilt[ Style[ Text[ "\"normal\" force", $CellContext`boxcenter$, { 1.2, -1.4}], 12, Bold], $CellContext`\[Theta]$$], (-90) Degree, $CellContext`point$], RGBColor[0.7, 0, 0], $CellContext`tilt[ Arrow[{$CellContext`boxcenter$, $CellContext`boxcenter$ - \ (2 {0, 0.2}) Cos[$CellContext`\[Theta]$$]}], $CellContext`\[Theta]$$], Rotate[ $CellContext`tilt[ Style[ Text[ Row[{ Style["m", Italic], " ", Style["g", Italic], Text[ " cos(\[Theta])"]}], $CellContext`boxcenter$, {-1.8, \ -1.4}], 12, Bold], $CellContext`\[Theta]$$], (-90) Degree, $CellContext`point$], RGBColor[0.7, 0, 0], Arrow[{$CellContext`point$, $CellContext`point$ - 2 {0, 0.2}}], Rotate[ $CellContext`tilt[ Style[ Text[ Row[{"\!\(\*SubscriptBox[\(F\), \(grav\)]\)", "=", Style["m", Italic], Style[ "g", Italic]}], $CellContext`boxcenter$, {-2.7, \ -1.4}], 12, Bold], $CellContext`\[Theta]$$], (-Pi)/ 2 - $CellContext`\[Theta]$$, $CellContext`point$], Style[ Line[{ Dot[$CellContext`boxcenter$ - (2 {0.2, 0}) Sin[$CellContext`\[Theta]$$], RotationMatrix[-$CellContext`\[Theta]$$]], \ $CellContext`point$ - 2 {0, 0.2}}], Black, Dashed], Style[ Circle[$CellContext`point$ - 2 {0, 0.2}, 0.07, { Pi/2, Pi/2 + $CellContext`\[Theta]$$}], Black], Style[ Text[ "\[Theta]", $CellContext`point$ - 2 {0, 0.2} + {(-0.05) Sin[$CellContext`\[Theta]$$/2], 0.05 Cos[$CellContext`\[Theta]$$/2]}], Bold, Black, 12, "Label"], Style[ Circle[$CellContext`point$, 0.07, { 3 (Pi/2), 3 (Pi/2) + $CellContext`\[Theta]$$}], Black], Style[ Circle[{0, 0}, 0.15, {0, $CellContext`\[Theta]$$}], Black], Style[ Text[ "\[Theta]", { 0.12 Cos[$CellContext`\[Theta]$$/2], 0.12 Sin[$CellContext`\[Theta]$$/2]}], Black, Bold, "Label", 14], Style[ Line[{ Dot[$CellContext`boxcenter$ - (2 {0, 0.2}) Cos[$CellContext`\[Theta]$$], RotationMatrix[-$CellContext`\[Theta]$$]], \ $CellContext`point$ - 2 {0, 0.2}}], Black, Dashed], Style[ Text["\[Theta]", Dot[$CellContext`boxcenter$ + {(-0.05) Sin[$CellContext`\[Theta]$$/2], (-0.05) Cos[$CellContext`\[Theta]$$/2]}, RotationMatrix[-$CellContext`\[Theta]$$]]], Bold, Black, 12, "Label"]}, PlotLabel -> Style[ Row[{"slope = \[Theta] = ", $CellContext`\[Theta]$$, ";", " acceleration = ", Text[ Style["g", Italic]], Text[" sin(\[Theta]) = "], Round[9.81 Sin[$CellContext`\[Theta]$$], 0.001], " m/", Superscript["s", 2]}], Black, "Label", 12], PlotRange -> {{-0.25, 1.05}, {-0.15, 1.1}}, ImageSize -> {450, 450}]], "Specifications" :> {{{$CellContext`\[Theta]$$, 30 Degree, "slope \[Theta]"}, 12 Degree, 85 Degree, Degree, ControlPlacement -> Left, ControlType -> VerticalSlider}, {{$CellContext`t$$, 0, "release\nblock"}, 0, Dynamic[3.2 (1/Sin[$CellContext`\[Theta]$$])^Rational[1, 2]], 0.01, ControlType -> Trigger, AnimationRate -> 1, Appearance -> "Labeled", ControlPlacement -> Left}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{599., {252., 258.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(($CellContext`w = 1; $CellContext`boxsize = {0.05, 0.05}; $CellContext`tilt[ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`\[Theta], Blank[]]] := Rotate[$CellContext`a, $CellContext`\[Theta], {0, 0}]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.7607309632605047`*^9}, CellID->298513772] }, {2}]]