第06章-Maple主题动画典例.pdf

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=constr ained,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*ta n(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),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,blue,black,khaki],thickness=3),i=0..M),inseque nce=true,scaling=constrained): display(Q1,Q2); 下面的一段，是额外附加的语句段落。作用是把所完成的主题动画用最清晰的 形式显示为分帧图形，以便送进本书稿做成图6.1 所示的连环画（参见5.5 命题31 ）。 QQ:=display(Q1,Q2): for i from 1 to M do 1 第１编第6章主题动画典例简析 PLOT(op(op(i,op(1,QQ))),AXESTICKS(0,0),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,g old],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=mage nta,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[animatecurve]([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: 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(