Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", ".005", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "Black", ",", RowBox[{"Thickness", "[", RowBox[{".0025", RowBox[{"(", "m", ")"}], RowBox[{"(", "a", ")"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", RowBox[{".014", RowBox[{"(", "m", ")"}], RowBox[{"(", "a", ")"}]}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "m"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"\"\< = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"(", "m", ")"}], RowBox[{"(", "a", ")"}]}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.25"}], ",", RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"Thickness", "[", RowBox[{".0025", RowBox[{"(", "a", ")"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", RowBox[{".014", RowBox[{"(", "a", ")"}]}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "m"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"ToString", "[", RowBox[{"(", "a", ")"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Green", ",", RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"h", "+", "2"}]}], "}"}]}], "]"}], ",", "Black", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"h", "+", "1"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "0", ",", RowBox[{"2", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}], ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"350", ",", "400"}], "}"}]}], ",", RowBox[{"Background", "->", "LightYellow"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "2", ",", "\"\\""}], "}"}], ",", "1", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "2", ",", "\"\\""}], "}"}], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, {3.404678785986012*^9, 3.4046790025524*^9}, { 3.4046790385202217`*^9, 3.404679155592289*^9}, { 3.404679229573613*^9, 3.404679305221628*^9}, {3.404679342863963*^9, 3.404679428239956*^9}, {3.4046794883406897`*^9, 3.404679547653697*^9}, {3.404679603794629*^9, 3.404679644395357*^9}, {3.40467968461861*^9, 3.404679801227612*^9}, {3.404679920432344*^9, 3.404679999443894*^9}, {3.4046805070522423`*^9, 3.4046805270711308`*^9}, {3.4046806132044153`*^9, 3.4046806466452017`*^9}, {3.404680688131323*^9, 3.404680690905958*^9}, 3.404680859997525*^9, { 3.4046809267933064`*^9, 3.404680962413231*^9}, { 3.4046810190188303`*^9, 3.404681059861104*^9}, { 3.4046812119848623`*^9, 3.404681212299243*^9}, { 3.404681702206169*^9, 3.404681703504931*^9}, 3.404681747527731*^9, 3.404681777610371*^9, {3.404682235592902*^9, 3.4046822448248377`*^9}, {3.404682302736137*^9, 3.404682333745718*^9}, {3.404682451333869*^9, 3.404682457152288*^9}, {3.404682976638386*^9, 3.4046829786948833`*^9}, {3.40468307511922*^9, 3.4046830771901503`*^9}, {3.4046831254834423`*^9, 3.404683171228326*^9}, {3.404683242898553*^9, 3.404683253798374*^9}, {3.404683306818151*^9, 3.4046833517543287`*^9}, {3.404683574729679*^9, 3.404683597918333*^9}, {3.4046836449190397`*^9, 3.404683663950832*^9}, 3.404683739627316*^9, {3.404684028390559*^9, 3.404684033250874*^9}, {3.404684082081543*^9, 3.4046840823643913`*^9}, {3.404684174780328*^9, 3.404684203261478*^9}, {3.404684553859879*^9, 3.404684559026095*^9}, {3.404684784528615*^9, 3.4046848649934196`*^9}, {3.40468495866754*^9, 3.40468501654005*^9}, {3.404685048906042*^9, 3.404685111801408*^9}, {3.4046852580823793`*^9, 3.404685261056628*^9}, {3.4046854128673897`*^9, 3.4046854154946003`*^9}, {3.404685676288989*^9, 3.404685697423731*^9}, {3.404685751468318*^9, 3.404685753732087*^9}, 3.404685789569277*^9, { 3.4046858241918993`*^9, 3.4046858741188087`*^9}, { 3.4046859129795437`*^9, 3.4046859253907013`*^9}, 3.4046859816441803`*^9, {3.404724930745565*^9, 3.404724939666203*^9}, {3.4047249976812687`*^9, 3.404725013593707*^9}, {3.404725446837584*^9, 3.404725606383461*^9}, {3.4064145015176363`*^9, 3.406414506633717*^9}, {3.406414565916389*^9, 3.406414573264421*^9}, {3.406414611531567*^9, 3.406414644518836*^9}, {3.406415090471068*^9, 3.40641509218228*^9}, {3.4065637842409754`*^9, 3.4065638422097254`*^9}, {3.736624265210294*^9, 3.736624278270339*^9}, {3.736624354715294*^9, 3.736624373119766*^9}, {3.736624465795649*^9, 3.736624497105747*^9}, 3.760759922944579*^9}, CellLabel->"In[11]:="], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 2, $CellContext`m$$ = 2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`m$$], 2, "increase mass"}, 1, 5, 1}, {{ Hold[$CellContext`a$$], 2, "increase acceleration"}, 1, 5, 1}}, Typeset`size$$ = {350., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`m$157748$$ = 0, $CellContext`a$157749$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 2, $CellContext`m$$ = 2}, "ControllerVariables" :> { Hold[$CellContext`m$$, $CellContext`m$157748$$, 0], Hold[$CellContext`a$$, $CellContext`a$157749$$, 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" :> Graphics[{Blue, Thickness[0.005], Line[{{-2, 0}, {4, 0}}], Black, Thickness[(0.0025 $CellContext`m$$) $CellContext`a$$], Arrowheads[(0.014 $CellContext`m$$) $CellContext`a$$], Arrow[{{-2.5, $CellContext`m$$}, {-0.5, $CellContext`m$$}}], Text[ Row[{ Style["F", Italic], StringJoin[" = ", ToString[$CellContext`m$$ $CellContext`a$$]]}], {-1.25, \ $CellContext`m$$ + 1}], Thickness[0.0025 $CellContext`a$$], Arrowheads[0.014 $CellContext`a$$], Arrow[{{2.5, $CellContext`m$$}, {4.5, $CellContext`m$$}}], Text[ Row[{ Style["a", Italic], " = ", ToString[$CellContext`a$$]}], {3, $CellContext`m$$ + 1}], Table[{Green, EdgeForm[Black], Rectangle[{0, $CellContext`h}, {2, $CellContext`h + 2}], Black, Text[ Style["m", Italic], { 1, $CellContext`h + 1}]}, {$CellContext`h, 0, 2 ($CellContext`m$$ - 1), 2}]}, ImageSize -> {350, 400}, Background -> LightYellow], "Specifications" :> {{{$CellContext`m$$, 2, "increase mass"}, 1, 5, 1}, {{$CellContext`a$$, 2, "increase acceleration"}, 1, 5, 1}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{395., {257., 263.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.760759922944851*^9}, CellID->1975813750] }, {2}]]