Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: A problem with Manipulate
Replies: 1   Last Post: Aug 31, 2012 4:06 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Sergio Miguel Terrazas Porras

Posts: 42
Registered: 6/16/05
A problem with Manipulate
Posted: Aug 26, 2012 2:51 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply


Hello guys, I am having a problem with a Manipulate I wrote, to ilustrate a physics problem.

If you aim at an object that is hanging a height H at a distance D. And at the instant you shoot, the object starts to fall, you will alwais hit it, regardless os the initial speed (provided the floor does not interfere).



However, if I make an evaluation, it works fine, but when I change the speed, it "remembers" the time of flight of the preceding speed.



I will appreciate any help, as I am frustrated at not beeig able to fix the problem.



Thanks





d;H=10;r01={0,0};\[Theta]=ArcTan[H/d];a=9.8*{0,-1};
r02={d,H};
chango
chango:=Manipulate[Module[{v0,r1,r2,linea,flecha,chango},
v0=vi*{Cos[\[Theta]],Sin[\[Theta]]};
r1[t_]=r01+v0*t+1/2 a*t^2;
r2[t_]=r02+1/2 a*t^2;

linea=Graphics[{Red,Dashing[{.01,.01}],Line[{r01,r02}]}];

flecha=Graphics[Arrow[{r01,r2[t]}]];

trayectoria1=ParametricPlot[r1[z],{z,0,t+.001}];

trayectoria2=ParametricPlot[r2[z],{z,0,t+.001},PlotStyle->{Dashing[.02],Brown}];

chango=Graphics[{Brown,PointSize[.03],Point[r2[t]]}];





(*Time of Flight*)
tf=Dynamic[H/(vi*Sin[\[Theta]])];





Show[flecha,chango,linea,trayectoria1,trayectoria2,PlotRange->All]
]
,{{vi,10,"Subscript[v, i]"},{10,15,20}},{{t,0},0,tf,Appearance->"Labeled"},TrackedSymbols->{vi,t,tf},SaveDefinitions->True]




Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.