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

徐小湛的博客

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

 
 
 

日志

 
 

用Maple画空间区域  

2011-07-31 17:31:37|  分类: Maple应用 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
  
用Maple画空间区域 - calculus - 高等数学

 

 

with(plots):

a:=sqrt(2):

u:=(x,y)->x^2+2*y^2:

v:=(x,y)->6-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([a*cos(t),a*sin(t),u(a*cos(t),a*sin(t))],t=0..2*Pi,color=red,thickness=4):

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

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

z_axis:=plot3d([0,0,u],u=-.2..7,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*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 - 高等数学用Maple画空间区域 - calculus - 高等数学

 

 

 

 

 

用Maple画空间区域 - calculus - 高等数学

 

用Maple画空间区域 - calculus - 高等数学

with(plots):< xmlnamespace prefix ="o" ns ="urn:schemas-microsoft-com:office:office" />

R:=2: a:=sqrt(3)*R/2:

u:=(x,y)->R-sqrt(R^2-x^2-y^2):

v:=(x,y)-> sqrt(R^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([a*cos(t),a*sin(t),R/2],t=0..2*Pi,color=red,thickness=4):

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

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

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

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

display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[30,70]);

 

用Maple画空间区域 - calculus - 高等数学

with(plots):

R:=2: a:=sqrt(3)*R/2:

u:=(r,t)->R-sqrt(R^2-r^2):

v:=(r,t)->sqrt(R^2-r^2):

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

qumian2:=plot3d([r*cos(t),r*sin(t),v(r,t)],r=0..a,t=0..2*Pi,color=green):

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

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

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

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

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

display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[30,70]);

用Maple画空间区域 - calculus - 高等数学

 

用Maple画空间区域 - calculus - 高等数学
 

with(plots):R:=2:

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

qumian2:=plot3d([R*sin(phi)*cos(t),R*sin(phi)*sin(t),R*cos(phi)],phi=0..Pi/3,t=0..2*Pi,color=green):

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

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

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

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

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

display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[25,78]);

 

用Maple画空间区域 - calculus - 高等数学

 

 

 

 

返回《用Maple做微积分》目录:http://xuxzmail.blog.163.com/blog/static/25131916201162994821693/

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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