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

徐小湛的博客

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

 
 
 

日志

 
 

用Maple画空间曲线  

2011-07-31 13:00:36|  分类: Maple应用 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1.  参数曲线

 

用Maple画空间曲线 - calculus - 高等数学

with(plots):

x:=t->cos(t): y:=t->sin(t): z:=t->t: a:=0: b:=15:

spacecurve([x(t),y(t),z(t)], t=a..b, thickness=4,color=red, axes=normal);

用Maple画空间曲线 - calculus - 高等数学

 

 
 
2. 两张曲面的交线
 
用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 - 高等数学

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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