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

徐小湛的博客

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

 
 
 

日志

 
 

圆锥螺旋线  

2009-08-06 23:22:04|  分类: 高等数学图形动画 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

高等数学图形与动画

 

圆锥螺旋线(Conical helix)。

 空间一个点M在圆锥面 x^2+y^2=z^2 上以角速度 w 绕 z 轴旋转,同时又以线速度 v 沿平行于 z 轴的正方向上升,这点M的轨迹就是一条螺旋线。

设在时刻 t=0 时,M 的坐标为 (0,0,0),则在时刻 t 时,M的坐标为 (x(t),y(t),z(t)),其中

x(t)=vt*cos(wt),y(t)=vt*sin(wt),z(t)=vt

 圆锥螺旋线 - Calculus - 高等数学

令 wt=theta,则螺旋线的参数方程为:

圆锥螺旋线 - Calculus - 高等数学

 圆锥螺旋线 - Calculus - 高等数学

with(plots):
x:=t->t*cos(t): y:=t->t*sin(t): z:=t->t:
spacecurve([x(t), y(t), z(t)], t=0..8*Pi, thickness=3, color=red,axes=normal, numpoints=1000);

 

圆锥螺旋线 - Calculus - 高等数学

with(plots):
x:=t->(t/3)*cos(t):y:=t->(t/3)*sin(t):z:=t->t/3:
K:=100:for i from 1 to K do ti:=i*6*Pi/K:
curve[i]:=spacecurve([x(t),y(t),z(t)],t=0..ti,color=red,thickness=2):
curve1[i]:=spacecurve([x(t),y(t),0],t=0..ti,color=brown,thickness=2):
radius1[i]:=spacecurve([t*x(ti),t*y(ti),z(ti)],t=0..1,color=black,thickness=2):
radius2[i]:=spacecurve([t*x(ti),t*y(ti),0],t=0..1,color=black,thickness=2):
Z[i]:=spacecurve([0,0,z(t)],t=0..ti,color=blue,thickness=2):
XYZ[i]:=spacecurve([x(ti),y(ti),t*z(ti)],t=0..1,color=blue) od:
curve:=display(seq(curve[i],i=1..K),insequence=true):
curve1:=display(seq(curve1[i],i=1..K),insequence=true):
radius1:=display(seq(radius1[i],i=1..K),insequence=true):
radius2:=display(seq(radius2[i],i=1..K),insequence=true):
Z:=display(seq(Z[i],i=1..K),insequence=true):
XYZ:=display(seq(XYZ[i],i=1..K),insequence=true):
display(curve,curve1,Z,XYZ,radius1,radius2,axes=normal,tickmarks=[0,0,0]);

 

返回高等数图形目录

  评论这张
 
阅读(11703)| 评论(9)

历史上的今天

评论

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

页脚

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