Re: Plot in manipulate

*To*: mathgroup at smc.vnet.net*Subject*: [mg132167] Re: Plot in manipulate*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Thu, 9 Jan 2014 01:49:50 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net*References*: <20140108084208.473A06A08@smc.vnet.net>

I don't understand what your question really is,. since you already have a plot within the Manipulate with the Mass, Gravity, Initial Velocity, and Height as control parameters. What exactly do you want to do differently from that? Are you asking how to use the Mathematica Plot function (or perhaps ListLinePlot, if you insist on discrete values of time) instead of your Graphics construct? If so, then you would add the Disk within an Epilog option within that Plot or ListLinePlot. On Jan 8, 2014, at 3:42 AM, Jenhow <jenh0w at hotmail.com> wrote: > How do I add a plot that would be manipulated by the variables in the following code? > > > Manipulate[ > TT = (initialvelocity + Sqrt[initialvelocity^2 + 2 gravity height])/ > gravity; > Potential = > gravity*(-.5 gravity time^2 + initialvelocity time + height)*mass; > Kinetic = (.5 mass (((-gravity)*time) + initialvelocity)^2); > If[time > TT, time = TT]; > > Graphics > [{ > Blue, Line[ > Table[{tt, -.5 gravity tt^2 + initialvelocity tt + height}, {tt, > 0, TT, .01}]], > RGBColor[.49, 0, 0], > Disk[{time, -.5 gravity time^2 + initialvelocity time + height}, > 5 mass], RGBColor[.25, .43, .82], > }], > > {{time, .0, "Time"}, 0.000, > Round[Dynamic[ (initialvelocity + Sqrt[ > initialvelocity^2 + 2 gravity height])/gravity ], 10.^-3], .01, > Appearance -> "Labeled", ControlPlacement -> Top}, > {{mass, .07, "Mass"}, .001, .1, .001, ImageSize -> Tiny, > Appearance -> "Labeled"}, > {{gravity, 9.8, "Gravity"}, 1, 20, .01, ImageSize -> Tiny, > Appearance -> "Labeled"}, > {{initialvelocity, 5., "Initial Velocity"}, 0, 5, .01, > ImageSize -> Tiny, Appearance -> "Labeled"}, > {{height, 5., "Height"}, 0, 10, .01, ImageSize -> Tiny, > Appearance -> "Labeled"}, > ControlPlacement -> Left, TrackedSymbols -> True] > Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 240 246-7240 (H) University of Massachusetts 710 North Pleasant Street Amherst, MA 01003-9305

**References**:**Plot in manipulate***From:*Jenhow <jenh0w@hotmail.com>