Maple主题数学动画典例分析.doc

Maple主题数学动画典例分析 图12-01~02 圆柱面渐伸展开为平面* 图 1 圆柱面渐伸展开为平面 restart:with(plots): N:=24:M:=4:R:=N:w:=1:r:=5: a:=0:b:=2*Pi:c:=-r:d:=r: u:=i-2*Pi*i/N:v:=j-c+2*d*j/M: f:=(i,j)-r*cos(u(i)): g:=(i,j)--r*sin(u(i)): h:=(i,j)-(v(j)): F:=k-[MESH([seq([seq(evalf([f(i,j),g(i,j),h(i,j)]),j=0..M)],i=0..R-w*k)],COLOR(RG