- 注册时间
- 2016-2-17
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 3014
- 在线时间
- 小时
|
楼主 |
发表于 2020-9-14 23:01:00
|
显示全部楼层
假设三者构成边长为1的正三角形,那么它们将在t=2/3时相遇:
- k = 1;t0 = 2/3;
- s = NDSolve[{
- (y1[t] - y2[t]) == (x1[t] - x2[t]) y1'[t]/x1'[t],
- (y2[t] - y3[t]) == (x2[t] - x3[t]) y2'[t]/x2'[t],
- (y3[t] - y1[t]) == (x3[t] - x1[t]) y3'[t]/x3'[t],
- x1'[t]^2 + y1'[t]^2 == k,
- x2'[t]^2 + y2'[t]^2 == k,
- x3'[t]^2 + y3'[t]^2 == k,
- x1[0] == 0, y1[0] == 0, x2[0] == 1, y2[0] == 0, x3[0] == 1/2, y3[0] == Sqrt[3]/2}, {x1, y1, x2, y2, x3, y3}, {t, 0, t0}];
- ParametricPlot[ Evaluate[{x1[t], y1[t], x2[t], y2[t], x3[t], y3[t]} /. s], {t, 0, t0}]
复制代码
每个点有8个分支,代表了三个平方和方程表示的八个方向(即A靠近或远离B等等),不知道有没有办法可以选定方向:
|
|