Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Plot in manipulate

• To: mathgroup at smc.vnet.net
• Subject: [mg132166] Plot in manipulate
• From: Jenhow <jenh0w at hotmail.com>
• Date: Wed, 8 Jan 2014 03:42:08 -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

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]

• Follow-Ups:
  • Re: Plot in manipulate
    • From: Bob Hanlon <hanlonr357@gmail.com>
  • Re: Plot in manipulate
    • From: Murray Eisenberg <murray@math.umass.edu>