Диск внутри сюжета в математике - PullRequest
Новая
       11

Диск внутри сюжета в математике

0 голосов
/ 11 марта 2012

У меня есть вопрос об использовании plot и диска вместе в одной манипуляционной функции в mathematica.

У меня есть этот кусок кода прямо сейчас: 

Plot[h[t], {t, 0, ttot}, PlotRange -> {0, 30}]
Manipulate[
 Plot[
  h0 + v0*t - 1/2*g*(t)^2, {t, 0, 10}, 
  PlotRange -> {{-1, 8}, {0, 11.5}}
  ], 
 {t, 0, ttot, 0.001}, {m, 0.001, 0.1, 0.001, ImageSize -> Tiny}, {v0, 
  0, 5, 0.01, ImageSize -> Tiny}, {h0, 0, 10, 0.01, ImageSize -> Tiny}
 ]

Что я хочу сделать, этоотобразить диск внутри графика, представляющий летающий объект (его положение на кривой, в соответствии с фактическим временем и высотой).Как мне это сделать?

1 Ответ

1 голос
/ 11 марта 2012

Вы должны показать определения используемых вами символов: h[t], v0, ttot и т. Д. Мое понимание того, что вы ищете: 

trajectory[p0_, v0_, a_, t_] = p0 + v0 t - 1/2 a t^2;

x0 = 3;
v0y = 1;
g = 9.81;
ttot = 3;

Manipulate[ParametricPlot[trajectory[{x0, h0}, {v0x, v0y}, {0, g}, t], {t, 0, ttot}, Epilog -> {Disk[trajectory[{x0, h0}, {v0x, v0y}, {0, g}, tcurrent], 0.5]}, PlotRange -> All], {v0x, 0, 5, 0.01}, {h0, 0, 10, 0.01}, {tcurrent, 0, ttot, 0.01}]

Example

...