Plot mathematica中的磁盘内部绘图
我有一个关于在mathematica的一个操纵函数中同时使用绘图和磁盘的问题 我现在有一段代码:Plot mathematica中的磁盘内部绘图,plot,wolfram-mathematica,disk,Plot,Wolfram Mathematica,Disk,我有一个关于在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, Im
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}
]
我想做的是在图中显示一个圆盘,代表一个飞行物体(根据实际时间和高度,它的位置在曲线上)。如何操作?您应该显示所用符号的定义:
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}]
谢谢,定义如下:g=9.81;h0=0;v0=5;m=10;欢迎使用StackExchange网络!你可能对问Mathematica相关的问题感兴趣,Mathematica的大部分活动都是在这些问题上进行的。