- 积分
- 16
- 注册时间
- 2009-9-12
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 maplelab 于 2009-11-23 16:35 编辑
在
http://forum.simwe.com/thread-907218-2-1.html
中,
Manipulate命令一直被认为是Mathematica非常棒的展示命令,smarten贴出的命令可谓
复杂,如下,简直就是个人秘技,代码就要淹没我们了:- Manipulate[
- solab = FindRoot[{x[0.015] == -0.0033764, x'[0.015] == -0.430055} /.
- sol2, {{a, a0}, {b, b0}}];
- Plot[x[t] /. sol2 /. solab // Evaluate, {t, 0, 10}, PlotRange -> All,
- PlotLabel -> {{a, b} /. solab}], {{a0, 1}, 0, 5}, {{b0, 1}, 0, 5},
- Initialization :> {sol1 =
- DSolve[x''[t] + 25/2 x'[t] + 256 x[t] == a Sin[b t], x, t];
- solc = Solve[{x[Pi/b + 15/1000] == 0, x'[Pi/b + 15/1000] == 0} /.
- sol1[[1]], {C[1], C[2]}]; sol2 = sol1[[1]] /. solc[[1]]}]
复制代码 但是在Maple中,做到相同的动态效果,却简单到了白菜的程度,人人可用,一看即会:
相形之下,是谁在解放人的大脑呢? |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
|