注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

徐小湛的博客

高等数学课件、函数图形动画、数学软件应用

 
 
 

日志

 
 

用Maple画空间曲线(一般方程)  

2011-08-22 09:58:41|  分类: Maple作图 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 输入以下命令:

 

with(plots):a:=1.2:b:=1:

qumian1:=plot3d([a*cos(t), b*sin(t),z], z=0..2, t=0..2*Pi, color=yellow):

qumian2:=plot3d([u*cos(t), u*sin(t), 2-u^2], u=-2..2, t=0..2*Pi, color=green):

display(qumian1, qumian2, scaling=constrained,orientation=[40,60], axes=frame);

 

输出图形:

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

输入以下命令:

 

a:=1.2:b:=1:

qumian1:=plot3d([a*cos(t), b*sin(t),z], z=0..2, t=0..2*Pi, color=yellow):

qumian2:=plot3d([u*cos(t), u*sin(t), 2-u^2], u=-2..2, t=0..2*Pi, color=green):

x:=t->a*cos(t): y:=t->b*sin(t): z:=(x,y)->2-x^2-y^2:

quxian:=spacecurve([x(t), y(t), z(x(t), y(t))], t=0..2*Pi,thickness=4, color=red):

display(qumian1, qumian2, quxian, scaling=constrained,orientation=[40,60], axes=frame);

 

输出图形:

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

 

 

 
用Maple画空间曲线(一般方程) - calculus - 高等数学

 

with(plots):R:=1:

qumian1:=plot3d([u*cos(t)/sqrt(2),u*sin(t)/sqrt(3),u^2],u=0..2,t=0..2*Pi,color=yellow):

qumian2:=plot3d([u*cos(t)/sqrt(2),u*sin(t),4-u^2],u=0..2,t=0..2*Pi,color=green):

quxian:=spacecurve([cos(t),sin(t),2+sin(t)*sin(t)],t=0..2*Pi,color=red,thickness=8):

x_axis:=plot3d([u,0,0],u=-1..1,v=0..0.01,thickness=3):

y_axis:=plot3d([0,u,0],u=-1..1,v=0..0.01,thickness=3):

z_axis:=plot3d([0,0,u],u=-.2..4.4,v=0..0.01,thickness=3):

xyz:=display(x_axis,y_axis,z_axis,thickness=3):

display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[40,60]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

 

with(plots):a:=1: u:=(x,y)->2*x^2+3*y^2: v:=(x,y)->4-2*x^2-y^2:

qumian1:=plot3d(u(x,y),x=-a..a,y=-sqrt(a^2-x^2)..sqrt(a^2-x^2),color=yellow):

qumian2:=plot3d(v(x,y),x=-a..a,y=-sqrt(a^2-x^2)..sqrt(a^2-x^2),color=green):

quxian:=spacecurve([cos(t),sin(t),u(cos(t),sin(t))],t=0..2*Pi,color=red,thickness=8):

x_axis:=plot3d([u,0,0],u=-1..1,v=0..0.01,thickness=3):

y_axis:=plot3d([0,u,0],u=-1..1,v=0..0.01,thickness=3):

z_axis:=plot3d([0,0,u],u=-.2..4.4,v=0..0.01,thickness=3):

xyz:=display(x_axis,y_axis,z_axis,thickness=3):

display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[40,60]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学
 
 
 
用Maple画空间曲线(一般方程) - calculus - 高等数学

 

with(plots): R:=1:

zhumian1:=plot3d([R*sin(u)*cos(v), R*sin(u)*sin(v), R*cos(u)], u=0..Pi, v=0..2*Pi, color=yellow):

zhumian2:=plot3d([(R/2)*(1+cos(t)), (R/2)*sin(t), z], z=-1.1..1.1, t=0..2*Pi, color=green):

z:=(x,y)->sqrt(R^2-x^2-y^2): x:=t->(R/2)*(1+cos(t)): y:=t->(R/2)*sin(t):

quxian1:=spacecurve([(R/2)*(1+cos(t)), (R/2)*sin(t), z(x(t),y(t))], t=0..2*Pi, thickness=5,color=red):

quxian2:=spacecurve([(R/2)*(1+cos(t)), (R/2)*sin(t), -z(x(t),y(t))], t=0..2*Pi,thickness=5,color=red):

display(zhumian1,zhumian2,quxian1,quxian2, scaling=constrained,orientation=[40,65],axes=frame);

 

 用Maple画空间曲线(一般方程) - calculus - 高等数学

 

with(plots):R:=1:

qiumian:=plot3d([R*sin(s)*cos(t),R*sin(s)*sin(t),R*cos(s)],s=0..Pi/2,t=0..2*Pi,color=yellow):

zhumian:=plot3d([R*(cos(t/2))^2,(R/2)*sin(t),z],t=0..2*Pi,z=0..1.1*R,color=green):

quxian:=spacecurve([R*(cos(t/2))^2,(R/2)*sin(t),R*sin(t/2)],t=0..2*Pi,color=red,thickness=4):

x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):

y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):

z_axis:=plot3d([0,0,u],u=-.3..1.3,v=0..0.01,thickness=3):

xyz:=display(x_axis,y_axis,z_axis,thickness=3):

display(qiumian,zhumian,quxian,xyz,scaling=constrained,orientation=[46,57]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学
 

with(plots):with(plottools):R:=1:

qiumian:=sphere([0,0,0],R,color=yellow):

zhumian:=cylinder([R/2,0,-R],R/2,2*R,color=green,capped=false):

quxian:=spacecurve([R*(cos(t/2))^2,(R/2)*sin(t),R*sin(t/2)],t=-2*Pi..2*Pi,color=red,thickness=4):

x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):

y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):

z_axis:=plot3d([0,0,u],u=-1.3..1.3,v=0..0.01,thickness=3):

xyz:=display(x_axis,y_axis,z_axis,thickness=3):

display(quxian,xyz,scaling=constrained,orientation=[40,75]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学
 
 
 
用Maple画空间曲线(一般方程) - calculus - 高等数学
 

输入以下命令:

 

with(plots): R:=1:

zhumian1:=plot3d([R*cos(t), R*sin(t), z], z=-R..R, t=0..2*Pi,color=yellow):

zhumian2:=plot3d([R*cos(t), y, R*sin(t)], y=-R..R, t=0..2*Pi,color=green):

display(zhumian1, zhumian2, scaling=constrained,orientation=[40,65]);

 

输出图形:

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

 

with(plots):R:=1:

zhumian1:=plot3d([R*cos(t), R*sin(t), z], z=-R*sin(t)..R*sin(t), t=0..2*Pi, color=yellow):

zhumian2:=plot3d([R*cos(t), y, R*sin(t)], y=-R*sin(t)..R*sin(t), t=0..2*Pi, color=green):

display(zhumian1, zhumian2, scaling=constrained, orientation=[40,65]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学
 
 
用Maple画空间曲线(一般方程) - calculus - 高等数学

 

 

with(plots):R:=1:

zhumian1:=plot3d([R*cos(t),R*sin(t),z],z=-R..R,t=0..2*Pi,color=yellow):

zhumian2:=plot3d([R*cos(t),y,R*sin(t)],y=-R..R,t=0..2*Pi,color=green):

quxian1:=spacecurve([R*cos(t),R*sin(t),R*sin(t)],t=0..2*Pi,color=red,thickness=4):

quxian2:=spacecurve([R*cos(t),R*sin(t),-R*sin(t)],t=0..2*Pi,color=blue,thickness=4):

display(zhumian1,zhumian2,quxian1,quxian2,scaling=constrained,orientation=[40,65]);

 

 

 

 用Maple画空间曲线(一般方程) - calculus - 高等数学

 

with(plots):R:=1:

zhumian1:=plot3d([R*cos(t),R*sin(t),z],z=-R*sin(t)..R*sin(t),t=0..2*Pi,color=yellow):

quxian1:=spacecurve([R*cos(t),R*sin(t),R*sin(t)],t=0..2*Pi,color=red,thickness=4):

zhumian2:=plot3d([R*cos(t),y,R*sin(t)],y=-R*sin(t)..R*sin(t),t=0..2*Pi,color=green):

quxian2:=spacecurve([R*cos(t),-R*sin(t),R*sin(t)],t=0..2*Pi,color=blue,thickness=4):

x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):

y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):

z_axis:=plot3d([0,0,u],u=-1.3..1.3,v=0..0.01,thickness=3):

xyz:=display(x_axis,y_axis,z_axis,thickness=3):

display(zhumian1,zhumian2,quxian1,quxian2,xyz,scaling=constrained,orientation=[40,75]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学
 
 

with(plots):R:=1:

quxian1:=spacecurve([R*cos(t),R*sin(t),R*sin(t)],t=0..2*Pi,color=red,thickness=8):

quxian2:=spacecurve([R*cos(t),-R*sin(t),R*sin(t)],t=0..2*Pi,color=blue,thickness=8):

x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):

y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):

z_axis:=plot3d([0,0,u],u=-1.3..1.3,v=0..0.01,thickness=3):

xyz:=display(x_axis,y_axis,z_axis,thickness=3):

display(quxian1,quxian2,xyz,scaling=constrained,orientation=[40,75]);

 

用Maple画空间曲线(一般方程) - calculus - 高等数学

 

  评论这张
 
阅读(1055)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016