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

下载本文档

43
0
约4.35万字
约 43页
2015-09-11 发布于北京
举报
版权申诉

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

1、本文档共43页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

第06章-Maple主题动画典例

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(