用maple做球（需要动画过程）

xuyinkai

请教各位大虾：怎么用maple编个程序，能够完整显示球的生成过程
                    开始图形是一条直径和一条圆弧，弧绕着直径旋转得到球。
谢谢大家指教！！！

hunter_009

还不会用maple做动画.

xuyinkai

是一个用MAPLE的程序啊！！不算动画！

hunter_009

你程序中肯定要用到动画了.

无水1324

你去看一下，有一本书全部是讲maple做动画的

xuyinkai

程序中是要用到动画，呵呵！！
什么书啊？能介绍下吗？

无水1324

《Maple的图形动画技术》
作   者：张晓丹等
出版社：北京航空航天大学出版社

东方后

1. with(plots):  #本版本可在Maple 10 和Maple 11中运行
   
2. r[0]:=spacecurve([sin(t),0,cos(t),t=0..Pi]):
   
3. for i from 1 to 50 do
   
4. phi:=i*Pi/25:
   
5. r[i]:=plot3d(1,t=0..phi,s=0..Pi,coords=spherical):
   
6. od:
   
7. for j from 0 to 50 do
   
8. Q[j]:=spacecurve([0,0,t],t=-1.5..1.5):
   
9. od:
   
10. for k from 0 to 50 do
    
11. R[k]:=display(r[k],Q[k]):
    
12. od:
    
13. display([seq(R[i],i=0..50)],scaling=constrained,insequence=true,lightmodel=light3,axes=normal);

复制代码

[ 本帖最后由 suffer 于 2007-6-15 09:41 编辑 ]

suffer

原帖由 东方后 于 2007-6-14 20:59 发表

                               
登录/注册后可看大图

> with(plots):  #本版本可在Maple 10 和Maple 11中运行
> r[0]:=spacecurve([sin(t),0,cos(t),t=0..Pi]):
> for i from 1 to 50 do
> phi:=i*Pi/25:
> r:=plot3d(1,t=0..phi,s=0..Pi,coords=spherical):
...

Error, (in display) first argument must be a plot structure or list, set or array of plot structures
Error, (in display) first argument must be a plot structure or list, set or array of plot structures

suffer

仔细检查了一下，原来搂主的代码被论坛解析掉了，现在已经修正

建议大家以后发代码的时候用code引用

1. with(plots):  #本版本可在Maple 10 和Maple 11中运行
   
2. r[0]:=spacecurve([sin(t),0,cos(t),t=0..Pi]):
   
3. for i from 1 to 50 do
   
4. phi:=i*Pi/25:
   
5. r[i]:=plot3d(1,t=0..phi,s=0..Pi,coords=spherical):
   
6. od:
   
7. for j from 0 to 50 do
   
8. Q[j]:=spacecurve([0,0,t],t=-1.5..1.5):
   
9. od:
   
10. for k from 0 to 50 do
    
11. R[k]:=display(r[k],Q[k]):
    
12. od:
    
13. display([seq(R[i],i=0..50)],scaling=constrained,insequence=true,lightmodel=light3,axes=normal);

复制代码