Mathematica探究:同一速度不同方向抛出小球 能够到达的范围是怎样的

首先列出运动方程,并求解得到关于角度的曲线族的方程

f[x_, y_, a_] = Eliminate[{
    x == v Cos[a] t,
    y == v Sin[a] t + 1/2*g*t^2}, t] /. Equal -> Subtract

f ( x , y , a ) = 2 v 2 x sin ⁡ ( a ) cos ⁡ ( a ) − 2 v 2 y cos ⁡ 2 ( a ) + g x 2 f(x,y,a)=2 v^2 x \sin (a) \cos (a)-2 v^2 y \cos ^2(a)+g x^2 f(x,y,a)=2v2xsin(a)cos(a)2v2ycos2(a)+gx2

然后求解得到包络线的方程

sol = Solve[{f[x, y, a] == 0, D[f[x, y, a], a] == 0}, {x, y}]

{ { x → 0 , y → 0 } , { x → − v 2 cot ⁡ ( a ) ( sin ⁡ 2 ( a ) + cos ⁡ 2 ( a ) ) g , y → − v 2 csc ⁡ 2 ( a ) ( sin ⁡ 4 ( a ) − cos ⁡ 4 ( a ) ) 2 g } } \left\{\{x\to 0,y\to 0\},\left\{x\to -\frac{v^2 \cot (a) \left(\sin ^2(a)+\cos ^2(a)\right)}{g},y\to -\frac{v^2 \csc ^2(a) \left(\sin ^4(a)-\cos ^4(a)\right)}{2 g}\right\}\right\} {{x0,y0},{xgv2cot(a)(sin2(a)+cos2(a)),y2gv2csc2(a)(sin4(a)cos4(a))}}

显然我们对第二组解更感兴趣,试图消掉其中的参数a,然后求解y

Equal @@@ Last@sol // Eliminate[#, a] & // Solve[#, y] &

{ { y → g 2 x 2 − v 4 2 g v 2 } } \left\{\left\{y\to \frac{g^2 x^2-v^4}{2 g v^2}\right\}\right\} {{y2gv2g2x2v4}}

二维解决,至于三维,注意上面的 x 2 x^2 x2

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值