第06章-主题动画典例简析

《第06章-主题动画典例简析》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Maple的图形动画技术——用Maple(6～9)制作数学动画课件第六章主题动画典例简析图6-1单位圆上的三角函数线图6-1单位圆上的三角函数线（连环画）restart:with(plots):r:=1:M:=11:x:=t->r*cos(t):y:=t->r*sin(t):u:=i*2*Pi/M+0.001:f:=u->r*cos(u):g:=u->r*sin(u):z:=t->t*tan(u):plot([[x(t),y(t),t=0..2*Pi],[v,z(v),v=-2..2]],scaling

2、=constrained,view=[-2..2,-2..2],color=[green,magenta]):;plot([[[0,0],[f(u),0]],[[f(u),0],[f(u),g(u)]],[[r,0],[r,r*tan(u)]],[[0,r],[r*cot(u),r]]],scaling=constrained,view=[-2..2,-2..2],color=[red,blue,black,navy],thickness=3):;Q1:=display(seq(plot([[x(t),

3、y(t),t=0..2*Pi],[v,z(v),v=-2..2]],view=[-2..2,-2..2],color=[blue,magenta]),i=0..M),insequence=true,scaling=constrained):Q2:=display(seq(plot([[[0,0],[f(u),0]],[[f(u),0],[f(u),g(u)]],[[r,0],[r,r*tan(u)]],[[0,r],[r*cot(u),r]]],view=[-2..2,-2..2],color=[red

4、,blue,black,khaki],thickness=3),i=0..M),insequence=true,scaling=constrained):display(Q1,Q2);下面的一段，是额外附加的语句段落。作用是把所完成的主题动画用最清晰的形式显示为分帧图形，以便送进本书稿做成图6.1所示的连环画（参见5.5命题31）。QQ:=display(Q1,Q2):1第１编第6章主题动画典例简析forifrom1toMdoPLOT(op(op(i,op(1,QQ))),AXESTICKS(0,0),

5、SCALING(CONSTRAINED))od;restart:with(plots):M:=6:r:=1:f:=u->r*cos(u):g:=u->r*sin(u):plot([f(u),g(u),u=0..2*Pi],color=green):P:=%:animate(plot,[[[[0,0],[f(u),0]],[[f(u),0],[f(u),g(u)]],[[r,0],[r,r*tan(u)]],[[0,r],[r*cot(u),r]]],color=[red,blue,black,gold]

6、,thickness=3],u=0.001..2*Pi,frames=M):QQ1:=%:animate(plot,[[t,t*tan(u),t=-2..2]],u=0.001..2*Pi,color=magenta,frames=M):QQ2:=%:display(QQ1,QQ2,P,scaling=constrained,view=[-2..2,-2..2]);图6-2正弦曲线的生成图6-2正弦曲线的生成（连环画）restart:with(plots):N:=12:M:=72:Q0:=plots[a

7、nimatecurve]([x+3/2,sin(x),x=0..2*Pi],frames=N+1,color=blue,thickness=2):;v:=2*Pi*i/N:u:=2*Pi*i/M:2Maple的图形动画技术——用Maple(6～9)制作数学动画课件Q1:=plot([cos(t),sin(t),t=0..2*Pi],scaling=constrained):;Q2:=display(seq(plot([[0,0],[cos(v),sin(v)],[cos(v),0],[cos(v),si

8、n(v)],[v+3/2,sin(v)],[v+3/2,0]],color=blue,thickness=1),i=0..N),scaling=constrained,insequence=true):;Q3:=plot([[3/2,-2],[3/2,2]],scaling=constrained,color=black,thickness=1):;F:=i->evalf([[u+3/2,0],[u+3/2,sin(u)]]):FF:=n-