找回密码
 注册
Simdroid-非首页
查看: 79|回复: 1

请大哥帮个忙。anime的问题

[复制链接]
发表于 2008-2-3 22:58:08 | 显示全部楼层 |阅读模式 来自 日本
我在Maple 11写了一个动坐标的程序。但是最后总出错。请各位大哥帮个忙。文件也上传了。谢谢!
c:=t->[cos(t),sin(t),t/6]:
ll:=plots[spacecurve](c(t), t = 0 .. 4*Pi, thickness = 1, numpoints = 100, color = COLOR(RGB, 0, 0, 1)):
plots[spacecurve](c(t), t = 0 .. 4*Pi, thickness = 1, numpoints = 100, color = COLOR(RGB, 0, 0, 1),axes = BOXED):
curve  
e11:=t->evalf(eval(diff(c(u),u)/sqrt(add(diff(c(u),u)*diff(c(u),u),i= 1..3)),u = t)):
d1:=u->diff(c(u),u):
d2:=u->diff(c(u),u$2):
cross22:=u->convert(LinearAlgebra[CrossProduct](Vector(d1(u)),Vector(d2(u))),list):
e33:=t->evalf(eval(cross22(u)/sqrt(add(cross22(u)*cross22(u),i=1..3)),u=t)):
e22:=t->convert(LinearAlgebra[CrossProduct](Vector(e33(t)),Vector(e11(t))),list):
ll1:=t->plots[display](plottools[arrow](c(t),c(t)+e11(t),0.03,0.08,0.1,cylindrical_arrow,color=COLOR(RGB,0,1,0))):
ll2:=t->plots[display](plottools[arrow](c(t),c(t)+e22(t),0.03,0.08,0.1,cylindrical_arrow,color=COLOR(RGB,0,0,1))):
NULL;
ll3:=t->plots[display](plottools[arrow](c(t),c(t)+e33(t),0.03,0.08,0.1,cylindrical_arrow,color=COLOR(RGB,1,0,0))):
point1:=t->plots[display](plottools[curve]([c(t)+e11(t),c(t)+e11(t)+e22(t),c(t)+e22(t)]),plottools[curve]([c(t)+e22(t),c(t)+e22(t)+e33(t),c(t)+e33(t)]),plottools[curve]([c(t)+e33(t),c(t)+e33(t)+e11(t),c(t)+e11(t)]),linestyle = dash,color=COLOR(RGB,1,0,0)):
dzb:=t->plots[pointplot3d](evalf(c(t)),symbol = Solidcircle,symbolsize = 30,color=COLOR(RGB,0,0,0)):
hsh:=t->plots[display]({ll,ll1(t),ll2(t),ll3(t),point1(t),dzb(t)}):
hsh(2*Pi);
plots[animate3d](hsh(t), [fw], fw = 0 .. 4*Pi);

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
发表于 2008-3-14 17:51:50 | 显示全部楼层 来自 上海徐汇区
Simdroid开发平台
看不清楚,系统返回的提示是参数值需要给出数值列表,而不是符号列表。
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-4-28 11:47 , Processed in 0.036326 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表