Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2014

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

Search the Archive

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]



  • Prev by Date: Re: What is the difference Between MakeBoxes and ToBoxes
  • Next by Date: Re: Plot in manipulate
  • Previous by thread: Re: What is the difference Between MakeBoxes and ToBoxes
  • Next by thread: Re: Plot in manipulate